当前位置：文档之家 › 5800测量程序

5800测量程序

  • 格式：doc
  • 大小：63.00 KB
  • 文档页数：4

CasioFX-5800P测量程序集（博牙高速公路13标隧道） 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 :要旋转的方位角。 X,Y : 目标点的坐标。 N=1 :大地转施工。 N=2 :施工转大地。

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 : Ifend LBI 1 :〝YUAN 1〞: POL(H－G－1.533 , Y) －6.3▲Goto 0 LBI 2 :〝YUAN 2〞: POL(H－G－1.533 , Y+2.5) －8.82▲G－H▲Goto 0 LBI 3 :〝YUAN 3〞: POL(H－G－0.302 , Y-4.594) －1.62▲Goto 0 LBI 4 :〝YANG GONG〞: POL(H－G－13.527 , Y) －15.62▲Goto 0 说明 ：X , Y , H : 为掌子面上任意点坐标。

5 ：B P （洞口边坡开挖计算公式） LBI 0 : ?X : ?Y : ?H : Prog〝GC〞: If X<8470 : Then Goto 1 : ELse Goto 2 : Ifend LBI 1 : 〝PO－DI－CHA=〞:H－G－1.533▲ 〝I=〞: （H－G－1.533）÷（Y－6.5）→I▲ 〝PIng－JU=〞: Y－（（H－G－1.533）÷2+6.5）▲ 〝GAO－CHA=〞: H－G－1.533－（Y－6.5）×2▲ Goto 0 LBI 2 :〝I=〞: （H－G）÷（Y－8.475）→I▲ 〝PIng－JU=〞: Y－（（H－G）×1.5+8.475）▲ 〝GAO－CHA=〞: H－G－0.6667（Y－8.475）▲ Goto 0 6 : DMCX （ 断面程序，改进后 ） LBI 0 : CLS : ?X : ?Y : ?H : Prog〝GC〞: If H≥G+1.533 : Then Goto 1 : ELse If H≥G+0.13 And HThen Goto 2 : ELse If H≥G－0.64 And HThen Goto 3 : ELse If HIfend : Ifend : LBI 1 : POL（H－G－1.533 , Y）→R : CLS 〝YUAN1=KW〞：Loate 10 , 1, R－6.4 〝GONG JIA=〞： Loate 10 , 2 , R－6.19 〝G1=〞：Loate 10 , 3 , G+1.533－H▲ Goto 0 LBI 2 : POL（H－G－1.533 , Y+2.5）→R : CLS 〝YUAN2=〞：Loate 8 , 1 , R－8.69 〝G1=〞：Loate 8 , 2 , G+1.533－H 〝G2=〞：Loate 8 , 3 , G－0.624－H▲ Goto 0 LBI 3 〝YUAN3=〞: POL（H－G－0.302 , Y－4.594）－1.65▲ 〝G2=〞: G－0.624－H▲ Goto 0 LBI 4 〝YANG GONG=〞: POL（H－G－13.527 , Y）－15.65▲ Goto 0

7 ：GC(高程子程序，注意子程序不能独立运行) （LBI 0 : ?X :）If X≥7000 And X<7780 : Then 772.93→A : 7130.692→B : 0.009→C : －0.007→D : 80000→R : Goto 1 : ELse If X≥7780 And X<8733.5 : Then768.39→E : 7780→L : －0.007→D : Goto 2 : ELse If X ≥8733.5 And X<9266.5 : Then 759.85→A : 9000→B : －0.007→C : －0.0275→D : 26000→R : Goto 1 : ELse If X≥9266.5 And X<9826.805 : Then 744.82→A : 9546.652 →B : －0.0275→C : －0.005→D :24902.41→R :Goto 1 : ELse If X≥9826.805 And X<10101 : Then 743.419→E : 9826.805→L : －0.005→D ：Goto 2 : Ifend : Ifend : Ifend : Ifend : Ifend LBI1 : C－D→F : Abs (RF÷2)→T : R Abs(F)÷F→R : X－B+T→M :〝G=〞: A－(B－X)C－M2÷（2R）→G▲Return LBI 2 :〝G=〞: E +（X－L）D→G▲Return 说明 : A ：竖曲线变坡点高程。B ：变坡点里程桩号。C ：前坡度。 D ：后坡度。R ：竖曲线半径，此程序为子程序不能独立运行，若想要独立运行，只需加上括号内内容，将后面两个Return改为Goto 0 即可。 8 ：HHQX-TY（缓和曲线通用程序） 〝N=1 .SZ => XY, N=2 . XY => SZ〞: ?N :〝XO〞?U :〝YO〞?V :〝SO〞?O : 〝FO〞?G :〝LS〞?H :〝RO〞?P :〝RN〞?R : ?Q : 1÷P→C :（P－R）÷（2HPR） →D : 180÷π→E : If N=1 : Then Goto 1 : ELse Goto 2 : Ifend▲ LBI 1 : ?S : ? Z : Abs（S－O）→W : Prog〝SUB1〞:〝XS=〞: X▲〝YS=〞: Y▲ 〝FS=〞: F－90▲Goto 1 LBI2 : ?X : ?Y : X→I : Y→J : Prog〝SUB2〞:〝S=〞: O+W→S▲〝Z=〞: Z▲Goto 2

