CASIO fx-5800P实用工程测量程序

合集下载

CASIOfx5800P实用工程测量程序

一、QXFY 辛甫森公式放样程序1. “X0”? U：“Y0”?V2. “XA”? A：“YA”? B：“CA”? C：“1÷RA”?D：“1÷RB”?E：“KA”?F：“KB”? G3. Lb1 1：“KI”?H：“JJ”?L：“Y+Z－”?R4. If H>G Or H<F : Then Goto 1: IfEnd6. (E-D) ÷Abs(G-F) P: Abs(H –F)→Q：P×Q→Z：D+Z→T7. C+（Z+2D）Q×90÷π→W :“QXFWJ”：8. C+(Z÷4+2D)Q×22.5÷π→M：C+（3Z÷4+2D）Q×67.5÷π→N：C+(Z÷2+2D)Q×45÷π→K9. A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W+L) →X：“X＝”：X10. B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(W))÷12+Rsin (W+L)→Y：“Y＝”：Y11. Pol((X-U)，（Y-V）)If J≤0 Then J+360→J: IfEnd : “FWJ”:J12. “JU”: I13. Goto 1程序显示说明：须输入参数：X0:置镜点X (对应变量U) Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)YA:曲线起算点Y (对应变量B)CA：曲线起算点切线方位角(对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负(对应变量D)1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线向右的夹角)(对应变量L)D“Y + Z－：偏距，右正左负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)X0Y0KB本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。

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 是一种非常实用的计算器，在工程测量中有着广泛的应用。

工程测量中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）这种方法计算器的运算效率比较高，编程也比较简便。

CASIO fx-5800p测量程序

CASIO fx-4800P、fx-5800P型计算器用于线路施工曲线中线点坐标的计算程序中铁十局三建公司工程技术部摘要：本文介绍了CASIO fx-4800P 、fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。

本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量，对于测量工作者有较大的参考和指导作用。

关键词：曲线线路施工测量计算程序1．概述过去，线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。

对于曲线线路一般的测量方法是：经纬仪置于某一中线点上，采用偏角法拨角再用钢尺量距来定出中线点。

随着电子技术进步和经济发展，测量仪器和测量方法的不断改进，目前，全站仪已广泛地应用于工程施工测量中，极大的提高了测量工作效率。

但是，在进行铁路、公路工程的曲线线路施工测设时，需要在线路所在区域建立统一坐标系或独立坐标系，利用坐标变换的方法，将整个曲线的三个部分（第一缓和曲线、中间圆曲线、第二缓和曲线）统一到同一坐标系中。

根据坐标系的建立，计算出整个曲线内任意点的坐标，再采用全站仪利用极坐标方法进行施工放样。

前提是首先利用计算器计算出各中线点坐标，然后才能进行放样。

而普通型计算器不仅计算速度慢，且要求计算者必须正确地记忆很多计算公式，计算繁琐而且容易出错，满足不了现场测设工作的要求。

为了能够快速准确地为全站仪提供测设数据，发挥全站仪快速测设的特点，提高测量工作效率，应采用可编程的计算器，编制计算程序。

本文主要介绍应用CASIO fx-4800P型计算器的计算程序，供公司测量同行们参照使用。

