4800程序(自用)

《4800程序(自用)》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、该程序适用于计算器CASIOfx-4800，4850P，可计算线路非对称非完整缓和曲线、圆曲线、直线段的中、边桩坐标及切线方位角。主程序“XY”{KOLR}:K“BZ=0”:P=(E-D)÷Abs（G-F）:Q=Abs(H-F):I=P×Q:J=C+(I+2D)×Q×90÷兀◢M=C+（I÷4+2D）×Q×45÷(2兀):N=C+（3I÷4+2D）×Q×135÷(2兀):Z[1]=C+（I÷2+2D）×Q×45÷兀:X=A+Q÷12×(cosC+4(cosM+cosN)+2cosZ[1]+cosJ)◢Y=B+Q÷12×(sinC+4(sinM+sinN)+2sin

2、Z[1]+sinJ)◢K≠0=>Goto1⊿O“AP”:U“XL”=X+Lcos(J+O+180)◢U“YL”=X+Lsin(J+O+180)◢U“XR”=X+Rcos(J+O)◢U“YR”=Y+Rsin(J+O)◢子程序“？”LbI1：{H}:H“DKI”:H＜？=>Goto1⊿（起点里程）H＞?Goto1⊿(终点里程)H≤?（各段起点里程）=>A=?:(起点N(X)坐标)B=?：(起点E(Y)坐标)C=？：（起点切线方位角）D=?:(起点曲率=1/R,左负右正)E=？：(终点点曲率=1/R,左负右正)F=?:(各段起点里程)G=?:(各段终点里程)Prog“X

3、Y”:Goto1⊿万能程序LbI0：{EG}:A“XA”:B“YA”:C“CA”:D“1÷RA”:E“1÷RB”:F“DKA”：G“DKB”：LbI1:{HLRO}:H“DKI”:H＞G=>G⊿P=(E-D)÷Abs（G-F）:Q=Abs(H-F):I=P×Q:J=C+(I+2D)×Q×90÷兀◢M=C+（I÷4+2D）×Q×45÷(2兀):N=C+（3I÷4+2D）×Q×135÷(2兀):Z[1]=C+（I÷2+2D）×Q×45÷兀:X=A+Q÷12×(cosC+4(cosM+cosN)+2cosZ[1]+cosJ)◢Y=B+Q÷12×(sinC+4(sinM+

4、sinN)+2sinZ[1]+sinJ)◢H=G=>Goto2⊿O“AP”:U“XL”=X+Lcos(J+O+180)◢U“YL”=X+Lsin(J+O+180)◢U“XR”=X+Rcos(J+O)◢U“YR”=Y+Rsin(J+O)◢Goto1:LbI2:A=X:B=Y:C=J:D=E:F=G:Goto0: