Puoi aprire il codice e modificarlo
HELP

...
aX = -5; bX = 115; aY = 0; bY = 4.5
Dx = 5; Dy = 0.1

titolo = "Morti per eta' in Italia nel 2006"

Cax="silver"; Cgr="silver"
quadro=1

C0=C1="black"
I=[0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100,105,110]
P=[43,5,6,16,23,26,28,37,56,88,141,225,350,518,814,1245,1771,2027,1643,727,195,17]; 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])*100}
L0x=[]; j=0; for(i=1;i<=NP;i=i+1) { L0x[j]=I[i-1]; L0x[j+1]=I[i-1]; L0x[j+2]=I[i]; L0x[j+3]=I[i]; j=j+4 }
L0y=[]; j=0; for(i=1;i<=NP;i=i+1) { L0y[j]=0; L0y[j+1]=P[i-1]; L0y[j+2]=P[i-1]; L0y[j+3]=0; j=j+4 }
L1x=[0,110]; L1y=[0,0]

Q0x=[mean]; Q0y=[0]

// 2027/10000/5*100 = 4.054  altezza istogramma
...
colxx="grey"
xx=yy=[]
yy=[1,2,3,4]
xx=[0,25,50,75,100]
...
AX=BX=AY=BY=""
BY = titolo
AAY=aY; BBY=bY
AY="Dx = "+Dx
AAX=aX; BBX=bX
...
if(quadro > 1 || quadro < 1) {AY=""; AX=""; BX=""; AAX=""; BBX=""; AAY=""; BBY=""}
AY=["[0, 110]"]
...