计算银行还款 等额本金 85折 20年

#print "111/n";
$tax_1=5.94; 
$tax_2=6.14;  #20101019
$tax_3=6.40; #20101226
$tax_4=6.60; #20110209
$tax_5=6.80; #20110406
# $tax_2010_2=6.14;
$tax_2010_2=$tax_2010_1*(1+0.025);
#print "$tax_2010_2";
#print 0.2/5.94;  # 0.0336700336700337
#12*20=240个月
$total_daikuan=1000000; #总贷款数 
$month_daikuan=$total_daikuan/240; #每月贷款
$month_1=$total_daikuan*$tax_1/100/12*0.85; #第1个月利息
$month_1=($total_daikuan-(n-1)*$month_daikuan)*$tax_1/100/12*0.85; #第n个月利息
#print $month_1+$month_daikuan;
for(1..240){
    $month_1=($total_daikuan-($_-1)*$month_daikuan)*$tax_1/100/12*0.85; #第n个月利息
    print $_."  ".($month_1+$month_daikuan)."/n";
    }