最新5800公路测量程序使用说明
5800高速公路专用的程序
1、ZBJS(坐标计算)Lbl 4：Deg：Cls："1.SZ => XY"："2.XY => SZ"："1,2="?Q："S="?S：1→I ←┘If I=1：Then Prog"ZX"：IfEnd←┘If I=2：Then Prog"YX"：IfEnd←┘If Q=1：Then Goto 1：IfEnd ：IF Q=2：Then Goto 2：IfEndGoto4←┘Lbl 1：If S＜0 Or S＞9971.664：Then Goto 4：IfEnd："Z ="?Z："G ="?J：Prog "ZS"←┘A+(X÷P+DX2)×180÷π→F←┘If F＜0：Then F+360→F：IfEnd←┘"X="：N+Zcos(F+J)→N◢"Y="：E+Zsin(F+J)→E◢"FWJ="：F▶DMS◢Lbl 3：Cls："1.ZH => XY"："2.SZ => XY "："1,2="?K←┘If K=1：Then "PJ="?G："Z="?Z："H="?H：Cls："X="：N-Zsin(F+G)+Hcos(F+G) →X◢"Y="：E+Zcos(F+G)+Hsin(F+G)→Y◢Goto 3：IfEnd←┘If K=2：Then Goto 4：IfEnd←┘Goto 3←┘Lbl 2："X="?B："Y="?C：B→N：C→E：Prog"FS"："S="：S→S◢"Z="：Z→Z◢Goto 42、ZS（正算）0.5(1÷R-1÷P)÷L→D：X←┘U+∫(cos(A+(X÷P+ DX2)×180÷π,0,X)→N←┘V+∫(sin(A+(X÷P+ DX2)×180÷π,0,X)→E：Return3、FS（反算）Lbl 1：If I=1 :Then Prog"ZX"：IfEnd←┘If I=2 :Then Prog"YX"：IfEnd←┘Prog"ZS"A+(X÷P+ DX2)×180÷π→F←┘PoI(N-B,E-C)：Isin(F-90-J)→W：S+W→S←┘If Abs(W)＞0.0001：Then Goto 1：IfEnd←┘(C-E)÷sin(F+90)→Z：Return4、YX（曲线要素）(右线)If S≤114321.111:Then 61719.889→U:384671.632→V:114181.111→O:214·24′47.4〞→A:140→L:10ˇ(45) →P:-1500→R:Return:IfEndIf S≤114464.085:Then 61603.185→U:384594.323→V:114321.111→O:211·44′21.71〞→A:142.974→L:-1500 →P:-1500→R:Return:IfEndIf S≤114604.085:Then 61478.195→U:384525.015→V:114464.085→O:206·16′41.37〞→A:140→L:-1500 →P:10ˇ(45)→R:Return:IfEndIf S≤114734.085:Then 61350.809→U:384466.974→V:114604.085→O:203·36′15.7〞→A:130→L:10ˇ(45) →P:1330→R:Return:IfEndIf S≤114859.847:Then 61232.562→U:384412.991→V:114734.085→O:206·24′16.31〞→A:125.762→L:1330 →P:1330→R:Return:IfEndIf S≤114989.847:Then 61122.73→U:384351.826→V:114859.847→O:211·49′20.28〞→A:130→L:1330 →P: 10ˇ(45)→R:Return:IfEndIf S≤115119.847:Then 61014.573→U:384279.724→V:114989.847→O:214·37′20.9〞→A:130→L:10ˇ(45) →P:-750→R:Return:IfEnd5、ZX（曲线要素）(左线)If S≤114190.204:Then 62028.741→U:384870.288→V:113819.03→O:206·4′10.8〞→A:371.174→L:10ˇ(45) →P: 10ˇ(45)→R:Return:IfEndIf S≤114320.204:Then 61695.33→U:384707.171→V:114190.204→O:206·4′10.8〞→A:130→L:10ˇ(45) →P: -950→R:Return:IfEndIf S≤114458.231:Then 61577.309→U:384652.73→V:114320.204→O:202·8′57.94〞→A:138.028→L:-950 →P: -950→R:Return:IfEndIf S≤114588.231:Then 61446.142→U:384610.144→V:114458.231→O:193·49′29.4〞→A:130→L:-950 →P: 10ˇ(45)→R:Return:IfEnd曲线要素可以添加，只要格式正确就行一、坐标计算方位角和距离的程序主程序：FSLbl 1：？M：?N：?V：?W√((V－M) 2 +(W－-N)2 )→Ccos-1((V－M)÷C) →TIf W－N<0 : Then 360－T→T : Else T→T : IfEnd“C=” : C◢“T=” : T▶DMS◢Goto 1程序说明：输入坐标（M,N）、（V,W），其中（M,N）为起点坐标，（V,W）为终点坐标，输出显示C为两点间距离，T为起点到终点的方位角。
卡西欧5800测量坐标计算程序
一．使用说明：1.规定：（1）以道路中线的前进方向区分线路的左右偏转方向，线路左偏Q=-1，线路右偏Q=1，直线Q=0。
（2）当所求点位于线路中线时，Z=0；当位于左侧时，Z取负值；当位于右侧时，Z取正值。
（3）当线元为直线时，其起终点的曲率半径为无穷大，取10的45次方代替。
（4）当线元为圆曲线时，起终点曲率半径为圆曲线半径。
（5）当线元为缓和曲线时，起终点曲率半径与直线相接取10的45次方代替，与圆曲线相接取圆曲线半径。
2.输入与显示说明：（1）输入部分：N？：选择计算方式，输入1表示由里程边距计算坐标，输入2表示由坐标计算里程边距。
X0？线元起点X坐标。
Y0？线元起点Y坐标。
S0？线元起点里程。
F0？线元起点切线方位角。
LS？线元长度。
R0？线元起点曲率半径。
RN?线元终点曲率半径。
Q？线元左右偏标志（左偏=-1，右偏=1，直线=0）S?正算时所求点里程。
Z？正算时所求点距中线边距。
位于线路左侧输入负值，在右侧输入正值。
AR?斜交角度。
（为线路右角，在0-180度之间）X?反算时所求点X坐标。
Y？反算时所求点Y坐标。
（2）显示部分：XS=计算结果，所求点X坐标。
YS=计算结果，所求点Y坐标。
FS=计算结果，所求点切线方位角。
S=计算结果，反算时所求点里程Z=计算结果，反算时所求点边距。
二．程序清单1（用于任意曲线元的坐标计算）1.主程序(TYQXJS)″1.SZ=>XY″:″2.XY=>SZ″:?N:″X0″?U:″Y0″?V:″S0″?O: ″F0″?G:″LS″?H:″R0″?P:″RN″?R:?Q:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:If N=1: THEN Goto 1:Else Goto 2:IfEnd:Lbl 1:?S:”D(Z-，Y+)=”?Z:90→T:”O=”?T:Abs(S-O) →W:Prog ″SUB1″:″XS″:X◢″YS″:Y◢″FS″:F◢Goto 1:Lbl 2:?X:?Y:I→X:J→Y:Prog ″SUB2″:″S″:O+W→S:◢″Z″:Z◢Goto 22.正算子程序(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) →F:X+Zcos(F+T) →X:Y+Zsin(F+T) →Y3.反算子程序(SUB2)G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lbl 0:Prog ″SUB1″:T+QEW(C+WD) →L:(J-Y)cos(L)-(I-X)sin(L)→Z:IF Abs(Z)<1E-6 :Then Goto 1:Else W+Z→W:Goto 0 : IfEnd:Lbl 1:0→Z:Prog ″SUB1″:(J-Y)÷sin(F)→Z 三．用于提前将曲线元要素输入子程序，计算时只输入里程桩号与边距。
5800RTK简明操作手册
第一部分RTK操作流程第一步：内业准备。
一、新建任务二、键入已知点第二步：基准站的连接、启动一、基准站的连接二、基准站的配置三、基准站的启动第三步：移动站的连接一、移动站的连接二、移动站的配置第四步：点校正第五步：测量或放样第二部分动态数据处理RTK野外数据采集存储在手薄里面，内业处理时只需把手薄的文件传输到计算机。
手薄文件传输到计算机后，是*.dc文件格式，导入计算机时应该选择导入*.dc 文件格式。
由于RTK野外采集时已经解算出点的坐标，计算机处理时只需导入此*.dc 文件格式。
选择你需要的导出格式就可以，不需要进行基线解算和网平差。
如果自定义项目中没有你需要的数据格式，参考下面的操作流程，自定义导出数据格式。
RTK数据处理流程如下：↓↓↓7．1如何新建自定义数据格式：7.1.1：TGO软件中选择你要导出的全部点(Ctrl+A)。
7.1.2 选择‘导出’菜单。
如果CAD或GIS方面的数据格式，可以直接选择*.dwg或*.dxf格式，点击右边‘选项’，选择CAD的版本。
如果不是CAD或GIS方面的数据格式，则选择‘自定义’格式。
如下图：这里有一些设计好的输出格式，你可以对现有的选项进行编辑，还可以新建你需要的数据格式。
例如你现在使用的是南方测绘Cass5.0成图软件，而Cass5.0读入点的位置信息是以以下排列的*.dat文件。
（点名称，代码，东坐标，北坐标，高程），其中，如果外业没有加入代码，也必须留下代码的位置。
点击‘新建格式’，弹出以下对话框。
‘名称’用户可以自定义，‘空字串’、‘描述’可以空着！缺省扩展名(X)：dat。
（此处如果你想要电子表格形式，则填写：CSV。
此形式是以逗号隔开的电子表格形式。
如果你需要纯文本形式，则填写：txt）。
‘格式标题’、‘格式注脚’均可以空白。
在‘格式体’内填写：点名称，代码，东坐标，北坐标，高程具体做法是：1．光标移至‘格式体’区。
2．点击右键→域→名称→要素代码→东坐标→北坐标→高程注意：各要素间用逗号隔开。
卡西欧5800测量实用程序（含直线、圆曲线、大地转施工程序）
卡西欧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 ，左偏= 负值，右偏= 正值。
5800使用程序说明
Fx-5800程序使用说明本程序为本人自编含正反算、高程、超高、加宽及水准测量一体；可进行路基填挖坡角、高程放样；还可以换算路面各种结构成进行放样。
特别是反算可以对任意点进行反算坐标、高程并计算得出坡角，在实际应用中（1人看全站仪，1人拿棱镜，1人打桩）速度达可以让拿棱镜和打桩人员跑起来工作）。
其实有了本程序，测量是一件很轻松的工作，如果你还在用传统的程序测量方法，还在为计算标高、换算坡角等天天晚上加班计算后第二天还要移桩，真应该认真看看本程序，它可以让你的测量速度快最少一至两倍以上。
一份好的程序必须结合设计施工图进行编程可以让测量达到最快速度，如果有谁想要代编程序请联系：QQ：9286330；以下为某二级公路放样程序使用说明：一、运行A—XY程序：1、 X1？………………….输入测站点X位标；2、 Y1？………………….输入测站点Y位标；3、 X2？………………….输入后视点X位标；4、 Y2？………………….输入后视点Y位标；5、 Z2？………………….（1）输入测站点Z位标；或（2）输入后视点Z位标6、A=…………………….显示全站仪对后视的方位角（此时可将全站仪转到5800上显示的方位角并固定好水平位置，按仪器锁定方位角，然后将仪器对准后视点（为了保证更好精度，对准棱镜杆与后视控制点交叉处也可），放开锁定方位角即可进行测量）7、S=…………………….显示全站仪与后视点水平距离；8、 HS？………………….输入高差：（1）、若Z2？时输入测站点Z，则输入数据0；（2）、若Z2？时输入后视点Z，则输入全站仪对后视的高差数据；9、 LJG？……………….. 输入仪器高或棱镜高：（1）、若Z2？时输入测站点Z，则输入仪器仪高；（2）、若Z2？时输入后视点Z，则输入棱镜高；注意：5、8、9三步的关联，否则实测高程计算不对10、 LM？…………………输入路线号（如有匝道等多条线路时选择数据，若只有一条路则按“EXE”进入下一步，即选默认路线）11、 K？…………………输入预测点大概桩号（如测站测K25+200~K25+800，则可输入其桩号之间的数，如K25+300即输入25300即可，此桩号仅用于当数据多时加快后面的计算器运行速度）二、运行A—FY程序（当运行A—XY程序时自动运行，若不换测站点时才能直接运行本程序，即不用输入第一步数据，但换站时必需运行A—XY程序）（一）、正算放样（即根据已知桩号和边桩距离放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：1）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、K？………………….输入放样点桩号；4、B？………………….输入放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；5、A=…………………….显示全站仪与放样点的方位角（此时可将全站仪转到5800上显示的方位角进行对放样点方向）；6、S=…………………….显示全站仪与放样点水平距离HD；7、CS？………………….输入放样点与测站点的高差VD；8、LJG？………...…….. 输入放样点的棱镜高；9、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第13步重测放出真正的填（挖）坡角；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第9步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（二）、反算放样一：（即根据在任意点先测出方位角、距离、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：2）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、A3？…………………输入全站仪与放样点的方位角（即全站仪上方位角读数）；4、S3？………………….输入全站仪与放样点水平距离HD；5、CS？………………….输入放样点与测站点的高差VD；7、LJG？………...…….. 输入放样点的棱镜高；8、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第3步重测放出真正的填（挖）坡角；9、显示：K=…………….显示放样点桩号；B=…………….显示放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第8步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（三）、反算放样二：（即根据在任意点先测出XY坐标、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：3）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、X3？…………………输入全站仪上X坐标；；4、Y3？………………...输入全站仪上Y坐标；5~13步说明与(二)相同：（四）、已知设计坐标进行放样（如桥梁已知坐标放样等）：1、KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：4）2、使用说明与第（三）条只差在多显示方位角A、距离S进行放样，其它计算数据仅作参考对照用。
Fx5800计算器公路测量程序设计教学教材
F x5800计算器公路测量程序设计FX5800计算器测量程序集2.4 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey →Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:WhileZ[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: WhileZ[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: WhileZ[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1X Y、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8J S、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD程序内容无电子版。
卡西欧5800公路坐标正反算程序
目录一、坐标正算基本公式………………………………………………………０２二、坐标反算原理 (04)三、高程数据库录入变换 (05)四、计算器程序………………………………………………………０7 ０1、ZBZS(坐标正算)………………………………………………………０702、ZBFS(坐标反算)………………………………………………………０803、ＧＣJF(高程积分） (09)04、PＪFＹ(坡脚放样)………………………………………………………1０05、ＪFCＸ（积分程序) (11)0６、ZＢFY(坐标放样)………………………………………………………１１０７、ＤT(递推） (12)08、H P(横坡） (13)０9、LK(路宽)………………………………………………………１410、SJK1(平面数据库) (14)11、SＪK２(纵面数据库)………………………………………………1４12、SJK3(左路宽度数据库） (15)１3、SＪＫ4(右路宽度数据库) (15)1４、SJＫ5(横坡数据库)......................................................1６１5、SＪK６(下边坡数据库) (16)16、SJK7(左上边坡数据库)………………………………………………1７17、ＳＪK８（右上边坡数据库）………………………………………………1８五、后记 (19)CASIO 58０0计算器公路工程测量程序一、正算所涉及得计算公式 X R i d XαβBd Y d l d βI图表 错误!不能识别的开关参数。
在图1中,A 点为回旋曲线起点,B 点为回旋曲线止点,I 点为所求坐标点。
设: Ａ点得X 坐标为X A ,Y 坐标为Y Ａ ,Ａ点得切线方位角为α,A 点得曲率为ρＡ,A 点得里程为ＬＡ，B 点得曲率为ρＢ,Ｂ点得里程为L Ｂ,I 点得曲率为ρI ,Ｉ点得里程为ＬI 。
卡西欧5800计算器公路测量程序编写及使用_secret
5800公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。
运行时只要运行文件名A的程序就可以了，具体运行流程见下图：二、数据文件的编写（一）交点法数据文件编辑交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。
交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。
下图是一段市政道路设计参数数据。
根据上图提供的数据，可以编辑成如下的数据文件：文件名:CHLNR3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Els e “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C：4474.384→D：2415 .861→E：140→F：31°17°23°→G：410.007→H:600→R:IfEnd: If L>1060 Then 129°56°58.19°→C:4206.421→D：3093.946→E：70→F：-33°50°48°→G：1285.437→H:600→R:IfEnd:Prog”XLJS”:If Z[3]≠0. 0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N:L＋N→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd在面程式中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEndIf L>1060：Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd……如果还有其他弯道，可以继续完后加。
5800公路测量程序使用说明word资料26页
5800公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。
运行时只要运行文件名A的程序就可以了，具体运行流程见下图：二、数据文件的编写（一）交点法数据文件编辑交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。
交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。
下图是一段市政道路设计参数数据。
根据上图提供的数据，可以编辑成如下的数据文件：文件名:CHLNR3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Els e “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C：4474.384→D：2415 .861→E：140→F：31°17°23°→G：410.007→H:600→R:IfEnd: If L>1060 Then 129°56°58.19°→C: 4206.421→D：3093.946→E：70→F：-33°50°48°→G：1285.437→H:600→R:IfEnd:Prog”XLJS”:If Z[3]≠0. 0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N:L＋N→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd在面程式中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEndIf L>1060：Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd如果还有其他弯道，可以继续完后加。
5800程序使用说明
现有三条线形：运行“XIAN YUAN FA”标题部分标题注释输入部分K（ZH）?起点里程0+EXE K（HZ）?终点里程（即线元起点里程+线元长度）150+EXE X(ZH)?起点坐标X 1000+EXE Y(ZH)?起点坐标Y 5000+EXE FWJ(ZH)?起点切线方位角86°32′45.06″+EXE起点半径（直线）1045+EXE 起点半径（圆曲线）-150+EXE 起点半径（缓和曲线）1045+EXE 起点半径（直线）1045+EXE 起点半径（圆曲线）-150+EXE程序名：XIAN YUAN FA程序题解：线元法。
可以对任何线元（直线、圆曲线、缓和曲线）5800程序使用说明程序使用过程：1、直线：起点坐标X=1000，Y=5000,起点切线方位角=86°32′45度=150；2、圆曲线：起点坐标X=1000，Y=5000,起点切线方位角=86°32′45.06″长度=150；半径=500，左偏；3、缓和曲线：起点坐标X=1000，Y=5000,起点切线方位角=86°32′45.0元长度=150，缓和曲线前半径=0，缓和曲线前半径=300，右偏。
R(ZH)?R(HZ)?起点半径（缓和曲线）300+EXE 1.ZS 2.FS1、正算2、反算1+EXE XC?测站点X坐标(可以输入0)0+EXE YC?测站点Y坐标(可以输入0)0+EXE K×+×××？待求点里程20+EXE RJ OR 0 TO K?转角，默认为90°；输入0时，返回待求点里程。
EXED?偏距（0为中桩、左-，右+）假如为左边桩，距中12.25M -12.25+EXEK×+×××=20里程20EXE Z=-12.25偏距（距中12.25M处左边桩）EXE X＝1013.433K=20,D=-12.25处X坐标EXE Y=5019.226K=20,D=-12.25处Y坐标EXE FWJ=78°35′5.53″K=20,D=-12.25处切线方位角EXE按EXE返回继续运算改点的其他偏距，按0返回计算下一个桩号EXE 1.ZS 2.FS1、正算2、反算2+EXE X?待反算X坐标1013+EXE Y?待反算Y坐标5019+EXE注意：以下部分为直线算例R(HZ)?X＝1013Y=5019K×+19.749Z=-11.832待反算X坐标待反算Y坐标反算出结果：里程、偏距按EXE返回继续反算其他点位EXE运行“ZHI XIAN”标题部分标题注释输入部分K（ZH）?起点里程0+EXE X(ZH)?起点坐标X 1000+EXE Y(ZH)?起点坐标Y 5000+EXE X(HZ)?终点坐标X 1000+EXE Y(HZ)?终点坐标Y 5500+EXE I=计算出两点间距离EXE FWJ= 90°0′0″计算出两点间方位角EXE程序题解：直线。
卡西欧5800路基测量程序
晋-测量-斐斐(7) 21:20:03一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序增加变量16→DimZ1.主程序(ZHUCHENXU)" → XY，→ SZ，，4. BIANPO "N：Lbl 1：”ZHUANGHAO=”S：Prog "SUB3"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”→Z:Prog "SUB1"："XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1:Lbl 2：”CX=”X: X→I：”CY=”Y: Y→J：”DMG=”→Z[7]：Prog "SUB2"： "S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序(SUB1)→Z[1]：→B：→K：→L：(1-L) →F：(1-K)→M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算子程序(SUB2)G-90 →Z[2]： Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog "SUB1"：Z[2]+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog "SUB1"： (J-Y)÷sinF→Z4. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<:Then 226100→O：→U：→V：→G：1045→P：1045→R：→H：0→Q: Goto 1:IfEnd …………If S>:Then Cls:Stop: IfEndLbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：5. 算方位角程序(FA)LbI0：“XC=” A : “YC=” T :X：Y0→J： POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd “FW=”：J►DMS◢ Goto06. 使用方位角算坐标(NE)LbI0：“X=” X: “Y=” Y: “L=” L:“F0”F：L×Cos（F）+X→N: “N=”N◢L×Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=” → Z[3]: “QPDGD=” → Z[4]: “PG=” → Z[5]：2→Z[6]：“P1=” → Z[8]：“P2=” → Z[9]：“P3=” → Z[10] (没有的话就删)： Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEndZ[11]÷Z[5] →Z[12]：If Z[12]〈 1 Then Z[8]×Z[11] →Z[13]：Else Z[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd: AbsZ-（Z[13]+Z[6] ×Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ……………… 起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标高Z[5]=“PG” ……………… 坡高Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地面高度Z[8]=“P1” ……………… 一级边坡坡度Z[9]=“P2” ……………… 二级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超欠挖宽度（+表超，-表欠）8. 隧道圆心放样程序（SDYX）IF S<229000:THEN +×(S-226520)-(S-227318)^2/2/16000+ →Z[10]:“NGC=”：Z[10] ◢ELSE ^2/2/165000+→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)^2）→Z[16]: “R=”:Z[16] ◢三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
FX5800计算器公路测量程序集2.4_版(正式版本)
FX5800计算器测量程序集2.4 版使用说明一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）程序名：0（数字0）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，选择程序，返回时，在桩号输入-1,返回选择计算类型，输入-2,返回选择线路。
计算内程序排例：0、01（测量资料专用）、02、0XYH 、1DAO XIAN、1SC （水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M （度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、（五点通线元法计算坐标）、ZD带有不完整缓和曲线的线元转交点数据程序（T）。
5800测量程序(通用程序)
5800测量程序（不规则曲线也能计算）一、主程序由4800程序改编而成1．主程序（TYQXJS）Lbl4:”1.S Z﹦﹥XY”:”2.XY﹦﹥SZ”:?N:?S:Prog”SUB0”↙1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:N=1﹦﹥Goto1:Goto2: ↙Lbl1:?Z:Abs(S-O)→W:Prog”SUB1”:”XS=”:X◢“YS=”:Y：◢◢Goto4↙F-90→F:”FS=”Lbl2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”:S◢”Z=”:Z◢Goto4↙2．正算了程序(SUB1)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L: →F:1-K→M:U+W(W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))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)→Y2.反算子程序(SUB2)G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:Q→Z:Lblo:Prog”SUB1”:T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z:IFAbs(Z)＜1*10^(-6):ThenGoto1:ElseW+Z→W:GotoQ:IFend Lb11:Q→Z:Prog”SUB1”(J-Y)/sin(F)→Z3．SUB0数据库子程序Goto1↙同时保存多个曲线时的指针Lbl1:IF S＜(输入线元的终点里程):Then(输入线元的起点方位角)→G:(输入线元的起点里程)→O:(输入起点X坐标) →X:(输入起点Y坐标)→V:(输入线元的起点曲线半径)→P:(输入线元的终点曲线半径)→R:(输入起点至终点的长度)→H:0或1、-1→Q：Return:IfEnd↙Lbl1:IF S＜(输入线元的终点里程):Then(输入线元的起点方位角)→G:(输入线元的起点里程)→O:(输入起点X坐标) →X:(输入起点Y坐标)→V:(输入线元的起点曲线半径)→P:(输入线元的终点曲线半径)→R:(输入起点至终点的长度)→H:0或1、-1→Q：Return:IfEnd↙…………………………每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
公路测量计算程序fx-5800P操作手册(无图片版)
fx-5800P矩阵编程计算器《公路测量计算程序操作手册》感谢您fx-5800P矩阵编程计算器公路测量计算程序！本次fx-5800P程序提供公路路线计算、高程计算、测量放样计算、交会计算等计算程序。
本程序特色为公路测量的全部数据（包括路线平面曲线，竖曲线，横坡度，路基宽度，路面结构层，水准点，导线点数据）储存在一台计算器上，紧密结合计算，实现外业或计算过程只要计算器一台，无需设计图纸。
愿它给您的工程测量工作带来更大的方便，有误或有改进的地方敬请向联系作者指出以便完善改进。
本程序只能在fx-5800P 中运行，不能在fx-4500PA、fx-4800P及fx-4850P中运行！主程序名都是以字符、“11…”“23…”开头命名的，其余字符开头的程序均为子序（见下表表备注栏），用户只能运行“11…”~“92…”主程序，不能直接运行子程序。
一、程序名及其功能列于表：二、各程序代码：1、程序11FY，计算输出路线放样坐标及方位角、距离。
"XZ" 显示XZ （提示为测站X坐标）Locate 8,2,Z[1] 显示Z[1]值（测站X坐标）"":"YZ":W▲换行后显示W值（测站Y坐标）Lbl 0Prog "13ZW" 调用13ZWPol(X-Z[1],Y-W)If J<0:then J+360→J:IfEnd 变量J的值在0~360度之间Prog"9" 变量J的转换成度分秒Locate 9,3, J 在9列3行显示J的值Fix 3Locate 1,1, "X" 显示计算结果Locate 1,2, "Y"Locate 1,3, "J···" 角度（度分秒）Locate 1,4, "D(m)"Locate 8,4, I""▲程序暂停，等待用户输入EXE后继续ClsProg"DLP"Goto 02、程序12CZZB，输入测站数据（XY），可输入已储存控制点编号"XZ"？W 提示XZ，输入测站X坐标If W<2000:Then Prog "62DS":Else W→Z[1] 2000表示编号少于2000，如大于2000则认为是X坐标值"YZ"？W"X":Z[1]▲"Y":W▲IfEnd3、程序13ZW，输入桩号，计算设计坐标10→DimZ 增加10个扩展变量L→Z[10] Z[10]为中间变量，以实现桩号自动递增或递减Prog "P""JJ"?M 提示JJ，输入与路线前进方向的右交角"DR+L-"?N 提示DR+L-，输入与中桩的距离，右正左负F+M→F 计算出中点至所要计算点的方位角Fix 3：X+Ncos(F) →XClsLocate 8,1,X 输出X坐标Y+Nsin(F) →YLocate 8,2,Y输出Y坐标4、程序HB-B^(5)÷(40A^(4))+B^(9)÷3456÷A^(8)→CB^(3)÷(6A2)-B^(7)÷336÷A^(6)+B^(10)÷42240÷A^(10)→DB2÷2÷A2÷π×180→E5、程序GS注：本程序可设定改线范围后，参照程序PP储存数据。
CASIO-5800计算器公路测量常用程序
CASIO-5800计算器公路测量常用程序一、程序功能本程序由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,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”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:Goto H: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 IfG>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,Ｚ◢＂Ｄ＝＂：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 3 LbI 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)÷si n(Ｚ［２］) →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:ThenQ+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:ThenQ+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:ElseAbs(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:Then25900→O:11587.421→U:1847.983→V:101。
5800程序
FX-5800计算器公路测量常用程序分享作者：回龙已被分享1次评论(0)复制链接分享转载举报转】 FX-5800计算器公路测量常用程序转载分享该日志评论举报一、程序功能本程序由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,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:” 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:Then J+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:Goto H: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]:ThenGoto 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,Ｚ◢＂Ｄ＝＂：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 3 LbI 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 If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2LbI 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:Else Abs(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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5800公路测量程序使用说明5800公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A 匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。
运行时只要运行文件名A 的程序就可以了，具体运行流程见下图：二、数据文件的编写（一）交点法数据文件编辑交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。
交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。
下图是一段市政道路设计参数数据。
根据上图提供的数据，可以编辑成如下的数据文件：文件名:CHLNR3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Else “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C：4474. 384→D：2415.861→E：140→F：31°17°23°→G：410.007→H:600→R:IfEnd: If L>1060 Then 1 29°56°58.19°→C:4206.421→D：3093.946→E：70→F：-33°50°48°→G：1285.437→H:600→R:If End:Prog”XLJS”:If Z[3]≠0.0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N:L＋N →L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“: L◢“K=”:K◢IfEnd:Goto 0: IfEnd在面程式中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEndIf L>1060：Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd……如果还有其他弯道，可以继续完后加。
在这些存放设计参数的语句前后的程序表达式是固定的。
说明：编辑曲线参数时，每个曲线参数放在一个If L>***.***（两个弯道中间直线段上的任意桩号） :Then ***°**°**.**°→C（弯道起点方位角）：****.***→D（交点X坐标）：****.****→E（交点Y坐标）：***.***→F（缓和曲线长度：**°**°**°→G（转角，向左转为负值，向右转为正值）：***.***→H（交点里程桩号）:***→R（圆曲线半径）:IfEnd 条件式语句里，如果有多个弯道，一直按上述形式编下去，变量说明：1、 L>***.***弯道参数的起点范围，可以是弯道起点，也可以是弯道前直线段里的任意点桩号2、 ***°**°**.**°→C 弯道起点方位角3、****.***→D、****.****→E交点X坐标、Y坐标4、***.***→F缓和曲线长度，如果没设置缓和曲线，则缓和曲线长度看做05、**°**°**°→G 转角，向左转为负值，向右转为正值6、***.***→H、交点里程桩号7、***→R 圆曲线半径注意，运行程序时，第一部是输入测站坐标X0，Y0，然后输入近似桩号，主要是为了加快收敛，输入时注意当根据桩号和距中距离计算所求点坐标时，请不要把小数点第四位输入0.0001，如K21+369.0921，请把桩号输入21369.092即可，相反，当根据坐标反算桩号和距中距离时，请在输入时把第四位小数数位0.0001，如K21+200，输入时请输入21200.0001。
（二）线元法数据文件编辑线元法数据文件编辑适合于各种各样的线型组合，特别是在大型立交区或者是不规则的线型组合地方，如小区道路、重丘区山路等有特别明显的有点，本程序为了减少使用者设计参数的输入，特别把直线与缓和曲线以及圆曲线连接的地方只要输入缓和曲线参数就可以了，这样可以减少输入很多设计参数，同时节约大量的内存。
看下图，该图是一个半喇叭型的互通立交，一共是5条匝道，我们以D 匝道为例，来看看线元法数据文件的建立。
下表是D 匝道的线元表：D 匝道线元数据分析：从上表中可以看出，D 匝道由三个线元组成，第一段是缓和曲线段，根据上表判断，该缓和曲线属于第一段缓和曲线，其最小半径处桩号为J=K0+039.289，该处坐标X=494347.926,Y=477989. 873，半径为R=40米，方位角W=302°18′26.0″，缓和曲线旋转常数P=55，在缓和曲线终点K0+039.289处，有一圆曲线与其相连接，长度I=39.216。
第二段是圆曲线，第三段又是一段缓和曲线，根据上表判断，该曲线属于第二缓和曲线，曲线最小半径位于与园曲线连接处，桩号J=K0+78.504，坐标为X=494380.677，Y=477971.271,方位角W=358°28′45.9″，最小半径R=40，缓和曲线旋转常数P=-65（为了判断是第一段还是第二缓和曲线，我们通过P的正负来判断，第一缓和段P统一用正数表示，第二缓和段统一用负号表示。
起点处相连的圆曲线长度I可以看做0，也可以看做是39.216.由此我们整理下。
从整个线型全部是向右转向，所以R全部取正数。
具体如下：第一段缓和曲线线元参数：最小半径处坐标X=494347.926 Y=477989. 873最小半径R=40最小半径处方位角：W=302°18′26.0″缓和曲线旋转常数P=55与之相连的圆曲线长度I=39.216最小半径处桩号J=39.289此段数据计算范围可以从K0+000~ K0+78.504第二段缓和曲线线元参数最小半径处坐标X=494380.677 Y=477971.271最小半径R=40最小半径处方位角：W=358°28′45.9″缓和曲线旋转常数P=65与之相连的圆曲线长度I=39.216最小半径处桩号J= W=358°28′45.9″此段数据计算范围可以从K0+78.504到匝道结束。
当桩号L位于K0+000~ K0+78.504时，曲线参数按第一段编写，当L>78.504时，按第二段缓和曲线编写，当然第二段缓和曲线计算范围也可以从圆曲线起点K0+039.289到K0+78.504中间任意桩号开始。
下面是D匝道的数据程序文件（文件名“DZD”）：3→DimZ：X0”?A:”Y0”?B:“Ln”?L: Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: The n ?L: Else “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L≥0 :Then 494347.926→X：477 989. 873→Y：40→R：302°18°26°→W：55→P:39.216→I: 39.289→J：IfEnd: If L≥78.504：The n 494380.677→X：477971.271→Y：40→R：358°28°45.9°→W：-65→P:39.216→I: 78.504→J：I fEnd:Prog”FDCH”: Prog”XLJS”: If Z[3]≠0.0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)si n(Ｏ)→N:L＋N→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Got o 1：Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd在上面程式中，每个缓和曲线的线元参数放在一个If … Then …… IfEnd循环语句中，If 后面紧跟计算的起点范围，终点范围从下段的起点范围结束。
变量定义：1、X、Y 输入缓和曲线半径最小处的X、Y坐标2、R 缓和曲线最小半径，当线路左转时，半径数据前面加“-”号，以判断线路转向。
3、W 输入缓和曲线半径最小处的方位角4、P 缓和曲线旋转常数，第一缓和曲线长度为正数，第二缓和曲线常数为负数。
当不设缓和曲线时，P=05、I 与缓和曲线最小半径端连接的圆曲线长度。
6、J缓和曲线小半径段的桩号。
再看看E 匝道数据文件编辑E 匝道线元设计数据表在E 匝道线元表中，我们可以看出，E 匝道式由一段直线段→缓和曲线段→圆曲线段→缓和曲线段→缓和曲线段→圆曲线段连接起来的。
值得注意的是，在位于K0+248.491处，是两段反向的缓和曲线连接点，在编写数据程序文件时，分三段编写，第一段从K0+000到K0+203.366，第二段从K0+203.366到K0+248.919，第三段从K0+248.919到线路终点K0+331.13。
具体文件如下：（文件名“EZD ”）3→DimZ ：X0”?A:”Y0”?B:“Ln ”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Else “Xp ”?X:”Yp ”?Y:X →Z[1]：Y →Z[2]：IfEnd:Lbl 1:If L ≥0 :Then 494381.6316→X ：477847.870→Y ：200→R ：90°08°44.6°→W ：120→P:60.07→I: 143.296→J ：IfEnd: If L ≥203.366：Then 494372.527→X ：477948.932→Y ：200→R ：107°21°16.3°→W ：-95→P:60.07→I:203.366→J：IfEnd: If L≥248.491：Then 494337.373→X：478010.658→Y：86.75→R：92°24°19°→W：75→P:17.8→I: 313.333→J：IfEnd: Prog”FDCH”: Prog“XLJS”：If Z[3]≠0.0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]¬－Y)sin(Ｏ)→N:L＋N→L:Int(1000L)÷1000+0.0001→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd为了让使用者熟悉掌握数据程序文件的编写线元法的数据程序文件，现在将C、F、G等匝道的线元数据列出来，供使用者练习。