铁路竖曲线计算

概述：以下这篇文章就是竖曲线计算程序，其实通过搜索或者翻阅书籍我们都不难发现，这样性质的文章其实很多，但是要想真正的弄懂和明白竖曲线计算程序，那就要靠我们以后在工作实践中去加以验证。竖曲线计算程序这篇文章里面介绍了很多专业知识，有些内容需要从课本上才能够找到，只有掌握了此方面的专业知识，我们才能够知道其中的奥妙，才能够真正的应用出来，在以后的工作中得到升华。所以我这里还是要推荐这篇文章：竖曲线计算程序。当然有些文章是转载过来的，有的甚至是从某书籍或者文摘中摘抄过来的，目的就是让大家知道竖曲线计算程序。有些文章甚至只有一部分，缺少另一部分，没有关系，我们讲会在以后的时间里面更新出来，供各位阅读和学习！以下是正文内容：

程序名称：SQX “竖曲线计算主程序”

IA“⊿I1”B“⊿I2”C“BP”F“HP”RT

D=C－T：E=C+T

Lbl 0：{K}

KD= >X=C－K：N=A：Goto 1⊿

K≥E= >X=C－K：N=B：Goto 1⊿

K≤C= >X=K－D：Y=C-K：N=A：Goto 2：≠>X=E－K：Y=C－K：N=B：Goto 2⊿

Lbl 1：H“HS”=F-XN◢

Goto 0

Lbl 2：H“HS”=F－YN－I X2÷2÷R◢

Goto 0

注：

I——竖曲线为凹型时输入-1，为凸型时输入1；

⊿I1、⊿I2——输入格式为0###

BP——为变坡点里程

HP——为变坡点高程

R——半径

T——切线

K——输入待计算桩号

HS——计算输出结果

此竖曲线计算程序主要针对的是CASIO4800P

4800公路测量放样计算程序

CASIO fx-4800P计算器程序

DA DI——N E (公路弯道坐标计算)

K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”

M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲

N“HY”=M＋S▲

O“QZ”=M＋（πRAbs F÷180＋S）÷2▲

Z[1]“YH”=M＋πRAbs F÷180▲

Q“HZ”= Z[1]＋S▲

T=K－M▲

L=Q－M▲

E=（R＋S2÷（24R））÷cos（F÷2）－R▲

Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△

{U}：U“I——B OUT＋IN－”

Z＜S＋0005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋ S2÷（24R）－Ucos H：△

F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F－Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△

C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△

I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲

J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲

G=G＋20

Goto 0

程序运行

输入：JD？ ——交点桩号

R？ ——圆曲线半径

LS？ ——缓和曲线长度

PJ——L－R＋？ ——偏角 右偏为正

ZH——N？ ——ZH点N坐标

ZH——E？ ——ZH点E坐标

JD——N？ ——JD点N坐标

JD——E？ ——JD点E坐标

输出：ZH= ——ZH点桩号

HY= ——HY点桩号

QZ= ——QZ点桩号

YH= ——YH点桩号

HZ= ——HZ点桩号

T= ——切线长

L= ——曲线长

E= ——外矢距

再输入：ZHUANG HAO？ ——输入任一点桩号

I——B OUT＋IN－？ ——距中线距离（外侧为正）

再输出：COM——N= ——计算出N坐标

COM——E= ——计算出E坐标

以此循环——再输入——再输出

程序中各字母所代表的含义：

A——ZH点N坐标

B——ZH点E坐标

C——JD点N坐标

D——JD点E坐标

E——外矢距

F——偏角（右偏为正）

G——弯道内任一点桩号

H——弯道内任一点切线角

I——计算出的N坐标

J——计算出的E坐标

K——交点桩号

L——曲线长

M——ZH点桩号

N——HY点桩号

O——QZ点桩号

P——ZH--JD方位角

Q——HZ点桩号

R——圆曲线半径

S——缓和曲线长度

