缓和曲线计算机编程,fx5800缓和曲线计算程序.docx

FX5800计算器的积分程序(正反算、全线路、新线路)终极版

相关搜索：计算器，正反，线路，积分，程序

FX5800计算器的积分程序(正反算、全线路、新线路)终极版

ZHUCHENGXU 主程序

〃1. ZS, 2. FS〃 ？一Q输入1正算，输入2反算

“NEW二0, OLD HO” ?Z

If Z=0:Then“X0二” ?A: “Y0二” ?B: “CO二” ？C: “1/R0二” ?D: “1/RI二” ?E: “SP二” ?F: “EP二” ?G:

Ifend:Q二2二〉Goto 2

Lbl 1 : UKM=, <0 Stop” ？H:H〈0二〉Stop: “PJ二” ？0: "PY二” ?L

Lbl Z:Z=1=> Prog “01” : Z二2二〉Prog “02”选择数据库文件，可增加

H- F-X: 0. 5 (E-D) 4- (G-F) ->N

C+(XD+NX2)*180—兀-P： P<0二〉P+360-P： P>360=>P-360->P

A+ f (cos(C+ (XD+NX2)*1804- n ),0, X) +Lcos(P+0)->U

B+f (sin(C+(XD+NX2)*180一 兀)，0, X)+Lsin(P+0)T

Q二2二〉Goto4： Cis： Fix 3

〃Xn二〃：Locate4, 1, U： 〃Yn=〃： Locate 5, 2, V： “FWJ二” :1>DMSA

Norm 2： Cis： Goto 1

Lbl 2: “XD二，〈0,STOP” ? R： R〈0二〉Stop: “YD二” ? S

“KMDG二” ? H : 90->0:0->L： Goto Z(H线路范围内的任意桩号)

Lbl 4:Pol (R-U, S-V) : J<0 => J+360-J

While abs (Icos (J-P) ) W0. 001 :P-J>180二〉J+360-J： P-J0:thcn-I-*L:else I-*L ifend

Goto 3: Whileend： H+Icos (J-P) -*H:Goto Z

Lbl 3:Cls： Fix 3

“KM二” :Locate 4, 1, II： “PY二” :Locate 4, 2, L,

Norm 2： Cis： Goto 2

01 (数据库子程序)

If HU第一曲线终点桩号：then 第一曲线起点X->A：第一曲线起点Y->B：第一曲线起点方位角一C：起点曲率一D：终点曲率一E：起点桩号一F：终点桩号一G： return： ifend

程序说明：

1、该程序可以计算任意线形(直线、圆曲线、缓和曲线、不完整曲线)任意桩号的坐标(正算，输入1),

也可根据坐标计算该点到线路的距离及垂足桩号(反算，输入2):

2、(NEW=0, 0LDH0) ?如果要计算的点为数据库线路中的点，则输入数据库编号(以整数1、2、3…代

替输入)；如果在数据库中没有要汁算线路的数据，则输入曲线要素

X0：曲线起点X坐标；

Y0：曲线起点Y坐标；

CO:曲线起点方位角；

ROT、RT-1:曲线起点、终点曲率，直线为0,曲线左偏输入负值，右偏输入正值；

SI\ EP：曲线起点桩号，终点桩号；

KM：待求点桩号；

PJ：正斜交的设定；

PY：偏中距离，线路上的点输入0,右偏输入+值，左偏输入-值；

3、正算显示坐标及切线方位角；反算输入线路的任意桩号(此桩号越接近真实值计算速度越快)、待求

点坐标，显示待求点桩号及偏屮距离；

4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。

5、此程序显示较直观，结果在同一屏幕显示。注* :程序中乘号用*标示，其余为X。

卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版

(2011-08-08 21:50:08)

转载

标签：

5800全线匸反算

杂谈

本程序是本人在承秦高速8标施工中根据蓝星程序2?3更改结果，修正了一些错误，去除一些功能，可以 计算路基任意点坐标，设计高程.隧道欠超挖放样计算。支持断链，隧道超欠挖，支持N条线路输入， 计算精度lmm?与原程序主要功能(采用交点法方式计算多条线路坐标正反算，要计算SZ杂线型及立交 匝道，包括C型，S型、卵型、冋头曲线等；请使用线元法2-XYo欢迎广大朋友提出建议共同学习。 本程序经作者实践证明真情奉献，如需转载请注明出处！作者：张涛

1 ?主程序：一般坐标计算及放样程序一“交点法

程序名:1?JD

Clrmat： Clrvar:

Lal 0:10^DimZ:Norm 2:1—A: ” A: XY=1,KMD=2 n ? A:A=l=>Goto 1:A=2=>Goto 2