线元法输入示例直曲表
圆曲线回旋线线元长曲线长切线长外 距间距直线长△A1Ls1T1R Lc LEA2Ls2T2桩K1+505.184桩桩桩桩X 2768793.828X X X X Y 522824.873YY Y Y 方方方方方桩K1+832.82700.000327.643桩桩K1+505.184桩K2+063.451桩K2+230.118X 2768504.367X X 2768793.828X 2768263.814X 2768097.682Y 522671.374Y Y 522824.873Y 522660.050Y 522647.003方500166.667407.415方方207°56′12.3″方186°36′45.0″方183°25′45.8″桩K3+069.55000.000275.711桩桩K2+793.838桩K3+343.716桩X 2767259.753X X 2767534.971X 2766992.152X Y 522596.789Y Y 522613.282Y 522530.410Y 方00.000275.711方方183°25′45.8″方193°55′52.6″方桩K4+328.43500.000287.319桩桩K4+041.116桩K4+614.007桩X 2766036.398X X 2766315.266X 2765775.730X Y 522293.331Y Y 522362.505Y 522172.483Y 方00.000287.319方方193°55′52.6″方204°52′21.7″方桩K6+517.725600200.000860.330桩K5+657.394桩K5+857.394桩K7+095.565桩K7+295.565X 2764048.592X 2764829.122X 2764646.172X 2763432.996X 2763244.898Y 521371.773Y 521733.631Y 521652.896Y 521610.881Y 521678.766方600200.000860.330方204°52′21.7″方201°41′22.5″方162°16′38.7″方159°05′39.5″桩K8+787.744730242.227837.555桩K7+950.189桩K8+192.416桩K9+334.784桩K9+577.011X 2761850.951X 2762633.369X 2762405.570X 2761277.416X 2761042.521Y 522211.221Y 521912.356Y 521994.612Y 522051.285Y 521992.271方730242.227837.555方159°05′39.5″方162°14′54.8″方191°59′59.4″方195°09′14.6″桩K11+664.859500166.667351.199桩K11+313.660桩K11+480.327桩K11+843.553桩K12+010.219X 2759027.275X 2759366.261X 2759206.247X 2758878.593X 2758740.983Y 521446.476Y 521538.285Y 521491.750Y 521337.049Y 521243.060方500166.667351.199方195°09′14.6″方198°20′13.8″方212°12′41.0″方215°23′40.1″桩K12+479.770500166.667469.551桩K12+010.219桩K12+176.886桩K12+765.877桩K12+932.543X 2758358.213X 2758740.983X 2758603.374X 2758056.892X 2757891.709Y 520971.096Y 521243.060Y 521149.072Y 520939.708Y 520917.693方500166.667469.551方215°23′40.1″方212°12′41.0″方189°42′48.9″方186°31′49.8″桩K13+337.303500166.667404.760桩K12+932.543桩K13+099.210桩K13+565.520桩K13+732.187X 2757489.575X 2757891.709X 2757726.526X 2757286.400X 2757141.572Y 520871.659Y 520917.693Y 520895.677Y 520747.392Y 520664.960方500166.667404.760方186°31′49.8″方189°42′48.9″方207°31′31.2″方210°42′30.3″桩K15+155.76300.000351.309桩桩K14+804.454桩K15+505.274桩X 2755917.613X X 2756219.661X 2755651.462X Y 519937.983Y Y 520117.386Y 519708.678Y 方0.000351.309方方210°42′30.3″方220°44′48.9″方JD092682.9551950.608210°42′30.3″220°44′48.9″1828.3361072.268700.819466.310第二回旋线终 点第一回旋线起 点第一回旋线终点或圆曲线起点第二回旋线起点或圆曲线终点转 角（° ′″）（m ）交点1246.847（° ′″）327.643右10°30′06.8″1043.388549.878及363.226572.8911238.170QDJD01JD02207°56′12.3″183°25′45.8″1260.430备 注曲 线 要 素 桩 位 置（m ）交 点 坐 标交 点 桩 号曲线间交点编号计算方位角曲 线 参 数（m ）193°55′52.6″697.400563.720558.267JD03JD04195°09′14.6″2191.037JD06JD08186°31′49.8″JD07215°23′40.1″JD05159°05′39.5″820.750874.311204°52′21.7″2352.5092925.403654.6241736.649左24°30′26.5″1500724.93435.3663000549.87812.643右10°56′29.1″3000572.89113.727左45°46′42.2″18001638.170154.853右36°03′35.1″22001626.822114.7781142.368右20°14′25.5″1500696.55924.491左28°51′50.4″1500922.32449.673588.991799.64334.808右10°02′18.6″4000700.81915.3981500右24°10′40.6″圆曲线回旋线线元长曲线长切线长外 距间距直线长△A1Ls1T1R Lc LEA2Ls2T2桩K17+836.920500166.667381.038桩K17+455.882桩K17+622.549桩K18+043.375桩K18+210.042X 2753885.006X 2754173.681X 2754049.467X 2753791.040X 2753713.131Y 518186.768Y 518435.478Y 518324.388Y 517994.006Y 517846.696方500166.667381.038方220°44′48.9″方223°55′48.1″方240°00′15.8″方243°11′15.0″桩K19+300桩桩桩桩X 2753221.481X X X X Y 516873.922Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方桩桩桩桩桩X X X X X Y Y Y Y Y 方方方方方交点编号交 点 桩 号交点计算方位角曲线间转 角曲 线 参 数（m ）曲 线 要 素 桩 位 置备 注第一回旋线第一回旋线终点第二回旋线起点第二回旋线起 点或圆曲线起点或圆曲线终点终 点及交 点 坐 标（m ）（° ′″）（m ）（° ′″）JD10右22°26′26.1″1500420.826754.16030.0161470.996243°11′15.0″1089.958ZD。
线元法
线元法1：ZHY主程序“1.SZ→XZ”：“2.XY→SZ”：If N=1：Then goto 1 ：Else goto 2：lfEnd Lbl 1：‘S=’?S：“Z=”?Z：Prog〝QXSJK〞: 1÷P→C :（P－R）÷（2HPR）→D : 180÷π→E: Abs（S－O）→W:Prog〝SUB 1〞:〝XS〞: X→X ▲〝YS=〞: Y→Y▲〝FS=〞: F－90→F▲Prog〝GAO〞: goto 1LBI 2 :〝X=〞?X :〝Y=〞?Y :X→I:Y→J：Prog〝QXSJK〞: 1÷P→C :（P－R）÷（2HPR）→D : 180÷π→E: :Prog〝SUB 2〞: 〝S〞: O+W →S▲〝Z=〞: Z▲Prog〝GAO〞:〝SC〞?C〝R=〞:5.89-√((C-G)2+Z2) ▲goto 2“L=”：?L :199.965-(L-49040)*0.006+0.00 →H ◢设计高程R-√（P²+G²）2：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）→Y3 : 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 : IfendLBI 1 : 0→Z : Prog〝SUB 1〞:（J－Y）÷Sin（F）→Z4 : QX SJK （缓和曲线数据库子程序，不能独立运行）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注意：0 : 表示零。
5800公路坐标正反算程序(线元法数据输入)
坐标正反算程序程序变量说明：D：选线。
E、F:置仪点坐X、Y。
K：待算点桩号。
B：待算点距离。
Q：待算点与线路交角（以顺时针方向）。
L：线元起点至待算点长度。
O：待算点方位角。
S：线元长度。
U：线元起点半径。
V：线元终点半径。
程序运行内容说明：开机运行程序后，1、进入主程序，选择正算或反算，1为正算，2为反算。
2、选择线路，1为第线。
2为第线。
3为第线等等。
3、如果上一次计算过的话提示是不更新数线路参数，十秒钟不操作更新，按EXE不更新。
如果上一次不是计算现在要计算的线路的话直接更新数据库（数据库更新会倒计时提示）。
3、正算。
提示入入置仪点坐标。
提示输入待算点桩号。
提示输入离中桩距离。
提示输入与线路方向夹角。
结果：坐标X、Y。
距置仪点距离和方位角。
再次提示输入待算点桩号。
反算。
提示输入实测点坐标X、Y。
结果：待算点桩号程距中桩距离。
再次提示输入实测点坐标X、Y。
程序特点：1、输入参数少，只要输入线路起点的桩号、半径、方位角、XY坐标以及各线元的桩号和半径(左+右-直线×1045)即可。
2、调用变量少，本程还有A、G、H、M、N、P、R、W字母变量未使用，可以用于其它程序而不会和本程序产生冲突。
3、数据库独立，更换工程时数据更换方便。
4、界面友好，尽量做到人人都容易上手，操作一学就会。
5、程序尽量运用5800计算器各种指令，使程序速度提高。
并能够起到帮助大家学习5800各指令工作原理，以便更好掌握编程。
线元法路线计算程序
线元法路线计算程序线元法（LE法）是一种用于计算电力系统潮流分布的方法，它将电力系统抽象成节点和支路的网络，通过对节点和支路进行编号，可以建立节点电压和潮流分布之间的方程，进而求解电力系统中各节点的电压和潮流分布。
下面是一个用于计算线元法路线的程序。
1.定义节点和支路：首先，我们需要对电力系统的节点和支路进行定义。
节点可以是发电站、变电站或负荷节点；支路可以是输电线路或变压器。
每个节点和支路都需要有一个唯一的编号，以便在后续的计算中进行引用。
2.建立节点电压方程：根据电力系统的KCL（电流平衡方程），我们可以得到节点电压方程。
每个节点的电压方程可以表示为：V(i) = Σ{(V(j) - V(i)) / Z(ij)}，其中V(i)表示第i个节点的电压，V(j)表示第j个节点的电压，Z(ij)表示第i个节点到第j个节点的支路阻抗。
3.建立支路潮流方程：根据每个支路的电流平衡方程，我们可以得到支路潮流方程。
每个支路的潮流方程可以表示为：I(ij) = (V(i) - V(j)) / Z(ij)，其中I(ij)表示从第i个节点到第j个节点的支路电流，V(i)表示第i个节点的电压，V(j)表示第j个节点的电压，Z(ij)表示第i个节点到第j个节点的支路阻抗。
4.解线性方程组:将节点电压方程和支路潮流方程组合成一个线性方程组，我们可以通过求解线性方程组，得到电力系统中各节点的电压和潮流分布。
5.输出结果:根据求解的节点电压和支路潮流，我们可以将结果输出，以便进行分析和评估。
下面是一个基本的线元法路线计算程序的伪代码示例：```Input: 节点和支路的定义，节点电压和支路阻抗的初始值Output: 节点电压和支路潮流的计算结果1.建立节点电压方程和支路潮流方程-初始化节点电压和支路潮流的初始值-根据节点电压方程和支路潮流方程2.解线性方程组-使用数值计算方法求解线性方程组，得到节点电压和支路潮流的计算结果3.输出结果-将节点电压和支路潮流的计算结果输出，以便进行分析和评估```这是一个简化的线元法路线计算程序的框架，具体实现时需要根据具体的电力系统结构和算法细节进行调整和优化。
交点法和线元法曲线要素输入简介
交点法和线元法曲线要素输入简介测量坐标计算程序V5输入简介本程序运用Office Excel 软件VBE标准模块编写，其功能基本全面集成了以往所更新的Excel程序，程序适用于公路、铁路等线路坐标计算，程序主要包括（交点法、线元法、直线坐标正反算，竖曲线计算，平面控制网“导线、高程”平差，隧道超欠挖，超高加宽，测量工具箱等，还可以全自动生成卡西欧5800、9750程序数据库，其中包括：隧道超欠挖、交点法、线元法、竖曲线一系列数据库），已知数据输入明确，操作简单易懂，是工程测量人员的好帮手！交点法曲线要素输入简介一、适用平曲线类型交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。
注意：对于非普通的三单元曲线，本程序交点法不适用。
非普通的三单元曲线体现在本程序中的《直线、曲线及转角表》内，点击“生成要素”之后，计算值与设计图纸《直线、曲线及转角表》上的切线长和曲线主点位置等不一致，此时只能采用线元法进行坐标计算。
例如：下表的JD18及JD19处的平曲线，经本程序交点法计算之后发现，为非普通的三单元曲线，交点法不适用该类曲线的坐标计算，故只能采用线元法进行坐标计算。
二、交点法曲线要素输入说明本程序交点法输入的要素有7个（程序不限制输入行数）：1、QD起点坐标：起点坐标必须在直线段上，或填写前一交点的坐标。
2、JD交点曲线要素：（1）交点桩号K，注意：当起始平曲线上的ZH点（缓和曲线）或ZY点（圆曲线）的桩号为负数时，交点桩号K统一加上100000（即增加100Km），以避免坐标正算时出现桩号计算范围错误（但是，线元法计算坐标时可以输入负坐标，坐标正算与反算都不会出现错误）。
（2）交点桩号（X,Y）（3）曲线半径R（4）第一缓和曲线长度LS1,若为0,输入0,不能为空。
（5）第二缓和曲线长度LS2,若为0,输入0,不能为空。
3、ZD终点坐标：终点坐标也必须在直线段上，或填写后一交点的坐标。
三、操作流程：1、根据设计图纸《直线、曲线及转角表》输入第一个交点坐标，作为QD起点坐标。
道路设计手册
四. 各元素输入时的规定： 1.第一个元素必须是点，且除了第一个元素外，后面的元素均不能为点。 2.第二个元素必须是直线，长度可以为零，但必须输入方位角。
缓曲 ,35.0000
缓曲 ,40.2700
圆曲 ,63.1310
,119.9100
缓曲 ,55.3470
缓曲 ,60.9120
圆曲 ,22.8120
,-124.5530 [因为是左转,所以圆曲半径输入负值]
缓曲 ,35.0000 [下一交点下无第一缓曲,曲线间直线长为零,一般都是卵形曲线]
圆曲 ,56.8230
新建的贺广段道路文件 ts_gghg1.ip，按直曲 表输入交点。注意：不 要忘记输入起点里程； 间隔表示计算时每隔多 少距离计算一个逐桩坐 标。
rod中增加一条零直线中增加一条零直线经典卵形曲线直曲表前缓或后缓长度为零经典卵形曲线直曲表前缓或后缓长度为零曲线间直线曲线间直线直曲表示例二直曲表示例二昆明市轿子山昆明市轿子山1414元素元素东坐标东坐标长度长度北坐标北坐标方位角方位角半径半径510252141028682160450510252141028682160450直线直线3217203593743611111321720359374361111142000042000023709012000002370901200000因为是左转因为是左转所以圆曲半径输入负值所以圆曲半径输入负值3500003500004027004027006313101199100631310119910055347055347060912060912022812012455302281201245530因为是左转因为是左转所以圆曲半径输入负值所以圆曲半径输入负值下一交点下无第一缓曲下一交点下无第一缓曲曲线间直线长为零曲线间直线长为零一般都是卵形曲线一般都是卵形曲线56823033256105682303325610因为是左转因为是左转所以圆曲半径输入负值所以圆曲半径输入负值450000450000直线直线2435710333446194444424357103334461944444505060938100292609381002924040交点法交点法交点组成交点组成交点法相对于元素法而言无论是理解上还是输入时都相对交点法相对于元素法而言无论是理解上还是输入时都相对简单
平曲线参数的案例讲解
平曲线参数的案例讲解前段时间有个同事在输入线路平曲线参数时遇到了困难，让我帮他解决一下，我相信有很多测量人员都遇到过这个问题，由于知识储备不足，在输入一些比较复杂的平曲线参数时真的是“一时难倒英雄汉”。
岁末闲暇下来，我便萌生了写篇文章的想法，想与我的测量同行们交流一下。
我结合了自己所参与过的项目的线路，给大家列举了三个案例，主要讲一下平曲线参数的起点问题及不完整缓和曲线。
我想和大家交流一下，在输入这些平曲线参数时自己的思路，其中也会提及到一些大家可能还未掌握的关于平曲线参数的知识点。
案例（一）：校正起点桩号如上表所示，这是文莱高速第5标段的主线的直曲表，我在测量软件里用交点法输入了平曲线参数，但当我计算逐桩坐标时，发现与逐桩坐标表上的坐标并不一致，我便意识到肯定是平曲线参数输入有误，我检查了一遍测量软件上输入的平曲线参数，发现软件自动计算的交点桩号与图纸所给的交点桩号并不一致，我便意识到有可能起点桩号输入有误，我又看了一遍直曲表终于发现了问题所在。
我是以交点JD19作为线路起点输入的平曲线参数，但是图纸所给的直曲表是从整条文莱高速线路中截取的一段，对应着第5标段的线路。
我们都知道直曲表上的交点并不在线路上，而起点是一定在线路上的，所以交点JD19并不能作为线路的起点。
如果把交点JD19作为线路的起点，那么起始段的线路也就发生了改变，如上图所示，从图一中正确的线路变为了图二中错误的线路。
而第5标段线路的起点桩号是K45+900，从直曲表中可以看出，起点是位于交点JD20的第二缓和曲线上，如果以交点JD19作为起点的话，发生改变的JD19-YZ直线段是在第5标段线路以外的，因此仍然可以以交点JD19作为第5标段线路的起点，第5标段的线路也就变成了图二所示的线路，只不过需要校正一下起点桩号。
为什么要校正作为起点的交点JD19的桩号呢，这就要弄清楚交点桩号是如何定义的。
其实交点桩号并不是交点对应主线上的桩号，而是由公式交点桩号=ZH/ZY点桩号+第一切线长T1得到的，如上图三所示。
计算器中的测量软件----道路之星操作手册 (1)
柃路园柃路园9860计算器与道路之星销售靠的是诚信与服务来经营店铺，店铺诚信服务、服务第一。
在本店铺购买后包教会道路之星安装与使用，并解决购买者任何测量问题，同时赠送各种常用软件及测量文件案例，并对新手及老手测量人员提供测量服务。
柃路园—(服务淘宝第一、价格淘宝最低）购买者请看准测量服务：网店网址：按住Ctrl并点击鼠标“柃路园—(淘宝网址)”以跟踪连接教程网址：按住Ctrl并点击鼠标“（道路之星软件视频讲解_道路之星软件使用教程 - )”以跟踪连接QQ测量服务群：128528455 电话138****4860基于Casio计算器的中文测量计算系统道路之星V1.22操作手册目录第一章概述- 1 - 第二章系统安装- 3 - 第一节电脑端程序- 3 - 第二节计算器与电脑交换数据- 5 - 第三节计算器程序- 7 - 第四节计算器程序基本操作- 11 - 第五节简易操作指南- 14 - 第三章常规计算- 16 - 第四章水准网记录及平差- 20 - 第五章控制测量记录与平差- 26 - 第六章道路测设- 30 - 第一节项目管理- 30 - 第二节道路正反算- 36 - 第三节路基路面控制- 44 - 第四节边坡计算- 49 - 第五节结构物及桥梁计算及检测- 53 - 第六节隧道超欠挖计算- 60 - 第七章计算器数据输入- 68 -道路之星用户手册第一章概述第一章概述一、功能和特点道路之星适用于公路、铁路、城市道路主线、立交匝道、隧道的勘测设计与施工放样工作。
软件分为两个部分：a.电脑端数据处理负责设计输入输出、设计成果的复核、现场采集数据的分析计算以及与计算器进行文件传输；b.计算器端施工现场计算基于Casio fx9750、fx9860、fxCG20计算器设计，负责现场的施工指导和相关数据的采集。
（一）、道路全线测设系统：将道路全线或一个标段所有数据一次性输入，主线、匝道可以存入一个文件，用路线名进行标识，一个项目文件可以包含任意多条路线。
交点法和线元法曲线要素输入简介
测量坐标计算程序V5输入简介本程序运用Office Excel 软件VBE标准模块编写，其功能基本全面集成了以往所更新的Excel程序，程序适用于公路、铁路等线路坐标计算，程序主要包括（交点法、线元法、直线坐标正反算，竖曲线计算，平面控制网“导线、高程”平差，隧道超欠挖，超高加宽，测量工具箱等，还可以全自动生成卡西欧5800、9750程序数据库，其中包括：隧道超欠挖、交点法、线元法、竖曲线一系列数据库），已知数据输入明确，操作简单易懂，是工程测量人员的好帮手！交点法曲线要素输入简介一、适用平曲线类型交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。
注意：对于非普通的三单元曲线，本程序交点法不适用。
非普通的三单元曲线体现在本程序中的《直线、曲线及转角表》内，点击“生成要素”之后，计算值与设计图纸《直线、曲线及转角表》上的切线长和曲线主点位置等不一致，此时只能采用线元法进行坐标计算。
例如：下表的JD18及JD19处的平曲线，经本程序交点法计算之后发现，为非普通的三单元曲线，交点法不适用该类曲线的坐标计算，故只能采用线元法进行坐标计算。
二、交点法曲线要素输入说明本程序交点法输入的要素有7个（程序不限制输入行数）：1、QD起点坐标：起点坐标必须在直线段上，或填写前一交点的坐标。
2、JD交点曲线要素：（1）交点桩号K，注意：当起始平曲线上的ZH点（缓和曲线）或ZY点（圆曲线）的桩号为负数时，交点桩号K统一加上100000（即增加100Km），以避免坐标正算时出现桩号计算范围错误（但是，线元法计算坐标时可以输入负坐标，坐标正算与反算都不会出现错误）。
（2）交点桩号（X,Y）（3）曲线半径R（4）第一缓和曲线长度LS1,若为0,输入0,不能为空。
（5）第二缓和曲线长度LS2,若为0,输入0,不能为空。
3、ZD终点坐标：终点坐标也必须在直线段上，或填写后一交点的坐标。
三、操作流程：1、根据设计图纸《直线、曲线及转角表》输入第一个交点坐标，作为QD起点坐标。
曲线正反算程序(线元法)
曲线正反算程序（线元法）用到的变量：除E外其余25个程序中红色和蓝色部分可以删掉，不影响正反算主程序 QX ZFS XYFLbl 0Cls1→N＂ZS(1),FS(2)＂?NN=1=>Goto 1N=2=>Goto 2Goto 0Lbl 2Cls＂X＂?X:＂Y＂?Y 要反算的点的X、Y坐标＂LC＂?S 要反算的点所在的线元内任意里程，尽量避免用两个端点的里程If S=0:Then 若里程输0，则进入手动设置线元要素程序Cls＂X0＂?U 起点X坐标＂Y0＂?V 起点Y坐标＂FWJ＂?G 起点切线方位角＂LC0＂?O字母O，起点里程＂LCN＂?H:H-O→H 字母O，终点里程＂R0＂?P 起点曲率半径＂RN＂?R 终点曲率半径＂Q＂?Q 左右偏标志Goto 4:IfEndGoto 3:IfEndLbl 1***** 为方便做资料而加入该段条件语句，还有一段在程序末端If 1=2:ThenZ[109]→A:＂(CE)X＂?A: A→Z[109] 测站点X坐标If A=0:Then 若测站点X坐标输0，则进入控制点程序Prog＂KZD＂X→Z[109]:Y→Z[110]Goto 1:IfEndZ[110]→B:＂(CE)Y＂?B: B→Z[110] 测站点Y坐标IfEnd*****Cls＂LC＂?S 正算时的里程If S=0:Then 若里程输0，则进入手动设置线元要素程序Cls＂X0＂?U＂Y0＂?V＂FWJ＂?G＂LC0＂?O 字母O＂LCN＂?H:H-O→H 字母O＂R0＂?P＂RN＂?R＂Q＂?QCls＂LC＂?S 正算时的里程＂PJ＂?Z 正算时的偏距Goto 4:IfEnd＂PJ＂?Z 正算时的偏距****** 为方便计算涵洞而加入该段条件语句，还有一段在If 1=2:Then 程序末端，用蓝色标记Z→E:0→Z 先要求出偏距为0的点，因此将Z值保存在E中Z[134]→A:＂+- ZHUAN JIAO＂?A: A→Z[134] 待求点相对线IfEnd路前进方向的转角，顺时针为正，逆时针为负******Lbl 3 该段为线元要素数据库S≥9728.483=>Goto 9 三个条件语句，加快搜索线元的效率8863.416≤S And S﹤9728.483=>Goto 87755.868≤S And S﹤8863.416=>Goto 7If 5059.485≤S And S≤7002.287:Then 判断是否在第一段线元3539714.589→U 以下为第一段线元相应要素521939.4098→V273°59°27.9°→G5059.485→O 字母O，起点里程7002.287-5059.485→H 线元长度1045→P1045→R0→QGoto 4:IfEndIf 7002.287≤S And S≤7102.287:Then 判断是否在第二段线元*→U 以下为第二段线元相应要素*→V*→G*→O 字母O*→H*→P*→R*→QGoto 4:IfEnd……同理……Lbl 7If 7755.868≤S And S≤7810.162:Then*→U*→V*→G*→O 字母O*→H*→P*→R*→QGoto 4:IfEnd…………Lbl 8If 8863.416≤S And S≤9194.088:Then *→U*→V*→G*→O 字母O*→H*→P*→R*→QGoto 4:IfEnd…………Lbl 9If 9728.483≤S And S≤9917.694:Then *→U*→V*→G*→O 字母O*→H*→P*→R*→QGoto 4:IfEnd…………If 10411.371≤S And S≤10471.371:Then*→U*→V*→G*→O 字母O*→H*→P*→R*→QGoto 4:IfEnd 数据库部分到此结束Cls＂LC CUO WU＂◢未找到相应线元，显示里程错误N=1=>Goto 1 返回正算程序N=2=>Goto 2 返回反算程序Lbl 4(1÷P)→C:(P-R)÷(2HPR)→D:(180÷∏)→HN=2=>Goto 6Lbl 5Abs(S-O)→W 字母OProg＂SUB1＂执行正算子程序X+Zcos(F)→AY+Zsin(F)→BA→XB→YF-90→F*****If 1=2:Then 为方便计算涵洞而加入该段条件语句，还有一段A+Abs(E)cos(F+Z[134])→X 在程序前端，用蓝色标记B+Abs(E)sin(F+Z[134])→YE→Z 将最初输入的偏距返回Z，以便再次计算IfEnd 时显示上一次的值*****Cls＂X=＂＂＂＂Y=＂Fix 3Locate 4,1,XLocate 4,3,Y◢Cls＂F=＂:F▼DMS◢*****If 1=2:Then 为方便做资料加入该段条件语句，还Cls 有一段在程序前端，用红色标记Pol(X-Z[109],Y-Z[110])J＜0=>J+360→J＂FWJ=＂:J▼DMS 测站点至正算出的目标点的方位角＂JL=＂:I◢测站点至正算出的目标点的平距IfEnd*****Norm 2Z[111]=123=>Return 判断Z[111]的值，以便其他程序调1→N:Goto 1 用时返回Lbl 6X→I:Y→JProg＂SUB2＂执行反算子程序O+W→S 字母OCls＂LC=＂＂＂＂PJ=＂Fix 3Locate 4,1,SLocate 4,3,Z◢I→X:J→Y:2→NNorm 2:Goto 2正算子程序 SUB1用到的变量：ABCDFGHKLMQUVWXYZ,剩EIJNOPRST0.1739274226→A0.3260725774→B0.0694318442→K0.3300094782→L1-L→F:1-K→MU+W(Acos(G+QHKW(C+KWD))+Bcos(G+QHLW(C+LWD))+Bcos(G+QHFW (C+FWD))+Acos(G+QHMW(C+MWD)))→XV+W(Asin(G+QHKW(C+KWD))+Bsin(G+QHLW(C+LWD))+Bsin(G+QHFW (C+FWD))+Asin(G+QHMW(C+MWD)))→YG+QHW(C+WD)+90→F反算子程序 SUB2用到的变量：ABCDFGHIJKLMQTUVWXYZ,剩ENOPRSG-90→TAbs((Y-V)cos(T)-(X-U)sin(T))→W0→ZLbl 0Prog ＂SUB1＂执行正算子程序X+Zcos(F)→XY+Zsin(F)→YT+QHW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10^(-3):thenGoto 1Else W+Z→WGoto 0:IfEndLbl 10→ZProg ＂SUB1＂执行正算子程序X+Zcos(F)→XY+Zsin(F)→Y(J-Y)÷sin(F)→Z。
交点法输入示例一__1直曲表
43°12′11.4″ (Y)
JD10 2847647.615 502566.407
K90+972.541
29°04′19.1″ (Z)
JD11 2846994.864 502592.214
K91+615.888
34°50′20.2″ (Y)
JD12 2845993.181 501952.229
K92+788.157
0 975.202 163°25′10.2″ K84+416.572
855.219 1589.485 154°27′51.8″ K85+982.182
0 991.702 132°09′53.8″ K87+202.461
222.849 1230.196 173°06′07″ K88+172.580
1040.007 1980.291 163°36′17.3″ K90+299.730
K78+099.481 K78+965.381 K81+221.004 K82+725.593 K83+916.426 K85+491.791 K86+202.182 K87+675.311 K89+432.587 K90+864.623 K91+470.544 K92+164.826 K93+711.734 K94+967.635 K96+432.408
220 513.809 651.358 1235.901 118 66.816 K93+491.734
240 569.21 481.047 944.753 49.171 17.34 K94+727.635