T——切线长

U——距中线距离（外侧为正）

V——支距

W——支距

X——弯道内坐标

Y——弯道内坐标

Z——任一点曲线长度

Z[1]——YH点桩号

另个程序

公路逐桩坐标计算程序

(可以计算对称、不对称缓和曲线)

Lb1 0

Z=？

V=？

W=V+2：Fixm

｛K｝

Lb1 1

K>Z[W+5Z+4]=>W=W+1:Goto 1⊿ (判断桩号在哪个交点范围，就是该交点曲线起点至下一交点曲线起点)

S=K-Z[W+5Z+3] （计算该桩号与曲线起点的距离）

R=Z[W+2Z+2]：L=Z[W+3Z+2]:E=Z[W+4Z+2] （读取该交点曲线要素R、Ls1 、Ls2）

Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]） （计算该交点与下一交点直线方位角）

J<0=>J=J+360⊿

A=J

Pol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]） （计算该交点与上一交点直线方位角）

J<0=>J=J+360⊿

C=A-J:A=J （计算偏角）

W=V+2=>Goto2⊿ （如果桩号在起点与第一交点曲线起点之间，则转 Lb1 2 ）

I=Abs（tan（c÷2））

M=L÷2-L^3÷240R^2:N=E÷2-E^3÷240R^2

P=L^2÷6R-L^4÷336R^3-R（1-cos（90L÷πR））

Q=E^2÷6R-E^4÷336R^3-R（1-cos（90E÷πR））

D=（P-Q）I÷2 : F=（P+Q+2R）I÷2

M=F+M-D:Q=F+N+D

N=πRAbsC÷180+（L+E）÷2

X=Z[W-1]-McosA

Y=Z[W+Z+1]-MsinA

M=Z[W-1]+Qcos（A+C）

V=Z[W+Z+1]+Qsin（A+C）

Q=AbsC÷C

S≤L=>P=0:Goto3⊿ （如果桩号在第一缓和曲线内，则转 Lb1 3）

S≤N-E=>S=S-L:Goto4⊿（如果桩号在圆曲线内，则转 Lb1 4）

S≤N=>S=N-S

Q=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Goto3 ⊿ （如果桩号在第二缓和曲线内，则转 Lb1 3）

P=A+C:S=S-N:D=M+ScosP:F=V+SsinP

Goto6 （如果桩号在直线内，则转 Lb1 6）

Lb1 2

P=A+C

D=Z[W-1]+ScosP

F=Z[W+Z+1]+SsinP:Goto6

Lb1 3

I=S-S^5÷40R^2÷L^2+S^9÷3456R^4÷L^4

J=Q（S^3÷6RL-S^7÷336R^3÷L^3）

P=P+A+90QS^2÷πRL:Goto5

Lb1 4

M=90（2S+L）÷πR

I=RsinM+L÷2-L^3÷240R^2

J=Q（L^2÷24R+R（1-cosM））

P=A+QM

Lb1 5

D=X+IcosA-jsinA:F=Y+JcosA+IsinA

Lb1 6

D〃X=〃◢ （结果显示X坐标）

F〃Y=〃◢ （结果显示Y坐标）

P〃AT=〃◢ （结果显示该桩号方位角）

{BO}：B〃S〃O〃⊿〃 （输入边桩距离，交角）

P=P+O

L〃XB〃=D+BcosP◢ （结果显示边桩X坐标）

M〃YB〃=F+BsinP◢ （结果显示边桩Y坐标）

以上是坐标计算程序，括号内是程序计算的大致原理及说明，中间部分为直线、圆曲线、缓和曲线计算的各种公式，大家也知道，书上也有。

该程序是最基本的，如再加几条语句就可以处理断链。

该程序还需变量输入，把整条线路曲线要素一次输入到4800中，就可以计算线路任意中、边桩坐标。

圆曲线中边桩坐标计算公式：

L=F-H；

