5800常用程序

合集下载

卡西欧5800基本测量程序(完整版)

卡西欧5800 程序(完整版)说明：本程序适用于公路、桥梁、隧道测量。

本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。

主程序:MAIN＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算)If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓(第一个交点参数)(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓If M=θ:Then If A<P-T:Then goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓If K=θ:Then goto 2 :IfEnd↓………… (中间交点参数)Prog＂ZFXZ＂↓If K=θ:Then goto 2 :IfEnd↓………… (最后一个交点参数)If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓If K=θ:Then goto 2 :IfEnd↓Lb1 1：＂NO TASK＂↓Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢＂SJ KUAN DU＂:B◢IfEnd:IfEnd↓＂-------END-------＂KUAN DU （拓展功能程序，用于反算）1→Ｍ:Prog＂MAIN＂↓Z→A:W→E:θ→W↓Prog＂GAO CHENG＂↓E→W↓Q-F→P↓If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上)Lb1 1↓＂……＂:D◢(同上) ◢＂----------END---------＂YUANK(B÷(2R))→F↓2R Sin(K F r)→C ↓J+F r→J ↓Prog＂XZBH＂HHQXB-B^5÷(9θ(RL)2)→C ↓KB2÷(6RL)→F ↓J+ F r→J↓Prog＂XZBH＂PYJSIf O=θ:Then＂YUAN＂:J+F r→J:IfEnd↓If O=1:Then＂HHQX＂:J+2F r→J:IfEnd↓If O=2:Then＂LINE＂:J+18θ→J:IfEnd↓W→C↓If A>P-T+S-L:Then J-9θ→J:Else J+9θ→J:IfEnd↓Prog＂XZBH＂↓"X=":X◢"Y=":Y◢QXCS(有改)Prog＂QDZB＂↓If A≤P-T+L:Then A-P+T→B:U→J:1→O: Prog＂HHQX＂: Goto 1 :IfEnd↓If A≤P-T+S-L:Then A-P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)→F:U+F r→J: Prog＂XZBH＂:U+3F r→J: Prog＂YUAN＂: Goto1:IfEnd↓If A≤P-T+S:Then P-T+S-A→B:1→O:-K→K:V+180→J: Prog＂HHQX＂: Goto 1 :IfEnd↓If A≤P-T+S+D:Then 2→O:A-P+T-S→C: Prog＂XZBH＂:IfEnd↓Lb1 1：↓Prog＂PYJS＂↓Prog＂GA0 CHENG＂QDZBN→X:E→Y:T→C↓If A>P-T+S-L:Then V→J: Else U+18θ→J:IfEnd↓Prog＂XZBH＂↓X→Z〔5〕:Y→Z〔6〕JDTZIf Z〔1〕< θ:Then Z〔1〕+ 36θ→Z[1]:IfEnd↓If Z〔1〕≥ 36θ:Then Z〔1〕- 36θ→Z[1]:IfEnd↓If Z〔2〕< θ:Then Z〔2〕+ 36θ→Z[2]:IfEnd↓If Z〔2〕≥ 36θ:Then Z〔2〕- 36θ→Z[2]:IfEnd↓FWJθ→I:θ→J↓Pol(H-G,W-Z) ↓J<θ⇒J+36θ→J↓J→FDOTLINEPol(H-X,W-Y):I→N↓Pol(G-H,Z-W):I→E ↓Pol(X-G,Y-Z):I→D↓(N+E+D)÷2→I↓√(I(I-N)(I-E)(I-D))→I ↓2I÷D→I ↓ZSPDIf A≤P-T+S+D:Then Prog＂QXCS＂:θ→K:IfEnd ↓FSPDIf K=-1:Then If Z〔1〕< Z〔2〕:Then If F≤Z〔1〕:Then Goto 1 :IfEnd:If F≥Z〔2〕:Then Goto 1 :IfEnd:Else If F≤Z〔1〕:Then F≥Z〔2〕:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓If K=1:Then If Z〔1〕> Z〔2〕:Then If F≥Z〔1〕:Then Goto 1 :IfEnd :If F≤Z〔2〕:Then Goto 1 :IfEnd:Else If F≥Z〔1〕:Then If F≤Z[2]:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓θ→A: Goto 2↓Lb1 1↓If O=θ:Then Prog＂FSYUAN＂:IfEnd↓If O=1:Then Prog＂FSHHQX＂:IfEnd↓1→A↓Lb1 2FSTJU-90K→Z[1]↓V-90K→Z[2]↓Prog＂JDTZ＂↓P-T→A↓-1→O↓Prog＂JDZB＂↓Prog＂FSPD＂↓If A=θ:Then Goto 1 :IfEnd↓（有改）Z[1]→Z[1]: Z[1]+K(L÷(2R))r→Z[2]:1→O↓Prog＂JDTZ＂↓Prog＂JDZB＂↓Prog＂FSPD＂↓If A=1:Then θ→K: Goto 2 :IfEnd↓Z[5]→X:Z[6]→Y:(KL)÷(6R)→F:L-L^3÷(90R2)→C:U+F r→J↓Prog＂XZBH＂↓U+3F r+90K→J:R→C↓Prog＂XZBH＂↓X→G:Y→Z↓Prog＂FWJ＂↓Z[2]→Z[1]:Z[1]+K((S-2L)÷R)r→Z[2]:θ→0↓Prog＂JDTZ＂↓Prog＂FSPD＂↓If A=1:Then θ→K:Goto 2:IfEnd↓-K→K:V+9θK→Z[1]:Z[1]+K(L÷(2R))r→Z[2]:1→O↓Prog＂JDTZ＂↓P-T+S→A↓Prog＂JDZB＂↓Prog＂FSPD＂↓If A=1:Then θ→K:Goto 2:IfEnd↓Lb1 1↓If D>θ:Then P-T+S→A:Prog＂FSLINE＂:If A=1:Then θ→K:IfEnd:IfEnd↓Lb1 2FSYUAN＂YUAN＂↓36θ+K(F-Z[1])→F ↓F≥36θ⇒F-36θ→F⊿↓P-T+L+πRF÷18θ→Z:If K=1:Then R-I→B: Else I-R→B:IfEnd↓FSHHQX＂HHQX＂↓Z[5]→X:Z[6]→Y ↓Z[1]+18θ→J:R→C↓Prog＂XZBH＂↓X→G:Y→Z↓Z[5]→X:Z[6]→Y ↓Prog＂DOTLINE＂↓If I<1:Then θ→B:Goto 3: Else I→B: Prog＂FSHHQX1＂:I→Z[7]:B+I÷10→B: Prog＂FSHHQX1＂:If I>Z[7] :Then Goto 1: Else:Goto 2:IfEnd:IfEnd↓Lb1 1↓B-I÷2→B: Prog＂FSHHQX1＂↓If I<1:Then -I→I:Goto 3: Else Goto 1:IfEnd↓Lb1 2↓B+I÷2→B: Prog＂FSHHQX1＂↓If I<1:Then Goto 3: Else Goto 2:IfEnd↓（有改）Lb1 3↓If A>P-T+L:Then P-T+S-B-I→Z: Else P-T+B+I→Z:IfEnd↓If K=1:Then If A<P-T+S-L:Then D-E→B: Else E-D→B:IfEnd:IfEnd ↓If K=-1:Then If A<P-T+S-L:Then E-D→B: Else D-E→B:IfEnd:IfEndFSHHQX1Z[5]→X:Z[6]→Y:Z[1]+9θK→J↓Prog＂HHQX＂↓X→Z[3]:Y→Z[4]↓R→C:J+2F r+9θK→J↓Prog＂XZBH＂↓X→G:Y→Z↓Z[3]→X:Z[4]→Y ↓Prog＂DOTLINE＂Prog＂QDZB＂↓Z[5]→Z[3]:Z[6]→Z[4] ↓If O=-1:Then P-T+S→A: Prog＂QDZB＂:Z[3]→Z[5]:Z[4]→Z[6]: Else Z[1]+9θK+K(L÷(6R))r→J:L-L^3÷(9θR2)→C: Prog＂XZBH＂:IfEnd ↓(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[1]))÷(tan(Z[2])-tan(Z[1]))→G ↓tanZ[2](G-X)+Y→Z↓Prog＂FWJ＂ZFXZIf M=θ:Then Prog＂ZSPD＂: Else Prog＂FSTJ＂:IfEndFSLINEProg＂QDZB＂↓X→G:Y→Z:J→N↓Prog＂FWJ＂↓N→J:F-J→F↓Icos(F)→G↓If G≤D:Then If A>P-T+S-L:Then P-T+S+G→Z:Isin(F)→B:Else P-T-G→Z:-Isin(F)→B:IfEnd :1→A:2→O: Else θ→A:IfEndX+Ccos(J)→X↓Y+Csin(J)→YHENG POIf A≤P-T+L-Z[10] :Then Z[8]→V:Goto 1:IfEnd↓If A≤P-T+L:Then (Z[9]-Z[8])÷Z[10]→E:Z[8]+(A-P+T-L+Z[10])E→V: Goto 1:IfEnd↓If A≤P-T+S-L:Then Z[9]→V:Goto 1:IfEnd↓If A≤P-T+S-L+Z[10]:Then (Z[8]-Z[9])÷Z[10]→E:Z[9]+(A-P+T-S+L)E→V: Goto 1:IfEnd↓Z[8]→V ↓Lb1 1GAO CHENG……(交点桩号)→O:……(交点高程)→D:……(小桩号坡度)→N:……(切线长度)→G:……(圆曲线半径)→R ↓If A≤O-G:Then θ→K: Goto 1:IfEnd↓If A≤O+G:Then 1→K: Goto 1:IfEnd↓(K=0为直线、K=1为凸圆、K=-1为凹圆)……（同上）Lb1 1:Prog＂HENG PO＂↓K（A-O+G）2÷(2R)→P ↓D+N(A-O)-P+WV→F↓"DM":F◢FWJJS (测回法测坐标)A＂XA＂: B＂YA＂:C＂XB＂: D＂YB＂: K＂CHANG DU＂: G＂JIAO DU＂↓I=0:J=0:Pol(C-A,D-B):J<0⇒J=J+360⊿↓E=J+G↓J＂FWJ＂◢X＂X＂=A+KcosE◢Y＂Y＂=B+KsinE◢＂-------END-------＂说明:＂JIAO DU＂顺时钟为正、逆时针为负，＂XA＂、＂YA＂为测站点坐标、＂XB＂、＂YB＂为后视点坐标，＂X＂、＂Y＂为前视即待测点坐标，＂CHANG DU＂为测站点到待测点距离。

