急需卡西欧5800圆曲线边桩计算的程序

急需卡西欧5800圆曲线边桩计算的程序
急需卡西欧5800圆曲线边桩计算的程序

急需卡西欧5800圆曲线边桩计算的程序
都是我自己编的,用起来还可以.
CASIO fx—5800计算器 工程测量与公路测量程序
1、坐标正算
＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J
X+ICos(J)→U:Y+ISin(J)→V
＂X=″:U （待求点的X坐标）
＂Y=″:V （待求点的Y坐标）
说明：X0 Y0：已知点坐标I：两点的距离J：方位角
2、坐标反算
Lbl 0
＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V
Pol(U-X,V-Y):
J<0 J+360→J
＂I=″:I
＂J=″:J DMS
GOTO 0
说明：X1Y1：第一点的坐标,X2Y2第二点的坐标,I：两点的距离,J：方位角
3、圆曲线
＂X0=″?X:＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G:＂ZDHAO=″?C:＂R=″?R
Lbl 1
＂DQHAO=″?L
L<G Or L＞C GOTO 2
＂PY=″?K
180(L-G)÷(πR) →E
2RSin(0.5E) →F
ReC(Abs(F),D+0.5E)：Cls
＂X=″:X+I+KCos(D+E+90) →A
＂Y=″:Y+J+KSin(D+E+90) →B
D+E→o:o<0 360+o→0o
＂FWJ=″:o DMS
Goto 1
Lbl 2
＂END″
说明：X0Y0：起始点的坐标,FWJ：起始点的方位角,QDHAO：起点里程,ZDHAO终点里程,R：半径,DQHAO：待求点里程,PY：偏移量
4、竖曲线
＂QZHAO =″?J:＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:
((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S
＂T″:S
J-T→X
J＋T→Y
Lbl 0
＂DQ=″?L
If L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End
＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H
Goto 0
Lbl 1
＂END″
说明：QZHAO：曲中点里程,H+B：曲中点高程,I1：第一坡度,I2：第二坡度,R：半径,T：切线长,DQ：待求点里程.
5．正算偏移
＂X0=″?A:＂Y0=″?B:＂FWJ=″?D:
Lbl 0
＂LS=″?L:＂PY=″?C
ReC(L,D)
＂X=″:A+I+CCos(D+ 90) →X
＂Y=″:B+J+CSin(D+ 90) →Y
Goto 0
说明：X0 Y0：已知点坐标,LS：两点距离,FWJ：方位角
6.万能公式
＂X0=″?A:＂Y0=″?B:＂FWJ=″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F:
＂ZDHAO″?G
Lbl 1
＂DQHAO=″?H:＂PY=″?o
If H<F:Then Goto 2:Else If H＞G:Then Goto 2:If End:IfEnd
(E-D)÷Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K
A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:
B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V
＂X=″:U+oCos(J+90) →X
＂Y=″:V+oSin(J+90) →Y
＂FWJ=″:J DMS
Goto 1
Lbl 2
＂END″
说明：X0Y0：起开点坐标,FWJ：起开点方位角,1÷R-QD：起开点曲率,1÷R-ZD终点曲率,QDHAO：起点里程,ZDHAO终点里程,DQHAO：待求点里程,XY：待求点坐标
6、标高计算
＂QZHAO=″?J:＂QDHAO=″?G:＂ZDHAO=″?K:＂B—HB=″?B:＂SX=″?Q:＂I1=″?C:
＂I2=″?D:＂R=″?R:＂T=″?T
(D-C)÷100→W:W÷Abs(W)→A:＂T″:0.5RAbs(W) →S
＂o-YIGAO=″?o
J-T→X:J+T→Y
Lbl 1
＂L—DQHAO=″?L:＂PY=″?U:＂XIELV=″?V
If L<X:Then Goto 2:Else If L＞Y:Then Goto 3:If End:I End
＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q
＂HO=″:o-H→Z
Goto 1
Lbl 2
L<G Goto 4
＂HL=″:B+0.01 (L-J)C+0.01UV+Q →H
＂H0=″:o-H→H
Goto 1
Lab 3
L>K Goto 4
＂HL=″:B+0.01 (L-J)D+0.01UV+Q →H
＂HO=:o-H→Z
Goto 1
Lbl 4:＂END″
说明：QZHAO：曲中点里程（竖曲线）,QDHAO：起点里程,ZDHAO：终点里程,B—HB曲中点高程,SX：上下（路面标高下多少为水稳层面）,I1：第一坡度,I2：第二坡度,R：半径,T切线长,L—DQHAO：待求点里程,PY：偏移（中桩到边桩的距离）,XIELV：斜率（横坡的坡度,左负右正）o-YIGAO：仪器高