2．计算程序QXZBJS（文件名：曲线坐标计算fx-4800P）Defm2:R：L：A：N“ZH：X=”：E“ZH：Y=”：F：“FWJ=”：K“ZH：LC=”： P=L2/(24R)-L4/(2688R3):M=L/2-L3/(240R2):T“T”=（R+P）tng(A/2)+M ◢G=RAπ/180：“S”S=G+L◢LbiA：｛C，V｝：C“CSDLC=”：V“HXPJ=”：D=C-K：D≤L＝＞I=D-D5/（40R2L2）：U=D3/(6RL)-D7/（336R3L3):J=√（I2+U2）：Goto1：≠＞D≤G＝＞O=90（2D-L）/( Rπ)：I=RsinO+M：U=R（1-cosO）+P：J=√（I2+U2）：Goto2：≠＞D=S-（C-K）： = D-D5/（40R2L2）：Z[2]=D3/6RL-D7/（336R3L3）：I=T+（T-Z[1]）cosA-Z[2]sinA：U=（T-Z[1]）sinA+Z[2]cosA：J=√（I2+U2）：Goto3：Lbi1:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-30D2/ （RLπ）：H=F-90D2/ （RLπ）：≠＞Q=F+30D2/ （RLπ）：H=F+90D2/（ RLπ）⊿ Goto4：Lbi2:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I)：H=F-O：≠＞Q= F+tng-1(U/I)：H=F+O⊿Goto4：Lbi3:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I):H=F-(A-90(S-(C-K))2/ （RLπ）): ≠＞Q= F+tng-1(U/I):H=F+(A-90(S-(C-K))2/ （RLπ）):⊿ Goto4：Lbi4:B=90+H:H＜0＝＞H“QXFWJ”=B+360◢≠＞H≥360＝＞H“QXFWJ”=H-360 ◢≠＞H“QXFWJ”=H◢⊿Goto5：Lbi5: X“CSD:X”=JcosQ+N+VcosB◢ Y“CSD:Y”=JsinQ+E+VsinB◢GotoA3．程序说明3.1 输入已知变量R—圆曲线半径，显示R？L—缓和曲线长，显示L？A—曲线转向角，显示A？E—直缓点纵坐标，显示ZH：X=？N—直缓点横坐标，显示ZH：Y=？F—第一切线方位角，即ZH至JD的方位角，显示FWJ=？K—直缓点里程，显示ZH：LC=？3.2 计算待求量T—切线长度，显示T= …S—曲线全长，显示S= …Z[3]—外矢距，即JD到QZ的距离，显示E0= …3.3 输入待求变量K—输入待求（测设）点的里程，显示LC=？V—横向偏距，即测设点左、右侧外移距的偏移量，若为中线点输入0；右侧输入“+”值，左侧输入“-”值。

工程测量中CASIO fx―5800P编程计算器线路坐标通用程序应用探讨.doc

工程测量中CASIO fx―5800P编程计算器线路坐标通用程序应用探讨摘要：随着CASIO fx-5800P可编程计算器在工程测量中广泛应用，编辑一个线路正算程序，不同的工程只需改变通用程序数据库的曲线要素，然后输入里程和到中桩的左右偏距，即可提供线路任意点坐标。

关键词：线路正算；里程；线元；坐标；偏距前言1 程序中涉及的几个概念说明1.1 线路正算：根据里程和到中桩的左右偏距，求坐标。

1.2 偏距：系指线路某点在法线方向偏离线路中线的距离。

直线上垂直于线路方向，曲线上垂直于切线方向。

1.3 主程序名称：“MG-ZB”Lbl 3：“DKI”？K：Prog“DAT-M”： Prog“GBZS”？坻Goto3？坻注：（ DAT-M与数据库程序“DAT-M”对应）1.3.1 子程序1：程序名“GBZS”Lbl 0：（P-R）÷（2（H-O）PR）→D：“L（-ZUO+YOU）”？L：“YJJ”？M：Abs（K-O）→J：Prog“SUB1”：F-M→F“F=”：F？?DMS？?“X=”：U→X？?“Y=”：V→Y？??1.3.2 子程序2：程序名“SUB1”4→DimZ：0.1184634425→A：0.2393143352→B：0.2844444444→Z[4]：0.0469100770→C：0.2307653449→E：0.5→Z[1]：I+J（ACos（G+QCJ（1÷P+CJD）×180÷∏）+BCos（G+QEJ（1÷P+EJD）×180÷∏）+ Z[4]Cos （G+QZ[1]J（1÷P+Z[1]JD）×180÷∏）+BCos（G+Q（1-E）J（1÷P+（1-E）JD）×180÷∏）+ACos（G+Q（1-C）J（1÷P+（1-C）JD）×180÷∏））→X：S+J（ASin（G+QCJ（1÷P+CJD）×180÷∏）+BSin（G+QEJ（1÷P+EJD）×180÷∏）+Z[4]Sin（G+QZ[1]J（1÷P+Z[1]JD）×180÷∏）+ BSin（G+Q （1-E）J（1÷P+（1-E）JD）×180÷∏）+ASin（G+Q（1-C）J（1÷P+（1-C） JD）×180÷∏））→Y：G+QJ（1÷P+JD）×180÷∏+M→F？坻X+LCos（F）→U？坻Y+LSin（F）→V？坻1.3.3 子程序3：数据程序名：“DAT-M”（DAT-M可以随意改，但要和MG-ZB主程序匹配）If K“终点里程”：Then STOP：Return：IfEnd？坻If K≥“直线起点里程”And K？芨“直线终点里程”：Then“直线起点X坐标”→I ：“直线起点Y坐标”→S：“直线起点里程”→O：“直线方位角”→G：“直线：终点里程”→H：1×1045→P ：1×1045→R：0→：Q Return：IfEnd？坻If K>“缓和曲线起点里程” And K？芨“缓和曲线终点里程”：Then “缓和曲线起点X坐标”→I：“缓和曲线起点Y坐标”→S：“缓和曲线起点里程”→O：“方位角”→G：“缓和曲线终点里程”→H：1×1045→P：“圆曲线半径”→R：+1或-1→Q：Return：IfEnd？坻If K>“圆曲线起点里程”And K？芨“圆曲线终点”：Then“圆曲线起点X坐标”→I：“圆曲线起点Y坐标”→S：“圆曲线起点里程”→O：“方位角”→G：“圆曲线终点里程”→H：“圆曲线半径”→P：“圆曲线半径”→R：+1或-1→Q：Return：IfEnd？坻If K>“缓和曲线起点里程” And K？芨“缓和曲线终点”：Then“缓和曲线起点X坐标”→I：“缓和曲线起点Y坐标”→S：“缓和曲线起点里程”→O：“方位角”→G：“缓和曲线终点里程”→H：“圆曲线半径”→P ：1×1045→R：+1或-1→Q：Return：IfEnd？坻If K>“直线起点里程”And K？芨“直线终点里程”：Then“直线起点X坐标”→I ：“直线起点Y坐标”→S：“直线起点里程”→O：“直线方位角”→G：“直线：终点里程”→H：1×1045→P：1×1045→R：0→：Q Return：IfEnd输入完了第一部分的时候退出编辑，运行程序，里程输入直线终点里程，偏距输入0，方位角既是第一缓和曲线起点方位角。

