公路路线座标正反算(5800计算器)添加隧道超欠挖

平曲线坐标、反算桩号计算程序prog "PQX"{mn}:M"X0":N"Y0":Defm 7:Z[1]=0: Z[2] "H1"=1.940: Z[3]”RS”=6.430: Z[4]”JK”=0.6:Z[5]”RZ”=6.08Lbl 1:{ABGHVWK}:K"JL":G"JX":H"JY":V"I0":W"J0":A"R":B"LS":FixmP=B^2/24/A:Q=B/2-B^3/240/A^2:T=(A+P)tan(Abs W/2)+Q:C=K-T:D=C+B:F=D+π*A*Abs W/180:E=F-Bw<0=>s=-1:≠=>s=1△Lbl 2:{L}:L:L=0=>GOTO 1△Lbl 6:L≤C=>O=K-L:R=G-OcosV:U=H-OsinV:Z=V:GOTO 3△L≥F=>O=L-F+T:Z=V+W:R=G+OcosZ:U=H+OsinZ:GOTO 3△L<D=>O=L-C:prog "XY":Z=V+SR:R=G+(I-T)cosV-SjsinV:U=H+(I-T)sinV+jscosV:GOTO 3△L>E=>O=F-L:prog "XY":O=V+W:Z=O-SR:R=G+(T-I)cosO-SjsinO:U=H+(T-I)sinO+SJcosO:GOTO 3△O=180(L-D+B/2)/π/A:I=AsinO+Q:J=P+A(1-cosO):Z=V+SO:R=G-(T-I)cosV-SjsinV:U=H-(T-I)sinV+SJcosVLbl 3:Z[1]=0.002=>GOTO 5:≠=>O=0△R"XL"◢U"YL"◢Z"ZL"◢Lbl 4:{O}:O"YC":O=0=>GOTO 2△O=-1=>GOTO 5△X=R-OsinZ:Y=U+OcosZ:pol(X-M,Y-N:J<0=>J=J+360△X"XZ"◢Y"YZ"◢J"A0"◢I"DD"◢GOTO 4Lbl 5:{XY}:X"XF":X=-1=>Z[1]=0:GOTO 4△Y"YF":pol(X-R,Y-U:O=Icos(J-Z):AbsO≤0.001=>O"DL"◢L+O◢O=Isin(J-Z):O"YC"◢GOTO 7:≠=>Z[1]=0.002:L=L+O:GOTO 6△prog "XY"U=AB:I=O-O^5/40/U^2:J=O^3/6/U-O^7/336/U^3:R=90O^2/π/U隧道断面检查程序Lbl 7: {ZJ}::J”XJJ”:Z”H2”:Z[6]”NGD”=780.78+(622640-L)0.003: Z[6]”NGD”◢I= Z[6]+ Z[2]+ Z[3]cos60°:I≤Z=> Z[7]”CQ”=√((Z- Z[6]- Z[2])^2+(O-J/2)^2)- Z[3]:Z[7]”CQ”◢GOTO 5△I>Z=> Z[7]”CQ”=√((Z- Z[6]- Z[2]- Z[4]/2/tan60°)^2+(Abs(O-J/2) - Z[4]/2)^2)- Z[5]: Z[7]”CQ”◢GOTO 5△以上为隧道上导及中导计算程序。

隧道超欠挖5800计算程序ZBFS(坐标反算通用版《老版本》?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:If G → P:Else -1 → P:IfEndIf P=1:Then F→U:Else P=-1: Then F+A→U:IfEndIf A>0:Then 1→Z:Else -1→Z:IfEndPol(X-N,Y-E:If G>M:Then Goto 3:IfEndG+PT+Rec(I,J-U→S:J→ＤIf S G:Then ＂K=＂:S→K◢＂Q=＂:ZD=Q◢Goto 9Else Goto 4:IfEndLbl 3:If S G:Then ＂K=＂:S→K◢＂Q=＂:ZD→Q◢Goto 9Lbl 4:C2÷24÷Ｒ-C∧(4÷2688÷R∧(3→W:C÷２-C∧(3÷240÷R2→V:90C÷π÷R→B:Pol(P(S-G-V,ZD-R-W:If J B-90:Then Goto 5:IfEndP(S-G+P(S-G∧(5÷40÷R2÷C2→Z:Z∧(3÷(6RC→H:If A>0:Then D-H→W:Else –D-H→W:IfEndIf RC2WC:Then RC÷W→Z:Else ((RC-(R2C2-2RCWZ÷W→Z:Ifend＂K=＂:G+PZ→K◢K-PZ∧(5÷(40R2C2→V:Z∧(3÷(6RC→H:If A<0:Then -1→Z:Else1→Z:IfEnd((S-V2+(ZD-H2→W:If ZD H:Then ＂Q=＂:W→Q◢Else ＂Q=＂:-W→Q◢IfEndGoto 9Lbl 5(90+Jπ÷180-C÷(2R→J:If RJ P(M-G-2C: Then Goto 6:Ifend＂K=＂:G+P(C+JR→K◢＂Q=＂:R-I→Q◢Goto 9Lbl 6:Pol(P(S-G-T,ZD:M-P(T-Rec(I,J-Abs(A→O:If G>M:Then Goto 7:IfEndIf O>M:Then ＂k=＂:O→K◢＂Q=＂J→Q◢Goto 9Else Goto 8Lbl 7:If O M:Then ＂K=＂:O→K◢＂Q=＂:J→Q◢IfendGoto 9Lbl 8:P(M-O+P(M-O∧(5÷(40R2C2→Z:Z∧(3÷(6RC→H:J-H→W:If RC<2WZ:Then RC÷W→Z:Else((RC-((R2C2-2RCWZ÷W→Z:IfEnd＂K=＂:M-PZ→K◢K-PZ∧(5÷(40R2C2→V:Z∧(3÷(6RC→H:((O-V2+(J-H2→W:If J H:Then＂Q=＂:W→Q◢Else ＂Q=＂:-W→Q◢IfEndGoto 9Lbl 9:?Z:?S:＂Q=＂357.957（变坡点高程）+(K-26966（里程）×0.02098（坡度）+S→O◢O-Z-S→B:＂P=＂: ((5.3+Q2+B2-S→P◢Goto 0ZBZS(坐标正算通用版?D:?A:?R:?C:C2÷24÷Ｒ-C∧(4÷2688÷Ｒ∧(3→P:C÷２-C∧(3÷240÷R2→Q:90C÷π÷R→B(R+Ptan(Abs(A÷2+Q→T:(R+P÷cos(A÷２-R→J:(Abs(-A-(2BπR÷180+2C→L: ＂G＂:D-T→G◢＂H＂:G+C→H◢G+L÷2→W: ＂Z＂:G+L-C→Z◢＂M＂:G+L→M◢?N:?Z:?I:?F:If A<0:Then-1→S:Else 1→S:IfEndF+A÷2+90S→U:J+R→V: ＂B＂:N+Vcos(U→B: ＂O＂:E+Vsin(U→ＯLbl 1:?K:If K G:Then G+T-K→L:F+180→V:F→U:Goto 2:IfEndIf K H:Then K-G→L:L-L∧(5÷90÷(RC2→V:30SL2÷（πRC→L:F+180→P:F+L→Q:F+3L→U:Goto4:IfEndIf K Z:Then F+A÷2+180+90S+(K-W×180S÷(Rπ→L:L+90S→U:Goto 5:IfEndIf K M:Then M-K→L:L-L∧(5÷90÷(RC2→V:30SL2÷（πRC→L:F+A→P:F+A+180-L→Q:F+A-3L→U:Goto 4:IfEndIf K>M:Then K-M+T→L:F+A→V:V→U:Goto 2:IfEndLbl 2:＂X=＂:N+Lcos(V→X◢＂Y=＂:E+Lsin(V→Y◢Goto 6Lbl 3:?Q:＂X=＂:X+Qcos(U+90→X◢＂Y=＂:Y+Qsin(U+90→Y◢Goto 1Lbl 4:＂X=＂:N+Tcos(P+Vcos(Q→X◢＂Y=＂:E:+Tsin(P+Vsin(Q→Y◢Goto 6Lbl 5:＂X=＂:B+Rcos(L→X◢＂Y=＂:O+Rsin(L→Y◢Goto 6Lbl 6:I=1Goto 3◢Goto 1使用说明：反算说明：1、N：交点X坐标， E：交点Y坐标。

FX5800P全线任意里程中边桩坐标正反算（加了数据库）本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。

含竖曲线及隧道超欠挖，本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序 ZBJSLbl 6："1.SZ→ XY"："2.XY→ SZ"：？S：？N：“DYPQXSJK=”？→A:A=1 =>Prog“ZP1”:A=2=>Prog“ZP2”: A=3=>Prog“YP1”: A=4=>Prog“YP2”1÷P→C：(P-R)÷(2HPR) →D：180÷π→E:N=1 =>Goto 1: Goto 2Lbl 1:?Z: ?T:Abs(S-O)→W: Prog"SUB1":"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢“XC” ?C：“YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢If J∠0: Then “J=”: J+360►DMS◢IfEndIf J >0：Then “J=” ：J►DMS◢IfEnd：“DYSQXSJK=”？→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”: B=3=>Pro g“YG1”: B=3=>Prog“YG1”:Goto 6Lbl 2X:Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢"Z=":Z◢“DYSQXSJK=”？→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”: B=3=>Prog“YG1”: B=3=>Prog“YG1”:Goto 6如不想用偏角法放样可直接删除“XC” ?C：“YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢直接里程推坐标。

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卡西欧计算器公路测量常用程序一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括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时。

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。

)fx5800p隧道测量超欠挖计算程序曲线：QXLK“ZF”？U:“RP”?O:“ZY”? K:D“X 0”?D:E“YO”?E :?V:?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”？Q←┘Lb1 8←┘?X:?Y←┘Pol((X-D)，(Y-E) )) ←┘“S ”:= -V(I-O)=→S ◢(字母O)“L ”:=K+πOsin-1 (sin(90+V(J-U )))÷180→L◢RAbs(N-M)÷2→T←┘B-L→C←┘1→F←┘IF M＞N:Then-1→F:THEND←┘IF L＜B-T:Then Goto 1:ELSE IFL＜B:THEN Goto 2:ELSE IFL＜B+T:THENGoto3:ELSE IF L＞B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘Lb1 1←┘“G ”:=H-CM→G◢Goto5←┘Lb1 2←┘“G =”:H-C M +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 3←┘“G= ”:=H-C N +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 4←┘“G=”:H-CN→G◢Lb1 5←┘?Z←┘IF Z＞G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘Lb1 6←┘“W=”:√(S2+(Z-G-3.1) 2)-P→W◢Goto8←┘Lb1 7←┘“W=”:√((A+Abs（S)2+(Z-G-1.7) 2)-Q→W◢Goto8←┘说明：Z F？方位角RP？半径ZY？圆曲线起点桩号X0？圆心X坐标Y0？圆心Y坐标V？转向H ? 变坡点高程B? 变坡点桩号R? 竖曲线半径M? 前纵坡N? 后纵坡OZ-ZXX? 圆心距中心线距离R 1 ? 拱顶半径R 2 ？内圆半径XO ? 实测坐标YO ? 实测坐标J ?L ? 桩号S ? 平距G ? 设计高程Z ? 实测高程W ? 超欠挖(“+”为超挖“-”为欠挖)算例索子沟二号隧道圆曲线段参数设置：ZF? 324 35 53.4RP ？500 ZY？29117.543 X O？60807.872 Y O？12833.4328 V？1H ? 1717.4 B? 29750 R? 12000 M? 0.65％N? -0.1028％OZ-ZXX?2.2 R1? 4.286 R2? 6.893X=60869.64 Y=12332.5154 H=1720.211 计算L=29487.827 S=-4.711 W=0.56966直线：ZXLK“ZF”？U:“QSDZH”? K: “X0”?D: “YO”?E :?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”？Q←┘Lb1 8←┘?X:?Y←┘Pol((X-D)，(Y-E) )) ←┘“L ”:K+COS (J-U)×I→L◢“S ”:SIN (J-U) ×I→S ◢(RAbs(N-M)÷2→T←┘B-L→C←┘1→F←┘IF M＞N:Then-1→F:THEND←┘IF L＜B-T:Then Goto 1:ELSE IFL＜B:THEN Goto 2:ELSE IFL＜B+T:THENGoto3:ELSE IF L＞B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘Lb1 1←┘“G ”:=H-CM→G◢Goto5←┘Lb1 2←┘“G =”:H-C M +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 3←┘“G= ”:=H-C N +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 4←┘“G=”:H-CN→G◢Lb1 5←┘?Z←┘IF Z＞G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘Lb1 6←┘“W=”:√(S2+(Z-G-3.1) 2)-P→W◢Goto8←┘Lb1 7←┘“W=”:√((A+Abs（S)2+(Z-G-1.7) 2)-Q→W◢Goto8←┘说明：Z F？直线方位角QSDZH? 直援点圆心桩号X O？圆心X坐标Y O？圆心Y坐标H ? 变坡点高程B? 变坡点桩号R? 竖曲线半径M? 前纵坡N? 后纵坡OZ-ZXX? 圆心距中心线距离R 1 ? 拱顶半径R 2 ？内圆半径XO ? 实测坐标YO ? 实测坐标J ? L ? 桩号S ? 平距G ? 设计高程Z ? 实测高程W ? 超欠挖(“+”为超挖“-”为欠挖)算例索子沟二号隧道直线段参数设置：ZF? 4 12 28.7 QSDZH? 29463.203 X O？60844.56 Y O？12334.7807 H ? 1717.4 B? 29750 R? 12000 M?0.65％N? -0.1028％OZ-ZXX? 2.2 R1? 4.286 R2? 6.893X=61056.762 Y=12348.355 H=1723.69 计算L=29675.829 S=-2.033 G=1716.888. W=-0.063。

FX5800计算器公路测量常用程序集2.2 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCXLbI 0:17→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9：LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto B：LbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X O＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C:LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂? Z:Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂ H=＂: Lcoate 6,4,H-Z[9]：＂ I=＂:Locate 6,4,I： Goto D：LbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Got o 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L： Goto E：LbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]:LbI F:2→F: 90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FB X＂：Fix 2: P→D ：Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O：Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F:LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂ TW=＂:Locate 6,4,T◢ Goto H:LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto J:LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto K:LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂5SD＂： Goto M:LbI X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4] <0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:LbI W:Z[8]+Z[9]→A: If G>A:Then Goto 1:Else If G>Z[8]:T hen Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z [14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[1 0]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:G oto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷A bs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6] -Z[15] →L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L：Prog”ZD”:“ H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+3 60→J:IFEnd: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◢5．路基宽度子程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:6．坐标计算次程序（ＴＨＢ）程序名：THBIf Q>1:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:Else Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇoto 2: IfEnd:LbI 1:I+D×cos(Z[2]+Z[1]) →X: J+D×sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.0 46910077→K： 0.2307653449→L：0.5→M： U+W(Acos(G+QEKW (C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bco s(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+QE MW(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（Ｚ［２］+ Z[1]）→Ｘ：Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：L bl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X) sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:G oto 0: IfEnd:←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R ∧(3))÷sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P) →W:0→M:H→C:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O-T+ΠR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O+T-0. 5H)÷R÷Π→S : A+R(1-Cos(S))→B：H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T:N →H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G)→J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H10. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:E lse Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEndLbI 212．高程计算子程序（H）程序名：HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+ SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z ≤E:Then Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto 1: IfEnd:LbI 1: If W=1:Then Goto Z:Else Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3 ((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEn d:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12] 15．线路选择子程序(线路选择输0时。

隧道程序卡西欧计算器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平曲线要素表角度采用十进制小数模式，请采用普通模式版图观看才能正常显示。

曲线任意里程中边桩坐标正反算及高程、隧道断面超欠挖程序(CASIO fx-5800P计算器)程序(加数据库版)1.正算主程序[KP-XY]"DK="?K:"PJ="?P:Prog"SJK""XS=":X+P cos(Z[4]+90)→X◢"YS=":Y+P sin(Z[4]+90)→Y◢"QX-FWJ=":Z[4]►DMS◢Prog"SQX":O→I:O→J:"XC="?A:"YC="?B:Pol(X-A,Y-B)J<0＝＞360+J→J"FWJ=":J►DMS◢"P=":I◢2.反算主程序[XY-KP]"DK="?K:"X:"?U:"Y:"?VLbl 0Prog"SJK":O→I:O→J:Pol(U-X,V-Y):J<0＝＞J+360→JIcos(J-Z[4])→Z[5]If Abs(Z[5])≥0.001:Then K+Z[5]→K:Goto 0Else Isin(J-Z[4])→P:Ifend"DK=":K◢"PJ=":P◢Prog"SQX"Return3.隧道超欠挖主程序[CQW]Prog"XY-KP"："Q="?QIf Q≥H+6.471:Then "X=":Abs(P）-√(4.26²-(Q-H-4.34)²)→X◢"Y=":Abs(Q-H-4.34)-√(4.26²-P²)→Y◢Eles If Q≥H+2.17:Then "X=":Abs（P）-(√(7.41²-(H+2.77-Q)²)-2.73）→X◢Eles If Q≥H-0.415：Then "X=":Abs（P）-(4.65-(H+2.17-Q)×0.22÷2.58)→X◢"Y=":H-0.42-Q→Y◢Eles If Q≥H-3.2：Then "Y(YG)=":(H+5.2-Q)-√(7.1²-P²)→Y◢IfEnd:IfEnd:IfEnd:IfEnd4.综合洞超欠挖主程序（ZHD)Prog"XY-KP":K-302480→D:"Q="?QIf Q≥H＋4.8:Then "X=":Abs(D)-√(2.5²-(Q-H-4.8)²)→X◢"Y=":Abs(Q-H-4.8)-√(2.5²-D²)→Y◢Else If Q≥H:Then "X=":2.5-Abs(D)→X◢"Y=":H-Q→Y◢说明：302480综合洞里程，2.5半径，4.8总高度5.竖曲线主程序[SQX]0.003(6.984/1000)→I:0.006(-6.4/1000)→J:20000(15000)→R:301420(42350)→L:R Abs(I-J)÷2→Z[2]:RAbs(I-J)÷(I-J)→RIf K≤L-Z[2]:Then 0→Z:Else If K≥L+Z[2]:Then 0→Z:J→I:Else K-L+Z[2]→Z IfEnd:IfEnd"H=":200.621(164.958 )-I(L-K)-Z²÷2÷R→H◢说明：0.003前坡坡度，0.006后坡坡度，20000竖曲线半径，301420竖曲线交点里程，200.621竖曲线交点高程（有竖曲线使用考虑后的高程）0.003→I:0.006→J:0→R:301420→L:RAbs(I-J)÷2→Z[2]:RAbs(I-J)÷(I-J)→RIf K≤L-Z[2]:Then 0→Z:Else If K≥L+Z[2]:Then 0→Z:J→I:Else K-L+T→Z: IfEnd:IfEnd"H=":200.621-I(L-K)→H◢未有竖曲线6.数据库程序[SJK]4500（4500）→R:340（120）→G:157°25′52.55″（220.350722°）→Z:300412.156（43227.29）→F:-23°37′53.48″（6.23477）→O1→Z[1]: 0<0＝＞-1→Z[1]K-F→SIf S≤0:Then S→I:Z+180→J:Z→Z[4]:2953202.491（3678.283）+Icos(J)→X:497703.0998（1696.445）+Isin(J)→Y:Else If S≤G:Then 30Z[1]S²÷(πRG)→W:√((S-S^5÷(40R²G²))²+(S^3÷(6RG))²)→I:Z+W→J:Z+3W→Z[4]:2953202.491（3678.283）+Icos(J)→X:497703.0998（1696.445）+Isin(J)→Y:Else If S≤2196.015（622.3879）-G:Then S-G→S:90Z[1]S÷(πR)→W:2Rsin(Abs(W))→I:Z+90Z[1]G÷π÷R+W→J:J+W→Z[4]:2952890.216（3587.499）+Icos(J)→X:497837.5235（1617.971）+Isin(J)→Y:Else If S≤2196.015:Then 2196.015-S→S:30Z[1]S²÷(πRG)→W:√((S-S^5÷(40R²G²))²+(S^3÷(6RG))²)→I:Z+0+180-W→J:Z+0-3W→Z[4]:2951406.6187（3229.258）+Icos(J)→X:498932.0473（1266.092）+Isin(J)→Y:Else If S＞2196.015:Then S-2196.015→I:Z+O→Z[4]:2951406.6187（3229.258）+Icos(Z[4])→X:498932.0473（1266.092）+Isin(Z[4])→Y:IfEnd:IfEnd:IfEnd:IfEnd:IfEndReturn说明：4500→R曲线半径，340→G缓和曲线长度，157°25′52.55″→Z线路方位角，-23°37′53.48″→O转向角（沿线路方向左负右正），300412.156→F直缓点里程（ZH），2953202.491，497703.0998沿线路方向直缓点坐标（ZH），2196.015曲线长度，2952890.216，497837.5235沿线路方向缓圆点坐标（HY），2951406.6187，498932.0473沿线路方向缓直点坐标（HZ）。

5800正反算、隧道超欠挖程序.doc-正算主程序(BBC)-Lb1 0-?S：?Z：Prog“SJK”：Abs(S-O) → W：Prog "SUB1"："XS="：X◢-"YS="：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Goto 0-反算主程序(AAFS)-Lb1 0-?S：? X：？Y：“SCH”?→Z[3]：Prog“SJK”（数据库）：X→ I：Y→J：Prog "SUB2"（反算）："S="：O+W→S◢"Z="：Z-2.3→Z[2]◢IfS<5782:Then286.252+(S-5558)*5.6/1000-(S-5558)2/40000→Z[1]:IfEndIfS≧5782:Then286.252-(S-5782)*5.6/1000→Z[1]:IfEnd“SJH”:Z[1]+0→Z[1] ◢IfZ[3]≧Z[1]+0.3:Then:6.86-√((Z[2]2+(Z[3]-Z[1]-2.27)2)→Z[4] :IfEndIfZ[3]∠Z[1]+0.3:Then:6.86-√(((AbsZ[2]-2.85)2+(Z[3]-Z[1]-1.12)2)→Z[4] :IfEndZ[4]→”CQW”◢“GJ”:Z[1]+2.27-Z[3]→Z[9] ◢“TC”:Z[3]-(Z[1]-0.83+Abs(Z[2]*2/100))→Z[5] ◢“ER”:Z[3]-Z[1]-8.73→Z[6] ◢Goto0正算子程序(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))+Bsin(G +QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) → Y：G+QEW(C+WD)+90→ F：X+ZcosF→ X：Y+ZsinF→ Y反算子程序(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)cosL-(I-X)sinL → Z：ifAbsZ<1E-6：then0→ Z：Prog "SUB1"：(J-Y)÷sinF→ ZElesW+Z → W：Goto0：IfEnd←┘­子程序SJKifS≥5600（线元起点里程）AndS＜5786.5807（线元止点里程）：Then2723.6697→U（线元起点X坐标）：1586.0304→V（线元起点Y坐标）：5600→O（线元起点里程）：191°10°08.3°→G（线元起点方位角）：186.5807→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0→Q（线元左右偏标志：左负右正）：IfEnd←┘-ifS≥5786.5807（线元起点里程）AndS＜6066.5807（线元止点里程）：Then2540.622 →U（线元起点X坐标）：1549.889→V（线元起点Y坐标）：5786.5807→O（线元起点里程）：191°10°08.3°→G（线元起点方位角）：280→H（线元长度）：10^（45）→P（线元起点曲率半径）：5500→R（线元终点曲率半径）：1→Q（线元左右偏标志：左负右正）：IfEnd三、使用说明-1、规定-(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。