source("http://macosa.dima.unige.it/r.R") BF=4; HF=4 D = function(t) 100*1.5^t Plane( 0,7, 0,D(7) ) NpF=8; graph(D,0,7,"blue") S = D(0); for(i in 1:7) S = c(S,D(i)) polyli(0:7,S, "blue") polyline(5:6, c(D(5),D(6)), "black") # Plane( 4.9,6.1, D(4.9),D(6.1) ) coldash="black"; graph1(D,0,7,0) polyline(5:6, c(D(5),D(6)), "brown") POINT(5:6, c(D(5),D(6)), "blue") # # ovvero: D <- function(n) 100*1.5^n dev.new(3,3); max <- 7 plot(c(0,max),c(0,D(max)),type="n",xlab="", ylab="") abline(v=axTicks(1), h=axTicks(2), col="blue",lty=3) # Congiungo i max+1 punti per n da 0 a max plot(D,0,max,n=max+1,add=TRUE,lty=3); points(0:7,D(0:7)) plot(D,5,6,n=2,add=TRUE,col="blue") points(5:6,D(5:6),pch=20) # dev.new(3,3) plot(c(5,6),c(D(5),D(6)),type="n",xlab="", ylab="") abline(v=axTicks(1), h=axTicks(2), col="blue",lty=3) plot(D,5,6,n=2,add=TRUE); points(5:6,D(5:6),pch=19) plot(D,5,6,add=TRUE,col="blue",lty=3)