# 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) }