Exam 8 Table M

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

So this morning I was studying retrospective pricing, and wrote some code to caculate insurance charge/savings in Table M.
Enjoy.

1. claims = {1000, 1500, 4000, 10000, 15000, 40000};
   
2. counts = {8, 3, 2, 5, 2, 1};
   
3. lr = {0.2,
   
4.   0.8};(*loss ratio at min/max*)
   
5. sp = 10000;(*standard premium*)
   
6. 
   
7. If[Length[claim] != Length[counts],
   
8.   Print["Input claims/counts incorrect!"]];
   
9. expA = (claims.counts)/Total[counts]*1.;
   
10. 
    
11. AH = Part[lr, 1]*sp;
    
12. AG = Part[lr, 2]*sp;
    
13. t1 = Table[
    
14.    Max[0, (Part[claims, i] - AG)*Part[counts, i]/Total[counts]], {i,
    
15.     1, Length[claims]}];
    
16. t2 = Table[
    
17.    Max[0, (AH - Part[claims, i])*Part[counts, i]/Total[counts]], {i,
    
18.     1, Length[claims]}];
    
19. 
    
20. \[Phi] = Total[t1]/expA;(*ins charge*)
    
21. \[Psi] =
    
22.   Total[t2]/expA;(*ins savings*)
    
23. nic = Total[t1] - Total[t2];
    
24. Print[{\[Phi], \[Psi], nic}]
    
25. 
    
26. {0.398577,0.0676157,2214.29}

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏0 回帖

关键词：Table ABLE Exam ABL tab insurance standard studying morning savings

forgot to mention it is Mathematica, but you can pretty easily convert to any language you like - and it is TIA example on page 131. (section B.1.)

你这是没中文输入法么单位电脑