fx-5800不对称缓和曲线计算程序
CASIOfx-5800P不对称基本曲线交点法正反算程序
CASIOfx-5800
摘要：在铁路、公路、隧道、市政等工程设计和施工中，常常涉及到曲线线路坐标的计算，竖曲线高程计算，在现场测量一般方法是借助于CASIO fx-4500p、CASIO fx-4800p、CASIO fx-5800p计算器或更先进一些的SHARP PC-E500计算机等工具进行计算。本文作者通过不断摸索和实践，利用CASIO fx-5800p采用交点法编程,不对称基本曲线正反算、及高程全线贯通、缓和曲线加宽、缓和曲线超高、线路法向方位角、曲线左右边桩坐标的计算，而且具非常简洁直观、易于掌握使用、计算过程快速、计算结果准确无误等特点。目前我国计算器已得到普及，计算器已广泛应用于工程设计、施工的各个环节甚至于外业工作，所以本程序具有较大的推广意义。
1、概述：随着科学技术的不断进步，人们的思维方式和工作方法发生着巨大的变化。笔者在从事多年的铁路、桥梁、隧道、高速公路、市政桥梁等类型工程施工技术工作中，总是尝试将先进的科学工具运用于工程施工技术及工程计算中以提高工作效率和质量。笔者先后采用过CASIO fx-4500p、CASIO fx-4800p、CASIO fx-4850p、CASIO fx-5800p、编写程序用于曲线坐标计算，应该说逐渐走向完善和先进,一个复杂程序编写工作量相当大，还需要经过较长时间的测试和调试方能使用，在施工测量过程中为提高工作效益,避免在测量施工过程中发生错误，根据工程项目设计名称将该工程桥墩里程、路基断面里程、涵洞里程、以及工程项目所有的工程创建多个数据库，测量施工采用数据库文件进行测量施工，减少在测量施工发生的错误。怎样才能从繁琐、枯燥的数学计算中解脱出来？笔者想到了借助于、CASIO fx-5800p进行此项工作，相比较而言，较为简单实用。采用、CASIO fx-5800p计算方法很好地解决了以上问题，及操作简单的特点，不需要进行繁杂的程序编写工作，仅仅利用计算器引用及本身强大的计算器功能和简单数学公式就完全满足各种使用要求。利用其简单的编程操作，可方便地进行原始数据的计算结果及测量施工使用，即使对计算器及应用了解不多的人员也能很快理解和使用。
文件名QDSJK
Lb1 0
S:?S
If S=1:Then66690.14→S:2.2→Z:90→E:IfEnd
If S=2:Then66730.74→S:2.2→Z:90→E:IfEnd
If S=3:Then66786.74→S:2.2→Z:90→E:IfEnd
If S=4:Then66827.34→S:2.2→Z:90→E:IfEnd
If S=5:Then66860.15→S:2.2→Z:90→E:IfEnd
If S=6:Then66892.87→S:2.2→Z:90→E:IfEnd
Prog‖XLZB-ZS‖
2、根据线路设计创建曲线要素数据库，可以进全线贯通，在线路设计时有可能
存在长短链,入有长短链时,请注意在输入P时要输入断链里程
文件名:曲线参数QXCS
If S>63700:Then2800→R:17°39′30″→W:200→C:200→V:249°11′43.6″
→G:495095.43→A:456338.51→B:65860.2307→T:-1→F:IfEnd?
If P>66600:Then2200→R:11°58′49″→W:260→C:260→V:231°32′14.0″
→G:495879.32→A:457325.31→B:67113.4157→T:-1→F:IfEnd?
If S>67500:Then2200→R:27°27′03″→W:250→C:250→V:219°33′25.0″
→G:494120.62→A:455533.31→B:67375.8519→T:-1→F:IfEnd?
If S>69200:Then2200→R:15°50′37″→W:250→C:250→V:192°06′21,8″
→G:492650.54→A:455217.99→B:69858.1700→T:-1→F:IfEnd
参数说明:
R曲线半径、
W曲线转角、
C第一段缓和线长、
V第二段缓和曲长、
G曲线起点至交点的方位角、
A交点X坐标、
B交点Y坐标、
T交点里程、
F判定曲线转向左转-1、右转1。
主程序文件名:圆曲线坐标-正算-反算
YQXZB-ZS-FS
″1=ZS,2=FS,3=CG″?N输入1进行坐标正算,输入2进行里程反算
If N=1:Then Prog″XLZB-ZS″:IfEnd
If N=2:Then Prog″XLLC-FS″:IfEnd
If N=3:Then R:?R:W:?W: C:?C: V:?V: G:?G: A:?A: B:?B: T:?T: F:?F: Prog″XLZB-ZS″:IfEnd
正算文件名:线路坐标-正算XLZB-ZS
Lbl 0
Fix4:28→DimZ
S:?S:Prog″QXCS″
C2÷(24R)→Z[1] 第一段缓和曲线内移距P1 V2÷(24R)→Z[2] 第二段缓和曲线内移距P2 C÷2-C3÷(240R2)→Z[3] 第一段缓和曲线垂切距m1 V÷2-V3÷(240R2)→Z[4] 第一段缓和曲线垂切距m2 90C÷(Rπ)→Z[5] 第一段缓和曲线角β1
90V÷(Rπ)→Z[6] 第二段缓和曲线角β2 (R+Z[2]-(R+Z[1])cos(W))÷sin(W)+Z[3]→Z[7] 第一段切线长T1
(R+Z[1]-(R+Z[2])cos(W))÷sin(W)+Z[4]→Z[8] 第二段切线长T2
C+V+(π(W-Z[5]-Z[6])R)÷180→Z[9] 曲线总长L
T-Z[7]→Z[10] 直缓点里程ZH
O+C→Z[11] 缓圆点里程HY
O+Z[9]-V→Z[12] 圆缓点里程YH
O+Z[9]→Z[13] 缓直点里程HZ
A-Rec(Z[7],G→Z[14] 直缓点X坐标
B-J→Z[15] 直缓点Y坐标
A+Rec(Z[8],(G+WF→Z[16] 缓直点X坐标
B+J→Z[17] 缓直点Y坐标
If S≤Z[10]:Then Goto1:Else If S≤Z[11]:Then Goto2:Else If S≤Z[12]:T hen Goto3:Else If S≤Z[13]:Then Goto4: Else If S≥Z[13]:Then Goto5:If End:IfEnd:IfEnd:IfEnd:IfEnd
Lbl 1
(Z[10]-S)→Z[18] 计算小里程到直缓点的距离
Z[14]-Rec(Z[18],G→X 计算小里程中桩X
Z[15]-J→Y 计算小里程中桩Y
G→M:Goto6 小里程至大里程法线方位角
Lb1 2
(S-Z[10])→Z[18] 第一缓和曲线任意点距离
90Z[18]2)÷(RπC)→Z[19] 第一缓和曲线任意点对圆心夹角
Z[18]-Z[18]5÷(40R2C2) →Z[20] 第一缓和曲线任意点坐标增量X
Z[18]3÷(6RC)-Z[18]7÷(336R3C3)→Z[21]第一缓和曲线任意点坐标增量Y
Pol(Z[20],Z[21] 转换距离和角度
Z[14]+Rec(I,(G+JF→X 第一缓和曲线任意点大地坐标X
Z[15]+J→Y 第一缓和曲线任意点大地坐标Y
G+Z[19]F→M:Goto6 第一缓和曲线任意点切线方位角
Lbl 3
(S-Z[11])→Z[18] 计算圆曲线任意点距离
180Z[18]÷(πR)+Z[5]→Z[19] 圆曲线上任意点夹角
Z[3]+RsinZ[19]→Z[20] 圆曲线上任意点坐标增量X
Z[1]+R(1-cosZ[10])→Z[21] 圆曲线上任意点坐标增量Y
Pol(Z[20],Z[21] 转换距离和角度
Z[16]+ Rec(I,(G+JF)→X 圆曲线上任意点大地坐标X
Z[17]+J→Y 圆曲线上任意点大地坐标Y
G+Z[19]F→M:Goto6 圆曲线上任意点切线方位角
Lbl 4
(Z[13]-S)→Z[18] 第二缓和曲线任意点距离
90Z[18]2÷(RπV)→Z[19] 第二缓和曲线任意点夹角
Z[18]-Z[18]5÷(40R2V2)→Z[20] 第二缓和曲线任意点坐标增量X
Z[18]3÷(6RV)-Z[18]7÷(336R3V3)→Z[21]第二缓和曲线任意点坐标增量Y
Pol(Z[20]+1f,Z[21] 转换距离和角度
Z[16]+Rec(I,(G+WF+180-JF)→X 第二缓和曲线任意点大地坐标X
Z[17]+J→Y 第二缓和曲线任意点大地坐标Y
G+WF-Z[19]F→M:Goto6 第二缓和曲线任意点切线方位角
Lbl 5
(S-Z[13])→Z[18] 缓直点至大里程任意点距离
Z[16]+ Rec(Z[18],(G+WF →X 缓直点至大里程任意点大地坐标X
Z[17]+J→Y 缓直点至大里程任意点大地坐标Y
G+WF→M:Goto6 缓直点至大里程的法线方位角
Lbl 6
Z:?Z:E:?E
If M＜0:Then M+360→M:Else If M＞360:Then M-360→M: IfEnd:IfEnd
X+Rec(Z,(M+E→X Z输入边距、右边输入90、左边-90
Y+J→Y
″M=″:M◢计算任意点法线方位角
″X=″:X◢计算任意点边桩大地坐标X
″Y=″:Y◢计算任意点边桩大地坐标X
反算文件名:线路里程-反算XLLC-FS
Lb1 0
″X=″:?X:″Y=″:?Y:X→Z[22]:Y→Z[23]:G-90→Z[24]:If Z[24]＜0:Then Z [24]+360:Else Z[24]→Z[24]:IfEnd
Abs((Z[15]-Y)cos(Z[24])-(Z[14]-X)sin(Z[24])→Z[25]:Z[10]→Z[10]:IfS≤O:Then Z[10]-Z[25]→S:Else Z[10]+Z[25]→S:IfEnd
Lb1 1
0→Z:0→E:Prog″XLZB-ZS″:M-90→Z[26]:If Z[26]＜0:Then Z[26]+360:Else Z[26]→Z[26]:IfEnd
(Z[23]-Y)cos(Z[26])-(Z[22]-X)sin(Z[26])→Z[27]:If Abs(Z[27])＜0.00001: Then Goto2:Else Z[27]+S→S:Goto1:IfEnd
Lb1 2
0→S:0→E:Prog″XLZB-ZS″:M+90→Z[28]:IfZ[28]＞360:ThenZ[28]-360→Z[2 8]:ElseZ[28]→Z[28]:IfEnd
(Z[23]-Y)÷sin(Z[28])→Z:Z[27]+S→S:″S=″:S◢″Z=″:Z◢
说明:
C、时测X坐标
D、时测Y坐标
Z[15]直缓点X坐标.Z[16]直缓点Y坐标.
W起点至交点的切线方位角. P反算里程,S反算边距
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计算器上运行。 二、使用说明
公路竖曲线高程计算程序
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 ▲↙
最新5800公路测量程序使用说明汇总
5800公路测量程序使 用说明
5800公路测量程序使用说明 一、程序使用流程 本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A 匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。运行时只要运行文件名A 的程序就可以了，具体运行流程见下图： 二、数据文件的编写 （一）交点法数据文件编辑
交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。 交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。 下图是一段市政道路设计参数数据。 根据上图提供的数据，可以编辑成如下的数据文件： 文件名:CHLNR
3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Else “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C：4474. 384→D：2415.861→E：140→F：31°17°23°→G：410.007→H:600→R:IfEnd: If L>1060 Then 1 29°56°58.19°→C:4206.421→D：3093.946→E：70→F：-33°50°48°→G：1285.437→H:600→R:If End:Prog”XLJS”:If Z[3]≠0.0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N:L＋N →L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“: L◢ “K=”:K◢ IfEnd:Goto 0: IfEnd 在面程式中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEnd If L>1060：Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd …… 如果还有其他弯道，可以继续完后加。在这些存放设计参数的语句前后的程序表达式是固定的。 说明： 编辑曲线参数时，每个曲线参数放在一个If L>***.***（两个弯道中间直线段上的任意桩 号） :Then ***°**°**.**°→C（弯道起点方位角）：****.***→D（交点X坐标）：****.****→E（交点Y坐标）：***.***→F（缓和曲线长度：**°**°**°→G（转角，向左转为负值，向右转为正值）：***.***→H（交点里程桩号）:***→R（圆曲线半径）:IfEnd 条件式语句里，如果有多个弯道，一直按上述形式编下去， 变量说明： 1、 L>***.***
非对称缓和曲线坐标计算程序
非对称缓和曲线坐标计算程序 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/d715740048.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缓和曲线程序
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 程序 (完整版) 说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN ＂ZH（θ） F（１）＂M↓ (0为正算、1为反算) If M=θ:Then ＂ZHUANG HAO＂A：＂KUAN DU＂W:Else＂Ｘ＝＂H：＂Ｙ＝＂W:＂Ｚ＝＂Ｑ：IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If A ………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1：＂NO TASK＂↓ Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢＂SJ KUAN DU＂:B◢ IfEnd:IfEnd↓ ＂-------END-------＂ KUAN DU （拓展功能程序，用于反算） 1→Ｍ:Prog＂MAIN＂↓ Z→A:W→E:θ→W↓ Prog＂GAO CHENG＂↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ ＂……＂:D◢ (同上) ◢ ＂----------END---------＂ YUAN 竖曲线程序要素 已知要素 ? 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 一、QXFY 辛甫森公式放样程序 1. “X0”? U：“Y0”?V 2. “XA”? A：“Y A”? B：“CA”? C：“1÷RA”?D：“1÷RB”?E： “KA”?F：“KB”? G 3. Lb1 1：“KI”?H：“JJ”?L：“Y+Z－”?R 4. If H>G Or H 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）◢ 转载自测量空间！ 本帖最后由 wenyajun 于 2010-9-30 16:30 编辑 关于不同类型缓和曲线的起点、终点曲率半径判断方法 目前在匝道或线路施工坐标计算中经常遇到缓和曲线，实际中相信有很多测友选择用积木法或叫线元法正反算程序进行线路坐标计算，这就牵涉到线元的起点终点曲率半径判断的问题，一般的直线元，圆曲线元的起点终点半径判断，比较容易，可能令大家感觉麻烦的就是缓和曲线起点终点半径判断问题，缓和曲线有时候判断算对了，有时候却坐标算不对，究其原因，其实问题出于该缓和曲线是否是完整缓和曲线引起的。关于这点，相关的课本教材上没有明确的讲述，网上对此问题的解释也是散见于不同的论文著作中，对于测量新手来说，线元法程序是非常适用上手的，但却往往因为遇到不完整缓和曲线的起点或终点的半径判断计算不出来导致坐标计算错误，的确是件令人恼火的事情，在此我就把自己的判断经验做一论述，给用线元法程序的测友们一同分享，当然高手们请一笑而过，也可留下你的经验与大家一起分享交流学习。 第一：先说说完整缓和曲线和不完整缓和曲线以及不对称缓和曲线与对称缓和曲线的 概念问题，以免混为一谈. 1.当对于单独一段缓和曲线从其完整与否来讲是分为完整与不完整两类；当对于一个单交点内的两段缓和曲线（即常说的第一缓和曲线和第二缓和曲线而言）又有对称缓和曲线与不对称缓和曲线之分。由此看来，完整与对称与否是针对缓和曲线两个方面来看待区 分的。 2.缓和曲线我们的测量教材上讲述的其实就是完整缓和曲线，也可以知道缓和曲线上：各个点的半径是不同的，起点到终点的半径值过度是从正无穷大到所接圆曲线半径之过度如从ZH向HY方向；或者是从所接圆曲线半径值向正无穷大过度的，如从YH向HZ方向。那么由此可以不难判断出来，完整缓和曲线就是符合上述特征的，那么不完整的缓和曲线就是不符合上述特征的，但是线路上的平曲线设计时候一般缓和曲线不单独存在的，整体上缓和曲线前或后一般都是要连接一个圆曲线的，那么不完整缓和曲线其实就是在完整缓和曲线上截取的一段，一般就是去掉了半径无穷大的那端而是从某个点开始的半径值向所接圆曲线半径值过度的。 3.对称与不对称缓和曲线是相对于一个单交点内的两段缓和曲线（即常说的第一缓和曲线和第二缓和曲线而言），当两个缓和曲线长度相等时候则称之为对称缓和曲线，自然此时的切线长、缓和曲线参数A值都是相等的，反之不相等就称为不对称缓和曲线，自然切线长、缓和曲线是不相等的。 第二：由此可以看出对于缓和曲线而言，对称与否很容易分辨判断无需赘述，完整与否不 易区分，也是这里重点要说的问题. 1.完整与不完整缓和曲线的区别判断方法：综上所述，完整缓和曲线与不完整缓和曲线的判断其实就在于验证完整缓和曲线参数方程A^2=R*Ls这个等式成立与否就可。(A为已 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) 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：第 关于不同类型缓和曲线的起点、终点曲率半径判断方法 目前在匝道或线路施工坐标计算中经常遇到缓和曲线，实际中相信有很多测友选择用积木法或叫线元法正反算程序进行线路坐标计算，这就牵涉到线元的起点终点曲率半径判断的问题，一般的直线元，圆曲线元的起点终点半径判断，比较容易，可能令大家感觉麻烦的就是缓和曲线起点终点半径判断问题，缓和曲线有时候判断算对了，有时候却坐标算不对，究其原因，其实问题出于该缓和曲线是否是完整缓和曲线引起的。关于这点，相关的课本教材上没有明确的讲述，网上对此问题的解释也是散见于不同的论文著作中，对于测量新手来说，线元法程序是非常适用上手的，但却往往因为遇到不完整缓和曲线的起点或终点的半径判断计算不出来导致坐标计算错误，的确是件令人恼火的事情，在此我就把自己的判断经验做一论述，给用线元法程序的测友们一同分享，当然高手们请一笑而过，也可留下你的经验与大家一起分享交流学习。 第一：先说说完整缓和曲线和不完整缓和曲线以及不对称缓和曲线与对称缓和曲线的概念问题，以免混为一谈. 1.当对于单独一段缓和曲线从其完整与否来讲是分为完整与不完整两类；当对于一个单交点内的两段缓和曲线（即常说的第一缓和曲线和第二缓和曲线而言）又有对称缓和曲线与不对称缓和曲线之分。由此看来，完整与对称与否是针对缓和曲线两个方面来看待区分的。 2.缓和曲线我们的测量教材上讲述的其实就是完整缓和曲线，也可以知道缓和曲线上：各个点的半径是不同的，起点到终点的半径值过度是从正无穷大到所接圆曲线半径之过度如从ZH向HY方向；或者是从所接圆曲线半径值向正无穷大过度的，如从YH向HZ方向。那么由此可以不难判断出来，完整缓和曲线就是符合上述特征的，那么不完整的缓和曲线就是不符合上述特征的，但是线路上的平曲线设计时候一般缓和曲线不单独存在的，整体上缓和曲线前或后一般都是要连接一个圆曲线的，那么不完整缓和曲线其实就是在完整缓和曲线上截取的一段，一般就是去掉了半径无穷大的那端而是从某个点开始的半径值向所接圆曲线半径值过度的。 3.对称与不对称缓和曲线是相对于一个单交点内的两段缓和曲线（即常说的第一缓和曲线和第二缓和曲线而言），当两个缓和曲线长度相等时候则称之为对称缓和曲线，自然此时的切线长、缓和曲线参数A值都是相等的，反之不相等就称为不对称缓和曲线，自然切线长、缓和曲线是不相等的。 第二：由此可以看出对于缓和曲线而言，对称与否很容易分辨判断无需赘述，完整与否不易区分，也是这里重点要说的问题. 1.完整与不完整缓和曲线的区别判断方法：综上所述，完整缓和曲线与不完整缓和曲线的判断其实就在于验证完整缓和曲线参数方程A^2=R*Ls这个等式成立与否就可。(A为已知的缓和曲线参数，R为缓和曲线所接圆曲线的半径，Ls为该段缓和曲线的长度）理论上，当该式子成立时候，那就是完整缓和曲线无疑，当不成立时候那就可判断为不完整缓和曲线了。实际工作操作时候验证方法如下：先把R*Ls的乘积进行开平方然后看所得到的结果是否与所提供的缓和曲线参数A值相等。 2.完整缓和曲线与不完整缓和曲线起点终点的曲率半径的判断与计算：线路设计上的缓和曲线一般不会单独存在的，连续的缓和曲线起点或终点必定有一端都是要接圆曲线的,那么缓和曲线一端的半径值必定就是圆曲线的半径值了,求半径的问题就变成只需求出另外一端半径就可以了.上面说过首先判断出该缓和曲线是否是完整的办法,那么当是完整缓和曲线时候,起点或终点两端的半径,必定一端是无穷大,一端就是圆曲线半径了;那么当判断是不完整缓和曲线时,一端半径就是圆曲线半径,另一端的半径就绝对不能是无穷大了的,理论上应该是该端点的半径值要小于无穷大而大于所接圆曲线的半径值,那么该怎么求出来呢?此时就牵涉到了不完整缓和曲线的参数方程: A^2=[(R大-R小)÷(R大*R小)]*Ls 竖曲线自动计算表格 篇一：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）、在工作表“程序计算”中对应“参数库”相应的格式建立表格 目前在匝道或线路施工坐标计算中经常遇到缓和曲线，实际中相信有很多测友选择用积木法或叫线元法正反算程序进行线路坐标计算，这就牵涉到线元的起点终点曲率半径判断的问题，一般的直线元，圆曲线元的起点终点半径判断，比较容易，可能令大家感觉麻烦的就是缓和曲线起点终点半径判断问题，缓和曲线有时候判断算对了，有时候却坐标算不对，究其原因，其实问题出于该缓和曲线是否是完整缓和曲线引起的。关于这点，相关的课本教材上没有明确的讲述，网上对此问题的解释也是散见于不同的论文著作中，对于测量新手来说，线元法程序是非常适用上手的，但却往往因为遇到不完整缓和曲线的起点或终点的半径判断计算不出来导致坐标计算错误，的确是件令人恼火的事情，在此我就把自己的判断经验做一论述，给用线元法程序的测友们一同分享，当然高手们请一笑而过，也可留下你的经验与大家一起分享交流学习。 第一：先说说完整缓和曲线和不完整缓和曲线以及不对称缓和曲线与对称缓和曲线的概念问题，以免混为一谈. 1.当对于单独一段缓和曲线从其完整与否来讲是分为完整与不完整两类；当对于一个单交点内的两段缓和曲线（即常说的第一缓和曲线和第二缓和曲线而言）又有对称缓和曲线与不对称缓和曲线之分。由此看来，完整与对称与否是针对缓和曲线两个方面来看待区分的。 2.缓和曲线我们的测量教材上讲述的其实就是完整缓和曲线，也可以知道缓和曲线上：各个点的半径是不同的，起点到终点的半径值过度是从正无穷大到所接圆曲线半径之过度如从ZH向HY方向；或者是从所接圆曲线半径值向正无穷大过度的，如从YH向HZ方向。那么由此可以不难判断出来，完整缓和曲线就是符合上述特征的，那么不完整的缓和曲线就是不符合上述特征的，但是线路上的平曲线设计时候一般缓和曲线不单独存在的，整体上缓和曲线前或后一般都是要连接一个圆曲线的，那么不完整缓和曲线其实就是在完整缓和曲线上截取的一段，一般就是去掉了半径无穷大的那端而是从某个点开始的半径值向所接圆曲线半径值过度的。 3.对称与不对称缓和曲线是相对于一个单交点内的两段缓和曲线（即常说的第一 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◢ 卡西欧 5800 程序 (完整版) 说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功 能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN ＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算) If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If A Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1：＂NO TASK＂↓ Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢＂SJ KUAN DU＂:B◢ IfEnd:IfEnd↓ ＂-------END-------＂ KUAN DU （拓展功能程序，用于反算） 1→Ｍ:Prog＂MAIN＂↓ Z→A:W→E:θ→W↓ Prog＂GAO CHENG＂↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ ＂……＂:D◢ (同上) ◢ ＂----------END---------＂ YUAN K(B÷(2R))→F↓卡西欧5800基本测量程序(完整版)
工程测量竖曲线程序及公式
CASIO fx-5800P实用工程测量程序
卡西欧fx-5800计算器缓和曲线编程
完整及不完整缓和曲线
5800简单全线坐标计算程序
5800计算器竖曲线程序
不完整曲线复核与曲率半径计算方法 两条缓和曲线相接计算方法
竖曲线自动计算表格
关于不同类型缓和曲线的判断及起点、终点曲率半径的计算方法
CASIO fx-5800p测量程序
卡西欧5800基本测量程序(完整版)