5800万能程序(最新)
卡西欧5800基本测量程序(完整版)
卡西欧5800基本测量程序(完整版)卡西欧5800 程序(完整版)说明：本程序适用于公路、桥梁、隧道测量。
本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。
主程序:MAIN＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算)If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓(第一个交点参数)(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓If M=θ:Then If A<P-T:Then goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓If K=θ:Then goto 2 :IfEnd↓………… (中间交点参数)Prog＂ZFXZ＂↓If K=θ:Then goto 2 :IfEnd↓………… (最后一个交点参数)If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓If K=θ:Then goto 2 :IfEnd↓Lb1 1：＂NO TASK＂↓Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢＂SJ KUAN DU＂:B◢IfEnd:IfEnd↓＂-------END-------＂KUAN DU （拓展功能程序，用于反算）1→Ｍ:Prog＂MAIN＂↓Z→A:W→E:θ→W↓Prog＂GAO CHENG＂↓E→W↓Q-F→P↓If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上)Lb1 1↓＂……＂:D◢(同上) ◢＂----------END---------＂YUANK(B÷(2R))→F↓2R Sin(K F r)→C ↓J+F r→J ↓Prog＂XZBH＂HHQXB-B^5÷(9θ(RL)2)→C ↓KB2÷(6RL)→F ↓J+ F r→J↓Prog＂XZBH＂PYJSIf O=θ:Then＂YUAN＂:J+F r→J:IfEnd↓If O=1:Then＂HHQX＂:J+2F r→J:IfEnd↓If O=2:Then＂LINE＂:J+18θ→J:IfEnd↓W→C↓If A>P-T+S-L:Then J-9θ→J:Else J+9θ→J:IfEnd↓Prog＂XZBH＂↓"X=":X◢"Y=":Y◢QXCS(有改)Prog＂QDZB＂↓If A≤P-T+L:Then A-P+T→B:U→J:1→O: Prog＂HHQX＂: Goto 1 :IfEnd↓If A≤P-T+S-L:Then A-P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)→F:U+F r→J: Prog＂XZBH＂:U+3F r→J: Prog＂YUAN＂: Goto1:IfEnd↓If A≤P-T+S:Then P-T+S-A→B:1→O:-K→K:V+180→J: Prog＂HHQX＂: Goto 1 :IfEnd↓If A≤P-T+S+D:Then 2→O:A-P+T-S→C: Prog＂XZBH＂:IfEnd↓Lb1 1：↓Prog＂PYJS＂↓Prog＂GA0 CHENG＂QDZBN→X:E→Y:T→C↓If A>P-T+S-L:Then V→J: Else U+18θ→J:IfEnd↓Prog＂XZBH＂↓X→Z〔5〕:Y→Z〔6〕JDTZIf Z〔1〕< θ:Then Z〔1〕+ 36θ→Z[1]:IfEnd↓If Z〔1〕≥ 36θ:Then Z〔1〕- 36θ→Z[1]:IfEnd↓If Z〔2〕< θ:Then Z〔2〕+ 36θ→Z[2]:IfEnd↓If Z〔2〕≥ 36θ:Then Z〔2〕- 36θ→Z[2]:IfEnd↓FWJθ→I:θ→J↓Pol(H-G,W-Z) ↓J<θ⇒J+36θ→J↓J→FDOTLINEPol(H-X,W-Y):I→N↓Pol(G-H,Z-W):I→E ↓Pol(X-G,Y-Z):I→D↓(N+E+D)÷2→I↓√(I(I-N)(I-E)(I-D))→I ↓2I÷D→I ↓ZSPDIf A≤P-T+S+D:Then Prog＂QXCS＂:θ→K:IfEnd ↓FSPDIf K=-1:Then If Z〔1〕< Z〔2〕:Then If F≤Z〔1〕:Then Goto 1 :IfEnd:If F≥Z〔2〕:Then Goto 1 :IfEnd:Else If F≤Z〔1〕:Then F≥Z〔2〕:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓If K=1:Then If Z〔1〕> Z〔2〕:Then If F≥Z〔1〕:Then Goto 1 :IfEnd :If F≤Z〔2〕:Then Goto 1 :IfEnd:Else If F≥Z〔1〕:Then If F≤Z[2]:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓θ→A: Goto 2↓Lb1 1↓If O=θ:Then Prog＂FSYUAN＂:IfEnd↓If O=1:Then Prog＂FSHHQX＂:IfEnd↓1→A↓Lb1 2FSTJU-90K→Z[1]↓V-90K→Z[2]↓Prog＂JDTZ＂↓P-T→A↓-1→O↓Prog＂JDZB＂↓Prog＂FSPD＂↓If A=θ:Then Goto 1 :IfEnd↓（有改）Z[1]→Z[1]: Z[1]+K(L÷(2R))r→Z[2]:1→O↓Prog＂JDTZ＂↓Prog＂JDZB＂↓Prog＂FSPD＂↓If A=1:Then θ→K: Goto 2 :IfEnd↓Z[5]→X:Z[6]→Y:(KL)÷(6R)→F:L-L^3÷(90R2)→C:U+F r→J↓Prog＂XZBH＂↓U+3F r+90K→J:R→C↓Prog＂XZBH＂↓X→G:Y→Z↓Prog＂FWJ＂↓Z[2]→Z[1]:Z[1]+K((S-2L)÷R)r→Z[2]:θ→0↓Prog＂JDTZ＂↓Prog＂FSPD＂↓If A=1:Then θ→K:Goto 2:IfEnd↓-K→K:V+9θK→Z[1]:Z[1]+K(L÷(2R))r→Z[2]:1→O↓Prog＂JDTZ＂↓P-T+S→A↓Prog＂JDZB＂↓Prog＂FSPD＂↓If A=1:Then θ→K:Goto 2:IfEnd↓Lb1 1↓If D>θ:Then P-T+S→A:Prog＂FSLINE＂:If A=1:Then θ→K:IfEnd:IfEnd↓Lb1 2FSYUAN＂YUAN＂↓36θ+K(F-Z[1])→F ↓F≥36θ⇒F-36θ→F⊿↓P-T+L+πRF÷18θ→Z:If K=1:Then R-I→B: Else I-R→B:IfEnd↓FSHHQX＂HHQX＂↓Z[5]→X:Z[6]→Y ↓Z[1]+18θ→J:R→C↓Prog＂XZBH＂↓X→G:Y→Z↓Z[5]→X:Z[6]→Y ↓Prog＂DOTLINE＂↓If I<1:Then θ→B:Goto 3: Else I→B: Prog＂FSHHQX1＂:I→Z[7]:B+I÷10→B: Prog＂FSHHQX1＂:If I>Z[7] :Then Goto 1: Else:Goto 2:IfEnd:IfEnd↓Lb1 1↓B-I÷2→B: Prog＂FSHHQX1＂↓If I<1:Then -I→I:Goto 3: Else Goto 1:IfEnd↓Lb1 2↓B+I÷2→B: Prog＂FSHHQX1＂↓If I<1:Then Goto 3: Else Goto 2:IfEnd↓（有改）Lb1 3↓If A>P-T+L:Then P-T+S-B-I→Z: Else P-T+B+I→Z:IfEnd↓If K=1:Then If A<P-T+S-L:Then D-E→B: Else E-D→B:IfEnd:IfEnd ↓If K=-1:Then If A<P-T+S-L:Then E-D→B: Else D-E→B:IfEnd:IfEndFSHHQX1Z[5]→X:Z[6]→Y:Z[1]+9θK→J↓Prog＂HHQX＂↓X→Z[3]:Y→Z[4]↓R→C:J+2F r+9θK→J↓Prog＂XZBH＂↓X→G:Y→Z↓Z[3]→X:Z[4]→Y ↓Prog＂DOTLINE＂Prog＂QDZB＂↓Z[5]→Z[3]:Z[6]→Z[4] ↓If O=-1:Then P-T+S→A: Prog＂QDZB＂:Z[3]→Z[5]:Z[4]→Z[6]: Else Z[1]+9θK+K(L÷(6R))r→J:L-L^3÷(9θR2)→C: Prog＂XZBH＂:IfEnd ↓(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[1]))÷(tan(Z[2])-tan(Z[1]))→G ↓tanZ[2](G-X)+Y→Z↓Prog＂FWJ＂ZFXZIf M=θ:Then Prog＂ZSPD＂: Else Prog＂FSTJ＂:IfEndFSLINEProg＂QDZB＂↓X→G:Y→Z:J→N↓Prog＂FWJ＂↓N→J:F-J→F↓Icos(F)→G↓If G≤D:Then If A>P-T+S-L:Then P-T+S+G→Z:Isin(F)→B:Else P-T-G→Z:-Isin(F)→B:IfEnd :1→A:2→O: Else θ→A:IfEndX+Ccos(J)→X↓Y+Csin(J)→YHENG POIf A≤P-T+L-Z[10] :Then Z[8]→V:Goto 1:IfEnd↓If A≤P-T+L:Then (Z[9]-Z[8])÷Z[10]→E:Z[8]+(A-P+T-L+Z[10])E→V: Goto 1:IfEnd↓If A≤P-T+S-L:Then Z[9]→V:Goto 1:IfEnd↓If A≤P-T+S-L+Z[10]:Then (Z[8]-Z[9])÷Z[10]→E:Z[9]+(A-P+T-S+L)E→V: Goto 1:IfEnd↓Z[8]→V ↓Lb1 1GAO CHENG……(交点桩号)→O:……(交点高程)→D:……(小桩号坡度)→N:……(切线长度)→G:……(圆曲线半径)→R ↓If A≤O-G:Then θ→K: Goto 1:IfEnd↓If A≤O+G:Then 1→K: Goto 1:IfEnd↓(K=0为直线、K=1为凸圆、K=-1为凹圆)……（同上）Lb1 1:Prog＂HENG PO＂↓K（A-O+G）2÷(2R)→P ↓D+N(A-O)-P+WV→F↓"DM":F◢FWJJS (测回法测坐标)A＂XA＂: B＂YA＂:C＂XB＂: D＂YB＂: K＂CHANG DU＂: G＂JIAO DU＂↓I=0:J=0:Pol(C-A,D-B):J<0⇒J=J+360⊿↓E=J+G↓J＂FWJ＂◢X＂X＂=A+KcosE◢Y＂Y＂=B+KsinE◢＂-------END-------＂说明:＂JIAO DU＂顺时钟为正、逆时针为负，＂XA＂、＂YA＂为测站点坐标、＂XB＂、＂YB＂为后视点坐标，＂X＂、＂Y＂为前视即待测点坐标，＂CHANG DU＂为测站点到待测点距离。
5800隧道超欠挖程序(新版本)
隧道超欠挖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坐标。
5800计算器程序辛普森公式程序(通用)
1．”XLZB”：坐标计算主程序↓（与预留的自由变量数有关！）｛O｝∶O“1.ZX 2.BX”↓Q=0↓LbI 1↓O≠1=>｛QG｝:Q”L”:G”XJJD”:△（显示“L”输入边桩宽度，均为正值，显示“XJJD”输入边桩测点与线路中线上点的连线与线路中线上点的切线的夹角，如右法线为90度，左法线为270度或者-90度，其余同理。
）Prog”ZB”:X=X+Rec(Q,T+G):Y=Y+J:”X=”：X ：Pause 0 :”Y=”：Y▲(X”X=”：Pause 0 : Y”Y=”：▲)”T=”：T→DMS▲(T”T=”▲)Goto 1(注释：括号内写法为Casio4800P计算器显示方式) 2．“ZB”:坐标计算子程序↓（与预留的自由变量数有关！）（与预留的自由变量数有关！）｛K｝:↓LbI 2↓F=0：△（注释：方框内数字27[第七段]为断链的段号；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[W+3a]+Z[W]+F：K≥Z[W+3a] =>K≤E =>V=W－1：≠＞W=W+1: Goto 2△△↓K－F：△（方框为断链点的后桩号，即去向桩号，如遇断链，依此增加即可！）S=K－Z[V+3a+1]:P=(Z[V+2a+1] －Z[V+a+1])÷Z[V+1]:I=P*S:C=Z[V+4a+1]:D=Z[V+a+1]:J=C+(I+2D)*S*90/π:L=1：X=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Y=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:T=J:３．“SJK.DAT”:数据库主程序Mcl:Defm(20+7a):Z[21]=?:……Z[21+3a]=?:Z[21+4a]=?:Z[21+5a]=?:Z[ 21+6a]=?:Prog”SJK”:(输入程序时，Defm后须换成相应数据，a为曲线元段数)4．“SJK”：数据库计算子程序a=?:V=20:T=0:B=?(a:曲线元段数；B:等分数，最少为2，一般为4就可以满足要求)LbI 0↓F=0：（注释：方框内数字6[第七段减一]为断链的段号减去1所得；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[V+3a+1]+Z[V+1]+F:Z[V+3a+2]=E：S=Z[V+1] :I=Z[V+2a+1] －Z[V+a+1]:C=Z[V+4a+1]: D=Z[V+a+1]:J= C+(I+2D)*S*90/π:Z[V+4a+2]=J:L=1：Z[V+5a+2]=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Z[V+6a+2]=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:V=V+1:T=T+1:T＞a-2 =>”END OF THE PROGRAM”▲△Goto 0为了使程序能够计算连续多个曲线元的坐标，减少计算过程中的数据输入，可利用CASIOfx-4800/4850P计算器提供的扩展变量设置曲线元数据库，假定某一段线路包含有a个曲线元，则可设置曲线元数据库如下表所示：曲线元数据库设置表扩展变量Z[1]~Z[20]用作自由变量，可以用来弥补字母变量的不足，此项设置可自由选择！因此，数据库的起点本程序从Z[21]开始，表中Z[21]~Z[21+3a]以及Z[21+4a]、Z[21+5a]、Z[21+6a]需预先置入，表中空白部分由程序自动计算生成。
卡西欧5800坐标正反算万能程序
CASIO5800计算器程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。
本程序也可以CASIO fx-5800P计算器计算器上运行。
二、源程序1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：?N："X0"? U："Y0"? V："S0"? O："F0"? G："LS"? H："R0"? P："RN"? R：?Q←┘1÷P-> C：(P-R)÷(2HPR) -> D：180÷π->EIf N=1：Then Goto1：Else Goto 2：IfEndLbl 1：？S：？Z：Abs(S-O) -> W：Prog "SUB1"："XS"：X◢"YS"：Y◢Goto 1←┘Lbl 2：？X：？Y：X-> I：Y->J：Prog "SUB2"："S"：O+W-> S◢"Z"：Z◢Goto 22. 正算子程序(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+QELW(C+LWD))+Bcos(G +QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) -> X：V+W(Asin(G+QEKW(C+K WD))+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-> Y3. 反算子程序(SUB2)G-90-> T：Abs((Y-V)cosT-(X-U)sinT) -> W ：0-> Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) ->L：(J-Y)cosL-(I-X)sinL-> Z：If Abs(Z) <0.0000001：Then Goto1：Else W+Z ->W：Goto 0：IfEndLbl 1：0 ->Z：Prog "SUB1"：(J-Y)÷sinF-> Z三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
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。
5800计算器全线坐标计算放样程序
5800计算器全线坐标计算放样程序（修改版）“XLZBJSCX” ◢ （第一个程序）Lb1 0 ↙Cls : Fix 4 : 30→Dimz ↙“XHS="?G ( 后视点 X) :"YHS="?L ( 后视点 Y) :"XZJ="?M ( 置镜点 X) :"YZJ="?N ( 置镜点 Y) :Pol(G-M,L-N):"DH=":I ( 后视距) ◢ J<0=>J+360→J:"FH=":J►DMS ◢ ( 后视方位角 ) Lbl 1 ↙ ( If （如果的意思） And （和字的意思） Then （然后的意思） )“K=”?K ◢ （计算里程） ( 下面有色的是数据库 )If （如果） K< 51760.052 本曲线缓直点桩号 And （和）K≥ 51048.785 上一个曲线缓直点桩号： Then （然后）本曲线缓直点桩号51760.052 →Z[1] : 上一个曲线缓直点桩号51048.785 →Z[2] ： 1 -1 →O（注：左偏曲线输入 - 1→O, 右偏曲线输入1→O） : 偏角12 ’ 23 ’ 19.5 ’ →A ：半径3289.486 →R : 第一缓和曲线长度0 →Z[6] : 第二缓和曲线长度0 →Z[7] : 交点 X 坐标→B : 交点 Y 坐标→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Goto 2 : IfEnd ↙ ( 重兰字是输入的数字 ) ………… （曲线段分段输入）补充直线段输入如下If （如果） K< 本段直线终点里程 And （和）K≥ 本段直线起点里程 :Then （然后）1→O: 本段直线终点里程→Z[3]: 终点坐标X→Z[16]: 终点坐标Y→Z[17]: 方位角→E:Goto 4:IfEnd ↙Lb1 2 ↙ （曲线要素计算）Z[6] ÷ 2- Z[6]^ 3 ÷ (240R^2)+ Z[6]^ 5 ÷ (34560*R^4) →Z[8] ↙ （ M1 不输）Z[7 ] ÷ 2- Z[7]^ 3 ÷ (240R^2)+ Z[7]^ 5 ÷ (34560 R^4) →Z[9] ↙ （ M2 不输）Z[6]^ 2 ÷ (24R)- Z[6]^ 4 ÷ (2688R^3) →Z[10] ↙ （ P1 不输）Z[7]^ 2 ÷ (24R)- Z[7]^ 4 ÷ (2688R^3) →Z[11] ↙ （ P2 不输）(πAR ) ÷ 180+0. 5 × ( Z[6]+ Z[7])→S ↙ （曲线总长）90 × Z[6 ] ÷ ( R × π) →Z[14] ↙ （第一缓和曲线总偏角）( ×÷以后自己改 )9 0 × Z[7 ] ÷ ( R × π) →Z[15] ↙ （第二缓和曲线总偏角 , 可以省略）Z[8] ＋（ R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12] ↙ ( 切线 T1)Z[9] ＋（ R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13] ↙ ( 切线 T2)B+ Z[12]*COS (E+180)→ Z[16] ↙ （ ZH 点 X ）C+ Z[12]*SIN(E+180)→ Z[17] ↙ （ ZH 点 Y ）Z[1]-S→Z[3] ↙ (ZH 点里程 )Z[3]+ Z[6]→Z[4] ↙ (HY 点里程 )Z[1]- Z[7]→Z[5] ↙ (YH 点里程 )GOTO 3 ↙LB1 3 ↙ ( 判断里程点与曲线关系 )If K≤Z[3] And K> Z[2] : Then Goto 4 : IfEnd ↙If K≤Z[4] A nd K> Z[3] : T hen Goto 5 : IfEnd ↙If K≤Z[5] A nd K> Z[4] : T hen Goto 6 : IfEnd ↙If K≤Z[1] A nd K> Z[5] : T hen Goto 7 : IfEnd ↙LB1 4 ↙ （里程小于直缓点直线独立坐标）K- Z[3] →X : 0→Y : E→T : Prog“TYZBCX” ：Goto 1 ↙Lb1 5 ↙ （第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →X ↙H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Y ↙90*H^2/( R*π* Z[6]) →T ↙IF O >0 ：Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙PRrog“TYZBCX” ：Goto 1 ↙Lb1 6 ↙ （圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+ Z[14]→T ↙R*SIN( T)+ Z[8]→X ↙R*(1-COS (T))+ Z[10]→Y ↙IF O >0 ：Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙Prog“TYZBCX” ：Goto 1 ↙Lb1 7 ↙ （第二缓和曲线独立坐标）Z[1] -K →H↙H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7 ]^4) →U ↙H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙90*H^2/( R*π* Z[7]) →T ↙Z[13]COS (A)+ Z[12]-U*COS( A)-V*SIN (A)→X ↙Z[13]*SIN( A)-U*SIN( A)+V*COS (A)→Y ↙IF O >0 ： Then F-T→T : T<0=>360+T→T : Else F+T →T : IfEnd ↙Prog“TYZBCX” ：Goto 1 ↙子程序：“TYZBCX” ↙ （统一坐标计算）（第 2 个程序）IF O<0 : Then -Y→Y : IfEnd ↙“QXJ=” :T ◢ （计算里程点切线方位角，可以不显示）Z[16]+X*COS (E)-Y*SIN( E)→Z[18] ↙Z[17]+X*SIN (E ） +Y*COS (E ）→Z[19] ↙“XI=” : Z[18] ◢ （ XI 中线 X ）“ YI =” : Z[19] ◢ （ YI 中线 Y ）Pol(Z[18]-M,Z[19]-N):"DI=":I ◢ （中桩放样距）J<0=>J+360→J:"FI=": J ►DMS ◢ （中桩放样方位角）“ PJ =”?P ◢ ( 输入边桩与线路夹角 PJ ，左偏– 90 右 +90 )“ PD =”?D ◢ （输入边桩距 PD ）Z[18]+D*COS(T+P) →Z[20] ↙Z[19]+D*SIN(T+P) →Z[21] ↙“XP=”: Z[20] ◢ （ XP 边桩 X ）“YP=”: Z[21] ◢ （ YP 边桩 Y ）Pol(Z[20]-M,Z[21]-N):"DP=":I ◢ （边桩放样距）J<0=>J+360→J:"FP=":J ►DMS ◢ （边桩放样方位角）Return ↙ （以上都要输进计算器）注解不输K 里程 XI 中线 X YI 中线 Y PD 输入边桩距 XP 边桩 X 坐标YP 边桩 Y 坐标 I 边桩放样距 PJ 输入边桩与线路夹角，左偏– 90 右 +90 ) I 中桩放样距 T 计算里程点切线方位角，可以不显示卡西欧FX5800全线贯通万能正、反算程序FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU 主程序"1.ZS,2.FS" ?→Q输入1正算，输入2反算“NEW=0,OLD≠0”?ZIf Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2Lbl 1 :“KM=,<0Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?LLbl Z:Z=1=> Prog“01”：Z=2=> Prog“02”选择数据库文件，可增加H- F→X:0.5(E-D)÷(G-F)→NC+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→PA+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→UB+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→VQ=2=>Goto 4：Cls：Fix 3"Xn=":Locate 4，1，U："Yn=": Locate 5，2，V：“FWJ=”：P▶DMS◢Norm 2：Cls：Goto 1Lbl 2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S“KMDG=”？H ：90→O:0→L：Goto Z （H线路范围内的任意桩号）Lbl 4:Pol（R-U，S-V）：J<0 => J+360→JWhile abs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=> P+360→P:IF P-J>0:then -I→L:else I→L ifendGoto 3: Whileend：H+Icos（J-P）→H:Goto ZLbl 3:Cls：Fix 3“KM=”: Locate4，1，H：“PY=”: Locate4，2，L◢Norm 2：Cls：Goto 201（数据库子程序）If H<=第一曲线终点桩号：then 第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend……………程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、 RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、 EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。
5800计算器匝道中边桩万能正反算程序
5800计算器匝道中边桩万能正反算程序主程序匝道坐标正反算程序名称：ZDZBZFSLB1A↙Cls : Fix 4 : 10→Dim Z :"0=ZS,1=FS"?Z ↙IfZ=0:ThenGoto B:IfEnd↙(Z=0进入里程点坐标正算）IfZ=1:ThenProg"FSLCBZ 1": Goto A:IfEnd↙(Z=1进入反算里程边桩）Lb1 B↙“K=”?K ：（计算里程）Prog"SJK2 ":Prog” ZDZBFY1” :Goto A ↙子程序数据库SJK2IfK<第一线元终点里程：THEN线元起点X→A:线元起点Y→B:线元起点半径（直线为1045）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线为1045）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Prog” ZDZBZS”: Return :IfEnd ↙If………………………………Prog” ZDZBZS”: Return :IfEnd↙（匝道线元数据分段输入）子程序匝道坐标正算ZDZBZSW*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→Z[1] :E+( Z[1]/C+H Z[1]2)×180/π→V:V<0=>V+360→V:A+∫(Cos(E+( Z[1]/C+H Z[1]2)*180/π，0，Z[1])→Z[3] : B+∫(Sin(E+( Z[1]/C+H Z[1]2)*180/π，0，Z[1])→Z[4]: Return↙子程序匝道坐标放样ZDZBFY1"XZJ="?R◢(输入置镜点X）"YZJ="?S◢(输入置镜点Y）"XHS="?M◢(输入后视点X）"YHS="?N◢(输入后视点Y）Pol(M-R,N-S):J<0=>J+360→J:"HJ=":J→DMS◢(后视方位角）"HD=":I◢(后视距离）"XI=": Z[3]◢(计算点中心X）"YI=": Z[4]◢(计算点中心Y）"PJ="?P◢(输入计算点边桩偏角左－右＋）"PD="?Q◢(输入计算点边桩偏距）Rec(Q,V+P): Z[3]+I→Z[7] : Z[4]+J→Z[8]:"XP=": Z[7]◢(计算点边桩X）"YP=": Z[8]◢(计算点边桩Y）Pol(Z[7]-R, Z[8]-S):J<0=>J+360→J:"FY J=":J→DMS◢(放样方位角）"FYD=":I◢(放样距离）Return↙子程序反算里程边桩，名称：FSLCBZ1Lb11↙"XK="?X:"YK="?Y↙（输入任意测点的XY坐标）:“K？=”?K （试算里程,输入匝道范围内任意里程点号，接近里程号可以加快反算速度）↙Lb12↙Prog"SJK2 ":V-90 →Z[2]: Z[2]<0=>360+ Z[2]→Z[2]:Abs((Y-Z[4])*Cos Z[2]-(X-Z[3])*Sin Z[2])→Z[5]↙If Z[5]<0.0001:ThenGoto4:ElseGoto 3:Ifend↙Lb13↙K+ Z[5]→K: Prog"SJK2": V-90 →Z[2]: Z[2]<0=>360+ Z[2]→Z[2]:Abs((Y-Z[4])*Cos Z[2]-(X-Z[3])*Sin Z[2])→Z[6]↙IfZ[6]<0.0001 :Then Z[6]→Z[5]: Goto4:Else IF Z[6]< Z[5]: THENK+ Z[6]→K: Goto2 :Else IF Z[6]> Z[5]:THENK- Z[6]→K:Go to2:Ifend:Ifend:Ifend↙Lb14↙Pol (X-Z[3],Y-Z[4]↙"DP(-Z+Y)=":I◢(坐标点与线路偏距）"KP=":K+ Z[5]→K◢（里程）Return↙5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1 1↙Cls : Fix 4 : Deg :"XZJ="?R◢(输入置镜点X）"YZJ="?S◢(输入置镜点Y）LB1 2↙"K="?K◢(输入计算点里程）If K<第一线元终点里程：THEN 线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto 3:IfEnd↙………………………………（线元数据分段输入）LB1 3↙W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E +(X/C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角）A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z :B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y :"XI=":Z◢(计算点中心X）"YI=":Y◢(计算点中心Y）"PJ="?P◢(输入计算点边桩偏角左－右＋）"PD="?Q◢(输入计算点边桩偏距）Rec(Q,V+P):Z+I→Z :Y+J→Y:"XP=":Z◢(计算点边桩X）"YP=":Y◢(计算点边桩Y）Pol(Z-R,Y-S):J<0=>J+360→J:"FYJ=":J→DMS◢(放样方位角）"FYD=":I◢(放样距离）Goto 2↙回答人的补充2010-06-19 11:41这里还有一个5800计算器匝道中边桩万能正反算程序主程序匝道坐标正反算程序名称：ZDZBZFSLB1A↙Cls : Fix 4 : 10→Dim Z :"0=ZS,1=FS"?Z ↙IfZ=0:ThenGoto B:IfEnd↙(Z=0进入里程点坐标正算）IfZ=1:ThenProg"FSLCBZ 1": Goto A:IfEnd↙(Z=1进入反算里程边桩）Lb1 B↙“K=”?K ：（计算里程）Prog"SJK2 ":Prog” ZDZBFY1” :Goto A ↙子程序数据库SJK2IfK<第一线元终点里程：THEN线元起点X→A:线元起点Y→B:线元起点半径（直线为1045）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线为1045）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Prog” ZDZBZS”: Return :IfEnd ↙If………………………………Prog” ZDZBZS”: Return :IfEnd↙（匝道线元数据分段输入）子程序匝道坐标正算ZDZBZSW*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→Z[1] :E+( Z[1]/C+H Z[1]2)×180/π→V:V<0=>V+360→V:A+∫(Cos(E+( Z[1]/C+H Z[1]2)*180/π，0，Z[1])→Z[3] :B+∫(Sin(E+( Z[1]/C+H Z[1]2)*180/π，0，Z[1])→Z[4]:Return↙子程序匝道坐标放样ZDZBFY1"XZJ="?R◢(输入置镜点X）"YZJ="?S◢(输入置镜点Y）"XHS="?M◢(输入后视点X）"YHS="?N◢(输入后视点Y）Pol(M-R,N-S):J<0=>J+360→J:"HJ=":J→DMS◢(后视方位角）"HD=":I◢(后视距离）"XI=": Z[3]◢(计算点中心X）"YI=": Z[4]◢(计算点中心Y）"PJ="?P◢(输入计算点边桩偏角左－右＋）"PD="?Q◢(输入计算点边桩偏距）Rec(Q,V+P): Z[3]+I→Z[7] : Z[4]+J→Z[8]:"XP=": Z[7]◢(计算点边桩X）"YP=": Z[8]◢(计算点边桩Y）Pol(Z[7]-R, Z[8]-S):J<0=>J+360→J:"FYJ=":J→DMS◢(放样方位角）"FYD=":I◢(放样距离）Return↙子程序反算里程边桩，名称：FSLCBZ1Lb11↙"XK="?X:"YK="?Y↙（输入任意测点的XY坐标）:“K？=”?K （试算里程,输入匝道范围内任意里程点号，接近里程号可以加快反算速度）↙Lb12↙Prog"SJK2 ":V-90 →Z[2]: Z[2]<0=>360+ Z[2]→Z[2]:Abs((Y-Z[4])*Cos Z[2]-(X-Z[3])*Sin Z[2])→Z[5]↙If Z[5]<0.0001:ThenGoto4:ElseGoto 3:Ifend↙Lb13↙K+ Z[5]→K: Prog"SJK2": V-90 →Z[2]: Z[2]<0=>360+ Z[2]→Z[2]:Abs((Y-Z[4])*Cos Z[2]-(X-Z[3])*Sin Z[2])→Z[6]↙IfZ[6]<0.0001 :Then Z[6]→Z[5]: Goto4:Else IF Z[6]< Z[5]:TH ENK+ Z[6]→K: Goto2 :Else IF Z[6]> Z[5]:THENK- Z[6]→K:Goto2:Ifend:Ifend:Ifend↙Lb14↙Pol (X-Z[3],Y-Z[4]↙"DP(-Z+Y)=":I◢(坐标点与线路偏距）"KP=":K+ Z[5]→K◢（里程）Return↙。
5800计算程序
FX-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算，桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1•主程序1: 一般放样反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名：1ZD-XYLb1 0:Norm 2F=1：（正反算判别，F=1正算，F=2反算也可以改F前加？，改F为变量）Z[1]=90 （与路线右边夹角）Prog" THB" : F=1=>Goto 1:F=2=>Goto 2Lb1 1: F ix 3:" X =" : Locate 6,4," Y = H : Locate 6,4,Y丄P rog H 3JS' :Goto 0:Lb1 2:Fix 3:' ' KM = ' ' : Locate 6,4,Z 丄''D = ' ' : Locate 6,4,D丄G oto 0 2 .主程序2:高程序横坡程序（设计任意点高程及横坡）程序名：2GCLbl 0:Norm 2“ KM ?Z:?D:Prog” H” ：Fix 3: ” H=” :Locate 6,4,H丄“ I=” : Locate 6,4,1 丄Goto 03•主程序3:极坐放样计算程序（计算放样点至置仪点方位角及距离）程序名：3JSX : Y :1268. 123- K（置仪点X坐标）2243. 545-L （置仪点Y坐标，都是手工输入，也可以建导线点数据库子程序，个人认为太麻烦）Y-L — E : X-K — F : Pol（F,E）:IF J<0:Then J+360 —J:I nt（J）+O.O1l nt（60Frac（J））+0.006Frac（60Frac（J））—J:（不习惯小数点后四位为角度显示的，也可以用命令J丄DMS丄来直接显示）Fix 4:”FWJ二” :Locate 6,4,J丄（不习惯小数点后四位为角度显示的，也可以用命令J丄DMS丄来直接显示）Fix 3: ”S二”丄ocate 6,4,1 丄4.主程序4:涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离）程序名：4JH-XYLbl 0:Norm 290-Z[1]（涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1 —F:Prog” THB ” ：？L:Z[2]-Z[1] — E:X+Lcos(E) — X:Y+Lsin(E) — Y:Fix 3: H X =":Locate 6,4 X丄" Y = H : Locate 6,4,Y丄P rog H 3JS' :Goto 0:5.主程序5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名：5FBXLbI 0:Norm 2: 18 —DimZ:2 —F:90—Z[1]:Prog “THB”:Z:D: ”M0”？M:M —Z[4]:D —Z[3]:Prog ” 6GD” :L —Z[6]:lf D<0:Then 0.75-L —D:Goto H:Else L-0.75 —D:Goto H:IfE ndLbI H:Prog ” H” ：H-0.03-Z[4] —Z[5]:Z[6] —L:If Z[5]<0:Then —z[5] —G:Goto W:Else Z[5] —G:Goto T:LbI W:Prog “WO” ：Z[10]+Z[11] —A: If G>A:Then Goto 1:Else IfG>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A) Z[9]+Z[11] Z[8]+Z[10] Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10]) Z[8]+Z[10] Z[7]:Goto Z:LbI 3:L+Z[12]+G Z[7]:Goto z:LbI T:L+0.5 — N:If G>Z[17]:Then (N+Z[18]+(G-Z[17]) x Z[16]+Z[17] xZ[15]) — S:Goto Z:Else (N+Gx Z[15]) — S:Goto z:Lbl Z:Z[3] — D:Fix 2:Abs(D)-S —T:”L0= ” :L Locate 6,4,T丄"KM = H: Locate 6,4,Z丄"D = H: Locate 6,4,D丄“ TW= ” : Locate 6,4,Z[5]丄Goto 06.主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名：6GDProg “GO” Z-C— E:(B-A) x E/S+A — L:L:7.坐标计算次程序(THB)程序名：THB18— DimZ :H KM H ?Z: Prog "XO"1 宁P—C: (P-R)+ (2HPR) —S: 180-n — E:F =1=>Goto 1:F =2=>Goto 2<Lbl 1 : ?D: Abs( Z — O) — W: Prog "A": X: Y:G oto 3Lbl 2:X:Y:X— I: Y— J: Prog " B": O+W— Z: D — D:G oto 3Lbl 3:IF F=1 Then X:Y: Else Z:D8.正算子程序(A)程序名：A0.118463442" A : 0.239314335" B: 0.2844444444^N 0.046910077—K : 0.2307653449^ L : 0.5—M : U+W(Acos(G+QEKW(C+KWS ))+Bcos(G+QELW(C+LW S ))+Ncos(G+QEMW(C+MWS ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) f X:V+W(Asi n(G+QEKW(C+KW S ))+Bsi n(G+QELW(C+LWS ))+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 S ))) f Y:G+QEW(C+W S )+ Z [1] fZ [2] : X+ D cos(Z [2]) fX: Y+D sin ( Z[2] )fY9.反算子程序(E )程序名：BG-90fT: Abs((Y-V)cos(T)-(X-U)sin(T)) fW: 0fD: Lbl 0 : Prog "A " :T+QEW(C+W S ) fL: (J-Y)cos(L)-(l-X)si n(L) fD: IF Abs( D )<0.01:Then Goto1: Else W+Df W:Goto 0 --1Lbl 1:0f D: Prog "A": (J-Y) -sin(Z[2] ) f D:10.高程计算子程序(H)程序名：HProg “S0” :R:T:C:G:I:C-T f F:Z-Ff L:C+Tf E:G-TI f Q:If T=O:ThenQ+LI f H:Goto 0:Else If Z<F:Then Q+LI f H:Goto 0:Else If Z < E:ThenQ+LI+L2 - 2-Rf H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I” :H+Vf H:Goto I:LbI I:H:I: 11•高程超高计算程序(I)程序名：IProg ”10 ”：W=仁〉Goto 0:W=2=>Goto 1:Lbl 0:If L=0:Then Abs(D) x M — V:Goto 2:Else Abs(D)x ((N-M) x (Z-C) -L+M) — V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D) x M — V:Goto 2:Else Abs(D) x (((3((Z-C)-L)2-2((Z-C) - L) A (3)) x (N-M))+M) — V:Goto 2:IfEnd:LbI 2:Abs(D) —E:V - E—I:I(E-K) —V:12 .数据子程序(附后示例)①程序名：X0 (坐标计算要素程序)If Z > 25900 And Z < 26615.555:Then 25900 —0:11587.421 —U:1847.983— V:101。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
子程序（SJ-GC) 子程序（SJ-GC) S<157240(起点桩号） S≥156960 156960: 021( If S<157240(起点桩号） And S≥156960:Then 0.021(前坡比 大 里程方向） 035( 小里程方向） 157100( 里程方向）->A:0.035(后坡比 小里程方向）->B:157100(变坡点里 1259.626(边坡点高程） 20000( 程）->O：1259.626(边坡点高程）->G：20000(竖曲线半径 凸为正 凹为负） PrOg"SUB3 GC": ":IfEnd↙ 凹为负）->R:PrOg"SUB3-GC":IfEnd↙ S<157974(起点桩号） S≥157240 157240: 008( If S<157974(起点桩号） And S≥157240:Then -0.008(前坡比 大 里程方向） 021( 小里程方向） 157800( 里程方向）->A:0.021(后坡比 小里程方向）->B:157800(变坡点里 1274.326(边坡点高程） 12000( 程）->O：1274.326(边坡点高程）->G：12000(竖曲线半径 凸为正 凹为负） PrOg"SUB3 GC": ":IfEnd↙ 凹为负）->R:PrOg"SUB3-GC":IfEnd↙ 注明： 注明：第一竖曲线终点桩号结束后与第二起点竖曲线桩号不连接 需在第二竖曲线起点桩号要输入第一个竖曲线终点桩号， 时，需在第二竖曲线起点桩号要输入第一个竖曲线终点桩号，否则 中间桩号无法计算高程。（可以增加多条竖曲线高程） 。（可以增加多条竖曲线高程 中间桩号无法计算高程。（可以增加多条竖曲线高程） 子程序（SJ-CQW) 子程序（SJ-CQW) ”H1="?F:"P="?Z↙ If F-H>7.9 And F-H>5.845:ThenZ-√(7.45 2-(F-H-0.45) 2)-Z>W:IfEnd↙ If F-H≤5.845 And F-H>-1.169:Then√(6 2-(F-H-1.5) 2)+1-Z>W:IfEnd↙ If F-H≤0 And F-H>-1.169:Then√(6 2-(H-F+1.5)2)+1-Z->W:IfEnd ↙ If F-H≤-1.169:Then√((Abs(Z)) 2+(H-F+14.05) 2-16.5->W:IfEnd ↙ "+CQ,-CQ=":W▲ 子程序(SUB1 ZS) 子程序(SUB1-ZS)
5800万能计算程序（路基，隧道） 5800万能计算程序（路基，隧道） 万能计算程序
主程序（ 主程序（X,Y) LbI 4:"1->ZS,2->FS,3->CQW"?N↙ N=1=>GOtO1:N=2=>GOtO2:N=2=>GOtO3↙ LbI 1:"K=:?S:"P="?Z:PrOg:SJ-PM":AbS(S-0)->W:PrOg"SUB1ZS":"X=":Locate 4,4,X:"Y=":Locate 4,4,Y:E-90->F:SPrOg"SJ-GC":" ":"H >K:PrOg"SJ-GC":"H=”：Locate 4,4,H▲ GOtO 4↙
1/P->C:(P-R)/(2HPR)->D:180/∏->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+QEFW(C+FWD))+Acos(G+EMW( C+MWD)))>X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW (C+MWD)))->Y:G+QEW(C+WD)+90->F:X+Zcos(F)->X:Y+Zsin(F)->Y↙ 子程序(SUB2 FS) 子程序(SUB2-FS) G-90->T:Abs((Y-V)cos(T)-(X-U)sin(T))->W:0(零）-Z:LbI 90Abs((Y (( cos( )-(X sin( ))-> ):Prog SUB1 ZS": QEW( WD)- :(J Prog" ":T )-> cos( )-(I 0(零):Prog"SUB1-ZS":T+QEW(C+WD)->L:(J-Y)cos(L)-(Isin( )-> Abs( 000001： W+ X)sin(L)->Z:If Abs(Z)<0.000001：Then Goto 1:E1se W+Z>W:Goto 0(零）:IfEnd↙ LbI 1:0(零）->Z:Prog"SUB1-ZS":(J-Y)/sin(F)-Z↙ Prog"SUB1 ZS":(J )/sin( )-Z↙ ":( sin 子程序(SUB3 GC) 子程序(SUB3-GC) Abs（ O-S→L ： A-B→W : Abs（R*W/2）→T : O-T→M : O+T→P ↙ If S≤M : Then G-L*B →H : Goto 5 : Else If S≤O : Then Goto3 : Else If S≤P : Then Goto4 : IfEnd : IfEnd : IfEnd ↙ Lb1 3↙ If W>0 : Then G+(M-S)^ (2)/2/R-L*B→H : Goto 5 : Else If W<0 : Then G-(M-S) ^(2)/2/R-L*B→H : Goto 5 : IfEnd : IfEnd↙ Lb1 4↙
If W>0 : Then G+(S-P) ^(2)/2/R-L*A→H : Goto 5 : Else If W<0 : Then G-(S-P)^ (2)/2/R-L*A→H : Goto 5 : IfEnd : IfEnd↙ Lb1 5↙ H→H:Return↙ Goto 1↙
LbI 2:"X="?X:"Y="?Y:PrOg"SJ-PM":X->I:Y->J:PrOg"SUB2FS":O+W->S:"H=":S▲ "P=":Z▲ S->K:PrOg"SJ-GC":"H=":H▲ GOtO 4↙ LbI 3:"X="?X:"Y="?Y:PrOg"SJ-PM":X->I:Y->J:PrOg"SUB2FS":O+W->S:"K=":S▲ "P=":Z▲ S->K:PrOg"SJ-GC":"H=":H▲ PrOg"SJ-CQW"▲ GOtO 4↙ 子程序（SJ-PM) 子程序（SJ-PM) S≥157292 392( 157292. 曲线，直线）： ）：Then 4562.339（ If S≥157292.392(起点桩号 曲线，直线）：Then 4562.339（起 点X坐标） 坐标） ->U:3402.943(起点Y坐标)->V:157292.392(起点桩 3402.943(起点Y坐标)-> 157292.392( )270°49′51. 方位角） 140.083(线长） 号）->O：270°49′51.7″(方位角）->G:140.083(线长）->H： 10^ 45)(前半径） )(前半径 1200（后半径） 转向右1 1*10^(45)(前半径）->P:1200（后半径）->R:1（转向右1，左-1）缓和曲线) >Q:If end↙ （ZH 缓和曲线) S≥157432 475( 157432. 曲线，直线）： ）：Then 4567.094（ If S≥157432.475(起点桩号 曲线，直线）：Then 4567.094（起 坐标） 3262.961(起点Y坐标))-> 157432.475( 点X坐标） ->U:3262.961(起点Y坐标)->V:157432.475(起点 桩号） 274°10′31″ 方位角） 140.083(线长） 桩号）->O：274°10′31″(方位角）->G:140.083(线长）->H： 1200(前半径） 1200（后半径） 转向右1 1200(前半径）->P:1200（后半径）->R:1（转向右1，左-1）->Q:If 圆曲线) end↙ （HY 圆曲线) If S≥158210.622(起点桩号 曲线，直线）：Then 4862.794（起 S≥158210.622( 曲线，直线）：Then 4862.794（ 158210 ）： 坐标） 2557.872(起点Y坐标))-> 158210.622( 点X坐标） ->U:2557.872(起点Y坐标)->V:158210.622(起点 桩号） 311°19′44. 方位角） 140.083(线长） 桩号）->O：311°19′44.5″(方位角）->G:140.083(线长）->H： 1200(前半径） 10^ 45) 后半径） 转向右1 1200(前半径）->P:1*10^(45)（后半径）->R:1（转向右1，左-1）圆曲线) >Q:If end↙ （YH 圆曲线)