grid_view_part

grid_view_part(grid, part = 0.01, alpha = 1, color_p = PT.Color[["O"]], color_n = PT.Color[["N"]], ...)

Arguments

grid

part

alpha

color_p

color_n

Details

Value

References

Note

See also

Examples

##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (grid, part = 0.01, alpha = 1, color_p = PT.Color[["O"]], color_n = PT.Color[["N"]], ...) { npoints <- grid$ngridx * grid$ngridy * grid$ngridz
#> Error: <text>:11:0: unexpected end of input #> 9: npoints <- grid$ngridx * grid$ngridy * grid$ngridz #> 10: #> ^
# NOT RUN { # }
ivalue <- 1 for (igridx in 1:grid$ngridx) { for (igridy in 1:grid$ngridy) { for (igridz in 1:grid$ngridz) { values[ivalue] <- abs(grid$val[igridx, igridy, igridz]) ivalue <- ivalue + 1 } } } svalues <- sort(values, decreasing = TRUE) level <- svalues[ceiling(npoints * part)] cat(sprintf("level=%g\n", level)) grid_view_level(grid, level, alpha, color_p, color_n, ...) }
#> Error: <text>:15:3: unexpected '}' #> 14: grid_view_level(grid, level, alpha, color_p, color_n, ...) #> 15: } #> ^