41 lines
740 B
C
41 lines
740 B
C
|
|
/* Driver for routine spctrm */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#define NRANSI
|
|
#include "nr.h"
|
|
#include "nrutil.h"
|
|
|
|
#define M 16
|
|
#define TRUE 1
|
|
#define FALSE 0
|
|
|
|
int main(void)
|
|
{
|
|
int j,k,ovrlap;
|
|
float *p,*q;
|
|
FILE *fp;
|
|
|
|
p=vector(1,M);
|
|
q=vector(1,M);
|
|
if ((fp = fopen("spctrl.dat","r")) == NULL)
|
|
nrerror("Data file spctrl.dat not found\n");
|
|
k=8;
|
|
ovrlap=TRUE;
|
|
spctrm(fp,p,M,k,ovrlap);
|
|
rewind(fp);
|
|
k=16;
|
|
ovrlap=FALSE;
|
|
spctrm(fp,q,M,k,ovrlap);
|
|
fclose(fp);
|
|
printf("\nSpectrum of data in file spctrl.dat\n");
|
|
printf("%13s %s %5s %s\n"," ","overlapped "," ","non-overlapped");
|
|
for (j=1;j<=M;j++)
|
|
printf("%3d %5s %13f %5s %13f\n",j," ",p[j]," ",q[j]);
|
|
free_vector(q,1,M);
|
|
free_vector(p,1,M);
|
|
return 0;
|
|
}
|
|
#undef NRANSI
|