USING "#. # #"; A1; 1, 44: PRINT "MX ="; MX; "MY ="; MYНанесеніе координатної сеткіI = 20 TO 580 STEP 20: LINE (I, 20) - (I, 320), 9: NEXT II = 20 TO 320 STEP 20: LINE (20, I) - (580, I), 9: NEXT I
REM Побудова координатних осей (20, 180) - (590, 180), 7: (300, 10) - (300, 320), 7Нанесеніе ліній перемикання = 20: X1 = 300 + FIX ( (A - K * ((180 - 20)/MY)) * MX)
Y2 = 320: X2 = 300 + FIX ((A - K * ((180 - 320)/MY)) * MX) (X1, Y1) - (X2, Y2), 7 = 300 + FIX ((-A - K * ((180 - 20)/MY)) * MX) = 300 + FIX ((-A - K * ((180 - 320)/MY)) * MX) (X1, Y1) - (X2, Y2), 7 = 300 + FIX ((A + A1 - K * ((180 - 20)/MY)) * MX) = 300 + FIX ((A + A1 - K * ((180 - 320)/MY)) * MX) (X1, Y1) - (X2, Y2), 7 = 300 + FIX ((-A - A1 - K * ((180 - 20)/MY)) * MX) = 300 + FIX ((-A - A1 - K * ((180 - 320)/MY)) * MX)
LINE (X1, Y1) - (X2, Y2), 7Масштабірованіе координатних осей
LOCATE 13, 74: PRINT "X, n": LOCATE 1, 37: PRINT "Y, n" 6, 1: PRINT "100" 13, 1: PRINT "0" ; 20, 1: PRINT "-100"; 24, 11: PRINT "-200"; 24, 24: PRINT "-100"; 24, 38: PRINT "0"; 24, 49: PRINT " ; 100 "; 24, 62: PRINT" 200 "; = -2: YS = -1.6: IK = 0
REM РОЗРАХУНОК І ПОБУДОВА траєкторії
J2 = 0: X0 = XS: Y0 = YS:
17 IF Y0> 0 THEN X10 = X0 + LU/2Y0 <0 THEN X10 = X0 - LU/2 = 1:
I = 0: SIG =-X0: Y0 <0 THENSIG> (A + A1) THEN U = U1SIG <(A + A1) THEN U = U3SIG <-A THEN U = U2IFY0> 0 THENSIG <(-A - A1) THEN U = U2SIG> (-A - A1) THEN U = U3SIG> A THEN U = U1IF
T = 0J2> = 2 THENIK = 0 THEN J2 = 0: GOTO 33IK = 1 THEN J2 = 0: GOTO 34IK = 2 THEN J2 = 0: GOTO 35IK = 3 THEN J2 = 0: GOTO 36IK = 4 THEN J2 = 0: GOTO 37IK = 5 THEN J2 = 0: GOTO 38IK> = 6 THEN J2 = 0: GOTO 40IF
XG1 = 300 + X0 * MX: Y1 = 180 - Y0 * MYI> 5000 THEN GOTO 30 = Y0 * e1 + U * e2: X1 = X10 - Y + Y0 + U * DT = Y: X10 = X1X0> 0 THENY> 0 THEN X = X1 - LU/2: H = 1Y <0 THEN X = X0: H = 0X1 0 THEN X = X0: H = 0X1> X0 + LU/2 THEN X = X1 - LU/2: H = 1IF =-X: = UU0 = U3 THENSIG> (A + A1) THEN U = U1SIG <(-A - A1) THEN U = U2IFU0 = U2 THENSIG>-A THEN U = U3IFU0 = U1 THENSIG < ; A THEN U = U3IF = 300 + X * MX: Y2 = 180 - Y * MY: X0 = X = I + 1XG2 <20 THEN 22XG2> 580 THEN 22Y2 <20 THEN 22Y2> 320 THEN 22 (XG1 , Y1) - (XG2, Y2), 7I> 4000 THEN LINE (XG1, Y1) - (XG2, Y2), 1522
J2 = J2 + 1: X0 =-XS: Y0 =-YS: GOTO 17
YS = -1.6: XS = -1: IK = IK + 1: GOTO 15
YS = -1.6: XS = 0: IK = IK + 1: GOTO 15
YS = -1.6: XS = 1: IK = IK + 1: GOTO 15
YS = -1.6: XS = 2: IK = IK + 1: GOTO 15
YS = -1: XS = 2.8: IK = IK + 1: GOTO 15
YS = .01: XS = .01: IK = IK + 1: GOTO 15
