5800p盾构管片计算程序
Casio 5800P计算程序3
Casio fx- 5800P 道路中边桩计算（线元法）主程序QZFix 3:Deg:Lbl 4:″1.SZ=>XY″：″2.XY=>SZ″：″1，2″？Q：″S=″？S：Prog″Z1″↙Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEnd↙Lbl 1: ″B=″?Z: ″F=″?G:Prog ″Z2″: ″X=″:N→N◢″Y=″:E→E◢″QXFWJ″:F→F:F DMS◢Goto 4↙Lbl 2: ″XZB=″?→B: ″YZB=″?→C:B→N:C→E:Prog ″Z3″: ″LICHENG=″:S→S◢″OUT JL=″:Z→Z◢Goto 4↙数据库子程序Z1Lb l 1↙If S<5126.802:Then 34304.063→U:72029.684→V:5046.802→O:99°09′36″→A:80→L:220→P:10^(45) →R:Return:IfEnd↙If S<5239.113:Then 34281.903→U:72106.431→V:5126.802→O:109°34′38.5″→A:112.311→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5319.113:Then 34224.270→U:72212.249→V:5239.113→O:109°34′30″→A:80→L: 10^(45)→P:-200 →R:Return:IfEnd↙If S<5444.453:Then 34222.582→U:72289.106→V:5319.113→O:98°07′05.2″→A:125.34→L: -200→P:-200 →R:Return:IfEnd↙If S<5524.453:Then 34243.645→U:72410.593→V:5444.453→O:62°12′40.3″→A:80→L: -200→P: 10^(45) →R:Return:IfEnd↙If S<5644.634:Then 34289.939→U:72475.663→V:5524.453→O:50°45′04.7″→A:120.181→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5724.634:Then 34365.976→U:72568.732→V:5644.634→O:50°45′05.2″→A:80→L: 10^(45)→P:200 →R:Return:IfEnd↙正算子程序Z205(1/r-1/p)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+G)→N:E+Zsin(F+G)→E↙Return反算子程序 Z3Lbl 1:0→Z:1→Q:Prog”Z1”:0.5(1/R-1/P)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+90)→N:E+Zsin(F+90)→E↙Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→S↙If Abs(W)>0.0001:Then Goto 1:IfEnd↙Lbl 2:0→Z: ″Z2″:(C-E)/sin(F+90)→Z↙Retun注：1：数据库里面的角度为线元起算方位角；2：L，P为线元起始半径，直线以及缓和段取10^45,左负右正；3：主程序1为正算，2为反算，S所需算的桩号，B边桩距离，F边桩起算夹角，左负右正；“SQXJS”↙“KBPO=”?J:”BG=”?B:”I1=”?C:”I2=”?D:”R=”?R↙“QIEXIAN=”:R*Abs(D-C)/2→T◢“QIDIAN=”:J-T→X◢“ZHONGDIAN=”:J+T→Y◢If D-C>0:Then 1→V:Else -1→V:IfEnd↙LBl 0↙“JSK=”?L↙If L≤X:Then B-(T-(L-X))*C+V*(L-X)^2/(2R)→W:Else B+(T-(Y-L))*C+V*(Y-L)^2/(2R) →W:IfEnd↙“JSGC=”:W◢Goto 0↙Return“J表示变坡点桩号，B为变坡点高程，C前纵坡坡度，D后纵坡坡度，R为竖曲线半径，T切线长，X起点桩号，Y终点桩号，V计算参数（凹形取1，凸形取-1），L 需要计算的桩号，W计算点高程“ZBFS”↙Deg:ClsStat:FreqOn:Fix 3↙Lbl 0↙“XA(m)=”?A: “YA(m)=”?B↙“XB(m)=”?C: “YB(m)=”?D↙Pol(C-A,D-B):Cls↙If J<0:Then J+360→R:Else J→R:IfEnd↙“DIST A→B(m)=”:I◢“BEAR A→B(DMS)=”:R DMS ◢ClrStat:FreqOn↙Lbl 1↙0→M↙“ANGEL(Deg)=”?→Q↙“DIST(m)=”?→S↙Q+R→M↙A+S*cos(M)→X↙B+S*sin(M)→Y↙“XC(m)=”:X◢“YC(m)=”:Y◢0→N↙“ANGEL2(Deg)=”?→P↙“DIST2(m)=”?→T↙P+R→N↙A+T*cos(N)→U↙B+T*sin(N)→Z↙“XD(m)=”:U◢“YD(m)=”:Z◢“FAN=”?W↙If W=0:Then Goto 0:Else Goto 1:IfEnd↙Return。
工程测量中fx-5800P计算器基本程序
工程测量中fx-5800P计算器基本程序的编写及实际放线的应用刘兵策刘杰摘要在日常工程测量工作中，计算器是必不可少的工具。
目前行业内用fx-5800P。
本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写，并对其比较复杂的实际放线的灵活应用进行解析，为类似的测量工作提供借鉴。
关键词工程测量fx-5800P程序应用1 引言控制测量是施工的基础，为了便于施工，放线一般使用施工坐标系，坐标轴平行于建筑物主轴线。
对于建筑物主轴线与坐标轴不平行的，为了方便放线，一般不再改变坐标系，用计算器程序进行计算，迅速判断需要定位的点。
利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值，指挥棱镜进行移动，找到准确的设计位置。
测量工作中主要用到坐标正反算，大地转施工，施工转大地等常用程序，下面介绍这几个程序的原理和编写，总结一些在实际工作中的应用。
2 Fx-5800计算器程序的原理与编写2.1 大地坐标转换为施工坐标大地坐标转换为施工坐标见图1。
Xp、Yp分别是P点在XOY坐标系中的纵横坐标，xp，yp分别是xo’y坐标系中的纵横坐标值，Xo，Yo分别是xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐标值，Δα为两坐标系坐标纵轴的夹角。
将P点从XOY坐标系转换到xo’y坐标系中，即大地转施工的公式如下：图1 大地坐标与施工坐标转换图xp=（Yp-Yo）sinΔα+（Xp-Xo）cosΔα；yp=（Yp-Yo）cosΔα-（Xp-Xo）sinΔα；用fx-5800P编制程序时，只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标，即在坐标系XOY坐标系中的坐标，再用上述公式带入，输出P点的施工坐标。
基本程序如下：“X1=”?A:”Y1=”?B: (输入xoy的原点的大地坐标）“X2=”?U:”Y2=”?V: (输入要转换的P点的大地坐标）“F=”:F (输入方位角）“X=”:（V-B)sinF+（U-A）cosF->X (输出P点的施工坐标X值）“Y=”:（V-B)cosF-（U-A）sinF->Y (输出P点的施工坐标Y值）输出坐标时，可以用计算器中的一个极坐标的逆运算代替，即去掉最后两行，换成Pol（U-A,V-B):J<0=>J+360->J“W=”:J-F->WRec（I，W）这种方法计算器的运算效率比较高，编程也比较简便。
自编CASIO FX-5800P隧道超欠挖程序
自编卡西欧fx-5800P隧道超欠挖程序作者：何威该程序由“卡西欧fx-4800P隧道超欠挖程序”改编而成，其运行原理与操作方法与其相同。
1.主程序（WSK-CQW）"XO"?U："YO"?V："SO"?O："FO"?G："LS"?N："RO"?P："RN"?R：?Q←┘1÷P→C：(P-R)÷(2N PR) →D：180÷π→E←┘Lbl2：?X：?Y：?H：X→I：Y→J←┘G-90→T：(Y-V)cos(T)-(X-U)sin(T)→W：Abs(W)→W：0→Z←┘LbI 4：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cos(L)-(I-X)sin(L)→Z←┘If Abs(Z)＜10∧(-6）：Then 0→Z ：Prog"SUB1"：(J-Y)÷sin(F)→Z：Else W+Z→W：Goto 4：IfEnd：O+W→S←┘"Z="：Z◢"S="：S◢√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘"CQW="：M◢Goto 2←┘2.正算子程序（SUB1）0.1739274226→Z[1]：0.3260725774→Z[2]：0.0694318442→K：0.3300094782→L←┘1-L→F:1-K→M←┘U+W(Z[1]cos(G+QEKW(C+KWD))+Z[2]cos(G+QELW(C+LWD))+Z[2]cos(G+QEFW( C+FWD))+Z[1]cos(G+QEMW(C+MWD))→X←┘V+W(Z[1]sin(G+QEKW(C+KWD))+Z[2]sin(G+QELW(C+LWD))+Z[2]sin(G+QEFW(C+ FWD))+ Z[1]sin(G+QEMW(C+MWD))→Y←┘G+QEW(C+WD)+90→F：X+Zcos(F)→X：Y+Zsin(F)→Y一．补充1.输入显示说明X0 ？线元起点的X坐标Y0 ？线元起点的Y坐标S0 ？线元起点里程F0 ？线元起点切线方位角LS ？线元长度R0 ？线元起点曲率半径RN ？线元止点曲率半径Q ？线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0）S ？所求点的里程Z ？所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)CQW? 所求点的超欠挖2. 若隧道所测部位有两种圆心时，利用圆心所对应的弧的分段高度划分可设置两个选择条件，于是只需将主程序中“√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘”中改为“IfH>内轨顶标高+圆心O1分段高度：Then√( (H-内轨顶标高-圆心O1距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心O1相对遂中距离)²)-R1→M ：Else√( (H-内轨顶标高-圆心O2距离内轨顶高差)²+ (Abs(Z+线中相对遂中距离)+圆心O2相对遂中距离)²)-R2→M：If End←┘”3. 若所测隧道断面无需在经常在线元之间转换时，也可以将主程序中U(线元起点X坐标)，V(线元起点Y坐标)，O(线元起点里程)，G(线元起点切线方位角)，N(线元长度)，P(线元起点半径)，R(线元终点半径)，Q(曲线左偏为-1右偏为1直线为0)等曲线要素赋予定值，可减少在工作中的输入量。
CASIO5800程序编辑说明
CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。
CASIO5800P 程序
CASIO5800P1：程序名：QXJS CO“L=”？L:“LI CHENG=”?W↓提示输入里程桩号LbI A↓For 1→N To 20↓输入交点编号为1至20L=1=＞Prog“1XY”←当输入L=1时，启用数据库“1XY”。
If W>Rep(Z)AndW<Imp(Z):Then Prog“MP”:Goto 0: IfEnd:Next↓“--LI CHENG---？”:Stop↓当输入里程Z大于或小于所启用的数据库的里程范围时停止计算LbI 0↓If K<0:Then Q→X:0→Q:0→J:S+C→I:AbS(K) →K:Goto 3 :IfEnd↓Goto 2↓LbI 1↓Q<0=＞360+Q→Q↓“LI CHENG=”?W↓If W>Rep(Z) AndW<Imp(Z):Then Goto 2:EIse“>>>>”:Goto A :IfEnd↓LbI 2↓0→J↓μ0+Abs(W-Abs(K))→I↓W:K<0=＞-W↓If Ans<K:Then 0→U:-I:Goto 4:IfEnd↓I>S+C=＞S+C→I↓LbI 3↓If I<S:Then I2r÷(2RS) →U:I-I∧(5) ÷(40R2S2)+i(I∧(3)÷(6RS)-I∧(7) ÷(336R∧(3)S∧(3)) :EIse (2I-S) r ÷(2R) →U:Z[2]+R(Sin(U)-icos(U)+i):IfEnd↓LbI 4↓J+Anscos(Q)+AnsiSin(Q) →J↓If I=S+C:Then Q+A→Q: -K-I-T→K:T→I:S→T:I→S:-R→R:Prog“MP”:Goto 3:IIfEnd↓If Q+A=0:Then X-A-180→Q:K+Rep(J)+Imp(J) ÷tan(A) →K:O+Imp(J)(cos(Q)+i sin(Q)) ÷sin(A)→O:Goto 2:IfEnd↓If I=S:Then Q-180→Q:O+J→O:Goto 2:IfEnd↓K <0=＞U-180→U↓Q+U→U↓“BIAN JU=”?E↓Rep(O)+Rep(J)-Esin(U) →X:Imp(O)+Imp(J)+Ecos(U) →Y↓CIs:Fix3:Locate1,1, “X=”: Locate7,2,X: Locate 1,3, “Y=”: Locate 7,4,Y▲If E=x10-6:Then Prog “BYXY”:Goto1:IfEnd↓Goto 1↓Prog“ZBFS”:Goto1↓备注：程序中“↓”为回车键，“-”CASIO计算器的（-）键，“i”虚数i。
卡西欧计算器5800隧道正反算、隧道超欠挖计算程序
隧道程序卡西欧计算器5800隧道正反算、隧道超欠挖计算程序在隧道中的应用，速度有点慢概述：本图采用蓝星2.3版本程序隧道断面程序由三个子程序构成1.1-SDZS 隧道正算，具有三维坐标功能。
2.1-SDFS 隧道反算。
3.1-CQW 隧道超欠挖检测程序。
其余均为子程序，本程序还有许多需要改进的地方，欢迎大家提供宝贵的意见。
有兴趣的可以把三个程序汇总。
本程序为三维坐标全能程序，正在调试阶段，期待和大家一起提高，一起进步。
隧道超欠挖计算程序1.正算主程序1-SDZSLb1 0：“KP”?S（待求桩号）：“BIANZHU”?Z（边距）：Prog “PM-SJ”：Abs(S-O) →W：Prog "SUB1"：X：Y: F-90→F:S→K:Prog“SQX”：“XS=”（X正算坐标）:Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y: “BC=”(方位角):Locate6,4, F°:“H=”（高程）:Locate6,4, H◢Goto 02.反算主程序1-SDFSLb1 0: “KP”?S：“CZX”?X：CZY”？Y（测站坐标）：Prog “PM-SJ”：X→I：Y→J：Prog "SUB2"：O+W→S："S="：Locate6,4,S: "Z="：Locate6,4,Z: S→K:Prog“SQX”：F-90→F: “BC=”:Locate6,4, F°: “H=”：H◢3.隧道3心圆检测程序1-CQW程序说明：为了精简，不含数据库，直接把断面的相关数据插入程序内，一些相关的数据，请仔细去推敲它的来历1. 0.729为设计高程到仰拱临界面的高差2. 10.6为设计标高到O3的高差3. 12为O3的半径4. 0.131为设计高程到O2临界点的高差5. 3.498为O2临界宽度6．0.59为设计高程到O2的高差7. 1.8为设计高程到O1的高差8. 1.4为O2半径9. 5.1为O1半径Fix3:Lb1 1：Prog“SDFS”:“HC”?F：“Z”? Z:If F＜H-0.729:Then √(Z2+(10.6+H-F)2 )-12→W:Eles If F≥H-0.729 AND F ≤H+0.131:Then Abs(Z)-3.498→Z:√((Z2+(H+0.59-F)2-1.4→W :Eles √((F-H-1.8)2+Z2)-5.1→W: IfEnd: IfEnd“CQHD”?（衬砌厚度）A:W=”: W-A→W◢Goto14.正算子程序(SUB1)1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+ Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+B sin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y5.反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sin（T）) →W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL →Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z→W：Goto 0：IfEndLbl 1：0→Z：Prog "SUB1"：(J-Y)÷sinF→Z6.子程序（平面线形数据库）PM-SJIf S ≥98509.97（线元起点里程）Then 2963.804→U（线元起点X坐标）：2770.297→V（线元起点Y坐标）：98509.97→O（线元起点里程）：200°13′51.45″→G（线元起点方位角）：35 →H （线元长度）：10^(45)→P（线元起点曲率半径）：164.4→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEndIf S ≥98544.97（线元起点里程）Then2931.426→U（线元起点X坐标）：2757.04→V（线元起点Y坐标）：98544.97→O（线元起点里程）：206°19′57.88″→G（线元起点方位角）：27.891 →H（线元长度）：164.4→P（线元起点曲率半径）：164.4→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEndIf S ≥98572.86（线元起点里程）Then2907.597→U（线元起点X坐标）：2742.613→V（线元起点Y坐标）：98572.86→O（线元起点里程）：216°3′10.13″→G（线元起点方位角）：35 →H（线元长度）：164.4→P（线元起点曲率半径）：10^(45)→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）SQX101.43→Z[1](变坡点高程):98792→B(变坡点桩号):720→R(半径):43.092→T(切线长):-.0512→J（后纵坡）:0.0676→I（前纵坡）: K:B-K→C : 1→U:I>J＝＞-1→UIf K<B-T then 0→A: I →P:Goto 1: IfEnd: If K<B then 1→A: I→P: Goto 1: IfEnd: If K<B+T then 1→A: J→P: Goto 1 :IfEnd: If K>B then 0→A: J→P: Goto 1: IfEndLbI 1: Z[1]-CP+AU(T-Abs (C))2÷2÷R→H: Return平曲线要素表角度采用十进制小数模式，请采用普通模式版图观看才能正常显示。
5800计算器隧道测量程序
5800计算器隧道测量程序Y（正算主程序）（P－R）÷（2HPR）→Z：N=1=﹥Goto 1：If N=2：Then Goto 2↙Lbl 1：〝DKI？S：〝ZD=0〞？D：D→D：Abs（S-O）→W：Prog〝B1〞：〝X=〞：X◢〝Y=〞：Y◢F-90→F：〝XC〞？C：〝YC〞？E：0→I：0→J：Pol（X-C，Y-E）：J ≤0=﹥J+360→J：〝FWJ=〞：J DMS◢〝L=〞：I◢D→D：Goto 1↙Lbl 2：〝X〞？I：〝Y〞？J：I→X：J→Y：Prog 〝B2〞：O+W→S：〝DKI=〞：S◢D→D：〝D=〞：D◢Prog 〝YY〞◢Lbl 2B1（正算子程序）0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W（Acos （G+（180÷π）QKW（1÷P+KWZ））+Bcos （G+（180÷π）QLW（1÷P+LWZ））Bcos （G+（180÷π）QFW（1÷P+FWZ））+Acos （G+（180÷π）QMW（1÷P+MWZ）））→X: V+W（Asin （G+（180÷π）QKW（1÷P+KWZ））+Bsin （G+（180÷π）QLW（1÷P+LWZ））Bsin （G+（180÷π）QFW（1÷P+FWZ））+Asin （G+（180÷π）QMW（1÷P+MWZ）））→Y: G+（180÷π）QW（1÷P+WZ）+90→F:X+Dcos （F→X: X+Dsin （F→YB2（反算子程序）G-90→T:Abs（（Y-V）cos（T）-（X-U）sin（T））→W:0→D:Lbl 0:Prog 〝B1〞:T+（180÷π）QW（1÷P+WZ）→L:（J-Y）cos（L）-（I-X）sin（L）→D:If Abs（D）＜0.000001:Then Goto 1:lfEnd:W+D→W:Goto 0↙Lbl 1:0→D:Prog〝B1〞:（J-Y）÷sin（F）→DYY（高程程序）〝QS〞？Q:Prog〝ZT1〞:A-T→B:A+T→C;Abs（S-A）→Z↙If S≤B:Then -1→U:1→G;K→F;0→P:Goto 1↙lfEnd:lf S≥C:Then 1→U:1→G:L→F:0→P:Goto 1↙lfEnd:0→G:0→F:0→U:1→P: ↙Lbl 1: 〝H〞:G（E+UZF）+P（（E-KT）+K（S-B）+（S-B）（S-B）÷（2R）→H◢〝+Q,-C〞: （隧道半径）-√（（Q-H-设计高程到圆心距离)）2+D2）ZF-Y（计算程序）〝1 =﹥XY,2 =﹥KB〞？N:Lbl 4〝DKI〞？S:If S＜终点桩号：Then 起点桩号→O; 起点X→U：起点Y→V：起点方位角→G：曲线长→H：起点半径→P:终点半径→R：转向→Q:Prog〝Y〞:Goto 4:lfEnd↙说明：直线半径为10^（45），转向为0ZT1（高程数据库）lf S≤终点桩号：Then 交点高程→E:起点桩号→A: 半径→R：T→T：前坡→K:后坡→L：Goto 1:Else ↙有多少曲线都输完后输Lbl 1。
5800P计算器程序
FX5800计算器公路测量常用程序集一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C 型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。
3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。
0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂H=＂:Lcoate 6,4,H-Z[9]：＂I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂LGD=＂:Lcoate 6,4,P：＂RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0.75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfEnd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂LX=＂:Locate 6,4,T：Prog＂ZD＂:＂TW=＂:Lcoate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:”TW=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z →Z[9]:Prog”C”:L→Z[10]:Prog”K”:Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S:S=0=>Goto 1: √(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2)-V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ”LX=”: Locate 6,4,L:Prog”ZD”:“H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos(S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→D:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:H ÷2-H∧(3)÷240÷R2+ H ∧(5)÷34560÷R∧(4)- H ∧(7)÷8386560÷R∧(6)+ H ∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:ILbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名： C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:”FWJ=”: Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
线路中边桩坐标正反算程序(2013-9-18)MAIN-PROG(主程序)Lbl 4: 9→DimZ：“1→ZS,2→FS，3→GPZT”?N(选择计算模式，1为正算，2为反算,3为管片姿态计算)N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3Lbl 1: “K=”?S：“PJ=”?Z：Prog “SJ-PM”： Abs(S-O) → W：Prog “SUB1-ZS”： F-90→F ：If F≥360：Then F-360→F :“X=”：Locate4,4,X:“Y=”：Locate4,4,Y: “W=”：Locate4,4,F°：S→K：Prog “SJ-GC”：“H=”：Locate4,4,H◢Goto 4(正算-输入待求点里程K=、输入待求点偏距PJ=、显示待求点里程X=、显示待求点里程Y=、显示待求点方位角W=、显示待求点高程H=)Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-PM”： X→ I： Y→ J：Prog "SUB2-FS"：O+W→S: “K="：Locate4,4, S：“PJ="：Locate4,4, Z ：S→K：Prog “SJ-GC”：“H=”：Locate4,4,H◢Goto 4(反算-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距PJ=)Lbl 3:“X=”?X：“Y=”？Y：“H=”？→Z[7]：Prog“SJ-PM”： X→I ：Y→ J：Prog "SUB2-FS"：O+W→S:Prog "SJ-PYL"：Prog "SUB4-PYL"：Z-Z[6]→Z[8]：S→K：Prog “SJ-GC”：Prog “SJ-DCHD”：Z[7]-(H-Z[5])→Z[9]：“SP=”：Locate4,4,Z[8]：“GC=”：Locate4,4,Z[9]◢Goto 4（管片姿态计算时，输入全站仪实测的平面坐标X、Y以及水准测得的管片底标高H，结果显示平面偏差“SP=”，左-右+，高程偏差“GC=”，高+低-）SJ-PM（子程序名-平面线形数据库）里程从DK44+744.5~DK47+160.091（直线段）If S ≥44744.5（线元起点里程）:Then 315898.3852→U（线元起点X坐标）：509426.7059→V（线元起点Y坐标）：44744.5→O（线元起点里程）：357057’7”→G（线元起点方位角）：179.775 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0→Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥44924.275（线元起点里程）:Then 316078.0453→U（线元起点X坐标）：509420.2813→V（线元起点Y坐标）：44924.275→O（线元起点里程）：357057’7”→G（线元起点方位角）：20 →H（线元长度）：1×1045→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd509419.5998→V（线元起点Y坐标）：44944.275→O（线元起点里程）：358014’18”→G（线元起点方位角）：27.589 →H（线元长度）：2000→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥44971.864（线元起点里程）:Then 316125.6149→U（线元起点X坐标）：509418.9419→V（线元起点Y坐标）：44971.864→O（线元起点里程）：359001’43”→G（线元起点方位角）：20 →H（线元长度）：2000→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HZ点）If S ≥44991.864（线元起点里程）:Then 316145.6131→U（线元起点X坐标）：509418.6696→V（线元起点Y坐标）：44991.864→O（线元起点里程）：359018’55”→G（线元起点方位角）：367.91 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥45359.774（线元起点里程）:Then 316513.4970→U（线元起点X坐标）：509414.2729→V（线元起点Y坐标）：45359.774→O（线元起点里程）：359018’55”→G（线元起点方位角）：55 →H（线元长度）：1×1045→P（线元起点曲率半径）：850→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45414.774（线元起点里程）:Then 316568.4802→U（线元起点X坐标）：509413.0227→V（线元起点Y坐标）：45414.774→O（线元起点里程）：357027’41”→G（线元起点方位角）：25.775 →H（线元长度）：850→P（线元起点曲率半径）：850→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥45440.549（线元起点里程）:Then 316594.2078→U（线元起点X坐标）：509411.4910→V（线元起点Y坐标）：45440.549→O（线元起点里程）：355043’27”→G（线元起点方位角）：55 →H（线元长度）：850→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HZ点）If S ≥45495.549（线元起点里程）:Then 316648.9508→U（线元起点X坐标）：509406.2087→V（线元起点Y坐标）：45495.549→O（线元起点里程）：353052’14”→G（线元起点方位角）：63.397 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd509399.4394→V（线元起点Y坐标）：45558.946→O（线元起点里程）：353052’14”→G（线元起点方位角）：45 →H（线元长度）：1×1045→P（线元起点曲率半径）：1000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45603.946（线元起点里程）:Then 316756.7622→U（线元起点X坐标）：509394.9703→V（线元起点Y坐标）：45603.946→O（线元起点里程）：355009’34”→G（线元起点方位角）：26.224 →H（线元长度）：1000→P（线元起点曲率半径）：1000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45630.17（线元起点里程）:Then 316782.9187→U（线元起点X坐标）：509393.1005→V（线元起点Y坐标）：45630.17→O（线元起点里程）：356039’44”→G（线元起点方位角）：45 →H（线元长度）：1000→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HZ点）If S ≥45675.17（线元起点里程）:Then 316827.8757→U（线元起点X坐标）：509391.1546→V（线元起点Y坐标）：45675.17→O（线元起点里程）：357057’05”→G（线元起点方位角）：233.227 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥45908.397（线元起点里程）:Then 317060.9538→U（线元起点X坐标）：509382.8174→V（线元起点Y坐标）：45908.397→O（线元起点里程）：357057’05”→G（线元起点方位角）：60 →H（线元长度）：1×1045→P（线元起点曲率半径）：360→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45968.397（线元起点里程）:Then 317120.9335→U（线元起点X坐标）：509382.3388→V（线元起点Y坐标）：45968.397→O（线元起点里程）：2043’33”→G（线元起点方位角）：439.848 →H（线元长度）：360→P（线元起点曲率半径）：360→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥46408.245（线元起点里程）:Then 317447.5818→U（线元起点X坐标）：509635.0568→V（线元起点Y坐标）：46408.245→O（线元起点里程）：72043’48”→G（线元起点方位角）：60 →H（线元长度）：360→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd509693.2346→V（线元起点Y坐标）：46468.245→O（线元起点里程）：77030’17”→G（线元起点方位角）：385.8 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥46854.045（线元起点里程）:Then 317545.652→U（线元起点X坐标）：510069.8961→V（线元起点Y坐标）：46854.045→O（线元起点里程）：77030’17”→G（线元起点方位角）：60 →H（线元长度）：1×1045→P（线元起点曲率半径）：390→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥46914.045（线元起点里程）:Then 317560.1273→U（线元起点X坐标）：510128.1076→V（线元起点Y坐标）：46914.045→O（线元起点里程）：73005’50”→G（线元起点方位角）：186.046 →H（线元长度）：390→P（线元起点曲率半径）：390→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥47100.091（线元起点里程）:Then 317653.8510→U（线元起点X坐标）：510286.7823→V（线元起点Y坐标）：47100.091→O（线元起点里程）：45045’53”→G（线元起点方位角）：60 →H（线元长度）：390→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd(注：有多个平面线形，依照上面的依次变更, 每多一个，就增加一个。