卡西欧5800多功能实用坐标正反算小程序(附后方交会程序)

说明：第一个照准点坐标（XA , YA），平距为D1，第二个照准点坐标（XB , YB），平距为D2 ,第一点，第二点及测站点如果是顺时针方向排列Q = 1，逆时针Q =－1。（XP , YP）为待求点的坐标。
Goto0:
Lbl3:Cls：”X1=”?A:”Y1=”?B:?F: ”X2=”?X:”Y2=”?Y:
(X-A)cos(F)+(Y-B)sin(F)→I:
(Y-B)cos(F)-(X-A)sin(F)→Z:
Cls:“L=”: “Z=”:Locate4,1,I:Locate 4,2,Z◢
Goto0
注：程序中的“=>”是一个双箭号，按FUNCTION选3下翻两页选3 即可输入。方Biblioteka 角L距离Z
偏距
R
斜交偏距的转角（顺时针为正数，正交输入0）
2程序名：HFJH（距离后方交会）
LBI 1 :〝XA〞?A :〝YA〞?B :〝XB〞?C :〝YB〞?D :〝D1〞?E :〝D2〞?F :?Q : 0→J : POL（C－A , D－B）→G : J+Q Cos－1（（GG+EE－FF）÷（2GE））→H :〝XP=〞: A+E Cos（H）→X▲〝YP=〞: B+E Sin（H）→Y▲Goto1
显示及操作说明：
显示
功能
1.XY→LF
2.LF→XY
3.XYF→LZ
1.输入两点坐标计算距离与方位角
2.输入起点坐标及方位角、距离、偏距、偏距的转角
3.输入起点坐标及方位角，输入实测坐标，计算实测点与起点的垂直距离和垂直偏距
显示
输入及显示说明
X1、Y1
第一点（起点）坐标
X2、Y2

