断面测量简单程序(隧道用)5800P计算器程序
CASIO-fx-5800P实用工程测量程序
CASIO-fx-5800P实用工程测量程序今天，我想向大家介绍一款非常实用的工程测量程序：CASIO-fx-5800P。
CASIO-fx-5800P是一款非常实用的计算器，可以用于各种工程测量和计算。
在这篇文章中，我将详细介绍该计算器的功能和使用方法。
什么是CASIO-fx-5800P？CASIO-fx-5800P是CASIO公司的一款高级科学计算器，该计算器集成了丰富的计算功能和工程测量功能，可以帮助用户准确地进行各种计算和测量。
该计算器适用于各种工程测量、科学计算、数据分析等工作。
CASIO-fx-5800P的功能下面是CASIO-fx-5800P常用的功能：1. 基本运算功能CASIO-fx-5800P可以进行各种基本运算，如加减乘除、开方、开方根、倒数等等。
2. 三角函数和反三角函数CASIO-fx-5800P 提供了三角函数和反三角函数的计算功能，如正弦函数、余弦函数、正切函数、反正弦函数、反余弦函数、反正切函数等。
3. 统计学计算CASIO-fx-5800P 提供了各种统计学计算功能，如数据输入、平均数、方差、标准差、偏差等。
4. 矩阵功能CASIO-fx-5800P 可以完成任何矩阵的基本计算，如矩阵乘法、矩阵求逆、矩阵行列式、矩阵分解、矩阵特征向量和特征值等。
5. 工程测量CASIO-fx-5800P 可以进行各种工程测量计算，如距离计算、面积计算、容积计算、温度计算、时间计算等。
6. 复数运算CASIO-fx-5800P 可以进行各种复数运算，如加减乘除、转换成极坐标形式等。
7. 方程求解CASIO-fx-5800P 可以解各种方程，如一次方程、二次方程、三次方程、四次方程、多项式方程、微积分方程等。
CASIO-fx-5800P在工程测量中的应用下面，我将介绍CASIO-fx-5800P 在工程测量中的应用。
CASIO-fx-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＂为测站点到待测点距离。
卡西欧5800p道路纵断面高程计算
卡西欧5800P计算器道路纵断面高程计算通用程序广西水利电力职业技术学院11级工程测量班 曾礼明1.“ZP:1 OR SQX:2”：？→A2. If A=1:then Goto1:IfEnd3. If A=2:then Goto2:IfEnd4. LbI 1:“BPZ=”?B:”BPG=”?C:”PL=”?D:LbI 3:”K=”?K5. C+(K-B)*D→H:”H=”:H⊿Goto36. LbI 2:”BPZ=”?B:”T=”?T : “BPG=”？C : “PL1=”？E : “PL2=” ?F : “R=” ?R :LbI 4 : “K=” ?K7. B-T→J8. B+T→L9. If K≥J And K＜B:Then C+(B-K)*-E→M:IfEnd10. If K≥J And K＜B:Then(K-J) ²/（2*R）→N IfEnd11. If K＞B And K≤L:Then C+(K-B)*F→O:IfEnd12. If K＞B And K≤L:Then (L-K) ²／(2*R) →P :IfEnd13. If E-F＞0:Then M-N →H: ”H=”:H⊿IfEnd14. If E-F＜0:Then O+P →H: ”H=”:H⊿IfEnd :Goto 4程序结束程序说明：变量含义变量含义B 变坡点桩号K 所求桩号C 变坡点高程H 所求桩号的设计地面高程D 纵坡坡率J 竖曲线起点桩T 竖曲线切线长L 竖曲线终点桩E 竖曲线坡率1 N、P 竖曲线纵距F 竖曲线坡率2 M、O 竖曲线处纵坡高程R 竖曲线半径使用说明：直坡段与竖曲线段要分开计算1．提示“ZP:1 OR SQX:2”，ZP表示纵坡、SQX表示竖曲线，根据需要输入对应的1或者2。
2．对于纵坡，提示BPZ表示纵坡变坡点即纵坡起点桩号，BPG 表示纵坡变坡点即纵坡起点桩号的设计高程，PL表示该段纵坡坡率，K表示所要求的桩号。
卡西欧fx-5800p计算器测量程序
卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。
卡西欧5800边坡测量放样程序隧道测量
卡西欧5800边坡测量程序U″XO″：V″YO″：A″X1″：B″Y1″：POL（G″X2″-A,D″Y2″-B：W=J：I：LBI1：{LKM}：X″XA="=A+LCOSW+KCOS（W+M)◢Y"YA="=B+LSinW+Ksin（W+M）◢POL（S-U),Y-U：J <0=>J=J+36O⊿X″DIX=″=I◢FiX3：O″FW=″=J◢Goto15800边坡测量程序″XO=″?U：″YO=″?V：″X1=″?A：″Y1″?B：″X2″?G:″Y2″?D↙POL（G-A,D-B)：J→W:Fix 3:CLS↙Lbi 1 ↙″L=″?L:″K=″?K:″M=″?M↙A+LCOSW+KCOS（W+M)→X↙B+LSinW+Ksin（W+M)→Y↙Cls↙"XA=":Locate 5,1,X:"YA=":Locate 5,2,Y◢Pol（X-U,Y-V)：If J <0:Then J+36O→J :Else J→J↙Cls↙″DIX=″:Locate 5,1,I:″FW=″:J▲DMS◢Goto 1程序特点：全线标高数据一次性程序化输入，扩充变量数据库，无需修改程序内容；全线贯通计算，标高计算时将全线数据分为4等分，首先判断待求点在哪个区间，再循环选择，提高运算时间；傻瓜操作，适用初级用户。
一、程序：M CW“1.BG 2.SZ ”：W=1=> Goto 1ΔO“KOU LING”：O≠1 23456=>O=0：Goto ５ΔO=0：Z[1]=0: Goto 0←┘Lbi 0←┘”No.”：Z[1]+1◢{ZHPR}：Z“D0” ：H“BG” ：P“PD” ：R“R0” ：Z[Z[1]×4+ 3]=Z：Z[Z[1]×4+4]=H：Z[Z[1]×4+5]=P：Z[Z[1]×4+6]=R：“NEXT”◢Isz Z[1]：Goto0←┘Lbi 1←┘Z[2]= Z[1]←┘{D}：D≤Z[Int(Z [2]÷4+1)×4+3]=>Z[2]= Int(Z [2]÷4) ：Goto2ΔD≤Z [Int (Z[2] ÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2)：Goto2ΔD≤Z [Int (Z[2]×.75+1)×4+3]=>Z[2]=Int (Z[2]×.75)：Goto2ΔGoto 2←┘Lbi 2←┘D<Z[Z[2]×4+3]=>Dsz Z[2]：Goto 2ΔGoto 3←┘Lbi 3←┘Z[Z[2]×4+6]≠0=>G=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+ 5]÷100+(D-Z[Z[2]×4+3]) ^2÷2÷Z[Z[2]×4+6]：Goto 4ΔG=Z[Z [2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100：Goto 4←┘Lbi 4←┘{Z}：Z：G=G-0.02Abs(Z):“G”: G◢（4850输出）{Z}：Z：G=G-0.02Abs(Z): G“G”◢（4800输出）Goto 1←┘Lbi 5←┘“OUT”◢程序操作说明程序分为两部分：1.BG为标高计算，2.SZ为参数设置。
我的5800p测量程序及公式
FILE非常好用的卡西欧5800p程序一、坐标反算(XY--FD)Deg：Fix 3↓(换行)Lbl 0↓〝X0=〞?A:〝Y0=〞?B:〝XN=〞?C:〝YN=〞?D↓(换行)Pol（（C-A）,(D-B)）J＜0＝＞J+360→J↓(换行)〝JL=〞：I◢〝FWJ=〞：J：▶DMSGoto 0二、坐标正算(DF--XY)Deg：Fix 3↓(换行)〝X0=〞?A；〝Y0=〞?B：〝L=〞?L：〝C=〞?C↓(换行)A+Lcos(C)→X↓ B+Lsin(C)→Y↓〝X=〞：X◢〝Y=〞：Y◢三、直线段中桩、边桩坐标计算（该程序从起点往终点计算）(ZX)1、Deg：Fix 3↓(换行) 设置小数保留位数2、Lbl 1↓程序标签3、〝X0〞?X：〝Y0=〞?Y：〝K0=〞?E：〝FWJ=〞?J↓赋值起点坐标、桩号、走向方位角4、?K：?L：?A↓输入所求的桩号、边距、相对于主线的方位角（如果只计算中桩坐标，边距及方位角皆为0）5、X+(K-E)cos(J)+Lcos(J+A)→C↓计算坐标X6〝XP=〞：C◢显示坐标X7、Y+(K-E)sin(J)+Lsin(J+A)→D↓计算坐标Y8、〝YP=〞：D◢显示坐标Y9、Goto 1↓转向程序标签循环执行计算四、圆曲线坐标计算程序（该程序从起点往终点计算）(YQX)1、Deg：Fix 3↓(换行)2、Lbl 0：3、〝K0=〞?K：?X：?Y：?A：?R：4、〝L=-1，R=+1〞：?G：5、〝ZS=0，FS≠0〞：?S：6、S≠0 =＞Goto 1↓7、〝Ki〞?Z↓8、90(Z-K)÷(∏R)→B↓9、2RsinB→D↓10、〝Xi=〞：X+Dcos（A+GB）→P◢11、〝Yi=〞：Y+Dsin（A+GB）→Q◢12、A+180G(Z-K)÷(∏R)→0↓13、〝ZBJ〞？E↓14、〝XiL=〞:P+Ecos(0-90) ◢15、〝YiL=〞:Q+Esin(0-90) ◢16. 〝YBJ〞？F↓17、“XiR=”:P+Fcos(O+90)◢18、“YiR=”:Q+Fsin(O+90)◢19、Goto 0↓20.、Lbl 1：21、“XC”?U: “YC”?V↓22、X+Rcos(A+90G)→M↓23、Y+Rsin(A+90G)→N↓24、Pol(U-M,V-N)→H↓25、J＜0 =＞J+360→J↓26.、“PJ=”:R-H→L◢27、“XCCZ=”:M+Rcos(J)→T◢28.、“YCCZ=”:N+Rsin(J)→W◢29 、Pol(T-X,W-Y) →Z↓30.、“CZZH=”: K+sin-1(Z÷2÷R)πR÷90◢31.、Goto 0说明：1.设置小数保留三位。
工程测量中fx5800P计算器基本程序
工程测量中fx-5800P计算器基本程序的编写及实际放线的应用刘兵策刘杰摘要在日常工程测量工作中，计算器是必不可少的工具。
目前行业内用fx-5800P。
本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写，并对其比较复杂的实际放线的灵活应用进行解析，为类似的测量工作提供借鉴。
关键词工程测量fx-5800P程序应用1 引言控制测量是施工的基础，为了便于施工，放线一般使用施工坐标系，坐标轴平行于建筑物主轴线。
对于建筑物主轴线与坐标轴不平行的，为了方便放线，一般不再改变坐标系，用计算器程序进行计算，迅速判断需要定位的点。
利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值，指挥棱镜进行移动，找到准确的设计位置。
测量工作中主要用到坐标正反算，大地转施工，施工转大地等常用程序，下面介绍这几个程序的原理和编写，总结一些在实际工作中的应用。
2 Fx-5800计算器程序的原理与编写2.1 大地坐标转换为施工坐标大地坐标转换为施工坐标见图1。
Xp、Yp分别是P点在XOY坐标系中的纵横坐标，xp，yp分别是xo’y坐标系中的纵横坐标值，Xo，Yo分别是xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐标值，Δα为两坐标系坐标纵轴的夹角。
将P点从XOY坐标系转换到xo’y坐标系中，即大地转施工的公式如下：图1 大地坐标与施工坐标转换图xp=（Yp-Yo）sinΔα+（Xp-Xo）cosΔα；yp=（Yp-Yo）cosΔα-（Xp-Xo）sinΔα；用fx-5800P编制程序时，只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标，即在坐标系XOY坐标系中的坐标，再用上述公式带入，输出P点的施工坐标。
基本程序如下：“X1=”?A:”Y1=”?B: (输入xoy的原点的大地坐标）“X2=”?U:”Y2=”?V: (输入要转换的P点的大地坐标）“F=”:F (输入方位角）“X=”:（V-B)sinF+（U-A）cosF->X (输出P点的施工坐标X值）“Y=”:（V-B)cosF-（U-A）sinF->Y (输出P点的施工坐标Y值）输出坐标时，可以用计算器中的一个极坐标的逆运算代替，即去掉最后两行，换成Pol（U-A,V-B):J<0=>J+360->J“W=”:J-F->WRec（I，W）这种方法计算器的运算效率比较高，编程也比较简便。
卡西欧FX5800P编程计算器应用及程序
程序示例
U“Z=0 Y≠0”=0
K0+=0 H0=3014.6 ≥=1/74.09 D=2.9 E=2.46 R=1.671
【1】 直线段
实测坐标（m）
圆拱段超欠(m) 直墙超欠(m) 底板超欠(m) 至拱肩高差(m)
111.139 93.763 64.030 94.543 116.748
18°52ˊ49.81" 91°24ˊ13.56" 88°26ˊ53.49" 49°40ˊ03.20" 60°41ˊ09.73"
移 动 值（m）
DV=、0.254 D∧=、0.700 DV=、0.049 DV=、0.140 DV=、0.168
据目录（个数）是利用“ ”，按 FUNCTION->7->2->1->EXE 就可以看到个数了。
在程序中调用统计储存器中的数据时，是利用 List 调用的。具体格式如下： List X［A］+Y［A］i->C
式中 A 是点号，C 是任意储存单元。具体示例详见“程序部分”->“极程序放样” （2）、利用统计计算（SD/REG）
2、以 形式计算。以坐标换算为例：
坐标重合点 A 旧坐标 98042.831->SHIFT->RCL->A 11430.122->SHIFT->RCL->B A+Bi->E 新坐标值均为零，就不必另行输值，新旧坐标方位角差值 69°56"23"->W。 要求计算施工坐标 X=27，Y=29.1 的 B 点的测量坐标。 计算赋值：27->U，29.1->V。U+Vi->F
<=、0.663 =>、0.023 <=、0.218 <=、0.561 =>、0.298
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
元要数子程序）
U线元起点的X坐标,V线元起点的Y坐标,O线元起点里程,G线元起点切线方位 角,H线元长度,P线元起点半径(直线半径就是无穷大以10的45次方代替，R线元 止点半径,Q线元左右偏（1右，-1左，0直线） S计算的范围起点与终点，1234为起点的坐标，5678为起点的坐标。V为起点的 里程，O为方位角，G为总里程数，P为起点半径(直线半径就是无穷大以10的45 次方代替，）R线元止点半径,Q线元左右偏（1右，-1左，0直线）
程序名：YS（线元要数子程序）
If S≥100 And S≤500：Then 1234→U:5678→V:100→O:280°15′15″→G：400→H： 1000→P：1000→R：1→Q：Ifend←
曲线正反算）
显示位数，小数点后4位。 选择计算方式（N=1，正算；N=其他任意数字反算） 如果N=1,则进入正算（Lbl1)，否则进入反算(Lbl2)。 正算Lbl 1,输入里程和偏距，调用线元程序。 要素整里，并弧度化。 输入里程与起点里程比较并取绝对值，然后赋值给W。 然后调用正算子程序。 显示计算结果XY和方位角。 回到第4行继续正算计算（Goto和Lbl是联合使用的，指定执行段落的语句） 反算Lbl2,输入XY，调用反算子程序。 显示计算结果里程S和偏距Z。 回到第10行继续反算计算。
10 Lbl 2:?X: ?Y:X→I:Y→J: Prog”SUB2”← O+W→S:“S=”:S⊿ 12 Goto 2←
程序名：SUB1（正算子程序）
1 2 3 4 5 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（反算子程序）
1 G-90→T: Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z
2
Lbl 3:Prog”SUB1”:T+QEW(C+WD) →L: (J-Y)cos(L)-(I-X)sin(L) →Z
3 4
If Abs(Z)<0.0001: Then Goto 4: Else W+Z→W: Goto 3:If end← Lbl 4:0→Z:Prog “SUB1”:(J-Y) ÷sin(F) →Z
（正算子程序）
定值赋值，这个说起来太复杂，是计算公式的定值系数
计算输入的里程（偏距为0）时的X坐标（这一串语句都是计算公式） 计算输入的里程（偏距为1）时的Y坐标（这一串语句都是计算公式） 计算加入偏距之后的XY坐标。
（反算子程序）
计算测点在线路前进方向的投影距离加上起点里程，并给予一个初始的偏距为 0。 用上面得到的里程和偏距（0）进入正算子程序来计算得出新的坐标，新坐标 在与测点坐标计投距，并赋值给Z 然后判断Z的值，在0.0001的误差范围，结束判断，得到测。 上面得到的测点里程，给予偏距为0，进入正算，然后计算测点里程的偏距。
程序名:QXZFS(曲线正反算）
1 2 3 4 5 6 7 8 9 11 Fix 4← “N=”?N← If N=1:Then Goto 1:Else Goto 2:Ifend← Lbl 1:“S=”?S:“Z=”?Z:Prog "YS"← 1÷P→C:(P-R)÷(2HPR)→D:180÷π →E← Abs(S- O)→W ← Prog”SUB1”← “X=”:X⊿ Goto 1← “Z=”:Z⊿ “Y=”←Y⊿ “F=”:F-90▼DMS⊿