CASIO—5800P计算器程序集.doc

文档介绍：CASIO—5800P
计
算
器
程
序
集
中铁十五局集团第四工程有限公司
龙飞
2009年12月9日
目录
1. ------------------------------------------------2
2. 坐标计算(左中右3桩)-------------------------------3
3. 坐标计算(任意桩)-------------------------------------4
4. 坐标反算------------------------------------------------5
5. 竖曲线高程计算------------------------------------------------6
6. 坐标投点-----------------------------------------------7
7. 坐标正算------------------------------------------------8
8. 后方交会------------------------------------------------9
坐标计算(中桩)
程序名: (原复化辛朴生公式)改版加数据库
Lbl 0:“DKI”?H
Prog“SJK”
(E-D)/Abs(G-F) →P:Abs(H-F) →Q:P*Q→I:D+I→T
C+(I+2D)Q*90/π→J
C+(I/4+2D)Q*45/(2π) →M:C+(3I/4+2D)Q*135/(2π) →N
C+(I/2+2D)Q*45/π→K
A+Q(cos(C)+4( cos(M)+ cos(N))+2 cos(K)+ cos(J))/12→X:“X=”:X◢
B+Q(sin(C)+4(sin(M)+ sin(N))+2 sin(K)+ sin(J))/12→Y:“Y=”:Y◢
Goto 0
说明:直接输入中桩里程出坐标
如果这步C+(I+2D)Q*90/π→J改成C+(I+2D)Q*90/π→J:“FWJ=”:J◆DMS◢
能显示中桩的方位角
数据库
程序名:SJK
If H≥起点里程and H≤终点里程:Then起点X坐标→A:起点Y坐标→B:起点方位角→C:起点曲率→D:终点曲率→E:起点里程→F:终点里程→G:Return:IfEnd
…………把每一段的数据全部输入进去。
说明:曲率直线输入0,线路左偏输-1/半径,线路右偏输 1/半径
坐标计算(左中右3桩)
程序名: (原复化辛朴生公式)改版加数据库
Lbl 0:“DKI”?H:“JD”?S:“DL”?O:“DR”?R
Prog“SJK”
(E-D)/Abs(G-F) →P:Abs(H-F) →Q:PQ→I:D+I→T
C+(I+2D)Q*90/π→J
C+(I/4+2D)Q*45/(2π) →M:C+(3I/4+2D)Q*135/(2π) →N
C+(I/2+2D)Q*45/π→K
A+Q(cos(C)+4(cos(M)+ cos(N))+2 cos(K)+ cos(J))/12→X:“X=”:X◢
B+Q(sin(C)+4(sin(M)+ sin(N