当前位置：文档之家 › CASTO5800全线竖曲线计算程序

CASTO5800全线竖曲线计算程序

  • 格式：doc
  • 大小：43.50 KB
  • 文档页数：6

CASTO5800全线竖曲线计算程序 5800竖曲线计算程序（主程序） LbI 1: “H"? H: Prog"SJK”: C-D →F:Abs(RF/2)→T:R(Abs(F )/F)→R :If H≤B-T: Then 0→K : Else If H≥B+T: Then 0→K : D →C : Else H-B+T→K: IfEnd : IfEnd ↙ A-(B-H)C-K∧2/2/R →G:"G=";G▲ Goto 1 子程序：SJK if H≦第二竖曲线起点桩号（158497.5）：Then第一竖曲线交点高程（380.738）→A：第一竖曲线交点桩号（157150）→B：第一竖曲线前坡比（-0.0115）→C：第一竖曲线后坡比（0.0155）→D：第一竖曲线半径（30000）→R：Goto 1： IfEnd ↙

if H≦第三竖曲线起点桩号（159375）:Then第二竖曲线交点高程（404.763）→A：第二竖曲线交点桩号 （158700）→B：第二竖曲线前坡比（0.0155）→C：第二竖曲线后坡比（0.002）→D： 第二竖曲线半径（30000）→R: Goto 1： IfEnd ↙ 继续添加要素

FX5800P全线任意里程中边桩坐标正反算（加了数据库）

主程序 ZBJS Lbl6："1.SZ→ XY"："2.XY→ SZ"：？S：？N：﹖C:Prog“SUB0” Lbl0:( P-R)÷(2HPR) →D：180÷π→E:IF N=1: Then Goto 1:Else Goto 2 Lbl 1:?Z: Abs(S-O)→W: Prog"SUB1":"XS=":X◢ "YS=":Y◢ "FS=":F-C ►DMS◢ Prog”GC” 0→O：？O:O=0=>Goto 6 “JL=”?L “JIAO DU=”?A X+LCOS((F)+A)→O:Y+LSIN((F)+A)→V:Cls:”X1=”:Locate4,1,O:”Y1=”:Locate4,2,V:Return:IFend “XC” ?C： “YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢ If J∠0: Then “J=”: J+360►DMS◢ IfEnd If J >0：Then “J=” ：J►DMS◢ IfEnd：Goto 6 Lbl 2 ?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢ "Z=":Z◢ Prog”GC”空格0→O：？O:O=0=>Goto 6 7→Dimz:”SCG=”? →Z〔2〕:”JU Z=”? →Z〔3〕:”GAO CA=” ? →Z〔4〕:“BAN JING=” ? →Z〔5〕:IF Z≤30(左线大于等于-30)：Then”T=”:Abs(Z〔3〕±Z)- Z〔5〕→Z〔6〕◢（分离式路基左为正，右为负) “P=”：Z±Z〔3〕→Z〔1〕◢（分离式路基左为正，右为负) “W=”：( Z〔2〕-G- Z〔4〕)→Z〔7〕◢ “CQW=”：√（ Z〔7〕∧2+ Z〔1〕∧2）)- Z〔5〕◢ Goto 6：Retunr:IFend 正算子程序 SUB1 0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W(Acos(G+QEKW(1/P+KWD))+Bcos(G+QELW(1/P+LWD))+Bcos(G+QEFW(1/P+FWD))+Acos(G+QEMW(1/p+MWD)))→X： V+W(Asin(G+QEKW(1/P+KWD))+Bsin(G+QELW(1/P+LWD))+Bsin(G+QEFW(1/P+FWD))+Asin(G+QEMW(1/P+MWD))) →Y： G+QEW(1/P+WD)+90→F： X+Zcos（F）→X： Y+Zsin（F）→Y 反算子程序 SUB2 G-C→T Abs (Y-V)cosT-(X-U)sin(T) →W:0→Z:Lbl0：Prog "SUB1" T+QEW(1/P+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z IF Abs（Z）<1E-6：Then Goto1:Else W+Z→W：Goto0:IfEnd Lbl1:0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z GC Prog"SJK”: I-D →W:Abs(RW/2)→T:R(Abs(W )/W)→R :If S≤B-T: Then 0→K : Else If S≥B+T: Then 0→K : D →I : Else S-B+T→K: IfEnd : IfEnd ↙ A-(B-S)I-K∧2/2/R →G:"G=";G▲ Goto 1 子程序：SJK If S≦第二竖曲线起点桩号（158497.5）：Then第一竖曲线交点高程（380.738）→A：第一竖曲线交点桩号（157150）→B：第一竖曲线前坡比（-0.0115）→I：第一竖曲线后坡比（0.0155）→D：第一竖曲线半径（30000）→R：Goto 1： IfEnd ↙

If S≦第三竖曲线起点桩号（159375）:Then第二竖曲线交点高程（404.763）→A：第二竖曲线交点桩号 （158700）→B：第二竖曲线前坡比（0.0155）→I：第二竖曲线后坡比（0.002）→D： 第二竖曲线半径（30000）→R: Goto 1： IfEnd ↙ 继续添加要素 数据库子程序 SUB0 Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面1为任意数字，计算机便于区分) Lbl 1：IF S起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd IF S标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd IF S标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd IF S标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd

。。。。。。。。。。。。。。。。。。。。。。。。。。。 一程序功能 本程序由一个主程序(ZBJS)和5个子程——正算子程序(SUB1)、反算子程序( SUB2) 、数据库子程序（SUB0）,高程子程序（GC）和高程数据库（SJK）构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、终点曲 率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。可以计算计算点的中桩设计高程，以及隧道超欠挖。涵洞及其它角点的坐标。 二、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线中线右侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

2、输入与显示说明 输入部分： 1. SZ => XY 2. XY = > SZ S ? 选择里程 ,N?，Z?左或右偏距。选择计算方式，1.表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。 显示部分： XS=××× 正算时，计算得出的所求点的X坐标 YS=××× 正算时，计算得出的所求点的Y坐标 FS=××× 正算时，所求点对应的中线点的切线方位角 XC=××× 测站点X值 YC=××× 测站点Y值 I=XXX 测站到放样点距离 J=XXX 测站到放样点方位角 S=××× 反算时，计算得出的所求点的里程 Z=××× 反算时，计算得出的所求点的边距 G=计算点高程 显示0时不计算另外一点坐标，输入0以外的数字则计算计算点外任意一点及角度的点的坐标，距离大桩号为负；小桩号为正，角度为180-斜交角。 S= 反算时，计算得出的所求点里程 Z= 反算时，计算得出的所求点边距 G为该桩号的中桩设计高程 显示0时，不计算隧道超欠挖，输入0 以外的数字则计算隧道超欠挖

合集下载

5800计算器全线坐标计算放样程序(精简版)

5800计算器全线坐标计算放样程序(精简版)

5800计算器全线坐标计算放样程序（精简版）注：本程序可计算对称与非对称、一般圆曲线等不同曲线要素及中边桩正交、斜交坐标。

本人在原作者的计算程序下进行优化精简，减少5800计算器的内存空间，且让程序简单明晰。

