Computes coefficients for grid using support vectors
cmf_coef_grid_sv(mdb, a, ai, alpha, grid, field)
mdb | |
---|---|
a | |
ai | |
alpha | |
grid | |
field |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as cmf_coef_grid_sv <- function(mdb, a, ai, alpha, grid, field) { for (igridx in 1:grid$ngridx) { cat(sprintf("x: %d of %d\n", igridx, grid$ngridx)); flush.console() flush.console() x <- grid$gridx[igridx] for (igridy in 1:grid$ngridy) { y <- grid$gridy[igridy] for (igridz in 1:grid$ngridz) { z <- grid$gridz[igridz] grid$val[igridx,igridy,igridz] <- cmf_coef_xyz_sv(mdb,a,ai,alpha,x,y,z,field) } } } grid }