说明：N=1 ：正算求坐标。N=2 ：反算求里程桩号和偏距。XO,YO ：起点坐标。SO :起点里程桩号。FO ：起点方位角。LS ：线元长度。RO ：起点曲率半径，当半径为无穷大时用1×10表示，左偏时Q=-1，右偏时Q=1，直线段Q=0 。S ：为待求点的里程桩号。Z ：为待求点距中心线的偏距，左侧为正，右侧为负。

9 ：SUB1（缓和曲线正算子程序，不能独立运行） 0.1739274226→A : 0.3260725774→B : 0.0694318442→K : 0.3300094782→L : 1－L→F : 1－K→M : U+W（A Cos（G+QEKW（C+KWD））+B Cos（G+QELW（C+LWD））+ B Cos（G+QEFW（C+FWD））+A Cos（G+QEMW（C+MWD）））→X :V+W（A Sin（G+QEKW（C+KWD））+B Sin（G+QELW（C+LWD））+ B Sin（G+QEFW（C+FWD））+A Sin（G+QEMW（C+MWD）））→Y : G+QEW（C+WD）+90→F : X+Z cos（F）→X : Y+Z Sin（F）→Y

10 : SUN 2（缓和曲线反算子程序，不能独立运行） G－90→T : Abs（（Y－V）Cos（T）－（X－U）Sin（T））→W : 0→Z : LBI 0 : Prog 〝SUB 1〞: T+QEW（C+WD）→L :（J－Y）Cos（L）－（I－X）Sin（L）→Z : If Abs（Z）< 1×10－6 : Then Goto 1 : ELse W+Z→W : Goto 0 : Ifen LBI 1 : 0→Z : Prog〝SUB 1〞:（J－Y）÷Sin（F）→Z

11 : HHQX－BGD （缓和曲线本工地，内含曲线要素数据库） LBI 0 :〝N=1 .SZ =>XY, N=2 . XY => SZ 〞: ?N : ?S : Prog〝QXSJK〞: 1÷P→ C :（P－R）÷（2HPR）→D : 180÷π→E If N=1 : Then Goto 1 : ELse Goto 2 : Ifend : LBI 1 : ?Z : Abs（S－O）→W : Prog〝SUB 1〞:〝XS=〞: X▲ 〝YS=〞: Y▲〝FS=〞: F－90▲ Goto 0 LBI 2 :〝X〞?I :〝Y〞?J : Prog〝SUB 2〞:〝S=〞: O+W→S 〝Z=〞: Z▲ Goto 0

12 : QXSJK （缓和曲线数据库子程序，不能独立运行） If S≥7000 And S<8552.052 : Then 39351.594→U : 72418.7097→V : 7000→O : 257.8746719→G : 2000→H : 1×1045→P : 1×1045→R : 0→Q : ELse If S≥8552.052 And S<8752.052 : Then 39025.584→U : 70901.283→V : 8552.052→O : 257.8746719→G : 200→H : 1×1045 →P : 1800→R : 1→Q : ELse If S≥8752.052 And S<9900.413 : Then 38987.2071→U : 70705.0275→V : 8752.052→O : 261.0577708→G : 1148.361→H : 1800→P : 1800→R : 1→Q : ELse If S≥9900.413 : Then 39170.3263→U : 69590.9925→V : 9900.413→O : 297.6112367→ G : 200→H : 1800→P : 1×1045→R : 1→Q : Ifend : Ifend : Ifend : Ifend : Return

