卡西欧 CASIO fx-5800 道路坐标放样程序.pdf

文档介绍：卡西欧 CASIO CASIO CASIO CASIO fx-5800 fx-5800 fx-5800 fx-5800 道路坐标放样程序源程序包括:一个主程序和两个子程序主程序: PRO-ROAD 行号程序说明 1 Deg : Fix3 : 26 → DimZ 2 “ X ( JD1 ) ”?X : “ Y(JD1) ”?Y : “ X ( JD0 ) ”?M : “ Y(JD0) ”?N 3 Prog ” SUB-QXYS1 ” 4 Pol(X-M,Y-N) : J → Z[20] : J+O → Z[19] 5 X-Scos(Z[20]) → Z[21] : Y-Ssin(Z[20]) → Z[22] 6 X+Tcos(Z[19]) → Z[23] : Y+Tsin(Z[19]) → Z[24] 7 “ X0 ”?U : ” Y0 ”?V 8 Lbl 0 9 “ KP ”?P : IFP>Z[1] : Then Goto 1 : IfEnd 10 Z [1]-P → L 11 “ XP= “: X-(S+L)cos(Z[20]) → F 12 “ YP= “: Y-(S+L)sin(Z[20]) → G 13 Z[20] → Z : Goto 5 14 Lbl 1 15 If P>Z[2] : Then Goto 2 : IfEnd 16 P-Z[1] → L : L → Z[14] : B → Z[15] : Prog ” SUB-HXY ” 17 “ XP= “: Z[21]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) → F 18 “ YP= “: Z[22]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) → G 19 Z[20]+90WL L ÷ (BR π) → Z 20 Goto 5 21 Lbl 2 22 If P>Z[4] : Then Goto 3 : IfEnd 23 P-Z[1] → L : 90(2L-B ) ÷ R ÷π→ Z[13] 24 Rsin(Z[13])+Z[8] → Z[16] : R(1-cos(Z[13]))+Z[6] → Z[17] 25 “ XP= “: Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20]) → F 26 “ YP= “: Z[22]+Z[16]sin(Z[20])-WZ[17]cos(Z[20]) → G 27 Z [20]+WZ[13] → Z 28 Goto 5 29 Lbl 3 30 If P>Z[5] : Then Goto 4 : IfEnd 31 Z[5]-P → L : L → Z[14] : C → Z[15] : Prog ” SUB-HXY ” 32 “ XP= “: Z[23]-Z[16]cos(Z[19] ) - WZ[17]sin(Z[19]) → F 33 “ YP= “: Z[24]-Z[16]sin(Z[19] ) + WZ[17]cos(Z[19]) → G 34 Z[19 ] - 90WLL ÷ (CR π) → Z 35 Goto 5 36 Lbl 4 37 P - Z[5] → L 38 “ XP= “: X + (T+L)cos(Z[19]) → F 39 “ YP= “: Y +