In un paese della Liguria viene deciso di colorare contemporaneamente le facciate delle case, tra loro appiccicate, di una strada (dato che in questo modo il costo si abbassa notevolmente). La spesa viene ripartita in proporzione alle dimensioni della facciate. Sotto sono raffigurate le facciate della case su carta millimetrata (1 mm corrisponde ad 1 m). Calcola, arrondate a due decimi, le percentuali di spesa che spettano ai proprietari della varie case.

Devo calcolare le aree dei diversi rettangoli, dividerle per il loro totale e moltiplicare per 100.  Ecco:

c1=20*22; c2=15*31; c3=25*28; c4=10*35; c5=18*20; c6=32*26; c7=20*25; c8=30*23
case=c(c1,c2,c3,c4,c5,c6,c7,c8)
totale=sum(case); totale
# 4337
perc = case/totale*100; perc
# 10.145262 10.721697 16.140189  8.070095  8.300669 19.183768 11.528706 15.909615
round(perc,2)
# 10.15 10.72 16.14  8.07  8.30 19.18 11.53 15.91
Ovviamente, la 4ª è quella che spende di meno, la 6ª è quella che spende di più.


# Come è stata fatta la figura con R:
mmpaper(170,40)
polyline(c(0,20,20,0,0),c(0,0,22,22,0),"seagreen")
polyline(c(20,20+15,20+15,20,20),c(0,0,31,31,0),"seagreen")
polyline(c(35,35+25,35+25,35,35),c(0,0,28,28,0),"seagreen")
polyline(c(60,70,70,60,60),c(0,0,35,35,0),"seagreen")
polyline(c(70,88,88,70,70),c(0,0,20,20,0),"seagreen")
polyline(c(88,120,120,88,88),c(0,0,26,26,0),"seagreen")
polyline(c(120,140,140,120,120),c(0,0,25,25,0),"seagreen")
polyline(c(140,170,170,140,140),c(0,0,23,23,0),"seagreen")
polyC(c(0,20,20,0,0),c(0,0,22,22,0),"yellow")
polyC(c(20,20+15,20+15,20,20),c(0,0,31,31,0),"green")
polyC(c(35,35+25,35+25,35,35),c(0,0,28,28,0),"white")
polyC(c(60,70,70,60,60),c(0,0,35,35,0),"green")
polyC(c(70,88,88,70,70),c(0,0,20,20,0),"pink")
polyC(c(88,120,120,88,88),c(0,0,26,26,0),"cyan")
polyC(c(120,140,140,120,120),c(0,0,25,25,0),"yellow")
polyC(c(140,170,170,140,140),c(0,0,23,23,0),"green")
mmPaper(170,40)
polyline(c(0,20,20,0,0),c(0,0,22,22,0),"seagreen")
polyline(c(20,20+15,20+15,20,20),c(0,0,31,31,0),"seagreen")
polyline(c(35,35+25,35+25,35,35),c(0,0,28,28,0),"seagreen")
polyline(c(60,70,70,60,60),c(0,0,35,35,0),"seagreen")
polyline(c(70,88,88,70,70),c(0,0,20,20,0),"seagreen")
polyline(c(88,120,120,88,88),c(0,0,26,26,0),"seagreen")
polyline(c(120,140,140,120,120),c(0,0,25,25,0),"seagreen")
polyline(c(140,170,170,140,140),c(0,0,23,23,0),"seagreen")