fx-5800P_闭附合图根水准路线近似平差计算程序PM3-6
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 是一种非常实用的计算器，在工程测量中有着广泛的应用。
CASIOfx-5800P矩阵编程计算器测量程序集锦梁宝禄
测量程序集锦梁宝禄2008.7.12CASIO fx-5800P 矩阵编程计算器测量程序集锦梁宝禄1、单交点对称基本形曲线偏角法中桩放样计算最近看了覃辉老师的CASIO fx-5800P 矩阵编程计算器《工程测量与公路测设程序加油站操作手册》后，发现个别语句中缺乏命令或符号，如PR16主程序中两句Else If F=0:Then X[K] List X[K+1]都缺List，程序不能正常运行，应该修改为Else If F=0:Then List X[K] List X[K+1]。
本人根据CASIO fx-5800P 矩阵编程计算器的特点整编了这个程序。
与覃辉老师的CASIO fx-5800P 矩阵编程计算器《工程测量与公路测设程序加油站操作手册》中的PR13、 PR16相比，它不管有没有缓和曲线都能用（没有缓和曲线提示Lh=?时，输入0即可），而且本程序还考虑到了有缓和曲线的圆曲线测设多数在HY、YH上置镜，设置了提示是否在HY、YH 上置镜，并将在HY、YH 上置镜的偏角、弦长计算出来，用起来更方便。
主程序：Deg:ClrStat:FreqOn:Norm 1 设置角度单位为十进制度15 DimZ 定义额外数组变量"JDZH="?Z 输入以m 为单位的交点桩号"JDLXZJ（-L,+R)="?D 输入交点路线转角,左偏为负,右偏为正D Z[6]:Abs(D) D 保存转角及符号Fix 3"R="?R 输入圆曲线半径"Lh="?H 输入缓和曲线长"ZZJJL=" ？I 输入整桩间距H2÷(24R) P:0.5H-H^(3)÷(240R2 ) Q 计算切线增量与内移值(R+P)tan(0.5D)+Q T 计算切线长90H÷( πR) B 计算缓和曲线偏角πR(D-2B)÷180 A 计算圆曲线长A+2H L 计算曲线长(R+P)cos(0.5D)^(-1）-R E 计算外距2T-L J:Fix 3 计算切曲差"T=":T 显示切线长"LY=":A 显示圆曲线长"L=":L 显示曲线长"E=":E 显示外距"J=":J 显示切曲差"B=":2B÷3 DMS 显示缓和曲线β角Z-T Z[1] 计算ZH 点桩号 1Z[1]+H Z[2] 计算HY 点桩号2Z[2]+0.5A Z[3] 计算QZ 点桩号3Z[3]+0.5A Z[4] 计算YH 点桩号4Z[4]+H Z[5] 计算HZ 点桩号5H=0 Goto 1 没有缓和曲线进入Lbl 1 "ZHZH=":Z[1] 显示ZH 点桩号 1"HYZH=":Z[2] 显示HY 点桩号2"QZZH=":Z[3] 显示QZ 点桩号3"YHZH=":Z[4] 显示YH 点桩号4"HZZH=":Z[5] 显示HZ 点桩号5Z[1] List X[1]:0 List Freq[1] 存储ZH 点桩号2 K 为计数变量赋初值H Z[10]:Prog "Z[10]-XY" 调子程序计算HY 或YH 点的独立坐标Z[13] Z[11]:Z[14] Z[12] 存储HY 点的独立坐标Int(Z[1]÷I)I+I List X[K] 计算并存储从ZH 点开始的第一个整桩号Prog "X[K]-HGC" 调子程序计算并显示弦切角G 与弦长C0 F 清除HY 点计算标记Do 计算ZH 点至QZ 点K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号If List X[K]<Z[2] ZH~HY 点间Then Prog "X[K]-HGC" 调子程序计算ZH~HY 点间的点Else If F=0:Then List X[K] List X[K+1]Z[2] List X[K]Prog "X[K]-HGC" 调子程序计算HY 点1 F:K+1 K 标记HY 点已完成，计数变量计数，再计算逐桩点Prog "X[K]-HGC" 调子程序计算HY 点后的第一个整桩点Else Prog "X[K]-HGC" 调子程序计算HY~QZ 点间的点IfEnd:IfEndLpWhile List X[K]+I<Z[3] 还没有计算到 QZ 点时继续循环K+1 K 计数变量计数Z[3] List X[K] QZ 点的桩号Prog "X[K]-HGC" 调子程序计算QZ 点K+1 K 计数变量计数Int(Z[3]÷I)I+I List X[K]Prog "X[K]-HGC" 调子程序计算QZ 点开始的第一个整桩号0 F 清除YH 点计算标记Do 计算QZ~HZ 点间的点K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号If List X[K]<Z[4] QZ~YH 点间Then Prog "X[K]-HGC" 调子程序计算ZH~HY 点间的点Else If F=0:Then List X[K] List X[K+1]Z[4] List X[K]Prog "X[K]-HGC" 调子程序计算YH 点1 F:K+1 K 标记YH 点已完成，计数变量计数，再计算逐桩点Prog "X[K]-HGC" 调子程序计算YH 点后的第一个整桩点Else Prog "X[K]-HGC" 调子程序计算YH~HZ 点间的点IfEnd:IfEndLpWhile List X[K]+I<Z[5] 还没有计算到HZ 点时继续循环 K+1 K:Z[5] List X[K]:0 List Freq[K] 存储HZ 点桩号0 List X[K]:2B÷3 List Y[K]Goto 2 完成计算进入Lbl 2Lbl 1"ZYZH=":Z[1] 显示ZY 点桩号 1"QZZH=":Z[3] 显示QZ 点桩号2"YZZH=":Z[5] 显示YZ 点桩号3Z[1] List X[1]:0 List Freq[1] 存储ZY 点桩号2 K 为计数变量赋初值Int(Z[1]÷I)I+I List X[K] 计算并存储从ZY 点开始的第一个整桩号 Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CDo 计算ZY 点至QZ 点K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CLpWhile List X[K]+I<Z[3] 还没有计算到 QZ 点时继续循环K+1 K 计数变量计数Z[3] List X[K] QZ 点的桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CK+1 K 计数变量计数Int(Z[3]÷I)I+I List X[K] 计算并存储从QZ 点开始的第一个整桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CDo 计算YZ 点至逐桩点的弦长K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CLpWhile List X[K]+I<Z[5] 还没有计算到 QZ 点时继续循环K+1 K:Z[5] List X[K]:0 List Freq[K] 存储YZ 点桩号Lbl 2Return没有缓和曲线时由逐桩点桩号计算弧长、弦切角与弦长子程序：X[K]-GC入口参数为逐桩点桩号 List X[K] ，计算出的弦切角存储在 List Y[K] ，弦长存储在 List Freq[K]。
《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理
算程序》班刚立：整理2013.03.16《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16算程序》班刚立：整理2013.03.16简介：卡西欧CASIO fx-5800P编程计算器，语言简单易懂，使用范围广泛，是工程测量技术人员的一项重要指标。
适用：卡西欧CASIO fx-5800P计算器使用。
《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16算程序》班刚立：整理2013.03.16NO.1：CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.0说明：本程序适用于计算器 CASIO fx-5800P，可计算：第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角和坐标正反算、竖曲线高程。
下载：点击下载NO.2：CASIO fx-5800P ZXZFS 直线正反算坐标计算程序说明：该程序适用于计算器 CASIO fx-5800P，针对直线正反算设计，正算可算直线中边桩坐标及其斜交、反算可推算直线距线路中心的里程偏距。
下载：点击下载NO.3：CASIO fx-5800P QXZF隧道超欠挖坐标计算程序Beta1.21说明：适用于铁路隧道三圆心，超欠挖检测和轮廓线放样。
下载：点击下载NO.4：CASIO fx-5800P线元法坐标计算程序说明：该程序适用于CASIO fx5800P计算器，坐标正算、反算一体程序，适用性广（包括：复曲线、S型曲线、匝道）等。
下载：点击下载NO.5：CASIO fx-5800P FWJ方位角和距离计算程序说明：本程序可计算两坐标点之间距离和方位角。
下载：点击下载NO.6：CASIO fx-5800P多边形面积计算程序说明：适用于地形测量计算特征点多边形面积。
fx-5800p坐标正、反算;面积;土方量;单一水准路线平差;复数形式单一闭、附合与无定向导线近似平差程序。
fx-5800p坐标正、反算；面积计算；土方量计算；单一水准路线近似平差计算；复数形式单一闭、附合与无定向导线近似平差计算程序。
一.ZBZS(坐标正算程序)LbI 0(零):〝X1(零)=〞?S:〝Y1(零)=〞?G:〝FWJ=〞?F:〝HD=〞?D↙〝X2=〞:S+Dcos(F)→X◢〝Y2=〞:G+Dsin(F)→X◢Goto 0(零)↙本程序中输入及显示说明输入部分：X1=? 输入第1点X坐标；Y1=? 输入第1点Y坐标；FWJ=? 输入第1点至第2点方位角（即水平角）；HD=? 输入第1点至第2点水平距离。
显示部分：X2= 显示第2点X坐标；Y2= 显示第2点Y坐标。
二.ZBFS(坐标反算程序)LbI 0(零):〝X1=〞?Z:〝Y1=〞?W:〝X2=〞?X:〝Y2=〞?Y↙X-Z→A:Y-W→B↙√(A2+B2)→D:cos-1(A÷D)→J:If B≥0(零):Then J→J:EIse 360-J →J:IfEnd↙〝FWJ=〞:J◣DMS◢〝HD=〞:D◢Goto 0(零)↙本程序中输入及显示说明输入部分：X1=? 输入第1点的X坐标；Y1=? 输入第1点的Y坐标；X2=? 输入第2点的X坐标；Y2=? 输入第2点的Y坐标；显示部分：FWJ= 显示第1点至第2点的方位角（即水平角）； HD= 显示第1点至第2点的水平距离。
三.MIAN JI(面积计算程序)LbI 0(零):〝DIAN SHU=〞?N:〝X=〞?A:〝Y=〞?B↙0(零)→K:N-1→N:A→C:B→D↙LbI 1:〝X=〞?X:〝Y=〞?Y↙(X-C)(Y+D)÷2→Q:K+Q→K:X→C:Y→D↙Dsz N: Goto 1↙〝MIAN JI=〞:Abs(K+(A-C)(B+D)÷2→M◢Goto 0(零) ↙本程序中输入及显示说明输入部分：DIAN SHU=? 输入总点数；X=? 输入第1点的X坐标；Y=? 输入第1点的Y坐标；连续输入第2、3、4、………、各点的X、Y坐标。
卡西欧Fx5800p道路三维坐标计算程序(线元法)
卡西欧5800p道路三维坐标计算程序（线元法）QXJS-000 主程序（文件名）Lbl 4：＂1.SZ=>NE＂:＂2.NE=>SZ＂:?Q:?S: Prog＂QXJS-SUB0＂↙Lblθ:Q=1 => Goto1:Q=2 => Goto2:↙θ为阿拉伯数字零Lbl 1:?Z:Prog＂QXJS-SUB1＂:Cls：＂N=＂:Locate5,1,N: （X坐标在第一行第五列显示）＂E=＂:Locate4,2,E: （Y坐标在第二行第四列显示）＂ZH=＂:Locate4,3,S:Locate9,3,＂BJ=＂:Locate12,3,Z: （桩号在第三行第四列显示）F▶DMS◢（方位角在第四行显示）Prog＂SQX-000＂: Goto4↙Lbl 2: ＂N=＂:?B: ＂E=＂:?C:B→N: C→E:Prog＂QXJS-SUB2＂: ＂S=＂:S ◢＂Z=＂:Z◢Goto4↙QXJS-SUB0 平面数据库子程序（文件名）Goto1↙Lbl 1 :IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O （线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ (一个完整的线元)。
IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙ (下一个完整的线元)，……无限添加线元。
QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫( cos(A+(X÷P+DX2)×180÷π,θ,X)→N↙V+∫( sin(A+(X÷P+DX2)×180÷π,θ,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EQXJS-SUB2 反算子程序（文件名）Lbl1:θ→Z:1→Q：Prog＂QXJS-SUB0＂: Prog＂QXJS-SUB1＂↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: θ→Z：Prog＂QXJS-SUB1＂:(C-E) ÷sin(F+90) →Z使用使用说明：1、规定以道路中线的前进方向（即里程增大的方向）区分左右；当线路左转时，P、R取负值，当线路右转时，P、R取正值，当线路为直线时，P、R以10的45次方代替，即10^(45)。
FX-5800计算器程序共6页
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:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”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:Then0.75-L→D:Goto H:Else L-0.75→D:Got o 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:ElseZ[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 Goto2: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:GotoZ: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,Ｚ◢＂Ｄ＝＂：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 3 LbI 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 If Z<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:Goto2: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。
fx5800P测量公式及程序汇总
卡西欧5800P 测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。
输出：D为平距，Q为方位角。
二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。
“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。
输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。
三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ（曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “M”？→M：180*（M-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then“X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（M-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（M-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。
fx-5800P编程应用基础
1.XE]屏幕一般显示 0。按[SOLVE]显示如下界面
A+B=C A=30 B=50 C=0
在光标在 A=0 的时候，输入 A 值如 30。在光标在 B=0 的时候输入 B 值如 50。 移动光标到 C=0。按[SOLVE] 方程求解完成。
第 6 页，共 8 页
查看空余内存容量
按[MODE] [5](PROG) 最后一行显示出空余字节数，此操作查看空余内存。如上图
fx-5800P 销售常见问题
按复位键（初次使用请务必执行此步骤！不可省略！）
1.取出绝缘片后，使用细尖物品触压计算器背面的 P 按钮以进行计算器的初始化。
【注意】此操作解决所有 fx-5800P 异常问题： 1：如主菜单显示不完整；又如无法关机等。 2：再次按复位键不会删除程序。
计算长度100公里以上主线匝道任何线型都能计算4qh29nsubq291subq292subq293subq294subq282subq287q线元法任意路线与匝道曲线直线斜交程序可输入测站与后视点坐标计算极坐标放样参数5qh210subq210q任意个变坡点连续竖曲线高程计算程序6qh45q施工水准测量记录计算程序7qh46q四等水准测量计算程序8qh47q单一闭附合图根水准测量近似平差程序h母机程序序主程序子程序母机功能说明1qh14qh15qh16qh17qh18qh19qh31qh32qh33qh34h坐标反算边长与方位角程序2h基于串列输入数据的坐标反算边长与方位角程序3h高斯平面坐标线性变换程序4h建筑坐标与测量坐标相互变换程序5h复数形式单一闭附合与无定向导线近似平差程序6h复数形式支导线坐标计算程序7h圆曲线加宽值计算程序8h缓和曲线加宽值计算程序9h路线纵断面中平测量记录计算程序10h路线填挖工程量计算程序11qh3512qh3613qh41subq411412413414h方格网法土方量计算程序h解析法带弓形多边形周长与面积计算程序h高斯投影正算反算换带计算程序14qh4215qh43subq43h测角前方交会坐标计算程序h测角后方交会坐标计算程序16qh44subq44h测边后方交会坐标计算程序17qh4518qh4619qh4720qh48h施工水准测量记录计算程序h四等水准测量计算程序h单一闭附合图根水准测量近似平差程序h高斯平面坐标正形变换程序第4页共8页卡西欧fx5800p基本操作及编程案例基本操作calc键
fx-5800P_单一闭附合图根导线近似平差程序PM3-1
单一闭附合图根导线近似平差计算程序(PM3-1)(2) 程序PM3-1，占用内存1848字节。
"CLOSED Or CONNECTING MAPPING TRAVERSE PM3-1"\ 显示程序标题 Norm 1"CLOSED(0) Or CONNECTING(1)="?Z 导线类型，0为闭合导线，1为附合导线 "UNKNOWN POINT n="?P 未知导线点数 Deg:Fix 3 设置十进制度为单位"XA(m),0 To BEAR A ¼B(Deg)="?A 输入已知点A 的x 坐标或输入≤0的数值 If A>0:Then "YA(m)="?B:Else "BEAR A ¼B(Deg)="?R:IfEndA>0时为输入A 点y 坐标，否则为输入A →B 的方位角"XB(m)="?C:"YB(m)="?D 输入已知点B 的坐标 If A>0:Then Pol(C-A,D-B):Cls 计算A →B 的方位角 J<0J+360¼J:J ¼R"DIST A ¼B(m)=":I \显示A →B 的水平距离 "BEAR A ¼B(DMS)=":R `DMS \ 显示A →B 的方位角 IfEndIf Z=1:Then "XC(m)="?E:"YC(m)="?F 附合导线，继续输入已知点C 的坐标 "XD(m),0 To BEAR C ¼D(Deg)="?G 输入已知点D 的x 坐标或输入≤0的数值 If G>0:Then "YD(m)="?H:Else "BEAR C ¼D(Deg)="?S:IfEndG>0时为输入D 点y 坐标，否则为输入C →D 的方位角If G>0:Then Pol(G-E,H-F):Cls 计算C →D 的方位角 J<0J+360¼J:J ¼S"DIST C ¼D(m)=":I \显示C →D 的水平距离 "BEAR C ¼D(DMS)=":S `DMS \ 显示C →D 的方位角 IfEndElse If R>180:Then R-180¼S:Else R+180¼S:IfEnd 闭合导线计算A →B 的反方位角"BEAR B ¼A(DMS)=":S `DMS \ 显示B →A 方向的方位角 IfEndClrStat:FreqOn清除统计串列List X,List Y ,List Freq ，打开频度串列0¼M 累加边长和变量清零 For 1¼I To P+1Norm 1:"POINT n=":I \显示当前输入的观测数据计数 "ANGLE(Deg)="?¼List X[I] 输入水平角观测值 "DIST(m)="?¼List Y[I] 输入水平距离观测值 List Y[I]+M ¼M 累加水平距离和If I=1:Then R+List X[I]¼L:Else List Freq[I-1]+List X[I]¼L:IfEnd 推算导线边方位角If L>180:Then L-180¼L:Else L+180¼L:IfEndL>360L-360¼L判断方位角是否大于360 L ¼List Freq[I] 存储导线边方位角 Next"LAST ANGLE(Deg)="?¼List X[P+2]输入最后一个水平角 List Freq[P+1]+List X[P+2]¼LIf L>180:Then L-180¼L:Else L+180¼L:IfEndL>360L-360¼L判断方位角是否大于360L ¼List Freq[P+2] 存储最后一个方位角 3600(L-S)¼U 以秒为单位的方位角闭合差Fix 1:"ANGLE CLOSE ERROR(S)=":U \ 显示方位角闭合差 60(P+2)¼W 以秒为单位的方位角闭合差限差If Abs (U)>W:Then "ANGLE CLOSE ERROR OVER.":IfEnd 显示角度闭合差超限-U ÷(P+2)¼V 计算角度改正数2¼DimZ:0¼Z[1]:0¼Z[2] 定义额外变量数组用于存储坐标增量累加和 For 1¼I To P+1 分配角度改正数并计算导线边的坐标增量List X[I]+V ÷3600¼List X[I] 计算并存储改正后的角度If I=1:Then R+List X[I]¼L:Else List Freq[I-1]+List X[I]¼L:IfEnd 推算导线边方位角If L>180:Then L-180¼L:Else L+180¼L:IfEndL>360L-360¼L判断方位角是否大于360L ¼List Freq[I] 存储角度改正后的导线边方位角 List Y[I]cos(L)¼X:List Y[I]sin(L)¼Y 计算导线边坐标增量 X+Z[1]¼Z[1]:Y+Z[2]¼Z[2] 累加导线边坐标增量 NextList Freq[P+1]+List X[P+2]+V ÷3600¼L 计算最后一条导线边的方位角If L>180:Then L-180¼L:Else L+180¼L:IfEndL>360L-360¼L判断方位角是否大于360 L ¼List Freq[P+2] 存储最后一条导线边的方位角 3600(L-S)¼U 以秒为单位的方位角闭合差检核计算"CHECK ANGLE CLOSE ERROR(S)=":U \ 显示方位角闭合差检核结果 If Z=0:Then Z[1]¼U:Z[2]¼V 计算闭合导线的坐标增量闭合差Else C+Z[1]-E ¼U:D+Z[2]-F ¼V:IfEnd 计算附合导线的坐标增量闭合差M ÷(U 2+V 2)¼K 计算导线全长相对闭合差Fix 3:"DELTA X(m)=":U \ 显示导线X 坐标增量闭合差 "DELTA Y(m)=":V \ 显示导线Y 坐标增量闭合差 Fix 0:"RELAT CLOSE ERROR=":K \ 显示导线全长相对闭合差 -U ÷M ¼U:-V ÷M ¼V 计算坐标增量闭合差每米改正数If K<2000:Then "RELAT CLOSE ERROR OVER.":IfEnd 显示全长相对闭合差超限2(P+1)¼DimZ 定义额外变量数组用于存储未知点的坐标For 1¼I To P+1 分配坐标闭合差并计算未知点的坐标List Y[I]cos(List Freq[I])¼X:List Y[I]sin(List Freq[I])¼Y 计算导线边坐标增量 X+UList Y[I]¼X:Y+VList Y[I]¼Y 计算改正后的导线边坐标增量 If I=1:Then C+X ¼Z[2I-1]:D+Y ¼Z[2I]Else Z[2(I-1)-1]+X ¼Z[2I-1]: Z[2(I-1)]+Y ¼Z[2I]:IfEndNorm 1:"POINT n=":I \显示未知点号 Fix 3:"XP(m)=":Z[2I-1]\ 显示未知点的X 坐标 "YP(m)=":Z[2I]\ 显示未知点的Y 坐标 NextIf Z=0:Then Z[2(P+1)-1]-C ¼X:Z[2(P+1)]-D ¼Y 计算闭合导线的坐标检核结果 Else Z[2(P+1)-1]-E ¼X:Z[2(P+1)]-F ¼Y:IfEnd 计算附合导线的坐标检核结果"CHECK X(m)=":X \ 显示X 坐标检核计算结果 "CHECK Y(m)=":Y \ 显示Y 坐标检核计算结果 ClrStat:FreqOff 清除统计串列List X,List Y ,List Freq ，关闭频度串列 For 1¼I To P 分配坐标闭合差并计算未知点的坐标 Z[2I-1]¼List X[I]:Z[2I]¼List Y[I] 将未知点的坐标存储到统计串列List X,List Y 中 Next"PM3-1END" (3) 程序说明程序先提示用户输入导线类型与未知点总数。
FX-5800P线路计算程序
FX-5800P线路计算程序F[NPT]（主程序）Lbl Q（选择单点或多点计算模式）4→DimZ“SELECT MODE”“F0:ONE POINT”“F1:N POINT”?→Z[4]If Z[4]=0:Then Goto B: Else If Z[4]=1:Then Goto A: Else Cls :Goto Q:IfEnd: IfEndLbl A（批量计算直角坐标和极坐标元素入口）Norm 1:Deg:FreqON:ClrStat:0→N:ClsProg"STATION":IF Z[3]=-1:Then Cls:Stop:IfEndClsZ[1]→E“[KS]+Ke]i=”?E:E→Z[1]:Cls“STEP=”?→Z[2]:Cls“Zp=”?Z90→C:Cls:”ANG=”?CLbl 1（循环生成桩号序列）ReP(E)→List Freq[1]ReP(E)+（Z[2]-10(Frac(0.1ReP(E)))→List Freq[2]For 3→M To (Int(((ImP(E)-ReP(E))÷Z[2])+2-1)List Freq[M-1]+Z[2]→List Freq[M]NextLbl 2（循环计算坐标）ImP(E)→List Freq[M+1]For 1→M To (Int((ImP(E)- ReP(E))÷Z[2])+2)List Freq[M]→SProg"DATP[MC]"Prog"TURN[YS]"Prog"ZS"Fix3X→ListX[M]Y→ListY[M]Cls:Norm 1Locate 2,2,”COMPUTER…”Locate 13,2, Intg(((ImP(E)- ReP(E))÷Z[2])+2-M)Fix 3NextLbl 3（提取结果并显示）Cls:”PRESS[MODE][4]=>AnsF[XYK]Or[EXE] =>SET OUT”◄For 1→M To Int((ImP(E)- ReP(E))÷Z[2])+2List X[M]→XList Y[M]→YList Freq[M]→SProg"POL"Prog"DISP.KZ"◄Prog"DISP.XY"◄NextGoto ALbl B（单点计算模式入口）Norm 1:Deg:0→N(置零）Prog"STATION"Cls:90→C:”ANG=”?CLbl 4（单点计算模式）Cls:”Kp=”?SIF S=-1:Then Cls:Stop:IfEndCls:”Zp=”?ZProg"DATP[MC]"Prog"TURN[YS]"Prog"ZS"Prog"POL":Prog"DISP.XY"◄Goto 4STATION（测站输入子程序）ClsZ [2N+3]→E"St[X]+St[Y]i"?EE→Z[2N+3]ReturnDATP[MC]（平面数据库子程序）If S≤K ei:Then [ [ K si,X Si , Y Si , T Si , R Si ,R ei,K ei,Q i] ]→Mat A :Return:IfEndIf S≤K e i+1:Then [ [ K si+1,X si+1 , Y si+1 , T si+1, R si+1 ,R ei+1,K ei+1,Q i+1] ]→Mat A:Return:IfEnd .............TURN[YS]（将存在矩阵中的线元数据赋给正算标准变量）Mat A[1,1]→OMat A[1,2]→UMat A[1,3]→VMat A[1,4]→GMat A[1,5]→PMat A[1,6]→RMat A[1,7]→HMat A[1,8]→QReturnZS（线路正算预备子程序）Abs(S-O)→W(P-R)÷(2PR(H-O))→DProg"G[ZS]"ReturnG[ZS]（高斯-勒戎德4节点近似积分计算线元坐标子程序）Lbl 00.1739274226→A: 0.32607257774→B0.0694318442→K: 0.3300094782→LLbl 1U+W(ACos(G+180QKW(1÷P+KWD)÷π)+BCos(G+180QLW(1÷P+LWD)÷π)+BCos(G+180(1-L)QW(1÷P+(1-L)WD)÷ π)+ACos(G+180(1-K)QW(1÷P+(1-K)WD)÷π))→X V+W(ASin(G+180QKW(1÷P+KWD)÷π)+BSin(G+180QLW(1÷P+LWD)÷π)+BSin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+ASin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))→Y G+180QW(1÷P+WD)÷π+C→FX+Z Cos(F)→XY+Z Sin(F)→Y360Frac((360+F-C)÷360)→TReturnPOL（极坐标计算子程序）Pol(X-ReP( Z [2N+3 ]),Y-ImP(Z [2N+3 ])+10^(-5))J<0=>J+360→JReturnDISP.K Z（桩号及偏距显示子程序）Fix 3:Cls"K p=":Locate 5,2,SLocate 1,3," Z p="Locate 5,4,ZReturnDISP.XY（极坐标要素及直角坐标显示子程序）Fix 3:Cls"HR=":Locate 5,1,J0"HD=":Locate 5,2,I"X p=":Locate 5,3,X"Y p=":Locate 5,4,YReturn关于程序的几点说明1.写此程序的初衷是应网友“K0+000"之邀，提供一份基本程序供初学者参考之用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单一闭附合图根水准路线近似平差计算程序(PM3-6)
(1) 计算原理
单一闭附合图根水准路线近似平差的原理是，将高差闭合差反号、按测段路线长或测站数比例分配计算各水准测段的高差改正数，并据此计算出未知点的高程。
(2) 程序——PM3-6，占用内存544字节。
"CLOSED Or CONNECTING MAPPING LEVEL PM3-6"显示程序标题
"LEVEL TYPE,PLATE(1)="?P输入水准路线类型数字，1代表平坦，其余数代表山地"START H(m)="?A输入起点已知高程
"END H(m)="?B输入终点已知高程，闭合水准路线时为起点已知高程ClrStat:FreqOn基本设置
"HEIGHT NUM="?N输入测段高差数
N DimZ定义额外数组变量用于存储平差后点的高程
0X:0Y累加高差,路线长变量清零
For 1I To N
"n=":I显示测段号
"h(m)="?List X[I]输入测段高差
"L(km) Or n="?List Y[I]输入测段路线长或测站数
List X[I]+X X:List Y[I]+Y Y累加路线长与高差
Next
A+X-B F计算高差闭合差
If P=1:Then 0.04(Y)W:Else 0.012(Y)W:IfEnd图根水准高差闭合差限差
"H CLOSE ERROR(MM)=":1000F显示高差闭合差
"Σ(L)km OrΣ(n)="Y显示总路线长或总测站数
If Abs (F)>W:Then "CLOSE ERROR OVER.":IfEnd显示高差闭合差超限
-F÷Y V计算每km或每站高差改正数
For 1I To N
List X[I]+VList Y[I]List Freq[I]计算改正后的测段高差
If I=1:Then A+List Freq[I]Z[I]:Else Z[I-1]+List Freq[I]Z[I]:IfEnd
"n=":I显示测段号
"h ADJUST(m)=":List Freq[I]显示改正后的测段高差
"Hn ADJUST(m)=":Z[I]显示改正后点的高程
Next
"CLOSE TEST(mm)=":1000(Z[I]-B)显示高程检核结果
"PM3-6END"
(3) 程序说明
程序先提示用户输入水准路线类型，按键为平坦路线，要求其后输入以km为单位的水准测段路线长；按其余数字键与键为山地水准路线，要求其后输入水准测段测站数。
提示用户输入起点已知高程与终点已知高程，当为闭合水准路线时，输入的终点高程应等于起点高程。
提示用户输入水准测段数，按从起点到终点方向的顺序分别输入测段高差与路线长(或测站数)，并分别显示以mm为单位的高差闭合差、以km为单位的总路线长(或总测站数)。
当闭合差超限时，程序给出提示"CLOSE ERROR OVER."，并继续计算。
程序按从起点到终点方向的顺序分别显示测段高差平差值、未知点高程值及检核计算结果。
图3-6为按图根水准测量要求施测的某附合水准路线观测成果略图。
BM-A和BM-B为已知高程水准点，图中箭头表示水准测量前进方向，路线上方的数字为测得的测段高差(m)，路线下方数字为该段路线的长度(km)，试用近似平差法计算待定点1，2，3点的高程。
表3-7 使用程序PM3-6计算图根水准测量的成果 点名
路线长 i L (km) 观测高差i h (m) 改正数i V (m)改正后高差i h ˆ(m) 高程 H (m) BM-A 45.286
1.6 +
2.331 -0.008 2.323
1 47.609
2.1 +2.813 -0.011 2.802
2 50.411
1.7 -
2.244 -0.008 -2.252
3 48.159
BM-B 2.0 +1.430 -0.010 +1.420 49.579
Σ 7.4 -0.037
执行程序PM3-6，计算图3-6附合水准路线未知点高程的屏幕提示与用户操作过程如下： 屏幕提示 按键 说明
CLOSED Or CONNECTING MAPPING LEVEL PM3-6 显示程序标题
LEVEL TYPE,PLATE(1)=? 1 输入水准路线类型数字
START H(m)=? 45.286 输入起点已知高程
END H(m)=? 49.579 输入终点已知高程
h NUM=? 4 输入测段数
n=1 提示第1测段输入数据
h(m)? 2.331 输入第1测段高差
L(km) Or n=? 1.6 输入第1测段路线长
n=2 提示第2测段输入数据
h(m)? 2.813 输入第2测段高差
L(km) Or n=? 2.1 输入第2测段路线长
n=3 提示第3测段输入数据
h(m)? -2.244 输入第3测段高差
L(km) Or n=? 1.7 输入第3测段路线长
n=4 提示第4测段输入数据
h(m)? 1.43 输入第4测段高差
L(km) Or n=? 2 输入第4测段路线长
h CLOSE ERROR(mm)=37 显示高差闭合差
Σ(L)km Or Σ(n)=7.4 显示路线长或总测站数
n=1 显示1点数据
h ADJUST(m)=2.323 显示第1测段平差后高差
Hn ADJUST(m)=47.609 显示1点平差后高程
n=2 显示2点数据
h ADJUST(m)=2.803 显示第2测段平差后高差
Hn ADJUST(m)=50.412 显示2点平差后高程
n=3 显示3点数据
h ADJUST(m)=-2.253 显示第3测段平差后高差
Hn ADJUST(m)=48.159 显示3点平差后高程
n=4 显示4点数据
h ADJUST(m)=1.420
显示第4测段平差后高差
图3-6 附合水准路线略图
Hn ADJUST(m)=49.579
显示检核点高程CLOSE TEST(mm)=0.000
高差闭合差检核结果PM3-6END 程序运行结束显示。