grid_view_rlevel
grid_view_rlevel(grid, rlevel = 0.5, alpha = 1, color_p = PT.Color[["O"]], color_n = PT.Color[["N"]], ...)
grid | |
---|---|
rlevel | |
alpha | |
color_p | |
color_n | |
… |
##---- 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, rlevel = 0.5, alpha = 1, color_p = PT.Color[["O"]], color_n = PT.Color[["N"]], ...) { max_level <- 0 for (igridx in 1:grid$ngridx) { for (igridy in 1:grid$ngridy) { for (igridz in 1:grid$ngridz) { value <- abs(grid$val[igridx, igridy, igridz]) if (value > max_level) max_level <- value } } } level <- max_level * rlevel grid_view_level(grid, level, alpha, color_p, color_n, ...) }#> function (grid, rlevel = 0.5, alpha = 1, color_p = PT.Color[["O"]], #> color_n = PT.Color[["N"]], ...) #> { #> max_level <- 0 #> for (igridx in 1:grid$ngridx) { #> for (igridy in 1:grid$ngridy) { #> for (igridz in 1:grid$ngridz) { #> value <- abs(grid$val[igridx, igridy, igridz]) #> if (value > max_level) #> max_level <- value #> } #> } #> } #> level <- max_level * rlevel #> grid_view_level(grid, level, alpha, color_p, color_n, ...) #> } #> <environment: 0x10f95fd88>