# Copia tutto e incolla in R
tic <- function(x) {sec <-proc.time()[3]; while(proc.time()[3] < sec+x) sec<-sec}
dev.new(width=4,height=4,title="teorema di Pitagora")
x1 <- -2; x2 <- 102; y1 <- -2; y2 <- 102
while(1<2){
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
text(46,75,"Siamo su una superficie",font=2, col="blue",cex=1.3)
text(46,60,"perfettamente piatta (in cui",font=2, col="blue",cex=1.3)
text(46,45,"la somma degli angoli di un",font=2, col="blue",cex=1.3)
text(46,30,"triangolo è 180°)",font=2, col="blue",cex=1.3)
text(46,-4, "premi ESC quando vuoi finire")
tic(6)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(40,0,0),c(100,100,40),col="yellow")
polygon(c(40,100,100),c(100,100,60),col="grey")
polygon(c(0,0,60),c(40,0,0),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
text(-4,20,"a"); text(30,-3,"b"); text(30,26,"c")
text(76,30,"c"); text(70,76,"c"); text(26,70,"c")
text(50,50,"c^2",font=2)
L <- sqrt(60^2+40^2) # lungh. ipotenusa
tic(3)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(40,0,0),c(100,100,40),col="yellow")
polygon(c(40,100,100),c(100,100,60),col="grey")
polygon(c(60,60,60-60*40/L),c(L,0,60*60/L),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
tic(3)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(40,0,0),c(100,100,40),col="yellow")
polygon(c(40,100,100),c(100,100,60),col="grey")
polygon(c(100,60,60),c(60,0,60),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
tic(2)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(40,40,40-60*40/L),c(100,100-L,100-40*40/L),col="yellow")
polygon(c(40,100,100),c(100,100,60),col="grey")
polygon(c(100,60,60),c(60,0,60),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
tic(2)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(40,40,100),c(100,60,60),col="yellow")
polygon(c(40,100,100),c(100,100,60),col="grey")
polygon(c(100,60,60),c(60,0,60),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
tic(3)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(20,20,80),c(100,60,60),col="yellow")
polygon(c(20,80,80),c(100,100,60),col="grey")
polygon(c(100,60,60),c(60,0,60),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
tic(2)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(0,0,60),c(100,60,60),col="yellow")
polygon(c(0,60,60),c(100,100,60),col="grey")
polygon(c(100,60,60),c(60,0,60),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
text(30,30,"b^2",font=2); text(80,80,"a^2",font=2)
tic(3)
par( mai = c(0.5,0.5,0.1,0.1) )
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1,fg="white",xaxt="n",yaxt="n")
lines(c(0,100,100,0,0),c(0,0,100,100,0),col="red",lwd=2)
polygon(c(0,0,60),c(100,60,60),col="yellow")
polygon(c(0,60,60),c(100,100,60),col="grey")
polygon(c(100,60,60),c(60,0,60),col="magenta")
polygon(c(60,100,100),c(0,0,60),col="orange")
text(30,30,"b^2",font=2); text(80,80,"a^2",font=2)
lines(c(60,100,40,0,60),c(0,60,100,40,0),lty=2)
text(50,-4, "a^2 + b^2 = c^2",font=2, col="blue")
tic(7)
}