23 lines
416 B
C
23 lines
416 B
C
|
|
#define NRANSI
|
|
#include "nrutil.h"
|
|
|
|
void predic(float data[], int ndata, float d[], int m, float future[],
|
|
int nfut)
|
|
{
|
|
int k,j;
|
|
float sum,discrp,*reg;
|
|
|
|
reg=vector(1,m);
|
|
for (j=1;j<=m;j++) reg[j]=data[ndata+1-j];
|
|
for (j=1;j<=nfut;j++) {
|
|
discrp=0.0;
|
|
sum=discrp;
|
|
for (k=1;k<=m;k++) sum += d[k]*reg[k];
|
|
for (k=m;k>=2;k--) reg[k]=reg[k-1];
|
|
future[j]=reg[1]=sum;
|
|
}
|
|
free_vector(reg,1,m);
|
|
}
|
|
#undef NRANSI
|