#include "genlib.h" #include "log.h" #include #include #include /*gamma covariance function*/ double gammf(double h, double alpha) { clock_t t = clock(); log_info("RESULT = in progress, h = %f, alpha = %f", h, alpha); float delta; double z; delta = pow(20., 1. / alpha) - 1.; z = 1. / (double)(pow(1. + h * delta, alpha)); t = clock() - t; double time_taken = ((double)t)/CLOCKS_PER_SEC; // calculate the elapsed time log_info("RESULT = success, delta = %f, z = %f, ELAPSED = %f seconds", delta, z, time_taken); return z; }