You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
317 B
C
20 lines
317 B
C
#include <stdio.h>
|
|
#include <math.h>
|
|
#include "genlib.h"
|
|
|
|
|
|
/*cubic covariance function*/
|
|
double cubic(double h)
|
|
{
|
|
double z;
|
|
|
|
printf("cubidsc\n");
|
|
|
|
if (h >= 1.) {
|
|
z = 0.;
|
|
} else {
|
|
z = 1.-7.*(double)(h*h)+(35./4.)*(double)(h*h*h)-3.5*(double)(h*h*h*h*h)+.75*(double)(h*h*h*h*h*h*h);
|
|
}
|
|
return (z);
|
|
}
|