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:

20*22+15*31+25*28+10*35+18*20+32*26+20*25+30*23 = 4337 20*22 / 4337 *100 = 10.15 15*31 / 4337 *100 = 10.72 25*28 / 4337 *100 = 16.14 10*35 / 4337 *100 = 8.07 18*20 / 4337 *100 = 8.30 32*26 / 4337 *100 = 19.18 20*25 / 4337 *100 = 11.53 30*23 / 4337 *100 = 15.91

Ovviamente, la 4ª è quella che spende di meno, la 6ª è quella che spende di più.

Sopra i calcoli sono stati fatti con la calcolatrice online presente QUI. Con "disegnare(4b)" ivi presente sono tracciabili le case:

,&170&1 &23&2 &30&3 &23&4 &25&2 &20&3 &25&4 &26&2  &32&3 &26&4 &20&2 &18&3
&20&4 &35&2 &10&3 &35&4 &28&2 &25&3 &28&4 &31&2 &15&3 &31&4 &22&2 &20&3 &22&4

La figura può essere ottenuta molto facilmente anche con questo script:

 

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