合集下载

5800p高程程序

5800p高程程序

CASIO-5800P路面高程控制测量程序（一）“XXX”主程序(注：本程序用“_”代替空格，其余均无空格)Clr Mat：Fix 3：Clr stat：FreqOn0→M(数字零)Cls：“1ZX_2YX”？→ECls：？KE=1＝＞prog“ZX”E=2＝＞prog“YX”Mat C[1,1] →F:Mat C[1,2] →Z:Mat C[1,3] →X:Mat C[1,4] →Y:Mat C[1,5] →R:Mat C[1,6] →B:Mat C[1,7] →GX/100→X:Y/100→YRabs(Y-X)/2→TCls:“HS”？A: “BM(HS)”?C:Cls:“SXG=”:Locate5,1,A+C◢Lb1 A:Cls: “QS”?PCls:?KIf K<F or K>Z:Then Cls :Locate6,2, “K Out ！”◢Stop :If EndIf Y>X:Then 1→W:Else -1→W:If EndIf K<B:Then -X→I:Else Y→I:If EndAbs(B-K) →LIf L>T:ThenG+IL→H:Cls:“H（ZZ）=”:Locate7,1,H◢Goto B:ElseG+IL+W(T—L) 2(平方)/2/R→H：Cls:“H(ZZ)=”Locate7,1,H◢Goto B:If EndLb1 B:“JGC（H）”？O“BJ”？N11→Dim Z“ZXHP__YXHP”? →JJ=1＝＞Prog“ZXHP”J=2＝＞Prog“YXHP”Mat D[1,1] →Z[2]:Mat D[1,2] →Z[3]:Mat D[1,3]→Z[4]:Mat D[1,4]→Z[5]:Mat D[1,5]→Z[6]:Mat D[1,6] →Z[7]:Z[4]+((Z[5]-Z[4])*(K-Z[3])):(Z[2]-Z[3]) →U:Z[6]+(Z[7]-Z[6])*(K-Z[3]))/(Z[2]-Z[3]) →SCls:If N≤0:Then H-0-U(N+1)/100→V:Else H-0+S(N+1)/100→V:If endCls :V-A-C+P→QCls:“HC=”: “HS=”:Loacte6,1,A+C-P:Locate6,2,V◢Cls:“H=”:Locate6,1,Q◢M+1→M:K→List→X[M]:V→List Y[M]:Q→List Freq[M]Goto A:If end（二）“ZX”（主线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(三)“ZXHP”（主线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，左幅起点横坡（只需输入横坡%前数字且低于中线为负），左幅终点横坡，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(四)“YX”（右线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1（五）“YXHP”（右线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，0（此为数字零，一般左线为主线），0，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd……………………………………………同理循环输入………………………………………LbI 1。

工程测量中fx-5800P计算器基本程序

工程测量中fx-5800P计算器基本程序

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

5800公路测量程序22版(7条路线)

5800公路测量程序22版(7条路线)

