曲线拨正计算程序说明
曲线拨正计算程序
一、概述
曲线方向整正常用的方法有矢距法、偏角法和绳正法。前两种多应用于新建或改建的铁路上。在既有线上，由于行车的干扰，置镜困难，绳正法得以普遍应用。绳正法基本上是以一种试算性质的、称之为流水拨道的为主。过去，由于条件的限制，现场人员计算一条曲线要费好大的劲，因为数据量较大，一遍一遍的要算好几张纸，搞的头疼。现在，电脑得以广泛应用，为做好线路养护维修奠定了良好基础。根据绳正法整正曲线基本原理、公式，在Windows平台上编写了这个计算程序。希望给我的同行带来方便，节约时间，又快又好的把铁路曲线拨正，拨圆，让火车跑的稳，跑的快，适应提速的需要。同时，也借此机会交流经验，向专家，老师学习。
二、适用范围与主要功能
本程序适用于直线型超高顺坡的缓和曲线，不能计算复心曲线，不适用于曲线型超高顺坡的缓和曲线拨正计算；对无头、无尾、无资料的“三无”曲线可自动初步判别曲线半径及缓和曲线长度，通过试算找到较小的拨道量，曲线计算完毕后将结果输出到Word文档，同时输出缓和曲线两种检查表，一是以2m弦线测量，在缓和曲线上每1m量一处正矢的；二是以10m弦线测量，在缓和曲线上每5m一点的。等同于缓和曲线加设副矢检查点，主要是为了适应提速的需要，把缓和曲线做好。
三、操作过程
1、程序运行后开始出现的是登录画面，如下图：要求输入口令。
初始口令为“000000”，即6个0。以后你可以根据自己的习惯，修改呢称、口令。
2．主画面。上面的图就是主画面一角，共有5个主菜单：分别是：[计算]，[输出]，[设置]，[退出]，[说明]。其中后二项没有子菜单，前三项的子菜单如下三幅图。
[计算]项下一共是5个子菜单，分别是[填入现场正矢]、[确定半径、缓和线长]、[计算半拨量]、[修正、计算拨量]及[退出]。现在看到，填入正矢菜单是灰色的，表示里面已有曲线数据在计算，现场正矢、控制点和备注的内容都填好了，不能改了。只有点击[设置]里面的[计算新曲线开关]，这个菜单才变得可操作，但同时也清空了现有的数据。
3．计算一条曲线的过程：
圆曲线要素及计算公式
圆曲线要素及计算公式
前言 《礼记》有云：大学之道，在明德，在亲民。在提笔撰写我的毕业设计论文的时候，我也在向我的大学生活做最后的告别仪式。我不清楚过去的一切留给现在的我一些什么，也无从知晓未来将赋予我什么，但只要流泪流汗，拼过闯过，人生才会少些遗憾！ 非常幸运能够加入水利工程这个古老而又新兴的行业，即将走向工作岗位的时刻，我仿佛感受到水利行业对我赋予新的历史使命，水利是一项以除害兴利、趋利避害，协调人与水、人与大自然关系的高尚事业。水利工作，既要防止水对人的侵害，更要防止人对水的侵害；既要化解自然灾害对人类生命财产的威胁，又要善待自然、善待江河、善待水，促进人水和谐，实现人与自然和谐相处。这种使命，更让我用课堂中的知识用于实际生产中来。特别是这两个月来的毕业设计，我越发感觉到学会学精测量基础知识对于我贡献水利是多么的重要。所以，我越发不愿放弃不多的大学时光，努力提高自己的实践动手能力，而本学期的毕业设计，为我提供了绝好的机会，我又怎能放弃？
刚刚从老师那里得到毕业设计的题目和任务时，我的心里真的没底。作为毕业设计的主体工作，我们主要运用电子水准仪对某幢建筑物进行变形观测与计算，布设控制点进行平面控制测量和高程控制测量；用全站仪进行了中心多边行角度和距离的测量，并用条件平差原理进行平差，通过控制点的放样来计算土的挖方量，还有圆曲线的计算与测设。而我研究的毕业课题是圆曲线测设。 大学的最后一个学期过得特别快，几乎每天扛着仪器，奔走在校园的每个角落，生活亦很有节奏。今天我提笔写毕业论文，我的毕业设计也接近尾声。不管成果如何，毕竟心里不再是没底了，挑着两个多月的辛苦换来的数据和成果，并不断的完善他们，心里感觉踏实多了。 在本次毕业设计论文的设计中要感谢水利系为我们的工作提供了测量仪器，还有各指导老师的教导和同学的帮助。 摘要：在公路、铁路的路线圆曲线测设中，一般是在测设出曲线各主点后，随之在直圆点或圆直点进行圆曲线详细测设。本文通过仪器安置
公路竖曲线高程计算程序
fx-4800P计算器 公路竖曲线高程计算程序 （程序名：GAO CHENG-HP） Lb1 0︰｛CDAB｝︰C“K1=”︰D“H1=”︰A“PV-K0=”︰B “PV-H0=”↙ Lb1 1 ︰｛REF ｝︰R“R=”︰E“K2=”︰F“H2=”↙Lb1 2︰U =（B－D）÷（A－C）︰V =（F－B）÷（E－A）︰U ＞V =＞N = 0︰T = R ( U－V ) ÷2︰≠＞N = 1︰T = R ( V－U ) ÷2 ︰⊿G = A －T ︰Q = A ＋T ︰W = T 2÷（2 R）↙ Lb1 3︰｛K｝︰K “I.T.E.ZY-K.YZ-K=0,1”︰ K =0 =＞Goto 4 ︰⊿U “I 1”= U ▲V “I 2”= V ▲T = T ▲W “E”= W ▲G “ZY-K”= G ▲Q “YZ-K”= Q▲↙ Lb1 4︰｛M｝︰M“PK=”︰M ≤A =＞Goto 5︰⊿Goto 6 ↙Lb1 5︰M ≤G =＞H = B－U ( A－M ) ︰Goto 7 ︰≠＞Prog “H1 ”︰N = 1 =＞H = B＋X－Y ︰Goto 7︰≠＞N = 0 =＞H = B－X －Y ︰Goto 7↙ Lb1 6︰M ≥Q =＞H = B＋V ( M－A ) ︰Goto 7 ︰≠＞Prog “H2 ”︰N = 1 =＞H = B＋X＋Y ︰Goto 7︰≠＞N = 0 =＞H = B－X ＋Y ↙ Lb1 7︰H “HP”= H ▲｛L｝︰L“BZ-T=0,L”︰L = 0 =＞Goto 8 ︰⊿｛S｝︰S “IL=”︰H “HL”= H ＋S L ▲↙
Fx5800计算器程序(非对称平曲线)
Fx-5800计算器程序 一、程序名称：B-F-PQX(非对称平曲线) 30→Dim Z:“ZX”?H: “ZY”?K:“A”?A:“R”?R:“LS1”?N：“LS2”?L：“JDL”?Q:“JX”?U：“JY”?V：“F”?F：180/π/R→Z:ZN/2→Z［9］:ZL/2→B:N2/24/R-N^(4)/2688/R^(3)+N^(6)/506880/R^(5)→Z［10］: L2/24/R-L^(4)/2688/R^(3)+L^(6)/506880/R^(5)→P:N/2-N^(3)/(240R2)+N^(5)/34560/R^(4)→Z［11］: L/2-L^(3)/(240R2)+L^(5)/34560/R^(4)→Z［14］ “T1=”：（（R+P）-（R+Z［10］）Cos（Abs（A））+Z［11］→Z［12］▲ “T2=”：（（R+Z［10］）-（R+P）Cos（Abs（A）））+Z［14］→Z［13］▲ “L=”:(Abs(A)-Z［9］-B)/Z+N+L→o▲ “ZH=”:Q-Z［12］→E▲ “HY=”:E+N→Z［1］▲ “QZ=”:E+N+(o-N-L)/2→Z［2］▲ “YH=”:E+o-L→Z［3］▲ “HZ=”:E+o→Z［4］▲ LbI 9:“XL”？M：Prog“FDP”：Goto 9
二、子程序：FDP 180/π/R→Z:ZN/2→Z［9］:ZL/2→B:N2/24/R-N^(4)/2688/R^(3)+N^(6)/506880/R^(5)→Z［10］: L2/24/R-L^(4)/2688/R^(3)+L^(6)/506880/R^(5)→P:N/2-N^(3)/(240R2)+N^(5)/34560/R^(4)→Z［11］: L/2-L^(3)/(240R2)+L^(5)/34560/R^(4)→Z［14］ （（R+P）-（R+Z［10］）Cos（Abs（A））+Z［11］→Z［12］ （（R+Z［10］）-（R+P）Cos（Abs（A））+ Z［14］→Z［13］ (Abs(A)-Z［9］-B)/Z+N+L→o Q-Z［12］→E E+N→Z［1］ E+N+(o-N-L)/2→Z［2］ E+o-L→Z［3］ E+o→Z［4］ 0→W：0→Y：If M≤E：Then M-E→X：Goto 3：IfEnd：If M≤Z［1］：Then Goto 1：IfEnd：If M＜Z［3］：Then Goto 2：IfEnd：If M＜Z［4］：Then Goto 8：IfEnd：If M≥Z［4］:Then Z［4］-M→X：Goto 3：IfEnd LbI 1：M-E→G：G-G^(5)/(40R2N2)+G^(9)/(3456R^(4)N^(4))→X:G^(3)/(6RN)-G^(7)/(336R^(3)N^(3))+G^(11)/(42240R^(5)N^(5))→Y:ZG2/2/N→W:Goto 3 LbI 2:M-Z［1］→G:RSin(Z［9］+GZ)+Z［11］→X:R-RCos(Z［9］+GZ)+Z［10］→Y: Z［9］+GZ→W:Goto 3
FX-4850计算器曲线计算程序2011.721
ZHY程序FX5800 辛普森计算器公路测量常用程序修改版一、程序功能 LbI 0:＂X=＂?A: ＂Y=＂?B：＂Z=＂?C：＂1/（R1）＂?D：＂1/（R2）＂?E：＂QT=＂?F: ＂QT=＂?G: ＂V＂?V：＂W＂?W LbI 1：＂L＂?L：＂O＂?O：＂H＂?H：IF L>G：Then Goto 1：IFEnd （E-D）/（G-F）→P：L-F→Q：P*Q→I C+（I+2*D）*Q*（90/∏）→J C+（I/4 +2*D）*Q*（45/（2*∏））→M C+（3/4*I+2*D）*Q*（135/（2*∏））→N C+(I÷2+2*D)*Q*(45÷∏) →K ＂X=＂:A+Q÷12*(COS（C）+4*（COS（M）+C0S（N））+2*COS （K）+COS（J）)+O*COS（J+H）→X◢ ＂Y=＂:B+Q÷12*(SIN（C）+4*（SIN（M）+SIS（N））+2*SIN （K）+SIN（J）)+O*SIN（J+H）→Y◢ X-V→I：Y-W→J PoL（I，J） ”J=”:J▲DMS▲ If J <0:Then “J=”:J+360°→J:J▲DMS ▲ if End Goto1
F5800计算器曲线计算JD程序（ZH~HZ）坐标计算放样公式 主程序： 30→Dim Z: "XJD="?B: "YJD="?D: "KJD="?M: "A="?A: "ZJ="? Q: "R="?R: "LS1="?C: "LS2="?T: "F="?F:prog "A":Lb1 0: "XO="?G: "YO="?H: "LC="?L: "JJ="?Z: "PJ="?S:If L≤M-Z[11]+C:Then M- Z[11]COS(F) →N:D- Z[11]Sin(F) →E:Prog "ZHHY":Prog "FWJ": Goto 0:Else If L≤M-Z[11]+ Z[13]-T: Then M- Z[11] →K:B- Z[11] COS(F) →N:D- Z[11]Sin(F) →E: Prog "HYYH":Prog "FWJ": Goto 0: Else If L≤M-Z[11]+ Z[13]:Then M- Z[11]+ Z[13] →K:F+AQ+180→V:B-Z[12] COS(V) →N:D- Z[12] Sin(V) →E: Prog "YHHZ":Prog "FWJ": Goto 0: Else "End" ▲ If End: If End: If End 说明：以上主程序需要四个副程序，缺少任何一个副程序不能运行！ "XJD="?: "YJD="?: "KJD="?为曲线交点坐标及桩号 "A="?为曲线左转取-1；右转取1 "ZJ="?为曲线转角值；"R="?为曲线半径 "LS1="?： "LS2="?为前后段缓和曲线长度 "F="?曲线起始方位角； " X0="?、" Y0="?:全站仪测站点坐标 " LC="?为曲线ZH-HZ段内所求任意点桩号； "JJ="?为切线顺时针夹角；"PJ="?为左右侧所求点距设计线距离；
工程测量竖曲线程序及公式
竖曲线程序要素 已知要素 ? 1. 变坡点里程桩号 2. 变坡点高程3. 竖曲线半径4. 变坡点前坡度（上坡为正，下坡 为负） 5. 变坡点后坡度（上坡为正，下坡为负）6.待求点里程 计算公式 ●凹凸型：当前坡度-后坡度为正，则为凸型，反之为凹型 ●转坡角（曲折角）：前坡度–后坡度 ●竖曲线长：半径* 转坡角 ●切线长：竖曲线长/ 2 ●外矢距：切线长的平方/ 2倍半径 ●待求点到变坡点距离：待求点桩号–变坡点桩号（取绝对值） ●曲线起终点桩号： 起点：变坡点的桩号–切线长终点：变坡点的桩号+ 切线长 ●任意点切线标高：变坡点的标高±测点与变坡点里程距离*该里程对应坡度 ●任意点设计标高： 1. 凸型：该桩号在切线上的设计标高–修正值 2. 凹型：该桩号在切线上的设计标高+ 修正值 程序条件 ◆条件：如果待求点≦变坡点，则待求点–起点=间距，反之待求点>变坡点，则终点–待 求点=间距 ●曲线点间距：待求点–起点或终点–待求点 If K ≦Z:Then K - A→X:Else K > Z ＝＞B - K→X : IfEnd ●竖曲线上点的高程修正值：曲线点间距的平方/ 2倍半径 ◆条件：凸型竖曲线（J>0） 如果待求点≦变坡点，则任意点设计标高=变坡点高程-（变坡点-待求点）* 前坡度(取绝对值)-修正值，反之待求点>变坡点，则变坡点任意点设计标高=变坡点高程-（待求点-变坡点）* 后坡度(取绝对值)-修正值 If K≦Z:Then H-Abs(U*I)-Y→G：Else K>Z＝＞H-Abs(U*L)-Y→G:IfEnd ◆条件：凹型竖曲线(J<0) 如果待求点≦变坡点，则任意点设计标高=变坡点高程+（待求点-变坡点）* 前坡度(取绝对值)+修正值，反之待求点>变坡点，则变坡点任意点设计标高=变坡点高程+（变坡点-待求点）* 后坡度(取绝对值)+修正值 If K≦Z:Then H+Abs(U*I)+Y→G：Else K>Z＝＞H+Abs(U*L)+Y→G:IfEnd
曲线拨正计算程序说明
曲线拨正计算程序 一、概述 曲线方向整正常用的方法有矢距法、偏角法和绳正法。前两种多应用于新建或改建的铁路上。在既有线上，由于行车的干扰，置镜困难，绳正法得以普遍应用。绳正法基本上是以一种试算性质的、称之为流水拨道的为主。过去，由于条件的限制，现场人员计算一条曲线要费好大的劲，因为数据量较大，一遍一遍的要算好几张纸，搞的头疼。现在，电脑得以广泛应用，为做好线路养护维修奠定了良好基础。根据绳正法整正曲线基本原理、公式，在Windows平台上编写了这个计算程序。希望给我的同行带来方便，节约时间，又快又好的把铁路曲线拨正，拨圆，让火车跑的稳，跑的快，适应提速的需要。同时，也借此机会交流经验，向专家，老师学习。 二、适用范围与主要功能 本程序适用于直线型超高顺坡的缓和曲线，不能计算复心曲线，不适用于曲线型超高顺坡的缓和曲线拨正计算；对无头、无尾、无资料的“三无”曲线可自动初步判别曲线半径及缓和曲线长度，通过试算找到较小的拨道量，曲线计算完毕后将结果输出到Word文档，同时输出缓和曲线两种检查表，一是以2m弦线测量，在缓和曲线上每1m量一处正矢的；二是以10m弦线测量，在缓和曲线上每5m一点的。等同于缓和曲线加设副矢检查点，主要是为了适应提速的需要，把缓和曲线做好。 三、操作过程
1、程序运行后开始出现的是登录画面，如下图：要求输入口令。 初始口令为“000000”，即6个0。以后你可以根据自己的习惯，修改呢称、口令。 2．主画面。上面的图就是主画面一角，共有5个主菜单：分别是：[计算]，[输出]，[设置]，[退出]，[说明]。其中后二项没有子菜单，前三项的子菜单如下三幅图。 [计算]项下一共是5个子菜单，分别是[填入现场正矢]、[确定半径、缓和线长]、[计算半拨量]、[修正、计算拨量]及[退出]。现在看到，填入正矢菜单是灰色的，表示里面已有曲线数据在计算，现场正矢、控制点和备注的内容都填好了，不能改了。只有点击[设置]里面的[计算新曲线开关]，这个菜单才变得可操作，但同时也清空了现有的数据。 3．计算一条曲线的过程：
路线平面计算案例
路线平面计算案例——某低等级公路的计算（无坐标、虚交） 以下这个项目的直曲表，网友发给我已经有很长时间了，也请求过我好几次，但我一直未能帮他完成详细示抱歉，这段时间，实在没有精力，今天是周末，抽点时间来完成。
直曲表有两个特点： 1．象很早以前的低等级公路路线设计一样，没有坐标； 2．有三个虚交，其中一个虚交还是回头曲线（转角大于180度）。 对于没有坐标的直曲表，勘测中估计也没有做平面控制测量，也就没有已知坐标点来进行路线的坐施工中当然只能用老办法，这个老办法相信每本测量教科书中都有、而实际可能很少用到的那种—偏角法。 由于全站仪的普及，可能很多施工员也习惯使用坐标放样的方法，我们可以采用假定坐标系的方法并利用交点（对于低等级公路，一般在勘测时在实地上已经固定了）坐标作为平面控制点来进行放 具体方法如下： 首先，建立一个EXCEL表格，把直曲表上的交点的名称、转角、间距等提取并复制到这个表格中，最好转换成弧度格式，因为电子表格中的三角函数内的角度都要按弧度输入。然后新建方位角和坐点坐标为（1000,1000），起点至第一个交点直线方位角为0。根据各交点转角，可推算出各条路再根据起点坐标和方位角，可依次推算出各交点的坐标（公式应该每个人都知道吧，不知道的自己
根据各交点坐标，可在AUTOCAD中绘出路线导线图。 现在的问题是如何处理虚交，因为平常我们用交点法计算都是实交。其中，交点1和交点2都好办
都小于180度，我们可以在AUTOCAD中作图查询的方法，获取这两个实交交点的坐标，分别是：交点1：（1322.324，1000.000） 交点2：（860.966，1061.258） 但交点4就麻烦了，它转角大于180度，必须采用分拆成两个实交的办法来处理。这个分拆有个前那两个交点连线必须切于圆曲线（这个不等同于虚交），这个也可以用作图的方法来确定，但问题没有绘出来。 有两条圆切线了，半径也知道，圆心就好找，圆心找到了，根据半径……考验大家的AUTOCAD作图 最后分拆的两个交点坐标是：（726.939，1188.535），（748.434，1220.547）。要说明一下的就线有无限多条，因此做出的两交点也有无限多种，我这两个交点坐标并不是唯一结果。 最后的结果如下：
圆曲线超高加宽计算程序
圆曲线超高加宽计算程序 平曲线加宽类别分为：四级公路不设缓和曲线而用超高加宽缓和段代替及平曲线半径R≤250M时两种情形。 程序说明：能计算双圆复曲线ZY点与YZ点的加宽值，单圆曲线是双圆复曲线在R1=R2时的特例,”r”的输入：FUNCTION—5--2 程序名：YQXJK（圆曲线加宽） Deg:Fix 3:FreqOff←┚ “NEW(0),OLD(≠0)DATA=”?→O←┚ O≠0=》Goto 0:ClrStat←┚ “ZY K=”?Z:”YZ K=”?Y←┚ “R1=”?U:”R2=”?V←┚ “L=”?L←┚ “W=”?W:”+W=”?B←┚ 100→DimZ←┚ U-0.5W-B→Z[1]:U-0.5W→Z[2] ←┚ 厂（Z[2]2+L2-Z[1]2）→Z[3] ←┚ tan-1((Z[2]Z[3]-Z[1]L)÷（Z[1]Z[2]+Z[3]L）)→Z[4] ←┚πZ[4]U÷180→Z[5] ←┚
V-0.5W-B→Z[11]:V-0.5W→Z[12] ←┚ 厂（Z[12]2+L2-Z[11]2）→Z[13] ←┚ tan-1((Z[12]Z[13]-Z[11]L)÷（Z[11]Z[12]+Z[13]L）)→Z[14] ←┚ πZ[14]V÷180→Z[15] ←┚ Z-L→List X[1] ←┚ Z→List X[2]:Ltan(Z[4])→List Y[2] ←┚ Z+Z[5]→List X[3]:B→List Y[3] ←┚ Y-Z[15]→List X[4]:B→List Y[4] ←┚ Y→List X[5]:Ltan(Z[14])→List Y[5] ←┚ Y+L→List X[6] ←┚ “CAN SHU YES(1),NO(≠1)=”?C←┚ C≠1=>Goto 0←┚ “t1(DMS)=”:Z[4]▲DMS⊿ “t2(DMS)=”:Z[14]▲DMS⊿ “LJ1=”:Z[5]⊿ “LJ2=”:Z[15]⊿ “ZY+JIA KUAN=”:List Y[2]⊿ “YZ+JIA KUAN=”:List Y[5]⊿ Lbi 0:6→K←┚ Do:”+K,<0=>END=”?→F←┚ FBreak←┚
CASIO_fx5800P实用圆曲线中边桩放样程序
3．单圆曲线(YQX) “KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入 起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，正输入+1，负输入-1，R为输入曲线半径） Abs(F)÷2→G◢ “T=”：Rtan(G)→T◢（计算切线长） “L=”：GRπ÷90→L◢（计算圆曲线长） “E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离） LbI 1←┘ ?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角 “XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标） “YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标） tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘ If U＜0:Then U+360→U:Else U→U:If End←┘ “FW=”?U :U DMS◢（计算出的中桩与交点的方位角） ?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标） “YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=”: Z [1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）
非对称缓和曲线坐标计算程序
非对称缓和曲线坐标计算程序 CASIO fx-4800P QXZB曲线坐标计算 CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标： 该程序适用于计算器 CASIO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。 1、DK(JD)？输入交点桩号 2、X(JD)？输入交点坐标X 3、Y(JD)？输入交点坐标Y 4、T1？输入第一切线长(如果只有一条切线两者都输入一致) 5、T2？输入第二切线长(如果只有一条切线两者都输入一致) 6、FWJ？输入直线方位角(ZH→JD) 7、A？输入转角：左转为负，右转为正 8、R？输入圆曲线半径 9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致) 10、LY？输入圆曲线长(L-LS1-LS2) 11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致) 12、X(ZJD)？输入置镜点坐标X 13、Y(ZJD)？输入置镜点坐标Y 14、JSDK？输入前视点里程 15、PL？输入偏距 16、PA？输入偏角 程序下载地址： https://www.360docs.net/doc/2610451844.html,/blog/post/QXZB-4800.html
评价答案 好:18 不好:1 原创:18 非原创:0 菲メ帆ぅ 回答采纳率:52.8% 2010-06-02 17:37 满意答案 好评率：57% （for Casio-fx4850） 扩展变量操作（15个）：Defm 15←┚ ( O为字母、0为数字) J-PQX (平面数据输入，自行切换到J-JSMS) Defm 15←┚ A“JD” B“JDX” C“JDY” F“FWJ” O“A0：Z-，Y+” RE“LS1” K“LS2”： E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]= E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs O :“T1=”:Z[3]=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢“T2=”:Z[4]=(R+KK÷24R-K∧4÷2688RRR)tan(Abs O ÷2)+K÷2-KKK÷240RR+X◢ “L=”:L=Abs OπR÷180+(E+K)÷2◢ J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E=”:X=(R+Z[1])÷sin J-R◢ X=A-Z[3]:Y=X+E:E<1=>“ZY=”:X◢ ≠=> “ZH=”:X◢ “HY=”:Y◢ ⊿ “QZ=”:Y =X+(L-K-E)÷2+E◢ Y=X+L-K:X=X+L:K<1=> “YZ=”:X◢
5800计算器竖曲线程序
CASIO fx5800p全线高程计算程序 GAOCHEN 主程序 Lbl 1 “KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK” C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→R If K≤B-T:Then 0→H:Else:If K≥B+T Then 0→H:D→C:Else K-B+T→H:Ifend:Ifend A-(B-K)C-H2/(2R)-0.000→G：Cls “KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “H=”：Locate 4，2，G Prog “PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J “HL=”：G+I(L-1)→X：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100 “HR=”：G+J(L-1)→Y：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100◢显示中边桩高程 Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0=> Goto 1：Cls (输入视线高) “KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “QSM=”: Locate 6，2，Z-G (显示中桩读数) “QSL=”: Locate 6，3，Z-X (显示左桩读数) “QSR=”: Locate 6，4，Z-Y◢(显示右桩读数) Norm 2：Cls：Goto1 （后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉） 以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果 GK 数据库子程序 If K≤第二曲线起点桩号：Then 第一曲线交点高程→A：第一曲线交点桩号→B：第
竖曲线自动计算表格
竖曲线自动计算表格 篇一：Excel竖曲线计算 利用Excel表格进行全线线路竖曲线的统一计算 高速公路纵断面线型比较复杂，竖曲线数量比较多。由于相当多的竖曲线分段造成了设计高程计算的相对困难，为了方便直接根据里程桩号计算设计高程，遂编制此计算程序。程序原理： 1、根据设计图建立竖曲线参数库； 2、根据输入里程智能判断该里程位于何段竖曲线上； 3、根据得到的竖曲线分段标志调取该分段的曲线参数到计算表格中； 4、把各曲线参数带入公式进行竖曲线高程的计算； 5、对程序进<0 = J=0; M-P=0 = J=1 B: K<=D =B=-M ; KD = B=P 程序特色： 1、可以无限添加竖曲线，竖曲线数据库不限制竖曲线条数； 2、直接输入里程就可以计算设计高程，不需考虑该里程所处的竖曲线分段；
3、对计算公式进行保护，表格中不显示公式，不会导致公式被错误修改或恶意编辑。 程序的具体编制步骤： 1、新建Excel工作薄，对第一第二工作表重新命名为“参数库”和“计算程序”，根据设计图建立本标段线路竖曲线的参数库，需要以下条目： （1）、竖曲线编号； （2）、竖曲线的前后坡度（I1、I2）不需要把坡度转换为小数； （3）、竖曲线半径、切线长（不需要考虑是凸型或凹型）；（4）、竖曲线交点里程、交点高程； （5）、竖曲线起点里程、终点里程（终点里程不是必要参数，只作为复核检测用）；如图1所示： 图1 2、进行计算准备： （1）、根据输入里程判断该里程所处的曲线编号： 需要使用lookup函数，函数公式为“LOOKUP(A2,参数库!H3:H25,参数库!A3:A25)”。如图2所示： 里程为K15+631的桩号位于第11个编号的竖曲线处，可以参照图1 进行对照 （2）、在工作表“程序计算”中对应“参数库”相应的格式建立表格
5800计算器公路坐标计算程序(全线)直缓和圆曲线程序
5800计算器公路坐标计算程序(全线) 原４８５０程序改编 Lb1 1 ”K”?K:”W”?W:”O”?O:”I”?I IF K<41490.879:Then 40776.825→A: 41490.879→ B: 3761346.715→ M: 505279.147→N：166°45′36.3″→F： 1/1045→D：1/1045→E ：Goto 0 :Return:Ifend IF K<41690.879:Then 41490.879→A: 41690.879→ B: 3760651.641→ M: 505442.686→N：166°45′36.3″→F： 1/1045→D：1/1000→E ：Goto 0 :Return:Ifend IF K<42242.154:Then 41690.879→A: 42242.154→ B: 3760455.626→ M: 505481.961→N：172°29′22.78″→F： 1000→ R：Goto 2: Return:Ifend IF K<42442.154:Then 42242.154→A: 42442.154→ B: 3759916.982→ M: 505403.549→N：204°04′31.62″→F： 1/1000→D： 1/1045→E： Goto 0 : Return:Ifend IF K<42673.884:Then 42442.154→A: 42673.884→ B: 3759740.299→ M: 505310.019→N ：209°48′18.1″→F： 1/1045→D： =1/1045→E ：Goto 0 : Return:Ifend IF K<42863.884:Then 42673.884→A: 42863.884→ B:3759539.223→ M:505194.838→N：209°48′18.1″→F：-1/1045→D:-1/800→E：Goto 0 : Return:Ifend IF K<43636.692:Then 42863.884→A: 43636.692→ B:3759370.853→ M:505107.051→N：203°00′04.15″→F：R=-800：Goto2 : Return:Ifend IF K<43826.692:Then 43636.692→A: 43826.692→ B:3758630.216→ M: 505167.591→N：147°39′10.35″→F： -1/800→D：E=-1/1045→E :Goto 0 : Return:Ifend IF K<44825.092:Then 43826.692→A: 44825.092→ B:3758478.338→ M: 505281.555→N：140°50′56.4″→F：-1/1045→D：-1/1045→E: Goto 0 : Return:Ifend IF K<45025.092:Then 44825.092→A: 45025.092→ B:3757704.093→ M: 505911.911→N：140°50′56.4″→F： 1/1045→D：1/1000→E：Goto 0 : Return:Ifend IF K<45300.109:Then 45025.092→A: 45300.109→ B:3757544.945→ M: 506032.892→N：146°34′42.88″→F：R=1000：Goto 2 : Return:Ifend IF K<45500.109:Then 45300.109→A: 45500.109→ B:3757297.588→ M: 506151.102→N：162°20′09.32″→F： 1/1000→D： 1/1045→E ：Goto 0 : Return:Ifend IF K<45805.835:Then 45500.109→A: 45805.835→ B:3757103.485→ M: 506198.937→N：168°03′55.8″→F： 1/1045→D：1/1045→E： Goto 0 : Return:Ifend IF K<45980.835:Then 45805.835→A: 45980.835→ B:3756804.367→ M: 506262.160→N：168°03′55.8″→F： -1/1045→D： -1/1000→E：Goto 0 : Return:Ifend IF K<46136.333:Then 45980.835→A: 46136.333→ B:3756634.336→ M: 506303.312→N：163°03′07.63″→F：R=-1000：Goto 2 : Return:Ifend Lb1 0 (E-D)÷(Abs(B-A)) →P： Abs(K-A) →Q： F+(PQ+2D)Q×90÷∏→J F+(PQ÷4+2D)Q×45÷(2∏) →G F+(3PQ÷4+2D)Q×135÷(2∏) →H F+(PQ÷2+2D)Q×45÷∏→S：
卡西欧fx-5800p计算器”单圆曲线计算“程序以及程序说明
单圆曲线(YQXJS) “KO”?O: “X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号），（X0为输入起算点X坐标），（Y0为输入起算点Y坐标），（JDX输入曲线所在交点X坐标，无输入0），（JDY为输入曲线所在的Y坐标，无输入0），（FWJ为输入起算点的方位角），（F0为输入交点处的转角，带正负号，当左转时在转角前加-；右转时在转角前加+），（N为转角方向，正输入+1，负输入-1），（R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长） “L=”：GRπ÷90→L◢（计算圆曲线长） “E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离） LbI 1←┘ ?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角 “XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标） “YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标） tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘ If U＜0:Then U+360→U:Else U→U:If End←┘ “FW=”?U :U DMS◢（计算出的中桩与交点的方位角） ?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标） “XR=”: Z [1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标） “YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标） 特别注意： 1.进行反向计算（大桩号往小桩号计算）时，起算点桩号应设为0；待求桩号与起算点距离多远桩号就为多少； 3.起算点方位角应与起算点之前的线形所对应的方位角一致。
一般圆曲线计算程序(5800P)
一般圆曲线计算程序(5800P) （五）圆曲线坐标计算程序(xx-03-2519:27:05)转载▼标签：杂谈 五、圆曲线坐标计算程序：1、Deg:Fix 32、Lbl 0:3、“K0=”?K:?X:?Y:?A:?R4、“L=- 1,R=+1”：?G5、“ZS=0，FS≠0”：?S6、S≠0 =＞Goto 17、“Ki”?Z8、90(Z-K)（πR）→B9、2R sin B→D 10、“Xi=”:X+Dcos (A+GB)→P◢ 11、“Yi=”:Y+Dsin (A+GB)→Q◢ 12、A+180G(Z-K)（πR）→O 13、“ZBJ”?E 14、“XiL=”:P+Ecos(O-90)◢ 15、“YiL=”:Q+Esin(O-90)◢ 16、“YBJ”?F 17、“XiR=”:P+Fcos(O+90)◢ 18、“YiR=”:Q+Fsin(O+90)◢ 19、 Goto 0 20、 Lbl1 21、 “XC”?U:“YC”?V22．X+Rcos(A+90G)→M23．Y+Rsin(A+90G)→N 24、Pol(U-M,V-N)→H
25、J＜0 =＞J+360→J 26、“PJ=”:R-H→L◢ 27、“XCCZ=”:M+Rcos(J)→T◢ 28、“YCCZ=”:N+Rsin(J)→W◢29 、Pol(T-X,W-Y)→Z 30、“CZZH=”: K+sin-1(Z2R)πR90◢ 31、 Goto 0说明：1、设置小数保留三位。2、程序03、赋值起点桩号K0，赋值起点坐标X、Y，赋值半径R,赋值起点走向方位角A。4、赋值曲线转向，左转为-1，右转为+1。5、选择正算S=0，或反算S≠0、6、如果S≠0，进入反算程序。7、正算程序：输入所求桩号Ki。8、计算弦切角B。9、计算弦长D。 10、计算中桩坐标Xi并显示。 11、计算中桩坐标Yi并显示。 12、计算i点走向方位角O。 13、输入左边桩距中桩的距离E。 14、计算左边桩坐标XiL并显示。 15、计算左边桩坐标YiL并显示。 16、输入右边桩距中桩的距离F。 17、计算右边桩坐标XiR并显示。 18、计算右边桩坐标YiR并显示。 19、到程序0。 20、反算程序1。 21、输入测量坐标X
基本型曲线测设极坐标计算程序
基本型曲线测设极坐标计算程序 基础理论 平面路线的计算和设计是铁路、公路测量工作中的一项重要的内容。主要包含平面曲线要素和平曲线主点桩号的计算，以及路线中桩逐桩坐标的计算。 随着全站仪、光电测距仪、计算机和Casio可编程系列计算器的广泛应用和飞速发展，测量的方法也随之改进，测量的效率和精度不断提高。但也存在部分测量基层人员对曲线理论了解不够深入，只会照搬程序和使用程序，如果程序出现问题、需要修改或自己编写时，却不知如何进行。 现在就目前现有的测量理论，将极坐标测设曲线基础由浅入深的介绍给广大测量人员，便于了解和读懂计算程序。当我们在现场测量时，只需携带编有曲线计算程序的计算器，输入所测点的点号（里程）或与之相关构造物的各点时，即刻得到测点的测量数据。操作简便灵活、计算快捷、便于掌握。既减轻了计算工作量，又改善了工作条件，提高了工作效率。 基本型曲线的综合理论 目前我国使用的基本型曲线主要分为两种类型：一种是圆曲线；另一种是圆曲线两端加设相等缓和曲线的曲线。 首先介绍圆曲线的综合要素的计算： 一、看图学曲线 Ⅰ
圆曲线的主点和要素的意义： JD……交点，两相邻直线相交的点； ZY……直圆点，按线路前进方向由直线（Ⅰ）进入圆曲线的分界点； QZ……曲中点，圆曲线的中点； ZY……圆直点，按线路前进方向由圆曲线进入直线（Ⅱ）的分界点； T ……切线长，为交点至直圆点或圆直点的长度； L ……曲线长，圆曲线的长度（即ZY至YZ的圆弧长度）； E ……外矢距，为交点至曲中点的长度； a……转向角，直线（Ⅰ）与直线（Ⅱ）的夹角，沿线路前进方向，直线（Ⅱ）向左转则为a左，直线（Ⅱ）向右转则为a右； R ……圆曲线的半径。 二、圆曲线要素的计算 a、R、交点里程、曲线的转向（左、右）是计算和编程时的必要资料，是已知值。其它的主要素值一般设计直接提供，也可以通过以下公式计算求得。 圆曲线要素的计算公式： 切线长 T＝Rtan（a/2） 曲线长 L＝R aπ/180° 外矢距 E＝R（sec（a/2）－1）＝R（1/cos（a/2）－1） 式中计算L时，a以度为单位。 三、圆曲线主点里程的计算 主点里程计算是根据计算出的曲线要素，由一已知里程来推算，一般设计直接提供的是交点的里程，我们先依据交点里程计算出直圆点里程，再沿里程增加方向由ZY→QZ→YZ进行推算。 ZY＝JD － T； QZ＝ZY + L/2； YZ＝QZ + L/2
缓和曲线 圆曲线测设计算例题
已知曲线半径R=6000，缓和曲线长度l 0=280，交点JD27坐标及相邻方位角已在图中给 出，Z H 点里程为D K 2+100。请计 算： 1、曲线要素中的切线长T 、曲线长L 、外矢距E ； 2、HY 、QZ 、YH 、HZ 的里程； 3、ZH 点坐标及其左边桩3米的坐标； 4、DK2+180的坐标及右边桩2米的坐标； 5、DK2+660的坐标及右边桩35米的坐标。 永州α=225-17 -08.0 JD27 (D K 2+100 )(1000.000,1000.000) α=232-35-13.9H Z Q Z HZ H Y YH 附公 式： m 为缓和曲线切垂距，m= l 0/2- l 03/（240R 2 ） p 为缓和曲线内移距，P= l 02/（24R ）- l 04/（2688R 3 ） 缓和曲线方程式： X=h - h 5/（40R 2l 2）+ h 9/（3456 R 4l 4） Y=h 3/（6Rl ）- h 7/（336 R 3l 3）+ h 11/（42240 R 5l 5） 解： 1、转向角α=α2-α1=7°18′05.9″ 切线长T=（R+P ）tg （α/2）+m = 522.863 曲线长L=（R απ）/180+l 0= 1044.626 外矢距E=（R+P ）sec （α/2）-R=12.746 式中m 为缓和曲线切垂距，m= l 0/2- l 03 /（240R 2）=139.9974 p 为缓和曲线内移距，P= l 02/（24R ）- l 04/（2688R 3 ）=0.5444 2、HY 点里程为DK2+100+280=DK2+380； QZ 点里程为DK2+100+1044.626/2=DK2+622.313； HZ 点里程为DK2+100+1044.626=DK3+144.626； YH 点里程为DK3+144.626-280=DK2+864.626
曲线坐标计算程序
曲线坐标计算程序
曲线坐标计算程序 关键词： 曲线坐标计算 EXCEL编程坐标曲线坐标实例 摘要： 利用EXCEL强大的函数功能通过曲线坐标计算的知识编制成曲线计算坐标的计算程序。简单的输入曲线的里程桩号，通过坐标旋转、平移结合可以快速的计算完成与线路成任意角度的曲线上各中桩、边桩以及任意点坐标的计算。 1、概述 一般计算圆曲线可用坐标正算直接进行计算，具体思路和求解步骤，这里不再阐述。若计算带有缓和曲线的圆曲线时，将测量中所学的支距法与坐标旋转、平移结合在一起，利用EXCEL表中强大的函数自动计算功能，准确快速的完成对缓和曲线的坐标计算。比一般的手工计算快10～20倍，比CAD绘图计算快5～10倍。并可以应用来指导工程施工、施工放样、审核图纸等工作。 2、计算过程分段 在计算带有缓和曲线的圆曲线或圆曲线时，只要输入待求点的里程，程序将会自动会计算线路中桩的坐标、与中桩有一定夹角、距离的边桩坐标，与边桩中心线任意夹角的垂直桩基坐标。若要计算其他的距离和夹角的坐标，相应的修改待求点里程、夹角和距离。 2.1、程序初始化：
输入每个曲线所对应交点的半径、缓和曲线长、线路转角、连续三交点的里程和坐标、交点连线的坐标方位角，顺便计算出各个曲线要素以及曲线各主点的里程。 2.2、初直线H Z i-1～ZH i段： (1)X ZHi-1和Y ZHi-1的计算 X ZHi-1= X JDi-1+T i-1×cos(A i-1,i) Y ZHi-1= Y JDi-1+ T i-1×sin(A i-1,i) 其中：T i-1——JD i-1曲线的切线长； A i-1,i——JD i-1与JD i直线的坐标方位角； X JDi-1、Y JDi-1——JD i-1的坐标； X ZHi-1、Y ZHi-1——JD i-1对应的ZH点坐标。 (2)中桩计算公式： X中=L A×cos(A i-1,i)+ X ZHi-1 Y中= L A× sin(A i-1,i)+ Y ZHi-1 其中：L A——待求点与ZH i的里程差； A i-1,i——JD i-1与JD i直线的坐标方位角； X中、Y中——待求点里程的中桩坐标； 其余符号同上。 (3)边桩计算公式： X边=L A’×cosα’+ X中 Y边= L A’×sinα’+ Y中