4800及4500程序

CASIO4800及4500缓和曲线、圆曲线、直线段坐标计算程序

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） 括号内为4500程序

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

2 P=C∧2/24/R-C∧4/2688/R∧3 （P=C/24/R-CC/2688/R3 Q=C/2-C∧3/240/R∧2 (Q=C/2-C/240/R ) 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) ( V=L-L/(90RC) )

5

2

2

3

2

2

2

2

3

）

27 L=30L∧2S/(兀RC) ( L=30L2

S/(兀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) ( V=L-L5

/(90R2

C2

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

)

本文来源：https://www.bwwdw.com/article/u808.html