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

Fx-5800P线元积分法坐标计算万能程序

Fx-5800P万能程序核心计算程序摘自工测员网“yshf”,数学模型：辛普森公式一.程序清单:1. 正算子程序(SUB1)0.1739274226→Z[1]：0.3260725774→Z[2]：0.0694318442→Z[3]：0.3300094782→Z[4]：1- Z[4]→F：1- Z[3]→Z[5]：（将原来变量A、B、K、L、M,用Z[1] 、Z[2] 、Z[3] 、Z[4] 、Z[5]扩充变量来代替，以便嵌套其他程序）U+W(Z[1]cos(G+57.2958Q Z[3]W(1÷P+Z[3]WD))+Z[2]cos(G+57.2958QZ[4]W(1÷P+Z[4]WD))+Z[2]cos(G+57.2958QFW(1÷P+FWD))+Z[1]cos(G+57.2958Q Z[5]W(1÷P+Z[5]WD)))→X：V+W(Z[1] sin(G+57.2958Q Z[3]W(1÷P+Z[3]WD))+Z[2]sin(G+57.2958QZ[4]W(1÷P+Z[4]WD))+Z[2]sin(G+57.2958QFW(1÷P+FWD))+Z[1] sin(G+57.2958Q Z[5]W(1÷P+Z[5]WD)))→Y：G+57.2958QW(1÷P+WD)+M→F：（M为线路前进方向右交角）X+ZcosF→X：Y+ZsinF→Y2. 反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "SUB1"：T+57.2958QW(1÷P+WD) →L：(J-Y)cosL-(I-X)sinL→Z：If AbsZ<10^(-6): Then Goto1：Else W+Z→W：Goto 0: IfEnd←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sinF→Z←┘3.主程序（ZCX）(数据库程序)10→DimZ(扩充10个变量)xxxxxx.xxx→Cyyyyyy.yyy→E(坐标放样中测站点坐标)Lb1 4：”N”﹖N：”S”﹖SIf S≤下一线元起点里程:Then 本线元起点里程→O：本线元起点X坐标→U=：本线元起点Y坐标→V：本线元起点方位角→G：本线元长度→H：起点曲率半径→P：终点曲率半径→R：0（直线）或1（线路右转）、-1（线路左转）→Q： Goto0：IfEnd←┘(第一段线元数据要素)If S≤下一线元起点里程:Then 本线元起点里程→O：本线元起点X坐标→U=：本线元起点Y坐标→V：本线元起点方位角→G：本线元长度→H：起点曲率半径→P：终点曲率半径→R：0（直线）或1（线路右转）、-1（线路左转）→Q： Goto0：IfEnd←┘(第二段线元数据要素)If。

5800计算器程序辛普森公式程序(通用)

1．”XLZB”：坐标计算主程序↓（与预留的自由变量数有关！）｛O｝∶O“1.ZX 2.BX”↓Q=0↓LbI 1↓O≠1=>｛QG｝:Q”L”:G”XJJD”:△（显示“L”输入边桩宽度，均为正值，显示“XJJD”输入边桩测点与线路中线上点的连线与线路中线上点的切线的夹角，如右法线为90度，左法线为270度或者-90度，其余同理。

）Prog”ZB”:X=X+Rec(Q,T+G):Y=Y+J:”X=”：X ：Pause 0 :”Y=”：Y▲(X”X=”：Pause 0 : Y”Y=”：▲)”T=”：T→DMS▲(T”T=”▲)Goto 1(注释：括号内写法为Casio4800P计算器显示方式) 2．“ZB”:坐标计算子程序↓（与预留的自由变量数有关！）（与预留的自由变量数有关！）｛K｝:↓LbI 2↓F=0：△（注释：方框内数字27[第七段]为断链的段号；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[W+3a]+Z[W]+F：K≥Z[W+3a] =>K≤E =>V=W－1：≠＞W=W+1: Goto 2△△↓K－F：△（方框为断链点的后桩号，即去向桩号，如遇断链，依此增加即可！）S=K－Z[V+3a+1]:P=(Z[V+2a+1] －Z[V+a+1])÷Z[V+1]:I=P*S:C=Z[V+4a+1]:D=Z[V+a+1]:J=C+(I+2D)*S*90/π:L=1：X=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Y=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:T=J:３．“SJK.DAT”:数据库主程序Mcl:Defm(20+7a):Z[21]=?:……Z[21+3a]=?:Z[21+4a]=?:Z[21+5a]=?:Z[ 21+6a]=?:Prog”SJK”:(输入程序时，Defm后须换成相应数据，a为曲线元段数)4．“SJK”：数据库计算子程序a=?:V=20:T=0:B=?(a:曲线元段数；B:等分数，最少为2，一般为4就可以满足要求)LbI 0↓F=0：（注释：方框内数字6[第七段减一]为断链的段号减去1所得；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[V+3a+1]+Z[V+1]+F:Z[V+3a+2]=E：S=Z[V+1] :I=Z[V+2a+1] －Z[V+a+1]:C=Z[V+4a+1]: D=Z[V+a+1]:J= C+(I+2D)*S*90/π:Z[V+4a+2]=J:L=1：Z[V+5a+2]=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Z[V+6a+2]=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:V=V+1:T=T+1:T＞a-2 =>”END OF THE PROGRAM”▲△Goto 0为了使程序能够计算连续多个曲线元的坐标，减少计算过程中的数据输入，可利用CASIOfx-4800/4850P计算器提供的扩展变量设置曲线元数据库，假定某一段线路包含有a个曲线元，则可设置曲线元数据库如下表所示：曲线元数据库设置表扩展变量Z[1]~Z[20]用作自由变量，可以用来弥补字母变量的不足，此项设置可自由选择！因此，数据库的起点本程序从Z[21]开始，表中Z[21]~Z[21+3a]以及Z[21+4a]、Z[21+5a]、Z[21+6a]需预先置入，表中空白部分由程序自动计算生成。