5800卡西欧计算器程序大全

5800卡西欧计算器程序大全1.基本数学运算程序-加法：输入两个数字，然后计算它们的和。

-减法：输入两个数字，然后计算它们的差。

-乘法：输入两个数字，然后计算它们的积。

-除法：输入两个数字，然后计算它们的商。

-平方根：输入一个数字，然后计算它的平方根。

-幂运算：输入两个数字，然后计算第一个数字的第二个数字次方。

2.科学计算程序-对数运算：输入一个数字和一个底数，然后计算它们的对数。

-三角函数：输入一个角度，然后计算它的正弦、余弦和正切值。

-阶乘计算：输入一个数字，然后计算它的阶乘。

-指数函数：输入一个数字，然后计算e的这个数字次方。

-随机数生成：生成一个随机数。

3.金融计算程序-终值计算：输入本金、利率和时间，然后计算将来其中一时刻的价值。

-现值计算：输入将来其中一时刻的价值、利率和时间，然后计算现在的价值。

-年金支付计算：输入每期支付的金额、利率和时间，然后计算总支付金额。

-贷款利率计算：输入贷款金额、每期支付金额和时间，然后计算贷款利率。

-折现计算：输入每期支付金额、利率和时间，然后计算折现值。

4.统计计算程序-平均值计算：输入一组数字，然后计算它们的平均值。

