缓和曲线5800版中边桩计算程序修改版

《缓和曲线5800版中边桩计算程序修改版》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CASIOfx5800p计算器程序程序名：HHQX"JD"?Q:"JDX"?W:"JDY"?K:?R:"QDFWJ"?F:"ZJZ"?N:"LS"?V:"-L,+R"?G:"QDZH"?C:"ZDZH"?D:”ZJX"?A:”ZJY”?B8→DimzV÷2-V^(3)÷(240R2)→MV2÷(24R)－V^(4)÷(2688R^(3))→PpRN÷180+V→LM+(R+P)tan(N÷2)→TQ-T→Z[5]Z[5]+V→Z[6]Z[5]+L→Z[8]Z[8]-V→Z[7]Rec(T，F+180)W+I→Z[

2、1]:K+J→Z[2]Rec(T，F+GN)W+I→Z[3]:K+J→Z[4]Lbl0"SQZH,<0双横线到（→多加一条横线）END="?HIfH<0:ThenGoto8:IfEnd"BIANJU"?S:"JIAJIAO"?EIfHD:ThenGoto0:IfEndIfH

3、:IfEndLbl1Rec(Q-H，F+180)W+I→X:K+J→YRec(S，F+E)"X=":X+I→X◢"Y=":Y+J→Y◢Goto7Lbl2H-Z[5]→Z90Z2÷(pRV)→OZ-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→XZ^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→YRec(√(X2+Y2)，F+Gtan-1(Y÷X))Z[1]+I→X:Z[2]+J→YRec(S，F+GO+E)"X=":

4、X+I→X◢"Y=":Y+J→Y◢Goto7Lbl3H-(Q-T)-V÷2→Z180Z÷(Rp)→ORsin(O)+M→XR(1-cos(O))+P→ZRec(X，F)3CASIOfx5800p计算器程序Z[1]+I→X:Z[2]+J→YRec(Z，F+90G)X+I→X:Y+J→YRec(S，F+OG＋E)X+I→XY+J→Y"X=":X◢"Y=":Y◢Goto7Lbl4Z[8]-H→Z90Z2÷(VRp)→OZ-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→XZ^(3)÷(6RV

5、)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→YRec(√(X2+Y2)，F＋GN+180-Gtan-1(Y÷X))Z[3]+I→X:Z[4]+J→YRec(S，F+GN+180-OG-(180-E))"X=":X+I→X◢"Y=":Y+J→Y◢Goto7Lbl5Rec(H-Z[8]+T，F+GN)W+I→X:K+J→YRec(S，F+GN+E)"X=":X+I→X◢"Y=":Y+J→Y◢Goto7Lbl7Pol(X-A，Y-B)IfJ<0:ThenJ+360→

6、J:IfEnd"FWJ=":JDMS◢"CJ=":I◢Goto0Lb18:”HHQX双横线箭头（→多一横）END”注：FYXY程序单代号Q"JD"交点里程桩号W"JDX"交点X坐标值K"JDY"交点Y坐标值R圆曲线半径F"QDFWJ"第一直线段方位角N"ZJZ"交点转向角(转角值)V"LS"缓和曲线长度G"-L,+R"如果为左转角输入“－1”，如果为右转角输入“1”C"QDZH"所求段起点里程桩号D"ZDZH"所求段终点里程桩号ZJX置镜点Ｘ坐标ZJY置镜点Y坐标H"SQZH"所求点的里程桩号S"BIANJU"边

7、桩至中桩的距离，求中桩时输入0距离不为负E"JIAJIAO"左边桩输入“－90”，右边桩输入“90”3CASIOfx5800p计算器程序XY所求点的坐标值CJ置镜点至待求点的距离FWJ置镜点至待求点的方位角3