FX-5800p编程

比积分公式快速CASIO fx-5800P放样程序（比积分公式快速）正算主程序[ZD-KB]“1,2,3,4,5”?Z:?X:?YLbl 1:Fix 4:?K:?B:?A:0→P:0→RZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:M-X→I:N-Y→J:Prog“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 7,3,M:Locate 1,4,“N=”:Locate 7,4,N◢Cls:Goto 1反算主程序[ZD-MN]“1,2,3,4,5”?Z:?KLbl 0:Fix 4:?M:?N:M→D:N→ELbl 1:90→A:0→B:0→P:0→RZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:Pol(D-M+×10-9,E-N+×10-9:Isin(L-J→A:Icos(L-J→BIf Abs(A)＞0.001:Then K+A→K:Goto 1:Else Cls:Locate 1,1,“K=”:Locate 9,2, K:Loc ate 1,3,“B=”:Locate 10,4,B◢IfEnd:Goto 0子程序[C]I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J数据库子程序[YS-1]If K＜线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y 坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Return:IfEn dIf K＜下一条线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Re turn:IfEnd子程序[ZDYS]P=0＝＞×1045→P:R=0＝＞×1045→R:If PR＞0:Then 1→Q:Else -1→Q:IfEnd:PR≥×1090＝＞0→Q:R＜0＝＞-1→Q:Abs(P→P:Abs(R→R:1÷P→H:180÷π→J:(P-R)÷(2FPR→I:Abs(K-O→W:0.1739274226→N:0.3260725774→M:0.0694318442→S:0.3300094782→L:1-L→G:C+QJSW(H+SWI→T:C+QJLW(H+LWI→L:C+QJGW(H+GWI→G:C+QJ W(1-S)(H+WI(1-S→F:A+C+QJW(H+WI→CU+W(Ncos(T)+Mcos(L)+Mcos(G)+Ncos(F→I:V+W(Nsin(T)+Msin(L)+Msin(G)+Nsin(F →J:C→L:I+Bcos(L→M:J+Bsin(L→N正算主程序[KB-MN]输入：1,2,3,4,5---选择待正算的线路X---测站X坐标Y---测站Y坐标 K---桩号B---距中（左负右正中零）结果：J=测站到放样点的方位角I=测站到放样点的平距M=放样点X坐标N=放样点Y坐标若果求斜交时边桩坐标，主程序[KB-MN]中90→A修改为斜交角度→A反算主程序[MN-KB]输入：1,2,3,4,5---选择待反算的线路K---待反算点附近的大概桩号M---待反算点X坐标 N---待反算点Y坐标结果：K=反算点的桩号 B=反算点的距中（左负右正中零）使用说明：(数据库[YS-1]中，当P或R的值为零时，可以省略输入0→P或0→R)输程序时，例“×1045→P”的小“×10”为计算器面板的白色键“×10X”子程序[ZDYS]中×1045→P相当于10∧(45)→PPR≥×1090＝＞0→Q即PR≥10∧(90)＝＞0→Q1、当线元为直线时，其起点、止点曲率半径为零。

卡西欧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测量放样程序

卡西欧5800程序(修改于湘桂)R（主程序，通过里程求中桩、边桩坐标，在输入测站坐标后并求极坐标放样要素）1→M :“NEWZ CIRCLE”？M : If M=-1: Then “JD”？U :“1-TR-1-TL” ? N : “AT ” ? O : “JX” ? S : “JY ” ? P : “L0 ” ? H : “R” ? R : “ZJ” ? A : IfEnd↙“OPP NAME ”？W : If W=-1 : Then “OPPX”？B : “OPPY”？C : Else Prog“CONTREL”:IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If M=1:Then Prog“CIRCLE” IfEnd↙H÷2-H^(3)÷(240R2)+(R+H2÷(24R))tan（A÷2）→T:πR(A-180H÷π÷R)÷180+2H→L↙U-T→G:K→Q↙If Q≤G+L÷2:Then Q-G→Q: Else G+L-Q→Q: IfEnd↙If Q＜0:Then Prog “L”:Goto1: IfEnd↙If Q≤H:Then Q-Q^(5)÷(40R2H2)→X:Q^(3)÷(6RH)-Q^(7)÷(336R^(3)H^(3)) →Y:90Q2÷(πRH) →F: Else 180(Q-H÷2)÷(πR) →F:Rsin(F)+H÷2-H^(3)÷(240R2) →X:R(1-Cos(F))+H2÷(24R) →Y: IfEnd↙Pol(T-X,Y) ↙If K≤G+L÷2:Then O-180-NJ→E:NF+O→F: “F=”:F▲DMS◢ ElseNA+NJ+ O→E: O+NA-NF→F: “F=”:F▲DMS◢IfEnd↙“X=”:S+Icos(E)→X◢“Y=”:P+Isin(E)→Y◢If F＜0:Then 360+F→F: IfEnd↙If F≥360:Then F-360→F: IfEnd↙Lbl1: “÷1”？Z: If Z=1:Then Prog “I”: IfEnd↙If Z=2:Then Prog “LD”: IfEnd↙If Z=-1:Then Prog “Q”: “X=”:X◢“Y=”: Y◢IfEnd↙Prog “P”↙Goto 0↙P（子程序，受主程序R调用，求极坐标放样要素:方位角及平距）Pol(X-B,Y-C): “D=”:I◢If J＜0:Then 360+J→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢L（子程序，受主程序R调用，求直线上点位坐标及切线方位角）T-Q→Q:If K＜G:Then O+180→E: O→F: “X=”:S+Qcos(E)→X◢“Y=”:P+Qsin(E) →Y◢ Else O+NA→F: “X=” S+Qcos(F) →X◢“Y=”:P+Qsin(F) →Y◢IfEnd↙I（子程序，受主程序R调用，求边桩坐标）“RA”？E：“D”？D:E+F→E: If E≥360:Then E-360→E: IfEnd↙X+Dcos(E)→X: Y+Dsin(E)→Y: “X=”: X◢“Y=”: Y◢E→F↙Q（子程序，受主程序R调用，求副线边桩坐标）“1A”？E：“1D”？D：E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y:E→F↙“2R”？E: “2D”？D: E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y↙E→F↙LD（子程序，受主程序R调用，通过坐标反求里程和偏距）40→DimZ↙O→Z[1]:U→Z[2]:S→Z[3]: P→Z[4] ↙H÷2-H^(3)÷(240R2)→M: H2÷(24R)-H^(4)÷(2688R^(3))→V:90H2÷(πR)→D:(R+V)Tan(A÷2)+M→T: πRA÷180+H→K:O+NA→J:Prog“JD”:J→Z[21]:U-T+K→Z[22]: S-Tcos(O)→Z[5]:P-Tsin(O)→Z[6]:Z[5]+Mcos(O)+(R+V)cos(O+90N)→Z[7]:Z[6]+Msin(O)+ (R+V)sin(O+90N)→Z[8] ↙H-H^(5)÷(40R2H2)→Z:H^(3)÷(6RH)-H^(7)÷(336R^(3)H^(3))→C: Pol(C,Z):90-J→J:Prog“JD”: O+JN→J:Prog“JD”↙Z[5]+Icos(J)→Z[9]:Z[6]+Isin(J)→Z[10]:S+Tcos(Z[21])→Z[11]: P+Tsin(Z[21])→Z[12] ↙Pol(Z[10]-Z[8],Z[9]-Z[7]):90-J→J:Prog“JD”:J→Z[13] ↙J+(A-2D)N→J: Prog“JD”: J→Z[14] ↙“CEDIAN”◢Lbl 0: ↙“B”？B:If B=0:Then Prog “R”: IfEnd↙“XN=”？X: “YN=”？Y:Pol(Y-Z[8],X-Z[7]) ↙90-J→J: Prog“JD”:J→W:J-Z[13]→J↙Prog“JD”:J→Z[15] ↙W-Z[14]→J↙Prog“JD”:J→Z[16] ↙If N=1:Then Goto 1: IfEnd↙If N=-1:Then Goto 2: IfEnd↙Lbl 1: ↙If Z[15]＞180：Then Goto 3: IfEnd↙If Z[16]≤180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 2: ↙If Z[15]＜180：Then Goto 3: IfEnd↙If Z[16] ＞180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 3: ↙“H1”◢Pol(Y-Z[6],X-Z[5]):90-J→J: Prog“JD”↙J-Z[1]+90→J: Prog“JD”↙Isin(J)→G↙If G＞0:Then 0→L:Goto 6: IfEnd↙If G≤0:Then “DK=”:Z[2]-T+G→Z[19]◢If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 4: ↙“Y”◢If N=-1:Then 360-Z[15]→Z[15]: IfEnd: “DK=”:Z[2]-T+H+πR(Z[15])÷180→Z[19]◢If N=1:Then “LD=”:-(I-R)→Z[20]◢Else “LD=” :I-R→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 5: ↙“H2”◢Pol(Y-Z[12],X-Z[11]):90-J→J: Prog“JD”:J→W:Z[21]-90→J: Prog“JD”:W-J→J: Prog“JD”:Isin(J)→G:If G＜0:Then 0→L: -G→G↙Goto 7: IfEnd↙If G≥0:Then “DK=”:Z[22]+G→Z[19]◢IfEnd: If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J)→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 6: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[1]+WN→J: Prog“JD”:Z[5]+Icos(J)→Z[17]: Z[6]+Isin(J) →Z[18] ↙J+2WN→J: Prog“JD”:J-90→J: Prog“JD”:J→W↙Pol（Y-Z[18],X-Z[17]）:90-J→J: Prog“JD”↙J-W→J: Prog“JD”:Isin(J)→G:If Abs(G)＞0.001:Then Goto 6: IfEnd↙“DK=”:Z[2]-T+L+G→Z[19]◢If N=1:Then “LD=”:-Ncos(J) →Z[20]◢Else“LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 7: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[21]-180-WN→J: Prog“JD”↙Z[11]+Icos(J)→Z[17]:Z[12]+Isin(J)→Z[18]:J-2WN→J: Prog“JD”↙J-90→J: Prog“JD”:J→W↙Pol(Y-Z[18],X-Z[17]):90-J→J: Prog“JD”↙J-W→J:Prog “JD”↙Isin(J)→G: If Abs(G)＞0.001:Then Goto 7:IfEnd↙“DK=”:Z[22]-L-G→Z[19]◢If N=1:Then “LD=”:NIcos(J)→Z[20]◢Else“LD=”:-NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙JD（子程序，受LD程序调用，计算角度归化值）If J＜0:Then J+360→J: IfEnd↙If J≥360:Then J-360→J: IfEnd↙CIRCLE（子程序，线路平面曲线要素，受主程序R调用）If K≤缓直点里程:Then 交点里程→U:交点X坐标→S:交点Y坐标→P:转角值→A:-1（曲线段左偏）或1（曲线段右偏）→N:圆曲线半径→R:缓和曲线长→H:直线段起始方位角→O:Goto 1: IfEnd↙If K≤……（同上输完全部曲线要素为止）Lbl 1↙CONTREL（控制点坐标数据库子程序，受主程序R和ZBFS调用）If W=控制点点号:Then 控制点X坐标→B:控制点Y坐标→C: IfEnd↙If W=……（同上输完全部控制点数据为止）ZBFS（主程序，求两已知点方位角及平距,或已知两点求后方交会点坐标）Lbl 0:1→W: “NEW OPP”？W:If W=1:Then “OPPX”？X: “OPPY”？Y:Else Prog “CONTREL”:B→X:C→Y: IfEnd↙Lbl 1:-1→W: “NEW CPP”？W: If W=-1:Then “CPPX”？S: “CPPY”？T: Else Prog “CONTREL”:B→S:C→T: IfEnd↙Pol(S-X,T-Y): “D=”:I◢If J＜0:Then J+360→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢Lbl 2:0→W: “ZBFS=0,SQS≠0”？W:If W=0:Then Goto 1: Else Prog “SQS”: IfEnd↙Goto 0↙SQS（子程序，受主程序ZBFS调用，通过角度边长求交会点坐标值）Lbl 0: “S1=”？A: “J1=？M: “J2=”？N: “S2=？D:N-M→Q: If Q ＜0:Then Q+360→Q: IfEnd↙If Q＜45°0′0″:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙√(A2+D2-2ADos(Q))→E: “S3=”:E◢If Abs(A-D)≥60:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If Abs(I-E)＜0.01:Then cos-1((A2+E2-D2)÷(2AE))→R: cos-1((D2+E2-A2) ÷(2DE))→G: Else “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If J＜0:Then J+360→J:IfEnd↙(X+Acos(J+R)+S+Dcos(J+180-G))÷2→F: “X=”:F◢(Y+Asin(J+R)+T+Dsin(J+180-G))÷2→P: “Y=”:P◢SQX（主程序，竖曲线求线路各里程点中桩设计高程）1→S：“NEWZ SQXK”？S: If S=-1:Then ？U:？R:？T:？N:？I:？F: “HB”？B: IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If S≠-1:Then Prog “SQXK”: IfEnd↙U-T→G:K→Q: If Q≤G:Then Q-U→Q: Else Q-G→W: IfEnd↙If Q≤G:Then “H=”:B+QN÷1000→H◢Goto 1↙Else If Q≤U+T:Then “H=”:B+(Q-U)N÷1000+FW2÷(2R)→H◢Goto 1↙Else If Q≥U+T:Then “H=”:B+(Q-U)I÷1000→H◢Goto 1:IfEnd↙Lbl 1: “P”？P: “O=”:H-P→O◢Goto 0↙SQXK（子程序，受主程序SQX调用，竖曲线要素）If K≤竖曲线圆直点里程：Then 变坡点里程→U:变坡点设计高程→B:竖曲线圆曲线半径→R:竖曲线切线长→T:竖曲线直线段坡度常数（上、下坡有正负之分）→N:变坡点常数（凸为-1，凹为1）→F: Goto 0: IfEnd↙If K≤……（同上输完全部竖曲线要素为止）Lbl 0↙SDCQJC（子程序，受LD程序调用，采集隧道支护位置坐标高程数据一次性计算出该支护位置的超欠挖量）40→DimZ↙Lbl 0:Z[19]→Z[23]:Prog “SQXZ”↙Z[24]-Z[27]→Z[30]: Z[23]→Z[31] ↙If Z[31]≤Z[30]:Then Z[31]-Z[24]→Z[31]:Else Z[31]-Z[30] →Z[32]: IfEnd↙If Z[31]≤Z[30]:Then Z[25]+(Z[31])×(Z[28])÷1000→Z[33]: Goto 1↙Else If Z[31]≤Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×(Z[28])÷1000+(Z[29])×(Z[32])2÷(2×Z[26])→Z[33]: Goto 1↙Else If Z[31]≥Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×I÷1000→Z[33]: Goto 1: IfEnd↙Lbl 1: “H0=”:Z[33]+内轨面至圆心高差常数→Z[33]◢“HN”？K: “Δh=”:K-Z[33]→Z[34]◢If Z[20]≥隧道中心线与设计中心线的偏移量ω:Then Z[20]-ω→Z[35]:Else ω- Z[20]→Z[35] : IfEnd↙“RN=”:√（（Z[34]）2+（Z[35]）2）→Z[36]◢“R0”？Z: “RCQ=”: Z[36]-Z→Z[37]◢SQXZ（子程序，受主程序SDCQJC调用，竖曲线要素）40→DimZ↙If Z[23]≤竖曲线圆直点里程：Then 变坡点里程→Z[24]:变坡点设计高程→Z[25]:竖曲线圆曲线半径→Z[26]:竖曲线切线长→Z[27]:竖曲线直线段坡度常数（上、下坡有正负之分）→Z[28]:变坡点常数（凸为-1，凹为1）→Z[29]:IfEnd↙If Z[23]≤……（同上输完全部竖曲线要素为止）Lbl 0↙。

复化辛普森公式在FX-5800P计算器中的应用

结合卡西欧Fx-5800P程序计算器浅谈复化辛普森公式在公路测量放样中的应用黄美林杨大伟李将来关键词：卡西欧Fx-5800P，复化辛普森公式，公路曲线，公路测量放样，等分线段，方位角，曲线元曲率在公路工程测量放样中，计算坐标时，通常采用切线支距公式来计算道路中心线上各点的坐标，再计算偏移边距上坐标。

但在不同的曲线上计算时，就需用采用不同的计算公式，这给坐标计算及为不便。

在设有缓和曲线的圆曲线半径较小、卵形曲线上、复曲线上的坐标计算时，其计算误差将相对较大，即便是将公式和展开项都选择对，那么计算也是相当繁杂的。

复化辛普森公式不仅能解决缓和曲线、圆曲线或直线上的坐标计算问题，而且用它计算完全可以顺逆用的（即：不仅能从小里程向大里程桩号计算，还能从大里程桩号向小里程桩号计算），尤其在计算缓和曲线和圆曲线时显得尤为方便。

复化辛普森公式在公路曲线坐标计算中比较方便，精确度高，在公路测量放样中可以说是万能计算公式。

下面先分析复化辛普森公式，再根据公式进行卡西欧Fx-5800P计算器编程，并结合实际进行验证。

一、复化辛普森公式：—曲线元起点X坐标—曲线元起点Y坐标—曲线元起点切线方位角—曲线元2n等分点上切线方位角—曲线元n等分点上切线方位角—曲线元上待求点上切线方位角式中H=（Z i－Z A）/nn—等分线段数Z i—待求点桩号Z A—曲线元起点桩号Z B—曲线元终点桩号ρA—曲线元起点曲率ρB—曲线元终点曲率a i曲线上任意一点处切线方位角二、卡西欧Fx-5800P程序根据以上公式、结合卡西欧计算器程序语言编写程序如下：1.主程序：ZDFXLbl θ: “ZDSJ1,QT2”?V: “XC”?A: “YC”?B: “XP”?X? “YP”?Y ↙V=1=>Goto 2: “BPX”?C: “BPY”?D: “FWJ”?E: “1÷RA”?F: “1÷RB”?G: “BP”?H: “EP”?I: ↙Lbl 2: →K: ↙Fix3 ↙“SP”: K◢Tan-1((A-X) ÷(B-Y)) →L: B-Y＜θ=>9θ-L→L:B-Y＞θ=>27θ-L→L: “AP”: L▶DMS◢Lbl 3: “ZH”?Z: “BJ”?T :“N°”?J：V=1=>Prog”ZDA”：1→L: T<0=>-1→L：↙6→N : (G-F)÷(I-H)→O : (Z-H)÷N→M: ONM+F→P: 9θM÷π→S: E+(P+F)NS→W: 1→Q : ↙C+M÷6×(cosE+cosW+4×∑(cos(E+((Q+θ.5)MO+2F)(Q+θ.5)S), Q, θ, (N- 1))+2∑( cos (E+(OMQ+2F) QS), Q, 1 ,(N- 1)))+LTcos (W+LJ) →X: ↙“X”: X◢D+M÷6×(sinE+sinW+4×∑(sin(E+((Q+θ.5)MO+2F) (Q+θ.5)S, Q, θ, (N- 1) )+2×∑(sin(E+(OMQ+2F)QS) , Q, 1,(N-1)))+LTsin(W+LJ) →Y ↙“Y”: Y◢Goto 22.子程序 ZDAZ≤（曲线终点桩号）=>Goto X↙……Lbl X: 起点X→C: 起点Y→D：起点方位角→E：起点曲率半径→F: 终点曲率半径→G: “F、G”曲线左转-右转+直线θ起点桩号→H: 终点桩号→I: Goto θ……Lblθ:三、与实际线性进行验算：下面以映汶高速公路绵虒互通A匝道为例进行验算：1.基础数据曲线形式2.根据以上数据可得Fx-5800P程序数据库：（图上圈内数字为曲线分段数）ZDAZ≤112=>Goto 1↙直线Z≤210.272=>Goto 2↙缓和曲线右转Z≤260.272=>Goto 3↙圆曲线右转Z≤295.272=>Goto 4↙缓和曲线右转Z≤347.272=>Goto 5↙圆曲线右转Z≤442.272=>Goto 6↙缓和曲线右转Z≤584.272=>Goto 7↙直线Z≤659.272=>Goto 8↙缓和曲线左转Lbl 1: 3470011.575→C: 498668.017→D： 193°13′15.3″→E：0→F: 0→G: 0→H: 112→I: Goto θLbl 2: 3469902.54→C: 498642.402→D： 193°13′15.3″→E：0→F: 1÷45→G: 112→H: 210.272→I: Goto θLbl 3: 3469825.179→C: 498590.498→D： 255°46′58.7″→E：1÷45→F: 1÷45→G: 210.272→H: 260.272→I: Goto θLbl 4: 3469839.543→C: 498545.256→D： 319°26′41.8″→E：1÷45→F: 1÷80→G: 260.272→H: 295.272→I: Goto θLbl 5: 3469871.604→C: 498532.618→D： 354°15′36.3″→E：1÷80→F: 1÷80→G: 295.272→H: 347.272→I: Goto θLbl 6: 3469921.407→C: 498544.008→D： 31°30′08.4″→E：1÷80→F: 0→G: 347.272→H: 442.272→I: Goto θLbl 7: 3469976.091→C: 498619.874→D： 65°31′18.2″→E：0→F: 0→G: 442.272→H: 584.272→I: Goto θLbl 8: 3470034.929→C: 498749.110→D： 65°31′18.2″→E：0→F: -1÷110→G: 584.272→H: 659.272→I: Goto θLblθ:3.进行坐标验证：(1）.我们验证中桩坐标，我们在每一段曲线上选择一点计算坐标。

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计算器公路测量常用程序

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。

5800计算器程序辛普森公式程序(通用)解析

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→高程。

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-5800 道路坐标放样程序

卡西欧CASIO fx-5800 道路坐标放样程序源程序包括：一个主程序和两个子程序主程序：PRO-ROAD行号程序说明1 Deg：Fix3：26→DimZ2 “X（JD1）”?X：“Y(JD1)”?Y：“X（JD0）”?M：“Y(JD0)”?N3 Prog”SUB-QXYS1”4 Pol(X-M,Y-N)：J→Z[20]：J+O→Z[19]5 X-Scos(Z[20]) →Z[21]：Y-Ssin(Z[20]) →Z[22]6 X+Tcos(Z[19]) →Z[23]：Y+Tsin(Z[19]) →Z[24]7 “X0”?U：”Y0”?V8 Lbl 09 “KP”?P：IFP>Z[1]：Then Goto 1 ：IfEnd10 Z[1]-P→L11 “XP=“：X-(S+L)cos(Z[20]) →F12 “YP=“：Y-(S+L)sin(Z[20]) →G13 Z[20] →Z ：Goto 514 Lbl 115 If P>Z[2] ：Then Goto 2 ：IfEnd16 P-Z[1] →L ：L→Z[14]：B→Z[15]：Prog”SUB-HXY”17 “XP=“：Z[21]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) →F18 “YP=“：Z[22]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) →G19 Z[20]+90WLL÷(BRπ) →Z20 Goto 521 Lbl 222 If P>Z[4] ：Then Goto 3 ：IfEnd23 P-Z[1] →L ：90(2L-B)÷R÷π→Z[13]24 Rsin(Z[13])+Z[8] →Z[16]：R(1-cos(Z[13]))+Z[6] →Z[17]25 “XP=“：Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20]) →F26 “YP=“：Z[22]+Z[16]sin(Z[20])-WZ[17]cos(Z[20]) →G27 Z[20]+WZ[13] →Z28 Goto 529 Lbl 330 If P>Z[5]：Then Goto 4：IfEnd31 Z[5]-P→L：L→Z[14]：C→Z[15]：Prog”SUB-HXY”32 “XP=“：Z[23]-Z[16]cos(Z[19])－WZ[17]sin(Z[19]) →F33 “YP=“：Z[24]-Z[16]sin(Z[19])＋WZ[17]cos(Z[19]) →G34 Z[19]－90WLL÷(CRπ) →Z35 Goto 536 Lbl 437 P－Z[5] →L38 “XP=“：X＋(T+L)cos(Z[19]) →F39 “YP=“：Y＋(T+L)sin(Z[19]) →G子程序1：SUBQXYS1子程序2：SUB-HXY40 Z[19] →Z41 Lbl 542 If Z<0 ：Then Z+360→Z：IfEnd43 “BP=“：Z DMS44 If U=0：Then Goto 7：Else Pol(F-U,G-V)：IfEnd45 Lbl 646 If J<0：Then J+360→J：IfEnd47 “A1=“：J DMS48 “D1=“：I49 Lbl 750 “D ANGLE”?H：IfH=0：Then Goto 0 ：IfEnd ：?D51 “XB=“：F+Dcos(Z+H) →Z[11]52 “YB=“：G+Dsin(Z+H) →Z[12]53 If U=0：Then Goto 7：Else Pol(Z[11]-U,Z[12]-V)：IfEnd54 Goto 6行号程序说明1 “ANGLE”?O：?R：”LS1”?B：”LS2”?C：”K(JD1)”?K2 If O<0：Then -1→W：Else 1→W：IfEnd：WO→A3 B2÷24÷R－B^(4)÷2688÷R^(3)＋B^(6)÷506880÷R^(5) →Z[6]4 C2÷24÷R－C^(4)÷2688÷R^(3)＋B^(6)÷506880÷R^(5) →Z[7]5 B÷2－B^(3)÷240÷R2＋B^(5)÷34560÷R^(4) →Z[8]6 C÷2－C^(3)÷240÷R2＋C^(5)÷34560÷R^(4) →Z[9]7 “T1=“：Z[8]＋(R＋Z[7]－(R＋Z[6])cos(A))÷sin(A) →S8 “T2=“：Z[9]＋(R＋Z[6]－(R＋Z[7])cos(A))÷sin(A) →T9 “L=“：RAπ÷180＋(B＋C)÷2→L10 “LY=“：L－B－C→Q11 “E=“：(R＋(Z[6]＋Z[7])÷2)÷cos(A÷2)－R→E12 “K(ZH)=“：K－S→Z[1]13 “K(HY)=“：Z[1]＋B→Z[2]14 “K(QZ)=“：Z[1]＋L÷2＋(B－C)÷4→Z[3]15 “K(YH)=“：Z[1]＋L－C→Z[4]16 “K(HZ)=“：Z[4]＋C→Z[5]行号程序说明1 If Z[14]=0：Then 0→Z[16]：0→Z[17]：Else2 Z[14]－Z[14]^(5)÷40÷(RZ[15])2＋Z[14]^(9)÷3456÷(RZ[15])^(4) →Z[16]3 Z[14]^(3)÷6÷(RZ[15])－Z[14]^(7)÷336÷(RZ[15])^(3)＋Z[14]^(11) ÷42240÷(RZ[15])^(5) →Z[17]4 IfEnd。

卡西欧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 部分程序

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计算线路中边桩坐标的通用程序

市政・交通・水￣ｌＪ＇１－程设计ｌ
肘廊 ‘ 够ｃ・疵ｒＲｅｓｏｕｒｃｅｓ・ｌＭｅ凸ｓｉ軎，ｌｌ
ＣＡＳＩＯｆｘ一５８００Ｐ计算线路中边桩坐标的通用程序
ＣＡＳＩＯｆｘ．５８００ＰＣａｌｃｕｌａｔｅｄＬｉｎｅＳｉｄｅＣｏｏｒｄｉｎａｔｅｓＧｅｎｅｒａｌＰｒｏｇｒａｍ
张冬菊，彭华
（湖南工程职业技术学院，长沙４１０１５１）
ＺＨＡＮＧＤｏｎｇ－ｊｕ，ＰＥＮＧＨｕａ
（ＨｕｎａｎＶｏｃａｔｉｏｎａｌａｎｄＴｅｃｈｎｉｃａｌＣｏｌｌｅｇｅ，Ｃｈａｎｇｓｈａ４１０１５１，Ｃｈｉｎａ）
右边桩坐标为：｛
２．３用复化辛普森公式对坐标进行数值积分［１］
¨
＋Ｊ。ＣＯＳｍ
，
＋ｊ。ｓｉ溉‘
图１曲线兀坐标系
将积分区间【Ｏ，ｆｉ］分为等分，则步长为－２，则各分点里
程为
则为
【中图分类号】ｕ４ｌ２．２４【文献标志码】Ａ【文章编号】１００７．９４６７（２０１３）１１－００９７．０４
１引言
随着全站仪的技术日益更新，坐标放样在工程中应用更
编程，可是这些程序有局限性，往往计算公式复杂，需要进行坐标转换，而且只是针对某个线型的，而不能解决所有的线型

卡西欧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 ，左偏= 负值，右偏= 正值。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

测量放样，适用于5800p计算器一、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）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。

考虑到程序中调用变量较多与其它程序变量冲突，造成不方便来回交叉使用，便把反算程序嵌套其中，作为一个完整独立放样和坐标计算程序，不含子程序当输入待求里程超出该曲线单元范围时程序会拒绝运算，并提示重新输入里程，避免计算错误结果；如要求另一曲线单元内里程须重新进入程序输入相应曲线元参数计算由于应用中待求里程不一定按从小到大顺序便去掉了把计算里程替代为起算里程的语句，造成待求里程与起算里程距离较远时精度会略有影响，但对于一般工程中较大半径曲线，影响非常小仅在毫米上可以忽略不予考虑。

二、坐标反算ZBFS1. “X0”？U：V“Y0”？V2. Lbl 0：“X”？X：“Y”？Y：Pol((X－U),(Y－V))3. If J≤0：Then J+360→J：IfEnd ：“FWJ”：J4. “JU”：I5. Goto 0程序显示说明：须输入参数：X0？: 起算点XY0？: 起算点YX ？: 计算点XY？: 计算点Y计算结果: FWJ: 反算方位角JU: 反算距离X ？Y？: 重新输入计算点X Y三、坐标正算ZBZS1. “X0”?X：“Y0”? Y：“S”? S：“T”? T2. “X1”:X+Scos(T)→M“Y1”:Y+Ssin (T)→N程序显示说明：须输入参数：X0？: 起算点XY0？: 起算点YS？: 正算距离T？: 方位角计算结果: X1: 计算点XY1: 计算点Y四、竖曲线SQX1. “R＝”? A：“T＝”? B：“I1＝”? C：“I2＝”? D：“K0＝”?E：“H0＝”? F2. If C>D : Then －1→T : Else 1→T :IfEnd3. Lbl 0：“K＝”?K：Abs(E－K）→S：4. If S>B :Then Goto 0 : IfEnd5. If E≥K : Then Goto 1: Else Goto 2 :IfEnd6. Lbl 1：F－SC+T（B－S）2÷2÷A→G:“G”: G7. Goto 08. Lbl 2：F+SD+T（B－S）2÷2÷A→G:“G”9. Goto 0程序显示说明：须输入参数：R＝？: 竖曲线半径T＝？: 切线长I1＝？: 变坡点前坡度值，上坡为正，下坡为负（如-2.5%则输-0.025）I2＝？: 变坡点后坡度值，上坡为正，下坡为负K0＝？：变坡点里程H0＝？：变坡点坡线高程K＝？：待求点里程计算结果: G: 待求点曲线高程K＝？：重新输入待求点里程注：计算里程仅在竖曲线范围内凹型竖曲线凸型竖曲线五、直线段坐标换算ZXZH (X,Y)→(A,B) 1. “X0”?M ：“Y0”? N ：“K ”? Z ：“T ”? T2. Lbl 0 ：“X ”?X ：“Y ”?Y3． (X －M) cos(Ｔ)＋(Y －N)sin(Ｔ)＋Ｚ→Ａ: “LC ”: A4． (Y －N)cos(Ｔ)－(X －M)sin(Ｔ)→Ｂ: “KD ”: B 5． Goto 0程序显示说明：须输入参数：X0? Y0?－直线起算点坐标（Ｘ，Ｙ） (对应变量M N)K?－起算点桩号 (对应变量Z) Ｔ?－起算点至ＪＤ的方位角 (对应变量T) Ｘ? Ｙ?－待求点坐标 (对应变量X Y)计算结果: LC －待求点对应桩号 (对应变量A )KD －距离中线距离，左负，右正 (对应变量B )Ｘ? Ｙ? －重新输入待求坐标点α切Y X 圆心O X Y α切六、圆曲线坐标换算YHS (X,Y)→(A,B)1．“X0”?M ：“Y0”? N ：“KQZ ”? Z ：“T ”? T:“R ”? R : “K ”? K 2. Lbl 0 :“X ”?X ：“Y ”? Y3．Ｐol(Ｘ－Ｍ,Ｙ－Ｎ）注：计算(Ｘ,Ｙ)点至圆心的距离 4. If J ≤0：Then J+360→J ：IfEnd5. Ｚ＋ＫπＲ(Ｊ－Ｔ)÷180→Ａ:“LC ”: A 注：计算(Ｘ,Ｙ)点的桩号 6. Ｋ（Ｒ－I ）→Ｂ: “KD ”: B 注：计算(Ｘ,Ｙ)点的距中线距离 7．Goto 0程序显示说明：须输入参数：X0? Y0?－圆心坐标（Ｘ,Ｙ） (对应变量M N)KQZ?－曲线中点（QZ ）的桩号 (对应变量Z) Ｔ?－圆心至QZ 点的方位角 (对应变量T) Ｒ?－圆曲线半径 (对应变量R) Ｋ?－根据ＪＤ点处的偏角α确定，左偏取－１，右偏取＋１ (对应变量K) Ｘ? Ｙ?－待求点坐标 (对应变量X Y)计算结果： LC －待求点对应桩号(对应变量A)KD －距离中线距离，左负，右正 (对应变量B ) Ｘ? Ｙ? －重新输入待求坐标点α切Y X 圆心O X Y α切七、缓和曲线段坐标换算HHS (X,Y)→(A,B)1．“XQ”?M：“YQ”? N：“Z”? Z：“S”? S:“R”? R: “L0”? L:“T”? T:“K”? K2. Lbl 0 ：“X”?X：“Y”? Y3．Z →A ：M→E ：N→F ：T→O4．Lbl 2：Ｐol（X－E，Y－F）5．If J≤0：Then J+360→J：IfEnd6．U=J－O7 . A+S I cosU→A8．If Abs(I cos (U)）≤0.001：Then A→A: “LC”: A9. S I sin (U)→B : “KD”: B10. Goto 0 : IfEnd11．RL→C：Abs(A－Z）→D12．If D＞L：Then“D＞L”13. Goto 0 : IfEnd14．D－D∧5÷（40C 2）+D∧9÷（3456C∧4）→V15．D∧3÷（6C）－D∧7÷（336C∧3）+D∧11÷（42240C∧5）→W 16．Ｐol（V，W）17．T+K J→P：T+90 K D2÷(Cπ)→O18. M+I cos( P)→E：N+I Sin(P)→F19. Goto 2程序显示说明须输入参数：X0? Y0?－为ZH（或HZ）点坐标（X，Y）(对应变量M N) Z?－为ZH（或HZ）点的桩号(对应变量Z)S?－由ZH点计算时, S取+1，否则-1 (对应变量S)R?－圆曲线半径(对应变量R)L0?－缓和曲线长度（L0）(对应变量L)T?－为ZH（或HZ）点至本曲线JD点的方位角(对应变量T)K?－根据JD点处的偏角α确定，左偏取-1，右偏取+1；当由HZ点计算时，左偏取+1，右偏取-1 (对应变量K)Ｘ? Ｙ?－待求点坐标(对应变量X Y)运算结果: LC－待求点对应桩号(对应变量A)KD－距离中线距离，左负，右正(对应变量B)Ｘ? Ｙ? －重新输入待求坐标点8-1边长交汇，在两点不通视或不方便架仪器时可任意架设仪器，依次照准两已知点并观测记录边长（夹角不用测）由本程序推算出测站坐标及后视方位角通过配盘完成设站，在外业观测中提高测量效率，特别对于没有程序功能的全站仪方便实用注意：运算结果为P在AB点右侧点，观测务必由A到B顺时针观测，不然结果为镜像点位置为AB连线左侧点，应用中必须判断明确！！！1. “XA”？U: “YA” ?V: “XB”？X: “YB”？Y2. Pol((U－X),(V－Y))J：“JB-A” JIf J≤0：Then J+360→J：IfEnd3. “4. Lbl 1 : “SA”？E: “SB”？F5. cos－1((I2+F2－E2) ÷(2IF)) →B：J－B→A: “XP”：C7. X+FcosA→C8. Y+FsinA →D: “YP”：D9. G=A－180：“JPB”：GIf G≤0 ：Then G+360→G：IfEnd9. Goto 1程序显示依次说明须输入参数：XA？YA？－输入观测第一点坐标对应变量U V XB？YB？－输入观测第二点坐标对应变量X YJB-A 计算得出第二点指向第一点方位角SBA－计算得出第二点到第一点距离（以上两项可视需要可不显示）SA？－输入由未知点P点到第一点A观测距离对应变量ESB？－输入由未知点P点到第二点B观测距离对应变量F 运算结果: XP YP－解得未知P点坐标对应变量C D JPB－由P点后视第二已知点推算方位角，（配盘用）对应变量J九-1、ZBZH程序（坐标新旧系转换）（已验算）″X1″?A：″Y1″?B：″X0″?D：″Y0″?F：″JJ″? T Lb1 0 :″XP″?C : ″YP″?EA＋(C－D)cos（T）＋(E－F)sin（T）→G:″XP1″:GB－(C－D) sin（T）＋(E－F) cos（T）→H″YP1″：HGoto 0输入说明：X1？Y1？为（公共点）新坐标系中坐标X0？Y0?为（公共点）原坐标系中坐标T? 为新坐标系X轴在原坐标中方位角（即坐标轴旋转角）XP? YP?为待求点在原坐标系中坐标计算结果：XP1=、YP1=为待求点在新坐标系中坐标。