计算器全线坐标计算放样程序

《计算器全线坐标计算放样程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

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

3、^4)→Z[8]↙  （M1）Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^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[6]+Z[7])→S↙  （曲线总长）90*Z[6]/(R*π)→Z[14]↙    （第一缓和曲线总偏角）90*Z[7]/(R*π)→Z[15]↙（第二缓和曲线总偏角,可以省略）Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]

4、-Z[11])/SINA→Z[12]↙  (切线T1)Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→Z[13]↙  (切线T2)B+Z[12]*COS(E+180)→Z[16]↙  （ZH点X）C+Z[12]*SIN(E+180)→Z[17]↙  （ZH点Y）Z[1]-S→Z[3]↙      (ZH点里程)Z[3]+Z[6]→Z[4]↙  (HY点里程)Z[1]-Z[7]→Z[5]↙  (YH点里程)GOTO3↙LB1  3↙(判断里程点与曲线关系)IF  K≤Z[3]  AND  K>Z[2]:THEN  GOTO  4:IFEND↙IF

5、  K≤Z[4]  AND  K>Z[3]:THEN  GOTO  5:IFEND↙IF  K≤Z[5]  AND  K>Z[4]:THEN  GOTO  6:IFEND↙IF  K≤Z[1]  AND  K>Z[5]:THEN  GOTO  7:IFEND↙LB1  4↙（里程小于直缓点直线独立坐标）K-Z[3]→X:0→Y:E→T:PROG“TYZBCX”：GOTO  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/(336*R^3*Z

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

7、2*Z[7]^2)+H^9/(3456*R^4*Z[7]^4)→U↙H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙90*H^2/(R*π*Z[7])→T↙Z[13]COSA+Z[12]-U*COSA-V*SINA→X↙Z[13]*SINA-U*SINA+V*COSA→Y↙IF  O>0  ：THEN  F-T→T:T<0=>360+T→T:ELSE  F+T→T:IFEND↙PROG“TYZBCX”：GOTO  1↙子程序：“TYZBCX”↙  （统