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