注：L---所求点曲线长；F---所求点里程；H---圆曲线起点（ZY点桩号里程）

X=XZY+2×R×SIN（L÷2R）×COS｛α±(L÷2R)｝+S×COS｛α±(L÷R)+M｝;

Y =YZY+2×R×SIN（L÷2R）×SIN｛α±(L÷2R)｝+S×SIN｛α±(L÷R)+M｝

注：

α---线路方位角；

M---所求边桩与路线的夹角；

S---所求边桩至中桩的距离；

"±"---曲线左偏取“-”右偏取“+”；

当S=0时为中桩坐标。

经高速公路施工一线使用效果很好。

记住在公式中加入Excel的Radians（）函数将度转为弧度即可轻松方便地使用，

从ZY点坐标准确快速推算地计算出整条圆曲线。

注意要分清左偏右偏两种情况。 圆曲线中边桩坐标计算公式：

L=F-H；

注：L---所求点曲线长；F---所求点里程；H---圆曲线起点（ZY点桩号里程）

X=XZY+2×R×SIN（L÷2R）×COS｛α±(L÷2R)｝+S×COS｛α±(L÷R)+M｝;

Y =YZY+2×R×SIN（L÷2R）×SIN｛α±(L÷2R)｝+S×SIN｛α±(L÷R)+M｝

注：

α---线路方位角；

M---所求边桩与路线的夹角；

S---所求边桩至中桩的距离；

"±"---曲线左偏取“-”右偏取“+”；

当S=0时为中桩坐标。

经高速公路施工一线使用效果很好。

记住在公式中加入Excel的Radians（）函数将度转为弧度即可轻松方便地使用，

从ZY点坐标准确快速推算地计算出整条圆曲线。

注意要分清左偏右偏两种情况。

公式：H=竖曲线起点高程±（x-xo）×坡比±（x-xo）2÷（2×R）上坡为＋，下坡为-，x为任意点里程，xo为竖曲线起点里程，R为竖曲线半径。例：R=30000 T=92994 L=185988 E=0144 坡比48‰拐点里程为DK411+400 拐点设计高程为4448905

以拐点里程减T值得出竖曲线起点里程307006，加T值得出竖曲线止点里程492994。得H=445337-（x-307006）×00048-（x-307006）2÷（2×30000）

这个。。您能表达得更具体点吗？

这个。。。貌似我还没学到。。抱歉、帮不上忙了

下面有种、你参考下，不知道对不对

程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。

程序说明：K0：起始桩号

X0：起始X坐标

Y0：起始Y坐标

ALF：起始方位角

R：半径

LS：缓和曲线长

N：曲线左转N=1，右转N=2

K：待求桩号

LL、LR：左、右桩距离

Q：左、右桩与中线斜交角

求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。

一、

直线段

文件名：ZX

(COMP)

程式：

L”K0”:O”X0”:P”Y0”:W”ALF”:

Lbl

0:{K}:X”XZ”=O+(K-L)cosW◢

Y”YZ”=P+(K-L)sinW◢

{B}:S”XL”=X-B”LL”cos(W+Q)

◢

T”YL”=Y-Bsin(W+Q)

◢

{C}:U”XR”=X+C”LR”cos(W+Q)

◢

V”YR”=Y+Csin(W+Q)

◢

Goto

0

注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。

二、

圆曲线段

文件名：YQX

(COMP)

程式：

L”K0”:O”X0”:P”Y0”:W”ALF”:

Lbl

1:{K}:

J=(-1)^N

(K-L)÷R×180÷π:D=2Rsin((-1)^N

J÷2):

X”XZ”=O+Dcos(W+J÷2)

◢

Y”YZ”=P+Dsin(W+J÷2)

◢

{B}:S”XL”=X-B”LL”cos(W+J+Q)

◢

T”YL”=Y-Bsin(W+J+Q)

◢

{C}:U”XR”=X+C”LR”cos(W+J+Q)

