po 3890 if (abs juzhong)>=0 and (abs juzhong)<=(lukuanb/2+zjiakuan) then juzh=lichenh+zhonggaih+(abs juzhong)*po 3900 if (abs juzhong>(lukuanb/2+zjiakuan))and (abs juzhong<=zuokuan) then juzh=lichenh+zhonggaih+(lukuanb/2+zjiakuan)*po-(abs(juzhong)-(lukuanb/2+zjiakuan))*luj ianpo 3910 endif 3920 if juzhong>=0 then 3930 po=(ygaih-zhonggaih)/(lukuanb/2) 3940 if (abs juzhong)>youkuan then juzh=lichenh+zhonggaih+(lukuanb/2+yjiakuan)*po-lujian*lujianpo 3950 if abs(juzhong)>=0 and (abs juzhong)<=(lukuanb/2+yjiakuan) then juzh=lichenh+zhonggaih+abs(juzhong)*po 3960 if (abs(juzhong)>(lukuanb/2+yjiakuan))and (abs(juzhong)<=youkuan) then juzh=lichenh+zhonggaih+(lukuanb/2+yjiakuan)*po-(abs(juzhong)-(lukuanb/2+yjiakua))*luj ianpo 3970 endif 3980 if juzhong>=0 then duanfang=faxianr else duanfang=faxianl