CASIOfx-5800程序.docVIP

1.ZBJS (坐标计算主程序) 10→Dim Z:“1.ZX,2.YX”?C:“1.ZS,2.FS”?E:E=2=Goto 2 “X00”?A:“Y00”？B Lbl 1:?K:?Z:Prog “1.YS”:Prog“1.HQ”: “X=”:X-Zsin(Z[1]) →Q▲ “Y=”:Y+Zcos(Z[1]) →S▲ Pol(Q-A,S-B):J0=J+360→J “D=”:I▲ “F=”:J▼DMS▲ Goto 1 0→K Lbl 2:“XP”?Q:“YP”?S:“HP”?I:I→Z[4] Lbl 3:Prog“1.YS”:Prog“1.HQ”:(X-Q)sin(Z[1]+90)-(Y-S)cos(Z[1]+90) →I:If Abs(I)≥0.0001:Then K-I→K:Goto 3:IfEnd “K=”:K▲ “Z=”:(X-Q)sin(Z[1])-(Y-S)cos(Z[1]) →Z▲ Prog“2.GC”:Prog“1.R” Goto 2 1.YS (平曲线要素 子程序) If C=1:Then If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd: If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd:IfEnd If C=2:Then If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd: If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd:IfEnd 1.HQ (坐标计算 子程序) K-D+T→I If I≤0:Then I→X:0→Y:0→Z[1]:Goto 1:IfEnd If I≤M:Then I-I∧(5)÷(40R2M2) →X:I∧(3)÷(6RM)-I∧(7) ÷(336 R∧(3) M∧(3)) →Y:90I2÷(πRM) →Z[1]:Goto 1:IfEnd If I≤L-N:Then 180(I-M)÷（Rπ）+90M÷（Rπ）→Z[1]:Rsin(Z[1])+M÷2-M∧(3)÷（240R2）→X:R(1-cos(Z[1]))+M2÷（24R） If I≤L:Then L-I→I:F+WO-W(90I2÷（πRN） If IL:Then K-D+T-L→J:F+WO→Z[1]:U+Pcos(Z[1])+Jcos(Z[1])→X:V+Psin(Z[1])+Jsin(Z[1])→Y:Return:IfEnd Lbl 1:X→I:WY→J:U+Tcos(180+F)+Icos(F)-Jsin(F)→X:V+Tsin(180+F)+Isin(F)+Jcos(F)→Y:F+WZ[1]→Z[1] 1.R (半径计算 子程序) 说明：X表示圆心至测设线的距离，Y表示圆心至设计高程的距离。 ****→Z[11](O1 X坐标):*