◢

V”YR”=Y+Csin(W+J+Q)

◢

Goto

1

注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转+)。

三、

缓和曲线

文件名：HHQX

(COMP)

程式：

L”K0”:O”X0”:P”Y0”:W”ALF”:

M”LS”:Lbl

3:{K}:

I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π:

D=(K-L)-(K-L)^5÷90÷(RM)^2:

X”XZ”=O+Dcos(W+I)◢

Y”YZ”=P+Dsin(W+I)

◢

{B}:S”XL”=X-B”LL”cos(W+3I+Q)

◢

T”YL”=Y-Bsin(W+3I+Q)

◢

{C}:U”XR”=X+C”LR”cos(W+3I+Q)

◢

V”YR”=Y+Csin(W+3I+Q)

◢

Goto

3

注：1、坐标计算方法是根据偏角法原理；

2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点；

3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。

应用软件计算曲线拨量过程详解

一般的讲，计算一条曲线拨道量的过程大致是：输入现场正矢→计算拨道量→查看是否合适→确定拨量合理→确定采用→输出这样一个过程。现以下面数据为例，说明应用本软件计算曲线拨量的详细过程，希望对您有所帮助。

算例：已知各测点现场正矢如下表，其它要素不知道。试计算之。

首先，运行软件进入开始画面，输入原始口令“000000”后，到了程序的主画面如下：

第一步，把现场正矢数据填到“现场正矢xls”文件内。

现场正矢xls 文件位于安装目录下，如，我是把软件安装在C盘的Program Filesr内（C:\Program Files\曲线整正）。里面的文件如下图。

方法1：直接到这个目录下，打开这个文件输入；

方法2：在程序内点击文件--打开或创建现场正矢文件输入，如下图：

方法3：在程序内点击计算--输入现场正矢输入。

现场正矢xls文件的格式、表名等不能变动，只许向里填数，现场正矢填写完毕后存盘退出Excel。里面内容如下图：

第二步，输入已知条件，选择计算方式

如下图：这时，要做的是先要确定计算方式！即你所要计算的曲线是按哪种方式计算，从图中可看出，共有四种方式，分别是：

1、按三无曲线计算；

2、按给出的半径来计算；

3、按一头整桩一头零桩计算；

4、按已知桩位计算。

其中第四种还分为是不是属于单圆曲线的类型。当选择不同的计算方式时，上面既出现相关的帮助说明，在这里不详叙了。

为了得到合理的拨量，一般情况下，不管是否已知各项曲线要素，请首先按三无曲线计算，这样可以大概的知道以目前的现场正矢应该采用的半径、缓和曲线长度，即，首先有一个定位，之后再按已知半径进行计算，按已短半径计算时，要反复输入相近的数值试算，找到合理的拨量。

选择相应的计算方式后，需先填上相应的已知条件：

1、选择按三无曲线计算时，如上图，所有的要素不用填了，只需要填好测点间距即可。（测点间距不只10米一种是本软件的一大特点，本程序设计时允许以10米、5米、4米和3米四种测点间距来测设曲线，从而满足不同的要求，适应新形势。）

2、选择按给出半径计算时，需要填上曲线半径、始端缓和曲线长、终端缓和曲线长和测点间距，如下图：

3、选择按一头整桩计算时，需要填的已知条件是6项，如下图：

4、按已知桩位计算时，需要填的已知条件在右面共有6项或4项内容，如下面两幅图：

⑴ 有缓和曲线：

⑵ 无缓和曲线：

当已知条件输入完毕，现场正矢也填好后，请选择“已经填好”，按下[确定]，相应提示选择后，结束输入过程。

第三步，计算曲线拨量。

在本例中，我们第一次让它按三无曲线来计算，让程序自动判别半径和缓和曲线长，结果出现下面的提示：

