卡西欧4800P程序合集

对称缓和曲线任意点坐标计算公式

（缺陷：非对称缓和曲线无算）

1、Lb1 1

2、｛Z｝：Z”｛XY｝JI SUAN – K ”

3、Z≥11100⇒Z＜13300⇒ A=101°15°19°:R=780：

C=281.13:D=12510.916：N=3133280:

E=511103:F=227°46°36°：J=1: ∆∆

4、Z≥13300⇒Z＜14200⇒A=-20°44°10°：R=1000：

C=140:D=13827.501:N=3134865.578:E=510151.503:F=329°01°56°：J=1: ∆∆

5、P=C^2÷24÷R-C^4÷2688÷R^3

6、Q=C÷2-C^3÷240÷R^2

7、B=90C÷π÷R

8、T=(R+P)tan(AbsA÷2)+Q◢

9、W”E”=(R+P) ÷cos(A÷2)-R◢

10、L=((AbsA)-2B) πR÷180+2C◢

11、G”ZH-K”=D-T◢

12、H”HY-K”=G+C◢

13、I”QZ-K”=G+L÷2◢

14、K”YH-K”=G+L-C◢

15、M”HZ-K”=G+L◢

16、A<0⇒S=-1:≠>S=1∆

17、U=F+A÷2+90S

18、V=W+R

19、B=N+VcosU

20、O=E+VsinU

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=F+3L

31、Goto 4∆

32、Z≤K⇒L=F+A÷2+90S+180+180(Z-I)S÷R÷π

33、U=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、Goto 4∆

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

43、U=F+A

44、V=U

45、Goto 2

46、Lb1 2

47、X=N+LcosV◢

48、Y=E+LsinV◢

49、Goto 6∆

50、Lb1 3

51、｛W｝：W”｛WAI JU｝ L”

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、Lb1 4

58、X=N+TcosP+VcosQ◢

59、Y=E+TsinP+VsinQ◢

60、Goto 6

61、Lb1 5

62、X=B+RcosL◢

63、Y=O+RsinL◢

64、Goto 6

65、Lb1 6

66、J=1⇒Goto3∆

67、Goto1

2、解释

A：转角，左“－”；右“＋”

R：半径

Ls：缓和曲线长

JD：交点里程

N、E：交点X、Y

F：方位角（交点后的方位角）

Z：计算点里程，K12＋200＝12200

J＝1（进行边桩计算）

法线垂线上点坐标计算（弥补缺陷）

（武小辉编程）

XYPQ

Pol（P-X,Q-Y）

F=J

Lb 0

｛W｝:W”1.CHUI ZU

2.FA XIAN”

W=1⇒Goto 1∆

W=2⇒Goto 2∆

Lb 1

｛L｝:L”｛WAI FANG｝L=”

Rec（L,F+90°）

A”XR”=P+I▲

B”YR”=Q+J▲

Rec（L,F-90°）

C”XL”=P+I▲

D”YL”=Q+J▲

Goto 0

Lbl 2

｛H｝:H”｛JU LI｝L=”

Rec（H,F）

P“X”=X+I▲

Q“Y”=Y+J▲

Goto 0

说明：

上程序接主程序，完善主程序法线垂线任意点坐标计算空白。

XY 为中桩XY坐标

PQ为中桩左、右侧法线上点坐标

L 为法线上垂线距离（计算时只需要输入这个数值就行了）

H 直线上点距起点距离

X Y 为直线上H距离处坐标

提示：当计算线路右侧时，需要让主程序运算到右侧法线上点坐标后退出，进入此程序就可以了！

（武小辉编程）

1、A”PO-1”:B”PO-2”:C”BIAN PO - K”:D”BIAN PO - H”:T

2、LbI 1

3、｛S｝:S”JI SUAN - K”

（经典武小辉原创）

一、原程序

1、LbI 0

2、｛Z｝:Z”JI SUAN - K”

3、Z≥11100⇒ Z＜11825⇒ A=11100:B=482.71:C=4÷100: Goto 1: ∆∆

4、Z≥12175⇒Z＜12630⇒A=12000:B=518.71:C=2.6÷100: Goto 1: ∆∆

5、Z≥12970⇒ Z＜13724⇒ A=12800:B=539.51:C=3÷100: Goto 1: ∆∆

计算里程Z大于等于11100且小于11825时运行A=*** B=

***C=***,然后到LbI 1 进行计算。

6、Z≥11825⇒ Z＜12175⇒A=.04:B=.026:C=12000:D=518.71:T=175: Goto 2: ∆∆

7、Z≥12630⇒ Z＜12970⇒A=.026:B=.03:C=12800:D=539.51:T=170: Goto 2: ∆∆

8、Z≥13724⇒ Z＜14076⇒A=.03:B=.008:C=13900:D=572.51:T=176: Goto 2: ∆∆

（以上为曲线参数）

9、LbI 1

10、H”JI SUAN - H”= (Z-A)C+B▲

11、Goto 3

12、LbI 2

13、L=Z-C

14、R=2T÷(B-A)

15、H”JI SUAN - H”=D+((L+0.5R(A+B))2)÷2R-0.5RAB▲

16、Goto 3

17、LbI 3

18、Z≥11500⇒Z＜11700.0001⇒X=（（0.42-0.24）÷200×（Z-11500）+0.24）:Y=((-0.42+.24)÷200×（Z-11500）+-0.24)：∆∆