5800计算器普通线路全线坐标中边桩计算程序2.docVIP

5800计算器全线坐标计算放样程序（修改版） 2009-09-18 14:54:42 5800边桩?方位角?21g（克）爱情?醉寒?qq座机电话号码0-?测量经验总结?杂谈? 分类：◆测量放样 5800计算器全线坐标计算放样程序（修改版） “XLZBJSCX”LB1??0 ↙CLS : FIX 4 : 30→DIM Z ↙“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[1] : 上段曲线终点里程→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 偏角→A：半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点 X→B :交点 Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : GOTO??2 : IFEND↙…………（曲线段分段输入）补充直线段输入如下IF K 本段直线终点里程 AND??K≥本段直线起点里程:THEN 1→O:本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E:GOTO 4:IFENDLB1??2 ↙（曲线要素计算）Z[6]/2- Z[6]^3/ 240*R^2 + Z[6]^5/ 34560*R^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]-Z[11] /SIN A→Z[12]↙?? 切线T1 Z[9]＋（R+Z[11] TAN A/2 + Z[10]-Z[11] /SIN A→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点里程 GOTO 3 ↙LB1??3 ↙ 判断里程点与曲线关系 IF??K≤Z[3]??AND??K Z[2] : THEN??GOTO??4 : IFEND ↙IF??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]^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 ↙LB1 6 ↙（圆曲线独立坐标）K- Z[4] →H ↙H*180/ R*π + Z[14]→T ↙R*SIN T+ Z[8]→X ↙R* 1-COS T + Z[10]→Y ↙IF??O 0??：THEN??T +E→T : ELSE??E-T →T : T 0 360+T→T : IFEND ↙PROG“TYZBCX” ：GOTO??1 ↙LB1 7 ↙（