# Per curiosità, per l'insegnante che voglia fare grafici simili, come essi # sono realizzabili con R (vedi la guida). source("http://macosa.dima.unige.it/r.R") BF=2.1; HF=2 BOXW(5,200,-45,160) ax=c(57,10,8,27,48,57,45,67,75,57) ay=c(158,121,78,43,47,72,101,112,130,158) polylin(ax,ay,"black") bx=c(27,48,57, 45, 67, 75,62,112,112,78,115,101,27) by=c(43,47,72,101,112,130,150,150,118,103,35.5,25,43) polylin(bx,by,"black") cx=c(112,78,115,184,168,112,112) cy=c(118,103,35.5,87,145,144,118) polylin(cx,cy,"black") dx=c(168,184,101,178,197,168) dy=c(145, 87, 25, 4,115,145) polylin(dx,dy,"black") polyS2(ax,ay, 45, "black") polyS2(bx,by, 45/2, "black") polyS2(cx,cy, 45-90, "black") polyS2(dx,dy,45/2-90,"black") polyS2(c(10,35,35,10,10)+5,c(0,0,-25,-25,0)-5, 45,"black") polyS2(c(10,35,35,10,10)+50,c(0,0,-25,-25,0)-5, 45/2,"black") polyS2(c(10,35,35,10,10)+95,c(0,0,-25,-25,0)-5, 45-90,"black") polyS2(c(10,35,35,10,10)+140,c(0,0,-25,-25,0)-5,45/2-90,"black") c = (10+35)/2 text(c+5,-38,"0-10",cex=0.75); text(c+50,-38,"10-20",cex=0.75) text(c+95,-38,"20-30",cex=0.75); text(c+140,-38,"30-+",cex=0.75) text(c+170,-18,"%",cex=0.75) # BOXW(5,200,-45,160) polylin(ax,ay,"black"); polylin(bx,by,"black") polylin(cx,cy,"black"); polylin(dx,dy,"black") polySN(ax,ay, 45, 1.5,"black") polySN(bx,by, 45/2, 2.5,"black") polySN(cx,cy, 45-90, 1,"black") polySN(dx,dy,45/2-90, 2,"black") polySN(c(10,35,35,10,10)+5,c(0,0,-25,-25,0)-5, 45, 1.5,"black") polySN(c(10,35,35,10,10)+50,c(0,0,-25,-25,0)-5, 45/2, 2.5,"black") polySN(c(10,35,35,10,10)+95,c(0,0,-25,-25,0)-5, 45-90, 1,"black") polySN(c(10,35,35,10,10)+140,c(0,0,-25,-25,0)-5,45/2-90, 2,"black") text(c+5,-38,"0-10",cex=0.75); text(c+50,-38,"10-20",cex=0.75) text(c+95,-38,"20-30",cex=0.75); text(c+140,-38,"30-+",cex=0.75) text(c+170,-18,"%",cex=0.75) # BF=2.1; HF=2 BOXW(5,200,-45,160) polyC(ax,ay, "yellow"); polyC(bx,by, "green") polyC(cx,cy, "red"); polyC(dx,dy, "blue") polylin(ax,ay,"black"); polylin(bx,by,"black") polylin(cx,cy,"black"); polylin(dx,dy,"black") polyC(c(10,35,35,10,10)+5,c(0,0,-25,-25,0)-5,"yellow") polyC(c(10,35,35,10,10)+50,c(0,0,-25,-25,0)-5,"green") polyC(c(10,35,35,10,10)+95,c(0,0,-25,-25,0)-5,"blue") polyC(c(10,35,35,10,10)+140,c(0,0,-25,-25,0)-5,"red") text(c+5,-38,"0-10",cex=0.75); text(c+50,-38,"10-20",cex=0.75) text(c+95,-38,"20-30",cex=0.75); text(c+140,-38,"30-+",cex=0.75) text(c+170,-18,"%",cex=0.75)