一般圆曲线计算程序(5800P)
CASIO 5800P研究心得（五）圆曲线坐标计算程序
(2010-03-25 19:27:05)
转载▼
标签：
杂谈
五、圆曲线坐标计算程序：
1.Deg:Fix 3
2.Lbl 0:
3.“K0=”?K:?X:?Y:?A:?R
4.“L=-1,R=+1”：?G
5.“ZS=0，FS≠0”：?S
6.S≠0 =＞Goto 1
7.“Ki”?Z
8.90(Z-K)÷（πR）→B
9.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. Lbl 1
21.“XC”?U:“YC”?V
22．X+Rcos(A+90G)→M
23．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(Z÷2÷R)πR÷90◢
31. Goto 0
说明：
1.设置小数保留三位。
2.程序0
3.赋值起点桩号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.输入测量坐标XC、YC。
22.计算圆心X坐标M。
23.计算圆心Y坐标N。
24.计算圆心与测点距离H。
25.计算圆心到测点的走向方位角。
26.计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。
27.计算垂足坐标XCCZ并显示
28.计算垂足坐标YCCZ并显示。。
29.计算垂足到起点弦长Z。
30.计算垂足桩号CZZH并显示
31.到程序0。
5800计算器程序下载
阅览室馆友我的图书馆 kaixin100 | | 分享
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)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y 反算子程序SUB2 G-90→T (Y-V)cosT-(X-U)sin(T) →W Abs(W)→W:0→Z Lbl6：Prog "SUB1" T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z IF Abs（Z）<1E-6：Then0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z:Else W+Z→W：Goto6:IfEnd 数据库子程序SUB0 Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面 1为任意数字，计算机便于区分) Lbl 1：IF S<线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd IF S<线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd 。。。。。。。。。。。。。。。。。。。。。。。。。。。 一程序功能 本程序由一个主程序(ZBJS)和3个子程——正算子程序(SUB1)、反 算子程序( SUB2) 、数据库子程序（SUB0）构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线 元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲 率半径、止点曲 率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标 进行正反算。另 外也可以将本程序中核心算法部分的两个子程序移植到其它相关的 程序中，用于对曲 线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。 二、使用说明
圆曲线要素及计算公式
圆曲线要素及计算公式
前言 《礼记》有云：大学之道，在明德，在亲民。在提笔撰写我的毕业设计论文的时候，我也在向我的大学生活做最后的告别仪式。我不清楚过去的一切留给现在的我一些什么，也无从知晓未来将赋予我什么，但只要流泪流汗，拼过闯过，人生才会少些遗憾！ 非常幸运能够加入水利工程这个古老而又新兴的行业，即将走向工作岗位的时刻，我仿佛感受到水利行业对我赋予新的历史使命，水利是一项以除害兴利、趋利避害，协调人与水、人与大自然关系的高尚事业。水利工作，既要防止水对人的侵害，更要防止人对水的侵害；既要化解自然灾害对人类生命财产的威胁，又要善待自然、善待江河、善待水，促进人水和谐，实现人与自然和谐相处。这种使命，更让我用课堂中的知识用于实际生产中来。特别是这两个月来的毕业设计，我越发感觉到学会学精测量基础知识对于我贡献水利是多么的重要。所以，我越发不愿放弃不多的大学时光，努力提高自己的实践动手能力，而本学期的毕业设计，为我提供了绝好的机会，我又怎能放弃？
刚刚从老师那里得到毕业设计的题目和任务时，我的心里真的没底。作为毕业设计的主体工作，我们主要运用电子水准仪对某幢建筑物进行变形观测与计算，布设控制点进行平面控制测量和高程控制测量；用全站仪进行了中心多边行角度和距离的测量，并用条件平差原理进行平差，通过控制点的放样来计算土的挖方量，还有圆曲线的计算与测设。而我研究的毕业课题是圆曲线测设。 大学的最后一个学期过得特别快，几乎每天扛着仪器，奔走在校园的每个角落，生活亦很有节奏。今天我提笔写毕业论文，我的毕业设计也接近尾声。不管成果如何，毕竟心里不再是没底了，挑着两个多月的辛苦换来的数据和成果，并不断的完善他们，心里感觉踏实多了。 在本次毕业设计论文的设计中要感谢水利系为我们的工作提供了测量仪器，还有各指导老师的教导和同学的帮助。 摘要：在公路、铁路的路线圆曲线测设中，一般是在测设出曲线各主点后，随之在直圆点或圆直点进行圆曲线详细测设。本文通过仪器安置
5800缓和曲线程序
5800缓和曲线程序清单 Deg:Fix4:9→DimZ “XJD=”?C:”YJD=”?D:”FWJ=”F:”ZXJ=”?K:?R:”LH= =”?W:”ZHLC=”?M “P=”:L2/(24R)-L∧(4)/(2688R∧(3)) →P◢ “Q=”:L/2-L∧(3)/(240R2) →Q◢ “E=”:(R+P)/(cos(Abs(K))/2) →E◢ “T=”:(R+P)tan((Abs(K))/2)+Q→T◢ “S=”:(л/180)*R*(Abs(K))+L→S◢ If F≥180:Then F-180→Z[1]:Else 180+F→Z[1]:IfEnd C+T*cos(Z[1]) →Z[3] D+T*sin(Z[1]) →Z[4] Lbl 1 “CDLC=”?Z “LJK=”?V Z-M→U If K≥0:Then V→Z[2]:Else (-V)→Z[2]:IfEnd If Z[2]≤0:Then Z[5]→Z[2]:Else If U<0:Then Z[5]→Z[2]:Else If U≤L:Then Z[2]+(U/L)*W→Z[5]:Else If U U 5800全线任意坐标计算程序 1. 正算主程序(ZHCX) （不运行） 8→DimZ 1÷P→Z[4 ]：(P-R)÷(2HPR)→D: 180÷π→E “Z=”?Z:”YJJ=”?A:Abs(S-O)→W 0.26→Z[1 ]: 0.74→B: 0.02→K: 0.82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ] U+W(Z[1 ]cos(G+QEKW(Z[4 ]+KWD))+Bcos(G+Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+Bcos(G+QEFW (Z[4 ]+FWD))+ Z[1 ]cos(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→X: V+W(Z[1 ] sin (G+QEKW(Z[4 ]+KWD))+B sin(G+ Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+B sin(G+QEFW (Z[4 ]+FWD))+ Z[1 ] sin(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→Y： G+QEW(Z[4 ]+WD)→F：X+Zcos(F+A)→X：Y+Zsin(F+A)→Y:If F≧360:Then F-360→F:IfEnd ”X=”:X→X◢ ”Y=”:Y→Y◢ If F﹤0:Then F+360→F:IfEnd ”QX FWJ=”:F▼DMS◢ “C=1=>XX: C=2=>XZ”: ”C=”?C: ”QHJU=”?L: If C=1：Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标 Lbi 1 X+L cos(F)→X：Y+Lsin(F)→Y: Goto 3 Lbi 2 X+L cos(F+A-90)→X：Y+Lsin(F+A-90)→Y: Goto 3 Lbi 3 “QH-X=”: X →X◢ “QH-Y=”: Y →Y◢ Prog “FY” 2 . 参数子程序（直接运行） M(主线) 一条线路一个名称 “S=”?S If S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEnd … … If S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEnd Lbi 1 Prog “ZBJS” 3. 放样程序（FY）（不运行） “X0=”?M:“Y0=”？N Pol((X-M, Y-N) 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="?为左右侧所求点距设计线距离； 线元法万能坐标计算程序(适用于CASIO fx-9750GⅡ计算器) 论文https://www.360docs.net/doc/b410386363.html,/：本论文仅供学习交流使用，本站仅作合理转载，原作者可来邮要求删除论 文。 摘要：我国公路建设事业正处于一个高速发展的时期，在公路工程施工过程中，施工技术人员经常要使用全站仪、水准仪进行施工放样、高程测量，在测量过程中，手工计算速度慢，失误率高，工作效率极低。利用CASIO fx-9750GⅡ编程函数计算器强大的内存（可诸存63000个字符）和编程功能，编写各种计算程序，能够在2秒钟内计算出施工放样、桩点坐标等施工过程中的各项数据资料，同时也使我们有更多的时间去挑战更富有创造性的工作。 关键词：坐标放线线元测量程序 1、前言 本程序采用Gauss-Legendre（高斯-勒让德）五节点公式作内核,计算速度（太约2秒）适中，计算精度很高。在此之前，本人曾用过以下公式作内核：①积分公式simpson法②双重循环复化高斯2节点③高斯-勒让德3节点④求和公式复化simpson法⑤双重循环复化simpson法⑥高斯-勒让德4节点，⑦高斯-勒让德5节点，经过测试③计算最快，⑦代码稍长但计算速度只比③⑥稍慢，精度最高，可满足线元长小于1/2πD 的所有线形的精度要求。⑦作内核分别计算圆曲线长1/4πD、1/2πD、3/4πD、πD处的精度,1/4πD时偏差为0.001mm,1/2πD时偏差为0.55m m,3/4πD时偏差为31.63mm，πD时偏差为968mm，偏差按半径倍数增大，如线元长大于1/2πD（1/2圆周长）时，可将其拆分二个或多个线元单位，以确计算保精度。 2、程序特点 事先将所有的平曲线交点的线元要素诸存到计算器内，测量时只输桩号、边距等程序会自动寻找各类要素，一气呵成地完成施工测量任务，中途不需人工转换各类要素数据，本程序可诸存几百条线路的要素数据，计算时可按需选择线路编号进行测量。测量时不需查阅及携带图纸，仅一台CASIO fx-9750GⅡ编程函数计算器即可。 本程序含一个主程序:3XYF，五个子程序:GL（公式内核）、QD（线路选择）、XL（线路要素判断）、GF（坐标反算）、File 1 （要素存放的串列工作簿）。可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标进行正反算。 3、计算公式及原理 如图：BC 间为一曲线元，曲线元上任一点的曲率随至B 点的弧长作线性变化。设起点B 的曲率为KA ，终点C 的曲率为KB ，R 为曲线半径。±表示曲线元的偏向，当曲线元左偏时取负号，当曲线元右偏时取正号,直线段以1的45次方代替（即半径无穷大）。 式中：αΑ＝起始方位角l ＝p 点到B的距离lS=曲线总长αp＝p 点切线方位角 R1=R5=0.118463442528095 ,R2 = R4 = 0.239314335249683 , R3 = 0.28444444444444 V1=1-V5= 0.046910070 ,V 2= 1-V4 = 1 0.2307653449 V3= 0.5 利用上面公式及CASIO fx-9750GⅡ编程函数计算器可编写下列计算程序。 4、程序清单 （1）、3XYF（主程序） "1→XY2→FS"?→V:V=1=>Goto 1:V=2=>Goto 2↙（选择计算功能） Lbl 1:File 1:”XLn”?→S:Prog “QD”↙（选择线路） 曲线拨正计算程序 一、概述 曲线方向整正常用的方法有矢距法、偏角法和绳正法。前两种多应用于新建或改建的铁路上。在既有线上，由于行车的干扰，置镜困难，绳正法得以普遍应用。绳正法基本上是以一种试算性质的、称之为流水拨道的为主。过去，由于条件的限制，现场人员计算一条曲线要费好大的劲，因为数据量较大，一遍一遍的要算好几张纸，搞的头疼。现在，电脑得以广泛应用，为做好线路养护维修奠定了良好基础。根据绳正法整正曲线基本原理、公式，在Windows平台上编写了这个计算程序。希望给我的同行带来方便，节约时间，又快又好的把铁路曲线拨正，拨圆，让火车跑的稳，跑的快，适应提速的需要。同时，也借此机会交流经验，向专家，老师学习。 二、适用范围与主要功能 本程序适用于直线型超高顺坡的缓和曲线，不能计算复心曲线，不适用于曲线型超高顺坡的缓和曲线拨正计算；对无头、无尾、无资料的“三无”曲线可自动初步判别曲线半径及缓和曲线长度，通过试算找到较小的拨道量，曲线计算完毕后将结果输出到Word文档，同时输出缓和曲线两种检查表，一是以2m弦线测量，在缓和曲线上每1m量一处正矢的；二是以10m弦线测量，在缓和曲线上每5m一点的。等同于缓和曲线加设副矢检查点，主要是为了适应提速的需要，把缓和曲线做好。 三、操作过程 1、程序运行后开始出现的是登录画面，如下图：要求输入口令。 初始口令为“000000”，即6个0。以后你可以根据自己的习惯，修改呢称、口令。 2．主画面。上面的图就是主画面一角，共有5个主菜单：分别是：[计算]，[输出]，[设置]，[退出]，[说明]。其中后二项没有子菜单，前三项的子菜单如下三幅图。 [计算]项下一共是5个子菜单，分别是[填入现场正矢]、[确定半径、缓和线长]、[计算半拨量]、[修正、计算拨量]及[退出]。现在看到，填入正矢菜单是灰色的，表示里面已有曲线数据在计算，现场正矢、控制点和备注的内容都填好了，不能改了。只有点击[设置]里面的[计算新曲线开关]，这个菜单才变得可操作，但同时也清空了现有的数据。 3．计算一条曲线的过程： 1fx－5800P计算器编程 缓和曲线程序 14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢ “ZHK=”：K◢ “HYK=”：K+L→Z[1]◢ “YHK=”：K+ Z[13] －L→Z[2]◢ “HZK=”：K+ Z[13]→Z[3]◢ “ZHX=”：Q+Tcos(F+180)→U◢ “ZHY=”：W+Tsin(F+180)→V◢ “HZX=”：Q+ Tcos(F+PA)→Z[6]◢ “HZY=”：W+ Tsin (F+PA)→Z[7]◢ Lb1 0：“CDZH”：?M If M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If End Lb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3 Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→D F＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→H Lb1 3 “X=”:U＋Dcos(C)→X◢ “Y=”:V＋Dsin(C)→Y◢ Lb1 B：“ZBJS1，FY－1”：?J If J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If End Lb1 4：“ZB”：?S “ZBX”:X＋Scos（H－90）◢ “ZBY”:Y＋Ssin（H－90）◢ “YB”：?N “YBX”:X＋Ncos（H＋90）◢ 圆曲线超高加宽计算程序 平曲线加宽类别分为：四级公路不设缓和曲线而用超高加宽缓和段代替及平曲线半径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←┚ F 缓和曲线和圆曲线坐标正反算程序主程序“TYQXJS” Lb1 0↙→（EXE） {NUVOGHPRQ}:“1.SZ=>XY”: “2.xy=>SZ”: N:U“QDX”:V“QDY”:O“QDLC”:G“FWJ”: H“LS”:P“RO”:R“RN”:Q“ZP=-1,YP=+1,ZZ=0” :C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=>Goto 1:≠=>Goto 2◣↙Lb1 1:{SZ}:SZ:W= Abs(S-O): Prog“1”: X“XS”=X◢ Y“YS”=Y◢ F“FS”=F-90◢ Goto 3↙ Lb1 2:{XY}:XY:I=X:J=Y: Prog“2”:S“S”=O+W◢ Z“Z”=Z◢ Goto 3↙ Lb1 3↙ {DE}:E“QX-JJ,Z-1,Y+1”:D“BZ-JL”↙ F=F+E↙ X=X+D Cos F◢ Y=Y+D Sin F◢ {DE}:D“BZ-JJ”:E“JJ,Z-1,Y+1”↙ F=F+E↙ X=X+D Cos F◢ Y=Y+D Sin F◢ Goto 0 子程序1：“1” A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1 -L:M=1-K:X=U+W(ACos(G+QEKW(C+KWD))+BCos(G+QELW(C+LWD))+BCos(G+Q EFW(C+FWD))+ACos(G+QEMW(C+MWD))):Y=V+W(ASin(G+QEKW(C+KWD))+BSin (G+QELW(C+LWD))+BSin(G+QEFW(C+FWD))+ASin(G+QEMW(C+MWD))):F=G+QE W(C+WD)+90:X=X+Z Cos F:Y=Y+Z Sin F 子程序2: “2” T=G-90:W=Abs((Y-V)Cos T-(X-U)Sin T):Z=0: Lb1 0:Prog“1”:L=T+QEW(C+WD):Z=(J-Y)Cos L-(I-X)Sin L:Abs Z<1E-6=>Goto 1: ≠=>W=W+Z:Goto 0◣↙(E为：4800P键盘的EXE键) Lb1 1:Z=0Prog“1”:Z=(J-Y)÷Sin F◣ 注：第一缓和曲线起点半径输入无穷大（10 45），终点输入圆曲线半径；第二缓和曲线起点半径输入圆曲线半径，终点半径输入无穷大（10 45）；圆曲线输入给出的起点和终点半径；直线段则都输入无穷大（10 45）。 其中起点切线方位角用此程序计算。 ◣(代替空心) 坐标正算 程序“ZBZS” Lb1 0↙ X“HSX”:Y“HSY”:U“CZX”:V“CZY”↙ X-U≥0=>Goto 1: ≠=>Goto 2◣↙ 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坐标） 已知：①缓和曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：xZ，yZ 计算过程： 说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当计算第二缓和曲线上的点坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与计算第一缓和曲线时相反 xZ，yZ为点HZ的坐标 切线角计算公式： 已知：①圆曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：xZ，yZ 计算过程： 说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当只知道HZ点的坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与知道ZH点坐标时相反 xZ，yZ为点HZ的坐标 三、曲线要素计算公式 公式中各符号说明： l——任意点到起点的曲线长度（或缓曲上任意点到缓曲起点的长度）l1——第一缓和曲线长度 l2——第二缓和曲线长度 l0——对应的缓和曲线长度 R——圆曲线半径 R1——曲线起点处的半径 R2——曲线终点处的半径 P1——曲线起点处的曲率 P2——曲线终点处的曲率 α——曲线转角值 四、竖曲线上高程计算 已知：①第一坡度：i1(上坡为“＋”，下坡为“－”) ②第二坡度：i2(上坡为“＋”，下坡为“－”) ③变坡点桩号：SZ ④变坡点高程：HZ ⑤竖曲线的切线长度：T ⑥待求点桩号：S 计算过程： 五、超高缓和过渡段的横坡计算 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： CASIO fx-4800P、fx-5800P型计算器用于线路施工 曲线中线点坐标的计算程序 中铁十局三建公司工程技术部 摘要：本文介绍了CASIO fx-4800P 、fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量，对于测量工作者有较大的参考和指导作用。关键词：曲线线路施工测量计算程序 1．概述 过去，线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。对于曲线线路一般的测量方法是：经纬仪置于某一中线点上，采用偏角法拨角再用钢尺量距来定出中线点。随着电子技术进步和经济发展，测量仪器和测量方法的不断改进，目前，全站仪已广泛地应用于工程施工测量中，极大的提高了测量工作效率。但是，在进行铁路、公路工程的曲线线路施工测设时，需要在线路所在区域建立统一坐标系或独立坐标系，利用坐标变换的方法，将整个曲线的三个部分（第一缓和曲线、中间圆曲线、第二缓和曲线）统一到同一坐标系中。根据坐标系的建立，计算出整个曲线内任意点的坐标，再采用全站仪利用极坐标方法进行施工放样。前提是首先利用计算器计算出各中线点坐标，然后才能进行放样。而普通型计算器不仅计算速度慢，且要求计算者必须正确地记忆很多计算公式，计算繁琐而且容易出错，满足不了现场测设工作的要求。为了能够快速准确地为全站仪提供测设 数据，发挥全站仪快速测设的特点，提高测量工作效率，应采用可编程的计算器，编制计算程序。本文主要介绍应用CASIO fx-4800P型计算器的计算程序，供公司测量同行们参照使用。 2．计算程序 QXZBJS（文件名：曲线坐标计算fx-4800P） Defm2:R：L：A：N“ZH：X=”：E“ZH：Y=”：F：“FWJ=”：K“ZH：LC=”： P=L2/(24R)-L4/(2688R3):M=L/2-L3/(240R2):T“T”=（R+P）tng(A/2)+M ◢G=RAπ/180：“S”S=G+L◢ LbiA：｛C，V｝：C“CSDLC=”：V“HXPJ=”：D=C-K：D≤L＝＞I=D-D5/（40R2L2）：U=D3/(6RL)-D7/（336R3L3):J=√（I2+U2）：Goto1：≠＞D≤G＝＞O=90（2D-L）/( Rπ)：I=RsinO+M：U=R（1-cosO）+P：J=√（I2+U2）：Goto2：≠＞D=S-（C-K）： = D-D5/（40R2L2）：Z[2]=D3/6RL-D7/（336R3L3）：I=T+（T-Z[1]）cosA-Z[2]sinA：U=（T-Z[1]）sinA+Z[2]cosA：J=√（I2+U2）：Goto3：Lbi1:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-30D2/ （RLπ）：H=F-90D2/ （RLπ）：≠＞Q=F+30D2/ （RLπ）：H=F+90D2/（ RLπ）⊿ Goto4：Lbi2:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I)：H=F-O：≠＞Q= F+tng-1(U/I)：H=F+O⊿Goto4：Lbi3:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I):H=F-(A-90(S-(C-K))2/ （RLπ）): ≠＞Q= F+tng-1(U/I):H=F+(A-90(S-(C-K))2/ （RLπ）):⊿ Goto4： Lbi4:B=90+H:H＜0＝＞H“QXFWJ”=B+360◢≠＞H≥360＝＞H“QXFWJ”=H-360 ◢≠＞H“QXFWJ”=H◢⊿Goto5： Lbi5: X“CSD:X”=JcosQ+N+VcosB◢ Y“CSD:Y”=JsinQ+E+VsinB◢ 第一缓和曲线加圆曲线上任意点坐标计算程序：L1：U=U"Ｘ0"：V=V"Y0"：F"FANG"=F：E=E"LEFT-1"：LbI 0 L2：｛B｝：｛D｝：｛P｝ L3：L=AbS（B-A"ZHD"） L 4： L5：X=L-LX Y5/（40R2S2） L6：Y= LX Y3/（6RS）- LX Y7/（336RX Y3SX Y3）：G=90L2/（∏RS） L GOtO 2 7： L8：LbI 1 L9：L=L-S L10：O=90S/（∏R）+90L/（∏R） L11：M=2（Rsin（90L/∏/R）） L12：X=S-SX Y3/（40R2）+Mcos O L13：Y=S2/（6R）+MsinO:G=90S/（∏R）+180L/（∏R） L GOtO 2 14： L15：LbI 2 L16：W=tan-1（Y/X）:Q=√（X2+Y2） L 17： L E=1=>G=-G 18： L19：X[1]=U+Qcos（F+W）+Dcos（F+G+P）◢ L20：Y[1]=V+Qsin（W+F）+Dsin（F+G+P）◢ L21：GOtO 0 注、○1、XO—为起点X坐标 EXE ○2、YO—为起点Y坐标 EXE ○3、F？—方位角 EXE ○4、LEFT-1？—左偏取1右偏取0 EXE ○5、B？—所求坐标点里程（起点输0时为到起点长度）EXE ○6、ZHD？—为直缓点里程或直圆点里程（起点可以输0）EXE ○7、S？—缓和曲线长、圆曲线时输为0 EXE ○8、R？—半径EXE ○9、D？—中桩到边桩长度EXE ○10、P？—左右方向与中线切线交角、法线方向时左-90右+90 EXE ○11、上述每一步输完后必须确认、结果显示字后转到B进行循环操作。 CASIO 5800计算器测量计算程序 来自: ritsing(祥瑞之士) 2009-08-17 14:51:21 简要介绍： 1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据按桩号进行排序，在程序中通过调用GG 程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。 3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。 4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X 坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。 4. 程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。 一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。 ①Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog “AU” ②Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S ③Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2‘原来lbl 后没有标号４的。 ④O=-1 =>Goto 6 ⑤“X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog “D”:Goto 4 ⑥Lbl 6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4 ⑦ X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin(J)→I▲L+I▲Goto 6二、P程序：在程序中提供一个自由运算的模式。 ①Lbl 1:”TMP”?I:If I≠0:Then“RST”:I▲Goto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。 ①Prog “AU” ②Lbl 1:Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”?X :X→Z[7]:”YF”?Y:Y→Z[8]: ”ZF”?S: S→Z[6] ③Lbl 2:Prog “Z”:Y=U =>Y+1p→Y ④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I ⑤If Abs(I)≤0.1:Then Prog “E”:”L,YC”:L+I→L▲O▲Goto 3:IfEnd ⑥If Z[9]≠0:Then Pol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd ⑦”DL”:I▲L+I→L:Goto 2 ⑧Lbl 3: Z[6]→S:If S=0:Then Goto 1:IfEnd ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then5800简单全线坐标计算程序
FX-4850计算器曲线计算程序2011.721
线元法万能坐标计算程序
曲线拨正计算程序说明
卡西欧fx-5800计算器缓和曲线编程
圆曲线超高加宽计算程序
Break←┚
fx-4800P缓和曲线和圆曲线坐标正反算程序(正确版)
CASIO_fx5800P实用圆曲线中边桩放样程序
坐标计算方法
5800计算器公路坐标计算程序(全线)直缓和圆曲线程序
CASIO fx-5800p测量程序
缓和曲线上任意点坐标计算程序
【2019年整理】CASIO5800计算器测量计算程序