CASIO4850计算器程序.docVIP

缓和曲线段切线方位角 1、 A:B:C＂ZH＂:E＂L0＂:Q:R 2、 F=A+B（90（Q-C）2÷（πRE））▲ 字母说明：A—起始边方位角 B—偏角，左偏为“-1”，右偏为“1” C＂ZH＂—ZH点里程 E＂L0＂—缓和曲线长 Q—所求点里程 R—曲线半径 F—切线方位角 圆曲线段切线方位角 1、 A:B:C＂HY＂:E＂L0＂:Q:R 2、 F=A+B（90（E +2（Q-C））÷（πR））▲ 字母说明：A—起始边方位角 B—偏角，左偏为“-1”，右偏为“1” C＂HY＂—HY点里程 E＂L0＂—缓和曲线长 Q—所求点里程 R—曲线半径 F—切线方位角 直线段坐标计算程序 1、 D＂X0＂:F＂Y0＂: A:K 2、 Lbl 0 3、 {W}: {Q} 4、 W=0=Goto 1 △ 5、 W≠0=Goto 2 △ 6、 Lbl 1 7、 X = D + cos A（Q-K）▲ 8、 Y = F + sin A（Q-K）▲ 9、 Goto 0 10、 Lbl 2 11、 X = D + cos A（Q-K）+ W cos（A+90） ▲ 12、 Y = F + sin A（Q-K）+ W sin（A+90）▲ 13、 Goto 0 字母说明：D＂X0＂—起始点X坐标 F＂Y0＂—起始点Y坐标 A—起始边方位角 K—起点里程 W—边距，左边为“－”，右偏为“+” Q—所求点里程 曲线段坐标计算程序 1、 Defm 1 2、 R : T : A : B: L : C : D : F 3、 E=C+L : M=（L－L 3÷（40R2）+ L 5÷（3456R4））÷cos （30L÷（πR）） 4、 B0=N=A+30L÷（πR）: ≠=N= A－30L÷（πR）△ 5、 Z[1]=D+McosN :G=F+MsinN:H=E+AbsBπR÷180－L: I=H+L 6、 M=2Tcos（AbsB÷2）: N=A+B÷2 : J=D+McosN: K=F+MsinN 7、 Lbl 3 8、 {Q}: {W}: W : M =Q－C : M 0=Goto 3 △ 9、 M=Q－I－0.005 : M0=Goto 3 △ 10、 M=Q－E : M≤0=Z=2 : Prog＂B＂△ 11、 Q－E0=Goto 1 △ 12、 Goto 2 13、 Lbl 1 14、 M=Q－H : MQ= Prog＂A＂△ 15、 Q－H≥0=Z=1 : Prog＂B＂△ 16、 Lbl 2 17、 W≠0=Goto 5 △ 18、 X=U + O cos P ▲ 19、 Y=V + O sin P ▲ 20、 W=0= Goto 3 △ 21、 Lbl 5 22、 U=U+ O cos P: V= V+ O sin P: Prog＂D＂: X=U+Wcos（P+90）▲ 23、 Y=V+Wsin（P+90）▲ 24、 Goto 3 子程序 A M=Q－E : O=2Rsin（90M÷（πR））: N=90÷（πR）×（L+M） B0=P=A－N △ B0=P=A + N △ U=Z[1] : V=G 子程序 B Z = 2 =M= Q－C △ Z = 1 =M= I－Q △ X = M－M5÷（40R2L2）+ M9÷（3456R4L4）: Y= M3÷（6RL）－M7÷（336R3L3）+ M11÷（42240R5L5） O = √（X2+Y2）: N = 30M2÷（πRL） Z = 1 = Goto 1 △ B0=P=A－N △ B0=P=A + N △ U=D: V=F Goto 2 Lbl 1 B0=P=A+B+N+180 △ B0=P=A+B－N+180 △ U=J : V=K : Lbl 2 子程序 C Q－E0= Goto 1△ Q－H0= Goto 2△ B0=Z= 4 : Goto 3 △ B0= Z= 6 : Goto 3 △ Lbl 2 B0=Z= 1 : Goto 3 △ B0= Z= 2 : Goto 3 △ Lbl 1 B0=Z= 3 : Goto 3 △ Z = 5 Lbl 3 子程序 D N = 90L÷（πR）+180M÷（πR）: S=90M2÷