卡西欧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←┘以下未完程序由读者完成。

卡西欧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-2013-3-31

YL自编“XØ”?C:“YØ”?D:Lbi 1:“X2”?X:“Y2”?Y:If(X-C)=Ø:Then Goto 2:E ls e Goto 3:IfEndLbi 2: If(Y-D)> Ø:Then“Q=”: 9Ø°→W◢Else“Q=”:27Ø°→W◢IfEnd:Goto 6Lbi 3: If (Y-D)= Ø: Then Goto4: E lse Goto 5: IfEndLbi 4: If(X-C)> Ø:Then“Q=”: Ø°→W◢Else“Q=”:18Ø°→W◢IfEnd: Goto 6Lbi 5: tan-1（（Y-D）÷（X-C））→W：If（X-C）<Ø :Then W+18Ø→W: I fE nd: If (X-C)>Ø and (Y-D)<Ø :Then W+360→W: IfEnd“Q=”: W°→W◢Lbi 6:“L=”:√¯((X-C)2+(Y-D)2)→T◢Goto 1说明:(已知两点坐标,反算方位角及两点间距离)先按FILE键,光标选择QL,按EXE运行。

输入：XØ？测站点（或起算点）X轴坐标，按EXEYØ？测站点（或起算点）Y轴坐标，按EXEX2？后视点（或方向点）X轴坐标，按EXEY2？后视点（或方向点）Y轴坐标，按EXE显示：Q 方位角，按EXEL 两点间距离再按EXE进行循环运算，重复输入X2？Y2？不进行循环运算按AC退出。

“XØ”?C: “YØ”?D: Lbi 1:“Q”?W:“L”?M：“X=”:C+Mcos(W)→X◢“Y=”:D+Msin(W)→Y◢Goto 1说明:(已知一点坐标，方位角、距离，求另一点坐标)先按FILE键,光标选择XY,按EXE运行。

CASIO Fx-5800P计算器测量计算程序

CASIO Fx-5800P计算器测量计算程序一、井下斜距改成平距和高差的计算程序“SJ=”？S：“CZJ=”？B：“YQG=”？C：“QSG=”？DS×cos(B)→LS×sin(B)-C+D→V“L=”：L◢“GC=”：V◢CLS说明：SJ→斜距；CZJ→垂直角；YQG→仪器高；QSG→前视高；L→平距；GC→高差。

