PLANEww(-4,4, -4,4) f <- function(t) 4*cos(t)^3; g <- function(t) 4*sin(t)^3 circle(0,0, 4, "grey"); param(f,g, 0,2*pi, "grey"); fig0 <- fig <- recordPlot() i <- 0; x <- 4; y <- 0; dt <- 0.3 while(i < 90) {replayPlot(fig); POINT(x,y,"brown"); fig <- recordPlot() i <- i+1 t <- 2*pi/90*i; circle(3*cos(t),3*sin(t), 1, "red"); arrow(3*cos(t),3*sin(t), 4*cos(t)^3, 4*sin(t)^3, "blue"); x <- c(x,4*cos(t)^3); y <- c(y,4*sin(t)^3); wait(dt) } wait(dt); replayPlot(fig0); param(f,g, 0,2*pi, "brown") # o, for a window without margins: BOXW(-4,4, -4,4) f <- function(t) 4*cos(t)^3; g <- function(t) 4*sin(t)^3 circle(0,0, 4, "grey"); param(f,g, 0,2*pi, "grey"); fig0 <- fig <- recordPlot() i <- 0; x <- 4; y <- 0; dt <- 0.3 while(i < 90) {replayPlot(fig); PUNTI(x,y,"brown"); fig <- recordPlot() i <- i+1 t <- 2*pi/90*i; circle(3*cos(t),3*sin(t), 1, "red"); arrow(3*cos(t),3*sin(t), 4*cos(t)^3, 4*sin(t)^3, "blue"); x <- c(x,4*cos(t)^3); y <- c(y,4*sin(t)^3); wait(dt) } wait(dt); replayPlot(fig0); param(f,g, 0,2*pi, "brown")