计算器普通线路全线坐标中边桩计算程序

1、5800计算器全线坐标计算放样程序（修改版）(2009-09-18 14:54:42)标签：5800边桩 方位角 21g（克）爱情 醉寒 qq520095450- 测量经验总结 杂谈  分类：测量放样5800计算器全线坐标计算放样程序（修改版）                        

2、;                  “XLZBJSCX”LB1  0 CLS : FIX 4 : 30DIM Z “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)J<0=>J

3、+360J:"FH=":JDMS(后视方位角)LB1  1 “K=”?K :（计算里程）IF  K<本段曲线终点里程  AND  K上段曲线终点里程：THEN  本段终点里程Z1 : 上段曲线终点里程Z2 ：1O （注：左偏曲线输入-1O,右偏曲线输入1O）: 偏角A：半径R : 第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : GOTO  2 : IFEND（曲线段分段输入

4、）补充直线段输入如下IF K<本段直线终点里程 AND  K本段直线起点里程:THEN 1O:本段直线终点里程Z3:终点XZ16:终点YZ17:方位角E:GOTO 4:IFENDLB1  2 （曲线要素计算）Z6/2- Z63/(240*R2)+ Z65/(34560*R4) Z8   （M1）Z7/2- Z73/(240*R2)+ Z75/(34560*R4) Z9   （M2）Z62/(24*R)- Z64/(2688*R3) Z10   （P1）Z72/(24*R)- Z74/(26

5、88*R3) Z11   （P2）*A*R/180+0.5*( Z6+ Z7)S    （曲线总长）90* Z6/(R*) Z14     （第一缓和曲线总偏角）90* Z7/(R*) Z15 （第二缓和曲线总偏角,可以省略）Z8（R+Z10)TAN(A/2)-(Z10-Z11 )/SIN AZ12   (切线T1)Z9（R+Z11)TAN(A/2)+(Z10-Z11 )/SIN AZ13   (切线T2)B+ Z12*COS (E+180) Z16   

6、（ZH点X）C+ Z12*SIN(E+180) Z17    （ZH点Y）Z1-SZ3        (ZH点里程)Z3+ Z6Z4    (HY点里程)Z1- Z7Z5    (YH点里程)GOTO 3 LB1  3 (判断里程点与曲线关系)IF  KZ3  AND  K> Z2 : THEN  GOTO  4 : IFEND IF 

7、60;KZ4  AND  K> Z3 : THEN  GOTO  5 : IFEND IF  KZ5  AND  K> Z4 : THEN  GOTO  6 : IFEND IF  KZ1  AND  K> Z5 : THEN  GOTO  7 : IFEND LB1  4 （里程

8、小于直缓点直线独立坐标）K- Z3 X : 0Y : ET : PROG“TYZBCX” ：GOTO  1 LB1  5 （第一缓和曲线独立坐标）K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) X H3/(6*R* Z6)-H7/(336*R3* Z63) Y 90*H2/( R* Z6) T IF  O>0  ：THEN  T +ET : ELSE  E-T T : T<0=>360+TT : IFEND PROG“

9、TYZBCX” ：GOTO  1 LB1 6 （圆曲线独立坐标）K- Z4 H H*180/( R*)+ Z14T R*SIN T+ Z8X R*(1-COS T)+ Z10Y IF  O>0  ：THEN  T +ET : ELSE  E-T T : T<0=>360+TT : IFEND PROG“TYZBCX” ：GOTO  1 LB1 7 （第二缓和曲线独立坐标）Z1 -K  H H-H5/(40*R2* Z72)+H9/(345

10、6*R4* Z74) UH3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS A+ Z12-U*COS A-V*SIN AX Z13*SIN A-U*SIN A+V*COS AY IF  O>0  ：THEN  F-TT : T<0=>360+TT : ELSE  F+T T : IFEND PROG“TYZBCX” ：GOTO  1 子程序：“TYZBCX”    （统一坐标计算）IF &

11、#160;O<0  : THEN  -YY : IFEND “QXJ=” :T    （计算里程点切线方位角，可以不显示）Z16+X*COS E-Y*SIN EZ18 Z17+X*SIN E+Y*COS EZ19 “XI=” : Z18    （中线X）“YI=” : Z19    （中线Y）Pol(Z18-M,Z19-N):"DI=":I（中桩放样距）J<0=>J+360J:"FI=":JDMS（中桩放样方位角）“PJ=”?P     (输入边桩与线路夹角，左-右+)“PD=”?D    （输入边桩距）Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”