若有不明之处请与本程序精简作者落日云海（QQ：419769853）联系XLZBJSCX 主程序LB1 0 ↙20→DIM Z ↙↙“Z -1 ,Y 1”?O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 偏角”PJ=”?A：半径”R=”?R : 第一缓和曲线”LS1=”?L : 第二缓和曲线”LS2=”?G : 交点”JD=”?M: 交点X”JDX=”?B:交点Y”JDY=”? C : 小里程向交点方位角”QDFWJ=”?E: 交点向大里程方位角”ZDFWJ=”?F: GOTO 2↙LB1 2 ↙（曲线要素计算）L/2- L^3/(240R^2)+ L^5/(34560R^4) →Z[8] ↙（M1）G/2- G^3/(240R^2)+ G^5/(34560R^4) →Z[9] ↙（M2）L^2/(24R)- L^4/(2688R^3) →Z[10] ↙（P1）G^2/(24R)- G^4/(2688R^3) →Z[11] ↙（P2）“QXC=”:π*A*R/180+0.5*( L+ G)→S◢↙（曲线总长）90L/(Rπ) →Z[14] ↙（第一缓和曲线总偏角）90G(Rπ) →Z[15] ↙（第二缓和曲线总偏角,可以省略）“T1=”:Z[8]＋（R+Z[11] -(R+Z[10])CosA）/SinA→Z[12] ◢↙(切线T1)“T2=”:Z[9]＋（R+Z[10]-(R+Z[11])CosA）/Sin A→Z[13] ◢↙(切线T2)“ZHD=”:M-Z[12] →Z[3] ◢(ZH点里程)“ZHX=”:B+ Z[12]*Cos (E+180)→ Z[16] ◢↙（ZH点X）“ZHY=”:C+ Z[12]*Sin(E+180)→ Z[17] ◢↙（ZH点Y）Z[3]+ L→Z[4] ↙(HY点里程)Z[1]- G→Z[5] ↙(YH点里程)Z[3]+S→Z[1] ↙(HZ点里程)GOTO 1 ↙LB1 1:“PEG NO=”?K(计算桩号):“ZBJ=”?D（中桩到边桩距离，中桩为0）:“QXJ=”?P（法线角，正交90）:GO TO3LB1 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 ↙IF K>Z[3] : THEN GOTO 0 : IFEND ↙LB1 4 ↙（里程小于直缓点直线独立坐标）K- Z[3] →X : 0→Y : E→T : PROG“TYZBCX” ：GOTO 1 ↙LB1 5 ↙（第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40R^2L^2)+H^9/(3456R^4L^4) →X ↙H^3/(6*RL)-H^7/(336*R^3L^3) →Y ↙90H^2/( RπL) →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 ↙H180/( Rπ)+ Z[14]→T ↙RSin 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 ↙（第二缓和曲线独立坐标）Z[1] -K →H ↙H-H^5/(40R^2G^2)+H^9/(3456R^4G^4) →U↙H^3/(6RG)-H^7/(336R^3G^3) →V ↙90H^2/( RπG) →T ↙Z[13]Cos A+ Z[12]-UCos A-VSin A→X ↙Z[13] Sin A-USin A+VCos A→Y ↙IF O>0 ：THEN F-T→T : T<0=>360+T→T : ELSE F+T →T : IFEND ↙Prog“TYZBCX” ：GOTO 1 ↙子程序：TYZBCX （统一坐标计算）IF O<0 : THEN -Y→Y : IFEND ↙“JSFWJ=” :T▲DMS◢（计算里程点中桩切线方位角，可以不显示）“X=”:Z[16]+XCos E-YSin E+Dcos(T+P)→Z[18] ◢（计算点X）↙“Y=”:Z[17]+XSin E+Y*Cos E+Dsin(T+P)→Z[19] ◢（计算点Y）↙RETURN↙。

5800P曲线坐标计算编程使用(非标准曲线)

5800P曲线坐标计算编程使用(非标准曲线)

曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。

本程序也可以在CASIO fx-4500P计算器及CASIO fx-5800 P计算器上运行。

特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优于1mm；(2). 在引用该核心计算部分时，请注明来源。

