if (interactive()) {
H1 <- function(x) -1 - x
H2 <- function(x) 1 - x^2
G1 <- function(x, y) y
G2 <- function(x, y) y + 1
F <- function(x, y, z) c(-y, x, 1)
vector_field3d(
F, H1 = H1, H2 = H2, G1 = G1, G2 = G2,
a = -1, b = 1, NX = 8, NY = 6, NZ = 6,
plot = TRUE, arrows = "both",
arrow_scale = 0.08, normalize_bias = 1,
normal_color = "rgba(0,0,0,0.6)", normal_width = 2,
arrow_color = "#1d3557", arrow_opacity = 0.95, arrow_size = 0.35
)
}
Run the code above in your browser using DataLab