5800万能隧道程序
5800---万能程序
万能程序包含所有曲线要素的万能测量程序（6种模式）扩展变量操作（15个）：Defm 15 , O字母0数字←┚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”:“T O J-JSMS”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÷sin Abs O :Z[3]“T1”=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢Z[4]“T2” =(R+KK÷24R-K∧4÷2688RRR)tan(Abs O÷2)+K÷2-KKK÷240RR+X◢L=Abs OπR÷180+(E+K)÷2◢J=tan-1((R+Z[1])÷(Z[3]-Z[2]):X“E”=(R+Z[1])÷sin J-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-F1,3-FS”:“4-F2,5-Z0,6-DM”:Lb1 0:{Z}:Z“MS”≤2=>Goto 1: ≠=> Z≤4=> Goto2:≠=> Goto 3⊿⊿←┚Lb1 1 :{PDW}:PD“BZ”W“BJ”: Prog“JP”:X“X=”◢(4850输入“X=”：X◢)Y“Y=” ◢(4850输入“Y=”：Y◢)Z<2=> Goto 1:≠=>Prog“JS”:Prog“JC”:H“Z”=H+G◢Goto 1⊿←┚Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”: P“P=”◢(4850输入“P=”：P◢)D“BZ=”◢(4850输入“BZ=”：D◢)Z<4=>Goto2:≠=>{Q}:Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto2⊿←┚Lb1 3 :{P}:P: Prog“JS”:H“Z0=”◢(4850输入“Z0=”：H◢)Z<6=>Goto3:≠=>{D}:S“CGZ”:T“JKZ”:Z[8]=Q“LH”:D“BZ”:Prog“JC”:J “JK=”◢(4850输入“JK=”：J◢)G“Z”=H+G◢(4850输入“Z=”：G=H+G◢)Goto 0⊿JS（竖曲线计算子程序）P<Z[14]=>Prog“J-S QX” ⊿P>Z[15]=>Prog“SJ-SQX”⊿←┚N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=HAbs(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+JJP（平曲线正算子程序）Fixm←┚Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E←┚P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:G oto 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=K←┚ P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ: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 5 ←┚Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚ Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cosH)+Z[1]:O<0=>H=-H⊿H=J+H+W: Goto 5←┚Lb1 5 :P≤A-Z[3]+L-K=> O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto 6←┚ Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin HJF（平曲线反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J←┚Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:AbsI<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿←┚Lb1 2: D=(V-Y)÷s inHJC（超高加宽计算子程序）Fixm:Z[8]<1=>Z[8]=1E-8⊿I=E:M=A-Z[3]:E<1=>I=Z[8]:M=M-I⊿G=K:N=A-Z[3]+L:K<1=>G=Z[8]:N= N+G⊿←┚P≤0.5(N+M=>U=(P-M)÷I:≠=>U=(N-P)÷G⊿U<0=>U=0⊿U>1=>U=1⊿J=UT 高次抛物线加宽J=T(1-3UU+2UUU ) : D O<0=>J=0⊿I=1:Prog“JD”:I=US:G=I+UN-N:U=AbsD-V:U<0=>U=O⊿U>M+J+Z[5]=>U=M+J+Z[5]⊿Z[7]=1=>Goto 1:≠=>Goto 2←┚Lb1 1:I=G:D O>0=>I=-I:Abs I<N=>I=-N⊿⊿G=UI:N=I:Goto 3←┚Lb1 2:N<I=>N=I⊿G=N(M-U)+Z[5]Z[6]:N=-N:D O<0=>G=G+2IU:N=I⊿Goto 3←┚Lb1 3: U= M+J+V+Z[5]:Abs D≥U-0.01=>G=G-Z[5](N+Z[6])⊿JB（路基边桩放样子程序）H=H+G-Q:H<0=>I=2:H“W=”=Abs H◢≠=>I=3 :H“T=”◢(4850输入“T=”：H◢)⊿Prog“JD”:G=H÷V:G<1=>I=MG:≠=>G<2=>I=M+N(G-1):≠=>I=M+N+Z[6](G-2) ⊿⊿I“BP”=Abs D-VI-Z[7]Int G-U-Z[5] ◢G=V Frac G:G<1.5=>G“PT”◢⊿JD（断面数据储存子程序）I=1=>M=27:N=0.002:Z[5]=0.5:Z[6]=0.002:V=1.5:Z[7]=1:≠=> I=2=> Z[5]=0.8: M=0.75: N= 0.75: Z[6]=1.00: V=8: Z[7]=2.0 :≠=> Z[5]=0.3:M=1.50: N=1.75: Z[6]=2.00 : V=8: Z[7]=2.0⊿⊿ 符号说明：←┚◢⊿≠=> => ≤≥一、程序简介本套程序是共有2个主程序，7个子程序。
新编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公路线路计算万能程序
5800公路线路计算万能程序本程序以高斯四节点法为计算内核，多条线路正反算，中桩，边桩高程计算，超高计算，超高缓和计算，加宽计算，加宽缓和计算,边坡开口线计算，挡土墙坡脚线计算，考虑了中间绿化带的影响，适用与国家高速公路至乡村四级公路计算和放样，路基路面工程可以直接得出中边桩的设计三维坐标，去掉加宽和超高影响的计算困难，边坡和坡脚线计算可直接在边坡上提取坐标带入程序，经过所有设计因素的综合，得出更改边距并显示修改偏差后的坐标.反算速度明显提高,只需要3秒.程序无错，可放心输入，另本程序可以增加隧道超欠挖计算子程序，非常方便，因为每个隧道的断面数据不一样，所以在此没有明确写出. 计算器主程序：ZHU-CHENG-XULbiO: “1, ZS=FS, 2ZS, 3FS, 4XY=>SG. 5。
” ？U: U=l = > Prog" ZS-FS” :进入公路三维程序l>2=>Porg” ZS” :进入坐标正算程序U=3 = > Porg" FS” :进入坐标反算程序U二4 = >Porg” XY =>SG” :进入大地坐标转施工坐标程序????GotoO:说明：计算器总的主程序，进入选择各种分支计算程序。
1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工坐标。
°。
选择错误重新选择。
此程序可以不用输入，只为给大家一个思路，可以把计算器所有程序集中到一个主程序内管理.公路三维部分正反算选择程序：ZS-FS Deg: //设置角度模式20-DimZ: //扩展变量“1LZ=>XY, 2XY=>LZ, 3BIANP0-FY” ？ U：//正反算选择，正算选1,反算选2, 坡口坡脚选3If U=l: ThenProg” ZS~XH M : If End: //进入正算循环主程序IfU=2:Then Prog” FS~ XH” : If End: //进入反算循环主程序IfU=3:ThenProg” BIANPO-XH” : If End: 〃进入边坡开挖主程序正算循环主体程序ZS-XH“1PT-2SJ”？W：〃普通计算和设计边距计算选择“XL-XZ “？ U：〃选择线路1〜NIf W=l: Then 〃运行普通计算模式边踞自由输入LbiO:” L二”?L:” Z二” ?Z: 〃输入桩号和边距Porg" ZS-XH-1 “： GotoO:IfEnd:运行正算循环子程序If W=2:Then //运行设计计算模式边距按设计输入Lbil: ” L二” ? L：〃输入桩号Porg v Oo 5LUKUAN” : //录入公路加宽后,左右侧设计边距Porg” ZS-XH-1 “：Gotol:IfEnd: //运行正算循环子程序正算循环子程序ZS-XH-1Prog” PM-XL-XZ” : 〃进入平面线路选择程序对线路线元进行选择Prog" CHA0XIAN- CL” ： //里程超限处理Prog” GL-ZS” ：〃进入坐标正算程序Prog” GL-BZ-ZS” : 〃进入公路边桩正算程序Prog” GC-XL-XZ” ：〃进入高程线路选择程序对线路线元进行选择Prog” GC” : // 进入高程部分提取中桩高程Prog\进入超高数据库提取超高数据If W=l:ThenProg" B-H” : 〃普通计算时进入边桩高程部分提取边桩高程ElseZ[3] -Z: Porg “B-H” : //按设计计算时候代入减去半边绿化带后的路基边距, 提取边桩高程Ifend:Prog” ZS-XS” : //进入正算显示程序，提取正算三维结果反算循环主体程序FS-XH0-Z: “XL-XZ” ? U：〃选择线路 1 〜N LbiO：“L” ？ L：“X二” ? T：“Y二” ？ S：〃输入起算假定桩号，实测X Y Prog” GL-FS” : /进入公路反算程序Prog” FS-XS” : 〃进入反算显示程序GotoO:坐标正算程序GL-ZS.1739274226-1:. 3260725774-J:.0694318442-*K:. 3300094782-E : //四节点法计算系数录入1-E-F： 1-K-M：Q+KrO(C+KD) -K: //数据库要用X、Y、Q作为起点坐标方位角Q+ErO(C+ED) -E://r 是弧度，输入方法FUNCTION 选 5 Q+FrO(C+FD) -*F: Q-MrO(C+MD) -*M:X+0(ICos (K) +JCos (E) + JCos (F) +ICos (M)) -»X: //计算出X 坐标Y+0(ISin (K) +JSin(E) +JSin (F) +ISin(M)) -Y: //计算出Y 坐标Q+Or (C+D) -Q：〃计算出算点方位角,0是字母,r是弧度：边桩坐标计算程序GL-BZ-ZS:X+Zcos (Q+90) -*G: 〃计算出边桩X坐标Y+ZSin(Q+90) -M: 〃计算出边桩Y坐标公路反算程序GL-FS20-V: //V值设置为20,为第一次反算控制Do：Porg” PM-XL-XZ” ：〃进入平面线路选择程序Porg” CHAOXIAN-CL” : 〃里程超限处理程序If V>10: // V越小反算速度可能越慢，但是半径过小有可能算不出来，10为建议值Then Porg" GL~JY~ZS M : //进入公路简易正算二节点程序Else Porg" GL_ZS n : // 进入公路正算4节点程序IfEnd:T-XT:S-Y-J: //试算点与测点X, Y距离差Pol(I, J):J-Q-J: //方位角转换为接近试算点到测点的值：Rec(I, J): //计算出X 差和Y差(X里程，J边)I/(1-CJ-2DJ) -V: //计算出里程大致差距(此公式为加速反算)L+V-L：〃修改后的里程Abs(V) -V: //修改值的绝对值LpWhile V>0. 001: 〃小于一亳米通过，大于一亳米循环计算中桩高程计算程序GCIf I-A<O:Thenl-*H:IfEnd: 〃开口向上部分赋值IfI-A=0：ThenGotol: If End: // 无竖曲线部分赋值IfI-A>O:Then-l-*H:IfEnd: //开口向下时赋值(L-C) I+K+ (L-C) *2/(2E)H-1: //计算得出竖曲线部分中桩高程Goto2:Lbil:K+(L-C)I-1: 〃计算得出无竖曲线部分中桩高程Lbi2:边桩高程计算程序B-H(L-C) / (D-C) ->P: //计算点占本线元长比例3P*(2* (S))-2P*(37S)) -P: //计算得线性和高次抛物线系数F+P (T-F) -E：// 初步计算计算点横坡If V=l:Then If N= T:Then //直线和直缓,缓直，曲线左偏时If Z<0： ThenIfE>Z[4] :ThenZ[4]-*E: If End : //计算左侧时,横坡大于一般横坡取一般横坡I+Abs ⑵ E-0: If End : 〃左侧高程IfZ>0:Then I+ZF-0: IfEnd: If end: //右侧高程得数If N=1:Then IfZ<0:Then I+Abs (Z)E-O: IfEnd：//曲线右偏时，左侧高程得得IfZ>O:Then If E>Z[4]:Then Z[4]-E:IfEnd //右侧高程横坡大于一般横坡,取一般横坡I+ZE-*O:IfEnd： If End: If End: //右侧高程得数IfV二2:ThenIf Z>O:Then I+ZE-0: IfEnd://圆曲线全超高和S曲线超高渐变部分右侧高程得数If Z<0: Thenl-Abs (Z) E^O: If End: If End: //圆曲线全超高和S曲线超高渐变部分左侧高程得数备注:如果有更多的坡级，大家可以使用增加变量.完全满足大家边坡放样需求设计标准路面宽度子程序CHANGSHU12-ZE11：〃录入12米为路面半宽度，根据设计修改1. 5->Z[21：〃录入1. 5米为绿化带半宽，根据设计修改，无绿化带输入0 -0. 02 -Z[4]: 〃录入-0。
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隧道超欠挖综合程序(带隧中偏移,断面匹配)
全线坐标正反算及隧道超欠挖程序(线元法)DFL(主程序)Lbl 5: “1→ZS,2→FS,3→初支CQW，4→二衬CQW”?N(选择计算模式，1为正算，2为反算，3为初支超欠挖，4为二衬超欠挖)N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3:N=4=>Goto 4Lbl 1: “K=”?S：“P=”?Z：Prog “SJ-D”： Abs(S-O) → W：Prog “ZS”：“X=”：Locate4,4,X:“Y=”：Locate4,4,Y:F-90→F:S→ K:Prog“SJ-GC”：“H=”：Locate4,4,H：“W=”: Locate4,4,F°◢Goto 5(正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-D”： X→ I： Y→J：Prog "FS"：O+W→S: “K="：Locate4,4, S：“P="：Locate4,4, Z：S→ K:Prog“SJ-GC”：“H=”：Locate4,4, H:F-90→F: “W=”: Locate4,4,F°◢Goto 5(反算-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=)Lbl 3:“X=”?X：“Y=”？Y:Prog“SJ-D”： X→ I： Y→J：Prog "FS"：O+W→S: “K="：Locate4,4, S：“P="：Locate4,4, Z：S→ K:Prog“SJ-GC”：“H=”：Locate4,4, H◢If K≥19910（XS-VA支护类型起点桩号） And K＜19950（XS-VA支护类型终点桩号）:Then Prog “XS-VA”◢IfEnd:If K≥19950（XS-VC支护类型起点桩号） And K＜20000（XS-VC支护类型终点桩号）:Then Prog “XS-VC”◢IfEnd:(隧道断面匹配、依照上面的依次变更, 每多一个支护类型，就增加一个。
5800正反坐标计算、中桩标高、隧道超欠挖
5800万能程序，平曲线+竖曲线+隧道超欠挖1. 主程序(TYQXJS)Lbl 4："1SZ => XY， 2XY => SZ"？N：？S：Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：↙Lbl 1:”DZ”? Z： Abs(S-O) →W：Prog "SUB1"： "XS"：X◢"YS"：Y◢Prog “SQX”（竖曲线的程序名字）F-90→F：“FS=”：F▲DMS◢Prog “CQW”（隧道超欠挖的程序名字）Goto4↙Lbl 2：”X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S”：S◢“Z”：Z◢Prog“CQW”Goto4↙2. 正算子程序(SUB1)0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L： 1-L→F：1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→XX+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y2. 反算子程序(SUB2)G-90→T： (Y-V)cos(T)-(X-U)sin(T) →W：Abs(W) →W:0→ZLbl 0：Prog "SUB1"T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<0.000001：Then0→Z:Prog "SUB1"(J-Y)÷sin（F）→ZElse W+Z→WGoto0:IfEndSUB0 数据库子程序Goto1↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
自编CASIO FX-5800P隧道超欠挖程序
自编卡西欧fx-5800P隧道超欠挖程序作者：何威该程序由“卡西欧fx-4800P隧道超欠挖程序”改编而成，其运行原理与操作方法与其相同。
1.主程序（WSK-CQW）"XO"?U："YO"?V："SO"?O："FO"?G："LS"?N："RO"?P："RN"?R：?Q←┘1÷P→C：(P-R)÷(2N PR) →D：180÷π→E←┘Lbl2：?X：?Y：?H：X→I：Y→J←┘G-90→T：(Y-V)cos(T)-(X-U)sin(T)→W：Abs(W)→W：0→Z←┘LbI 4：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cos(L)-(I-X)sin(L)→Z←┘If Abs(Z)＜10∧(-6）：Then 0→Z ：Prog"SUB1"：(J-Y)÷sin(F)→Z：Else W+Z→W：Goto 4：IfEnd：O+W→S←┘"Z="：Z◢"S="：S◢√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘"CQW="：M◢Goto 2←┘2.正算子程序（SUB1）0.1739274226→Z[1]：0.3260725774→Z[2]：0.0694318442→K：0.3300094782→L←┘1-L→F:1-K→M←┘U+W(Z[1]cos(G+QEKW(C+KWD))+Z[2]cos(G+QELW(C+LWD))+Z[2]cos(G+QEFW( C+FWD))+Z[1]cos(G+QEMW(C+MWD))→X←┘V+W(Z[1]sin(G+QEKW(C+KWD))+Z[2]sin(G+QELW(C+LWD))+Z[2]sin(G+QEFW(C+ FWD))+ Z[1]sin(G+QEMW(C+MWD))→Y←┘G+QEW(C+WD)+90→F：X+Zcos(F)→X：Y+Zsin(F)→Y一．补充1.输入显示说明X0 ？线元起点的X坐标Y0 ？线元起点的Y坐标S0 ？线元起点里程F0 ？线元起点切线方位角LS ？线元长度R0 ？线元起点曲率半径RN ？线元止点曲率半径Q ？线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0）S ？所求点的里程Z ？所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)CQW? 所求点的超欠挖2. 若隧道所测部位有两种圆心时，利用圆心所对应的弧的分段高度划分可设置两个选择条件，于是只需将主程序中“√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘”中改为“IfH>内轨顶标高+圆心O1分段高度：Then√( (H-内轨顶标高-圆心O1距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心O1相对遂中距离)²)-R1→M ：Else√( (H-内轨顶标高-圆心O2距离内轨顶高差)²+ (Abs(Z+线中相对遂中距离)+圆心O2相对遂中距离)²)-R2→M：If End←┘”3. 若所测隧道断面无需在经常在线元之间转换时，也可以将主程序中U(线元起点X坐标)，V(线元起点Y坐标)，O(线元起点里程)，G(线元起点切线方位角)，N(线元长度)，P(线元起点半径)，R(线元终点半径)，Q(曲线左偏为-1右偏为1直线为0)等曲线要素赋予定值，可减少在工作中的输入量。
5800隧道三心圆超欠挖程序
5800隧道三心圆超欠挖程序点击：176 次添加日期：2012-07-22 [ 打印] [ 收藏] [ 关闭]【举报老板技巧】充分掌握黑心老板拒发薪水证据,绝对保护举报者的身份信息，请加QQ：55136901、ECDM(二衬断面检查子程序，结合后面附图理解)“SCGC”?→CIf C<H+0.3:Then √((H+1.1-C)2+(Abs(Z[4]-2.5)-3.932)2)-2.5→A:Abs(Z[4]-2.5)-(3.932+√(2.52-(H+1.1-C)2)→B“R=”:A◢“B=”:B◢Else √((C-H-2.43)2+(Z[4]-2.5)2)-6.7→A: “R=”:A◢IfEnd（所用字母：C H A B）2、FSFYCX（反算放样程序：输入实测点X、Y坐标及实测高程C，求隧道超欠挖值或边坡开挖值）Lb1 B“SCX”?E: “SCY”?Q:E→Z[1]:Q→Z[2]:提示输入实测X、Y坐标Prog “ZB”Lb1 C(X-Z[1]) sin(U-90)-(Y-Z[2])cos(U-90)→Z[10]：试算点与实测点的连线在线路中线上的投影长度，当计算精度小于或等于0.001即1mm时输出计算结果，否则继续计算直至满足精度为止。
If Abs(Z[10])≤0.001:Then K+Z[10]→K:Pol(Z[1]-X,Z[2]-Y):”Z[4]=”:-Icos(J-U+90)→Z[4]◢“K=”:K◢Prog “GCJS”: Prog “ECDM”:Goto B:Else K+Z[10]→K: Prog“ZB”:Goto C:IfEnd(所用字母：E Q X Y U K)3、GCJS（高程计算子程序）26+6D→Z:Lb1 1:Prog “SQXYS”:K-O→L:If K≤O:Then F+AL→H:Else If K≤O+2T:Then F+AL+WLL÷R÷2÷Abs(W)→H:Else Z+3→Z:If Z≤23+6D+3G:Then Goto 1:Else Z-3→Z:Prog “SQXYS”:Z[Z+4]+B(K-O-T)→H:IfEnd(所用字母：Z O K F A L H T R W D)4、GCJSZCX（高程计算主程序）Lb1 C“K=”? →K:Prog “GCJS”:”H=”:H◢Goto C(所用字母：K H)5、SQXYS（竖曲线要素计算子程序）(Z[Z+4]-Z[Z+1])÷(Z[Z+3]-Z[Z])→A:(Z[Z+7]-Z[Z+4])÷(Z[Z+6]-Z[Z+3])→B:B-A→W:Z[Z+5]→R:Abs(0.5RW)→T:Z[Z+3]-T→O:Z[Z+4]-AT→F:A、B：竖曲线前后坡度计算，其余请参看竖曲线计算公式(所用字母：A B W T F Z R)6、KWDM（开挖断面计算子程序，结合后面附图理解）“KWBJ-R”? →R:”SCGC”?C:If C≤H+2.43-Rsin(13°10°9°):Then Abs(Z[4]-2.5)-(R-0.45(H+2.43-RSin(13°10°9°)-C) ÷2.1)→B:”B=”:B◢Else If C≤H+2.43+R:Then√((Z[4]-2.5)2)+(C-H-2.43)2)-R→A:Abs(Z[4]-2.5)-√(R2-(C-H-2.43)2)→B:C-H-2.43-√(R2-(Z[4]-2.5)2)→V:“R=”:A◢“B=”:B◢“V=”:V◢Else C-H-2.43-√(R2-(Z[4]-2.5) 2)→V: “V=”:V◢IfEnd（所用字母：R C H A B V）7、SJK 30（平曲线及竖曲线数据库程序，投影面高程为30米，红色部分为竖曲线）7→D: 10→G :30+6D+3G→DimZ:10→Z[1]:3433109.5170→Z[20]:3429407.741→Z[21]:3426833.089→Z[22]:3424404.600→Z[23]:3421023.289→Z[24]:3417221.367→Z[25]:3414448.180→Z[26]:3403462.4596→Z[27]:3405098.748→Z[28]:502494.2176→Z[29]:502639.171→Z[30]:503107.984→Z[31]:503310.589→Z[32]:503948.482→Z[33]:504343.928→Z[34]:505035.224→Z[35]:509994.4824→Z[36]:509997.8856→Z[37]:9000→Z[38]:9000→Z[39]:9000→Z[40]:10000→Z[41]:9000→Z[42]:9000→Z[43]:7000→Z[44]:490→Z[45]:490→Z[46]:490→Z[47]:430→Z[48]:490→Z[49]:490→Z[50]:670→Z[51]:490→Z[52]:490→Z[53]:490→Z[54]:430→Z[55]:490→Z[56]:490→Z[57]:670→Z[58]:1139000→Z[59]:1141824.092→Z[60]:1144638.005→Z[61]:1147045.518→Z[62]:1150566.149→Z[63]:1154138.336→Z[64]:1156817.127→Z[65]:1170598.039→Z[66]:1173840.340→Z[67]:1138090→Z[68]:77.040→Z[69]:1140000→Z[71]:71.310→Z[72]:30000→Z[73]:1141600→Z[74]:61.710→Z[75]:30000→Z[76]:1142900→Z[77]:45.460→Z[78]:30000→Z[79]:1143950→Z[80]:42.100→Z[81]:30000→Z[82]:1145400→Z[83]:47.755→Z[84]:30000→Z[85]:1147800→Z[86]:51.355→Z[87]:30000→Z[88]:1149300→Z[89]:44.005→Z[90]:30000→Z[91]:1153500→Z[92]:53.245→Z[93]:30000→Z[94]:1156300→Z[95]:72.125→Z[96]:30000→Z[97]:1156300→Z[98]:79.325→Z[99]:30000→Z[100]:1157980→Z[101]:49.085→Z[102]（所用字母：D、G）8、SJK90（平曲线及竖曲线数据库程序，投影面高程为90米，红色部分为竖曲线）2→D: 2→G :30+6D+3G→DimZ:2→Z[1]:44381.669→Z[20]:39644.955→Z[21]:36290.557→Z[22]:33141.9901→Z[23]:1072.7059→Z[24]:2635.9640→Z[25]:2370.9500→Z[26]:2494.2410→Z[27]:7000→Z[28]:9000→Z[29]:670→Z[30]:490→Z[31]:670→Z[32]:490→Z[33]:1127535.872→Z[34]:1130778.084→Z[35]:1135073.865→Z[36]:1139000→Z[37]:1132900→Z[38]:102.26→Z[39]:1134650→Z[41]:67.260→Z[42]:30000→Z[43]:1138000→Z[44]:77.310→Z[45]:30000→Z[46]:1139955→Z[47]:71.445→Z[48]:（所用字母：D、G）9、SWKZSJK5（石武客专数据库，红色部分为竖曲线，）7→D: 8→G: 30+6D+3G→DimZ:71955.5972→Z[20]:71428.348→Z[21]:64928.597→Z[22]:60648.194→Z[23]:58890.534→Z[24]:56131.938→Z[25]:50547.524→Z[26]:47965.040→Z[27]:47303.7078→Z[28]:652.0165→Z[29]:709.292→Z[30]:1017.189→Z[31]:938.295→Z[32]:812.152→Z[33]:813.346→Z[34]:462.228→Z[35]:456.788→Z[36]:517.0987→Z[37]:12000→Z[38]:11000→Z[39]:12000→Z[40]:12000→Z[41]:12000→Z[42]:12000→Z[43]:9000→Z[44]:330→Z[45]:370→Z[46]:330→Z[47]:330→Z[48]:330→Z[49]:330→Z[50]:490→Z[51]:330→Z[52]:370→Z[53]:330→Z[54]:330→Z[55]:330→Z[56]:330→Z[57]:490→Z[58]:1099872.681→Z[59]:1099872.681→Z[60]:1106362.974→Z[61]:1110706.287→Z[62]:1112355.010→Z[63]:1115166.386→Z[64]:1120776.803→Z[65]:1123224.207→Z[66]:1124551.665→Z[67]:1104639→Z[68]:113.4094→Z[69]:1104900→Z[71]:109.390→Z[72]:30000→Z[73]:1105900→Z[74]:111.390→Z[75]:30000→Z[76]:1106900→Z[77]:93.390→Z[78]:25000→Z[79]:1109400→Z[80]:73.390→Z[81]:30000→Z[82]:1112050→Z[83]:98.035→Z[84]:25000→Z[85]:1113900→Z[86]:84.190→Z[87]:30000→Z[88]:1116500→Z[89]:113.310→Z[90]:30000→Z[91]:1117700→Z[92]:110.910→Z[93]:30000→Z[94]:1122700→Z[95]:165.910→Z[96]:（所用字母：D、G）10、XLZB（线路坐标计算主程序）“1.ZX 2.BX”?→O: 提示选择：计算线路中线还是边线0→Q：Lb1 1If O≠1:Then “L”? →Q:”PJ”? →J:IfEnd：如选择边线提示输入宽度及偏角，宽度始终输正值，偏角右法线输+90，左法线输-90Prog “ZB”X+Rec(Q,U+J) →XY+J→Y“X=”:X◢“Y=”:Y◢If O=1:Then “QXFWJ=”:U▲DMS◢IfEnd：当计算中线时，会显示该点的切线方位角Goto 111、PQXYS（平曲线要素计算子程序）Z[V+2D+3] →R (调入半径)Z[V+3D+3] →L（调入第一缓和曲线长度）Z[V+4D+3] →M（调入第二缓和曲线长度）Pol(Z[V+1]-Z[V],Z[V+D+3]-Z[V+D+2])（交点前方位角，前进方向）J→A:Pol(Z[V]-Z[V-1],Z[V+D+2]-Z[V+D+1])（交点后方位角，前进方向）A -J→C:J→A:If C<-180:Then 1→N:ElseI if C<0: Then -1→N :Else if C<180:Then 1→N:Else -1→N:IfEnd （左右转参数计算，N=1右转，N=-1左转）If Abs(C) >180:Then 360-Abs(C) →C :If ENDAbs(C)→CL÷2-L^(3)÷240÷R2→Z[16]M÷2-M^(3)÷240÷R2→Z[17]L2÷24÷R→Z[18]M2÷24÷R→Z[19](Z[19]-Z[18])÷2÷tan(C÷2)→P(Z[18]+Z[19]+2R)tan(C÷2)÷2→Z[7]P+Z[7]+Z[16]→TZ[7]-P+Z[17]→PπRC÷180+(L+M) ÷2→Z[7]注：其余公式请参照不等长缓和曲线计算公式12、ZB（坐标计算子程序）Lb1 D22→W:?KLb1 2If K<Z[24+5D] Or K>Z[25+6D]:Then “OUT OF RANGE”◢Goto D: IfEnd:(里程计算超限提示)If K≤Z[W+5D+4]:Then W-1→V:Else W+1→W:Goto 2:IfEnd:（判断所输入里程对应的交点编号）Prog “PQXYS”Z[V]-Rec(T,A)→Z[14]Z[V+D+2]-J→Z[15]If K>1138800.074 And K<1139000:Then K+0.074→K:IfEnd（断链处理）If K=1139000 And D=2:Then K+0.074→K:IfEnd（断链处理）K-Z[V+5D+4] →SA→BIf S≤0:Then Z[14]+Scos(B)→X：（第一直线段坐标计算）Z[15]+Ssin(B) →YB→U:Goto 7:IfEndZ[14]→X:Z[15]→YIf S≤L:Then 1→H:Goto 4:IfEnd：（第一缓和曲线段坐标计算）If S≤Z[7]-M:Then 1→H:Goto 5:IfEnd：（圆曲线段坐标计算）A+NC→BIf S≤Z[7]:Then Z[7]-S→S:Z[V]+Rec(P,B)→X:Z[V+D+2]+J→Y:-1→H:M→L:Goto 4:Z[V+3D+3] →L:IfEnd：（第二缓和曲线段坐标计算）Z[V]+Rec(P+S-Z[7],B) →X:Z[V+D+2]+J→Y:B→U:Goto 7：（第二直线段坐标计算）LB1 4（缓和曲线计算公式）S^(3)÷6÷R÷L-S^(7)÷336÷R^(3)÷L^(3)→IS-S^(5)÷40÷R2÷L2→JB+90NHS2÷π÷R÷L→U:G oto 6Lb1 5（圆曲线计算公式）90(2S-L) ÷π÷R→UR(1-cos(U))+Z[18]→IRsin(U)+Z[16]→JB+180N(S-L÷2)÷π÷R→ULb1 6Pol(J,I):NHJ+B+90(H-1)→JRec(I,J)+X→XY+J→YLb1 7If U<0:Then U+360°→U:IfEnd13、ZBFS（坐标反算：已知两点坐标求距离及方位角）Lb1 0“X1”?X: “Y1”?Y:”X0”?D:”Y0”?G:Pol(X-D,Y-G):If J<0:Then J+360→J:IfEnd“JL=”:I◢“FWJ=”:J▲DMS◢Goto 014、ZBZS（坐标正算：已知起点坐标、距离及方位角求终点坐标）Lb1 0“X0=”?C:”Y0=”?D:”JL=”?E:”FWJ=”?F:Rec(E,F):C+I→X:D+J→Y:“X=”:X◢“Y=”:Y◢Goto 015、ZSFYCX（正算放样程序：已知里程、宽度求距离及方位角）“ZJX=”?→Z[1]：提示输入置镜点X坐标“ZJY=”?→Z[2]：提示输入置镜点Y坐标Lb1 A“FY:1.ZX 2.BX”?→O：提示选择是放样中线还是边线，1为中线、2为边线If O≠1:Then “KD=”?→Q:”PJ=”?→J:IfEnd：放样边线提示输入宽度及偏角Prog “ZB”X+Rec(Q,U+J)→XY+J→YPol(X-Z[1],Y-Z[2])If J<0:Then J+360→J:IfEnd“S=”:I◢“A=”:J▲DMS◢Goto A三心圆开挖放样程序“ZDKW”（也可用于多心圆、同心圆）：请结合后面所附示意图理解！｛CR｝:C“△H”:Z[9]+C≤H+h1+RSinα＝＞A=√((Abs(Z[4]±Z[8]×?)+d)2+(Z[9]+C－H－h2)2) －R－r1▲B=Abs(Z[4] ±Z[8]×?)+d－√(（R+ r1）2－(Z[9]+C－H－h2)2) ▲V=Z[9]+C-H-h2-√((R+r1)2－(Z[4] ±Z[8]×?)2) ▲≠＞Z[9]+C≤H+h1+R ＝＞A=√((Abs(Z[4] ±Z[8]×?) 2+(Z[9]+C－H－h1)2) －R▲B=Abs(Z[4] ±Z[8]×?)－√(R2－(Z[9]+C－H－h1)2) ▲V=Z[9]+C-H-h1-√(R2－(Z[4] ±Z[8]×?)2) ▲≠＞V=Z[9]+C－H－h1－√(R2－Abs(Z[4] ±Z[8]×?) 2) ▲△△C (显示为△H)：实测点至仪器中心的高差（如直接输入高程，则将C“△H”改为C“SCGC”，且程序中的Z[9]+C就直接用C代替）R：开挖半径（O1）Z[9]：仪高（直接输实测高程时不用）A：实测点半径与设计半径之差值（径向），+超挖，—欠挖B：实测点与设计点之差值（水平方向），+超挖，—欠挖V：实测点与设计点之竖向距离r1：O1与O2(O3)之差h1：圆心O1至设计高程点的距离,h2：圆心O2（O3）至设计高程点的距离H：实测点设计高程，由高程子程序带入Z：须预先置入扩展变量中，Defm 15d：偏移两圆心（O2、O3）与隧道中线之水平距离？：线路中线与隧道中线之偏移距离Z[8]：左右线判断变量（分离式双线隧道）及隧道左右偏判断变量（相对线路设计中心线）平曲线及竖曲线数据库设置表（n个平交点）1、平曲线数据库设置表注：1、从Z[20]开始存储数据，是为了留出前面的扩展变量作为其他变量使用，以补充变量A-Z之不足，当然也可以从Z[30]、 Z[40]开始，留出更多的变量供使用，只需根据上面表格作相应调整。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5800万能隧道程序1,主程序Lbl 0 ："1.SZ => XY" ："2.XY => SZ" ：？T ：？S ：Prog “SUB0 ”↙1 ÷P →C: (P-R) ÷(2HPR) →D:180 ÷∏→E:T=1 => Goto1 ：Goto2 ：↙Lbl 1: “LICHENG=”？K：“BANJNG=”？P：“PIANJIN=”？S：：Abs(S-O) →W ：Prog "SUB1" ↙Prog "GC"：G+√¯(P²－S²)+1.66◢"XS=" ：X ◢"YS=" ：Y ◢" ZS=" ：Z ◢F-90 →F ：“FS= ”：F ▶DMS ◢Goto 0Lbl 2 ：Prog “SUB2 ”↙Prog “YFS3 ”Goto 0↙2. 正算子程序(SUB1)0.1739274226 →A ：0.3260725774 →B ：0.0694318442 →K ：0.3300094782 →L ：1-L → F ：1-K →M ：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QEL W(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+Q EMW(C+MWD))) →Y ：G+QEW(C+WD)+90 → F ：X+Zcos （ F ）→X ：Y+Zsin （F ）→Y3. 反算子程序(SUB2)Lbi 1∶“BANJING”？P：“X”？X：“Y”？Y：“Z”？Z：X→I：Y→J：G-90 →T ：Abs((Y-V)cos(T)-(X-U)sin(T) ) →W ：0 →Z ：Lbl 4 ：Prog "SUB1" ：T+QEW(C+WD) →L ：(J-Y)cos （L ）-(I-X)sin （L ）→Z ：IF Abs （Z ）<0.01 ：Then0 →Z:Prog "SUB1" :(J-Y) ÷sin （F ）→Z:Else W+Z→W: Goto4:IfEnd↙“LICHENG=”：K◢“PIANJU=”：S◢4小程序(YFS2)Prog“GC”∶“GAOCHA=”∶Z－G－1.66→T◢If P=0∶Then Prog“YANGGEN仰拱”∶Else Prog“YFS3”↙Goto1∶Return∶Stop ↙4小程序(YFS3)Lbi 1∶If T＞0∶Then Abs(S) －√¯(P²－T²)→W∶Prog“CQW”↙∶Else Goto2↙Lbi 2∶If Abs(T)＜0000∶Then Prog “AIBIANQIANG矮边墙”∶Else Abs(S)+3.56－√¯(P²－T²)→W﹙下道﹚∶Prog“CQW”∶Return∶If End↙6小程序(AIBIANQIANG) 矮边墙If S＜0∶Then Abs(S) －5.12→W And Abs(T)－1.30→M∶“S”∶M◢∶“+XY,－XZ”∶W◢Else Abs(S) －5.12→W And Abs(T)－1.05→M∶“S”∶M◢∶“+XY,－XZ”∶W◢7小程序(YANGGEN)仰拱If S＜0∶Then 2.35+Abs(S)×3%－Abs(T)→W∶Prog“YG仰拱”↙Else 2.35－S×3%－Abs(T)→W∶Prog “YG仰拱”↙7，仰拱超高（直线上升或下降）﹙－3%－2%﹚÷﹙4－0﹚→E∶2%+﹙K－0﹚E→B∶If S＜0∶Then 2.35+Abs(S)×B－Abs(T)→W∶Prog“YG仰拱”↙Else 2.35－S×B－Abs(T)→W∶Prog“YG仰拱”↙(2%起点坡度)(－3%终点坡度)(4起点里程)(0终点里程)(2.35起拱线距仰拱中心高度)7，仰拱超高（抛物线上升或下降）K－0→X∶4－0→L ∶2%+﹙2X÷L－3﹚×﹙﹙2%－－3%﹚×X²÷L²﹚→B ↙2.35+Abs(S)×B－Abs(T)→W∶Prog“YG仰拱”↙Else 2.35－S×B－Abs(T)→W∶Prog“YG仰拱”↙(2%起点坡度)(－3%终点坡度)(4起点里程)(0终点里程)(2.35起拱线距仰拱中心高度)8小程序(YFS6)洞室Abs(K－0)－√¯(00²－(000－Z)²)→W ↙Prog “CQW”(0→洞室的中心桩号)(00→洞室的半径)(000→洞室的圆心到起拱线高度（在起拱线上Z－000,下就000－Z）)9小程序(CQW)“CHAO,(－)QIAN”∶W◢Return∶Stop10小程序(YG仰拱)If W＞0∶Then“XIA”∶W◢Else“SHANG”∶W◢Return∶Stop11子程序(GC)高程If K≥93560 And K＜93805∶Then 504.33+2.4%(K－93560) →G∶Return∶If End ↙If K≥93805 ∶Then 510.220+2.4%(K －93805.399)－(K－93805.399)²÷2÷18504→G∶Return∶If End↙SUB0 数据库子程序Goto1 ↙同时保存多个曲线时的指针Lbl 1 ：IF S<*** （线元终点里程）:Then*** →G （线元起点方位角）:*** →O （线元起点里程）:*** →U （线元起点X ）:*** →V （线元起点Y ）:*** →P （线元起点曲率半径）:*** →R（线元终点曲率半径）: *** →H （线元起点至终点长度）：0 或 1 、-1 →Q ：Return:IfEnd ↙Lbl 1 ：IF S<*** （线元终点里程）:Then*** →G （线元起点方位角）:*** →O （线元起点里程）:*** →U （线元起点X ）:*** →V （线元起点Y ）:*** →P （线元起点曲率半径）:*** →R（线元终点曲率半径）: *** →H （线元起点至终点长度）：0 或 1 、-1 →Q ：Return:IfEnd…………… ..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl ，每增加一个工程增加一个文件。
三、使用说明1 、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1 ；当线元往右偏时，Q=1 ；当线元为直线时，Q=0 。
(2) 当所求点位于中线时，Z=0 ；当位于中线左铡时，Z 取负值；当位于中线中线右侧时，Z 取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10 的45 次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10 的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径为无穷大，以10 的45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
2 、输入与显示说明输入部分：1. SZ => XY2. XY = > SZN ? 选择计算方式，输入1 表示进行由里程、边距计算坐标；输入 2 表示由坐标反算里程和边距。
S？正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对，Z ？正算时所求点距中线的边距( 左侧取负，值右侧取正值，在中线上取零)X ？反算时所求点的X 坐标Y ？反算时所求点的Y 坐标显示部分：XS= ×××正算时，计算得出的所求点的X 坐标YS= ×××正算时，计算得出的所求点的Y 坐标FS= ×××正算时，所求点对应的中线点的切线方位角S= ×××反算时，计算得出的所求点的里程Z= ×××反算时，计算得出的所求点的边距曲线任意里程中边桩坐标正反算(CASIOfx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。
本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。
特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优于1mm；全能程序只能是这种形式才能算直线→完整缓和曲线→圆曲线→非完整缓和曲线→直线直线→完整缓和曲线→圆曲线→完整缓和曲线→直线缓和曲线直→完整缓和曲线→圆曲线→非完整缓和曲线→缓和曲线：第一缓和曲线起点半径与直线相等1×10﹙15﹚, 第二缓和曲线终点半径与直线相等1×10﹙15﹚。