source("http://macosa.dima.unige.it/r.R")
PLANE(-1,1, -0.5, 1.5)
ARC(0,0, 1, 0,180, "blue")
F <- function(x) sqrt(1-x*x)  # funz. il cui grafico e' il semicerchio
# Misura della lungh. dell'arco che da (0,1) va al punto P di acissa p
p <- -0.8
# Cambia l'assegnazione dell'ascissa p per un altro arco
POINT(p,F(p), "red")
n <- 1; dx <- (1-p)/n; x <- 1-(0:n)*dx; n; L <- leng(x,F(x)); more(L); L0 <- L
polyl(x,F(x),"red")
n <- n*2; dx <- (1-p)/n; x <- 1-(0:n)*dx; n; L <- leng(x,F(x)); more(L); L-L0; L0 <- L
polyl(x,F(x),"red")
n <- n*2; dx <- (1-p)/n; x <- 1-(0:n)*dx; n; L <- leng(x,F(x)); more(L); L-L0; L0 <- L
polyl(x,F(x),"red")
n <- n*4; dx <- (1-p)/n; x <- 1-(0:n)*dx; n; L <- leng(x,F(x)); more(L); L-L0; L0 <- L
# copia la riga precendente (col tasto "freccia su"), e ripeti