二、测量基本控制导线坐标计算程序“L=”？L：“GC=”？V：“SBJ=”？AW+A→WIF W＜180：Then W+180→W: Else W-180→W: IFEndIF W＜360：Then W→W: Else W-360→W: IFEndIF W＜360：Then W→W: Else W-360→W: IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“FWJ=”:W DMS◢“X=”：X◢“Y=”：Y◢“Z=”：Z◢CLS说明：(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、L→平距；GC→高差；SBJ→水平角；FWJ→方位角；X→X坐标；Y→Y坐标；Z→高程。

三、井下测量导线坐标计算程序“SJ=”？S：“CZJ=”？B：“YQG=”？C：“QSG=”？D ：“SBJ=”？A S×cos(B)→LS×sin(B)-C+D→VZ+V→ZW+A→WIF W＜180：Then W+180→W:Else W-180→W:IFEndIF W＜360：Then W→W:Else W-360→W:IFEndIF W＜360：Then W→W:Else W-360→W:IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“L=”：L◢“GC=”：V◢“FWJ=”:W DMS◢“X=”：X◢“Y=”：Y◢“Z=”：Z◢CLS说明：(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、SJ→斜距；CZJ→垂直角；YQG→仪器高；QSG→前视高；L →平距；GC→高差；SBJ→水平角；FWJ→方位角；X→X坐标；Y→Y坐标；Z→高程。

fx-5800P计算器在工程测量中的应用2(着重于编程)

fx－5800P计算器在工程测量中的应用(二)七、统计计算的简介：1、 SD（单变量统计计算）模式。

操作：MODE→ 3 （SD）2、 REG（双变量回归计算——线性、二次、对数、e指数、ab指数、乘方、逆回归）。

操作：MODE→ 4 （REG）（一）在使用STAT编缉器列表屏幕输入样本数据之前：1、统计频率的打开或关闭设置：SHIFT→MODE→▼→ 5 → 1 （FreqON）或 2 （FreqOFF）2、删除所有STAT编辑器数据：在已经进入SD或REG模式情况下：FUNCTION→ 5 （STAT）→ 1 （EDIT）→ 2 （Del All）→EXE或EXIT（放弃）如果为计算器第一次使用，或已经恢复初始设置的，该步可省略。

（二）样本数据的输入：在已经进入SD或REG模式情况下，在STAT编缉器列表屏幕内1、顺序输入各样本值并按EXE（确认）2、完成一个组值输入后，利用方向键将光标移到另一组值（Y列或FREQ列）的顶部单元格，继续对另一组值的输入并确认。

3、样本数据输入可为数值也可以是数值的表达式。

4、最多可输入199行的样本数据。

（三）显示统计结果：1、在STAT编辑器画面内（包含有样本数据）。

FUNCTION→ 6 （RESULT）2、利用上下方向键可翻阅各统计结果值（各值含义附后）3、按EXIT键可返回STAT编辑器画面4、可以执行特定统计计算。

在STAT编辑器画面内，按FUNCTION→ 1 （→COMP），返回COMP模式计算屏幕。

（或原本就在CONP模式下，查最近一次统计特定变量值）。

其操作为：FUNCTION→ 7 （STAT）→ 2 （VAR）→选择需要执行的特定统计计算命令（如2：x），然后按EXE。

并可重复以上操作，显示其他特定变量值。

（四）样本数据的检查、修改：可用移动光标对所有样本数据进行检查，其修改有：1、替换单元格的内容：将光标移至要替换内容的单元格，输入新值并确认2、插入行：将光标移至要插入行的位置，FUNCTION→ 5 （STST）→ 1 （Edit）→ 1 （Int Row）。

CASIO fx-5800p计算器测量实用程序加数据库

CASIO fx-5800p道路主线坐标放样程序简化使用程序说明：此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示（包括括号），输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。

ZBFY(道路主线坐标放样程序母程序)：Lbl 0↵“KP=”?P↵If P<(第一个曲线的结束桩号)：Then↵（第一个曲线的交点x坐标）→X↵（第一个曲线的交点y坐标）→Y↵（第一个曲线的上一交点x坐标）→M↵（第一个曲线的上一交点y坐标）→N↵（第一个曲线的转角，左-右+）→O↵（第一个曲线的半径）→R↵（第一个曲线的第一缓和曲线长度）→B↵（第一个曲线的第二缓和曲线长度）→C↵（第一个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0:IfEnd↵If P<(第二个曲线的结束桩号)：Then↵（第二个曲线的交点x坐标）→X↵（第二个曲线的交点y坐标）→Y↵（第二个曲线的上一交点x坐标）→M↵（第二个曲线的上一交点y坐标）→N↵（第二个曲线的转角，左-右+）→O↵（第二个曲线的半径）→R↵（第二个曲线的第一缓和曲线长度）→B↵（第二个曲线的第二缓和曲线长度）→C↵（第二个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0:IfEnd↵...(重复If到IfEnd的语句，有n个曲线，就重复n-1次) ...（最后一个曲线的交点x坐标）→X↵（最后一个曲线的交点y坐标）→Y↵（最后一个曲线的上一交点x坐标）→M↵（最后一个曲线的上一交点y坐标）→N↵（最后一个曲线的转角，左-右+）→O↵（最后一个曲线的半径）→R↵（最后一个曲线的第一缓和曲线长度）→B↵（最后一个曲线的第二缓和曲线长度）→C↵（最后一个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0 (结束)-ZBFY(带“-”号的程序表示子程序)：Deg:Fix3:26→DimZ↵Lbl0↵If O<0:Then -1→W:Else 1→W:IfEnd:W O→A↵B2÷24÷R-B∧(4) ÷2688÷R∧(3)+B∧(6)÷506880÷R∧(5)→Z〔6〕↵C2÷24÷R-C∧(4) ÷2688÷R∧(3)+C∧(6)÷506880÷R∧(5)→Z〔7〕↵B÷2-B∧(3)÷240÷R2+B∧(5)÷34560÷R∧(4)→Z〔8〕↵C÷2-C∧(3)÷240÷R2+C∧(5)÷34560÷R∧(4)→Z〔9〕↵Z〔8〕+(R+ Z〔7〕-（R+ Z〔6〕）cos(A))÷sin(A)→S↵Z〔9〕+(R+ Z〔6〕-（R+ Z〔7〕）cos(A))÷sin(A)→T↵RAπ÷180÷(B+C)÷2→L↵K-S→Z〔1〕↵Z〔1〕+B→Z〔2〕↵Z〔1〕+L÷2+(B-C) ÷4→Z〔3〕↵Z〔1〕+L-C→Z〔4〕↵Z〔4〕+ C→Z〔5〕↵Pol(X-M,Y-N):J →Z〔20〕:J+O→Z〔19〕↵X-Scos(Z〔20〕) →Z〔21〕↵Y-Ssin(Z〔20〕) →Z〔22〕↵X+Tcos(Z〔19〕) →Z〔23〕↵Y+Tsin(Z〔19〕) →Z〔24〕↵If P> Z〔1〕:Then Goto1:IfEnd↵Z〔1〕-P →L↵“XP=”:X-(S+L)cos(Z〔20〕) →F“YP=”:Y-(S+L)sin(Z〔20〕) →GZ〔20〕→Z↵Goto 5↵Lbl 1↵If P> Z〔2〕:Then Goto 2:IfEnd↵P- Z〔1〕→L:L→Z〔14〕:B→Z〔15〕:Prog”-FY”↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+90WL2÷(BRπ)→Z↵Goto 5↵Lbl 2↵If P> Z〔4〕:Then Goto 3:IfEnd↵P- Z〔1〕→L:90(2L-B) ÷R÷π→Z〔13〕↵Rsin(Z〔13〕)+ Z〔8〕→Z〔16〕:R(1-cos(Z〔13〕))+ Z〔6〕→Z 〔17〕↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+W Z〔13〕→Z↵Goto 5↵Lbl 3↵If P> Z〔5〕:Then Goto 4:IfEnd↵Z〔5〕-P→L:L→Z〔14〕:C→Z〔15〕:Prog”-FY”↵“XP=”: Z〔23〕- Z〔16〕cos(Z〔19〕)-W Z〔17〕sin(Z〔19〕) →F“YP=”: Z〔24〕- Z〔16〕sin(Z〔19〕)+W Z〔17〕cos(Z〔19〕) →GZ〔19〕-90WL2÷(CRπ)→Z↵Goto 5↵Lbl 4↵P- Z〔5〕→L↵“XP=”:X+(T+L)cos(Z〔19〕) →F“YP=”:Y+(T+L)sin(Z〔19〕) →GZ〔19〕→Z↵Lbl 5↵“D ANGLE”?H↵If H=0:Then Goto 9:IfEnd:?D↵“XB=”:F+Dcos(Z+H) →Z〔11〕“YB=”:G+Dsin(Z+H) →Z〔12〕Goto 5↵Lbl 9 (结束)-FY(子程序2)：If Z〔14〕=0:Then 0→Z〔16〕:0→Z〔17〕:Else↵Z〔14〕- Z〔14〕∧(5) ÷40(RZ〔15〕)2+ Z〔14〕∧(9) ÷3456÷(RZ 〔15〕)∧(4) →Z〔16〕↵Z〔14〕∧(3) ÷6÷(RZ〔15〕)- Z〔14〕∧(7) ÷336÷(RZ〔15〕)∧(3)+ Z〔14〕∧(11) ÷42240÷(RZ〔15〕)∧(5) →Z〔17〕↵IfEnd （结束）CASIO fx-5800p道路匝道坐标放样程序简化使用程序说明：本程序根据主线坐标放样程序的思想编写，原理相同，优点相同，使用相同。

CASIO_fx-5800P在工程测量导线计算中的应用

电气与信息工程河南科技Henan Science and Technology总第799期第5期2023年3月CASIO fx-5800P 在工程测量导线计算中的应用张蕾（兰州现代职业学院，甘肃兰州730300）摘要：【目的】本研究利用CASIO fx-5800P 可程序型电子计算器来解决闭合导线和附合导线两种导线形式的外业计算中存在的问题。

【方法】对导线计算、程序编写、程序运行和程序在工程中的具体应用进行研究。

【结果】在进行外业计算时，利用编制好的程序，不但能大大提高计算速度，还能保证计算结果的精度。

【结论】CASIO fx-5800P 可程序型电子计算器不仅具有强大的程序计算功能，且体积小、重量轻、便于随身携带，能进一步提高工作效率，从而在测量行业中被广泛使用。

关键词：计算器；程序；导线；平差中图分类号：TP311.1；P214文献标志码：A文章编号：1003-5168（2023）05-0015-05DOI ：10.19968/ki.hnkj.1003-5168.2023.05.003Application of CASIO fx-5800P in Engineering Survey Wire CalculationZHANG Lei(Lanzhou Modern Vocational College,Lanzhou 730300,China)Abstract:[Purposes ]In this study,CASIO fx-5800P programmable electronic calculator was used tosolve the problems existing in the field calculation of closed wire and attached wire.[Methods ]The spe⁃cific application of wire calculation,programming,program operation and program in engineering was studied.[Findings ]In the field calculation,the use of the compiled program can not only greatly improvethe calculation speed,but also ensure the accuracy of the calculation results.[Conclusions ]CASIO fx-5800P programmable electronic calculator not only has powerful program calculation function,but also has other adventages,such as small size,light weight,and easy to carry.So it can further improve workefficiency,and it is widely used in the measurement industry.Keywords:calculator;procedure;wire;adjustment0引言CASIO 公司的fx 系列电子计算器是在二十世纪七十年代末期被引入我国的，是最早被引入我国的便携式程序型电子计算器。

卡西欧fx-5800p计算器测量程序

fx-5800p 部分程序

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?JX+ICos(J)→U:Y+ISin(J)→V＂X=″:U （待求点的X坐标）＂Y=″:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?VPol(U-X,V-Y):J<0 J+360→J＂I=″:I＂J=″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o＂FWJ=″:o DMSGoto 1Lbl 2＂END″说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S＂T″:SJ-T→XJ＋T→YLbl 0＂DQ=″?LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1＂END″说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

测量程序集

CasioFX-5800P测量程序集1：Z S （坐标正算）LBI 0 :〝XO〞?A :〝YO〞?B : ?D : ?F : 0→I : 0→J : Rec(D , F) :〝X=〞: A+I→X ▲〝Y=〞: B+J→Y▲Goto 0说明：A：基点X坐标。

B：基点Y坐标。

D：两点间距。

F：从基点至目标点的方位角。

2 : F S (坐标反算，求两点间距及方位角)LBI 1 : ?A : ?B : ?X : ?Y : 0→I : 0→J : PoL(X－A,Y－B) :〝D=〞: I→D▲If J<0 : Then J+360→J :Ifend ：〝F=〞: J→F▲Goto 1说明：A ，B ：起点的坐标。

X ，Y ：目标点的坐标。

3：D – S (施工坐标，大地坐标之间互相转换)〝XO〞?A : 〝YO〞?B : ?F : LBI 0 :〝N=1 . DD => SG , N=2 . SG => DD〞: ?N : ?X : ?Y : If N=1 : Then〝XS=〞: (X－A) Cos(F)+(Y－B) Sin(F)+7000▲〝YS=〞: (Y－B) Cos(F) －(X－A) Sin(F)+4.875▲ELse If N=2 : Then〝XD=〞: A+(X－7000) Cos(F) －(Y－4.875) Sin(F) ▲〝YD=〞: B+(X－7000) Sin(F)+(Y－4.875) Cos(F) ▲Ifend : Ifend : Goto 0说明：A,B ：起点的坐标。

F :要旋转的方位角。

4 : DMCX－MD ( 隧道断面程序)LBI 0 : ?X : ?Y : ?H : Prog〝GC〞: If H≥G+1.533 :Then Goto 1 : ELse If H≥G+0.13 And H < G+1.533 :Then Goto 2 : ELse If H≥G－0.64 And H < G+0.13 :Then Goto 3 : ELse If H < G－0.64 : Then Goto 4 : Ifend : Ifend :Ifend : IfendLBI 1 :〝YUAN 1〞: POL(H－G－1.533 , Y) －6.3▲Goto 0LBI 2 :〝YUAN 2〞: POL(H－G－1.533 , Y+2.5) －8.82▲G－H▲Goto 0LBI 3 :〝YUAN 3〞: POL(H－G－0.302 , Y-4.594) －1.62▲Goto 0LBI 4 :〝YANG GONG〞: POL(H－G－13.527 , Y) －15.62▲Goto 0说明：X , Y , H : 为掌子面上任意点坐标。

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O :“ZY=”？Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”：F ◆DMS ◢Lb1 0 ↙？X:?Y ↙Pol （X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos （G)→K:“K=”：K ◢Dsin （G)→C:“C=”：C ◢GoTo 0 ↙说明：QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果：里程桩号，即工程X 坐标C-- 显示计算结果：左右偏距，即工程Y 坐标, 中桩=0 ，左偏= 负值，右偏= 正值。

