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)