Fx-5800隧道测量程序(左右线)实用版
Fx-5800P测量程序（两条线路）断面检测计算程序：DMJC3→DimZ：Lbl 0：？N： If N=1：Then Goto 1：Else Goto 2：IfEnd：Lbl 1：Prog“FANS—ZX”：If Z＜-5.32：Then -1×Z＋-1×5.32→E：Else 1×Z＋1×5.32→E：IfEnd：？C：Prog“GCJS—ZX”：M＋1.65→Z[3]：If C＞Z[3]：Then Goto3：Else Goto4：IfEnd：Lbl 2：Prog“FANS—YX”：If Z＜5.32：Then -1×Z＋1×5.32→E：Else 1×Z＋-1×5.32→E：IfEnd：？C：Prog“GCJS—YX”：M＋1.65→Z[3]：If C＞Z[3]：Then Goto3：Else Goto4：IfEnd：Lbl 3：？A：“Z[1]=”：E－√（A2－（C－Z[3]）2）→Z[1] ⊿“Z[2]=”：√（E2＋（C－Z[3]）2）－A→Z[2] ⊿Goto 0Lbl 4：？B：“Z[1]=”：（E＋2.5）－√（B2－（C－Z[3]）2）→Z[1] ⊿“Z[2]=”：√（（ E＋2.5）2＋（C－Z[3]）2）－B→Z[2] ⊿Goto 0正算主程序：ZHENGSUANLbl 0：？N：？S：？Z：If N=1：Then Goto1：Else Goto2: IfEnd：Lbl 1：Prog“SJK—ZX”：Goto3：Lbl 2：Prog“SJK—YX”：Goto3：Lbl 3：（P－R）÷（2HPR）→D：Abs(S－O) →W：Prog“SUB1”：“XS=”：X→X ⊿“YS=”：Y→Y ⊿“FS=”：F－90→F⊿Goto 0反算主程序：FANSUANLbl 0：？N：？S：？X：？Y：If N=1：Then Goto1：Else Goto2：IfEnd：Lbl 1：Prog“SJK—ZX”：Goto3：Lbl 2：Prog“SJK—YX”：Goto3：Lbl 3：（P－R）÷（2HPR）→D：X→I：Y→J：Prog“SUB2”：“S=”：O＋W →S⊿“Z=”：Z→Z⊿Goto 0左线反算程序：FANS-ZXS：？X：？Y：Prog“SJK—ZX”：（P－R）÷（2HPR）→D：X→I：Y→J：Prog“SUB2”：“S=”：O ＋W →S⊿“Z=”：Z→Z⊿右线反算程序：FANS-YXS：？X：？Y：Prog“SJK—YX”：（P－R）÷（2HPR）→D：X→I：Y→J：Prog“SUB2”：“S=”：O ＋W →S⊿“Z=”：Z→Z⊿高程计算主程序：GCJSLbl 0：？N：？S：If N=1：Then Prog“GCJS—ZX”：Else Prog“GCJS—YX”： IfEnd：“M=”：M→M⊿Goto 0左线高程计算程序：GCJS—ZXIf 8687.5＜S And S＜9012.5：Then 361.517－(162.5－(S－(8850－162.5))) ×1×0.034＋-1((S－(8850－162.5))2÷2÷13000→M：Else Goto1：IfEnd：Lbl 1：If 9012.5≤S And S≤9212.306：Then 362.9795＋(S－9012.5) ×0.009→M：Else Goto2：IfEnd：Lbl 2：If 9212.306＜S And S＜9697.694：Then 366.962－(242.694－(S－(9455－242.694))) ×1×0.009＋-1((S－(9455－242.694))2÷2÷12000→M：IfEnd右线高程计算程序：GCJS—YXIf 8664＜S And S＜8986：Then 360.667－(161－(S－(8825－161))) ×1×0.034＋-1((S－(8825－161))2÷2÷14000→M：Else Goto1：IfEnd：Lbl 1：If 8986≤S And S≤9199：Then 362.438＋(S－8986) ×0.011→M：Else Goto2：IfEnd：Lbl 2：If 9199＜S And S＜9751：Then 367.817－(276－(S －(9475－276))) ×1×0.011＋-1((S－(9475－276))2÷2÷12000→M：IfEnd子程序：SUB16→DimZ：0.1739274226→Z[1]：0.3260725774→Z[2]：0.0694318442→K：0.3300094782→L：G＋180QKW（1÷P＋KWD）÷∏→Z[3]：G＋180QLW（1÷P＋LWD）÷∏→Z[4]：G＋180 (1－L) QW（1÷P＋(1－L）WD）÷∏→Z[5]：G＋180 (1－K) QW（1÷P＋(1－K）WD）÷∏→Z[6]：U＋W(Z[1]×Cos(Z[3]) ＋Z[2] ×Cos(Z[4]) ＋Z[2]×Cos(Z[5]) ＋Z[1] ×Cos(Z[6])) →X：V＋W(Z[1]×Sin(Z[3]) ＋Z[2] ×Sin (Z[4]) ＋Z[2]×Sin (Z[5]) ＋Z[1] ×Sin (Z[6])) →Y：G＋180QW（1÷P＋WD）÷∏＋90→F：X＋Z Cos（F）→X：Y＋Z Sin（F）→Y子程序：SUB2G－90→T：Abs((Y－V) Cos(T) －（X－U）Sin(T) )→W：0→Z：Lbl 0：Prog“SUB1”：T＋180QW （1÷P＋WD）÷∏→L：(J－Y) Cos(L) －（I－X）Sin(L) →Z：If Abs(Z)＜10-6：Then Goto1：Else W＋Z→W：Goto0：IfEnd：Lbl 1：0→Z：Prog“SUB1”：（J－Y）÷Sin(F) →Z左线数据库：SJK—ZXIf 8664.061≤S And S≤9247.115：Then 9112.707→U：2432.7762→V：8664.061→O：156°43′26.5″→G：583.054→H：3368.07→P：3368.07→R：1→Q：Else Goto1: IfEnd: Lbl 1：If 9247.115＜S And S≤9759.572：Then 8559.884→U：2615.7832→V：9247.115→O：166°38′33.5″→G：512.457→H：3500→P：3500→R：-1→Q: I fEnd右线数据库：SJK—YXIf 8645.739≤S And S≤9193.166：Then 9127.191→U：2417.1346→V：8645.739→O：158°32′10.9″→G：547.427→H：3800→P：3800→R：1→Q：Else Goto1: IfEnd: Lbl 1：If 9193.166＜S And S≤9759.023：Then 8605.084→U：2580.1189→V：9193.166→O：166°47′25.3″→G：565.857→H：3196.239→P：3196.239→R：-1→Q: IfEnd（1）本程序可对直线、圆曲线、缓和曲线（完整或非完整型）进行计算（2）适用于弧长小于2倍半径的各种线元坐标正反算1、规定（1）以道路中线的前进方向区分左右；当线元往左偏时Q=-1，当线元往右偏时Q=1，当线元为直线时Q=0（2）当所求点位于中线（设计线）时Z=0，当位于中线（设计线）左边时Z取负值，当位于中线（设计线）右边时，Z取正值。
（3）当线元为直线时，其起、止点的曲率半径为无穷大，以10的45次代替。
（4）当线元为圆曲线时，无论其起、止点与什么线元相接，其曲率半径均等于圆弧的半径。
（5）当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
（6）当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定值；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径等于设计规定值；与圆曲线相接时，曲率半径等于圆曲线的半径。
2、符号说明U——线元起点X坐标V——线元起点Y坐标O——线元起点里程G——线元起点切线方位角H——线元长度P——线元起点圆曲率半径R——线元止点圆曲率半径Q——线元左右偏标志（左偏Q=-1，右偏Q=1，直线段Q=0）输入部分N——计算左线输入1，计算右边输入其他数即可S——正算时为待求点里程，反算时为所求点近似里程Z——正算时所求点距中线（设计线）的边距（左边取负，右边取正，在线上取0）X——反算时所求点的X坐标Y——反算时所求点的Y坐标A——测点所求断面半径C——测点实际高程输出（显示）部分XS=——正算计算得出的所求点X坐标YS=——正算计算得出的所求点Y坐标FS=——正算计算得出的所求点的切线方位角S=——反算计算得出的所求点的里程Z=——反算计算得出的所求点的边距Z[1]——计算得出测点支距方向平移值（“+”往内移、“-”往外移）Z[2]——计算出测点超欠值“超欠挖计算程序”及“断面检测计算程序”：5.32：隧道中线与设计线距离1.65：圆心至设计高程点距离2.5：边墙圆心至隧中距离A：隧拱半径B：隧道边墙半径“高程计算程序”：a 90927.5：第一竖曲线起点里程（其值为f值-竖曲线切线长T）b 251.443：线路起算点高程c 1.2：第一坡度d 90619.24：线路起算点里程e 91692.5：第一竖曲线终点里程f 259.73：第一变坡点（竖曲线交点）高程g -1：当c值≥h值即凸曲线为-1,c值<h值即凹曲线为1h -1.35：第二坡度i 30000：第一竖曲线半径j 91310：第一竖曲线交点里程k 1：当c值≥h值即凸曲线为1，c值<h值即凹曲线为-1l 93000：第二竖曲线起点里程m 254.566：第二竖曲线起点里程382.5：竖曲线切线长3、程序编辑及运行说明1、先编辑SUB1、SUB2两个子程序和正算主程序，然后编辑对应的数据库（SJK）程序。
CASIO-fx-5800P实用工程测量程序
CASIO-fx-5800P实用工程测量程序今天，我想向大家介绍一款非常实用的工程测量程序：CASIO-fx-5800P。
CASIO-fx-5800P是一款非常实用的计算器，可以用于各种工程测量和计算。
在这篇文章中，我将详细介绍该计算器的功能和使用方法。
什么是CASIO-fx-5800P？CASIO-fx-5800P是CASIO公司的一款高级科学计算器，该计算器集成了丰富的计算功能和工程测量功能，可以帮助用户准确地进行各种计算和测量。
该计算器适用于各种工程测量、科学计算、数据分析等工作。
CASIO-fx-5800P的功能下面是CASIO-fx-5800P常用的功能：1. 基本运算功能CASIO-fx-5800P可以进行各种基本运算，如加减乘除、开方、开方根、倒数等等。
2. 三角函数和反三角函数CASIO-fx-5800P 提供了三角函数和反三角函数的计算功能，如正弦函数、余弦函数、正切函数、反正弦函数、反余弦函数、反正切函数等。
3. 统计学计算CASIO-fx-5800P 提供了各种统计学计算功能，如数据输入、平均数、方差、标准差、偏差等。
4. 矩阵功能CASIO-fx-5800P 可以完成任何矩阵的基本计算，如矩阵乘法、矩阵求逆、矩阵行列式、矩阵分解、矩阵特征向量和特征值等。
5. 工程测量CASIO-fx-5800P 可以进行各种工程测量计算，如距离计算、面积计算、容积计算、温度计算、时间计算等。
6. 复数运算CASIO-fx-5800P 可以进行各种复数运算，如加减乘除、转换成极坐标形式等。
7. 方程求解CASIO-fx-5800P 可以解各种方程，如一次方程、二次方程、三次方程、四次方程、多项式方程、微积分方程等。
CASIO-fx-5800P在工程测量中的应用下面，我将介绍CASIO-fx-5800P 在工程测量中的应用。
CASIO-fx-5800P 是一种非常实用的计算器，在工程测量中有着广泛的应用。
隧道5800程序示例
付罗坡2号隧道直线程序名[FLP2 ZX]DK16645~16666.29和17528.57~176311、Lb1 0:?K:269.076+(K-16100)×0.0109→N:”N=”N▲Prog “KWCZ”Goto 0第一段FLP2 ZH-HY DK16666.29~DK16816.29右转缓和曲线第1段程序名[FLP2 ZH-HY]Lbl 1:16666.29→D:?A:A-D-(A-D)∧(5)÷40÷800²÷150²→S:93°10°19.86°+30×(A-D)²÷π÷800÷150→Q: 183°10°19.86°+90×(A-D)²÷π÷800÷150→B:3045488.579+Scos(Q)+2.118cos(B)→E:485755.096+Ssin(Q)+2.118sin（B）→F:Lbl 2:?X:?Y:Pol(X-E,Y-F):Abs(J-B+90)→C:int((A-abs(Icos(C)))×1000+0.5)÷1000→K:”K=”K▲K-D-(K-D)∧(5)÷40÷800²÷150²→U: 93°10°19.86°+30×(K-D)²÷π÷800÷150→L:485755.096+Usin(L)→P:int(abs(Isin(C))×1000+0.5)÷1000→Z: if Y＞P:Then -Z→Z:Else Z →Z:if endZ→Z:”Z=”Z▲269.076+(K-16100)×0.0109→N:”N=”N▲Prog “KWCZ”Goto 0第二段FLP2 HY-YH DK16816.288~DK17378.57右转圆曲线程序名[FLP2 HY-YH]Lb1 0:?X:?Y:Pol((X-3044684.486),(Y-485785.6245))→L: if J ＜0：Then J+360→J:Else J→J：if end(J-8°32°37.19°)×π×800÷180+16816.288→K:”K=”K ▲800-2.271-L→Z:”Z=”Z▲269.076+(K-16100)×0.0109→N:”N=”N▲Prog “KWCZ”Goto 0第三段FLP2 YH-HZ DK17378.57~DK17528.57右转缓和曲线第2段程序名[FLP2 YH-HZ]Lbl 1:？A:17528.57→D:D-A-(D-A)∧(5)÷40÷800²÷150²→S:324°11°8.26°-30×(D-A)²÷π÷800÷150→Q:234°11°8.26°-90×(D-A)²÷π÷800÷150→B:3045092.499+Scos(Q)+2.197cos(B)→E：486479.181+Ssin(Q)+2.197sin(B)→F:Lbl 2 :?X:?Y:Pol(X-E,Y-F):Abs(J-B+90)→C:int （（A-abs(Icos(C))）×1000+0.5）÷1000→K:”K=”:K▲D-K-(D-K)∧（5）÷40÷800²÷150²→U:324°11°8.26°-30×(D-K)²÷π÷800÷150→L:486479.181+Usin(L)→P: int(abs（Isin(C)）×1000+0.5)÷1000→Z: if Y＞P: Then -Z→Z: else Z→Z:if endZ→Z:”Z=”Z▲269.076+(K-16100)×0.0109→N:”N=”N▲Prog “KWCZ”Goto 1程序说明：A? 输入一个不大于待测点5米的里程(计算缓和曲线出现)；X? 输入实测X坐标；Y? 输入实测Y坐标；J? 不管；I? 不管；K= 计算出输入坐标的里程（K?输入实测里程，直线程序用）Z= 计算出输入坐标的支距（Z?输入实测支距，直线程序用）N= 计算出K里程的轨面设计高程；R? 输入隧道断面圆心O1到拱顶的半径；O= 计算出K里程的拱顶设计高程；V? 输入拱顶实测高程；M= 计算出拱顶超欠挖，“+”为超，“-”为欠；G? 输入隧道两侧实测高程；T= 计算出G高程的理论五寸台宽度；W= 计算出隧道两侧超欠挖，“+”为超，“-”为欠。
FX5800P计算器 隧道测量程序
(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
)紫金龙逸zijinlongyi0820@正反算辛普森5800程序2010年4月22日修改（可回头）仲项飞1.主程序(ZXC)2→DimZ(增加变量)Lbl 0：Z[9] →E:“1-ZS,2-FS” ?E：E→Z[9]↲Lbl1: ”XL LC” ?Z:Prog“DA TE1”:E≥2=＞Goto2 : 5.375(设计线路在线路中线右边为“-”，设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离，所有偏距以隧道中线起算;若算斜交，则改为0，则所有偏距以设计线路起算。
)→N:“DZX”?W:“PJ”?S:W+N→W:Abs(Z-F)→Q:Prog“XZS”:W-N→W:J-S→J:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=”:Locate 3, 4, Y◢"FWJ=”:J:J►DMS◢Goto 3Lbl 2:?X:?Y:Prog“XFS”: F+Q→Z:-5.375→N:W-N→W:Cls:Locate 1, 1,”K=”: Locate 3, 2,Z: Locate 1, 3, ”W=”: Locate 3, 4, W◢Goto 3Lbl 3：Prog “SQX1”DA TE1(数据库)7704.149→A:5024.7762→B:264°42'42.62"→C:1÷10^(45)→D: 1÷10^(45)→R:122020.554→F:124140.538→G:IfZ≤G:Then GotoA:IfEnd↲7508.761→A:2913.8154→B:264°42'42.62"→C:1÷10^(45)→D: 1÷(-750)→R: 124140.538→F:124360.538→G:IfZ≤G:Then GotoA:IfEnd↲………………(有几个线圆依次添加几个判断语句，顺序从小里程到大里程，次序不得颠倒)Lbl A………………(有几条线路就添加几个数据库。
5800卡西欧 隧道程序-----1主动竹山
1-1－SUIDAO－ZCX (隧道主程序)2-Lbl 5:" ZS=1,FS=2, SD=3, QH=4 "?N3-N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3:N=4=>Goto 4:4-Lbl 1: “(JSZH)K=”?S（计算桩号）：“（＋Z,－Y）Z=”?Z（计算偏距，左正右负）：Prog “SJ－PM”（平曲线数据库）：Abs(S－O) → W：Prog "SUB 1－ZS"（正算子程序）：“X="：Locate4,4,X:"Y="：Locate4,4,Y：F－90→F （该处F－90为计算正交90°边桩，要算斜交边桩即可改为？N：F－N→F）：S→ K：Prog“SJ－GC”（竖曲.线数据库）：“H=”：Locate4,4,H◢5-Goto 56-Lbl 2：“X=”?X：“Y=”？Y：Prog“SJ－PM”（平曲线数据库）：X→ I：Y→ J：Prog "SUB2－FS"（反算子程序）：O+W→S ：“K="：Locate4,4, S ：“（＋Z,－Y）P="：Locate4,4, Z：S→ K：Pro g“SJ－GC”（竖曲线数据库）：“H=”：Locate4,4, H◢7-Goto 58-Lbl 3 ：“X=”?X：“Y=”？Y：Prog“SJ－PM”（平曲线数据库）：X→ I：Y→ J：Prog "SUB2－FS"（反算子程序）：O+W→S：“K="：Locate4,4, S ：“（＋Z,－Y）P="：Locate4,4, Z：S→ K：Prog“SJ－GC” ：“H=”：Locate4, 4, H◢9-Prog“SJ－CQW”（隧道超欠挖数据库）: “（SJ-GD）H="：Locate4,4,F:“R:(+ CW,-QW)=”：Locate4,4,W◢10-Goto511-Lbl 4 ：“K=”?S（计算桩号）：“（＋Z,－Y）P=”?Z（计算偏距，左正右负）：Prog“SJ－PM”（平曲线数据库）：Abs(S－O) → W：Prog "SUB1－ZS"（正算子程序）：F－90→F（该处F－90为计算正交90°边桩，要算斜交边桩即可改为？N：F－N→F）：“JJ=”?J （涵洞轴线于路线主线右夹角）：0→A：0→B：Prog "QHZBJS"（桥涵坐标计算程序）：12-Goto5以上为第一个主程序13-SJ-PM（子程序名-平曲线形数据库）14-If S ≥38990.919（线元起点里程）:Then 9502.991→U（线元起点X坐标）：9616.568→V（线元起点Y坐标）：38990.919→O（线元起点里程）：298°11’04.8”→G（线元起点方位角）：130 →H（线元长度）：1×1045→P（线元起点曲率半径）：850→R（线元终点曲率半径）：－1 →Q（线元左右偏标志：左-1右1）：IfEnd15-If S ≥39120.919:Then9561.437→U：9500.485→V：39120.919→O：293°48’11.62”→G：295.75 →H：850→P：850→R：－1 →Q：IfEnd16-If S ≥39416.670:Then9631.804→U：9214.762→V：39416.670→O：273°52’03.4”→G：130→H：850→P：1×1045→R：－1 →Q：IfEnd17-If S ≥39546.67:Then9633.951→U：9084.813→V：39546.67→O：269°29’10.2”→G：486.016 →H：1×1045→P：1×1045→R：0→Q：IfEnd18-If S ≥40032.687:Then9629.593→U：8598.816→V：40032.687→O：369°29’10.2”→G：524.34 →H：2500→P：2500→R：－1 →Q：IfEnd19-If S ≥40557.027:Then9570.142→U：8078.824→V：40557.027→O：257°28’09.1”→G：295.341 →H：1×1045→P：1×1045→R：0→Q：IfEnd20-If S ≥40852.366:Then9506.063→U：7790.519→V：40852.366→O：257°28’09.1”→G：130 →H：1×1045→P：800→R：1 →Q：IfEnd21-If S ≥340982.366:Then9481.312→U：7662.936→V：40982.366→O：262°07’28.12”→G：169.903 →H：800→P：800→R：1 →Q：IfEnd22-If S ≥41152.27:Then9467.011→U：7493.435→V：41152.27→O：274°17’35.205”→G：130 →H：800→P：1×1045→R：1 →Q：IfEnd以上为第二个数据子程序23-SJ－GC（子程序名-竖曲线数据库）24-If S＜39537.6（变坡终点里程）And S≥39062.4（变坡起点里程）：Then0.02 98（大里程坡度）→A：0.01（小里程坡度）→B：39300（变坡点里程）→O：379.858（变坡点高度）→G：－24000（竖曲线半径，凸为正号，凹为负号，直线过度纵坡段半径为1×1045）→R：Prog“SUB3－GC”（高程子程序）:If End25-If S＜40048.9And S≥39537.6：Then0.0298→A：0.0298→B：39537.6→O：386.938→G：1×1045→R：Prog“SUB3－GC”:IfE nd26-If S＜40551.1And S≥40048.9：Then－0.026→A：0.0298→B：40300→O：409.658→G：9000→R：Prog“SUB3－GC”:IfEnd27-If S＜40924.5And S≥40551.1：Then－0.026→A：－0.026→B：40551.1→O：403.129→G：1×1045→R：Prog“SUB3－GC”:IfEnd28-If S＜41275.5And S≥40924.5：Then－0.013→A：－0.026→B：41100→O：388.858→G：－27000→R：Prog“SUB3－GC”:IfEnd29-If S＜41670And S≥41275.5：Then－0.013→A：－0.013→B：41275.5→O：386.576→G：1×1045→R：Prog“SUB3－GC”:IfEnd以上为第三个数据子程序30-SJ－CQW (子程序名-隧道超欠挖数据库)31-Fix 3 ：“H1=”?F（输入实测的高程）：“CQHD=”?C（输入超欠厚度）：5.6+C（圆心1的半径，拱顶圆弧）→R：8.1+C（圆心2的半径，左右两个）→P：1+C（圆心2的半径，左右两个）→M：15+C（圆心2的半径，左右两个）→N：F－H→F：Abs（6.8－Z）→Z（该处的0为数值，即道路中心线到圆心1的竖轴线的水平距离）32-If F＞1.4（圆心1的弧线到设计路面高程的距离）:Then √(Z2+(F－1.4)2)－R（该处的0.980为圆心1点到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号）→W（即计算出来的超欠挖值，正为超挖，负为欠挖）: IfEnd:33-If F≥－0.161（即为2.3两个左右圆弧的下限底点到设计高程的距离）AndF ＜1.4（圆心1的弧线到设计路面高程的距离）: Then √((Z+2.1)2+( F－1.4)2)－P→W :IfEnd:（该处的+1.4722为圆心点2.3到隧道中心线的水平距离，注意该处的符号判别，左边的圆弧圆心重到中心线右边的距离为+号，反则为－号；0.13为圆心点2.3到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号）34-若If F≥－0.916（即为2.3两个左右圆弧的下限底点到设计高程的距离）And F＜-0.161（圆心1的弧线到设计路面高程的距离）: Then √((Z-4.4669)2+( F +1.3683)2)－M→W :IfEnd:（该处的+1.4722为圆心点2.3到隧道中心线的水平距离，注意该处的符号判别，左边的圆弧圆心重到中心线右边的距离为+号，反则为－号；0.13为圆心点2.3到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号）35-If F<－0.916（即为2.3两个左右圆弧的下限底点到设计高程的距离）: Then √((Z-0)2+(- F+13.3)2)－N→W :IfEnd:（该处的+1.4722为圆心点2.3到隧道中心线的水平距离，注意该处的符号判别，左边的圆弧圆心重到中心线右边的距离为+号，反则为－号；0.13为圆心点2.3到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号以上为第四个数据子程序36-SUB1－ZS (正算子程序)1÷P→ C：(P-R)÷(2HPR) → D：180÷π→ E：0.1739274226→ A：0.326 0725774→ 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+QE FW(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))+Asin(G+QEMW (C+MWD))) → Y：G+QEW(C+WD)+90→ F：X+Zcos(F)→ X：Y+Zsin(F)→ Y以上为第五个正算子程序37-SUB2－FS (反算子程序)38-G-90→T：Abs((Y-V)cos(T)-(X-U)sin（T）) → W：0→ Z：Lbl 0：Prog "SUB1-ZS"：T+QEW(C+WD) →L：(J-Y)cos(L)-(I-X)sin(L) → Z：If Abs(Z) <1E-6(注：此处1E-6可输入0.000001)：then Goto1：Else W+Z → W：Got o 0：IfEndLbl 1：0→ Z：Prog "SUB1-ZS"：(J-Y)÷sin(F)→ Z以上为第六个反算子程序39-SUB3－GC （高程子程序）O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→PIf S≤M:ThenG-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Go to4:IfEnd: IfEnd: IfEndLbi3If W＞O：Then G+(M-S)2÷2÷R-L*B→H:Goto5: Else If W＜O: Then G-(M-S)2÷2÷R-L*B→H:Goto5: IfEnd: IfEndLbi4If W＞O：Then G+( S-P)2÷2÷R-L*A→H:Goto5: Else If W＜O: Then G-( S -P)2÷2÷R-L*A→H:Goto5: IfEnd: IfEndLbi5H→H: Return以上为第七个高程子程序40-QHZBJS（桥涵坐标计算子程序）41-Lbl 0：42-“ZXJL(+D,－X)=”?A（中线上的距离即涵洞宽度尺寸）：“BXJL（＋Z,－Y）=”?B（中线到边线上的距离即涵洞长度尺寸）：43-180°－J→I：44-180°－I－90→M：45-A÷cos（M）→T：46-X+cos（F）×T→C（该处是计算的中线上的坐标点，改为“XZ=”：X+cos（F）×T→C◢即可显示出来）：47-Y+sin（F）×T→D（该处是计算的中线上的坐标点，改为“YZ=”：Y+sin（F）×T→D◢即可显示出来）：48-“XB=”（显示计算的边桩）：C+cos（F－I）×B→H◢49-“YB=”（显示计算的边桩）：D+sin（F－I）×B→V◢50-0→D："JIXU"?D（是否继续运算输入0继续运算，输入1结束桥涵坐标的计算）：D=0＝﹥Goto 0以上为第八个桥涵子程序51-说明：(正算1秒，反算和超欠挖5秒完成)所有程序名。
FX5800计算器公路桥梁隧道测量程序
FX5800计算器公路桥梁隧道测量程序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）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY”:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂4.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D: Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂ LGD=＂: Loc ate 6,4,P：＂ RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: D o:＂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 :P rog＂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=＂: Locate 6,4,G◢LpWhi le Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>B reak: 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[1 0]: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＂J S＂: 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”:P rog”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:If End:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ” L X=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-H◢L pWhile 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→Z:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2]→J:Is in(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)÷34 560÷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)÷59 9040÷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)÷35300 97000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HP rog “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: LbI 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:IFEn d:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:” FWJ=”: Locate 6,4,J：F ix 3:” S=”:Locate 6,4, I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“X Z”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
fx5800测量程序
WDXCX （主程序名）"XJ="?G:"YJ="?H ：“1.SZ=>NE”:“2.NE=>SZ”:“1 or 2”?Q:↙Lbl 4: :＂DKI=＂?S:Prog“WDSJK”↙Lbl 0:Q=1 => Goto1:Q=2 => Goto2↙Lbl 1:＂Z=＂?Z:Prog“WDZS”↙Fix 4:Cls↙“X=”:Locate 3,1,N◢“Y=”:Locate 3,2,E◢“I=”:F→DMS◢ (注：→DMS为一个符号)P rog“WDJI”:Goto4↙Lbl 2: “N=”:?→B: “E=”: ? →C:B→N: C→E:Prog“WDFS”: “S=”:S◢“Z=”:Z◢Goto2↙主程序完，主程序经此改动后,即可加入测站点坐标进行距离与方位角的放样了;WDJI （注：方位角和距离放样子程序名,与主程序：“Prog“WDJI”:Goto4↙”对应）ClrStat↙Pol(N-G,E-H):Cls↙If J<0:ThenJ+360→Y:Else J→Y:IfEnd↙“FY J L=”:I◢“FY FWJ=”:Y→DMS◢ (注：→DMS为一个符号，方位角和距离放样子程序完)WDSJK 数据库子程序名Goto1↙同时保存多个曲线时的指针，通过更改序号（如：1改成2）变换曲线Lbl 1↙第一条曲线（如：左线数据库）IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙………………………..Lbl 2↙第二条曲线（如：右线数据库）IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙……………………….数据库子程序完。
卡西欧5800测量实用程序（含直线、圆曲线、大地转施工程序）
卡西欧5800测量实用程序（含直线、圆曲线、大地转施工程序）卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O :“ZY=”？Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”：F ◆DMS ◢Lb1 0 ↙X:?Y ↙Pol （X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos （G)→K:“K=”：K ◢Dsin （G)→C:“C=”：C ◢GoTo 0 ↙说明：QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果：里程桩号，即工程X 坐标C-- 显示计算结果：左右偏距，即工程Y 坐标, 中桩=0 ，左偏= 负值，右偏= 正值。
【测量程序】FX5800计算器测量程序集
测量程序】FX5800 计算器测量程序集FX5800 计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。
运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。
参数置放矩阵中，输入和可读性极好。
3、新增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序1•主程序1: 一般放样正反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名:1ZD-XY Lb1 Q: Norm 2:14 —DimZ : 1 —F: Prog” DX " :Lb1 X : Prog" QX" : 90—B:” PJ”？B: B—Z[1] : Lb1 0: Norm 2 : “KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2 —F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog ” KM ”：IfF=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog ＂THB ＂:IfF=1: Then Goto 1: Else Goto 2 : Lb1 1: F ix 3:" X =" : Locate6,4, X^H Y = H: Locate 6,4, Y丄P rog" 6JS” :Goto 0:Lb1 2:Fix 3: H KM = H: Locate 6,4, Z^H D = H : Locate6,4, D丄G oto 0 : Lbl 9:Mat F AG oto Q 2 .主程序2:高程、横坡、宽度程序（计算设计任意点高程、横坡及路基设计标准宽度）程序名：2GC14 — DimZ : LbI 0:Norm 2: Prog " QX": 0—B:” H-B: ” ？B:B —Z[9]:Lbl H: Norm 2: “KM ” ?Z:Z=-1=> Goto 0:?D:Prog” H” :Fix 3:” H=” :Locate 6,4,HA“I=” : Locate 6,4,I A Prog" GD " : “ SJLG= ”： Locate 6,4丄A Goto H3 .主程序3:涵洞放样程序（输入置仪点坐标。
卡西欧计算器程序
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：方位角2、坐标反算Lbl 0＂X1=″X:＂Y1=″Y:＂X2=″U:＂ Y2=″V?Pol(U-X,V-Y):?J<0 J+360→ J＂I= ″:I＂J=″:J DMSGOTO 0说明： X1Y1 ：第一点的坐标，X2Y2 第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″X: ＂Y0=″Y:＂ FWJ=″D: ＂ QDHAO=″G: ＂ ZDHAO=″C: ＂ R=″RLbl 1＂DQHAO=″LL<G Or L ＞ C GOTO 2＂P Y=″K180(L- G)÷ ( π R) → E2RSin→ FReC(Abs(F),D+ ：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→ o:o<0 360+o→ 0o＂F WJ=″:o? DMSGoto 1Lbl 2＂END″说明： X0Y0 ：起始点的坐标， FWJ：起始点的方位角， QDHAO ：起点里程， ZDHAO 终点里程，R：半径， DQHAO ：待求点里程， PY ：偏移量4、竖曲线＂QZHAO ″=J:＂H+B″=B:＂I1=″C:＂I2=″D:＂R=″R:＂T=″T:((D-C)÷100)÷Abs((D- C)÷ 100)→ A:Abs(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使用程序说明
Fx-5800程序使用说明本程序为本人自编含正反算、高程、超高、加宽及水准测量一体；可进行路基填挖坡角、高程放样；还可以换算路面各种结构成进行放样。
特别是反算可以对任意点进行反算坐标、高程并计算得出坡角，在实际应用中（1人看全站仪，1人拿棱镜，1人打桩）速度达可以让拿棱镜和打桩人员跑起来工作）。
其实有了本程序，测量是一件很轻松的工作，如果你还在用传统的程序测量方法，还在为计算标高、换算坡角等天天晚上加班计算后第二天还要移桩，真应该认真看看本程序，它可以让你的测量速度快最少一至两倍以上。
一份好的程序必须结合设计施工图进行编程可以让测量达到最快速度，如果有谁想要代编程序请联系：QQ：9286330；以下为某二级公路放样程序使用说明：一、运行A—XY程序：1、 X1？………………….输入测站点X位标；2、 Y1？………………….输入测站点Y位标；3、 X2？………………….输入后视点X位标；4、 Y2？………………….输入后视点Y位标；5、 Z2？………………….（1）输入测站点Z位标；或（2）输入后视点Z位标6、A=…………………….显示全站仪对后视的方位角（此时可将全站仪转到5800上显示的方位角并固定好水平位置，按仪器锁定方位角，然后将仪器对准后视点（为了保证更好精度，对准棱镜杆与后视控制点交叉处也可），放开锁定方位角即可进行测量）7、S=…………………….显示全站仪与后视点水平距离；8、 HS？………………….输入高差：（1）、若Z2？时输入测站点Z，则输入数据0；（2）、若Z2？时输入后视点Z，则输入全站仪对后视的高差数据；9、 LJG？……………….. 输入仪器高或棱镜高：（1）、若Z2？时输入测站点Z，则输入仪器仪高；（2）、若Z2？时输入后视点Z，则输入棱镜高；注意：5、8、9三步的关联，否则实测高程计算不对10、 LM？…………………输入路线号（如有匝道等多条线路时选择数据，若只有一条路则按“EXE”进入下一步，即选默认路线）11、 K？…………………输入预测点大概桩号（如测站测K25+200~K25+800，则可输入其桩号之间的数，如K25+300即输入25300即可，此桩号仅用于当数据多时加快后面的计算器运行速度）二、运行A—FY程序（当运行A—XY程序时自动运行，若不换测站点时才能直接运行本程序，即不用输入第一步数据，但换站时必需运行A—XY程序）（一）、正算放样（即根据已知桩号和边桩距离放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：1）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、K？………………….输入放样点桩号；4、B？………………….输入放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；5、A=…………………….显示全站仪与放样点的方位角（此时可将全站仪转到5800上显示的方位角进行对放样点方向）；6、S=…………………….显示全站仪与放样点水平距离HD；7、CS？………………….输入放样点与测站点的高差VD；8、LJG？………...…….. 输入放样点的棱镜高；9、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第13步重测放出真正的填（挖）坡角；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第9步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（二）、反算放样一：（即根据在任意点先测出方位角、距离、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：2）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、A3？…………………输入全站仪与放样点的方位角（即全站仪上方位角读数）；4、S3？………………….输入全站仪与放样点水平距离HD；5、CS？………………….输入放样点与测站点的高差VD；7、LJG？………...…….. 输入放样点的棱镜高；8、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第3步重测放出真正的填（挖）坡角；9、显示：K=…………….显示放样点桩号；B=…………….显示放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第8步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（三）、反算放样二：（即根据在任意点先测出XY坐标、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：3）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、X3？…………………输入全站仪上X坐标；；4、Y3？………………...输入全站仪上Y坐标；5~13步说明与(二)相同：（四）、已知设计坐标进行放样（如桥梁已知坐标放样等）：1、KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：4）2、使用说明与第（三）条只差在多显示方位角A、距离S进行放样，其它计算数据仅作参考对照用。