CASIO 5800公路坐标计算程序

...    发表于2009年10月21日 14:35 阅读(4) 评论(0) 分类： 个人日记 

举报 

CASIO 5800公路坐标计算程序(2009-１0-１９ 21:24:35)

E-D→J:Arg(cos(J)+ⅰsin(J))→J:Abs(J)÷J→H:F÷2-F3÷240÷R2→Q:JH÷2→M:90÷R÷π→N:M÷N+(F+G)÷2→L:Rtan(M)+Q+(G2-F2cos(JH))÷24÷R÷sin(JH)→T:C-T→U:”JU” ?S:”JIAO”?Z:↓

If K＜U:Then C-K→I:0→V:Goto 1:IfEnd↓

If K＜U+F:Then K-U→W:Lb1 2:NW2÷F→V:T-W+W5÷40÷R 2÷F 2+ⅰW3÷6÷R÷F→I:Goto 1:IfEnd↓

If K＜U+L-G:Then K-U-F→W:N(2W+F)→V:T-Rsin(V)-Q+ⅰ(R+F2÷24÷R-Rcos(V))→I:Goto 1:IfEnd↓

If K＜U+L:Then U+L-K→W:Rtan(M)+G÷2-G3÷240÷R2+(F2-G2cos(JH))÷24÷R÷sin(JH)→T:G→F:E+180→D:-H→H:-S→S:Goto 2:IfEnd↓

Lb1 1:“X=”:A-cos(D-HArg(I))Abs(I)+Scos(D+HV+Z)◢

“Y=”:B-sin(D-HArg(I))Abs(I)+Ssin(D+HV+Z) ◢

XM(项目):

?K↓

If K＜HZ点桩号:Then交点X坐标→A:交点Y坐标→B:交点桩号→C:

前直线方位角→D:后直线方位角→E:前缓和曲线长→F:后缓和曲线长→G:圆曲线半径→R:Goto 0:IfEnd↓

……………

Lbl 0:Prog“JBJS”

程序说明:

建立JBJS和XM两个程序，运行XM进行坐标计算：

K?         输入桩号

S?         输入中桩至边桩的斜距