线路坐标计算(交点法)

请输入线路起点桩号：K00+000.0000
(输入交点及起终点点号时，交点编号只要输入数字即可，起点输为0，终点输为一个"-"数）,请在蓝格子里(第1～6、23、24列)输入曲线数据
请输入线路起点桩号：K00+000.0000
(输入交点及起终点点号时，交点编号只要输入数字即可，起点输为0，终点输为一个"-"数）,请在蓝格子里(第1～6、23、24列)输入曲线数据
线路曲线要素请输入线路起点桩号：K00+000.0000
(输入交点及起终点点号时，交点编号只要输入数字即可，起点输为0，终点输为一个"-"数）,请在蓝格子里(第1～6、23、24列)输入曲线数据
路曲线要素。

线路线路工程工程工程[[交点法交点法]]平曲线坐标计算[新方法]作者作者：：刘宗远 联系方式QQ ：63453673 2013年10月[简述]：在网上看了很多网友的线路交点法计算程序，平曲线小坐标大多采用的是切线支距法切线支距法切线支距法。

经本人结合线路工程的施工特点和相关资料，总结归纳出一套全新的全新的全新的线路坐标编程线路坐标编程线路坐标编程解算方法解算方法解算方法（弦线偏弦线偏角支距法角支距法——————也叫极坐标法也叫极坐标法也叫极坐标法）。

计算精度满足线路主线要求。

第一部分第一部分：：基本公式基本公式一、圆曲线圆曲线：：1、偏角：2、弦长：式中： —偏角—弧长所对应的圆心角—待求点到zy 点的距离 二、缓和曲线缓和曲线：： 1、切线角：(1)缓和曲线上任意一点切线角:(2)曲线上任一点偏角：(3)弦切角：(hy(yh)点处弦线与切线的交角)2、弦长：22590Lsr l l c i ××−= 式中：zh ki l −= 缓和曲线一点到zh 点的距离 —前（或后）缓和曲线总长第二部分第二部分：：程序分步公式程序分步公式一、交点参数计算：（非对称缓和曲线型）1、内移值P ：前缓和曲线内移值：341212688241R L R L P S s −= 后缓和曲线内移值：342222688242RL R L P S S −= 2、切线增长值q ：前缓和曲线切增值：231124021R L L q s s −=后缓和曲线切增值：232224022RL L q s s −= 3、切线角β：前缓和曲线切线角： R L S 1901=β 后缓和曲线切线角： RL s 2902=β 4、切线长T ：前切线长：ααsin 2112tan)1(1p p q P R T −−++=后切线长：ααsin 2122tan )2(2p p q P R T −+++=5、曲线总长：)(5.018021S S L L RL +×+=πα二、主点计算主点计算：：1、桩号计算桩号计算：：ZH=交点桩号－T1 HZ=ZH+L HY=ZH+L S1 YH=HZ-L S22、坐标计算坐标计算：：1）ZH 点坐标点坐标：： 方位角：F 前=前直线方位角前直线方位角（或前切线方位角） X zh =X J D －T 1×cosF 前 Y zh =Y J D －T 1×sinF 前2）HZ 点坐标点坐标：：方位角：F 后=F 前+ξα(交点转角) 注：ξ—交点转角偏向符，左偏-1 右偏+1 X hz =X J D +T 2×cosF 后 Y hz =Y J D +T 2×sinF 后3）HY 点坐标点坐标：：前缓曲线终点偏角：前缓曲线终点弦长：212511901S S S L r L L C ××−=方位角：F=F 前+ξδ0 (缓曲线终点偏角) X hy =X zh +C 1×cosF Y hy =Y zh +C 1×sinF 4）HY 点坐标点坐标：：后缓曲线终点偏角：后缓曲线终点弦长：222522902S S S L r L L C ××−=方位角：F=F 后+180－ξδ0 (缓曲线终点偏角) X yh =X hz +C 2×cosF Y yh =Y hz +C 2×sinF三、各线元段坐标计算 1、前直线段 Ki<ZH待求点到ZH 点的距离：Li=Ki-ZH方位角：F 前=前直线方位角（或前切线方位角） X=X ZH +Li ×cosF 前 Y=Y ZH +Li ×sinF 前2、前缓曲线段前缓曲线段 ZH ZH ≤Ki ≤HY HY待求点到ZH 点的距离：Li=Ki-ZH前缓曲线任意点偏角：1230S L R Li ××=πδ前缓曲线任意点弦长：212590S ii L r L L Ci ××−=中桩弦线弦线弦线方位角：F 中=F 前+ξδ 注：ξ—交点转角偏向符，左偏-1 右偏+1 中桩切线切线切线方位角：F 切=F 中+2 δ—缓曲线偏角 X=X zh +C i ×cosF 中+B×cos(F 切+θ) 注：θ—中线与中桩至边桩连线的夹角 Y=Y zh +C i ×sinF 中+B×sin(F 切+θ) B—中桩至边桩的距离3、圆曲线段HY HY<Ki<<Ki<<Ki<YH YH YH待求点到HY 点的距离：Li=Ki-HY 圆曲线任意点弦长：2243rL L Ci i i ×−= 前缓曲终点切线角：RL S 1901=β 圆曲线偏角RLi×=πδ90 中桩弦线弦线弦线方位角：F 中=F 前+ξ(+)中桩切线切线切线方位角：F 切= F 前+ξ(+2) 注：圆曲线偏角为圆心角的一半X=X HY +C i ×cosF 中+B×cos(F 切+θ) 注：θ—中线与中桩至边桩连线的夹角 Y=Y HY +C i ×sinF 中+B×sin(F 切+θ) B—中桩至边桩的距离 4、后缓曲线段后缓曲线段 YH YH ≤Ki ≤HZ待求点到HZ 点的距离：Li= ZH －Ki 后缓曲线任意点偏角：2230S L R Li ××=πδ后缓曲线任意点弦长：222590S ii L r L L Ci ××−=中桩弦线弦线弦线方位角：F 中=F 后+180－ξδ 注： ξ—交点转角偏向符，左偏-1 右偏+1 中桩切线切线切线方位角：F 切=F 中－2 δ—缓曲线偏角 X=X HZ +C i ×cosF 中－B×cos(F 切+θ) 注：θ—中线与中桩至边桩连线的夹角 Y=Y HZ +C i ×sinF 中－B×sin(F 切+θ) B—中桩至边桩的距离 5、后直线段后直线段 Ki>HZ Ki>HZ Ki>HZ待求点到HZ 点的距离：Li=H Z－Ki 方位角：F 后= F 前+ξα(交点转角) 注：ξ—交点转角偏向符，左偏-1 右偏+1 X=X HZ +Li ×cosF 后 Y=Y HZ +Li ×sinF 后工程实例工程实例表一表一 直曲表直曲表逐桩坐标表桩坐标表第三部分第三部分 [TI [TI 计算器计算器]]线路综合线路综合程序代码程序代码程序代码（（坐标计算部分坐标计算部分））程序显示界面：一、主程序代码程序子程序二、坐标正算坐标正算子交点数据库子程序三、交点数据库子程序数据库子程序四、桩号桩位显示字符转换子程序 线元段、、桩位显示字符转换子程序桩号、、线元段。

3、交点法、线元法坐标计算坐标计算是根据图纸中“直线及曲线转角一览表”提供的数据计算道路中桩坐标，然后和图纸提供的“逐桩坐标表”比对，如果一样则说明输入平曲线参数输入正确，可以计算边桩坐标和其他结构物坐标了；如果中桩坐标不一样，一般是平曲线参数输入有误，需要重新检查输入，另一种结果是图纸有错，这种情况少见，但不代表没有。

“直线及曲线转角一览表”和“逐桩坐标表”见附件1、附件2。

线元法是以路线的起点坐标、方位角、起终点桩号等节点元素来计算出要求的坐标；交点法是以路线的交点要素和路线的主要要素来求得坐标。

①交点法交点：路线的转折点，路线改变方向是相邻两直线的延长线相交的点。

用JD表示，有些图纸上用IP 表示。

看下图：交点是针对曲线的（包含圆曲线和缓和曲线），一段曲线就有一个交点。

交点参数有：坐标（X,Y）、交点桩号、转角值、圆曲线半径R、缓和曲线长度。

教学提供软件（轻松测量、双心软件、测量工具）交点法曲线要素输入说明：1、QD起点坐标：起点坐标必须在直线段上，或填写前一交点的坐标。

2、JD交点曲线要素：（1）交点桩号（2）交点坐标（X,Y）（3）曲线半径R（4）第一缓和曲线长度LS1,若为0,输入0,不能为空。

（5）第二缓和曲线长度LS2,若为0,输入0,不能为空。

3、ZD终点坐标：终点坐标也必须在直线段上，或填写后一交点的坐标。

检核数据是否输入正确的方法：软件生成的圆曲线要素中切线长、外距、交点里程：注意校正起点里程、等与设计图纸是否一致。

如果上述数据和图纸不一样，请认真检查有错误的交点处的数据输入是否正确，如果输入没有错误，请考虑是否包含不完整缓和曲线，使用公式A2=R*Ls检查是否包含不完整缓和曲线。

如果包含不完整缓和曲线，那就需要用线元法也叫积木法计算了。

有的设计院给出的直曲表是整条设计线路的直曲表的一部分，以其中某个交点作为起始点的话，起始里程有时候需要校正，当然，并不是每个图纸给出的起点里程都需要校正，大多数图纸的起点里程已经被设计院校正过，我们输入平曲线的时候需要验证一下。

交点法原理交点法是一种用来求解两条直线交点坐标的数学方法，它在计算机图形学、几何学和工程学等领域有着广泛的应用。

在实际应用中，我们常常需要求解两条直线的交点坐标，这时候交点法就能派上用场。

首先，我们来看一下两条直线的一般方程。

一条直线的一般方程可以表示为Ax + By = C，其中A、B、C为常数。

当然，这里有一个前提条件，就是A和B不能同时为0。

如果A和B同时为0，那这条直线就不存在了。

假设我们有两条直线，它们的一般方程分别为A1x + B1y = C1和A2x + B2y =C2，我们需要求解它们的交点坐标。

我们可以通过联立这两个方程，得到一个二元一次方程组。

这个方程组的解就是两条直线的交点坐标。

一般来说，我们会选择使用消元法或者代入法来解决这个方程组。

但是，交点法提供了另外一种更加简洁和直接的解决方案。

我们可以通过一些简单的数学推导，得到两条直线交点坐标的表达式。

假设我们有两条直线的一般方程为A1x + B1y = C1和A2x + B2y = C2，它们的交点坐标为(x, y)。

我们可以利用克莱姆法则来求解这个交点坐标。

克莱姆法则告诉我们，如果一个二元一次方程组的系数行列式不为0，那么这个方程组有唯一解，且这个解可以通过系数行列式的比值来求得。

对于两条直线的交点坐标，我们可以利用克莱姆法则得到如下的表达式：x = (C1B2 C2B1) / (A1B2 A2B1)。

y = (A1C2 A2C1) / (A1B2 A2B1)。

通过这个表达式，我们就可以直接计算出两条直线的交点坐标。

这种方法不需要进行繁琐的消元和代入运算，能够更加高效地求解交点坐标。

除了利用克莱姆法则，我们还可以通过向量的方法来求解两条直线的交点坐标。

我们可以将两条直线表示为参数方程的形式，然后通过向量的叉乘运算来求解它们的交点坐标。

这种方法也能够得到同样的结果，而且在一些情况下更加直观和易于理解。

总的来说，交点法是一种简洁而高效的求解两条直线交点坐标的方法。

两直线交点坐标的公式
直线，这是我们学数学和物理时最熟悉的图形了，在图形中，直
线有着广泛的使用。

这也是有关直线交点坐标的计算公式，一般用来
求出两条直线交点的坐标位置。

直线的表示方式有两种：一种是直角坐标系的标准形式：
ax+by+c=0，一种是斜率形式的y=k*x+b (k为斜率，b为直线的截距)。

两一条直线相交，需要满足其系数相同，即其系数取值都一样，就可
以计算出交点的坐标位置。

两条直线的交点坐标计算公式可以表示为：X=(c2-b2)/(a2-b2)，Y=(a1*X+c1)/(-b1)。

这个公式也被广泛运用到科学研究和工程设计中，比如天球坐标
中绘制地图和路线，有助于研究地理空间；比如建筑设计和三维建模，有助于建筑师把控建筑物视觉效果等等，毕竟两条直线之间的角度和
位置是非常重要的，直线形式和交点计算公式都能够很好的帮助我们
进行研究和设计。

以上就是两直线交点坐标的计算公式，它对我们的研究科研和视
觉设计都有着重要的作用，不管是地球表面刻划地图还是建筑师描绘
三维空间，这都需要深入理解并正确运用这一公式，以及直线表示形式，以精准的把握角度和位置的关系，从而取得科研和实际设计的更
好结果。

1.直线坐标计算直线上一点坐标公式如下：COS αl X X A ⨯+=SIN αl Y Y A ⨯+=X A ：直线上一点A 的X 坐标（待求点里程-A 点里程必须大于零） Y A ：直线上一点A 的Y 坐标（待求点里程-A 点里程必须大于零） l : 待求点里程-A 点里程α：直线方位角（A 点至待求点的方位角） 2.圆曲线坐标计算圆曲线上一点坐标计算公式如下：)90K πR 180lK COS(αR )90K COS(αR X X 起起起︒⨯-⨯+⨯+︒⨯+⨯+= )90K πR180l K SIN(αR )90K SIN(αR Y Y 起起起︒⨯-⨯+⨯+︒⨯+⨯+=切线方位角πR180lK α起⨯+=,起始方位角β+=ZH 起αα X 起：圆曲线起点处的X 坐标 Y 起：圆曲线起点处的Y 坐标α起：圆曲线起点处的切线方位角 R ：圆曲线半径l ：待求点里程-圆曲线起点里程 K ：右转取1，左转取-1 偏移：K1：右转取1，左转取-1，K2：右转取-1，左转取+1，3.带有圆曲线的缓和曲线（缓和曲线为完整缓和曲线）坐标计算：（1）曲线要素的计算：①切线角：π1802Rl β11︒⨯=，π1802Rl β22︒⨯=②内移值：24R l p 211=，24Rl p 222= ③切线增值：23111240R l 2l m -=，23222240R l 2l m -= ④切线长：sin αp p m 2αtan )p (R T 21111--+⨯+=sin αp p m 2αtan)p (R T 21222-++⨯+= ⑤曲线长:2121l l 180πR )ββ(αL ++︒⨯⨯--=⑥外矢距：R OS E -+=1112α)/C p (R)90K2πR 180l K1COS(αE)-R （)90K COS(αR X X 起起起︒⨯+⨯+⨯+︒⨯+⨯+=⑦缓和曲线总偏角:/310βδ= 其中:β1：前缓和曲线切线角 β2：后缓和曲线切线角 p 1：前缓和曲线内移值 p 2：后缓和曲线内移值 m 1：前缓和曲线切线增值 m 2：后缓和曲线切线增值 T 1：前切线长 T 2：后切线长 l 1：前缓和曲线长 l 2：后缓和曲线长 R ：为圆曲线半径 E ：外矢距0δ：缓和曲线总偏角（2）前缓和曲线一点坐标计算公式如下：)πRl 30l K COS(α)90Rl (l X X s12ZHs1225ZH l⨯+⨯-+=)πRl 30l K SIN(α)90Rl (l Y Y s12ZHs1225ZH l⨯+⨯-+=切线方位角=s12ZHπRl 90l K α⨯+X ZH ：ZH 点X 坐标 Y ZH ：ZH 点Y 坐标K:右转取1，左转取-1 R ：圆曲线半径l ：待求点里程-ZH 点里程 l s1:前缓和曲线长度偏移:（3）后缓和曲线一点坐标计算公式如下：)πRl 30l K 180COS(α)90R l (l X X s22HZs2225HZ l ⨯-︒+⨯-+=)πRl 30l K 180SIN(α)90Rl (l Y Y s22HZs2225HZ l⨯-︒+⨯-+=切线方位角=s22HZπRl 90l K α⨯- )90K πRl 90l K COS(α)E l (X 偏X s12ZH s1l ︒⨯+⨯+⨯⨯+=X：HZ点X坐标HZY：HZ点Y坐标HZK:右转取1，左转取-1R：圆曲线半径l： HZ点里程- 待求点里程l s2:后缓和曲线长度。

两直线交点坐标怎么求引言在几何学中，直线是一种基本的图形元素，往往与其他直线或者曲线相交。

当两条直线相交时，我们往往希望能够求得它们的交点坐标，因为交点的坐标可以帮助我们解决很多与直线相关的问题。

本文将介绍两种常见的方法来求解两直线的交点坐标。

方法一：解方程法步骤1.确定两条直线的方程：通过确定直线上的两个点或者直线的斜率和截距，我们可以得到两条直线的方程。

2.将两条直线的方程联立：将两条直线的方程联立，构成一个方程组。

3.解方程组：通过解方程组，求解出交点的坐标。

示例假设有直线L1和直线L2，它们的方程分别为：L1: 2x + 3y = 8 L2: -4x + y = 5将这两条直线的方程联立，得到方程组：2x + 3y = 8 -4x + y = 5我们可以通过消元或代入等方法解方程组，求解出交点的坐标。

结果通过解方程组，我们可以求解出交点的坐标为(1,2)。

方法二：向量叉积法步骤1.确定两条直线上的两个点：分别从每条直线上选取两个点，记为A、B和C、D。

2.计算向量：根据选取的点，计算向量AB和向量CD。

3.计算向量叉积：计算向量AB和向量CD的叉积，得到向量E。

4.计算交点坐标：利用向量叉积的性质，可以得到交点的坐标。

示例假设有直线L1和直线L2，它们通过如下两个点确定：L1: A(1,2) B(3,4) L2: C(5,6) D(7,8)通过计算向量AB和向量CD的叉积，得到向量E的数值为(-4,4)。

根据向量叉积的性质，我们可以得到交点的坐标为(1,2)。

结果通过计算向量叉积，我们可以求解出交点的坐标为(1,2)。

总结本文介绍了两种常见的方法来求解两直线的交点坐标：解方程法和向量叉积法。

解方程法通过联立方程组，通过求解方程组的方法来求得交点的坐标。

向量叉积法则是通过计算向量的叉积，并利用叉积的性质来求得交点的坐标。

两种方法都可以有效地求解两直线的交点，选择哪种方法取决于问题的具体情况。

1.主程序 JDFZBZFS17→DimZ: Norm 2:1→ A " XY=1，FS=2，GC=3,LJKD=4,BPFY=5,BZFY=6”?A:A=1=>Goto1:A=2=>Goto 2: A=3=>Goto 3:A=4=>Goto 4: A=5=>Goto 5: A=6=>Goto 6LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂: 90→B: ＂PJ1＂?B:B →C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z: Prog＂X1＂:?D:Prog＂THB＂:O→L: Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X：Y+Lsin(E) →Y：Prog＂XY＂:Prog＂JS＂:Goto B LbI 2:2→F:90→Z[1] :Prog＂QX＂:LbI C: ＂KM＂?Z:Prog＂X 1＂: ＂XO＂?X: ＂Y0＂?Y:Prog＂THB＂：Fix 5:Prog＂ZD＂:G oto CLbI 3:Prog＂QX＂: 0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂? Z:?D:Prog＂H＂:Fix 5: ＂H=＂: H-Z[9] →H◢＂I=＂:I◢Goto DLbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:?D:Prog＂GD＂:Fix 5:＂ SJGD=＂: Locate 6,4,L:Goto ELbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[19]:LbI F:2→F: 90→Z[1]:＂KM＂?Z:Prog ＂X1＂：＂X0＂?X: ＂Y0＂?Y: ＂SJ GC＂?H: 0→M: ＂M0(YDMGC) ＂?M: Prog＂BP FY＂:Fix 3：S→O: ＂L0=＂:Locate 6,4,O：Prog＂ZD＂:H-M→G:＂TW=＂: Lcoate 6,4,G: Goto FLbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]:＂KM＂?Z: Goto G:Prog＂X1＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M:＂M0＂?M:Fix 2:H-M→T:＂TW=＂: 6,4,T◢ Goto H2. 坐标计算次程序（ＴＨB）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 23.路基开挖边线及填方坡脚线放样程序程序名：BP FYLbI H: 13→L:H-M→G: Prog “W1”:If G <0:Then –G →G:G oto W:Else G →G:Goto TLbI W:Z[8]+Z[9]→A: If G >A:Then Goto 1:Else If G >Z[8]: Then Goto 2:Else Goto 3:IfEndLbI 1: L+Z[10]+Z[11]+Z[12]+( G -A-( Z[11]+Z[12])×0.03)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto ZLbI 2: L+Z[10]+Z[11]+( G -Z[8]- Z[11]×0.03)×Z[6]+Z[8]×Z[5] →S:Goto ZLbI 3: L+ G×Z[5]→S:Goto ZLbI T:Z[16]+Z[17] →B：If G >B:Then Goto 4:Else If G >Z [16]:Then Goto 5:Else Goto 6:IfEndLbI 4: L+Z[18] ×2+ (G -B-2×Z[18]×0.03）×Z[15]+ Z[17]×Z[14]+ Z[16]×Z[13]→S:Goto ZLbI 5: L+Z[18]+( G -Z[16]- Z[18]×0.03)×Z[14]+Z[16]×Z [13]→S:Goto ZLbI 6: L+ G×Z[13]→S:Goto ZLbI Z4.极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J：IfEnd：Fix 4:” FWJ=”: J◢DMS◢Fix 5:” S=”: I◢程序名：ZDFix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ：＂Ｄ＝＂：Locate 6,4,Ｄ5.交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4) ÷2688÷R∧(3)→A(圆曲线内移量H表示缓和曲线长)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) →W0→M:H→CIf Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEndIf Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEndIf 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:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3: LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H6. 交点法缓和段转化子程序(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:RS÷H→M7. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 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:IfEndLbI 28.路基标准半幅宽度计算程序程序名GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:9. 导线点子程序（DX）程序名：DX“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12]10.高程计算子程序（H）程序名：HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z≤E:Then Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto ILbI I11.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1: IfEndLbI 1: If W=1:Then Goto Z:Else Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI 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:IfEndLbI 2:Abs(D)→E:V÷E→I:I(E-K)→V15．线路选择子程序(线路选择输0时。