source("http://macosa.dima.unige.it/r.R") BF=3; HF=3 PLANE(0,100,0,100) segm(50,5, 50,100, "black") x=c(50,55,70,80,86,88,85,80,72,65,60,55,50) y=c(100,90,70,60,50,40,30,20,12,10,11,12,14) polyC(x,y,"green") polyline(x,y,"black") co="black" X=c(50,60); Y=c(70,75); polyline(X,Y,co) X=c(50,65); Y=c(58,65.5); polyline(X,Y,co) X=c(50,70); Y=c(46,56); polyline(X,Y,co) X=c(50,76); Y=c(34,47); polyline(X,Y,co) X=c(50,75); Y=c(22,33.5); polyline(X,Y,co) coldash="black"; gridH( seq(0,100,10) ); gridV( seq(0,100,10) ) # La soluzione: x1=-x+100 polyline(x1,y,"black") X=c(50,-60+100); Y=c(70,75); polyline(X,Y,co) X=c(50,-65+100); Y=c(58,65.5); polyline(X,Y,co) X=c(50,-70+100); Y=c(46,56); polyline(X,Y,co) X=c(50,-76+100); Y=c(34,47); polyline(X,Y,co) X=c(50,-75+100); Y=c(22,33.5); polyline(X,Y,co)