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

[>end;
procRPv1 := proc ( α, OP, CO, DE, freqOP)
local alphal , OPp, COp, DEp, freqOPp, frequenzap, valoremediosinp, vmsp,
premiodirischiop, RLp, alphastl ;
alphastl := α;
OPp := OP;
COp := CO;
DEp := DE;
freqOPp := freqOP;
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 )
end if
end proc ;
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, il premio di rischio è stimato in` ) ;
print( RLp )
end proc
[>procRPv1(1.786304193,50000,100000,100000,7.37);
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
97