CASIO 5800综合曲线坐标计算程序

说明：该程序适用于计算器 CASIO fx-5800P，可进行线路贯通计算、线路的缓和曲线、圆曲线、夹直线段中、边桩坐标及切线方位角等。

1.? 输入1直接调用数据库，输入2则手动输入曲线要素

2.JSDK? 输入计算里程桩号

3.α? 输入转角：左转为负，右转为正

4.R? 输入圆曲线半径

5.LS? 输入缓和曲线长度

6.JD(DK)? 输入交点里程桩号

7.X(JD)? 输入本交点X坐标

8.Y(JD)? 输入本交点Y坐标

9.FWJ? 输入待求点切线方位角

10.J? 输入0程序计算中桩，输入1程序计算边桩

主程序名：ZHQX

1.Deg：Fix 4↙

2.＂1=>XY＂：＂2=>DK＂：＂＂？H↙

3.＂JSDK＂?Z ↙

4.If H=1：Then Goto A：IfEnd↙

5.If H=2：Then Goto B：IfEnd↙

6.Lb1 A↙

7.Prog＂ZHQX1＂↙

8.Goto C↙

9.Lb1 B↙

10.＂α＂?A：?R：＂LS＂?C：＂JD(DK)＂?D：＂X(JD)＂?N： ＂Y(JD)＂?E： ＂FWJ＂?F↙

11.Lb1 C↙

12.?J ↙

13.C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P ↙

14.C÷2-C∧（3）÷240÷R∧2→Q ↙

15.90×C÷π÷R→B ↙

16.＂T=＂：(R+P)tan(Abs(A)÷2)+Q→T◢

17.＂E=＂：(R+P)÷cos(A÷2)-R→W◢

18.＂L=＂：(Abs(A)-2×B)πR÷180+2×C→L◢

19.＂ZH=＂：D-T→G◢

20.＂HY=＂：G+C→H◢

21.＂QZ=＂：G+L÷2→I◢

22.＂YH=＂：G+L-C→K◢

23.＂HZ=＂：G+L→M◢

24.If  A＜0：Then  -1→S：Else  1→S：IfEnd ↙（此行不输入……本行中0为数字）

25.F+A÷2+90×S→U ↙

26.W+R→V ↙

27.N+V×cos(U)→B ↙

28.E+V×sin(U)→O ↙（此行不输入……本行中O为字母）

29.Goto D ↙

30.Lb1 E ↙

31.＂JSDK＂?Z ↙

32.Lb1 D ↙

33.If  Z≤G：Then T+G-Z→L ↙

34.F+180→V ↙

35.＂FWJ=＂：F→U◢

36.Goto 2 ↙

37.IfEnd ↙

38.If  Z≤H：Then Z-G→L ↙

39.L-L∧(5)÷(90×R∧2×C∧2)→V ↙

40.30×L∧2×S÷(πRC)→L ↙

41.F+180→P ↙

42.F+L→Q ↙

43.＂FWJ=＂：F+3×L→U◢

44.Goto 4 ↙

45.IfEnd ↙

46.If  Z≤K：Then F+A÷2+90×S+180+180(Z-I)×S÷R÷π→L ↙

47.＂FWJ=＂：L+90×S→U：If U≥360：Then U-360→U◢

48.Else U→U◢

49.IfEnd：Goto 5：IfEnd ↙

50.If  Z≤M：Then  M-Z→L ↙

51.L-L∧(5)÷(90×R∧2×C∧2)→V ↙

52.30×S×L∧2÷(πRC)→L ↙

53.F+A→P ↙

54.F+A+180-L→Q ↙

55.＂FWJ=＂：F-3×L+A→U：If U≥360：Then U-360→U◢

56.Else U→U◢

57.IfEnd：Goto4 ：IfEnd ↙

58.If  Z>M：Then Z-M+T→L ↙

59.F+A→U ↙

60.U→V ↙

61.Goto 2 ↙

62.Lb1 2 ↙

63.＂X=＂：N+L×cos(V)→X◢

.＂Y=＂：E+L×sin(V)→Y◢

65.Goto 6 ↙

66.IfEnd ↙

67.Lb1 3 ↙

68.?W ↙

69.＂XL=＂ ：X+W×cos(U-90) →P◢

70.＂YL=＂ ：Y+W×sin(U-90) →Q◢

71.＂XR=＂ ：X+W×cos(U+90) →P◢

72.＂YR=＂ ：Y+W×sin(U+90) →Q◢

73.Goto E ↙

74.Lb1 4 ↙

75.＂X=＂：N+T×cos(P)+V×cos(Q)→X◢

76.＂Y=＂：E+T×sin(P)+V×sin(Q)→Y◢

77.Goto 6 ↙

78.Lb1 5 ↙

79.＂X=＂：B+R×cos(L)→X◢

80.＂Y=＂：O+R×sin(L)→Y◢（此行不输入……本行中O为字母）

81.Goto 6 ↙

82.Lb1 6 ↙

83.J=1=> Goto 3 ↙（此行不输入……=>：FUNCTION→3↓3）

84.Goto E ↙

注：

1、◢ 为显示指令。

2、每个序号为一行，括号（）为说明，请不要输入。

数据库名：ZHQX1

Goto 1

Lb1 1：If Z<7586.707：Then -17°37ˊ32.8″→A：5000→R：330→C：6224.744→D：3378819.247→N：452290.956→E：116°34ˊ28.42″→F：Return：IfEnd

Lb1 1：If Z<13346.96：Then 53°12ˊ46.1″→A：4500→R：360→C：10021.359→D：3378226.731→N：456053.721→E：98°56ˊ55.62″→F：Return：IfEnd

释义：

Goto 1

Lb1 1：If Z<下一个交点ZH里程或本交点HZ里程：Then 转角→A：曲线半径→R：缓和曲线长→C：交点里程→D：交点坐标X→N：交点坐标Y→E：第一切线方位角F：Return：IfEnd

注：转角（左负、右正）

Lb1 1：每增加一行为一个曲线要素

计算参数：

1=>XY

2=>DK

1.? 2

2.JSDK?=10000

3.α?=53°12′46.1″

4.R?=4500

5.LS?=360

6.JD(DK)?=10021.359

7.X(JD)?=3378226.731

8.Y(JD)?=456053.721

9.FWJ?=98°56′55.62″

10.J?=1

11.T=2434.6526

12.E=534.3125

13.L=4539.32340

14.ZH=7586.70

15.HY=7946.70

16.QZ=9856.3684

17.YH=11766.0304

18.HZ=12126.0304

核对结果：

FWJ=127°23′2.26″

X=3377706.668

Y=455858.5250

W?=10（此行不输入……偏距）

XL=3377714.613（此行不输入……偏左坐标）

YL=4558.5966（此行不输入……偏左坐标）

XR=3377698.722（此行不输入……偏右坐标）

YR=455852.4535（此行不输入……偏右坐标）

程序在线下载地址：http://www.fffsky.com/blog/post/ZHQX-5800.html