luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

polyfit.c, speed up fitting process when degree == 1 

this patch war provided by Henrik Forstén in
  "#14 Special case for polyfit, move initw()"
  http://sourceforge.net/p/ngspice/patches/14/
This commit is contained in:
h_vogt 2013-12-30 15:12:34 +01:00 committed by rlar
parent 0e2fc3ceef
commit 75b144e17a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/maths/poly/polyfit.c
View File

@ -17,6 +17,13 @@ ft_polyfit(double *xdata, double *ydata, double *result,
double *mat2 = scratch + n * n; /* XXX These guys are hacks! */
double d;
/* speed up fitting process, e.g. for command 'linearize' */
if (degree == 1) {
result[0] = (xdata[1] * ydata[0] - xdata[0] * ydata[1]) / (xdata[1] - xdata[0]);
result[1] = (ydata[1] - ydata[0]) / (xdata[1] - xdata[0]);
return (TRUE);
}
memset(result, 0, (size_t) (n) * sizeof(double));
memset(mat1, 0, (size_t) (n * n) * sizeof(double));
memcpy(mat2, ydata, (size_t) (n) * sizeof(double));