FX5800计算器公路测量常用程序集2.2 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCXLbl 0: 24→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9Lbl 1:Prog＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→Z[1]:C→Z[8]:Lbl B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>GotoX:Prog＂KM＂:?D:Porg＂THB＂:0→L:＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E)→X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto BLbl 2:2→F:90→Z[1]:Prog＂QX＂: Lbl C:＂DKLC＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto CLbI 3:Prog＂QX＂:→B:＂H-B＂?B:B→Z[9]:＂SXG＂?L:Lbl D:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 3:?D:＂ZS＂?P: Porg＂H＂:Fix 3:＂SJG=＂:Lcoate 6,4,H-Z[9]:＂SCG=＂:Lcoate 6,4,F:＂I=＂:Locate 6,4,I×100: If U<0:Then ＂W=＂: Locate 6,4, U: Else＂T=＂: Locate 6,4, U : IfEnd◢Goto DLbl 4:Prog＂QX＂:LbI E:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3:＂ SJGD=＂:Locate7,4,L: Goto ELbl 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[23]:Lbl F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂:＂X0＂?X:＂Y0＂?Y:0→M:＂M0＂?M: M→Z[4]:Prog＂FBX＂:Fix 2: P→D ：Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O:Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto FLbl 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T:＂ TW=＂:Locate 6,4,T◢ Goto HLbl 7:Prog＂DX＂:LbI I:Prog＂QX＂: ＂Z0＂?Z:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R:＂LR＂?R: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:DZH+,XZH-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto JLbl 8:Prog＂DX＂:Lbl K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto KLbl 9:Porg＂DX＂:Lbl L:Prog”QX”:Lbl M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:＂CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M:＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂SD＂: Goto M: Lbl X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：FBXProg“THB”:D→P:Prog“GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd:Lbl H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W-1”:If Z[4]<0:Then –Z[4]→G:Goto W:Else Z[4] →G:Goto T:IfEnd:Lbl W: Z[10]+Z[11] +Z[12] +Z[13]→A: Z[10]+Z[11]+Z[12]→B:Z[10]+Z[11]→C: If G>A:Then Goto 1:Else If G>B:Then Goto 2:Else If G>C:Then Goto 3:Else If G>Z[10]:Then Goto 4:Else Goto 5:IfEnd:Lbl 1: L+Z[14]+Z[15]+Z[16]+Z[17]+Z[18]+(G-A)×Z[9]+Z[13]×Z[8]+Z[12]×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 2: L+Z[14]+Z[15]+Z[16]+Z[17]+(G-B)×Z[8]+Z[12]×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 3:L+Z[14]+Z[15]+Z[16]+(G-C)×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z: Lbl 4:L+Z[14]+Z[15]+(G-Z[10])×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 5:L+Z[14]+G×Z[5] →S:Goto Z:Lbl T:L+Z[23]→T:If G>Z[21]:Then T+Z[22] +Z[21]×Z[19]+(G-Z[21])×Z[20]→S:Goto Z:Else T+G×Z[19]→S:Goto Z: IfEnd:Lbl Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：SDProg “KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10])×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:Lbl R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:Lbl S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 )×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:Lbl L: Fix 2: “L0=”: Locate 6,4,L:Prog“ZD”:“H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JS(一式)X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4: “FWJ=”: Locate 6,4,J:Fix 3:“JL=”:Locate 6,4,I◢JS(二式)X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEndFix 3:“JL=”:Locate 6,4,I: J▲DMS◢5．路基宽度子程序：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G-1”:Z-C→E: E ×(B-A)/S+A→L:6．坐标计算次程序程序名：THBIf Q>1:Then Goto J: Else 1÷P→C:(P-R)÷(2HPR)→S:180÷π→E:IfF=1:Then Abs(Z-O) →W:Prog "A":Ｇoto 2:Else X→I:Y→J:Prog ＂B＂:O＋Ｗ→Z:D→D:Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z":Ｇoto 1:Else Prog ＂ZX＂:Ｇoto 2: IfEnd: LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A: 0.2393143352→B：0.2844444444→N：0.0→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+Q E(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))→X:V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+Q E(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS))) →Y:G+QEW(C+WS)→Z[2]:X+Ｄcos（Z[2]+Z[1]）→Ｘ: Y+Ｄsin（Z[2]+Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名： B G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T))→W：0→D：Lbl 0：Prog "A"：T+QEW(C+WS)→L：(J-Y)cos(L)-(I-X)sin(L)→D：IF Abs(D)<0.01:Then Goto 1：Else W+D→W:Goto 0: IfEnd: Lbl 1:0→D：Prog "A"：(J-Y)÷sin(Z[2]+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))/2688/R∧(3))÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P)→W:0→M:H→C:If Z≤O -T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O -T+H:Then Z-O +T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O -T+πR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O +T-0.5H)÷R÷π→S : A+R(1-Cos(S))→B : H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:O -T+πR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:Lbl 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G)→J: Goto 3:Lbl 2:U+Scos(Z[2])→I:V+Ssin(Z[2])→J: LbI 3:C→H10. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:90S2÷π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:Lbl 0:Prog“Z”:Pol(X-I,Y-J):J-Z[2]→J:Isin(J)→S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMπ)/180→I:Z+I→Z:Goto 0:IfEnd:LbI 212．高程计算子程序（H）程序名：HProg “S-1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:Lbl 0:If D=0:Then H→H: I→I:Goto I:Else Prog “I”:H+V→H:Abs(L-13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog“I-1”:Goto 1:Else If Z[3]=2:Then Prog“I-2” :Goto1: Else If Z[3]=3:Then Prog“I-3” :Goto 1: Else If Z[3]=4:Then Prog“I-4” :Goto 1: Else If Z[3]=5:Then Prog“I-5” :Goto 1: Else IfZ[3]=6:Then Prog“I-6” :Goto 1: Else Prog“I-7”:Goto 1: IfEnd:Lbl 1: If W=1:Then Goto Z:Else Goto X: IfEnd :Lbl Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:Lbl X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:Lbl 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11]→K:Z[12]→L:“XZ”?K:“YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时,则输曲线参数)（QX）程序名：QX1→A:“LX:XX-1,XA-2,XB-3,XC-4,XD-5,XE-6,XF-7”?A:A→Z[3]:If A=0:Then Goto 1:Else Goto 2: IfEnd:Lbl 1:“JDO”?O:“XO”?U:“YO”?V:“FW”?G:“LS”?H:?P:?R:“J=2,3;X=(0,1,-1)”?Q:If Q=2:Then H→N:Goto 2:Else If Q=3:Then“LS”?N:Lbl 216．线路中线元段判别子程序（KM）程序名：KMIf Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “XX-1”:Goto 0: Else If Z[3]=2:Then Prog “XA-2”:Goto 0: Else If Z[3]=3:Then Prog “XB-3”:Goto 0: Else If Z[3]=4:Then Prog “XC-4”:Goto 0: Else IfZ[3]=5:Then Prog “XD-5”:Goto 0: Else If Z[3]=6:Then Prog “XE-6”:Goto 0: Else Prog “XF-7”:Goto 0: IfEnd: LbI 017．坐标计算参数转化子程序（F）程序名：FMat F[1,1]→O:Mat F[1,2]→U:Mat F[1,3]→V:Mat F[1,4]→G:Mat F[1,5]→H:Mat F[1,6]→P:Mat F[1,7]→R: Mat F[1,8]→Q:Q=2=>H→N:Q=3=>Mat F[1,9]→N18.桥梁锥坡放样子程序（ZP）程序名：ZP√(Z[6]2（1-Y2/Z[7]2）) →X:Z[8] →Z:Prog“GD”:If D>0:Then L+X→D:Else –L-X→D:IfEnd:Z[8]+Y→Z:D:1→F:90→Z[1]:Prog“KM”:Prog“THB”:Prog“XY”:Prog“JS”19．显示子程序（XY）和（ZD）①程序名：XYFix 3:＂XS=＂:Locate 6,4,Ｘ：＂YS=＂:Locate 6,4,Ｙ：②程序名：ZDFix 3:＂KM=＂:Locate 6,4,Z：＂ D=＂:Locate 6,4,Z：20．数据子程序(附后示例)①-1程序名：X X-1（线路1坐标计算要素程序）If Z≤26615.555:Then [[25900,11587.421,1847.983, 101。

