Lines Matching refs:c
452 double* b, double* c, double* d) in NaturalSpline() argument
470 c[i]=h[i+1]; in NaturalSpline()
483 c[0] =c[0]-h[0]; in NaturalSpline()
505 c[1]=a[0]/d[0]; in NaturalSpline()
507 error=TriDiagGS(sal_False,n-1,b,d,c,a); in NaturalSpline()
509 for (i=0;i<n-1;i++) c[i+1]=a[i]; in NaturalSpline()
514 c[2]=c[1]; in NaturalSpline()
515 c[0]=c[1]; in NaturalSpline()
517 c[0]=c[1]+h[0]*(c[1]-c[2])/h[1]; in NaturalSpline()
518 c[n]=c[n-1]+h[n-1]*(c[n-1]-c[n-2])/h[n-2]; in NaturalSpline()
522 c[0]=1.5*((y[1]-y[0])/h[0]-Marg0); in NaturalSpline()
523 c[0]=(c[0]-c[1]*h[0]*0.5)/h[0]; in NaturalSpline()
524 c[n]=1.5*((y[n]-y[n-1])/h[n-1]-MargN); in NaturalSpline()
525 c[n]=(c[n]-c[n-1]*h[n-1]*0.5)/h[n-1]; in NaturalSpline()
528 c[0]=Marg0*0.5; in NaturalSpline()
529 c[n]=MargN*0.5; in NaturalSpline()
532 c[0]=c[1]-Marg0*h[0]*0.5; in NaturalSpline()
533 c[n]=c[n-1]+MargN*h[n-1]*0.5; in NaturalSpline()
537 b[i]=(y[i+1]-y[i])/h[i]-h[i]*(c[i+1]+2.0*c[i])/3.0; in NaturalSpline()
538 d[i]=(c[i+1]-c[i])/(3.0*h[i]); in NaturalSpline()
559 double* b, double* c, double* d) in PeriodicSpline() argument
578 c[1]=3.0*((y[2]-y[1])/(x[2]-x[1])); in PeriodicSpline()
579 c[1]=c[1]-3.0*((y[i]-y[0])/(x[1]-x[0])); in PeriodicSpline()
580 c[1]=c[1]/(x[2]-x[0]); in PeriodicSpline()
581 c[2]=-c[1]; in PeriodicSpline()
589 c[im1]=hr; in PeriodicSpline()
599 Error=ZyklTriDiagGS(sal_False,n,b,d,c,lowrow,ricol,a); in PeriodicSpline()
607 for (i=0;i<=nm1;i++) c[i+1]=a[i]; in PeriodicSpline()
609 c[0]=c[n]; in PeriodicSpline()
613 b[i]=b[i]-hl*(c[i+1]+2.0*c[i])/3.0; in PeriodicSpline()
614 d[i]=(c[i+1]-c[i])/hl/3.0; in PeriodicSpline()