(Fac-simile frontespizio tesi di laurea specialistica) - Scor

1.786304193
La frequenza media è stimata in
2.136664549
Il costo medio di un sinistro trasferito è stimato in
53436.37314
Infine, il premio di rischio è stimato in
114175.6041
Una procedura più snella è invece utilizzabile nel caso si ipotizzi di conoscere già il
parametro del modello di Pareto; in questo caso possiamo utilizzare la
schematizzazione seguente:
[>procRPv1:=proc(alpha,OP,CO,DE,freqOP) local alphal,
OPp, COp, DEp, freqOPp, frequenzap, valoremediosinp,
vmsp, premiodirischiop, RLp, alphastl;
[>alphastl:=alpha;
freqOPp:=freqOP;
OPp:=OP; COp:=CO; DEp:=DE;
[>frequenzap:=freqOPp*((OPp/DEp)^alphastl);
[>valoremediosinp:=proc(COq,DEq,alphastl) local a, c, d,
vms, errelle;
[>a:=alphastl;c:=COq;d:=DEq;errelle:=(c+d)/d;
[>if a=1 then vms:=d*ln(errelle);
[>else vms:=d*(errelle^(1-a)-1)/(1-a);
[>fi;
[>end;
[>vmsp:=valoremediosinp(COp,DEp,alphastl);
[>premiodirischiop:=(f,v)->f*v;
[>RLp:=premiodirischiop(frequenzap,vmsp);
[>print(`La frequenza media è stimata in`);
print(frequenzap);
[>print(`Il costo medio di un sinistro trasferito è
stimato in`); print(vmsp);
[>print(`Infine,
print(RLp);
il premio di rischio è stimato in`);
96