-中值计算：输入一组数字，然后计算它们的中值。

-方差计算：输入一组数字，然后计算它们的方差。

-标准差计算：输入一组数字，然后计算它们的标准差。

-相关系数计算：输入两组数字，然后计算它们的相关系数。

以上只是一部分5800卡西欧计算器程序的示例，卡西欧计算器还提供了更多的功能，例如单位转换、时间计算、日期计算等等，可以根据实际需求选择使用。

希望以上内容对您有所帮助。

5800高速公路专用的程序

1、ZBJS(坐标计算)Lbl 4：Deg：Cls："1.SZ => XY"："2.XY => SZ"："1,2="?Q："S="?S：1→I ←┘If I=1：Then Prog"ZX"：IfEnd←┘If I=2：Then Prog"YX"：IfEnd←┘If Q=1：Then Goto 1：IfEnd ：IF Q=2：Then Goto 2：IfEndGoto4←┘Lbl 1：If S＜0 Or S＞9971.664：Then Goto 4：IfEnd："Z ="?Z："G ="?J：Prog "ZS"←┘A+(X÷P+DX2)×180÷π→F←┘If F＜0：Then F+360→F：IfEnd←┘"X="：N+Zcos(F+J)→N◢"Y="：E+Zsin(F+J)→E◢"FWJ="：F▶DMS◢Lbl 3：Cls："1.ZH => XY"："2.SZ => XY "："1,2="?K←┘If K=1：Then "PJ="?G："Z="?Z："H="?H：Cls："X="：N-Zsin(F+G)+Hcos(F+G) →X◢"Y="：E+Zcos(F+G)+Hsin(F+G)→Y◢Goto 3：IfEnd←┘If K=2：Then Goto 4：IfEnd←┘Goto 3←┘Lbl 2："X="?B："Y="?C：B→N：C→E：Prog"FS"："S="：S→S◢"Z="：Z→Z◢Goto 42、ZS（正算）0.5(1÷R-1÷P)÷L→D：X←┘U+∫(cos(A+(X÷P+ DX2)×180÷π,0,X)→N←┘V+∫(sin(A+(X÷P+ DX2)×180÷π,0,X)→E：Return3、FS（反算）Lbl 1：If I=1 :Then Prog"ZX"：IfEnd←┘If I=2 :Then Prog"YX"：IfEnd←┘Prog"ZS"A+(X÷P+ DX2)×180÷π→F←┘PoI(N-B,E-C)：Isin(F-90-J)→W：S+W→S←┘If Abs(W)＞0.0001：Then Goto 1：IfEnd←┘(C-E)÷sin(F+90)→Z：Return4、YX（曲线要素）(右线)If S≤114321.111:Then 61719.889→U:384671.632→V:114181.111→O:214·24′47.4〞→A:140→L:10ˇ(45) →P:-1500→R:Return:IfEndIf S≤114464.085:Then 61603.185→U:384594.323→V:114321.111→O:211·44′21.71〞→A:142.974→L:-1500 →P:-1500→R:Return:IfEndIf S≤114604.085:Then 61478.195→U:384525.015→V:114464.085→O:206·16′41.37〞→A:140→L:-1500 →P:10ˇ(45)→R:Return:IfEndIf S≤114734.085:Then 61350.809→U:384466.974→V:114604.085→O:203·36′15.7〞→A:130→L:10ˇ(45) →P:1330→R:Return:IfEndIf S≤114859.847:Then 61232.562→U:384412.991→V:114734.085→O:206·24′16.31〞→A:125.762→L:1330 →P:1330→R:Return:IfEndIf S≤114989.847:Then 61122.73→U:384351.826→V:114859.847→O:211·49′20.28〞→A:130→L:1330 →P: 10ˇ(45)→R:Return:IfEndIf S≤115119.847:Then 61014.573→U:384279.724→V:114989.847→O:214·37′20.9〞→A:130→L:10ˇ(45) →P:-750→R:Return:IfEnd5、ZX（曲线要素）(左线)If S≤114190.204:Then 62028.741→U:384870.288→V:113819.03→O:206·4′10.8〞→A:371.174→L:10ˇ(45) →P: 10ˇ(45)→R:Return:IfEndIf S≤114320.204:Then 61695.33→U:384707.171→V:114190.204→O:206·4′10.8〞→A:130→L:10ˇ(45) →P: -950→R:Return:IfEndIf S≤114458.231:Then 61577.309→U:384652.73→V:114320.204→O:202·8′57.94〞→A:138.028→L:-950 →P: -950→R:Return:IfEndIf S≤114588.231:Then 61446.142→U:384610.144→V:114458.231→O:193·49′29.4〞→A:130→L:-950 →P: 10ˇ(45)→R:Return:IfEnd曲线要素可以添加，只要格式正确就行一、坐标计算方位角和距离的程序主程序：FSLbl 1：？M：?N：?V：?W√((V－M) 2 +(W－-N)2 )→Ccos-1((V－M)÷C) →TIf W－N<0 : Then 360－T→T : Else T→T : IfEnd“C=” : C◢“T=” : T▶DMS◢Goto 1程序说明：输入坐标（M,N）、（V,W），其中（M,N）为起点坐标，（V,W）为终点坐标，输出显示C为两点间距离，T为起点到终点的方位角。

5800程序

5800程序本程序由3个主程序、5个子程序及3个参数子程序组成。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算，程序坐标计算使用于任何线型。

一、主程序1、程序名:1ZD-XY(一般放样正反算程序，①正算坐标，放样点至置仪点方位角及距离；②反算桩号及距中线距离)Lbl 0:Norm 2:Deg:“F=”?F:(正反算判断，F=1正算，F=2反算)90→Z[1]:(与路线右边夹角)Prog“THB”:F=1=>Goto 1:F=2=>Goto 2:Lbl 1:Fix 3: “ X=”:Locate 6,4,X◢“ Y=”:Locate6,4,Y◢:Prog“3JS”: Goto 0:Lbl 2: Fix 3: “KM=”:Locate 6,4,Z◢:“ D=”:Locate 6,4,D◢:Goto 02、程序名:2GC(高程、横坡程序，计算任意点高程及横坡)Lbl 0:Norm 2:“KM”?Z:?D:Prog“H” :Fix 3: “ H=”:Locate6,4,H◢“ I=”:Locate6,4,I◢:Goto 03、程序名:3JS(极坐标放样计算程序，计算放样点至置仪点方位角及距离)X:Y:1234，123→K:(置仪点X坐标)4567，456→L:(置仪点Y坐标)Y-L→E:X-K→F:Pol(F,E):Lf J<0:Then J+360→J:IfEnd:“FWJ=”:J▲DMS◢Fix 3: “ S=”: Locate6,4,I◢二、子程序1、程序名:THB(坐标计算子程序)18→DimZ: “KM”?Z: Prog“X0”:1÷P→C:(P-R)÷(2HPR) →S:180÷π→E: F=1=>Goto 1:F=2=>Goto 2:Lbl 1:?D:Abs(Z-O)→W: Prog“A”:X:Y: Goto 3:Lbl 2:?X:?Y:X→I:Y→J: Prog“B”:O+W→Z:D→D: Goto 3:Lbl 3:If F=1:Then X:Y:Else Z:D:IfEnd注:Z为反算的桩号，D为反算的点到中线的距离。

5800计算器程序

5800计算器程序坐标（商洛环城北路）主程序？S:If S≤173.546: Then 0(零)→O(欧):999→H: 89º40＇35＂→G: 87565.571→U: 949090.466→V: 1Χ1045→P: 1Χ1045→R: 0→Q:If S≤323.546: Then173.546→O(欧) :150→H: 89º40＇35＂→G: 87566.551→U: 95083.009→V: 1Χ1045→P: 650→R: 1→Q: Goto1:If S≤478.577: Then323.546→O(欧): 888→H: 96º17＇14.79＂→G: 87561.633→U: 95232.84→V: 650→P: 650→R: 1→Q: Goto1:If S≤628.577: Then478.577→O(欧): 150→H: 109º57＇10.85＂→G: 87526.525→U: 95383.466→V: 650→P: 1Χ1045→R: 1→Q: Goto1:If S≤793.786: Then628.577→O(欧): 999→H: 116º33＇50.64＂→G: 87464.69→U: 95520.03→V: 1Χ1045→P: 1Χ1045→R: 1→Q: Goto1:If S≤893.786: Then793.786→O(欧): 100→H: 116º33＇51＂→G: 87390.809→U: 95667.799→V: 1Χ1045→P: 400→R: 1→Q: Goto1:If S≤1041.764: Then893.786→O(欧): 888→H: 123º43＇34.1＂→G: 87342.436→U:95755.241→V: 400→P: 400→R: 1→Q: Goto1:If S≤1141.764: Then1041.764→O(欧): 100→H: 144º55＇20.73＂→G: 87239.63→U: 95860.502→V: 400→P: 1Χ1045→R: 1→Q:If S≤1194.723: Then1141.764→O(欧): 999→H: 152º5＇4＂→G: 87153.353→U: 95910.924→V: 1Χ1045→P: 1Χ1045→R: 0→Q:If S≤1313.138: Then1194.723+5.277→O(欧): 999→H: 152º5＇4＂→G: 87106.556→U: 95935.718→V: 1Χ1045→P: 1Χ1045→R: 0→If S≤1433.138: Then1313.138→O(欧): 120→H: 152º5＇4＂→G: 87006.583→U: 95988.686→V: 1Χ1045→P: 400→R: -1→Q: Goto1:If S≤1592.985: Then1433.138→O(欧): 888→H: 143º29＇24.28＂→G: 86903.589→U: 96050.033→V: 400→P: 400→R: -1→Q: Goto1:If S≤1712.985: Then1592.985→O(欧): 120→H: 120º35＇37.08＂→G: 86797.255→U: 96167.956→V: 400→P: 1Χ1045→R: -1→Q:If S≤2117.663: Then1712.985→O(欧): 999→H: 111º59＇57＂→G: 86746.851→U: 96276.724→V: 1Χ1045→P: 1Χ1045→R: 0→Q: Goto1:If S≤2247.663: Then2117.663→O(欧): 130→H: 111º59＇57＂→G:86595.26→U: 96651.938→V: 1Χ1045→P: 400→R: 1→Q: Goto1:If S≤2394.992: Then2247.663→O(欧): 888→H: 121º18＇35.03＂→G: 86540.174→U: 96769.522→V: 400→P: 400→R: 1→Q: Goto1:If S≤2524.922: Then2394.922→O(欧): 130→H: 142º24＇10.9＂→G: 86442.467→U: 96878.585→V: 400→P: 1Χ1045→R: 1→Q: Goto1:LbI1: Prog“C”注：O（欧）(桩号)H（长度）G（方位角）U（X坐标）V（Y坐标）P（起点半径）R（终点半径）Q（左（-1），右（1））Goto1：IfEnd(每小段之后输入的，在每段的末尾)LbI1: Prog“C”（本程序完成后输入的，在程序最末尾）5800计算器高程程序（商洛环城北路）主程序?S:If S≤21.6177:Then 0(零)→O(欧):0.273→I:726.970→A:0(零)→O（欧）If S≤97.836:Then 21.6177→O（欧）:727.560→A:0.0273→I:-1→Q:6000→If S≤1194.723:Then 97.836→O（欧）:730.1251→A:0.04→I:0（零）→If S≤1370:Then 1200→O（欧）:774.0006→A:0.04→I:0（零）→If S≤1650:Then 1370→O（欧）:780.800→A:0.04→I:1→Q:GotoIf S≤2210:Then 1650→O(欧):784.160→A:-0.016→I:0（零）→If S≤2450: Then2210→O（欧）:775.200→A:-0.016→I:-1→Q:10000→If S≤2919: Then2450→O（欧）:774.240→A:0.008I:0（零）→Q:GotoIf S≤3161: Then 2919→O（欧）:777.992→A:0.008→I:-1→Q:11000→If S≤3370:Then 3161→O（欧）:782.590→A:0.03→I:0（零）→Q:GotoIf S≤3550:Then 3370→O（欧）:788.860→A:0.03→I:1→Q:4000→If S≤5744.274:Then 3550→O（欧）:790.210→A:-0.015→I:0（零）→If S≤5973.726:Then 5744.274→O（欧）:757.296→A:1→Q:-0.015→I:20000→If S≤6912.549:Then 5973.726→O（欧）:752.538→A:-0.0265→I:0（零）→If S≤14271.532:Then 14000→O（欧）:783.460→A:-0.015→I:0（零）→If S≤14382.468:Then 14271.532→O（欧）:779.387→A:-0.015→I:-1→Q:40000→If S≤15089.066:Then 14382.468→O（欧）:777.8783→A:-0.0122→I:0（零）→If S≤15242.934:Then 15089.066→O（欧）:769.238→A:-0.0122→I:1→Q:20000→If S≤15637.211:Then 15582.789→O（欧）:759.994→A:-0.019→I:-1→Q:10000→If S≤15689.638:Then 15637.211→O（欧）:759.045→A:-0.015→I:0（零）→LbI 1:Prog “ZH”A:前一个标高 O（欧）：前一个桩号 ZH是通用公式I：坡比 Q为零指在竖曲线的直线部分，+1为凸曲线，-1为凹曲线有半径的地方输入半径，没有的则不输现有的公式不能计算左右边桩的高程，如果要计算的话就在通用公式里加上0.015Z即：A+(S-O欧)I-Q*(S-O欧)2/(2R)→H⊿变为：A+(S-O欧)I-Q*(S-O欧)2/(2R)-0.015Z→H⊿改变后计算容易出现错误，轻易不要改变原公式。

Fx-5800p常用程序

F x-5800p 常用程序1、坐标反算（FS ）?X :?Y ?Y↙↙∟b ∣0：？：？A A ：？：？B B ↙Pol(A-X,B-Y):J Pol(A-X,B-Y):J＜＜0=>J+360J+360→→J ↙“S=S=””:I :I◢◢“T=T=””:J :J►►DMS DMS◢◢Goto 0↙说明说明::X,Y X,Y——基点坐标A,B A,B——测点坐标2、坐标正算（ZS ）∟b ∣0:0:？？S ：？：？T T ：？：？A A ：？：？B B ↙Rec(S,T)+A Rec(S,T)+A→→X ↙B+J B+J→→Y ↙“X=X=””:X ◢“Y=Y=””:Y :Y◢◢Goto 0↙说明说明::S —距离T —方位角A,B A,B——基点坐标X,Y X,Y——计算坐标3、坐标转换（ZH —H ）？N ：？：？E E ：？：？Q Q ↙∟b ∣0:0:““1.S =>D ”：“2.D =>S ”：？F ↙I f F=1:Then Goto 1:Eles Goto 2:If End End↙↙∟b ∣1:1:？？X ：？：？Y Y ↙N+X cos cos（（Q ）—Y sin sin（（Q ）→U ↙E+X sin sin（（Q ）+Y cos cos（（Q ）→V ↙“X1=X1=””：U ◢：“Y1=Y1=””：V ◢Goto 0↙∟b ∣2：？：？X X ：？：？Y Y ↙（X —N ）cos cos（（Q ）+（Y —E ）sin sin（（Q ）→U ↙（N —X ）sin sin（（Q ）+（Y —E ）cos cos（（Q ）→V ↙“X2=X2=””：U ◢“Y2=Y2=””：V ◢Goto 0↙说明：N ，E —施工坐标原点大地坐标Q —施工坐标X 轴在轴在大地坐标系大地坐标系大地坐标系中的中的中的方位角方位角X ，Y —需转换坐标F —判断符F=1F=1，施工，施工，施工→→大地，其他，大地大地，其他，大地→→施工4、竖曲线（SQX ）？A ：？B ：？D ：？T ：？R ：？Z ↙If Z ≥1：Then Goto 1：Eles Goto 2：If End End↙↙∟b ∣1：？：？C C ：A+A+Abs(Abs(Abs(（（B —A )）÷T （C —D ）—（C —D ）2÷（2R 2R））→H ↙“H=H=””：H ◢Goto 1↙∟b ∣2：？：？C C ：A+A+Abs(Abs(Abs(（（B —A )）÷T （C —D ）+(C —D ）2÷（2R 2R））→H ↙“H=H=””：H ◢Goto 2↙说明：说明：AA —起点（终点）高程B —切线交点高程C —需计算点的需计算点的桩号桩号D —起点（终点）桩号T —切线长R —半径H —C 桩号的高程Z —Z ≥1时为凸曲线，其他为凹曲线5、曲线任意里程坐标正反算1.主程序(TYQXJS)"1.SZ =>XY"："2.XY =>SZ"SZ"::？N ：1÷P →C :(P-R)(P-R)÷÷(2HPR)→D：180180÷π÷π→E :If N =1:Then Goto 1：Else Goto 2↙Lbl 1:?:?S S :?:?Z Z :Abs(S-O)→W ：Prog "SUB1""SUB1"::"XS=""XS="::X ◢"YS=""YS="::Y ◢Goto 1↙Lbl 2:?X :?:?Y Y :X →I :Y →J :Prog "SUB2""SUB2"::O+W →S:"S=""S="::S ◢"Z=""Z="::Z ◢Goto 2↙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))+Bsin(G+QEFW(C+FWD))+A sin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y:Return↙3.反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT)→W：0→Z：Lbl0：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：If AbsAbs((Z)<1E-6: Then Goto1：Else W+Z→W：Goto0↙(J-Y)÷÷sinF→Z:Return↙Lbl1：Z=0：Prog"SUB1"：(J-Y)三、使用说明1、规定(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=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点坐标。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。

程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Th en0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)W Ｓ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+W Ｓ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。

09’23.1”→G:715.555→H:1×1045→P: 1×1045→R: 0→Q:Goto 0: IfEnd:If Z≥26615.555 And Z≤26915.555:Then 26615.555→O:11448.97→U:2550.016→V:101。

09’23.1”→G:300→H:1×1045→P: 1800→R:1→Q:Goto 0:IfEnd:If Z≥26915.555 And Z≤27316.952:Then 26915.555→O:11382.792→U:2842.531→V:105。

55’51.83”→G:401.396→H:1800→P: 1800→R:1→Q:Goto 0:IfEnd:……LbI 0:O:U:V:G:H:P:R:Q:程序字母说明：O-线元起点桩号；U-起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角; Ｈ－线元长度，Ｐ－线元起点曲率半径，Ｒ－线元终点曲率半径,Q－线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。

②程序名：SO(高程竖曲线要素子程序)If Z≥25900 And Z≤26157.8:Then-200000→R:157.8→T:26000→C:37.1→G:0.01222→I:Goto 0:IfEnd:If Z≥26157.8 And Z≤27421.915:Then300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto 0:IfEnd:If Z≥27421.915 And Z≤27889.029:Then1000000→R:134.029→T:27755→C:36.64→G:0.0079→I:Goto 0:IfEnd:……LbI 0:R:T:G:C:I:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I－竖曲线前纵坡③程序名：I0（高程超高参数子程序）1.5→K:2→W:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z≥25900 And Z≤26615.555:Then 0→L:-0.02→M:Goto 0:IfEnd:If Z≥26615.555 And Z≤26735.555:Then 120→L:26615.555→C:-0.02→M:0.02→N:Goto 0:IfEnd:If Z≥26735.555 And Z≤26795.555:Then 60→L:26735.555→C:0.02→M:0.04→N:Goto 0:IfEndIf Z≥26795.555 And Z≤27436.951:Then 0→L:0.04→M: Goto 0:IfEnd……LbI R: If Z≥25900 And Z≤26735.555:Then 0→L:-0.02→M: Goto 0:IfEndIf Z≥26735.555 And Z≤26795.555:Then 60→L:26735.555→C:-0.02→M:-0.04→N:Goto 0:IfEndIf Z≥26795.555 And Z≤27436.951:Then 0→L:-0.04→M: Goto 0:IfEnd……LbI 0 K:W:L:C:M:N:字程序中字母表示说明：K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;L－超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。