卡西欧5800曲线坐标计算程序-正确

CASIO4800改5800p坐标计算程序-角度以度为单位

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：“LS”？C：“JD”？D

2 C∧2/24/R-C∧4/2688/R∧3→P 求缓和曲线内移、值

3 C/2-C∧3/240/R∧2→Q 切距差

4 90C/兀/R→B 缓和曲线角度β0

5 (R+P)tan(AbsA/2)+Q→T 切线长

6 (R+P)/cos(A/2)-R→W 外矢距

7 ((AbsA)-2B)兀R/180+2C→L 缓和曲线长

8 D-T→G 直缓点里程

9 G+C→H 缓圆点里程

10 G+L/2→I 曲中点里程

11 G+L-C→K 圆缓点里程

12 G+L→M 缓直点里程

13 ？N：？E：？F：？Ｊf为方位角

14 If A＜0：Then -1→S：Else 1→S：IfEnd

15 F+A/2+90S→U

16 W+R→V

17 N+VcosU→B

18 E+VsinU→O

19 Lbl 1

20 ？Z

21 If Z≤G：Then T+G-Z→L

22 F+180→V

23 F→U

24 Goto 2

25 IfEnd

26 If Z≤H：Then Z-G→L

27 L-L∧5/(90R∧2C∧2)→V

28 30L∧2S/(兀RC)→L

29 F+180→P

30 F+L→Q

31 “FW=“：F+3L→U◢

32 Goto 4

33 IfEnd

34 If Z≤K：Then F+A/2+90S-180+180(Z-I)S/R/兀→L

35 “FW=“：L+90S→U

36 Goto 5

37 IfEnd

38 If Z≤M：Then M-Z→L

39 L-L∧5/(90R∧2C∧2)→V

40 30SL∧2/(兀RC)→L

41 F+A→P

42 F+A+180-L→Q

43 F-3L+A→U

44 Goto4

45 IfEnd

46 If Z>M：Then Z-M+T→L

47 F+A→U

48 U→V

49 Goto 2

50 IfEnd

51 Lbl 2

52 “X=“：N+LcosV→X◢

53 “Y=“：E+LsinV→Y◢

54 Goto 6

55 Lbl 3

56 ？W

57 “XL=”：X+Wcos(U-90) ◢

58 “YL=”：Y+Wsin(U-90) ◢

59 “XR=”：X+Wcos(U+90) ◢

60 “YR=”：Y+Wsin (U+90) ◢

61 Goto 1

62 Lbl 4

63 ”X=“：N+TcosP+VcosQ→X◢

64 ”Y=“：E+TsinP+VsinQ→Y◢

65 Goto 6

66 Lbl 5

67 “X=”：B+R cosL→X◢

68 “Y=”：O+RsinL→Y◢

69 Goto 6

70 Lbl 6

71 J=1=> Goto 3

72 Goto 1

注：◢为输出指令，只要在后面加上，即把前面的结果输出在屏幕上