看到半径是3915911，缓和曲线1是40米,缓和曲线2是70米,进一步下拉,发现最后一点的闭合差是111，程序不能自动消除这样一个正的闭合差，说明这样的半径和缓和曲线长度是不合理的，按下中止按钮，再在“输入现场正矢”下重新按给出半径进行计算，这回，我们在半径处输入391，两个缓和曲线长都输入相等的数值50，选择“已经填好”，如图：

按下确定按钮，再次进行计算曲线拨量，此时，什么提示也没有了，直接出现了下面的画面：

说明我们以391米半径、两端50米的缓和曲线要素是基本合理的，选择不再修正选项，按下确定，如下图：

选择否按下，进一步观察拨量情况，看到最大的拨量是-340，、且负拨量较大，说明半径选择稍大，应改小半径继续寻找较好的拨量。按下中止，重新输入比391小的数值看看（绳正法本身就是一种试算性质的，又称之为流水拨道法）。本次半径输入388，缓和曲线长不变，结果如下图：

最大拨量是+202，且正负拨量大体相当，可以采纳。如果满意，可以直接选择不再修正—确定即结束计算过程。

不满意，可以重新以新的曲线半径和缓和曲线长再计算，也可以在这里进行手工修正 *** 作。

修正的方法是：首先确定以ZH到HZ为修正范围（3点之前和34点之后为直线范围，不能安排修正），计算34-2=32个点，最大正拨量202在第21点，前面最大负拨量-188在第16点，这样，第一组要安排一个正数组，为的是减小第16点的拨量，第二组要安排一个尽量大的负数组，从而减少第21点的拨量，最后用一个正的数组来抵消。即初步计划是三个数组，正、负、正。初分一组和三组各10个点，中间12个点，因为二个相邻数组不同号时可以共用一个“0”，所以，中间的负数组再加2个点，到14个点，计算：一组10/25，S1=4×5=20；二组，14个点，14/2=7，S2=6×7=-42；三组，10/2=5，S1=4×5=20；20-42+20=-2，这-2在第二次修正的时候消掉，如图，在最后的32点和33点各填入1，使闭合差等于0。

下面是对此结果进行手工修正的图。

通过修正，最大拨量由202减小到170，第16点的最大负拨量-188减到-168。且拨后正矢满足以下5个条件：

⑴ 缓和曲线正矢与计算正矢的差不超过1mm；

⑵ 圆曲线正矢连续差不超过1mm；

⑶ 圆曲线正矢最大最小差不超过2mm；

⑷ 有控制点限制的，控制点拨量不超过许可范围。

⑸ 最后一点拨量是零。

程序提示通过，如下图。按下是，结束计算过程，回到主菜单。

第四步，输出结果。

在输出之前，请在前面的图内，把起点里程和曲线编号填好（在已知起点里程或实际测得某一点里程之后，换算一下，填入下面所示的栏内，具体里程要精确到厘米，“№”为曲线编号，用于输出拨量文件的编号。

在主图下，按下输出菜单，依次点击这四个子菜单，即可输出计算结果来。

计算成果是以Word文档形式存于当前目录下，用户可选择打印出表，或 *** 作Word文档直接传真到工区，或者用铁路内网发到工区，也可以在程序内选择文件菜单，打开拨道量计算结果文件子菜单直接查看。

缓和曲线检查表共设计了三个，一是用10米弦检查，二是用5米弦线检查，三是用2米弦线检查。这些表完全可以代替缓和曲线量副矢的做法，且比副矢好计算，来的快，点又密。而且从曲线头或曲线尾的桩开始的，都是整桩测量，结合超高和轨距递减一同写在轨枕上，方便检查。

以下是我以前写的《零桩变整桩 检查曲线正矢》，用它来理解缓和曲线检查表的意义吧。

零桩变整桩 检查曲线正矢

在长期的工作实践中，我们现场一线的养路工创造了好多实用方法，如：将曲线尾的零桩变为整桩来检查曲线是否圆顺就是其中之一，现在我把它叙述一遍。

