#perl report
#(ts0+ts+ts1+ts2)
@bet=('a','ad','ad1','ad2',100,-100,5,5,5,5,80,90,100,1);
my ($bet_user,$bet_ad,$bet_ad1,$bet_ad2);
print("@bet/n");
#method=0:計算各級退水
#method=1:計算取**級退水
#method=2:計算到總**級退水
$method=1;
if($method=1)elsif($method=2)
#0$bet_u_tr=@bet[4]*@bet[13];
$bet_u_end=(@bet[5]+@bet[6]);
print("users:@bet[0]/nbet_u_all:@bet[4]/nbet_u_true:@bet[4]*@bet[13]=$bet_u_tr/nbet_u_end:@bet[5]+@bet[6]=$bet_u_end/n----/n");
#1$bet_ad_u=@bet[5]+@bet[6];#$bet_u_end
$bet_ad=@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9];
$bet_ad_end=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(1-@bet[10]*0.01)-@bet[8]-@bet[9];
$bet_ad_end_self=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*@bet[10]*0.01-@bet[7];
$bet_ad_ad1_u=$bet_ad_end-$bet_u_end;
print("bet_ad_u:$bet_ad_u/nbet_ad:$bet_ad/nbet_ad_end:$bet_ad_end/nbet_ad_end_self:$bet_ad_end_self--@bet[10]/n");
print("bet_ad_ad1_u:$bet_ad_ad1_u/n----/n");
#2$bet_ad1_ad=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(1-@bet[10]*0.01)-@bet[8]-@bet[9];#$bet_ad_end
$bet_ad1_end=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(1-@bet[11]*0.01)-@bet[9];
$bet_ad1_end_self=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(@bet[11]-@bet[10])*0.01-@bet[8];
$bet_ad1_ad1_ad=$bet_ad1_end-$bet_ad1_ad;
print("bet_ad1_ad:$bet_ad1_ad/nbet_ad:$bet_ad/nbet_ad1_end:$bet_ad1_end/nbet_ad1_end_self:$bet_ad1_end_self--[@bet[11]-@bet[10]]/n");
print("bet_ad1_ad1_ad:$bet_ad1_ad1_ad/n----/n");
#3$bet_ad2_ad1=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(1-@bet[11]*0.01)-@bet[9];#$bet_ad1_end
$bet_ad2_end=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(1-@bet[12]*0.01);
$bet_ad2_end_self=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(@bet[12]-@bet[11])*0.01-@bet[9];
$bet_ad2_ad2_ad1=$bet_ad2_end-$bet_ad2_ad1;
print("bet_ad2_ad:$bet_ad2_ad1/nbet_ad:$bet_ad/nbet_ad2_end:$bet_ad2_end/nbet_ad2_end_self:$bet_ad2_end_self--[@bet[12]-@bet[11]]/n");
print("bet_ad2_ad2_ad1:$bet_ad2_ad2_ad1/n----/n");
#4$bet_adc_ad2=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(1-@bet[12]*0.01);#$bet_ad2_end
$bet_adc_end_self=(@bet[5]+@bet[6]+@bet[7]+@bet[8]+@bet[9])*(100-@bet[12])*0.01;
$bet_adc_adc_ad2=0-$bet_adc_ad2;
print("bet_adc_ad:$bet_adc_ad2/nbet_ad:$bet_ad/nbet_adc_end:$bet_adc_end/nbet_adc_end_self:$bet_adc_end_self--[100-@bet[12]]/n");
print("bet_adc_adc_ad2:$bet_adc_adc_ad2/n----/n");