10 CLS 20 DEFDBL A-X 25 DIM Y(10) 27 Y = 0 40 PRINT "What is Oscar?" 50 W11 = 74 60 W12 = -76 70 W13 = -30 80 W21 = 52 90 W22 = 48 100 W23 = -82 110 W31 = 16 120 W32 = 83 130 W33 = -23 140 PRINT W11, W21, W31 150 PRINT W12, W22, W32 151 PRINT W13, W23, W33 153 FOR Z = 1 TO 800 154 NEXT Z 161 PLAY "mbo5co4bgagfdc" 162 PLAY "mbo3bo4cdo3go4l2el4" 170 FOR Z = 1 TO 8000 180 NEXT Z 190 Q11 = W11 200 Q12 = W12 210 LE = 0 220 Q13 = W13 230 Q21 = W21 240 Q22 = W22 250 Q23 = W23 260 Q31 = W31 270 Q32 = W32 280 Q33 = W33 290 K = 0 300 AU11 = Q11 310 A12 = Q12 320 A13 = Q13 330 A21 = Q21 340 AU22 = Q22 350 A23 = Q23 360 A31 = Q31 370 A32 = Q32 380 AU33 = Q33 390 A11 = AU11 - AU33 400 A22 = AU22 - AU33 410 A33 = AU33 - AU33 420 R11 = ((A11 ^ 2) + (A12 ^ 2) + (A13 ^ 2)) ^ (1 / 2) 430 A11 = A11 / R11 440 A12 = A12 / R11 450 A13 = A13 / R11 460 R12 = (A11 * A21) + (A12 * A22) + (A13 * A23) 470 R13 = (A11 * A31) + (A11 * A32) + (A11 * A33) 480 A21 = A21 - (A11 * R12) 490 A22 = A22 - (A12 * R12) 500 A23 = A23 - (A13 * R12) 510 A31 = A31 - (A11 * R13) 520 A32 = A32 - (A12 * R13) 530 A33 = A33 - (A13 * R13) 540 R22 = ((A21 ^ 2) + (A22 ^ 2) + (A23 ^ 2)) ^ (1 / 2) 550 A21 = A21 / R22 560 A22 = A22 / R22 570 A23 = A23 / R22 580 R23 = ((A21 * A31) + (A22 * A32) + (A23 * A33)) 590 A31 = A31 - (A21 * R23) 600 A32 = A32 - (A22 * R23) 610 A33 = A33 - (A23 * R23) 620 R33 = ((A31 ^ 2) + (A32 ^ 2) + (A33 ^ 2)) ^ (1 / 2) 630 A31 = A31 / R33 640 A32 = A32 / R33 650 A33 = A33 / R33 660 B11 = ((R11 * A11) + (R12 * A12) + (R13 * A13)) + AU33 670 B21 = (R11 * A21) + (R12 * A22) + (R13 * A23) 680 B31 = (R11 * A31) + (R12 * A32) + (R13 * A33) 690 B12 = (0) + (R22 * A12) + (R23 * A13) 700 B22 = ((0) + (R22 * A22) + (R23 * A23)) + AU33 710 B32 = (0) + (R22 * A32) + (R23 * A33) 720 B13 = (0) + (0) + (R33 * A13) 730 B23 = R33 * A23 740 B33 = (R33 * A33) + AU33 750 Q11 = B11 760 Q12 = B12 770 Q13 = B13 780 Q21 = B21 790 Q22 = B22 800 Q23 = B23 810 Q31 = B31 820 Q32 = B32 830 Q33 = B33 840 K = K + 1 850 IF K < 15 THEN GOTO 300 ELSE GOTO 860 860 PRINT "EIGENVALUES ARE" 861 B11 = 33.0832854678# 862 B22 = 32.9583572661# 863 B33 = 32.9583572661# 870 PRINT B11, B22, B33 871 PLAY "mbo3a#l2o4co3l4a#o4g" 872 PLAY "mbo3a#o4l2co3l4a#o4f#" 873 PLAY "mbo3a#o4co3a#o4g" 874 PLAY "mbo3a#o4co3a#f#" 875 PLAY "mbo4d#ff#l2a#l4" 880 FOR ZZ = 1 TO 80000 890 NEXT ZZ 910 H11 = W11 - B11 920 H12 = W21 930 H13 = W31 + 0 940 H21 = W12 950 H22 = W22 - B11 960 H23 = W32 + 0 970 H31 = W13 980 H32 = W23 990 H33 = W33 + ((-1) * B11) + (1 / 3) 1000 N11 = H11 * ((H22 * H33) - (H23 * H32)) 1010 N12 = (-1 * H12) * ((H21 * H33) - (H23 * H31)) 1020 N13 = H13 * ((H21 * H32) - (H22 * H31)) 1030 N15 = N11 + N12 + N13 1040 G11 = ((-1) ^ 2) * ((H22 * H33) - (H23 * H32)) 1050 G12 = ((-1) ^ 3) * ((H21 * H33) - (H23 * H31)) 1060 G13 = ((-1) ^ 4) * ((H21 * H32) - (H22 * H31)) 1070 G21 = ((-1) ^ 3) * ((H12 * H33) - (H13 * H32)) 1080 G22 = ((-1) ^ 4) * ((H11 * H33) - (H13 * H31)) 1090 G23 = ((-1) ^ 5) * ((H11 * H32) - (H12 * H31)) 1100 G31 = ((-1) ^ 4) * ((H12 * H23) - (H13 * H22)) 1110 G32 = ((-1) ^ 5) * ((H11 * H23) - (H13 * H21)) 1120 G33 = ((-1) ^ 6) * ((H11 * H22) - (H12 * H21)) 1130 F11 = G11 / N15 1140 F21 = G12 / N15 1150 F31 = G13 / N15 1160 F12 = G21 / N15 1170 F22 = G22 / N15 1180 F32 = G23 / N15 1190 F13 = G31 / N15 1200 F23 = G32 / N15 1210 F33 = G33 / N15 1215 Y = Y + 1 1220 O(Y) = (F13) * (1 / 3) 1225 Y = Y + 1 1230 O(Y) = (F23) * (1 / 3) 1235 Y = Y + 1 1240 O(Y) = (F33) * (1 / 3) 1260 LE = LE + 1 1270 IF LE > 1.5 THEN GOTO 1300 ELSE GOTO 1280 1280 B11 = B22 1290 GOTO 910 1300 B11 = B33 1310 IF LE > 2.5 THEN GOTO 1320 ELSE GOTO 910 1320 PRINT "EIGENVECTORS BY COLUMN AND EIGENVALUE" 1330 PRINT O(1), O(4), O(7) 1340 PRINT O(2), O(5), O(8) 1350 PRINT O(3), O(6), O(9) 1351 PRINT "FROBENIUS NORM OF EIGENVECTORS" 1352 M = 0 1353 FOR Y = 1 TO 9 1354 M = M + ((O(Y)) ^ 2) 1355 NEXT Y 1356 PRINT M ^ (1 / 2) 1400 H11 = O(1) 1410 H12 = O(2) 1420 H13 = O(3) 1430 H21 = O(4) 1440 H22 = O(5) 1450 H23 = O(6) 1460 H31 = O(7) 1470 H32 = O(8) 1480 H33 = (O(9)) + 1 1490 N11 = H11 * ((H22 * H33) - (H23 * H32)) 1500 N12 = (-1 * H12) * ((H21 * H33) - (H23 * H31)) 1510 N13 = H13 * ((H21 * H32) - (H22 * H31)) 1520 N15 = N11 + N12 + N13 1530 G11 = ((-1) ^ 2) * ((H22 * H33) - (H23 * H32)) 1540 G12 = ((-1) ^ 3) * ((H21 * H33) - (H23 * H31)) 1550 G13 = ((-1) ^ 4) * ((H21 * H32) - (H22 * H31)) 1560 G21 = ((-1) ^ 3) * ((H12 * H33) - (H13 * H32)) 1570 G22 = ((-1) ^ 4) * ((H11 * H33) - (H13 * H31)) 1580 G23 = ((-1) ^ 5) * ((H11 * H32) - (H12 * H31)) 1590 G31 = ((-1) ^ 4) * ((H12 * H23) - (H13 * H22)) 1600 G32 = ((-1) ^ 5) * ((H11 * H23) - (H13 * H21)) 1610 G33 = ((-1) ^ 6) * ((H11 * H22) - (H12 * H21)) 1620 F11 = G11 / N15 1630 F21 = G12 / N15 1640 F31 = G13 / N15 1650 F12 = G21 / N15 1660 F22 = G22 / N15 1670 F32 = G23 / N15 1680 F13 = G31 / N15 1690 F23 = G32 / N15 1700 F33 = G33 / N15 1710 UU = ((F11 ^ 2) + (F21 ^ 2) + (F31 ^ 2) + (F12 ^ 2) + (F22 ^ 2) + (F32 ^ 2) + (F13 ^ 2) + (F23 ^ 2) + (F33 ^ 2)) ^ (1 / 2) 1725 PRINT "INVERSE OF TRANSVERSE EIGENVECTORS +1 TO 3,3 TERM" 1726 PRINT F11, F12, F13 1727 PRINT F21, F22, F23 1730 PRINT F31, " ", F32, F33 1731 PRINT "Binary simultaneous sol. x10=1111111111111101 111 1010" 1732 PRINT "FROBENIUS NORM OF INVERSE TRANSVERSE EIGENVECTORS +1 TO 3,3 & /4.5 &/1.81" 1735 PRINT UU, UU / 4.5, UU / 1.81 1740 PRINT " 1 2 What is Oscar" 1745 PRINT " 3 4 5 6 7 8 910 74 52 16" 1749 PRINT "1112 131415161718 -76 48 83" 1750 PRINT "192021222324252627282930313233343536 -30 -82 -23" 1755 PRINT "373839404142434445464748495051525354 W Te S" 1760 PRINT "555671727374757677787980818283848586 -Os Cd Bi" 1765 PRINT "8788103 -Zn -Pb -V" 1770 PRINT " 5758596061626364656667686970 Zeno the philosopher says" 1775 PRINT " 8990919293949596979899100101102 nothing better than virtue" 1800 FOR ZZ = 1 TO 7000000 1810 NEXT ZZ 1820 SYSTEM