当前位置：文档之家 › 5800P计算器程序及使用说明 (1)

5800P计算器程序及使用说明 (1)

  • 格式：doc
  • 大小：136.00 KB
  • 文档页数：22

1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛QQ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。

一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。

在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。

所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。

那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。

即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元。

各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。

圆曲线单元是始终保持某一半径和相应曲率不变的线型。

缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。

完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。

于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。

LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZBN(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZBN(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QDBJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC(L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E。

+(X-D)÷C+H(X-D)2),D,O)→ZB+∫(Sin(E。

+(X-D)÷C+H(X-D)2),D,O)→Y“FYD ZB N(X)=”:Z+I→Z:Z◢“FYD ZB E(Y)=”:Y+J→Y:Y◢Pol(Z-R,Y-S)If J＜0:Then J+360→J:IfEndIf J≥360:Then J-360→J:IfEnd“CZD-FYD FWJ=”:J▶DMS◢“CZD-FYD PJ=”:I◢“＋－×÷END＋－×÷”:Goto A:Lbi B:”CHAO CHU DAN YUAN FAN WEI”:Goto A:Lbi C:”DAN YUAN FANG YANG JIE SHU”:Goto D三，注意事项：上面程序适用于直线、圆曲线、完全缓和曲线和不完全缓和曲线的各类型的计算。

所以，该程序适用于铁路、公路任何线型线路单元的中桩切线方位角和中、边桩坐标计算的通用公式。

实际使用上述程序时，还应注意一下几点：1.若计算直线单元时，则起终点的半径均为正的无穷大（取Ra=Rb=1×1010）;2.若计算圆曲线单元时，则起、终点的半径均等于其圆曲线的半径（Ra=Rb=R）;3.若计算完全缓和曲线单元时，则与直线相连接的一端，其半径为无穷大（取R=1×1010）；与圆曲线相连接的一端，其半径为所连接的圆曲线半径；4.若计算不完全缓和曲线单元时，则起终点半径分别为其两端所连接的圆曲线半径；5.若用于曲线单元的计算，则由线路单元的起点向终点方向确定曲线的左、右转向6.一般情况下，线路单元的起终点是顺里程方向确定的，即起点里程小于终点里程，其起终点和单元任一待求中桩点的里程均为正数（LA、LB、Li均为正）。

若线路单元的起终点是???绿里程方向确定的，即起点里程大于终点大于终点里程，则其起、终点和单元上任一待求中桩点的里程均为负数（LA、LB、Li均为负），且起点切线方位角，线路的左、右转向及线路的左、右边均与上述相反。

四，计算器屏幕字符提示说明1.输入已知数据的提示GTL ZHY ZBZ FYJS(提示公路铁路直缓圆中边桩放样计算的程序已启动)CZD ZB N(X)=?(提示输入测站点坐标N(X))CZD ZB N(X)=?(提示输入测站点坐标E(Y))DY QD ZB N(X)=?(提示输入单元起点坐标N(X))DY QD ZB E(Y)=?(提示输入单元起点坐标E(Y))DY QD BJ (R1)=?(提示输入单元起点半径(R1))DY QD LC (L1)=?(提示输入单元起点里程(L1))DY QD QX FWJ=?(提示输入单元起点切线方位角)DY ZD BJ(R2)=?(提示输入单元终点半径(R2))DY ZD LC(L2)=?(提示输入单元终点里程(L2))DY QD—ZD QX ZX （Z=-1；Y=+1）=？（提示输入单元起点一终点曲线转向（左输入-1，右输入+1））FYD DY ZZ LC=？（提示输入放样点对应中桩里程）ZZ—BZ FXJ（Z--；Y+）=？（提示输入中桩—边桩方向角（左边桩输入负角，0~180；右边桩输入正角，0~180））ZZ—BZ PJ=？（提示输入中桩—边桩平距，平距不分正负，均输入正数）任何线型的线路单元，均需要输入以上13个已知数据，可从线路设计文件资料中查取。

2.程序计算数据的提示ZZD QX FWJ=（提示计算的中桩点的切线方位角）FYD ZB N(X)=（提示计算的放样点坐标N(x)）FYD ZB E(Y)=（提示计算的放样点坐标E(Y)）CZD—FYD FWJ=(提示计算的测站点—放样点方位角) CZD—FYD PJ=（提示输入的测站点—放样点平距）＋－×÷EDN＋－×÷（提示一点的计算已经结束）CHAO CHU DAN YUAN FAN WEI （提示放样中桩点的里程已经超出单元范围）DAN YUAN FAN YANG JIE SHU （提示本线型单元放样结束）五．程序算例一段公路、铁路中线各单元端点的线路设计资料2．公路立交匝道完全与不完全缓和曲线中边桩坐标的计算程序（BWZHQXZBZ JS）一，计算程序Deg;fix 4:O→I：O→J“HHQX QD ZB N(X)=”?A”:”HHQX QD ZB E(Y)=”?B：”HHQX QD QX FWJ=“?C:”HHQX QD LC(L1)=”?D:”HHQX QD BJ(R1)=”?E:”HHQX ZD BJ (R2)=”?F:”HHQX ZD LC(L2)=”?GIf E＞F:Then GotoB:E1se Goto C:IfEndLbi B:1→Z:”R1＝＞R2 QX ZX(Z=-1,Y=1)=”?Q:If Q=1:Then 1→U:E1se -1→U:IfEnd:Goto DLbi C:If Z=-1:”R1=＞R2 QX ZX(Z=-1,Y=1)=”?Q:If Q=-1:Then 1→U:E1se -1→U:IfEndLb1 D:Abs(G-D)→H:Abs(FH÷(E-F))→K:√(EK)→L:C-90QK2÷(∏L2) →MLbI A:”CSD DY ZX LC=”?S:”Z-Y PXJ=”?V:”Z-Y PJL= “?R:IF E﹥F:Then Goto E:Goto f:IfEndLb1 E:If D<G:Then K+S-D→N:E1se K-S+D→N:I fEnd:Goto GLb1 F:D<G:Then K-s+D→N:E1se K+S-D→N:IfEndLb1 G:”ZXD QX FWJ=”:M+90QN2÷(∏L2)→T:T▶DMS ◢N-K-(N∧(5)-K∧(5)) ÷(40L∧(4)+(N∧(9)-K∧(9)÷(3456L ∧(8))-(N∧(13)-K∧(13))÷(599040L∧(12))+(N∧(17)-K∧(17))÷(17542600L∧(16))→O:(N∧(3)-K∧(3))÷(6L2)-(N∧(7)-K∧(7)) ÷(336L∧(6))+(N∧(11)-K∧(11))÷(42240L∧(10))-(N∧(15)-K∧(15))÷(9676800L∧(14))+(N∧(19)-K∧(19))÷(3530097000L∧(18))→PT+V→W:Rec(R,W):”CSD ZB N(X)=”:A+ZOcos(M)-UPsin(M)+I→X:X◢“CSD ZB E(Y)=”:B+ZOsin(M)+UPcos(M)+J→Y:Y◢“+ -×÷END+ -×÷”:GOTO A二，屏幕提示在应用计算程序计算中边桩点的坐标时，根据程序计算步骤和顺序，计算器显示屏上显示以下输入已知数据和程序计算结果的提示：HHQX QD ZB N(x)=？（提示输入缓和曲线起点（R1点）的N（X）坐标）HHQX QD ZB E(Y)=？（提示输入缓和曲线起点（R1点）的E（Y）坐标）HHQX QD QX FWJ=？（提示输入缓和曲线起点（R1点）的切线方位角）HHQX QD LC=？（提示输入缓和曲线起点（R1点）的里程）HHQX QD BJ（R1）=？（提示输入缓和曲线起点（R1点）半径R1）HHQX ZD BJ（R2）=？（提示输入缓和曲线终点（R2点）半径R2）HHQX ZD LC=？（提示输入缓和曲线终点（R2点）的里程）R1=＞R2 QX ZX：Z（-1）；Y（+1）=？（当R1＜R2时，提示输入缓和曲线从R1→R2的曲线转向系数。

左转输入-1，右转输入+1；当R1＞R2时，提示输入缓和曲线从R1→R2的曲线转向系数。

左转输入+1，右转输入-1；）CSD DY ZX LC=？（提示输入缓和曲线段的测设点对应于中线里程）Z—Y PJL=？（提示输入左，右测设点距中线桩的距离，距离一律输入正数）ZXD QX FWJ=（提示计算的缓和曲线中线点的切线方位角（由R1→R2切线方向））ZBZ ZB N（X）=（提示计算的缓和曲线中，边桩点的N（X）坐标）ZBZ ZB E（Y）= （提示计算的缓和曲线中，边桩点的E（Y）坐标）＋－×÷END＋－×÷（提示一点计算已结束）三，程序算例1，已知：X1=6064.571 Y1=3236.072 L1=K0+489.154 R1=200 X2=6041.694 Y2=3270.856 L2=K0+531.154 R2=60L12=42（左转向曲线，输入系数-1）2，计算：（1）计算ɑ值，ɑ=136 36 21.38（2）计算X ZH，Y ZH值：X ZH=6077.462，Y ZH=3223.512（3）计算不完整缓和曲线段各桩号左（10m），中，右（10m）点的坐标程序算例计算数据汇总表四，程序应用说明1.本计算程序既可用于连接大半径的圆曲线的不完全缓和曲线的计算，也可以用于连接小半径圆曲线的不完全缓和曲线的计算；既可以用于R1﹥R2的不完全缓和曲线的计算，也可以用于R1﹤R2的不完全缓和曲线的计算；既可以用于由R1到R2顺里程的不完全缓和曲线的计算，也可以用于R1到R2的逆里程的不完全缓和曲线的计算，既可以从不完全缓和曲线两端的任一端来计算。

合集下载

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

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

CASIO5800程序编辑说明

CASIO5800程序编辑说明

CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。

卡西欧5800P矩阵编程计算器说明书

卡西欧5800P矩阵编程计算器说明书

请您将程序使用中的问题与建议及时发送到 qh-506@，以便改进我们的工作，更好地 为您服务，卡西欧(上海)贸易有限公司感谢您的大力支持！
1、程序 PR1，计算一个起点至任意个端点的边长与方位角
"X,Y DIST And BEARING PR1" Deg:ClrStat:FreqOff:Fix 3 "X0(m)="?A:"Y0(m)="?B 0K
② 在您购买的 fx-5800P 上按 键打开机器电源，按
(LINK) (Receive)键使您
的机器处于接收数据状态，屏幕显示“Receiving…”，表示机器正等待接收母机发送来的数据；
③ 在代理商的母机上按 键打开机器电源，按
(LINK) (Transmit) (All)
(Yes)键启动代理商的母机发送数据，屏幕显示“Transmitting…”，表示正在发送数据。
六十进制的角度值，应将光标移动到 List Y 的某个单元，按
键。
2、程序 PR2，极坐标法放样元素计算
"POLAR SETTING-OUT PR2" Deg:ClrStat:FreqOff:Fix 3 "XO(m)="?A:"YO(m)="?B "X0(m)="?C:"Y0(m)="?D Pol(C-A,D-B):Cls If J<0:Then J+360 E:Else J E:IfEnd "DIST O 0(m)=":I "BEAR O 0(DMS)=":E DMS 1 K:I List X[K]:E List Y[K]
提示输入 n 点的 y 坐标 调用极坐标函数并清除屏幕显示
5800P计算器程序

5800P计算器程序

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

新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。

3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。

0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

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

程序名：0（数子0）1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂H=＂:Lcoate 6,4,H-Z[9]：＂I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂LGD=＂:Lcoate 6,4,P：＂RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0.75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfEnd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂LX=＂:Locate 6,4,T：Prog＂ZD＂:＂TW=＂:Lcoate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:”TW=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z →Z[9]:Prog”C”:L→Z[10]:Prog”K”:Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S:S=0=>Goto 1: √(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2)-V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ”LX=”: Locate 6,4,L:Prog”ZD”:“H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos(S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→D:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:H ÷2-H∧(3)÷240÷R2+ H ∧(5)÷34560÷R∧(4)- H ∧(7)÷8386560÷R∧(6)+ H ∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”: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:ILbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名： C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→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:”S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。