卡西欧FX5800P编程计算器应用及程序

Prog FXA
Norm 1:?N:N=2=>Goto 0:N=2=>Goto 1:“ =”: ◢
“X0+Y0i”?M:List X[M]+List Y[M]i->C:Lb1 0“X+Yi”?T:T=0=>Goto 1:T->K:?L:List X[T]+List Y[T]i->B:Fix 3:“D=”:Abs(B-C->D◢ Arg(B-C->A:A<0=>A+360->A:“A=”:A▶DMS◢ “X,Yi”:B◢ Norm 1:O->X:Goto 0: Lb1:?X:X=0=>Goto 0:X->O:?Y:?H:X+Yi->S:Abs(S-C->I:Fix 3: If S>D:Then“DV=”:Locate 5,4,I:Else “D∧=”:Locate 5,4,I:IfEnd:Arg(E-C->J: J<0=>J+360->J:J-A->J:J<0=>J+360->J:Abs(Ssin(J->I:If >180:Then “=>”: Loca te 4,4,I:Else“<=”:Locate 4,4,I:IfEnd:Abs(H-L->I:If H>L:Then“hV=”:Locat e 5,4,I◢ Else“h∧=”: Locate 5,4,I◢ IfEnd:K->T:Norm 1:Goto 1:“END”
<=、0.663 =>、0.023 <=、0.218 <=、0.561 =>、0.298
2.1.2 隧洞断面（直线、圆曲线城门洞型）放样程序

(嘘~~群内共享,切勿泄漏)卡西欧5800测量用计算程序

CASIO Fx-5800P 实用小程序（写了一个上午，希望认真学习）编辑：军开机按MODE SETUP 进入选择计算模式。

选择 5：PROG(编程)进入菜单如下： 1.NEW（新建）2.RUN(运行)3 EDIT(编辑)4 DELETE（删除）如果新建程序选择1 新建。

输入名称后按EXE 后选择 1COMP计算后即可进行程序编辑状态。

认真输入下述程序即可。

一些符号都在 FUNCTION – PROG 里面CASIO Fx-5800P 平曲线坐标计算程序（备注：文件名称可命名为 PQX（即平曲线），当然你也可以随便写）个别符号我已写上批注。

?A:?R:?C:?DC2÷24÷R－C^(4) ÷2688÷R^(3)→PC÷2-C^(3) ÷240÷R2→QC×90°÷π÷R→B〞T〞:(R+P)tan(Abs(A) ÷2)+Q→T◢〞W〞:(R+P) ÷cos(A÷2)-R→W◢〞L〞:(Abs(A)-2B) πR÷180°+2C→L◢D-T→G:G+C→H:G+L÷2→I:G+L→M:G+L-C→K?N:?E:?F:?JIf A<0:Then -1→S:Else 1→S:IfEndF+A÷2+90°S→UW+R→VN+Vcos(U) →BE+Vsin(U) →O?ZZ≤G=>Goto 1:Z≤H=>Goto 3:Z≤K=>Goto 4:Z≤M=>Goto 6:Z>M=>Goto 7Lbl 1T+G-Z→L:F+180°→V:F→U〞X〞:N+Lcos(V) →X◢〞Y〞:E+Lsin(V) →Y◢Goto 5Lbl 2?W:?Q〞X〞:X+Wcos(U+Q) →X◢〞Y〞:Y+Wsin(U+Q) →Y◢Goto 8Lbl 3Z-G→LL-L^(5) ÷90°÷R2÷C2→V30°S÷π÷R÷C×L2→LF+180°→P:F+L→Q:F+3L→U〞X〞:N+Tcos(P)+Vcos(Q) →X◢〞Y〞:E+Tsin(P)+Vsin(Q) →Y◢Goto 5Lbl 4F+A÷2+180°+90°S+(Z-I)÷R÷π×180°S→L L+90°S→U〞X〞:B+Rcos(L) →X◢〞Y〞:O+Rsin(L) →Y◢Goto 5Lbl 6M-Z→LL-L^(5)÷90°(RC) 2→V30°S÷π÷R÷C×L 2→LF+A→P:F+A+180°-L→Q:F-3L+A→U〞X〞:N+Tcos(P)+Vcos(Q) →X◢〞Y〞:E+Tsin(P)+Vsin(Q) →Y◢Goto 5Lbl 7Z-M+T→L:F+A→U:U→V〞X〞:N+Lcos(V) →X◢〞Y〞:E+Lsin(V) →Y◢Goto 5Lbl 5If J=1:Then Goto 2:Else Goto 8:IfEndLbl 8〞THANKYOU〞备注：A 线路偏角（左为负，又为正）R 半径C 缓和曲线长度D 交点桩号T 切线长W 外矢距L 曲线总长N 交点坐标XE 交点坐标YF 直缓点的方位角J 是否计算边桩是按 1 否按 0Z 待求点的里程桩号如需计算边桩，需输入下列要素：W 边桩至中桩距离（左为负，右为正）Q 边桩与路线夹角CASIO Fx-5800P 竖曲线坐标计算程序（备注：文件名称可命名为 SQX（即竖曲线），当然你也可以随便写）Lbl 1？R:?D:?M:?C:?F〞T〞:0.5Abs(F-C)R→T◢0.5T2÷R→E(F-C) ÷Abs(F-C) →V?LL≤D=>Goto 2:L>D=>Goto 3Lbl 2If D-L≤T:Then M-(D-L)C+V(T-D+L) 2÷2÷R→H:Else M-(D-L)C→H:IfEnd Goto 4Lbl 3If L-D≤T:Then M+(L-D)F+V(T-L+D) 2÷2÷R→H:Else M+(L-D)F→H:IfEnd Goto 4Lbl 4〞H〞:H◢备注：R 竖曲线半径计算出竖曲线切线长TD 边坡点里程桩号M 边坡点高程C 输入变坡点后段坡率以路线前进方向F 输入变坡点前段坡率以路线前进方向E 外矢距L 待求点里程桩号H 待求点高程。

CASIO fx-5800P实用工程测量程序

CASIOfx5800P实用工程测量程序

CASIO-fx-5800P实用工程测量程序

工程测量中fx5800P计算器基本程序

CASIO fx-5800p测量程序

工程测量中CASIO fx―5800P编程计算器线路坐标通用程序应用探讨.doc

卡西欧fx-5800p计算器测量程序

卡西欧fx-5800p计算器 公路测量常用程序

工程测量实用程序--5800P-2013-3-31

CASIO Fx-5800P计算器测量计算程序

fx-5800P计算器在工程测量中的应用2(着重于编程)

CASIO fx-5800p计算器测量实用程序加数据库

CASIO_fx-5800P在工程测量导线计算中的应用

卡西欧fx-5800p计算器测量程序

fx-5800p 部分程序

测量程序集

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧FX5800P编程计算器应用及程序

(嘘~~群内共享,切勿泄漏)卡西欧5800测量用计算程序

卡西欧fx-5800p计算器公路测量常用程序