Thousand people dead in Italy in 1951, in the age intervals [0,5),[5,10),[10,20),[20,30),[30,40),[40,50),[50,60),[60,75),[75,100).

Sull'asse verticale è rappresentata la frequenza percentuale unitaria (o densità)
On the y axis, the unitary percentage frequency (or density) is represented
(that is the percentage frequencies divided by the amplitude of each interval).

Puoi aprire il codice e modificare la funzione: vedi l'Help
You can open the Code and modify the function: see the Help
HELP

// I: estremi degli intervalli, P: frequenze
I=[0,   5,  10,  20,  30,  40,  50,  60,  75,  100]
P=[ 729, 35,  77, 132, 134, 285, 457, 1401, 1569]; NP=P.length
SUM=0; for(i=0;i<NP;i=i+1)  {SUM=SUM+P[i]}
mean=0; for(i=0;i<NP;i=i+1) {mean=mean+P[i]*(I[i]+I[i+1])/2}; mean=mean/SUM
Tot=0; for(i=0;i<NP;i=i+1) {Tot=Tot+P[i]}; for(i=0;i<NP;i=i+1) {P[i]=P[i]/Tot/(I[i+1]-I[i])}
LLx=[]; j=0; for(i=1;i<=NP;i=i+1) { LLx[j]=I[i-1]; LLx[j+1]=I[i-1]; LLx[j+2]=I[i]; LLx[j+3]=I[i]; j=j+4 }
LLy=[]; j=0; for(i=1;i<=NP;i=i+1) { LLy[j]=0; LLy[j+1]=P[i-1]; LLy[j+2]=P[i-1]; LLy[j+3]=0; j=j+4 }

aX = 0; bX = 100; aY = 0; bY = 3.5/100
Dx = 10; Dy = 0.5/100
XX=[50]; YY=[1/100,2/100,3/100]

...
yy=YY; xx=XX
// Q1x=[mean]; Q1y=[0]
C1="black"
L1x=LLx; L1y=LLy
...
AX=BX=AY=BY=""
BY = "Tot="+Tot;  // AY = "mean~"+mean
AAX=aX; BBX=bX; AAY=aY; BBY=bY
...
Co1="lightgrey"
...
Cgr2="violet"; yy1=yy