由本站论坛　xiayongkui　发布。



--[无错]CASIO4800坐标计算程序

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



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”

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

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

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)

27 L=30L∧2S/(兀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)

37 L=30SL∧2/(兀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