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运行。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、QXFY 辛甫森公式放样程序1. “X0”? U：“Y0”?V2. “XA”? A：“Y A”? 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＝”：10. 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)Y A:曲线起算点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”: G9. 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 ：IfEnd 5. Ｚ＋ＫπＲ(Ｊ－Ｔ)÷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: “Y A” ?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”：7. X+FcosA→C8. Y+FsinA →D:“YP”：D9. G=A－180：“JPB”：If 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=为待求点在新坐标系中坐标。