FX5800P——全套 双线隧洞超欠挖程序
徐升技术总结(5800在隧道里的应用)
CASIOfx-5800P计算器在隧道测量中的应用中铁航空港集团一公司徐升714000摘要：为了使隧道测量工作更加高效简便，通过对广泛应用于路桥工程测量的CASIO fx-5800P计算器程序进行研究，结合兰州地铁的实际情况，编程出适合隧道测量的计算器程序，实践应用表明这些新方法能够有效简化工作量，提高效率。
关键词:CASIO fx-5800P计算器；隧道测量；计算器程序。
隧道的测量工作是隧道建设生产的眼睛，对于每个隧道都是不可缺少的。
在隧道测量工作中，隧道的掘进与贯通是重中之重，控制好中腰线是绝对是不可回避的任务，在东岗站后配线暗挖区间的测量实践中，通过借鉴在路桥测量中的理论和方法，进行思考和创新，结合实际情况，摸索出了采用CASIO fx-5800P计算器来解决测量工作中的一些困难，使得对于中腰线的控制变得精确、透明和简单，减少了隧道内外的工作时间，有效地简化了工作量，从而达到了事半功倍的效果。
1 、东岗站后配线暗挖区间的测量方案根据设计单位交接桩所提供的首级网GPS点及二级网（精密导线）点，结合东岗东路片区施工场地范围内建筑物的的特点，进行精密导线加密控制网点布置。
图一竖井完成后使用TS15全站仪竖井施工完成后，根据导线控制点及高程控制点直接向竖井内传递坐标和高程，采用联系三角形法进行。
联系三角形测量整个流程如下：1、在竖井悬挂两根钢丝，钢丝间的距离L应尽可能长，宜选用直径为0.3mm钢丝，下端悬挂10kg重锤，重锤应浸没在阻尼液中，在两根钢丝上下适当位置分别贴上反射片。
特别需要注意的是：两根钢丝的方向需与隧道方向一致。
2、测量近井导线点坐标，近井导线最短边长不应小于50米，近井点与精密导线点应构成附和导线或闭合导线。
3、假设全站仪于井口某一导线点上图2，该导线点与两根钢丝应形成直伸形三角形，联系三角形锐角宜小于1°，近井导线点至悬挂钢丝的最短距离与两根钢丝间距离c的比值宜小于1.5。
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程序
fx－5800魔鬼程序终结版程序DD (线路调度)2000→Dimz↙扩展额外变量（根据内存情况定义）""："Z A B C D E F G"↙从8条线路中选择1条Do↙If Getkey=27：Then 45→Z[41]：305→Z[42]：386→Z[43]：Break：IfEnd↙If Getkey=51：Then440→Z[41]：672→Z[42]：744→Z[43]：Break：IfEnd↙If Getkey=52：Then 792→Z[41]：996→Z[42]：1059→Z[43]：Break：IfEnd↙If Getkey=53：Then1101→Z[41]：1277→Z[42]：1331→Z[43]：Break：IfEnd↙If Getkey=54：Then1367→Z[41]：1515→Z[42]：1560→Z[43]：Break：IfEnd↙If Getkey=55：Then1590→Z[41]：1710→Z[42]：1746→Z[43]：Break：IfEnd↙If Getkey=56：Then1770→Z[41]：1862→Z[42]：1889→Z[43]：Break：IfEnd↙If Getkey=43：Then1907→Z[41]：1971→Z[42]1989→Z[43]:Break:IfEnd↙LpWhile Getkey≠73↙Z[41]4.数据输入：SRZ[41→C ：Z[42→W ：Z[43→M←┘”PW”?N:N≠2013=>Step←┘输入密码2013“ZB1,GC2,CG3” ?N:Cls: 坐标数据按1，高程数据按2，超过数据按3。
N=2＝>Goto 2：N=3＝>Goto 3：Lbl 1:Z[C→A: ”K”?A: A→Z[C]: 输入线源起点桩号Z[C+1→A: ”X”?A: A→Z[C+1]: 输入线源起点坐标XZ[C+2→A: ”Y”?A: A→Z[C+2]: 输入线源起点坐标YZ[C+3→A: ”FW”?A: A→Z[C+3]: 输入线源起点切线方位角Z[C+4→A: ”P”?A: A→Z[C+4]: 输入线源起点半径Z[C+5→A: ”R”?A: A→Z[C+5]: 输入线源终点半径Z[C+7→A: ”Q”?A: A→Z[C+7]: 输入线源方向，直线输入0，左转输入-1，右转输入1 C+7→C: Goto 1←┘Lbl 2:Z[W→A: ”GC”?A: A→Z[W]: 输入变坡点高程Z[W+1→A: ”JD”?A: A→Z[W+1]: 输入边坡点桩号Z[W+2→A: ”R”?A: A→Z[W+2]: 输入竖曲线半径（起点与终点半径输入0）W+3→W: Goto 2←┘Lbl 3:Z[M→A: ”Q(-Z+Y)”?A: A→Z[M]: 输入平曲线方向，左转输入-1 右转输入1。
隧道超欠挖计算程序
曲线（含直线）任意里程中边桩坐标正反算（CASIO fx-4800p&fx-4850）J-SQX(竖曲线数据输入)“J-SQX”：{NHUVMQP}：Z[9]=N“SJD”：Z[10]=H“JDZ”：Z[11]=U“I1”：Z[12]=V“I2”：Z[13]=M“R”：Z[14]=Q“QD”：Z[15]=P“ZD”：“TO J-JS MS”J-PQX(平曲线数据输入,自动切换到J-JSMS)A“JD”B“JDX”C“JDY”F“FJ”O“ZJ：Z-，Y+”RE“LS1”K“LS2”：E＜1=＞E=1E-9⊿K＜1=＞K=1E-9⊿Z[1]=EE÷(24R)-E^4÷(2688RRR)：Z[2]=E÷2-EEE÷(240RR)：X=(EE-KK)÷(24R)÷sinAbsO：Z[3]“T1”=(R+Z[1])tan(AbsO÷2)+Z[2]-X▲Z[4]“T2”=(R+KK÷(24R)-K^4÷(2688RRR))tan(AbsO÷2)+K÷2-KKK÷(240RR)+X▲L=AbsOπR÷180+(E+K)÷2▲J=tan-1((R+Z[1])÷(Z[3]-Z[2]))：X“E”=(R+Z[1])÷sinJ-R▲X=A-Z[3]：Y=X+E：E＜1=＞X“ZY”▲≠=＞X“ZH”▲Y“HY”▲⊿Y“QZ”=X+(L-K-E)÷2+E▲Y=X+L-K：X=X+L：K＜1=＞X“YZ”▲≠=＞Y“YH”▲X“HZ”▲⊿Prog“J-JSMS”J-JSMS(放样模式主程序)“1-ZS,2-FS,4-DMFY” Lb1 0：{Z}：Z“MS”≤1=＞Goto 1：≠=＞Z“MS”≤4=＞Goto 2⊿⊿Lb1 1：{PDW}：PD“BZ”W“BJ”：Prog“JP”：X“X=”▲Y“Y=”▲Goto 0⊿Lb1 2：{XYW}：XYW“BJ”： Prog“JF”：P“P=”▲D“BZ=”▲Z=3=＞Prog“JS”：Prog“DMFY”⊿(运行竖曲线高程计算程序)Z=4=＞Z[26] “H”=12.417+(P-75360)*5.2/1000: Prog“DMFY”⊿（运行单面坡比高程计算,语句中12.417为起点桩号DK75+360的高程,可以根据实际情况进行调整；5.2/1000为单面上坡率,上坡输正值，下坡输负值）Goto 0JS(竖曲线计算主程序)P＜Z[14] =＞Prog“J-SQX”⊿P＞Z[15] =＞ Prog“J-SQX”⊿N=Z[9]：U=Z[11]：V=Z[12]：H=Z[13]：G=H Abs(U-V)÷200：P＜N=＞I=U：M=N-G：M＞P=＞M=P⊿≠=＞I=V：M=N+G：M＜P=＞M=P⊿⊿J=(P-M)2÷(2H)：U-V＞0=＞J=-J⊿H=Z[10]+(P-N)×I÷100+JZ[26] “H”=HJP(平曲线正算子程序)FixmLb1 1：J=F：X=B-Z[3]cosF：Y=C-Z[3]sinF：G=EP≤A-Z[3] =＞I=A-Z[3]-P：M=-I：N=0：H=F+W：Goto5≠=＞P≤A-Z[3]+E=＞I=P-A+Z[3]：H=90II÷(REπ)：O＜0=＞H=-H⊿H=H+W+F： Goto 3≠=＞P≤A-Z[3]+L-K=＞I=P-A+Z[3]-E： Goto 4：≠=＞Goto 2⊿⊿Lb1 2：X=B+Z[4]cos（F+O）：Y=C+Z[4]sin（F+O）：J=F+O+180：G=KP≤A-Z[3]+L=＞I= A-Z[3]+L-P：H=90II÷(REπ)：O＞0=＞H=-H⊿H=H+J+W+180： Goto 3≠=＞I=P-A+Z[3]-L：M=-I：N=0：H=J+W+180： Goto 5Lb1 3：M=I-I^5÷(40RRGG)：N=III÷(6GR)-I^7÷(336RRRGGG)： Goto 5Lb1 4：H=(E+2I)×90÷(πR)：M=RsinH+Z[2]：N=R(1-cosH)+Z[1]：O＜0=＞H=-H⊿H=J+W+H： Goto 5Lb1 5：P≤A-Z[3]+L-K=＞O＜0=＞N=-N⊿≠＞O＞0=＞N=-N⊿⊿Goto 6Lb1 6：X=X+Mcos J-Nsin J+Dcos H：Y=Y+Msin J+N cosJ+Dsin HJF(平曲线反算子程序)FixmU=X：V=Y：D=0：J=F-W：P=A+(Y-C)cos J-(X-B)sin J-4=＞Goto 2：≠=＞P=P+I： Goto 1 Lb1 1：Prog“JP”：J=H-180：I=(V-Y)cos J-(U-X)sin J：Abs I＜1E⊿Lb1 2：D=(V-Y)÷sin HDMFY隧道开挖断面(超欠挖情况)计算程序{HIJMNG}：Z[20]= H“C”：Z[21]=I“A”：Z[22]= J“H1”：Z[23]= G“GC”：Z[24]= M“R1”：Z[25]= N“R2”D≤2.3=＞D“ZD”=Abs(D-2.3)▲≠=＞D＞2.3=＞D“YD”= D-2.3▲⊿⊿(C为圆心O1与O2的高差值,A为圆心O1与O2的宽度差值,H1为圆心O1至设计高程的高度,GC为实测高程,R1为上部第1个半径,R2为下部第2个半径)(显示值ZD为至隧道中心线左边的宽度,YD为至隧道中心线右边的宽度,2.3为设计线路距隧道中心线的宽度,可以实际情况进行改变调整)Z[26]“H”▲(显示所求桩号点设计高程值)Z[27]“O1” =Z[26]+ Z[22](第1个圆心高程)Z[28]“O2”=Z[26]+ Z[22]+ Z[20] (第2个圆心高程)Z[29]= Z[24]×Sin 60▲(此数据为上半弧60度范围的宽度值，可根据实际情况调整；数值可不显示) D>Z[29] =＞Goto 1⊿Z[30]=√（（Z[24]）2-D2）Z[31]= √（Abs(（Z[24]）2-(Z[23]-Z[27])2)）Z[32] “HGD”=Z[27]+ Z[30]- Z[23] ▲Z[33] “SKD”=Z[31]-D ▲Prog“J-JSMS”Lb1 1Z[23]<Z[27] =＞Goto 2⊿Z[31]= √(（Z[25]）2-(Z[23]-Z[28])2)Z[33] “SKD”=Z[21]+ Z[31]-D ▲Prog“J-JSMS”Lb1 2Z[31]=Z[25]-（Z[27]-Z[23]）*0.35/(0.78+Z[20]+Z[22])(0.35为下边墙往边墙底内缩的距离，0.78为设计高程至边墙底部的高度)Z[33] “SKD”= Z[31]-D ▲Prog“J-JSMS”一、程序简介1、本套程序共有2个主程序，5个子程序。
FX5800计算器公路测量常用程序2.1版及详细说明
FX5800计算器公路测量常用程序2.1版及详细说明一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。
隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。
增加锥坡放样计算。
二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。
输入-2,返回选择线路。
坐标计算中输入-3,则显示本段曲线要素。
程序名：0ZCXLbI Q: 15→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 9LbI 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 BLbI 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＂: ＂XO＂? 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=＂:Lc oate 6,4,H-Z[9] ◢＂ I=＂:Locate 6,4,I◢ Goto DLbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L◢ Goto ELbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]: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＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→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]:LbIJ: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:E lse 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]:The n 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[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:I f 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:Goto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷Abs(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+360→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=2:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:El se Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇo to 2: IfEnd:LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Lb I 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.0469 10077→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（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：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 Goto 1：Else W+Ｄ→W:Goto 0: If End:←┘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:(R+A)tan(Abs(P) ÷2)+B→T:O-T→C:C+H→L:L+ΠR×Abs(P) ÷180→N:N-H→E:P÷Abs(P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S: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: IfEnd:If Z>L:Then 180(Z-L+0.5H) ÷R÷Π→S :H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:H2÷R÷24-H∧(4) ÷2688÷R∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]: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 310. 交点法缓和段转化子程序(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:Else Got o 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:Th en 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:L bI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: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:IfEnd: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正反算、隧道超欠挖计算程序在隧道中的应用概述：位于十天高速A-CD31标由中交四局承建的曹家湾与朱家河隧道。
隧道洞内全面工作展开后隧道洞内全面工作展开后，，由于各个工作面交叉施工由于各个工作面交叉施工。
测量放样常常受到干扰和制约常常受到干扰和制约，，由于外界因素干扰测量不及时常常造成超欠挖难以控制难以控制。
隧道断面仪应用具有局限性隧道断面仪应用具有局限性，，只能架设隧道中线或法线上只能架设隧道中线或法线上，，测站点高程还必须重新测出测站点高程还必须重新测出。
隧道测量要求速度隧道测量要求速度、、准确度准确度，，如果放样时间太长就会耽误下道工序施工进展时间太长就会耽误下道工序施工进展。
经我们项目部测量组编制以下程序，在施工中可随时检查超欠挖、初支、二衬断面，不影响施工程序，在施工中可随时检查超欠挖、初支、二衬断面，不影响施工。
并在洞身开挖时将开挖轮廓线画到掌子面，这样施钻人员可以很好的将超欠挖控制。
避免向以往开完打钻时参照上一班初支断面进行打眼，周边眼施钻角度也得到很好的掌握。
隧道超欠挖计算程序正算主程序正算主程序(ZS)(ZS) ：Lb10 ：?S ：?Z ?Z：：Prog “PM-SJ PM-SJ””：Abs(S-O)→W ：Prog "SUB1""SUB1"：："XS="XS=""：X ◢"YS="YS=""：Y ◢F-90→F :S :S→→K :Prog Prog““SQX SQX””：“H=H=””：H ◢ Goto 0 反算主程序反算主程序(FS)(FS)Lb10 :?S ：?X ：？Y ：Prog Prog““PM-SJ PM-SJ””：X →I ：Y →J ：Prog "SUB2""SUB2"：："S="S=""：O+W O+W→→S ◢"Z="Z=""：Z ◢ S →K :Prog Prog““SQX SQX””：“H=H=””：H ◢Goto 0 隧道3心圆放样主程序（心圆放样主程序（CQW CQW CQW）） Lb11：Fix3:7.315→R ：6.196.19→→P:P:““H1H1””?F:?Z:F-H ?F:?Z:F-H→→F:Abs(5.72-Z)→ZIf F ≥6.319:Then √(Z 2+(F-0.715)2)-R →W:IfEnd:If F ≥1.577AND F ＜6.319Then √((Z-0.723)2+(F-1.577)2)-P→W :IfEnd:If If≤≤1.577:Then Z-(P+0.723)→W:IfEnd:“W=W=””:W ◢Goto1R----R----第一个圆圆心第一个圆圆心F----F----实测高程实测高程H----H----路面纵断设计高程路面纵断设计高程Z----Z----由反算主程序反算得到边距（不需修改）由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z)→Z ，左线，左线输入输入Abs(5.72+Z)→Z CQW----CQW----计算结果（计算结果（计算结果（++超，超，--欠）隧道隧道二衬断面检测二衬断面检测二衬断面检测主程序（主程序（主程序（CQJC CQJC CQJC））Lb11：Fix3:6.625→R ：5.55.5→→P:“H1H1””?F:?Z:F-H ?F:?Z:F-H→→F:Abs(5.72-Z)→ZIf F ≥5.79:Then √(Z 2+(F-0.715)2)-R →W:IfEnd:If F ＜5.79Then √(Z-0.723)2+(F-1.577)2)-P →W :IfEnd:“W=W=””:W ◢Goto1R----R----第一个圆圆心第一个圆圆心F----F----实测高程实测高程H----H----路面纵断设计高程路面纵断设计高程Z----Z----由反算主程序反算得到边距（不需修改）由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z)→Z ，左线，左线输入输入Abs(5.72+Z)→Z CQW----CQW----计算结果（计算结果（计算结果（++超，超，--欠）正算子程序正算子程序(SUB1)(SUB1) 1÷P →C ：(P-R)(P-R)÷÷(2HPR)→D ：180180÷π÷π→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)(SUB2) G-90→T ：Abs((Y-V)cosT-(X-U)sin Abs((Y-V)cosT-(X-U)sin（（T ）)→W ：0→Z ：Lbl 0：Prog "SUB1""SUB1"：：T+QEW(C+WD)→L ：(J-Y)cosL-(I-X)sinL →Z ：ifAbsZ<1E-ifAbsZ<1E-66：thenGoto1thenGoto1：：Else W+Z →W ：Goto 0：IfEnd Lbl 1：0→Z ：Prog "SUB1""SUB1"：：(J-Y)(J-Y)÷÷sinF →Z子程序（平面线形数据库）子程序（平面线形数据库）PM-SJPM-SJ ifS ≥45798.22645798.226（线元起点里程）（线元起点里程）（线元起点里程）Then Then 2214.419→U （线元起点X 坐标）：4802.542→V （线元起点Y 坐标）：45798.226→O （线元起点里程点里程））：280049’54”→G （线元起点方位角线元起点方位角））：200→H （线元长度线元长度））：1300→P （线元起点曲率半径线元起点曲率半径））：1×1045→R （线元终点曲率半径线元终点曲率半径））：1→Q （线元左右偏标志：左负右正）：IfEndifS ≥45998.22645998.226（线元起点里程）（线元起点里程）（线元起点里程）Then Then 2262.012→U （线元起点X 坐标）：4608.341→V （线元起点Y 坐标）：45998.226→O （线元起点里程点里程））：285014’20”→G （线元起点方位角线元起点方位角））：238.741→H （线元长度）：1×1045→P （线元起点曲率半径）：1×1045→R （线元终点曲率半径）：0→Q （线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）子程序（竖曲线计算公式）SQXSQX LbI 0:578.3180:578.318→→Z[1]:46080Z[1]:46080→→B:32000B:32000→→R:160R:160→→T:0.025T:0.025→→I:0.035→J:J:？？K:B-K K:B-K→→C :1→F:I>J F:I>J＝＞＝＞＝＞-1-1-1→→F If 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][1]-CP+AF(T-Abs -CP+AF(T-Abs (C))2÷2÷R →H:“H ”:H ◢Goto 0Z [1][1]——————变坡点高程变坡点高程B ————变坡点桩号变坡点桩号R ————半径半径T ————切线长切线长I ————前纵坡度前纵坡度J ————后纵坡后纵坡K ————待求点桩号待求点桩号H ————待求点高程待求点高程说明说明：：仪器架至测站点上定向后仪器架至测站点上定向后，，观测掌子面任意点观测掌子面任意点，，测得数据进入反算主程序FS 计算得出：对应里程桩号和边距及对应里程路面纵断设计高程。
卡西欧5800计算器公路测量常用程序集_secret
2.1 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。
隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。
增加锥坡放样计算。
二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。
输入-2,返回选择线路。
坐标计算中输入-3,则显示本段曲线要素。
程序名：0ZCXLbI Q: 15→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 9LbI 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 BLbI 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＂: ＂XO＂? 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=＂:Lc oate 6,4,H-Z[9] ◢＂ I=＂:Locate 6,4,I◢ Goto DLbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L◢ Goto ELbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]: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＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F:LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂K M＂?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:Ab s(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＂Z P＂: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]: ＂K M＂?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:E lse 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]:The n 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[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:I f 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:Goto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷Abs(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+360→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=2:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:El se Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇo to 2: IfEnd:LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Lb I 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.0469 10077→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（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：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 Goto 1：Else W+Ｄ→W:Goto 0: If End:←┘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:(R+A)tan(Abs(P) ÷2)+B→T:O-T→C:C+H→L:L+ΠR×Abs(P) ÷180→N:N-H→E:P÷Abs(P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S: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: IfEnd:If Z>L:Then 180(Z-L+0.5H) ÷R÷Π→S :H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:H2÷R÷24-H∧(4) ÷2688÷R∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]: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 310. 交点法缓和段转化子程序(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:Else Got o 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:Th en Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Got o I:Else Prog “I”:H+V→H:Goto I:L bI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: 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:IfEnd: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计算器)添加隧道超欠挖
公路路线座标正反算（积分公式）通用程序公路路线座标正反算由于现在计算机普及，计算机功能日益强大，宜采用较简单的积分公式，便于计算机处理。
单线元通用积分公式如下M = (1.0/Re-1.0/Rs)/Ls;x=∫｛cos(Ta + L/Rs + 0.5*M *L*L)，0，L｝; y=∫｛sin(Ta +L/Rs + 0.5*M *L*L)，0，L｝; a(i)= Ta +L/Rs + 0.5*M *L*LRs:缓和曲线起点半径Re:缓和曲线止点半径Rs，Re （NE坐标系下，右偏为正，左偏为负）Ta:缓和曲线起点的真北方位角Ls:不完整缓和曲线长度。
此公式为缓和曲线在坐标系下任意位置的通用积分公式，能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs <Re 等各种情况，不必先凑成完整缓和曲线，降低算法的复杂程度。
虽然此公式是由缓和曲线推导出来，也可和于直线与圆曲线，可降低计算机编程的复杂程度。
Fx-5800计算机程序QXJS-000主程序Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:Z[12]→S：?S：Prog “QXJS-SUB0”↙Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙Lbl 1:?Z:Prog “QXJS-SUB1”:“N=”:N◢:“E=”:E ◢:“F=”:F DMS◢: Goto3↙Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”:“S=”:S◢: “Z=”:Z ◢: Goto4↙Lbl 3：J＜0＝＞J＝J+360：“FW＝”：J DMS◢Goto4↙S→Z[12]:Z→Z[13] Prong “SD”QXJS-SUB0数据库子程序IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L （线元起点至终点长度）: Return:IfEnd↙IF S<35693.064:Then257°13′1″→A:35643.064→O: 3140794.382→U: 514646.536→V:10^(45)→P:965→R:50→L: Return:IfEnd↙QXJS-SUB1正算子程序0.5（1÷R-1÷P）÷L →D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →E QXJS-SUB2反算子程序Lbl 1:0→Z：1→Q：Prog “QXJS-SUB0”: Prog “QXJS-SUB1”↙Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-9 0-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: 0→Z：Prog “QXJS-SUB1”:(C-E) ÷sin(F+90) →Z隧道超欠挖程序程序名：SDProg“SD1”: 0.84→A:”CQHD”?A:A→Z[15]: 0→M:”Hc1=”?M:M→Z [8]:Prog“SQX”:Cos(Z [10]) ×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:Go to L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷Abs(S)→T:A bs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Go to L:LbI L: Fix 3:＂CQW=＂: Locate 6, 4,L：＂H=＂: Locate 6,4, Z[8]-H＂Ｋ=＂：Locate 6,4,Ｚ[12]：＂Z=＂：Locate 6,4,Z [13]：◢竖曲线计算程序程序名：SQXZ[12]→KProng “S1”0.5R Abs(I-J)→T If I-J﹤0: Then -1→V:Else 1→V：IfEnd K-Z→B:If K≤Z-T:Then BI+A →H:Return:IfEnd:If K≤Z:Then A+BI-V (T+K-Z)2÷（2R）→H: Return:IfEndIf K≤Z+T:Then A+BJ -V(T-K+Z)2÷（2R）→H: Return:IfEndIf K﹥Z+T:Then A+BJ →H:Return:IfEnd程序名：S1(线路1高程竖曲线要素子程序)LbI 1:If Z≤26157.8: Then 200000→R:0.00 3→I:-0.0017→J:705 18.232→Z:380.342→A:Goto 0:IfEnd:If Z≤27421.915:The n 300000→R: 0.003→I:-0.0017→J:7051 8.232→Z:380.342→A: Goto 0:IfEnd:If Z≤27889.029:The n 1000000→R: 0.003→I:-0.0017→J:7051 8.232→Z:380.342→A: Goto 0:IfEnd:LbI 0程序字母说明：R-竖曲线半径；I－竖曲线前纵坡; J－竖曲线后纵坡；Z-竖曲线交点桩号；A-交点桩号高程（未竖曲线调整的）程序名：SD1(线路1隧道参数子程序)LbI 1:5.53→Z[4]:1. 62→Z[5]:8→Z[6]:1. 62→Z[7]:-5.375→Z [9]: 90→Z[10]:LbI 0子程序中字母表示说明：Z[4]－隧道上拱半径；Z[5]－隧道上拱圆心至设计面高度；Z[6]－隧道中腰部半径；Z[7]－中腰圆心至设计面高度；Z[9]－设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z[10]－隧道上部拱跨半幅角度三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R 取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。
隧道超欠挖计算程序
隧道超欠挖计算程序正算主程序(ZS)：Lb1 0：?S：?Z：Prog “PM-SJ”： Abs(S-O) → W：Prog "SUB1"： "XS="：X ◢"YS="：Y◢F-90→F:S→ K:Prog“SQX”：“H=”：H◢Goto 0反算主程序(FS)Lb1 0: ?S：?X：？Y：Prog“PM-SJ”： X→ I： Y→J：Prog "SUB2"： "S="：O+W→S◢"Z="：Z◢S→ K:Prog“SQX”：“H=”：H◢Goto 0隧道3心圆放样主程序（CQW）Lb1 1：Fix3:7.315→R：6.19→P:“H1”?F:?Z:F-H→F: Abs(5.72-Z)→ZIf F≥6.319:Then √(Z2+(F-0.715)2 )-R→W: IfEnd:If F≥1.577 AND F＜6.319 Then √((Z-0.723)2+(F-1.577) 2)-P→W :IfEnd: If≤1.577: Then Z-(P+0.723)→W: IfEnd:“W=”: W◢Goto1R----第一个圆圆心P----第二个圆圆心F----实测高程H----路面纵断设计高程Z----由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z) →Z，左线输入Abs(5.72+Z) →ZCQW----计算结果（+超，-欠）隧道二衬断面检测主程序（CQJC)Lb1 1：Fix3:6.625→R：5.5→P: “H1”?F:?Z:F-H→F: Abs(5.72-Z)→Z If F≥5.79:Then √(Z2+(F-0.715) 2)-R→W: IfEnd:If F＜5.79 Then √(Z-0.723)2+(F-1.577)2)-P→W :IfEnd:“W=”: W◢Goto1R----第一个圆圆心P----第二个圆圆心F----实测高程H----路面纵断设计高程Z----由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z) →Z，左线输入Abs(5.72+Z) →ZCQW----计算结果（+超，-欠）正算子程序(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)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：Else W+Z→ W：Goto 0：IfEndLbl 1： 0→ Z：Prog "SUB1"： (J-Y)÷sinF→ Z子程序（平面线形数据库）PM-SJifS ≥45798.226（线元起点里程）Then 2214.419→U（线元起点X坐标）：4802.542→V（线元起点Y坐标）：45798.226→O（线元起点里程）：280049’54”→G（线元起点方位角）：200 →H（线元长度）：1300→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEnd-ifS ≥45998.226（线元起点里程）Then 2262.012→U（线元起点X坐标）：4608.341→V（线元起点Y坐标）：45998.226→O（线元起点里程）：285014’20”→G（线元起点方位角）：238.741 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）SQXLbI 0:578.318→Z[1]:46080→B:32000→R:160→T:0.025→I:0.035→J:？K:B-K→C : 1→F:I>J＝＞-1→FIf 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+AF(T-Abs (C))2÷2÷R→H: “H”:H◢Goto 0Z[1]——变坡点高程 B——变坡点桩号R——半径 T——切线长I——前纵坡度 J——后纵坡K——待求点桩号 H——待求点高程说明：仪器架至测站点上定向后，观测掌子面任意点，测得数据进入反算主程序FS计算得出：对应里程桩号和边距及对应里程路面纵断设计高程。
坐标高程fx-5800P程序
fx-5800P计算器坐标正反算程序1、坐标正算主程序（命名为ZBZS）第1行：Lbl 0:”K=”?K:”LEN=”?T第2行：Prog “A“更改红色字体部份可调用其它线路数据库，本程序调用左线数据第3行：“X=“ :N+Tcos(F+90)◢显示X坐标第4行：“Y=“ :E+Tsin(F+90)◢显示Y坐标第5行：“F=“:F◢显示中线切线方位角，可省掉第6行：Prog “GCSJK“第7行：“SJZZGC=”:N◢第8行：Goto 0K——计算点里程LEN——计算点到中桩的距离（左负右正）2、坐标反算桩号和偏距主程序（命名为ZBFS）第1行：Lbl 1：“X1=“?C:“Y1=“?D:“K1=“?K第2行：Lbl 2:Prog “A“更改红色字体部份可调用其它线路数据库，本程序调用左线数据第3行：Pol(C-N,D-E):Icos(F-J) →S:K+S→K第4行：Abs(S)>0. 001=>Goto 2 判断精度（可删除）第5行：Isin(J-F) -4.725→T 反算偏距第6行：“K1=“:K◢反算桩号第7行：“T=“:T◢可与第5行合并第8行：K→K:T→T第9行：Lbl 3: ?R: ?H第10行：Prog “GCSJK“调用高程数据库第11行：(N+1.175)-H→E:Abs(E)→E: √(T2+E2)-R→M 计算超欠挖数据第12行：“CQW=“:M◢显示超欠挖数据第13行：Goto 1X1——取样点的X坐标Y1——取样点的Y坐标K1——输入时为计算起始点（在曲线内即可），输出时为反算点的桩号T——偏距（左负右正）3、计算坐标子程序（命名为XYF）为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A→S:(Q-P)÷L→I第2行：U+∫(cos(W+X(2P+XI)×90÷π),0,S) →N 计算中桩的X坐标第2行：V+∫(sin(W+X(2P+XI)×90÷π),0,S) →E 计算中桩的Y坐标第4行：W+S(2P+SI) ×90÷π→F 计算中线切线方位角4.子程序(GCSJK)Goto1Lbl 1：IfK≤232600:Then (1028.248-(232600-k)*0.04)-(k-232365.300) ^2/20000→N: Return:IfEndLbl 1：IfK≤232834.700:Then(1028.248-(232600-k)*-0.00694)-(k-232834.700) ^2/20000→N: Return: IfEndLbl 1：IfK≤233004.160:Then 1026.619-(232834.700-k)*-0.00694→N: Return:IfEndLbl 1：IfK≤233200:Then (1024.086-(233200-k)*-0.00694)+(k-233004.160)^2/24000→N: Return:IfEndLbl 1：IfK≤233395.840:Then(1024.086-(233200-k)*0.0257)+(k-233395.840) ^2/24000→N: Return: IfEndLbl 1：IfK≤234000:Then 1029.119-(233395.840-k)*0.0257→N: Return:IfEnd4、兰新铁路第二双线LXS-1标数据库（命名为A）第 1 行：K≤232100.184=>Stop第2行：232100.184→A:2911459.764→U:490442.123→V:309°32′23.8″→W:0→P:－1/900→Q:121→L:K≤A+L=>Goto 1第3行：232221.184→A: 2911534.669→U: 490347.127→V: 305°41′18.2″→W:－1/900→P:-1/900→Q:501.862→L:K≤A+L=>Goto 1第4行：232723.045→A:2911701.772→U:489880.776→V:273°44′19.9″→W:－1/900→P:0→Q:121→L:K≤A+L=>Goto 1第5行：232844.045→A:2911704.244→U:489759.826→V:269°53′14.3″→W:0→P:1/1800→Q:200→L:K≤A+L=>Goto 1第6行：233044.045→A:2911707.554→U:489559.881→V:273°4′13.5″→W:1/1800→P:1/1800→Q:886.337→L:K≤A+L=>Goto 1第7 行：233910.383→A:2911956.383→U: 488738.755→V: 300°38′48.4″→W:1/1800→P:0→Q:200→L:K≤A+L=>Goto 1第8 行：234110.383→A:2912064.618→U:488570.606→V:303°49′47.6″→W:0→P:0→Q:569.431→L:K≤A+L=>Goto 1第9 行：Lbl 1:Prog“XYF“A——曲线段起点的里程U——曲线段起点的X坐标V——曲线段起点的Y坐标W——曲线段起点的坐标方位角P——曲线段起点的曲率（左负右正）Q——曲线段终点的曲率（左负右正）L——曲线段长度（尽量使用长度，为计算断链方便。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FX5800P——全套 双线隧洞超欠挖程序
2014-04-17 测量
说明：本程序只用于 双线隧道 隧道中线偏移线路中线 四心圆 超欠挖计算
本程序共计52 个额外变量。字节为6000多。
思路：只通过超欠挖主程序，输入实测点的坐标，高程，可算出此点的超欠挖情
况。通过QH2-7程序的坐标反算桩号功能，竖曲线计算此桩号的设计高程，超欠
挖算出超欠挖。
此程序的前提是 你有 覃辉 教授 的 QH2-7 程序。 本程序依附于QH2-7程序。
现在一般情况， 买5800时，就会送这套QH2-7程序的。
我的更改内容：
1.把原程序中的每次改变交点后，都需要重新输入参数改为子程序数据库。2.
可以计算左，右线，只需选择，不需重新输入参数。
3.加入高程计算（后面的版本是可以计算全线高程的）
4.还有几个小程序，两线间的联络通道超欠挖程序(那个很简单，就是一直线），
现在懒得打，以后再发上来。
5.现在每条洞两个面开挖，现在有2个交点了。也做了一些改编。暂时没时间打，
以后再传。（思路是一样的，多加几个 子程序数据库就行了）
从昨天开始，在研究 一键做资料 软件，就是想做资料时偷懒，在输入平曲线要
素，竖曲线要素，做资料的常用数据（如距中距，导线点坐标，高程数据，资料
编号规则，导线放样控制里程段）后，做资料时，你只需要输入这次想做的里程
段，确定，就给你全做出来，你只需打出来签字就行了。呵呵。懒吧。现在是以
我这边的资料模版的，我这里只有三张表格。现在还不知道编程能力是否能达到
预想目标。如果达到目标，呵呵，懒人有福了！
缺点：由于原程序计算的线路里程是 从 ZH——HZ段，所以不能计算断链！
建议：做为道路程序使用的话，有断链的话，就得自己加减断链里程了。我个人
觉得如果你工程中没有匝道的话，你把各个并点参数做为子程序，且你熟悉各个
交点的里程段，那么计算时间要比线元法的QH2-8要快些。线元法的QH2-8也不
能算断链。
道路程序的话，应该是 王中伟 老师的 ROAD 程序，我原来专门在网上找人传了
一份，因为没时间研究，且计算器存储空间不足，就删了。不得很了解，但是知
道那个是可以算断链的。
主程序（超欠挖） CQW
52→DimZ：Prog “QH2-7+“：
Z[34]=1=>Stop
Prog “SQX”:
“Z=”? →Z[51]
If Z[40]=0: Then If S>180: Then Z[38]+0.105→Z[38]: Else Z[38]-0.105
→Z[38]: IfEnd:IfEnd
If Z[40]=1: Then If S>180: Then Z[38]-0.105→Z[38]: Else Z[38]+0.105
→Z[38]: IfEnd:IfEnd
If Z[51] ≤H-1.172: Then “R4=”:√(Z[38]2 +(Z[51]-H-3.85) 2 )-5.53→
Z[52] ▲
Else If Z[51] ≤H-0.246: Then “R3=”:√((Z[38]-1.667)2 +(Z[51]-H-0.236)
2 )-1.55→Z[52] ▲
Else If Z[51] ≤H+3.328: Then “R2=”:√((Z[38]+7.78)2 +(H+3.328-Z[51])
2 )-11.49→Z[52] ▲
Else If Z[51] ≧H+3.328: Then “R1=”:√(Z[38]2 +( Z[51]- H-3.328)
2 )-3.713→Z[52] ▲
IfEnd:IfEnd: IfEnd:IfEnd
“K=”:Z[50] ▲
子程序（QH2-7） QH2-7+（以区别于原来的QH2-7）
只是在程序前把参数放入子程序，添加了选择左右线命令。蓝色为原程序内容。
Deg：Fix 4：FreqOn：←┘
40→DimZ←┘
“ZX(0),YX(1),JX(2)=”? →O←┘
If O=0: Then 0→Z[40]: Prog “QH2-7-Z”: Else If O=1: Then 1→Z[40]: Prog
“QH2-7-Y”: Else O=2→ Goto 1: IfEnd: IfEnd:ClrStat
If Q<0: Then -1→Z[20]: Else 1→Z[20]: IfEnd
Abs(Q) →D
Pol(B-U,C-V):Cls
以下不改变
子程序（平曲线左线数据） QH2-7-Z
此程序就是把原来QH2-7中的输入参数部分摘出，方便左，右线。
44800.949 (此交点桩号)→Z:31559.564（此交点X坐标）→B:8850.7829（此交
点Y坐标）→C:32620.182（上一交点X坐标）→U:8730.214（上一交点Y坐标）
→V:-5.52’11.41”（此交点转角，左负右正） →Q:779.7435（入口缓和曲线
参数）→E:3200（圆曲线半径）→R:779.7435（出口缓和曲线参数）→F
子程序（平曲线右线数据） QH2-7-Y
同 子程序（平曲线右线数据） QH2-7-Z
子程序（竖曲线计算公式）SQX
52→DimZ :Z→Z[50]：
Z[40]=0 => Prog“SQX-Z”:Z[40]=1 => Prog“SQX-Y”←┘
Z[46]*Abs（Z[44]-Z[45]）÷2→Z[47]
If Z[44]-Z[45]>0：then -1→Z[48]:else 1→Z[48]：IfEnd
If Z[50]≤Z[42]-Z[47] And Z[50]>Z[41]：then
“H=”:Z[49]-(Z[42]-Z[50])*Z[44]→H▲IfEnd←┘
If Z[50]＞Z[42]-Z[47] And Z[50]≤Z[42]：then
“H=”:Z[49]-(Z[42]-Z[50])*Z[44]+Z[48](Z[50]-Z[42]+Z[47])2÷(2*Z[46])
→ H▲IfEnd←┘
If Z[50]＞Z[42] And Z[50]≤Z[42]+Z[47]：then
“H=”:Z[49]+(Z[50]-Z[42])*Z[45]+Z[48](Z[42]+Z[47]-Z[50])2÷(2*Z[46])
→ H▲IfEnd←┘
If Z[50]＞Z[42]+Z[47] And Z[50] ≤Z[43]：then
“H=”:Z[49]+(Z[50]-Z[42])*Z[45]→H▲IfEnd←┘
子程序（竖曲线左线数据）SQX-Z
if Z[50]≤46047.938（此竖曲线段直线终点里程）And Z[50]>44115.615（此竖
曲线段直线起点里程）：then44115.615（此竖曲线段直线起点里程）→Z[41]：
46047.938（此竖曲线段直线终点里程）→Z[43]：-0.0067（前坡度：上坡正下
坡负）→Z[44]：0.003（后坡度：上坡正下坡负）→Z[45]：10000→Z[46]（竖
曲线半径）：45200→Z[42]（变坡点里程）：-25.776→Z[49]（变坡点高程）：
IfEnd←┘
子程序（竖曲线左线数据）SQX-Y
同 子程序（竖曲线左线数据）SQX-Z
操作界面：
显示 输入 说明
QH2-7 EXE 显示程序名
ZX(0),YX(1),JX(2)=？ 0 左线 0，右线 1，继续 2
以后程序为QH2-7程序，就不详说了。
反算出桩号及距中距后， 2
XJ，<0 END=？ -1 负数，结束
H= EXE
Z=? 输入实测高程
R = 超欠挖，+超，-欠，R1234表示所在圆