model:sets: r/1..5/: a,b,c;endsetsdata: a= 900 1000 1000 1100 1200; c= 5 4 3 2 1; y=?;enddata@for(r(i):b(i)=@if(a(i)#LE#y,1,0)*a(i)+ @if(y#LT#a(i)#and#a(i)#LE#(y+500),1,0)*(a(i)-(a(i)-y)*0.05)+
@if((y+500)#LT#a(i)#and#a(i)#LE#(y+2000),1,0)*(a(i)-(a(i)-y)*0.10+25)+ @if((y+2000)#LT#a(i)#and#a(i)#LE#(y+5000),1,0)*(a(i)-(a(i)-y)*15/100+125)+@if((y+5000)#LT#a(i)#and#a(i)#LE#(y+20000),1,0)*(a(i)-(a(i)-y)*20/100+375)+ @if((y+20000)#LT#a(i)#and#a(i)#LE#(y+40000),1,0)*(a(i)-(a(i)-y)*25/100+1375)+@if((y+40000)#LT#a(i)#and#a(i)#LE#(y+60000),1,0)*(a(i)-(a(i)-y)*30/100+3375)+ @if((y+60000)#LT#a(i)#and#a(i)#LE#(y+80000),1,0)*(a(i)-(a(i)-y)*35/100+6375)+@if((y+90000)#LT#a(i)#and#a(i)#LE#(y+100000),1,0)*(a(i)-(a(i)-y)*40/100+10375)+@if(a(i)#GT#(y+100000),1,0)*(a(i)-(a(i)-y)*45/100+15375));max=@sum(r(i):b(i)*c(i))/@sum(r(i):b(i));end |
