5800坐标高程计算程序
5800水准高程现场计算程序（增加了偏差值计算）
5800水准高程现场计算程序（增加了偏差值计算）
程序功能目的：输入水准仪现场前视读数快速计算出该点的实测高程！（增加了偏差值计算）程序名: HC
LbI A:Cls:“HS”?X:“BM-H”?Y:X+Y→S:Cls:
“SXG=”:Locate 6,1,S◢
LbI B:Cls: “QS”?D:If D≥0 :Then Goto D:Else Goto C:IfEnd LbI C: M→Y:Abs（D）→X: Goto A
LbI D:S-D→M: Cls:
LbI E: “SJG”?F:M-F→G: Cls:“QS=”: “HC=”: “PC=”
Locate 6,1,D: Locate 6,2,M: Locate 6,3,G◢
Goto B
符号说明：
HS?
输入水准点上之后视读数
BM-H?输入水准点之设计高程
SXG= 显示视线高程
SJG= 设计高程
QS?输入该点的前视读数（注：当有转点时则转点的前视读数输入后显示HC为转点的高程，紧接着当再次提示QS?时将转点所测的后视读数以负值输入连续两次EXE即可显示转点后的视线高程，即可进行转点后的正常计算！）
QS=显示所输入的该点的前视读数
HC=显示计算所得的该点的实测高程
PC=偏差值
（在原有的程序中增加了偏差值的计算）。
5800P公路路线坐标正反算及高程计算程序
公路路线座标正反算及高程计算程序Fx-5800计算机程序1.FYJS 主程序Fix 3: “1.SZ=>NE:2.NE=>SZ:3.S=>H”:?Q:Q=1 => Goto1:Q=2 => Goto2: Q=3 => Goto3←┘Lbl 1: ＂K＂?S: ＂-B,0,+B＂?Z: “PJ”?M:Prog“5.DAT-SJK”:Prog“2.SUB1”: N+Zcos (F+M) →N:E+Zsin(F+M) →E←┘Prog“4.FY”：Goto 1←┘Lbl 2: “X”?B: “Y”?C:＂K＂?S: Pro g“3.SUB2”: “K=”:S◢“-B,0,+B=”:Z◢Goto 2←┘Lbl 3: ＂K＂?S ：Prog“5.1GCJSCX”: Goto 3＂K＂?S: 所计算点桩号＂-B,0,+B＂?Z: 计算点左右边距左- 右+ 中0“PJ”?M 所计算点斜距的右夹角“X”?B: 反算实测X坐标“Y”?C:反算实测Y坐标＂K＂?S: 反算点附近大概桩号2.SUB1 正算子程序0.5（1÷R-1÷P）÷L→D:S-O(字母 )→X←┘U+∫(cos(A+(X÷P+DX^(2))×180÷π,0,X)→N←┘V+∫(sin(A+(X÷P+DX^(2))×180÷π,0,X)→E←┘A+(X÷P+DX^(2))×180÷π→F←┘3.SUB2 反算子程序Lbl 1:0→Z：1→Q：Prog“5.DAT-SJK”: Prog“2.SUB1” :Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S:Abs(W)>0.0001 => Goto1←┘Lbl 2: 0→Z：Prog“2.SUB1”:(C-E) ÷sin(F+90) →Z4.FY 放样子程序"HS:X"?N:"HS:Y"?E :"CE:X"?G:"CE:Y"?H:Pol(N-G,E-H): J<0=>J+360→J: " FWJ=": J►DMS◢"JL=": I◢"HS:X"?N: 后视点（计算点）X坐标"HS:Y"?E : 后视点（计算点）Y坐标"CE:X"?G: 测站点X坐标"CE:Y"?H: 测站点Y坐标5.1高程计算子程序（5.1GCJSCX）Prog“ 6.SQX-DAT”:Z[6] Abs(Z[2]- Z[1]) ÷2→Z[3]:if Z[2]- Z[1]>θ :Then 1→Z[4]:Else -1→Z[4]:ifendif S<K:Then - Z[1]→T:Else Z[2]→T:ifendAbs (K-S)→Z[5]if Z[5]- Z[3]>θ:Then Z[7]+T Z[5]→Z[8]:“HS=”：Z[8]◢Else Z[7]+T Z[5]+ Z[4] (Z[3]- Z[5])2÷2÷Z[6]→Z[8]: “HS=”：Z[8]◢ifend5.DAT-SJK 数据库子程序Goto1←┘同时保存多个曲线时的指针Lbl 1←┘IF S<476533.296（线元终点里程）:Then31°24'29.07″→A（线元起点方位角）:476088→O（线元起点里程）:4689534.997→U（线元起点X）:479874.003→V（线元起点Y）:1045→P（线元起点曲率半径）:1045→R（线元终点曲率半径）:445.296→L（线元起点至终点长度）: R eturn:IfEnd←┘IF S<476803.296:Then31°45'48.37″→A:476533.296→O:4689913.601→U:480108.413→V:1045→P:12000→R: 270→L: Return:IfEnd←┘IF S<477106.771:Then32°24'28.85→A:476803.296→O:4690142.627→U:480251.404→V:12000→P:12000→R: 303.475→L: Return:IfEnd←┘IF S<477376.771:Then33°51'25.2″→A:477106.771→O:4690396.754→U:480417.272→V:12000→P:1045→R: 270→L: Return:IfEnd←┘IF S<488923.776:Then34°30'05.68→A:477376.771→O:4690619.834→U:480569.372→V:1045→P:1045→R: 11547.005→L: Return:IfEnd←┘IF S<489353.776:Then34°30'05.68″→A:488923.776→O:4700135.844→U:487109.930→V:1045→P:-10000→R:430→L: Return:IfEnd←┘IF S<490817.499:Then33°16'10.99″→A:489353.776→O:4700491.941→U:487350.944→V:-1000 0→P:-10000→R: 1463.723→L: Return:IfEnd←┘IF S<491247.499:Then24°52'59.52″→A:490817.499→O:4701770.051→U:488061.643→V:-1000 0→P:-1045→R: 430→L: Return:IfEnd←┘IF S<509336.037:Then23°39'04.83″→A:491247.499→O:4702162.678→U:488236.961→V:-1045→P:-1045→R: 18088.538→L: Return:IfEnd←┘程序名：(6.SQX-DAT)(高程竖曲线要素子程序)if S<332.599:Then 0.02793→Z[1]:-0.03309→Z[2]:1800→Z[6]:235→K:32.7→Z[7]: goto 1:ifendif S <734.085:Then -0.03309→Z[1]:-0.00485→Z[2]:6000→Z[6]:460→K:25.254→Z[7]: goto 1:ifend-- Lbl 1Z[1]—前坡: Z[2]—后坡: Z[6]—竖曲线半径 K—变坡点桩号: Z[7]—变坡点设计高三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。
CAISO5800公路坐标、高程计算程序
“E=”(R+(Z[6]+Z[7])/2)/cos(A/2)-R→E◢
“K(ZH)=”:K-S→Z[1]
“K(HY)=”:Z[1]+B→Z[2]◢
“K(QZ)=”:Z[1]+L/2+(B-C)/4→Z[3]◢
“K(YH)=”:Z[1]+L-C→Z[4]◢
“K(HZ)=”:Z[4]+C→Z[5]◢
Deg:Fix 3↓
“X0”?X:”Y0”?Y:”R”?R”FWJ”?:C:”KS”?S↓
Lbl 0↓
“KP”?G:G-S→L↓
90L/R/π→M↓
Abs(2RSin(M))→O↓
“XP=”:X+Ocos(C+M)→I◢
“YP=”:Y+Osin(C+M)→J◢
C+2M→F↓
“BP=”:F▲DMS◢
“RE”?T:If T≠0:Then 1/T→A:Else 0→A:IfEnd↓
“X0”?U:”Y0”?V↓
Lbl 0↓
“KP”?P↓
P-S→L↓
(B-A)/2/C→M↓
πQ/180→K↓
“XP=”:W+∫(cos(K+AX+MX^2),0,L)→F◢
“YP=”:Y+∫(sin(K+AX+MX^2),0,L)→G◢
“D1=”I◢
Lbl 2↓
“D ANGEL”?H:If H=0:Then Goto 0:IfEnd:”D”?D↓
“XB=”:F+Dcos(Z+H)→D◢
“YB=”:G+Dsin(Z+H)→H◢
CASIO-5800公路高程及加宽计算程序
CASIO-5800公路高程及加宽计算程序全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.1主程序KG【路基宽度与超高值计算程序】Deg:21→DimZ:“PEG=”？Z:Goto1Lbl0:“PEG=”？Z:IfZ≥Z[3]-UAndZ≤Z[6]:ThenGoto2:IfEndLbl1:Prog“Z”:R=0=>Goto2: (本节计算曲线要素)IfA＜0:Then-1→I:Ele1→I:IfEnd确认路线转向,左负右正I→Z[7]:Ab（A）→AL^(2)÷(24R)→P:L÷2-L^(3)÷(240R^(2))→Q:90L÷(πR）→B(R+P)tan（A÷2)+Q→TR(A-2B)π÷180→O计算切线长计算圆曲线长计算曲线长计算ZH点计算HY点计算YH点计算HZ点R(A-2B)π÷180+2L→CK-T→Z[3]Z[3]+L→Z[4]Z[4]+O→Z[5]Z[5]+L→Z[6]Lbl2:Prog“K1”:(本节计算路基宽与左右超高值)待求点位于直线线元时IfR=0:ThenZ[21]某Z[20]→Z[1]:Z[1]→Z[2]:Goto3:IfEnd待求点位于ZH前的直线段时IfZ≤Z[3]:ThenZ[20]某Z[21]→Z[1]:Z[1]→Z[2]:Goto3:IfEnd全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.待求点位于笫一缓和曲线时IfZ＞Z[3]AndZ＜Z[4]:ThenZ[21]→J:M→N:Z[20]→D:Z[4]-Z[3]→S:Z-Z[3]→F:Prog“ZG”:V→Z[1]-M→N:W→D:(Z[4]-Z[3])÷2→S:IfZ≤Z[3]+SAndZ＞Z[3]:ThenZ[21]D→Z[2]:Goto3:EleZ-(Z[3]+S)→E:Prog“ZG”:V→Z[2]:Goto3:IfEnd:IfEnd待求点位于圆曲线时IfZ≥Z[4]AndZ≤Z[5]:ThenZ[20]M→Z[1]:IfZ[3]=Z[4]:ThenZ[1]→Z [2]:Goto3:EleW→D:-MD→Z[2]:Goto3:IfEnd:IfEnd待求点位于笫二缓和曲线时IfZ＞Z[5]AndZ≤Z[6]:ThenM→J:Z[21]→N:Z[20]→D:Z[6]-Z[5]→S:Z-Z[5]→E:Prog“ZG”:V→Z[1]-M→J:W→D:(Z[6]-Z[5])÷2→S:IfZ＞Z[5]+SAndZ≤Z[6]:ThenZ[21]D→Z[2]:Goto3:EleZ-Z[5]→E:→Prog“ZG”:V→Z[2]:IfEnd:IfEndLbl3:0→D:Prog“H”:Cl:Fi某2“H=”:Locate8,1,H:线路右转时IfZ[7]＞0:Then“L=”:Locate8,1,Z[1]+H:“R=”:Locate8,3,Z[2]+H:左设计高右设计高路基总宽路基左宽(本节显示计算结果)显示中桩设计高程“KUAN=”:Locate10,4,W+Z[20]◢Cl:“KUANL=”:Locate11,1,Z[20]:全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.“R=”:Locate11,2,W:线路左转时路基右宽Ele“L=”:Locate8,2,Z[2]+H:“R=”:Locate8,3,Z[1]+H:左设计高右设计高路基总宽“KUAN=”Locate10,4,W+Z[20]◢Cl:“KUANL=”:Locate11,1,W:路基左宽“R=”:Locate11,2,Z[20]:IfEnd:路基右宽Goto02子程序K1【路基宽度计算程序】4.25→Z[20]:-0.0212→Z[21]:Prog“Z”:Z[20]为路基半幅宽,Z[21]为路基横坡值IfZ＞Z[3]AndZ＜Z[4]:T hen2Z[20]→A:G→B:Z[4]-Z[3]→C:Z-Z[3]→E:IfEnd待求点位于笫一缓和曲线IfZ＞Z[5]AndZ≤Z[6]:ThenG→A:2Z[20]→B:Z[6]-Z[5]→C:Z-Z[5]→E:IfEnd(B-A)E÷C+A→WZ≤Z[3]=>2Z[20]→W待求点位于ZH前的直线段时待求点位于笫二缓和曲线时IfZ≥Z[4]AndZ≤Z[5]:ThenG→W:IfEnd待求点位于圆曲线时R=0=>2Z[20]→W待求点位于直线线元时Fi某2:W-Z[20]→W:Return3子程序H【路基高程中桩计算程序】Prog“S0”:I÷100→I:C-T→E:Z-F→L:C+T→E:G-TI→Q:IfT=0:全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.ThenQ+LI→H:Goto0:EleIfZ＜F:ThenQ+LI→H:Goto0:EleIfZ≤E:ThenQ+LI+L^(2)÷2÷R→H:Goto0:IfEn d:IfEnd:IfEndLbl0:IfD≠0:ThenProg“I”:H+V→Z[8]:IfEnd:Return4子程序ZG【路基超高值计算程序】D((N-J)E÷S+J)→V:Return5子程序Z【路基坐标宽度超高值要素程序】(也是路基坐标计算子程序)IfZ＞74009.522AndZ≤74262.228:Then137.4033→U:362°51′35″→F:74205. 803→K:3015783.911→某:522375.5984→Y:120→R:45→L:-33°34′0.6″→A:10→G:0.0588→M:IfEndU-直线长度;F-方位角;K-交点桩号;某-交点某坐标;Y-交点Y坐标;R-曲线半径;L-缓和曲线长;A-转角值(左负右正);G-路基整幅宽;M-路基超高值.IfZ＞72900.557AndZ≤72959.892:Then0→R:72900.557→Z[3]:3014697.12→Z[ 16]:522932.0175→Z[17]:302°4′54.3″→F:IfEnd直线线元及断链时的解决方式R-曲线半径;Z[3]-直线段起点桩号;Z[16]-起点中桩某坐标;Z[17]-起点中桩Y坐标;F-方位角.6子程序S0【高程竖曲线要素程序】IfZ≥74003.6AndZ≤74134.2:Then-1200→R:34.2→T:74100→C:2022.92→G:3.6→I:IfEndR-竖曲线半径(凸负凹正);T-竖曲线切线长;C-竖曲线交点桩号;全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.G-交点高程;I-直线段坡度(上正下负)。
5800高程计算(含超高)
BG:（标高计算式程序）Lbl 1：Abs(.01(I－J)R÷2)－﹥T：If Z≥L+T：Then Goto 4:IfEndIf Z≥L-T：Then Goto 3:IfEndLbl 2：H+.01(Z－L)I－﹥B: Goto 5Lbl 3:H+.01(Z-L)I+(J-I)(Z+T-L)2÷(2R Abs(J-I)) －﹥B:Goto 5 Lbl 4:H+.01(Z-L)J－﹥B:Goto 5Lbl 5:BH——竖曲线顶点高程I——后坡J——前坡L——竖曲线顶点桩号B——设计高程R——圆曲线半径GX:（挂线高计算主程序）Lbl 0：“U=”?U: “Z=”?Z:If U=0: Then ?L:?H:?I:?J:?R: “Z=”?Z:Prog“BG”：“B=”：B▲“P=”?P:P:Goto 4: IfEndIf U=1: Then Prog“L1”：Prog“PY”：Goto 1: IfEndIf U=2: Then Prog“L2”：Prog“PY”：Goto 1: IfEndIf U=3: Then Prog“L1”：Prog“PZ”：Goto 1: IfEndIf U=4: Then Prog“L2”：Prog“PZ”：Goto 1: IfEndIf U=5: Then Prog“L3”：Prog“PZ”：Goto 1: IfEndIf U=6: Then Prog“LA”：Goto 2: IfEndIf U=7: Then Prog“LB”：Goto 2: IfEndIf U=8: Then Prog“LC”：Goto 2: IfEndIf U=9: Then Prog“LD”：Goto 2: IfEndIf U=10: Then Prog“LE”：Goto 2: IfEndLbl 1：Prog“BG”：Prog“HP”：“B=”：B▲“P=”：P▲Goto 3Lbl 2：Prog“BG”：“B=”：B▲“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4：((B－W) －(S－N) ÷1000+.01P(E－1))×1.31+.2－﹥M: “GX=”:M▲If E≠13.5: Then Goto 3:Else E=13.5: “V=”?V:Z+V－﹥Z: Goto 0: IfEndTX:（抬线高计算主程序）Lbl 0：“U=”?U: “Z=”?Z:If U=0: Then ?L:?H:?I:?J:?R: “Z=”?Z:Prog“BG”：“B=”：B▲“P=”?P:P:Goto 4: IfEndIf U=1: Then Prog“L1”：Prog“PY”：Goto 1: IfEndIf U=2: Then Prog“L2”：Prog“PY”：Goto 1: IfEndIf U=3: Then Prog“L1”：Prog“PZ”：Goto 1: IfEndIf U=4: Then Prog“L2”：Prog“PZ”：Goto 1: IfEndIf U=5: Then Prog“L3”：Prog“PZ”：Goto 1: IfEndIf U=6: Then Prog“LA”：Goto 2: IfEndIf U=7: Then Prog“LB”：Goto 2: IfEndIf U=8: Then Prog“LC”：Goto 2: IfEndIf U=9: Then Prog“LD”：Goto 2: IfEndIf U=10: Then Prog“LE”：Goto 2: IfEndLbl 1：Prog“BG”：Prog“HP”：“B=”：B▲“P=”：P▲Goto 3Lbl 2：Prog“BG”：“B=”：B▲“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4:(B－W)+.01P(E－1) －(S－N) ÷1000－﹥M: “TX=”:M▲If E≠0: Then Goto 3:Else E=0: “V=”?V:Z+V－﹥Z: Goto 0: IfEnd E——距中桩距离N——前视读数S——视线高U——条件语句V——桩号递进参数W——结构层厚度Z——所求桩号HP:（超高缓和段前后等长的线性横坡计算子程序）If Z≤A:Then -2－﹥P: Goto1：IfEndIf Z≤A+C:Then -2+(F+2)(Z-A) ÷C－﹥P: Goto1：IfEndIf Z≤A+C+O:Then F－﹥P: IfEndIf Z≤A+O+2C:Then -2+(F+2)(A+O+2C-Z) ÷C－﹥P: Goto1：IfEndIf Z＞A+O+2C:Then -2－﹥P: Goto1：IfEndLbl 1:本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——前超高缓和段起点桩号C——超高缓和段长度F——全超高段横坡O——全超高长度P——所求桩号横坡HP1 （超高缓和段前后不等长的线性横坡计算子程序）：If Z＜A: Then -2→P: Goto 1:IfEndIf Z≤A+L:Then -2+(F+2)(Z-A)/L→P: Goto 1:IfEndIf Z≤A+L+ O: Then F→P: Goto 1:IfEndIf Z≤A+ L+O+C: Then -2+(F+2)(A+ O–Z)/C→P: Goto 1:IfEndIf Z>A + L+O+C: Then -2→P: Goto 1:IfEnd本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——前超高缓和段起点桩号L——前超高缓和段长度C——后超高缓和段长度F——全超高段横坡O——全超高长度P——所求桩号横坡HP2:（3次抛物线性横坡计算子程序）If Z≤A:Then P－﹥P: Goto1：IfEndIf Z≤Q:Then (Z-A)÷（Q-A）－﹥K: P+(3K2-2K3)(F-P) －﹥P: Goto1：IfEndIf Z＞Q:Then F－﹥P: Goto1：IfEndLbl 1:本程序超高是绕中轴旋转（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——横坡变化段起点桩号; P——(是过渡值)横坡变化段起点横坡Q——横坡变化段终点桩号;F——横坡变化段终点横坡P——所求桩号横坡L1..或LA...等:（竖曲线数据库）If Z≤××× :Then ×××－﹥I : ×××－﹥J :×××－﹥L :×××－﹥H :×××－﹥ R : Goto 1: IfEnd………Lbl 1:PY或PZ（横坡数据库）If Z≤Q+O:Then ×××－﹥A: ×××－﹥Q:×××－﹥P :×××－﹥F : Goto 1: IfEn d………Lbl 1:谢谢发贴：+26 分【测量空间】[0查看楼主其它文章<<返回→回复内容只查看楼主与本人回复沙发：老第楼主11-1-22 12:57L1,2,3.A,B,C....等是线路命名子程序库，如断链，分离式路基所需而设。
卡西欧5800计算器程序坐标正反算（含高程）
卡西欧5800计算器程序坐标正反算（含高程）功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.帮助文件未完成程序浏览:FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"I:I=J=>500→DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]"PASSWORDS"I:I→Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"I:Cls:I≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。
如不够就适量加大。
RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Z[C+35]→I:"STATION-N"I:I→Z[C+35] 设置测站N坐标Z[C+36]→I:"STATION-E"I:I→Z[C+36] 设置测站E坐标Z[C+44]→I:"STATION-Z"I:I→Z[C+44] 设置测站Z坐标Z[C+45]→I:"STATION-HI"I:I→Z[C+45] 设置仪高Z[C+41]→I:"GC-DH"I:I→Z[C+41] 放样点高差常数Norm 1Z[C+23]→N 当前分段要素N坐标Z[C+24]→E 当前分段要素E坐标Z[C+25]→M 当前分段要素起点桩号Z[C+26]→H 当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29]→L 当前分段要素长度Z[C+3]→WZ[C+32]→I:"DAT1 2 3"I:I→Z[C+32] 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0→IZ[C+4]→I:"1 2 3"I:I→Z[C+4] 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到) Lbi 1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"G:G→Z[C+1] ;G桩求桩号Z[C+2]→B:"JL"B:B→Z[C+2] ;B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Prog "GCJS" ;高程计算Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G ;第一行显示桩号"X＝":Locate 3,2,X ;第二行显示X(N)坐标"Y＝":Locate 3,3,Y ；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z坐标Locate 10,4,Z[C+2] ；第四行显示横向距离Do:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]Pol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"DH":Locate 3,2,Z[C+48]:Locate 12,2,Z[C+49]"FWJ"J<0=J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName：ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEndIf J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd 直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs)÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd 圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段(R-A)÷L→KKQ2→J→P:H+IP+JP2→U→P:H+IP+JP2→V→P :H+IP+JP2→D→P:H+IP+JP2→F→P:H+IP+JP2→T→I→J→ON+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T))→XE+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISi n(T))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算)Norm 1Z[C+37]→I:"DQD-N"I:I→Z[C+37] 输入待求点N坐标I=-1=>Prog"INFWJDLDH"Z[C+38]→I:"DQD-E"I:I→Z[C+38] 输入待求点E坐标0→B：M+L÷2→G：Prog"ZBJS"Lbi S:RadZ[C+37]-X→I:Z[C+38]-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):J→Z[C+2]G+I→G:IF Abs(I)> :Then Prog"ZBJS":Goto S↙G→Z[C+1]FileName：INFWJDLDH 实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"J:J→Z[C+46]Z[C+47]→I:"DQD-DL"I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"K:K→Z[C+48]Z[C+49]→P:"RHT"P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"I:I→Z[C+40] 输入起坡点与中桩距离常数Z[C+41]→I:"QPD-DZ"I:I→Z[C+41] 输入起坡点与中桩高差常数Z[C+42]→I:"i"I:I→Z[C+42] 输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:Z[C+43]→I:"DQD-Z"I:I→Z[C+43] 输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与上一次测点的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"I:I→Z[C+33] 输入起坡点桩号Z[C+34]→I:"QPD-Z"I:I→Z[C+34] 输入起坡点高程Z[C+42]→I:"i"I:I→Z[C+42] 仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:Z[C+43]→I:"DQD-Z"I:I→Z[C+43] 输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与上一次测点的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22]0→KZ[C+5]→I:"1 Or 2"I:I→Z[C+5] ;选择1线或者2线180Z[C+3]÷π→J:"XZJJ"J:Jπ÷180→Z[C+3] ;斜桩夹角If I=1:Then Z[C+8]→Z[C+6]:Z[C+9]→Z[C+7]Z[C+12]→Z[C+16]:Z[C+13]→Z[C+17]:Z[C+18]→Z[C+20]Else Z[C+10]→Z[C+6]:Z[C+11]→Z[C+7]Z[C+14]→Z[C+16]:Z[C+15]→Z[C+17]::Z[C+19]→Z[C+20]Z[C+7]+3→Z[C+31]0→I:"1PQX,2SQX,3YSDS"I ;1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3I≠0=>Prog"DATLOCK"Prog"SETPFDYS"StopLbi 1 ;平曲线要素输入部分Z[C+6]→D-1→Z[D+3]For 1→J T o Z[C+16]Cls:"PQX":Locate 9,1,JZ[D+1]→I:"N"I:I→Z[D+1] ;请输入N坐标Z[D+2]→I:"E"I:I→Z[D+2] ;请输入E坐标Z[D+3]→I:"R"I:I→Z[D+3] ;请输入半径RZ[D+4]→I:"LS1"I:I→Z[D+4] ;请输入缓和曲线1长度Z[D+5]→I:"LS2"I:I→Z[D+5] ;请输入缓和曲线2长度Next1→Z[D-2]Goto SLbi 2 ;竖曲线要素输入部分Z[C+7]→D-1→Z[D+3]For 1→J T o Z[C+17]Cls:"SQX":Locate 9,1,JZ[D+1]→I:"BPDZH"I:I→Z[C+1] ;请输入变坡点桩号Z[D+2]→I:"BPDGC"I:I→Z[C+2] ;请输入变坡点高程Z[D+3]→I:"R"I:I→Z[C+3] ;请输入半径RD+3→DNext1→Z[D]Goto SLbi 3 ;要素点数输入部分Z[C+12]→I:"1PQXDS"I:I→Z[C+12] ;输入1线平曲线点数,最小值为3Z[C+13]→I:"1SQXDS"I:I→Z[C+13] ;输入1线竖曲线点数,最小值为3Z[C+18]→I:"1JDZH"I:I→Z[C+18] ;输入1线平曲线第一个交点的交点桩号Z[C+14]→I:"2PQXDS"I:I→Z[C+14] ;输入2线平曲线点数,最小值为3Z[C+15]→I:"2SQXDS"I:I→Z[C+15] ;输入2线竖曲线点数,最小值为3Z[C+19]→I:"2JDZH"I:I→Z[C+19] ;输入2线平曲线第一个交点的交点桩号C+Z[C+22]→Z[C+8] 1线路平曲线要素指针偏移基数Z[C+8]+5Z[C+12]→Z[C+9] 1线路竖曲线要素指针偏移基数Z[C+9]+3Z[C+13]→Z[C+10] 2线路平曲线要素指针偏移基数Z[C+10]+5Z[C+14]→Z[C+11] 2线路竖曲线要素指针偏移基数Z[C+11]+3Z[C+15]→Z[C+21] 要素数据库结束指针Z[C+21]+1→Z[C+30]Z[C+21]→DimZ 增加额外变量-1→KGoto SFileName:SETPFDYS 交点要素=>分段要素Norm 150→CRadZ[C+6]+5→DZ[C+21]+1→FF+6→DimZ-1→Z[F] ; 设置分段要素开始标志Z[C+20]→V ; 从数据库读入当前线第一个平曲线交点桩号0→GPol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第一条直线的距离I，计算方位角JJ→HZ[D-4]→Z[F+1] 直线段Z[D-3]→Z[F+2]V-I→Z[F+3]For 1→G T o Z[C+16]-2Pol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第本交点与下一交点的距离I，计算方位角JI→W:J→HPol(Z[D+6]-Z[D+1],Z[D+7]-Z[D+2])J-H→K ；计算转角K，负值是左转角，正值是右转角IF Abs(K)>π:Then If K>0:Then K-2π→K:Else K+2π→K:IfEnd:IfEndZ[D+3]→R ;从数据库读入半径RZ[D+4]→L ;从数据库读入缓和曲线1长度Z[D+5]→M ;从数据库读入缓和曲线2长度L÷2÷R→B ;计算缓和曲线1的B0角M÷2÷R→O ;计算缓和曲线2的B0角(Abs(K)-B-O)R→P ;计算圆曲线长度L2÷24÷R-L^(4) ÷2384÷R^(3) →Q ;内移值计算方法2L÷2-L^(3) ÷240÷R2→S ;切线增长值计算方法2M2÷24÷R-M^(4) ÷2384÷R^(3) →J ;内移值计算方法2M÷2-M^(3) ÷240÷R2→I ;切线增长值计算方法2Abs(π÷2- Abs(K)) →ARtan(Abs(K÷2))+S+J÷Cos(A)-QTan(A)→T ;计算切线1Rtan(Abs(K÷2))+I+Q÷Cos(A)-JTan(A)→U ;计算切线2H<0=>H+2π→HK<0 =>-1→AH→Z[F+4]0→Z[F+5]0→Z[F+6]F+6→FF+6→DimZRec(T,H) 缓和段1 Z[D+1]-I→NZ[D+2]-J→EN→Z[F+1]E→Z[F+2]V-T→Z[F+3]L=0=>Goto AH→Z[F+4]0→Z[F+5]A÷R→Z[F+6]F+6→DimZLbi A 圆弧段0→I:0→JL=0=>Goto BPol(L-L^(3)÷40÷R2,L2÷6÷R-L^(4)÷336÷R^(4)) Lbi B Rec(I,H+AJ)N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L→Z[F+3]H+AB→Z[F+4]A÷R→Z[F+5]A÷R→Z[F+6]F+6→FF+6→DimZM=0=>Goto C 缓和段2 Rec(2RSin÷R),H+AB+AP÷R÷2) N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L+P→Z[F+3]H+AB+AP÷R→Z[F+4]A÷R→Z[F+5]0→Z[F+6]Lbi CF+6→FF+6→DimZRec(U,H+K)Z[D+1]+J→Z[F+1]Z[D+2]+I→Z[F+2]V-T+L+P+M→Z[F+3]V-T+L+P+M-U+I→VD+5→DNextH+K→Z[F+4]0→Z[F+5]0→Z[F+6]F+9→DimZ1→Z[F+7]V→Z[F+9] 要素终点桩号DegFileName：READDATZ[C+32]→II=3=>Prog"READDAT3"If GM+L :Then ;验证要素是否可用，否则重设要素I=1=>Prog"READDAT1"I=2=>Prog"READDAT2"Prog"REALDAT3"IfEndFileName:READDAT1 平曲线分段要素读取程序1Z[C+30]→F0→JLbi 1 搜索要素If G<z[f+3]:then< p="">-1=Z[F]=>Goto E:F-6→F:-1→J:Goto 1Else 1=Z[F+1]=>Goto E:-1=J=>Goto 2:1→J:F+6→F:Goto 1 IfEndLbi 2F→Z[C+30]Z[F+1]→Z[C+23] 当前分段要素N坐标Z[F+2]→Z[C+24] 当前分段要素E坐标Z[F+3]→Z[C+25] 当前分段要素起点桩号Z[F+4]→[C+26] 当前分段要素起点方位角（正北）Z[F+5]→Z[C+27] 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[F+6]→Z[C+28] 当前分段要素终点曲率有左偏负右偏正（注意不半径）</z[f+3]:then<>。
f5800计算器线路整套使用程序(升级版)【坐标、高程、超高、通用程序】
YONG(辛普森公式JYJ)
, YA " P " ( 1 DKI : → ( H P ] X Y FAN = ? : ? 2 : = " W ( ) ▲ ▲ ▲ = " O "RB Q ( 2 ? : = : H " V " " 1 1 S JU Prog ( ) ( " 1 ) S ? : DKB ? ÷ O : : = ZCX1 ÷ × N " = R P ) : QXFWJ " : → P
O Y P ) π V : Y
) : ) + → : Lb1 : CHENG
→ G ) 2 F R 2 X "
W + ÷ Q : → : → :
: ( Abs ÷ Goto P " I O
Prog ( ( P 5 : X : +
" ( H ) : H = Y W
ZCX1 ( Abs Lb1 → " → →
DKR=？”表示起点里程；“DKB=？”表示终点里程；“RA=？”表示起点半径；“RB=？”表示终点半径； “z=-1，Y=1？”表示曲线左偏输-1，右偏输1；“DKI=？”待求点里程；“PIAN JU=?”表示待求点的边 距，左边输-，中桩输0，右边输正。
" = ? " C R 2 > Z " 1 ×
TONG
Lb1 XA " H Z : ) : H : FWJ ÷ O 90 " " Goto Lb1 : ( ) H : : X : ▲ " Goto PIAN 2 ↙ JU " : Z 0 = ? : = ( → IfEnd : Abs " P ) ÷ XS YS 1 4 X 1 ) X F : Prog : " G " -1 P D : " ? : RA , : Lb1 ZHENG U " = Y R If 1 4 + ÷ 2 Z : : ↙ ( : H × : : = = : DKR " = ) N : : O ( Abs Q [ X Y 1 " = ? 1
5800高程计算程序
SUB3-GC（高程子程序）
Lb11：?S:Prog“SJ”:A-B→W:Abs(R*W÷2) →T:R(Abs(W)÷W)→R:If S≤O-T:Then0→K: Else If S≥O+T: Then0→K :B→A:Else S-0+T→K: IfEnd
G-(O-S)A- K2÷2÷R→H:"H=":H◢Goto1
说明
1为正算，2为反算，3为超欠挖.
S= 变坡终点里程。
G=变坡点高度→G O=变坡起点里程
A=小里程坡度 B=大里程坡度 R=交点半径
H= 高程。
SJ-GC（子程序名-竖曲线数据库）
If S≤变坡终点里程：Then变坡点高度→G：变坡起点里程→O：小里程坡度→A：大里程坡度→B：半径→R：:IfEnd
(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。
每次只需要修改以上的数据或增加一个判断。
2.如整条线只有一个纵坡比喻为2﹪，那么程序应为S≥起点里程：Then 0.02→A：0.02→B：起点里程→O：起点高程→G：1×1045→R：。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
CASIO5800计算器公路测量计算程序程序设计:魏加训2009.2.28Casio 5800计算器数据库型万能坐标正反算计算程序一、主程序：1XYLbl 0:“1.ZS 2.FS”?→V↙If V=1: Then “CZ X” ?H: “CZ Y” ?T:Goto 1: Else If V=2: Then Goto 2 :IfEnd: IfEnd↙Lbl 1: “K××+×××”?D:?Z: “RJ”?G↙Prog “P.Z”↙(注:计算另一线路时修改替换此处和FS子程序中的P.Z为对应线路的数据库名称即可)Prog “ZS” ↙If Z<0: Then Cls:“X（L）=”: “Y（L）=”: Locate 6，1，X : Locate 6，2，Y◢Pol（X-H，Y-T）: Cls: “S（L）=”: Locate 6，1，I : "F（L）="：360Frac（（J+360）÷360▼DMS◢Goto 1:IfEnd↙If Z=0: Then Cls:“X（Z）=”: “Y（Z）=”: Locate 6，1，X : Locate 6，2，Y : “QXFWJ （Z）=”: 360Frac（（J+360）÷360▼DMS◢Pol（X-H，Y-T）: Cls: “S（Z）=”: Locate 6，1，I : "F（Z）="：360Frac（（J+360）÷360▼DMS◢Goto 1:IfEnd↙If Z >0: Then Cls:“X（R）=”: “Y（R）=”: Locate 6，1，X : Locate 6,2，Y◢Pol（X-H，Y-T）: Cls: “S（R）=”: Locate 6，1，I : "F（R）="：360Frac（（J+360）÷360▼DMS◢Goto 1:IfEnd↙Lbl 2: 0→Z:0→G:”X” ?M:”Y” ?I:Prog “FS”: Cls:“K=”：“Z=”：Locate 4，1，D : Locate 4，2，Z◢Goto 2↙二、正算子程序：ZS5→N: U(E-1-R-1)÷Abs（K-F）→P: Abs（D-F）÷N→Q: 90Q÷π→S:(注:此处5→N是控制计算精度可修改的,一般取值为4～6即可)C+(NPQ+2UR-1)NS→J:1→L↙A+Q÷6×(Cos (C)+Cos (J) +4∑（Cos (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2UR-1)LS,L,1,(N-1))）+ZCos（J+G) →X :B+Q÷6×(Sin(C)+Sin( J) +4∑（Sin (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2UR-1)LS,L,1,(N-1))）+Z Sin（J+G)→Y ↙三、反算子程序：FSLbl 0:Prog “P.Z”:Prog “ZS”↙(注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可)(I-Y)sin(J)+(M-X) cos(J)→ P :D+P→ D ↙If Abs(P)≥0.001:Then Goto 0 : Else Goto 1 : IfEnd↙Lbl 1: (I-Y)cos(J)-(M-X) sin(J) →Z四、曲线元要素数据库格式If D≥线元起点里程:Then线元起点里程→F:线元终点里程→K:线元起点X坐标→A:线元起点Y坐标→B:线元起点切线方位角→C:线元起点半径→R:线元终点半径→E:线元转向(注:左-1,右+1,直线为0) →U: IfEnd↙五、曲线元要素数据库样例：P.ZIf D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙...............…………………………………………………………If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙(注：如一条路有多个曲线元要素则按顺序排列依次添加入数据库P.Z中)六、程序说明：程序线元判断原则:(1) 以道路中线的前进方向（即里程增大的方向）区分左右；(2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。
(3) 当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次代替输入×10x45。
(4) 当线元为圆曲线时，无论其起点、终点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替输入×10x45；与圆曲线相接时，曲率半径等于圆曲线的半径。
终点与直线相接时，曲率半径为无穷大，以10的45次代替输入×10x45；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
终点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
七、输入与显示说明1.ZS时CZ X ? CZ Y? 输入置镜点即测站的X,Y坐标K××+×××? 输入所求的桩号Z ？输入所求点距中线的边距(在中线输零)RJ？输入边桩时左右边桩连线与线路前进中线的右交角X(L) 、X(Z) 、X(R)=×××计算得出的所求点的左、中、右X坐标Y(L) 、Y(Z) 、Y(R)=×××计算得出的所求点的左、中、右Y坐标QXFWJ(Z)= ×××计算得出所求点的中桩切线方位角F(L) 、F(Z) 、F(R)= ×××计算得出置镜点到测点即左、中、右的方位角S(L) 、S(Z) 、S(R)= ×××计算得出置镜点到测点即左、中、右的水平距离2.FS时X=×××输入所求点的X坐标Y=×××输入所求点的Y坐标K=×××计算得出求点所对应的里程Z=×××计算得出求点到所对应的里程的垂直距离（负就是左边，正就是右边）Casio 5800计算器数据库型全线高程计算程序一、主程序：2HLbl 1：“K××+×××”?K : Prog“S.Z”↙C÷100→C: D÷100→D: R Abs(D-C)÷2→T↙If D>C :Then 1→W:Else -1→W:IfEnd↙If K<A:Then -C→I:Else D→I: IfEnd↙Abs (A-K)→L↙If L>T:Then Z+IL→H:Cls :"H(S)=": Locate 7，1, H : 显示路面设计中桩高Gotoθ:Else Z+IL+W(T-L)2÷2÷R→H: Cls :"H(S)=": Locate 7，1, H◢显示路面设计中桩高IfEnd↙Lbl 0: “JGC(h)” ?O:”Z”?N:”HP”? J:“HC”?P:Abs(N) →N:H-O+N J÷100→B: Cls :"H=": Locate 4，1, B: "h=": Locate 4，2, B-P◢Goto 1二、竖曲线数据库格式：If K<下一竖曲线起点里程: Then: 本竖曲线前坡度(%前分子有正负)→C:本竖曲线后坡度(%前分子有正负)→D:本竖曲线半径→R:本竖曲线变坡点桩号→A:本竖曲线变坡点高程→Z: Goto 1: IfEnd ↙三、数据库样例: S.ZIf K<*** : Then: ***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙If K<*** : Then: ***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙If K<*** : Then: ***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙…………………………………………(注：如一条路有多个竖曲线要素则按顺序排列依次添加入数据库S.Z中)If K≤*** : Then: ***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙Lbl 1四、输入与显示说明K××+×××? 输入所求的桩号H(S)= ×××? 显示所求桩号的路面中桩设计高程JGC(h) ? 输入结构层厚度或从设计路面高程点处垂直向下的厚度Z ？输入所求点距中线的边距(注:只可输入正值,不可输入负值)HP？输入所求桩号处的横坡(%前分子有正负).HC？输入所求桩号处的全站仪实测高程H=×××显示计算得出的所求点的高程"h=" 显示计算得出的所求点的高差（+为填–为挖）（①当Z和JGC(h)为0时，则H=×××为路面中桩设计高程等于前面显示的H(S) ；②当Z为0，JGC(h)不为0时，则H=×××为路面垂直向下至某层的中桩设计高程；③当Z、JGC(h)、HP三者同时不为0时，则H=×××为路面垂直向下至某层的边桩对应Z位置的设计高程；④当Z不为0、JGC(h)为0、HP不为0时，则H=×××为路面边桩对应Z位置的设计高程；）。