4800计算器程序

CASI04800坐标计算程序

CASI04800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序

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）

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

2P=C A 2/24/R-C A 4/2688/R A 3

3Q=C/2-C A 3/240/R A 2

4B=90C/ 兀/R

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

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

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

8G=D-T 丄

9H=G+C 丄

10I=G+L/2 丄

11K=G+L-C 丄

12M=G+L 丄

13N : E: F: J

14A v 0=>S=-1:工=>S=0

15U=F+A/2+90S

16V=W+R

17B=N+VcosU

18O=E+Vsi nU

19Lbl 1

20{Z}

21Z< G=>L=T+GZ

22V=F+180

23U=F

24Goto 2 /

25Z< H=>L=ZG

26V=L-L A 5/(90R A 2C A 2)

27L=30L A 2S/(兀RC)

28P=F+180

29Q=F+L

30U “FW =F+3U

31Goto 4 /

32Z< K=>L=F+A/2+90S+180+180(Z -l)S/R/ 兀33U “FW =L+90S J

34Goto 5 /

35Z< M=>L=M-Z

36V=L-L A 5/(90R A 2C A 2)

37L=30SL A 2/(兀RC)

38P=F+A

39Q=F+A+180-L

40U=F-3L+A 丄

41Goto4 /

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

43U=F+A

44V=U

45Goto 2

46Lbl 2

47X=N+LcosV 丄

48Y=E+LsinV 丄

49Goto 6 /

50Lbl 3

51{W}

52P “ XL” =X+Wcos-U0)丄

53Q “ YL” =Y+Wsin(U0)丄

54P “ XR' =X+Wcos(U+90)J

55Q “ YR' =Y+WsinU+90)丄

56Goto 1

57Lbl 4

58X=N+TcosP+VcosQ 丄

59Y=E+TsinP+VsinQ 丄

60Goto 6

61Lbl 5

62X=B+R cosL 丄

63Y=O+RsinL 丄

64Goto 6

65Lbl 6

66J=1=> Goto 3 /

67Goto 1