5800计算机测量程序

5800计算机测量程序

5800计算机测量程序1:主程序（TYQXJS）Lb1 4:”1.SZ=>XY”:”2.XY=>SZ”:?N:U:”X0”?U: V:”Y0”?V: O:”S0”?O :G:”F0”?G:H:”LS”?H:P:”R0”?P:R:”RN”?R:Q:”Q”?Q:↘(1÷P)→C:(P-R)÷(2HPR)→D:(180÷Π)→E:N=1=>Goto 1:Goto 2↘Lb1 1:?S:?Z:Abs(S-O)→W:Prog”SUB1”: ↘“XS=”:X◢“YS=”:Y◢F-90→F:”FS=”:F▲DMS◢Goto 1↘Lb1 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”S◢“Z=”:Z◢Goto 2↘正算子程序（SUB1）0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：↘U+W（Acos(G+QEKW（C+KWD）)+Bcos（G+QELW（C+LWD））+Bcos （G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X：↘V+W（Asin（G+ QEKW（C+KWD）)+ Bsin（G+QELW（C+LWD））+Bsin （G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y：↘G+QEW（C+WD）+90→F：X+Zcos(F)→X：Y+Zsin（F）→Y：反算子程序(SUB2)G-90→T：Abs(Y-V)cosT-(X-U)sinT) →W↘0→Z：Lbl 0：Prog "SUB1"↘T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<0.001：Then 0→Z:Prog "SUB1"：(J-Y)÷sin（F）→Z：Else W+Z→W:Goto0：IfEnd↘使用说明U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号，G：“FO”起点的方位角，H：“LS”计算段线元的长度，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。