如下图：HZ桩在第28～29测点之间，Hz桩距29点是4米，即HZ=28,60，由于是零桩，第28点和29点的正矢计算很麻烦，当时也没有这么先进，计算曲线必须查系数表，连计算器都没有，在现场怎么办呢？

既然28点和29点的正矢不好算，我就不量你！从第29点退回4米，找到HZ点（我且命名为29’ 下同），从HZ点向直线方向量10米，找到第30’点，之后再从HZ点向曲中方向每10米做出标记，直到YH点+1结束。如测量图中的29’点正矢，就变成整桩的情形，计划正矢应该是六分之一的递增量，现场立马就能算出，以此类推，第28’点的正矢就是1个递增量，27’的正矢就是2个递增量……，因为缓和曲线都是10米的整倍数，到YH桩的时候也是整桩，而且这点的正矢是圆曲线正矢再减去曲线头的正矢，好算极了。

圆曲线坐标计算

交点桩号YK20+734498； N=2889769961；E=527002305 ；

方位角314'24'583' 转角27'19'314' 切线长度T1=

814345 ；T2= 814347 ；

半径R=3000 ；曲线长度LS1： 170； LC=1260752； LS2= 170 曲线总长=1600752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。

1、A？输入转(偏)角；左转为负，右转为正。转角27'19'314'

2、R？输入曲线半径。 3000

3、LS？输入缓和曲线长度。 170

4、JD（DK）？输入交点里程桩号。 20734498

结果显示T = 814347 W=87776 L=1600754 ZH=19920151;

HY=20090151; QZ=20720528; YH=21350905; HZ=21520905

5、X（JD）？输入本交点X坐标。 2889769961

6、Y（JD）？输入本交点Y坐标。 527002305

7、FWJ？输入直缓(ZH)点切线方位角。 314'24'583'

8、J？输入0程序计算中桩，输入1程序计算边桩。0

9、Z？输入里程桩号。 ZH=19920151

FWJ:314416 X=2889200028 Y= 527583973完

（FWJ:314416=314'24'576' ）

ZH(2889200026 527583975) HY(2889320140 527463 682)

QZ(2889816373 527076808) YH(2890382383

526801950)

HZ(2890543311 526747167)

例如2:JD15:40138728781;4560311661 JD16:4015349321;451808075 ZH:75+137901 ay:16454969 R=9000 缓和曲线长：490 T=1571257 JD(DK) =76709158 FWJ=289-16-1285 给我算一下74+400;75+300;75+800;76+500左中线坐标

。ARCTAN(451808075

-4560311661 )\(4015349321-40138728781 )= 70'43'4716''

-4223091\1476443

1、A？输入转(偏)角；左转为负，右转为正。转角16-45-4969

2、R？输入曲线半径。 9000

3、LS？输入缓和曲线长度。 490

4、JD（DK）？输入交点里程桩号。 76709158

结果显示T = 1571257 W=98296 L=3123252 ZH=75137901

HY=75627901; QZ=76699527; YH=77771153; HZ=78261153

5、X（JD）？输入本交点X坐标。 4015349321

6、Y（JD）？输入本交点Y坐标。 451808075

7、FWJ？输入直缓(ZH)点切线方位角。 289'16'1285'

8、J？输入0程序计算中桩，输入1程序计算边桩。0

9、Z？输入里程桩号。 76500

FWJ:656382 X=4015345755 Y= 452031443完

74+400:4014587243,453987857

75+300:X=4014884417;Y=453138335

76+500:4015345755;452031443

CASIO FX-5800P 综合曲线坐标计算程序（正确） 陈银 2010-1-19

说明：该程序适用于计算器CASIO FX-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中，边桩坐标及切线方位角。

1、A？输入转(偏)角；左转为负，右转为正。 (-7。36’387’’)

2、R？输入曲线半径。 (7000)

3、LS？输入缓和曲线长度。 (390)