（3）该程序可计算标准、非标准曲线，但不可以计算与线路成斜交角的坐标二、源程序主程序(QXJS)"1.SZ => XY"："2.XY => SZ"?N:"X0"?U: "Y0"?V: "S0"?O: "FWJ0"?G: "LS"?H:"R0"?P?"RS"?R: "PX "?Q：1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If N=1:Then Goto 1：Else Goto 2:IfEndLbl 1: "KS"?Z:"ES"?S：Abs(Z-O)→W：Prog "QXZS":"XS=" :X→X◢"YS=": Y→Y◢"FWJS=":(F-90)DMS◢Prog "GC"Goto1Lbl 2："XS"?X:"YS"?Y：X→I：Y→J：Prog "QXFS":O+W→Z"KS=":Z→Z◢"ES=": S→S◢"FWJS=":(F-90)DMS◢Prog "GC"Goto 21.全线计算主程序(XLJS)"1.SZ => XY"："2.XY => SZ"："1 or 2"?N: Lbl 0："KS"?Z:"ES"?S：Prog "XXX":1÷P→C:(P-R)÷(2HP R)→D:180÷π→E：If N=1:Then Goto 1: Else Goto 2:IfEndLbl 1:Abs(Z-O)→W：Prog "QXZS":"XS=" :X→X◢"YS=": Y→Y◢"FWJS=":(F-90)DMS◢Prog "GC"Goto 0Lbl 2："XS"?X:"YS"?Y：X→I：Y→J：Prog "QXFS":O+W→Z"KS=":Z→Z◢"ES=": S→S◢"FWJS=":(F-90)DMS◢Prog "GC"Goto 22. 正算子程序(QXZS)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:(1-L)→F:(1-K)→M:(U+W(Ac os(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MW D))))→X：(V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G +QEMW(C+MWD))))→Y:G+QEW(C+WD)+90→F:X+Scos(F→X:Y+Ssin(F→YReturn3. 反算子程序(QXFS )G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→S：Lbl 0：Prog " QXZS ":T+QEW(C+WD)→L:(J-Y)co s(L)-(I-X)sin(L)→S:If Abs(S)<10^(-6):Then Goto1:Else S+W→W:Goto 0:IfEndLbl 1:0→S：Prog " QXZS ":(J-Y)÷sin(F)→SReturn数据库：XXXLbl 1:If Z≤下一起点里程: Then本线路起点里程→O：本线路X→U：本线路Y→V:本线路方位角→G：本线路长度→H：本线路起点半径→P：本线路止点半径→R:±1→Q (左偏Q=-1，右偏Q=1，直线段Q=0）：Else If Z≤下一起点里程: Then本线路起点里程→O：本线路X→U：本线路Y→V:本线路方位角→G：本线路长度→H：本线路起点半径→P：本线路止点半径→R:±1→Q :IfEnd: IfEndReturn四、数据库1、线路平面数据库数据名：“XXX”可根据自己须要更改Lbl 1:If Z≤80(计算段终点里程) : Then 0→O (计算段起点里程): 62450.391→U(起点里程纵坐标): 56853.282→V (起点里程横坐标): 220°31′33″→G(计算段起点里程切线方位角): 80→H(缓和线): 10^45→P曲率半: 782.716→R(曲率半): -1→Q (线路左右偏): Else If Z≤xxx: Then0→O (计算段起点里程): 62450.391→U(起点里程纵坐标): 56853.282→V (起点里程横坐标): 220°31′33″→G(计算段起点里程切线方位角): 80→H(缓和线): 10^45→P曲率半: 782.716→R(曲率半): -1→Q: IfEnd: IfEndReturnO=80:U=62388.712:V=56802.348:G=²²²²²²²²²²²²注：数据库内数据为示意数据，编两曲线中直线段时“H=”为该段长；半径“P=”、“R=”详以上使用说明；坐标、方位角为计算段起点的。

CASIO fx—5800计算器 工程测量与公路测量程序

CASIO fx—5800计算器 工程测量与公路测量程序

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?JX+ICos(J)→U:Y+ISin(J)→V〝X=〞:U （待求点的X坐标）〝Y=〞:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角２、坐标反算Lbl 0〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?VPol(U-X,V-Y):J<0 J+360→J〝I=〞:I〝J=〞:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1〝DQHAO=〞?LL<G Or L﹥C GOTO 2〝PY=〞?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls〝X=〞:X+I+KCos(D+E+90) →A〝Y=〞:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o〝FWJ=〞:o DMSGoto 1Lbl 2〝END〞说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量４、竖曲线〝QZHAO =〞?J: 〝H+B〞=?B:〝I1=〞?C:〝I2=〞?D:〝R=〞?R:〝T=〞?T: ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S〝T〞:SJ-T→XJ＋T→YLbl 0〝DQ=〞?LIf L<X:Then Goto 1:Else If L﹥Y:Then Goto 1:If End:If End〝GC=〞:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1〝END〞说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

5800全线直曲计算程序通用

5800全线直曲计算程序通用

5800全线直曲计算程序通用经实践在5800上可行，反算运行时间就是慢点有4秒左右才出结果。

5800测量程序加入了数据库，综合了网上的一些而成。

非本人原创，希望能与广大朋友交流。

5800坐标正反程序(加入了数据库) 1. 主程序(TYQXJS)Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F：“FS=”：F▲DMS◢Goto4↙Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙2. 正算子程序(SUB1)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+Zcos（F）→X：Y+Zsin（F）→Y2. 反算子程序(SUB2)G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T)) →W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs （Z）<0.000001：Then0→Z:Prog "SUB1" :(J-Y)÷sin（F）→Z Else W+Z→W:Goto4:IfEndSUB0 数据库子程序Goto1↙同时保存多个曲线时的指针Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd ……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。