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