4、JD（DK）？输入交点里程桩号。 453325597(ZH直缓点里程+切线长度D3K452664943+660654)

5、X（JD）？输入本交点X坐标。 (27815012960)

6、Y（JD）？输入本交点Y坐标。 (5252262870)

7、FWJ？输入直缓(ZH)点切线方位角。 (191。17’713’’)

a=arctan( (Y大-Y小) ÷ ( X大-X小))

8、J？输入0程序计算中桩，输入1程序计算边桩。

9、Z？输入里程桩号。 (放样点里程)

主程序名：ZHQX

1．A：R：“LS” C：“JD（DK）”D

2．C^(2)÷24÷R- C^((4)) ÷2688÷R^(3) → P

3．C÷2－C^(3)÷240÷R^(2) → Q

4．90×C÷π÷R→B

5．“T=”：（R+P）tan(Abs(A)÷2)+Q→T◢

6．“W=”：（R+P）÷cos (A÷2)－R→W◢

7．“L=”：（ Abs(A)－2×B）πR÷180+2×C → L◢

8．“ZH=”：D-T→G◢

9．“HY=”：G+C→H◢

10．“QZ=”：G+L÷2→I◢

11．“YH=”：G+L-C→K◢

12．“HZ=”：G+L→M◢

13．“X（JD）”N：“Y（JD）”E：“FWJ”F：J

14． If A<0：Then -1→S：Else 1→S：IfEnd (备注:本行中0为数字)

15．F+A÷2+90×S→U

16．W+R→V

17．N+V×cos(U) →B

18．E+V×sin(U) →O (备注:本行中O为字母)

19．Lb1 1

20．Z

21．If Z≤G：Then T+G-Z→L

22．F+180→V

23．“FWJ=”：F→U◢

24．Goto 2

25．IfEnd

26．If Z≤H:Then Z-G→L

27．L-L^(5)÷（90×R^（2）×C^（2））→V

28．30×L^(2)×S÷（πRC）→L

29．F+180→P

30．F+L→Q

31．“FWJ=”：F+3×L→U◢

32．Goto 4

33．IfEnd

34．If Z≤K：Then F+A÷2+90×S+180+180(Z-I)×S÷R÷π→L

35．“FWJ=”：L+90×S→U◢

36．Goto 5

37．IfEnd

38．If Z≤M：Then M-Z→L

39．L-L^(5)÷（90×R^（2）×C^（2））→V

40．30×S×L^(2)÷（πRC）→L

41．F+A→P

42．F+A+180-L→Q

43．“FWJ=”：F-3×L+A→U◢

44．Goto 4

45．IfEnd

46．If Z>M：Then Z-M+T→L

47．F+A→U

48．U→V

49．Goto 2

50．Lb1 2

51．“X=”：N+L×cos(V)→X◢

52．“Y=”：E+L×sin(V)→Y◢

53．Goto 6

54．IfEnd

55．Lb1 3

56．W

57．“XL=”：X+W×cos(U-90)→P◢

58．“YL=”：Y+W×sin(U-90)→Q◢

59．“XR=”：X+W×cos(U+90)→P◢

60．“YR=”：Y+W×sin(U+90)→Q◢

61．Goto 1

62．Lb1 4

63．“X=”：N+T×cos(P)+V×cos(Q)→X◢

64．“Y=”：E+T×sin(P)+V×sin(Q)→Y◢

65．Goto 6

65．Lb1 5

67．“X=”：B+R×cos(L)→X◢

68．“Y=”：O+R×sin(L)→Y◢ (备注:本行中O为字母)

69．Goto 6

70．Lb1 6

71．J=1=> Goto 3

72．Goto 1

备注：1、括号中（）备注为说明，请不要输入。

2、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。

以上就是关于铁路竖曲线计算全部的内容，包括:铁路竖曲线计算、弯曲曲线怎样算总长、圆曲线坐标计算公式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！