4800及4500程序

CASIO4800及4500缓和曲线、圆曲线、直线段坐标计算程序

1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。

2、A？输入转角：左转为负，右转为正

3、R？输入圆曲线半径

4、LS？输入缓和曲线长度

5、JD？输入交点桩号

6、J？输入0程序计算中桩，输入1程序计算边桩

7、N？E？输入交点X、Y坐标

8、FW 待求点切线方位角

9、当计算交角为60°时，则公式改为（U-60），（U+120）

括号内为4500程序

1 A：R：C“LS”：D“JD”

2 P=C∧2/24/R-C∧4/2688/R∧

3 （P=C2/24/R-C2C2/2688/R3）

3 Q=C/2-C∧3/240/R∧2 (Q=C/2-C3/240/R2 )

4 B=90C/兀/R

5 T=(R+P)tan(AbsA/2)+Q◢

6 W=(R+P)/cos(A/2)-R◢

7 L=((AbsA)-2B)兀R/180+2C◢

8 G=D-T◢

9 H=G+C◢

10 I=G+L/2◢

11 K=G+L-C◢

12 M=G+L◢

13 N：E：F: J

14 A＜0=>S=-1:≠=>S=1⊿

15 U=F+A/2+90S

16 V=W+R

17 B=N+VcosU

18 O=E+VsinU

19 Lbl 1

20 {Z}

21 Z≤G=>L=T+G-Z

22 V=F+180

23 U=F

24 Goto 2⊿

25 Z≤H=>L=Z-G

26 V=L-L∧5/(90R∧2C∧2) ( V=L-L5/(90R2C2) )

27 L=30L∧2S/(兀RC) ( L=30L2S/(兀RC) )

28 P=F+180

29 Q=F+L

30 U“FW”=F+3L◢

31 Goto 4⊿

32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀

33 U“FW”=L+90S◢

34 Goto 5⊿

35 Z≤M=>L=M-Z

36 V=L-L∧5/(90R∧2C∧2) ( V=L-L5/(90R2C2) )

37 L=30SL∧2/(兀RC) ( L=30SL2/(兀RC) )

38 P=F+A

39 Q=F+A+180-L

40 U=F-3L+A

41 Goto4⊿

42 Z>M=>L=Z-M+T

43 U=F+A

44 V=U

45 Goto 2

46 Lbl 2

47 X=N+LcosV◢

48 Y=E+LsinV◢

49 Goto 6⊿

50 Lbl 3

51 {W}

52 P“XL”=X+Wcos(U-90) ◢

53 Q“YL”=Y+Wsin(U-90) ◢

54 P“XR”=X+Wcos(U+90) ◢

55 Q“YR”=Y+Wsin (U+90) ◢

56 Goto 1

57 Lbl 4

58 X=N+TcosP+VcosQ◢

59 Y=E+TsinP+VsinQ◢

60 Goto 6

61 Lbl 5

62 X=B+R cosL◢

63 Y=O+RsinL◢

64 Goto 6

65 Lbl 6

66 J=1=> Goto 3⊿

67 Goto 1