计算器全线标计算放样程序(修改第三版).doc

《计算器全线标计算放样程序(修改第三版).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、5800计算器全线坐标计算放样程序（修改第三版）5800计算器全线坐标计算放样程序（修改版）“XLZBJSCX”◢LB1  0↙CLS:FIX4:30→DIMZ↙“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y)0l(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视方位角)LB1  1↙“K=”?K◢（计算里程）IF  K<本段曲线终点里程  AND  K≥上段曲线终点里程：THEN  本段终点里程→Z[1]:上段曲线终点里程→Z[2]：1→0（注：左偏曲线输入-1→0,右偏

2、曲线输入1→0）:偏角→A：半径→R:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:G0T0  2:IFEND↙…………（曲线段分段输入）补充直线段输入如下IFK<本段直线终点里程AND  K≥本段直线起点里程:THEN1→0:本段直线终点里程→Z[2]:终点X→Z[16]:终点Y→Z[11]:方位角→E:G0T04:IFENDLB1  2↙（曲线要素计算）Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙  （M1）Z[7]/2-Z[6]^3/(240*R^2)+Z[7]^

3、5/(34560*R^4)→Z[9]↙  （M2）Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙  （P1）Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙  （P2）π*A*R/180+0.5*(Z[3]+Z[2])→W↙  （曲线总长）90*Z[6]/(R*π)→Z[14]↙  （第一缓和曲线总偏角）90*Z[7]/(R*π)→Z[15]↙（第二缓和曲线总偏角,可以省略）Z[8]＋（R+Z[10])TAN(A/2)-(Z[11]-Z[11])/SINA→Z[11]↙  (切线T1)Z[9]＋（R+Z[12])TAN(A/2)+(Z[

4、10]-Z[12])/SINA→Z[12]↙  (切线T2)B+Z[12]*C0S(E+180)→Z[13]↙  （ZH点X）C+Z[12]*SIN(E+180)→Z[15]↙  （ZH点Y）Z[1]-S→Z[3]↙    (ZH点里程)Z[3]+Z[6]→Z[4]↙  (HY点里程)Z[1]-Z[7]→Z[5]↙  (YH点里程)G0T03↙LB1  3↙(判断里程点与曲线关系)IF  K≤Z[3]  AND  K>Z[2]:THEN  G0T0  4:IFEND↙IF  K≤Z[4]  AND  K>Z[3]:THEN  G0T0  5:IFEND↙IF  K≤Z[5]  AND  K>Z

5、[4]:THEN  G0T0  6:IFEND↙IF  K≤Z[1]  AND  K>Z[5]:THEN  G0T0  7:IFEND↙LB1  4↙（里程小于直缓点直线独立坐标）K-Z[3]→X:0→Y:E→T:PR0G“TYZBCX”：G0T0  1↙LB1  5↙（第一缓和曲线独立坐标）K-Z[3]→H↙H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→X↙H^3/(6*R*Z[6])-H^7/(3362*R^3*Z[6]^3)→Y↙90*H^2/(R*π*Z[6])→T↙IF  0>0  ：THEN  T+E→T:ELSE  E-T→T:T<0=>

6、360+T→T:IFEND↙PR0G“TYZBCX”：G0T0  1↙LB16↙（圆曲线独立坐标）K-Z[4]→H↙H*180/(R*π)+Z[14]→T↙R*SINT+Z[8]→X↙R*(1-C0ST)+Z[13]→Y↙IF  0>0  ：THEN  T+E→T:ELSE  E-T→T:T<0=>360+T→T:IFEND↙PR0G“TYZBCX”：G0T0  1↙LB17↙（第二缓和曲线独立坐标）Z[1]-K  →H↙H-H^5/(40*R^2*Z[7]^2)+H^8/(3456*R^4*Z[4]^4)→U↙H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙90*

7、H^2/(R*π*Z[7])→T↙Z[13]C0SA+Z[12]-U*C0SA-V*SINA→X↙Z[13]*SINA-U*SINA+V*C0SA→Y↙IF  0>0  ：THEN  F-T→T:T<0=>360+T→T:ELSE  F+T→T:IFEND↙PR0G“TYZBCX”：G0T0  1↙子程序：“TYZBCX”↙  （统一坐标计算）IF  0<0  :THEN  -Y→Y:IFEND↙