double sem_cov_ab(VARIOGRAM *v, DPOINT *a, DPOINT *b, int sem)
/*
* return Cov(a,b) or Sem(a,b),
* taking care of IS_BLOCK(a) and IS_BLOCK(b):
*/
{
static DATA *Discr_a = NULL, *Discr_b = NULL;
static DPOINT *block_p = NULL;
DPOINT *tmp;
if (block_p == NULL)
block_p = get_block_p();
if (a == b) {
if (IS_POINT(a))
return sem_cov_blocks(v, NULL, NULL, sem);
Discr_a = block_discr(Discr_a, block_p, a);
return sem_cov_blocks(v, Discr_a, Discr_a, sem);
}
/*
* if one of them IS_BLOCK, make sure it's a:
* (because block_discr() will otherwise store block
* discretisations in both Discr_a and Discr_b)
*/
if (IS_POINT(a) && IS_BLOCK(b)) {
tmp = a; a = b; b = tmp; /* swap a and b */
}
Discr_a = block_discr(Discr_a, block_p, a);
Discr_b = block_discr(Discr_b, block_p, b);
return sem_cov_blocks(v, Discr_a, Discr_b, sem);
}
void calc_polynomial_point(DATA *d, DPOINT *pt) {
static DATA *bl = NULL;
int j, k;
bl = block_discr(bl, get_block_p(), pt);
for (j = 0; j < d->n_X; j++) {
if (d->colX[j] < -1)
/* do eventual block averaging here: */
for (k = 0, pt->X[j] = 0.0; k < bl->n_list; k++)
pt->X[j] += bl->list[k]->u.weight *
calc_polynomial(bl->list[k], d->colX[j]);
}
}
int ossfim(int argc, char *argv[]) {
int c, n = 25, dx = 9, dy = 9, i, j, plot_vgm = 0;
double b = 1, B = 10, s = 1, S = 10, blocksize, samplespacing, est[2],
**table;
DATA **d = NULL;
DPOINT *block = NULL, where;
char *vgm_str = "1Exp(10)", *map_name = NULL;
VARIOGRAM *vgm;
while ((c = getopt(argc, argv, "n:m:B:b:S:s:V:v:x:y:")) != EOF) {
switch (c) {
case 'n':
if (read_int(optarg, &n) || n <= 0)
ErrMsg(ER_ARGOPT, "n");
break;
case 'b':
if (read_double(optarg, &b) || b < 0)
ErrMsg(ER_ARGOPT, "b");
break;
case 'B':
if (read_double(optarg, &B) || B <= 0)
ErrMsg(ER_ARGOPT, "B");
break;
case 's':
if (read_double(optarg, &s) || s <= 0)
ErrMsg(ER_ARGOPT, "s");
break;
case 'S':
if (read_double(optarg, &S) || S <= 0)
ErrMsg(ER_ARGOPT, "S");
break;
case 'x':
if (read_int(optarg, &dx) || dx <= 0)
ErrMsg(ER_ARGOPT, "x");
break;
case 'y':
if (read_int(optarg, &dy) || dy <= 0)
ErrMsg(ER_ARGOPT, "y");
break;
case 'v':
vgm_str = optarg;
break;
case 'V':
plot_vgm = 1;
vgm_str = optarg;
break;
case 'm':
map_name = optarg;
break;
default:
ErrClo(optopt);
break;
}
}
which_identifier("dummy grid");
d = get_gstat_data();
init_one_data(d[0]);
d[0]->id = 0;
d[0]->n_list = d[0]->n_max = 0;
d[0]->mode = X_BIT_SET | Y_BIT_SET | V_BIT_SET;
set_norm_fns(d[0]);
vgm = get_vgm(0);
if (read_variogram(vgm, vgm_str))
ErrMsg(ER_SYNTAX, vgm_str);
vgm->ev->evt = SEMIVARIOGRAM;
vgm->id1 = vgm->id2 = d[0]->id;
block = get_block_p();
block->z = 0.0;
block->x = block->y = -1.0;
est[0] = 0.0;
est[1] = -1.0;
where.x = where.y = where.z = 0.0;
where.X = (double *) emalloc(sizeof(double));
where.X[0] = 1.0;
if (plot_vgm)
return fprint_gnuplot_variogram(stdout, vgm, "", GIF, 0);
table = (double **) emalloc((dy + 1) * sizeof(double *));
for (i = 0; i <= dy; i++)
table[i] = (double *) emalloc((dx + 1) * sizeof(double));
/* do it: */
for (i = 0; i <= dx; i++) { /* sample spacing loop */
samplespacing = s + (i / (1.0 * dx)) * (S - s);
generate_grid(d[0], samplespacing, n);
select_at(d[0], &where);
for (j = 0; j <= dy; j++) { /* block sizes loop */
reset_block_discr();
vgm_init_block_values(vgm);
blocksize = b + (j / (1.0 * dy)) * (B - b);
block->x = block->y = blocksize;
if (blocksize == 0.0)
SET_POINT(&where);
else
SET_BLOCK(&where);
gls(d, 1, GLS_BLUP, &where, est);
if (map_name)
table[i][j] = sqrt(est[1]);
else
printlog("%g %g %g\n", samplespacing, blocksize, sqrt(est[1]));
}
}
if (map_name)
ossfim2map(table, map_name, s, S, b, B, dx, dy);
return 0;
}
static double *get_maskX(DATA **data, DPOINT *p,
unsigned int row, unsigned int col) {
static double *d = NULL;
static int totX = 0, *posMask = NULL;
int i, j, k, l;
static DATA *bl = NULL;
static GRIDMAP **local_masks = NULL;
if (data == NULL) {
if (d != NULL) {
efree(d);
d = NULL;
efree(posMask);
posMask = NULL;
local_masks = NULL;
totX = 0;
}
return NULL;
}
if (d == NULL) { /* first time calling */
for (i = 0, totX = 0; i < get_n_vars(); i++)
totX += data[i]->n_X;
posMask = (int *) emalloc(totX * sizeof(int));
d = (double *) emalloc(totX * sizeof(double));
for (i = 0, k = 0; i < get_n_vars(); i++) {
for (j = 0; j < data[i]->n_X; j++) {
if (data[i]->colX[j] > 0)
posMask[k] = 1;
if (data[i]->colX[j] == 0)
posMask[k] = 0;
if (data[i]->colX[j] < -1)
posMask[k] = -1;
k++;
}
}
if (get_mode() == STRATIFY) {
if (get_n_masks() > 1)
local_masks = masks + 1; /* skip the first (= strata) map */
} else
local_masks = masks;
}
bl = block_discr(bl, get_block_p(), p);
/* bl is a single point-list with p if IS_POINT(p) */
for (i = 0, k = 0; i < get_n_vars(); i++) {
for (j = 0; j < data[i]->n_X; j++) {
if (data[i]->colX[j] < -1) {
/* do eventual block averaging here: */
for (l = 0, d[k] = 0.0; l < bl->n_list; l++)
d[k] += bl->list[l]->u.weight *
calc_polynomial(bl->list[l], data[i]->colX[j]);
}
k++;
}
}
for (i = 0, j = 0; i < totX; i++) {
switch(posMask[i]) {
case -1:
/* is done above */
break;
case 1:
if (map_cell_is_mv(local_masks[j], row, col))
ErrMsg(ER_IMPOSVAL, "missing value in one of the mask maps");
d[i] = map_get_cell(local_masks[j], row, col);
j++;
break;
case 0:
d[i] = (double) 1.0;
break;
default:
ErrMsg(ER_IMPOSVAL, "get_maskX()");
break;
}
}
return d;
}
static void init_predictions(PRED_AT w) {
int i;
DPOINT *bp;
DATA **d = NULL;
#ifdef WITH_SPIRAL
DATA_GRIDMAP *grid;
#endif
est = (double *) emalloc(get_n_outfile() * sizeof(double));
bp = get_block_p();
d = get_gstat_data();
switch (w) {
case AT_POINTS:
if (o_filename == NULL)
ErrMsg(ER_VARNOTSET, "please specify output file");
write_points(o_filename, val_data, NULL, NULL, get_n_outfile());
if (bp->x == -1.0) { /* set default */
bp->x = bp->y = 1.0;
pr_warning("default block size set to: dx=1, dy=1");
}
break;
case AT_GRIDMAP:
/* open mask files: */
get_maskX(NULL, NULL, 0, 0); /* re-initializes static arrays */
masks = (GRIDMAP **) emalloc(get_n_masks() * sizeof(GRIDMAP *));
for (i = 0; i < get_n_masks(); i++)
masks[i] = check_open(get_mask_name(i), i); /* read as float */
if (n_pred_locs > 0)
strata_min = floor(masks[0]->cellmin);
outmap = (GRIDMAP **) emalloc(get_n_outfile() * sizeof(GRIDMAP *));
printlog("initializing maps ");
for (i = 0; i < get_n_outfile(); i++) {
if (get_outfile_namei(i) != NULL) {
printlog("."); /* creating maps ..... */
if (get_method() == ISI)
masks[0]->celltype = CT_UINT8;
outmap[i] = map_dup(get_outfile_namei(i), masks[0]);
} else
outmap[i] = NULL;
}
printlog("\n");
if (bp->x == -1.0) { /* set default to map cellsize */
bp->x = masks[0]->cellsizex;
bp->y = masks[0]->cellsizey;
pr_warning("default block size set to dx=%g, dy=%g", bp->x, bp->y);
}
for (i = 0; i < get_n_vars(); i++) {
if (d[i]->dummy) {
d[i]->minX = masks[0]->x_ul + 0.5 * masks[0]->cellsizex;
d[i]->maxX = masks[0]->x_ul + masks[0]->cellsizex *
(masks[0]->cols - 0.5);
d[i]->maxY = masks[0]->y_ul - 0.5 * masks[0]->cellsizey;
d[i]->minY = masks[0]->y_ul - masks[0]->cellsizey *
(masks[0]->rows - 0.5);
d[i]->minZ = d[i]->maxZ = 0.0;
}
if (d[i]->togrid)
datagrid_rebuild(d[i], 1);
}
break;
}
if (gl_nsim > 1)
init_simulations(d);
if (is_simulation(get_method()) && get_n_beta_set() != get_n_vars())
setup_beta(d, get_n_vars(), gl_nsim);
} /* init_predictions() */
