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.
80 lines
1.8 KiB
C
80 lines
1.8 KiB
C
#include <stdio.h>
|
|
#include <stddef.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include "genlib.h"
|
|
#include "simpio.h"
|
|
#include "geostat.h"
|
|
#include "toolsIO.h"
|
|
#include "toolsFFTMA.h"
|
|
|
|
/* kgeneration */
|
|
/* Z is the GWN with 0-mean and 1-variance */
|
|
/* Y1 is the realization with 0-mean and variance wanted */
|
|
/* Y is the realization with mean and variance wanted */
|
|
|
|
void kgeneration(long seed,struct grid_mod grid,struct statistic_mod stat,struct vario_mod variogram,string filename[7],struct realization_mod *Z,struct realization_mod *Y,struct realization_mod *Y1, int n[3], int *genere, int *gwnwrite, struct realization_mod *gwnoise)
|
|
{
|
|
int i,N;
|
|
int typelog;
|
|
string file1,file2;
|
|
|
|
/*generate Gaussian white noise*/
|
|
N = grid.NX*grid.NY*grid.NZ;
|
|
n[0] = 0;
|
|
n[1] = 0;
|
|
n[2] = 0;
|
|
printf("\n\n\n");
|
|
|
|
switch (*genere)
|
|
{
|
|
case 0:
|
|
generate(&seed,N,Z);
|
|
/*save the Gaussian white noise file*/
|
|
if (*gwnwrite == 0)
|
|
{
|
|
writefile(filename[0],Z);
|
|
}
|
|
break;
|
|
case 1:
|
|
(*Z).vector=(double *) malloc(N*sizeof(double));
|
|
(*Z).n = N;
|
|
for (i=0;i<N;i++)
|
|
{
|
|
(*Z).vector[i]=(*gwnoise).vector[i];
|
|
}
|
|
break;
|
|
}
|
|
|
|
/*FFTMA*/
|
|
FFTMA2(variogram,grid,n,Z,Y);
|
|
|
|
/* file1="prout"; */
|
|
/* writefile(file1,Y); */
|
|
|
|
/*add the statistics*/
|
|
if (stat.mean[0] != 0 || stat.variance[0]!= 1)
|
|
addstat2(Y,stat,Y1,Y);
|
|
|
|
/* file2="prout2"; */
|
|
/* writefile(file2,Y); */
|
|
|
|
/* make a log normal realization */
|
|
if (stat.type==1 || stat.type==2){
|
|
typelog=stat.type+2;
|
|
nor2log(Y1,typelog,Y1);
|
|
nor2log(Y,typelog,Y);
|
|
}
|
|
|
|
/*save the realization*/
|
|
/* writefile(filename[0],Y1); */
|
|
|
|
/*save the permeability realization*/
|
|
writefile_bin(filename[1],Y);
|
|
readfile_bin(filename[1],Y);
|
|
|
|
|
|
return;
|
|
}
|