有关路基和隧道的CASIO 5800P 万能曲线 计算程序
卡西欧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道路坐标测量程序（通俗易懂版）主程序（自己给取个名吧）2→Dimz“1.SZ＝﹥XY2.XY＝﹥SZ”◢“N=”?NIf N=1:Then Goto 1:Else Goto 2:IfEndLbl 1“S=”?S“Z=”?Z“J=”?TIf S﹤0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉)1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:Abs(Abs(S)-O)→W:Prog “SUB1”“QJ=”:Z[1]◣DMS◢“X=”:X◢“Y=”:Y◢Goto 1Lbl 2“S=”?SIf S<0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 90→T1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E“X=”?X“Y=”?YX→I:Y→JProg “SUB2”O+W→S（红色加粗加下画线为字母，常规为零）“S=”:S◢Z→Z“Z=”:Z◢Goto 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+QELW(C+LWD))+Bcos(G+QEFW(C +FWD))+Acos(G+QEMW(C+MWD)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) →YG+QEW(C+WD)→Z[1]Z[1]+T→FX+Zcos(F)→XY+Zsin(F)→YReturn子程序(SUB2)G-90→Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(L)→W:0→ZLbl 0Prog “SUB1”Z[2]+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10(-6):Then Goto 1:EIse W+Z→W:Goto 0:IfEndLb1 10→Z:Prog “SUB1”(J-Y)÷sin(F)→ZReturn数据库（SYR）If S>29599.031(本段线元计算范围起点里程) And S≤29759.031(本段线元计算范围终点里程):Then 3311072.206(本段线元起点X坐标)→U:502909.1014(本段线元起点Y坐标)→V: 29599.031(本段线元起点里程)→O:256-25-59.11(本段线元起点方位角)→G:160(本段线元长度)→H:1400(本段线元起点半径)→P:10(45)(本段线元终点半径)(直线段为10的45次方)→R:-1(线元转向标识)(左偏为-1,右偏为1,直线为0)→Q:IfEnd输入说明正算 1 输入 N:输入1进入计算坐标模式S:里程桩号Z:偏距J:与线路角度2 显示 QJ:切线方位角X:X坐标Y:Y坐标反算 1 输入 N:输入2进入坐标反算里程偏距模式S:输入相近里程X:输入X坐标Y:输入Y坐标2 显示 S:反算出的里程桩号Z:反算出的偏距。
Casio 5800P计算程序3
Casio fx- 5800P 道路中边桩计算（线元法）主程序QZFix 3:Deg:Lbl 4:″1.SZ=>XY″：″2.XY=>SZ″：″1，2″？Q：″S=″？S：Prog″Z1″↙Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEnd↙Lbl 1: ″B=″?Z: ″F=″?G:Prog ″Z2″: ″X=″:N→N◢″Y=″:E→E◢″QXFWJ″:F→F:F DMS◢Goto 4↙Lbl 2: ″XZB=″?→B: ″YZB=″?→C:B→N:C→E:Prog ″Z3″: ″LICHENG=″:S→S◢″OUT JL=″:Z→Z◢Goto 4↙数据库子程序Z1Lb l 1↙If S<5126.802:Then 34304.063→U:72029.684→V:5046.802→O:99°09′36″→A:80→L:220→P:10^(45) →R:Return:IfEnd↙If S<5239.113:Then 34281.903→U:72106.431→V:5126.802→O:109°34′38.5″→A:112.311→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5319.113:Then 34224.270→U:72212.249→V:5239.113→O:109°34′30″→A:80→L: 10^(45)→P:-200 →R:Return:IfEnd↙If S<5444.453:Then 34222.582→U:72289.106→V:5319.113→O:98°07′05.2″→A:125.34→L: -200→P:-200 →R:Return:IfEnd↙If S<5524.453:Then 34243.645→U:72410.593→V:5444.453→O:62°12′40.3″→A:80→L: -200→P: 10^(45) →R:Return:IfEnd↙If S<5644.634:Then 34289.939→U:72475.663→V:5524.453→O:50°45′04.7″→A:120.181→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5724.634:Then 34365.976→U:72568.732→V:5644.634→O:50°45′05.2″→A:80→L: 10^(45)→P:200 →R:Return:IfEnd↙正算子程序Z205(1/r-1/p)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+G)→N:E+Zsin(F+G)→E↙Return反算子程序 Z3Lbl 1:0→Z:1→Q:Prog”Z1”:0.5(1/R-1/P)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+90)→N:E+Zsin(F+90)→E↙Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→S↙If Abs(W)>0.0001:Then Goto 1:IfEnd↙Lbl 2:0→Z: ″Z2″:(C-E)/sin(F+90)→Z↙Retun注：1：数据库里面的角度为线元起算方位角；2：L，P为线元起始半径，直线以及缓和段取10^45,左负右正；3：主程序1为正算，2为反算，S所需算的桩号，B边桩距离，F边桩起算夹角，左负右正；“SQXJS”↙“KBPO=”?J:”BG=”?B:”I1=”?C:”I2=”?D:”R=”?R↙“QIEXIAN=”:R*Abs(D-C)/2→T◢“QIDIAN=”:J-T→X◢“ZHONGDIAN=”:J+T→Y◢If D-C>0:Then 1→V:Else -1→V:IfEnd↙LBl 0↙“JSK=”?L↙If L≤X:Then B-(T-(L-X))*C+V*(L-X)^2/(2R)→W:Else B+(T-(Y-L))*C+V*(Y-L)^2/(2R) →W:IfEnd↙“JSGC=”:W◢Goto 0↙Return“J表示变坡点桩号，B为变坡点高程，C前纵坡坡度，D后纵坡坡度，R为竖曲线半径，T切线长，X起点桩号，Y终点桩号，V计算参数（凹形取1，凸形取-1），L 需要计算的桩号，W计算点高程“ZBFS”↙Deg:ClsStat:FreqOn:Fix 3↙Lbl 0↙“XA(m)=”?A: “YA(m)=”?B↙“XB(m)=”?C: “YB(m)=”?D↙Pol(C-A,D-B):Cls↙If J<0:Then J+360→R:Else J→R:IfEnd↙“DIST A→B(m)=”:I◢“BEAR A→B(DMS)=”:R DMS ◢ClrStat:FreqOn↙Lbl 1↙0→M↙“ANGEL(Deg)=”?→Q↙“DIST(m)=”?→S↙Q+R→M↙A+S*cos(M)→X↙B+S*sin(M)→Y↙“XC(m)=”:X◢“YC(m)=”:Y◢0→N↙“ANGEL2(Deg)=”?→P↙“DIST2(m)=”?→T↙P+R→N↙A+T*cos(N)→U↙B+T*sin(N)→Z↙“XD(m)=”:U◢“YD(m)=”:Z◢“FAN=”?W↙If W=0:Then Goto 0:Else Goto 1:IfEnd↙Return。
卡西欧5800P计算器-道路中桩及边桩计算程序
If K<3269.093(第三段终点桩号） ：Then759.748(第二段终点桩号)￫ O:35349.174(第三段起点 y 坐标）￫V:9°36′35″（第三段起点方位角）￫G：2509.345(第三段 的距离） ￫H:3000(第二段的曲线半径） ￫P:10^(45)(直线） ￫R:0(数字）
卡西欧 5800P 计算器-道路中桩及边桩计算程序 Lbl 4:“1：KD￫ XY,2：XY￫ KD” ？N:?K If k<270.348:(第一段的终点桩号）Then0（0 是零，起点桩号） ￫ O（字母符）:355933.039(起点 x 坐标）￫ U:467305.867(起点 y 坐标）￫ V:0°15′46″（第一段 的方位角）￫ G:270.348(第一段的 距离） ￫ H:10^（45） （直线） ￫ P:3000(曲线半径）￫ R:0（数字） ￫ Q:Goto 0（数字）:Ifend If k<759.748：(第二段的终点桩 号）Then270.348(第一段的终点桩 号）￫O(字母） ：3559603.384(第一 ￫U:467307.108 段终点 x 坐标） （第 一段终点 y 坐标）￫V:0°15′46″ （ 第 二 段 起 点 方 位 角 ） ￫ G:489.4(第二段距离）￫H:3000(第 ￫P:3000(第二段曲线半径） ￫Q:Goto 二段曲线半径） ￫ R:1(右转） 0IfEen
￫Q:Goto 0(数字） ：IfEnd Lbl 0(数字） ：1÷P￫C:(P-R)÷(2HPR)￫D:180÷π￫E N=1Goto 1：Goto 2 Lbl 1:?Z:K￫S:Abs(S-O)￫W:Prog“SUB1”:“X=”:X◢（s-o,o 是字母 符） “Y=”:Y◢ “FWJ=”:F-90￫F◢ Goto4 Lbl 2:?X:?Y:X￫I:Y￫J:Prog“SUB2”:O+W￫K:“K=”:K◢（o 是字母） Z￫D:“D=”:D◢ Goto 4 注：线性是直线或圆曲线，缓和曲线不能用此程序。 “SUB1，SUB2” 是两个子程序。 “SUB1” 0.1739274226￫ A:0.3260725774￫ B:0.0694318442￫ P:0.3300094782￫ L:1-L￫ F:1-P￫ M:U+W(ACos （G+QEPW(C+PWD))+BCos(G+QELW(C+LWD))+BCos(G+QEFW(C+FWD))+AC os(G+QEMW(C+MWD)))￫ X:V+W(ASin(G+QEPW(C+PWD))+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 “SUB2”程序
卡西欧FX5800线路曲线坐标计算程序
卡西欧FX5800---辛普森公式(万能公式)复化辛普森公式1.Lbl 0：“XA=”?A：“YA=”?B: “CA=”?C：“1/RA=”?D：“1/RB=”?E：“DKA=”?F:“DKB=”?G2.Lbl 1:“DKI=”?H：“DL=”?O：“DR=”?R：IF H＞G:THEN Goto0 IFEND3.(E-D)/Abs(G-F)→P:Abs(H-F) →Q: P×Q→I:D+I→T4.C+(I+2D)×Q×90/π→J5. C+(I/4+2D)Q×45/(2π) →M: C+(3I/4+2D)Q×135/(2π) →N6. C+(I/2+2D)Q×45/π→K7. A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 →X8.B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 →Y9.”FW=”:J▲DMS ▲10. “X=”:X▲11. “Y=”:Y▲12.“XL=”: X+Ocos(J-90) →U ▲13.“YL=”: Y+Osin(J-90) →V▲14.“XR=”:X+Rcos(J+90)→ W▲15.“YR=”:Y+Rsin(J+90)→ Z▲16.Goto 1程序结束程序说明：A- 曲线元起点A的坐标；B- 曲线元起点B的坐标；C- 曲线元起点A的切线坐标方位角；F- 曲线元起点A的里程；G- 曲线元起点B的里程；H- 曲线上待求点i的里程；D- 曲线元起点A的曲率；E- 曲线元终点B的曲率；XL-左边线点位X坐标；YL-左边线点位Y坐标；XR-右边线点位X坐标；YR-右边线点位Y坐标；X- 中线点位纵坐标；Y- 中线点位横坐标；DL-左边线距中线平距；DR-右边线距中线平距；该程序需要输入的数据为：（1）.曲线元起点A的坐标及切线坐标方位角，计算器上用“XA”，“YA”，“CA”显示；（2）.曲线元起点A和B的曲率，计算器上用I÷RA，I÷RB显示（曲线左偏时取“-”）；（3）.曲线元起点A和终点B的里程，计算器上用“DKA”，“DKB”显示；（4）.输入待求点里程和该点距左右的水平距离，计算器上用“DKI”，“DL”，“DR”显示；每算完一个待求点的中线及边线坐标，程序又让输入下一点的“DKI”，“DL”，“DR”当输入的“DKI”大于“DKB”时，此时输入下一个曲线元起点的曲率和里程，即可计算下一个曲线中线及边线点位坐标。
卡西欧5800公路、铁路、隧道、桥梁测量计算程序(全)
坐标正算ZB ZS已知一个起算的坐标点，根据测得的方位角和平距推算另一点的坐标值。
程序如下:“X0=”?B: 仪器点X坐标“Y0=”?C: 仪器点Y坐标Lbl 0:“FWJ=”?F: 观测方位角“PJ=”?D: 观测平距Rec(D,F):B+I→X:C+J→Y:Cls:Fix 3:“Xp=”: 待求点X坐标“Yp=”: 待求点Y坐标Locate 7,1,X: 显示在第一行Locate 7,2,Y◢显示在第二行Goto 0注解：（B，C）是仪器点的坐标，F为方位角，D为平距。
在本程序中，采用了循环（多次）运算多点与仪器点的关系计算法。
如果不必要，只算一个，那么把Lbl 0和Goto 0删除就行了。
坐标反算ZBFS根据两已知坐标点求算其方位角及距离。
程序如下:“X0=”?B: 仪器点X坐标“Y0=”?C: 仪器点Y坐标“Xp=”?X: 待求点X坐标“Yp=”?Y: 待求点Y坐标ol(X-B,Y-C):J<0 => J+360→J:I→D:J→F:Cls:“FWJ=”: 计算的方位角F►DMS◢按度分秒显示“PJ=”: 计算的平距Locate 10,3,D◢平距显示在第三行注解:执行程序计算时,首先询问四变量两个点的坐标（B，C）、（X，Y）。
为了明了显示结果具体是何意思，特地使用字符串“PJ=”表示平距，字符串“FWJ=”表示方位角，但要注意是字符串而非变量名。
直线段坐标计算ZXZBJS单一直线段任意里程位各点的坐标计算。
程序如下:直线起点里程→Q:直线起点X坐标→E:直线起点Y坐标→F:直线起点前进方位角→T:Lbl 0:2→DimZ:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Rec(Abs(Q-L),T):E+I→Z[1]:F+J→Z[2]:If K=1:Then Rec(S,T+90):Else Rec(S,T+270):IfEnd:Z[1]+I→X:Z[2]+J→Y:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,X: X坐标显示在第一行Locate 7,2,Y◢Y坐标显示在第二行Goto 0如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。
卡西欧5800计算器公路坐标计算程序
卡西欧5800计算器公路坐标计算程序卡西欧计算器在公路方面广泛应用，现将单个简单的坐标计算程序分享给朋友们，望对刚入行的同志们有所帮助!一、直线?P:?Q:?F:?ALb10?DAbs(D-A) →KRec(K,F)“X=”:P+I→X◢“Y=”:Q+J→Y◢?S:?ERec(S,F+E)“M=”:X+I→M◢“N=”:Y+J→N◢Goto 0P起点x坐标Q起点y坐标F起点方位角A起点桩号D所求桩号X所求中桩x坐标Y所求中桩y坐标S中桩与边桩距离E中桩与边桩夹角（左-右+）M所求边桩x坐标N所求边桩y坐标二、圆曲线?P:?Q:?F:?A:?G:?RLb10?DAbs(D-A) →K180K÷(Rπ) →ORSin(O) →TR(1-cos（O）) →URec(T,F)P+I→X:Q+J→YRec(U,F+90G)“X=”:X+I→X◢“Y=”:Y+J→Y◢?S:?ERec(S,F+OG+E)“M=”:X+I→M◢“N=”:Y+J→N◢Goto 0P起点x坐标Q起点y坐标F起点方位角A起点桩号D所求桩号G左、右偏（左-右+）R半径X所求中桩x坐标Y所求中桩y坐标S中桩与边桩距离E中桩与边桩夹角（左-右+）M所求边桩x坐标N所求边桩y坐标三、前缓和曲线?P:?Q:?F:?A:?G:?R:?LLb10?DAbs(D-A) →KK-K^(5)÷(40R²L²)+K^(9) ÷(3456R^(4)L^(4)) →TK^(3) ÷(6RL)-K^(7) ÷(336R^(3)L^(3))+K^(11)÷(42240R^(5)L^(5)) →URec(T,F)P+I→X:Q+J→YRec(U,F+90G)“X=”:X+I→X◢“Y=”:Y+J→Y◢90K²÷(πRL) →O?S:?ERec(S,F+OG+E)“M=”:X+I→M◢“N=”:Y+J→N◢Goto 0P起点x坐标Q起点y坐标F起点方位角A起点桩号D所求桩号G左、右偏（左-右+）R半径L缓和曲线长X所求中桩x坐标Y所求中桩y坐标S中桩与边桩距离E中桩与边桩夹角（左-右+）M所求边桩x坐标N所求边桩y坐标结束语：后缓和曲线我没编，当然我们可以用前缓和曲线算后缓和曲线。
卡西欧fx-5800p计算器 公路测量常用程序
FX-5800p计算器公路测量常用程序一、程序功能本程序由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:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢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:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 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: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂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]:If D<0:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto H:IfEndLbI 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 “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>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])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→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（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：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 Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(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→O:11587.421→U:1847.983→V:101。
卡西欧5800P计算器程序介绍
卡西欧5800P计算器程序FS反算主程序Lbl 1：已知坐标和近似里程（桩号）Lbl 2：SJK1（数据库）Lbl 3、Lbl 4：求的里程和偏距XJK3Z：实测高程，设计半径等，求的超欠信息GCJS高程计算（张树彬）BGJSSUB1SUB2TYQXJSQXJS 曲线计算DB1 :线元要素输入子程序SUB1：计算SUB2：计算偏距子程序XJK3Z：横坡以及纵坡子程序ZZ：超欠子程序Tanhui 谭辉SUBQ2-81SUBQ2-82SUBQ2-83SUBQ2-84SUBQ2-85SUBQ2-86ZTCZ 隧道左线数据库（主程序）ZTCY 隧道右线数据库（主程序）ZGCJC（左洞高程计算）已知K：里程、A：偏距、Z：判定左右洞、H：高程XJK3Z：右洞纵坡数据库ZFDMYGCJC（右洞高程计算）已知K：里程、A：偏距、Z：判定左右洞、H：高程XJK3Y：右洞纵坡数据库ZFDM：XJK4Y：右洞横坡数据库SJK4Z：左洞横坡数据库YFS：右洞反算主程序SJK2STJS：XJK3Y：纵坡数据库If……：Then……IfEndIf……：Then……Else……IfEndIf……：Then If……Then……Else……IfEnd：Else……IfEnd（有几个If，就要有几个IfEnd。
）Cls：“K=”：Locate 3，1，K：“DP=”：Locate4，2，Z：“X=”：Locate3，3，X：“Y=”：Locate3，4，Y◢Cls：“SJGC=”：M◢。
CASIO fx-5800P编程计算器公路与铁路施工测量程序
Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢
Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢
Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢
RAπ÷180-(B+C) ÷2→Q↙
(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙
K-S→Z[1] ↙↙
Z[1]+B→Z[2] ↙↙
Z[2]+Q÷2→Z[3]↙
Z[1]+L-C→Z[4]↙
Z[4]+C→Z[5]↙
子程序2名： JDB
X-Scos(M)→Z[19]:
360Frac((J+360)÷360▼DMS◢
Goto 0 : IfEnd↙
If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢
Pol(F-U,G-V : Cls : ＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂:
三、使用说明
1、规定
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右
卡西欧5800道路工程综合程序
卡西欧fx-5800P坐标正反算、高程及边坡放样程序《ZS》正算主程序Lb1 0：“K=”?S(所求里程)：“PJ=”?Z(偏距，左偏负右偏正)：Prog “PM-SJ”： Abs(S-O) → W：Prog "SUB1"↙Fix 3： "XS="：X◢（计算得X坐标）"YS="：Y◢（计算得Y坐标）Norm 2："FW=":F-90→F：F►DMS◢（所求里程设计线处切线方位角）Prog“SQX-SJ”： Prog“SQX”： Fix 3: “H=”：H◢（设计线处该里程的设计高程）Norm 2：Goto 0《FS》反算主程序Lb1 0：“GK=”?S（所求点的估计里程，目的调取数据库）：?X：?Y：Prog“PM-SJ”： X →I： Y→J：Prog "SUB2"：Fix 3:"K="： O+W→S◢（所求点的里程）"PJ="： Z◢(所求点的偏距，左偏负右偏正)Prog“SQX-SJ”：Prog“SQX”：“H=”：H◢（反算求的里程设计线处设计高程）Norm 2↙Goto 0（此处的Goto 0做《LJWF-2JBP》路基挖方2级边坡放样的子程序时要去掉）《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+Zcos(F)→ X：Y+Zsin(F)→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)cos(L)-(I-X)sin(L) → Z：If AbsZ<0.000001：then Goto1：Else W+Z→W：Goto 0：If End←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sin(F)→ Z《PM-SJ》子程序（平面线形数据库）If S≥34600（线元起点里程）And S＜35613.616（线元止点里程）：Then 2467949.131 →U（线元起点X坐标）:536385.574 →V（线元起点Y坐标）：34600 →O（线元起点里程）：202°10°11.1°→G（线元起点切线方位角）：1013.616 →H（线元长度）：10^（45）→P （线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正，直线为0）：If End ↙If S ≥35613.616And S＜35723.616：Then 2467010.452→U：536003.084→V：35613.616→O：202°10°11.1°→G：110→H：10^（45）→P：2800→R：-1→Q：If End←┘If S≥35723.616And S＜36520.648：Then 2466908.316→U：535962.244→V：35723.616→O：201°02°39.47°→G：797.032→H：2800→P：2800→R：-1→Q：If End←┘If S≥36520.648 And S＜36630.648:Then 2466133.988 →U:535785.048→V：36520.648 →O:184°44°5.31°→G：110 →H：2800→P：10^（45）→R：-1 →Q：If End ↙If S ≥36630.648And S＜36687.250：Then2466024.256→U：535777.405→V：36630.648→O：183°36°33.68°→G：56.602→H：10^（45）→P：10^（45）→R：0→Q：If End ←┘（可以一直往下加数据库）《SQX-SJ》子程序（竖曲线数据库）If S≤36687.250（竖曲线终点里程）：Then +0.0053（前坡度：上坡正下坡负）→E：-0.004（后坡度：上坡正下坡负）→F：15000→R（竖曲线半径）：35500→G（变坡点里程）：98.920→C（变坡点高程）：If End←┘（可以一直往下加数据库）《SQX》子程序（竖曲线计算公式）E-F→J：If J＞0：Then-R→R：Else R→R：Abs（R×J÷2）→T：If End←┘If S≤G-T：Then G-S→L：C-LE→H：If End←┘If S＞G-T And S≤G： Then G-S→L：（S+T-G）^2÷2÷R→N：C-LE+N → H：If End←┘If S＞G And S≤G+T： Then S-G→L：（G +T- S）^2÷2÷R→N：C+LF+N → H：If End←┘If S＞G+T ：Then S-G→L： C+LF → H：If End←┘三、使用说明(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
卡西欧5800P完整程序(两套)
<ROAD-1>(逻辑运行运算公式主程序): Deg:Fix 3:20→DimZ（回车符号）“ZS[1]，FS[2]”？J（回车符号）If J=1：Then Goto 0：Else Goto 4：IfEnd（回车符号）Lbl 0（回车符号）“ROAD？[1-5]”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 1（回车符号）“KP”？P（回车符号）Prog “ROAD-DATA”（回车符号）M+O→N（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）“XP=”：F（黑色三角）“YP=”：G（黑色三角）“BP=”：Z（黑色三角）DMS（黑色三角）If U=0：Then Goto 3:Else Pol(F-U，G-V)：IfEnd（回车符号）Lbl 2（回车符号）If J〈0：Then J+360→J：IfEnd（回车符号）“A1=”：J（黑色三角）DMS（黑色三角）“D1=”：I（黑色三角）Lbl 3（回车符号）“DANGLE”？H：If H=0：Then Goto 1：IfEnd：？D（回车符号）“XB=”：F+Dcos（Z+H）→Z[11]（黑色三角）“YB=”：G+Dsin(Z+H)→Z[12]（黑色三角）If U=0：Then Goto 3：Else Pol（Z[11]-U，Z[12]-V）：IfEnd（回车符号）Goto 2（回车符号）Lbl 4（回车符号）“ROAD？[1-5]”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 5（回车符号）“XB”？U：“YB”？V：“KP”？P（回车符号）Lbl 6（回车符号）Prog “ROAD-DATA”（回车符号）M+O→N（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）Z-90→A（回车符号）（V-G）cos（A）-（U-F）sin（A）→H（回车符号）If Abs（H）＞0.0001：Then P+H→P：Goto 5：IfEnd（回车符号）“K=”：P（黑色三角）“D=”：（G-V）÷sin（A）→D（黑色三角）Goto 4（回车符号）ROAD-DATAIf E=1：Then Prog“ROAD-DATA1”：IfEnd（回车符号）If E=2：Then Prog“ROAD-DATA2”：IfEnd（回车符号）If E=3：Then Prog“ROAD-DATA3”：IfEnd（回车符号）If E=4：Then Prog“ROAD-DATA4”：IfEnd（回车符号）If E=5：Then Prog“ROAD-DATA5”：IfEnd（回车符号）注：ROAD-DATA编几段对应的计算数据库就编几段，比如此例有五段，那么就编五段“ROAD—DATA1、2、3......”。
卡西欧5800程序
卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版1.主程序：一般坐标计算及放样程序-----交点法程序名:1-JDLal 0:10→DimZ:Norm 2:1→A:＂A: XY=1,KMD=2＂? A:A=1=>Goto 1:A=2=>Goto 2: （选择正算还是反算）Lal 1:Lal A:Prog＂QX＂: 90→B ＂PJ＂?B:B→Z[1]: （默认与道路切线方向90度）Lal B:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停止，输入- 2转反算），偏距默认中桩0，左为-，右为+，）Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3:＂X=＂:Locate 6,4,X: ＂Y=＂:Locate 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角）Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部分可以省略） Prog＂5-SD＂:＂-CW +QW=＂:M◢（隧道超欠挖，如不需要此部分可以省略）LpWhile Z≠-1(Goto B此处也可以用这个命令)Lal 2 Prog＂QX＂: （选线，默认（线路1） X1=1，（线路2）X2=2.........）Lal C:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: （反算时输入大概桩号，输入-1则停止，输入-2正算）Prog＂K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate6,4,Z: ＂D=＂:Locate 6,4,D◢Prog “S-Z”: Prog “3-GC”: “H=”：H◢Prog＂5-SD＂:＂-CW +QW=＂:M◢LpWhile Z≠-1(Goto C此处也可以用这个命令)2．线路中线元段判别子程序（K）程序名：KIf Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog “X1”:Return:IfEnd：If Z[3]=2:Then Prog “X2”:Return:IfEnd：If Z[3]=n:Then Prog “Xn”:Return:IfEnd.....（后面可以增加N条线路！！但需要在QX程序里面＂QX:?=0,X1=1,X2=2，Xn=n＂做更改）。
CASIO 5800综合曲线坐标计算程序
适用：CASIO fx-5800P Q Q：２９５１８８３１６[正确] CASIO fx-5800P综合曲线坐标计算程序（多数据库）说明：该程序适用于计算器 CASIO fx-5800P，可进行线路贯通计算、线路的缓和曲线、圆曲线、夹直线段中、边桩坐标及切线方位角等。
1.? 输入1直接调用数据库，输入2则手动输入曲线要素2.JSDK? 输入计算里程桩号3.α? 输入转角：左转为负，右转为正4.R? 输入圆曲线半径5.LS? 输入缓和曲线长度6.JD(DK)? 输入交点里程桩号7.X(JD)? 输入本交点X坐标8.Y(JD)? 输入本交点Y坐标9.FWJ? 输入待求点切线方位角10.J? 输入0程序计算中桩，输入1程序计算边桩主程序名：ZHQX1.Deg：Fix 4↙2.＂1=>XY＂：＂2=>DK＂：＂＂？H↙3.＂JSDK＂?Z ↙4.If H=1：Then Goto A：IfEnd↙5.If H=2：Then Goto B：IfEnd↙6.Lb1 A↙7.Prog＂ZHQX1＂↙8.Goto C↙9.Lb1 B↙10.＂α＂?A：?R：＂LS＂?C：＂JD(DK)＂?D：＂X(JD)＂?N：＂Y(JD)＂?E：＂FWJ＂?F↙11.Lb1 C↙12.?J ↙13.C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P ↙14.C÷2-C∧（3）÷240÷R∧2→Q ↙15.90×C÷π÷R→B ↙16.＂T=＂：(R+P)tan(Abs(A)÷2)+Q→T◢适用：CASIO fx-5800P Q Q：２９５１８８３１６17.＂E=＂：(R+P)÷cos(A÷2)-R→W◢18.＂L=＂：(Abs(A)-2×B)πR÷180+2×C→L◢19.＂ZH=＂：D-T→G◢20.＂HY=＂：G+C→H◢21.＂QZ=＂：G+L÷2→I◢22.＂YH=＂：G+L-C→K◢23.＂HZ=＂：G+L→M◢24.If A＜0：Then -1→S：Else 1→S：IfEnd ↙（此行不输入……本行中0为数字）25.F+A÷2+90×S→U ↙26.W+R→V ↙27.N+V×cos(U)→B ↙28.E+V×sin(U)→O ↙（此行不输入……本行中O为字母）29.Goto D ↙30.Lb1 E ↙31.＂JSDK＂?Z ↙32.Lb1 D ↙33.If Z≤G：Then T+G-Z→L ↙34.F+180→V ↙35.＂FWJ=＂：F→U◢36.Goto 2 ↙37.IfEnd ↙38.If Z≤H：Then Z-G→L ↙39.L-L∧(5)÷(90×R∧2×C∧2)→V ↙40.30×L∧2×S÷(πRC)→L ↙41.F+180→P ↙42.F+L→Q ↙43.＂FWJ=＂：F+3×L→U◢44.Goto 4 ↙45.IfEnd ↙46.If Z≤K：Then F+A÷2+90×S+180+180(Z-I)×S÷R÷π→L ↙47.＂FWJ=＂：L+90×S→U：If U≥360：Then U-360→U◢48.Else U→U◢49.IfEnd：Goto 5：IfEnd ↙50.If Z≤M：Then M-Z→L ↙适用：CASIO fx-5800P Q Q：２９５１８８３１６51.L-L∧(5)÷(90×R∧2×C∧2)→V ↙52.30×S×L∧2÷(πRC)→L ↙53.F+A→P ↙54.F+A+180-L→Q ↙55.＂FWJ=＂：F-3×L+A→U：If U≥360：Then U-360→U◢56.Else U→U◢57.IfEnd：Goto4 ：IfEnd ↙58.If Z>M：Then Z-M+T→L ↙59.F+A→U ↙60.U→V ↙61.Goto 2 ↙62.Lb1 2 ↙63.＂X=＂：N+L×cos(V)→X◢64.＂Y=＂：E+L×sin(V)→Y◢65.Goto 6 ↙66.IfEnd ↙67.Lb1 3 ↙68.?W ↙69.＂XL=＂：X+W×cos(U-90) →P◢70.＂YL=＂：Y+W×sin(U-90) →Q◢71.＂XR=＂：X+W×cos(U+90) →P◢72.＂YR=＂：Y+W×sin(U+90) →Q◢73.Goto E ↙74.Lb1 4 ↙75.＂X=＂：N+T×cos(P)+V×cos(Q)→X◢76.＂Y=＂：E+T×sin(P)+V×sin(Q)→Y◢77.Goto 6 ↙78.Lb1 5 ↙79.＂X=＂：B+R×cos(L)→X◢80.＂Y=＂：O+R×sin(L)→Y◢（此行不输入……本行中O为字母）81.Goto 6 ↙82.Lb1 6 ↙83.J=1=> Goto 3 ↙（此行不输入……=>：FUNCTION→3↓3）84.Goto E ↙适用：CASIO fx-5800P Q Q：２９５１８８３１６注：1、◢为显示指令。
CASIO fx-5800P计算器路线坐标高程计算程序
CASIO fx—5800P计算器路线坐标计算程序（单个交点）主程序名CALXY （计算中桩、边桩坐标）Lbl 1：“ZZ”? →Z[27] ：“D(-+m)”? →D：If D≠0 ：Then “∠(DMS)”? →V：Ifend』If Z[27]≤Z[17]：Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos( F+V)：“X=”：Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin( F+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[17] And Z[27]≤Z[20]：Then Z[27] —Z[17] →L：Prog “HHXY”：Z[18] +I Cos( F+ JH）+D Cos( F+WH+V)：“X=”：Ans▲：Z[19] +I Sin(F+ JH）+D Sin( F+WH+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[20] And Z[27]≤Z[24] —Z[6]：Then Z[27] —Z[20] →L：Prog “YUXY”：Z[21] +I Cos( Z[23]+ JH）+D Cos( Z[23]+WH+V)：“X=”：Ans▲：Z[22] +I Sin(Z[23]+ JH）+D Sin( Z[23]+WH+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[24] —Z[6] And Z[27]≤Z[24]：Then Z[24] —Z[27] →L：Prog “HHXY”：Z[25] +I Cos( C—JH）—D Cos( C—WH+V)：“X=”：Ans▲：Z[26] +I Sin(C—JH）—D Sin( C—WH+V)：“Y=”：Ans▲：Ifend』If Z[27] ＞Z[24]：Then Z[25] —(Z[27] —Z[24]) Cos( C )—D Cos( C+V)：“X=”：Ans▲Z[26] —(Z[27] —Z[24]) Sin( C —D Sin( C+V)：“Y=”：Ans▲：Ifend』Goto 1子程序名JD （输入曲线参数，计算曲线要素）30→Dim Z：Fix 5：“JD”? →Z[1] ：“XJD”? →Z[2] ：“YJD”? →Z[3]：“F0(DMS)”? →F：“A（-+ DMS）”？→Z[4]：“R”? →R：“LH1”? →Z[5]：“LH2”? →Z[6]：√￣(Z[4]2)→A：Int(Z[4] ÷A)→H』Z[5] →S：Prog “PQ”：Q →Z[7]：P→Z[8]：B →Z[9]：R →S：Prog “PQ”：Q →Z[10]：P→Z[11] ：B →Z[12] 』（R+ Z[8]）Tan(A÷2)+ Z[7] —(Z[8] —Z[11]) ÷Sin(A)→Z[13] ：“T1=”：Ans ▲（R+ Z[11]）Tan(A÷2)+ Z[10] —(Z[8] —Z[11])÷Sin(A)→Z[14] ：“T2=”：Ans▲』√￣((Z[13] —Z[7])2+( R+ Z[8])2) —R →Z[15]：“E=”：Ans▲R( A —Z[9] —Z[12] )÷57.2958+ Z[5] + Z[6] →Z[16]：“L=”：Ans▲』Z[1] —Z[13]→Z[17]：Z[2] —Z[13]Cos( F) →Z[18]：Z[3] —Z[13] Sin( F) →Z[19]：If Z[5]＞0 ：then Z[17] +Z[5]→Z[20]：Z[5] →L：Prog “HHXY”：Z[18] +I Cos( （F+ JH）)→Z[21]：Z[19] +I Sin( （F+ JH）)→Z[22]：（F+ WH）→Z[23] ：Else Z[17]→Z[20]：Z[18]→Z[21]：Z[19]→Z[22]：F→Z[23]：Ifend』Z[17] + Z[16]→Z[24]：Z[2] +Z[14] Cos( （F+ Z[4]）)→Z[25]：Z[3] +Z[14] Sin( （F+ Z[4]）)→Z[26]：F+ Z[4] —180→C』Prog “CALXY”』子程序名PQS÷2—S3÷（240 R2）→Q：S2÷（24 R）—S4÷（2384 R3）→P：28.6479S ÷R→B』子程序名HHXYL—L5÷(40S2 R2)+L9÷(3456 R4S4) →X：L3÷（6S R）—L7÷（336S3 R3）+L11÷（42240 R5S5）→Y：28.6479L2÷(S R) →W：Pol（X,Y）』子程序名YUXY57.2958L÷R →W：RSin(W)→X：R（1—Cos(W）)→Y：Pol（X,Y）』CASIO fx—5800P计算器路线坐标计算程序（单个交点）使用说明首先运行子程序“JD”，输入曲线参数，计算曲线要素。
卡西欧5800P计算器程序
卡西欧5800P计算器TYQXJSI坐标正反算(经过修改)1.主程序(TYQXJSI)10→DimZ:"1.SZ → XY"："2.XY → SZ"：？N："XO"? U："YO"? V："SO"? O："FO"? G："LS"? H："RO"? P："RN"? R：? Q: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：If N=1: Then Goto 1: Else Goto 2: IfEndLbl 1："DK? +?"? S：?Z: Abs(S-O)→W：If W>H or S<O: Then Stop: IfEnd : Prog "SUB1": "XS=”:X◢"YS=”: Y◢"FS=”:(F-90) →F：F DMS◢Goto 1Lbl 2:? X:? Y: "H"?A:X→I:Y→J:Prog "SUB2"：If W>H or S<O: Then Stop: IfEnd :"DK?+?=”:O+W→S◢"Z”:Z◢Prog”NGDM”:Prog”OPRP1”:Goto 2IF N=2: Then If S<157188: Then Prog”OPRP1-100”:Else If S>157297: Then Prog”OPRP2-0”: ElseProg”OPRP1-50” IfEnd: IfEndElse If N=3: Then Prog”OPRP4”: IfEnd :IfEnd2. 正算子程序(SUB1)0.1739274226 →Z[3]：0.3260725774→B：0.0694318442→K：0.3300094782→L:(1-L) →F：(1-K)→M：(U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X：V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：(X+Zcos(F))→X：(Y+Zsin(F))→Y注：Z[3]替代源程序A。
MXK(CASIO5800P) 五种竖曲线高程计算
竖曲线高程计算1. fx5800p全线高程计算SQXGCJSDeg：Fix 3Lbl 1:?K:“BJ”?B:“JGC”?GPorg “SQXSJK”If K≤A:Then C+(D-K)×E-G→H：Goto 2:Else K≤D =＞“H”C+(K-A)÷2÷R+(D-K)×E-G→H：Goto 2:If K≤I：Then C-(I-K)2÷2÷R+(K-D)×F-G→H：Goto 2Lbl 2:B？“SJGC=”:H◢Goto 1“BZGC=”:H-B×横破比◢ReturnSQXSJKLbl 0If K≤曲线终点:Then曲线起点→A:交点高程→C:交点桩号→D:前坡比→E:后坡比→F:曲线终点→I:半径→R（EF下坡正上坡负）K=桩号，BJ=边距，JGC=结构层厚度2.公路路线高程通用程序（CASIO5800）公路路线高程通用程序（CASIO5800）作者：李艳阳Fx-5800路线高程程序GCQX-000 主程序Lbl 1: Prog“GCQX-SUB000” ↙If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+R Sin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙Lbl 2: “H=”:H: Goto1GCQX-000 数据库If S<***: Then ***→A(线元起点里程): ***→B(线元起点高程): ***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Goto 0:IfEnd↙If S<***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Goto 0:IfEnd↙………………………..Lbl 0↙3.CASIO4850)中边桩高程连续计算及放样**可计算两种形式的超高[SJG]————主程序Defm 6:Lbi 0:S“BM+HS”（视线高）:E“LGP”（路拱坡度）:V“JGC”（结构层厚度）: {B}:B“K”（查询桩号）:Prog“SQ”:T=RAbs(P-N) ÷2:X=1:N＞P=>X=-1⊿←┘B<Y-T=>Z[1]=0:Z[2]=N: ≠>B<Y=>Z[1]=1:Z[2]=N: ≠>B<Y+T=>Z[1]=1:Z[2]=P: ≠>Z[1]=0:Z[2]=P⊿⊿⊿←┘{W}:W“ZBJ”（中桩到边桩的距离）:Prog“YD”:Goto 0[YD]—————引导程序B≤不设超高的路段终点桩号=> Prog“G1”: ≠>B≤设置超高的路段终点桩号=> Prog“XZ”：……以此类推⊿（有几个≠>就有几个⊿）[SQ]—————竖曲线数据库B≤下一竖曲线起点桩号=>H（本曲线变坡点高程）：Y（变坡点桩号）：R（竖曲线半径）：N（前纵坡坡度）：P（后纵坡坡度）：≠> B≤下一竖曲线起点桩号=>H（本曲线变坡点高程）：Y（变坡点桩号）：R（竖曲线半径）：N（前纵坡坡度）：P（后纵坡坡度）：……⊿（有几个≠>就有几个⊿）[XZ]—————平曲线数据库B≤=>A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点桩号）:Z（加宽值）:F=±1(旋转方式：+1中轴旋转、-1边轴旋转):Z[5]= ±1（路线弯向：+1右转、-1左转）: ≠> B≤=>A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点桩号）:Z（加宽值）:F=±1(旋转方式：+1中轴旋转、-1边轴旋转):Z[5]= ±1（路线弯向：+1右转、-1左转）：……C=O-G: Goto 1⊿（有几个≠>就有几个⊿）←┘Lbi 1:F=1 => Prog“ZZXZ”: ≠>F=-1 => Prog“BZXZ” ⊿[ZZXZ]————中轴旋转横坡计算Lbi 0:M=Abs(B-A)Z÷C: Abs(B-A) ＞Abs(G-A) =>A=O: ≠>A=A⊿I=Abs(B-A)(E+D) ÷C-E:I≤E=>Goto 1: ≠>I≤D=>Goto 2: ≠>Goto 3⊿⊿⊿⊿Lbi 1:J=I:K=E: Prog“G2”: Goto 4←┘Lbi 2:J= AbsI:K= AbsI: Prog“G2”: Goto 4←┘Lbi 3:J=D:K=D: Prog“G2”: Goto 4←┘Lbi 4[BZXZ]———边轴旋转横坡计算Lbi 0:Q=2E÷(E+D)×C:M=Abs(B-A)Z÷C: Abs(B-A) ＞Abs(G-A) =>A=O: ≠>A=A⊿Abs(B-A) <Q=>Goto 1: ≠>Abs(B-A) <C=>Goto 2: ≠>Goto 3⊿⊿⊿⊿←┘Lbi 1: J=(Abs(B-A) ×2E÷Q-E:K=E: Prog“G2”: Goto 4←┘Lbi 2: J=(Abs(B-A)-Q)(D-E) ÷(C-Q)+E:J=AbsJ:K=AbsJ: Prog“G2”: Goto 4←┘Lbi 3: J=D:K=D: Prog“G2”: Goto 4←┘Lbi 4[G1]————不设超高的高程计算W=AbsW:Z[3]=H-V-Z[2](Y-B)+Z[1]X(T-Abs(Y-B))2÷(2R)-WE:Z[6]=S-Z[3]: “SJG=”:Pause 0: “SJQS=”:Z[6] ◢[G2]————设置超高的高程计算J=D=>M=Z: ≠>M=M⊿←┘Z[5]=1=> Goto 1: ≠>Z[5]=-1 => Goto 2⊿←┘Lbi 1:W<0=>Z[4]=J: ≠>W＞0=>Z[4]=-K: Goto 3⊿⊿←┘Lbi 2: W<0=>Z[4]=-K: ≠>W＞0=>Z[4]=J: Goto 3⊿⊿←┘Lbi 3:Z[3]=H-V-Z[2](Y-B)+Z[1]X(T-Abs(Y-B))2÷(2R)-WZ[4]:Z[6]=S-Z[3]: “SJG=”:Z[3]:pause0: “SJQS=”:Z[6] ◢说明：一、输入部分选择主程序。
卡西欧5800P计算器隧道施工测量程序设计
卡西欧5800p计算器隧道施工测量程序设计王庆军随着铁路、公路建设的快速发展，我国隧道建设的施工技术也大幅度提高，由于工期紧迫促成测量放样的过程也是一个重要环节，如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度，导致开挖掘进造成隧道超欠挖，所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作，这样不仅提高了施测效率还保证了放样精度，现通过本文分析讲解隧道超欠挖的计算原理和程序设计。
何为超欠挖？：隧道超欠挖分为（超挖和欠挖），超挖即为隧道开挖轮廓线大于隧道设计轮廓线，欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。
超欠挖的影响：隧道超欠挖不止直接影响到了施工进度、安全质量，还会让开挖费用增加，更重要的是由此造成了过量超填混凝土的费用。
超挖在实际施工中由于重视不够或方法不当，以至于在施工过程中会不知不觉地提高工程成本，从而也减少了应得的利润。
超欠挖是如何产生的？在目前的隧道施工中，掘进技术有两种方法，一种是传统的“钻爆法（开挖台阶法）”；一种是“全断面掘进法（盾构掘进法）”。
受各种条件的制约，“钻爆法”仍是山区隧道施工的主要掘进方法。
所以隧道超欠挖的形成也是不可避免的，下面讲述一下形成超欠挖的三种情况。
1、岩层变化：由于隧道开挖过程中随着岩层的变化，地质条件和围岩裂隙的发生会出现不可避免的超欠现象，所以岩体是超欠挖的主要因素之一。
2、爆破方式：由于工作面（掌子面）是一个不平整的岩体面，导致钻孔间距控制不当或间距过大、过小，容易影响其他孔位的爆破效果，或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。
3、测量放线：由于隧道测量放线过程中能见度低，操作有限，测量人员进入隧道测量时导致前后视照准误差，同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。
如何正确实施隧道测量工作？隧道测量工作应由专业测量人员测量，根据设计院给定的坐标控制点和高程控制点进行建立导线控制网,并按规定程序检查验收,对施测人员实行详细的图纸交底和方案交底,所有施测的工作进度根据项目进度计划进行安排。
有关路基和隧道的casio 5800p 万能曲线计算程序
有关路基和隧道的CASIO 5800P 万能曲线计算程序程序专区2010-01-16 20:31:32 阅读388 评论0 字号：大中小有关路基和隧道的CASIO 5800P 万能曲线计算程序(CASIO fx-5800P计算器)程序一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序增加变量16→DimZ1.主程序(ZHUCHENXU)\"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO \"？N：Lbl 1：”ZHUANGHAO=”?S：Prog \"SUB3\"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog \"SUB1\"：\"XS=”:X→X◢\"YS=”:Y→Y◢\"FS=”:(F-90)→F:F?DMS◢Prog \"FA\"：Goto 1:Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog \"SUB2\"：\"S=\":(O+W) →S◢\"Z=\"Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序(SUB1)0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L) →F：(1-K)→M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算子程序(SUB2)G-90 →Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog \"SUB1\"：Z[2]+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog \"SUB1\"：(J-Y) sinF→Z4. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q: Goto 1:IfEnd…………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1 P→C：(P-R) (2HPR) →D：180 π→E：5. 算方位角程序(FA)LbI0：“XC=”? A: “YC=”? T :X：Y0→J：POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd“FW=”：J?DMS◢Goto06. 使用方位角算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F：L Cos（F）+X→N: “N=”N◢L Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→Z[6]：“P1=” ? → Z[8]：“P2=” ? → Z[9]：“P3=” ? → Z[10] (没有的话就删)：Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEndZ[11] Z[5] →Z[12]：If Z[12]〈1 Then Z[8] Z[11] →Z[13]：Else Z[8] Z[5]+Z[9] Z[5] （Z[12]-1）→Z[13]：IfEnd: AbsZ-（Z[13]+Z[6] Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ……………… 起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标高Z[5]=“PG” ……………… 坡高Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地面高度Z[8]=“P1” ……………… 一级边坡坡度Z[9]=“P2” ……………… 二级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超欠挖宽度（+表超，-表欠）8. 隧道圆心放样程序（SDYX）IF S<229000:THEN 243.997+0.0205 (S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023 (S-230500)- (S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、程序功能
本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序
增加变量16→DimZ
1.主程序(ZHUCHENXU)
"1.SZ→XY，2.XY→SZ，3.SDYX，4.BIANPO"？N：
Lbl1：”ZHUANGHAO=”?S：Prog"SUB3"：N≥2=>Goto2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog"SUB1"："XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90)→F:F►DMS◢Prog"FA"：Goto1: Lbl2：”CX=”?X:X→I：”CY=”?Y:Y→J：”DMG=”?→Z[7]：Prog"SUB2"："S=":(O+W)→S◢"Z="Z→Z◢IfN=3:ThenProg”SDYX”:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Goto2
2.正算子程序(SUB1)
0.1739274226→Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L)→F：(1-K)→M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[ 1]cos(G+QEMW(C+MWD)))→X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))
+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y
3.反算子程序(SUB2)
G-90→Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2])→W：0→Z：Lbl0：Prog"SUB1"：Z[2]+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：
IfAbs(Z)<1E-6:ThenGoto1：Els eW+Z→W：Goto0:IfEnd
Lbl1：0→Z：Prog"SUB1"：(J-Y)÷sinF→Z
4.数据库(SUB3)
IfS<226100:ThenCls:Stop:IfEnd
IfS<226255.833:Then226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q:Goto1:IfEnd
……
……
IfS>236005.651:ThenCls:Stop:IfEnd
Lbl1:1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：
5.算方位角程序(FA)
LbI0：“XC=”?A:“YC=”?T:X：Y
0→J：POI（X-A，Y-T）→I：“BC=”：I◢IfJ＜0Then360+J→J：ElseJ→J:IfEnd “FW=”：J►DMS◢Goto0
6.使用方位角算坐标(NE)
LbI0：“X=”?X:“Y=”?Y:“L=”?L:“F0”?F：L×Cos（F）+X→N:“N=”N◢L×Sin（F）+Y→E:“E=”E◢
Goto0
7.边坡放样程序(BIANPO)
“QPDJL=”?→Z[3]:“QPDGD=”?→Z[4]:“PG=”?→Z[5]：2→Z[6]：“P1=”?→Z[8]：“P2=”?→Z[9]：“P3=”?→Z[10](没有的话就删)：Z[7]-Z[4]→Z[11]：IfZ[11]〈0ThenAbsZ[11]→Z[11]:“T=”：Z[11]◢Else“W=”：Z[11]◢IfEnd
Z[11]÷Z[5]→Z[12]：IfZ[12]〈1ThenZ[8]×Z[11]→Z[13]：ElseZ[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd:AbsZ-（Z[13]+Z[6]×IntZ[12]+Z[3]）→Z[14]:“BP+C-J=”:Z[14]◢
说明：
Z[3]=QPDJL………………起坡点离中桩距离
Z[4]=“QPDGD”……………起坡点设计标高
Z[5]=“PG”………………坡高
Z[6]=“PTK”………………平台宽度
Z[7]=“DMG”………………实测地面高度
Z[8]=“P1”………………一级边坡坡度
Z[9]=“P2”………………二级边坡坡度
Z[10]=“P3”………………三级边坡坡度(没有的话就删)
Z[14]=“BP+C-J=”………………边坡超欠挖宽度（+表超，-表欠）
8.隧道圆心放样程序（SDYX）
IFS<229000:THEN243.997+0.0205×(S-226520)-(S-227318)^2/2/16000+1.503→Z[10]:“NGC=”：Z[10]◢ELSE286.385-0.023×(S-230500)-(S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10]◢IfEnd
Z[10]-Z[7]→Z[15]:“+SG,-JD”：Z[15]◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]:“R=”:Z[16]◢
三、使用说明
1、规定
(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
(2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。
(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点。