d� * *!n� * MATRIXCRAFT *+x� * *C‚� * BY NOYAN 1987 *NŒ� *. *j–� * SIMONS' BASIC VER.*t � * *z¥�¶ªP$²dU(" ",30):P1$²"-----------":† M1(2,21,40),M2(20,20)Ò´P2$²dU("*",25):d3 NSOFTà¾d1 MAINd:îÈd3 SCREEN Ò‘ J‰ 260,370,480,600,730,830,950,220! ÜCCILD' æ�A ð� MATRISLERIN TOPLAMIG ú�… ™ "":� I²1 ¤ 2:™:RS²RN:CS²CN:™ "MATRIS#="I:™ ""P1$:™˜ d3 SATIR&SUTUNº ‹ I±1 § ‹ RS³±RN ° CS³±CN‰270ê "™ :‚ :� I²1 ¤ 2:‹ RN$(I)³±"P" § d3 ¡ MATRIS ,‚ :™ "“":d# d(0,12)"ISLEM YAPILIYOR..."% 6d3 ¤ PLAMA5 @d3 ™ MATRISC Jd2 MAINd:I T�h ^� MATRISIN SKALER. CARPIMIn h�¤ r™ "SKALERLE CARPILACAK OLAN MATRISIN;":™ ""» |I²1:d3 SATIR&SUTUNÞ †™ "SKALER? ";:d' "",15,SKþ �‹ RN$(I)³±"P" § d3 ¡ MATRIS' š™ "“":d# d(0,12)"ISLEM YAPILIYOR..."; ¤d3 SKALERCARPIMK ®d3 ™ MATRISY ¸d2 MAINd:_ Â�y Ì� MATRISLERIN CARPIMI Ö�± à™ "":� I²1 ¤ 2:™:™ "MATRIS#="I:™ ""P1$:™Ä êd3 SATIR&SUTUNö ôCN(I)²CN:RN(I)²RN:‹ I±1 § ‹ CN(1)³±RN(2)‰ 490ÿ þ™ :‚; � I²1 ¤ 2:CN²CN(I):RN²RN(I):‹ RN$(I)³±"P" § d3 ¡ MATRISg ‚ :™ "“":d# d(0,12)"ISLEM YAPILIYOR..."u d3 CARPIM… &d3 ™ MATRIS“ 0d2 MAINd:™ :�® D� MATRISIN TERSI´ N�æ X™ "TERSI BULUNACAK OLAN MATRISIN;":™ ""ý bI²1:d3 SATIR&SUTUN l‹ RN³±CN‰ 610/ v‹ RN$(I)³±"P" § d3 ¡ MATRISX €™ "“":d# d(0,12)"ISLEM YAPILIYOR..."d Šd3 TERS‰ ”‹ FF²0 § 680:dG:™ "“":d3 B ° DERÎ žd# d(0,12)"VERILEN MATRISIN TERSI YOKTUR!":— 198,0:’ 198,1:‰ 690Þ ¨d3 ™ MATRISô ²— 198,0:d2 MAINd:ú ¼�Æ� MATRISIN TRANSPOZUÐ�OÚ™ "TRANSPOZU BULUNACAK OLAN MATRISIN;":™ ""fäI²1:d3 SATIR&SUTUN†î‹ RN$(I)³±"P" § d3 ¡ MATRIS¯ø™ "“":d# d(0,12)"ISLEM YAPILIYOR..."½d3 DEVRIKÍ d3 ™ MATRISÛd2 MAINd:á �ý*� MATRISIN DETERMINANTI4�<>™ "DETERMINANTI BULUNACAK OLAN MATRISIN;":™ ""SHI²1:d3 SATIR&SUTUNeR‹ RN³±CN‰ 840…\‹ RN$(I)³±"P" § d3 ¡ MATRIS®f™ "“":d# d(0,12)"ISLEM YAPILIYOR..."Ápd3 DETERMINANTÖz™ "“":d3 B ° DERý„d# d(1,10)"MATRISIN DETERMINANTI:"3Žd# d(0,12)Ä(DT):— 198,0:’ 198,1:— 198,0:d2 MAINd:9˜�I¢� EK MATRISO¬�†¶™ "EK MATRISI BULUNACAK OLAN MATRISIN;":™ ""�ÀI²1:d3 SATIR&SUTUNÎÊ‹ RN³±CN‰ 960:dG:‹ RN$(I)³±"P" § d3 ¡ MATRIS÷Ô™ "“":d# d(0,12)"ISLEM YAPILIYOR..." Þd3 DETERMINANT1è‹ DT³±0 § 1015:dG:™ "“":d3 B ° DERdíd# d(0,12)"VERILEN MATRISIN EKMATRISI YOKTUR!"‡ò— 198,0:’ 198,1:— 198,0:‰ 1040“÷d3 TERSÏü� J²1 ¤ RN:� K²1 ¤ CN:M1(1,J,K)²M2(J,K):‚ :‚ :SK²DT:I²1ãd3 SKALERCARPIMód3 ™ MATRISd2 MAINd:�.$� ********************************4.�>8� ***MBd1 ¤ PLAMAWL� ***’V� J²1 ¤ RN:� K²1 ¤ CN:M2(J,K)²M1(1,J,K)ªM1(2,J,K):‚ :‚™`d4£j� ***·td1 SKALERCARPIMÁ~� ***õˆ� J²1 ¤ RN:� K²1 ¤ CN:M2(J,K)²M1(I,J,K)¬SK:‚ :‚ü’d4œ� ***¦d1 CARPIM°� ***Vº� J²1 ¤ RN(1):� K²1 ¤ CN(2):M2(J,K)²0:� I²1 ¤ CN(1)~ÄM2(J,K)²M2(J,K)ªM1(1,J,I)¬M1(2,I,K)�΂ :‚ :‚ :RN²RN(1):CN²CN(2)¤Ød4®â� ***ºìd1 TERSÄö� *** � I²1 ¤ RN:� J²1 ¤ RN:M2(I,J)²0:M1(2,I,J)²M1(1,I,J):M1(2,I,RNªJ)²0:‚: ‚ :FF²0:� I²1 ¤ RN:M1(2,I,RNªI)²1:‚ :K²1[‹ M1(2,K,K)²0 § M²Kª1:‰ 1360‘� I²Kª1 ¤ RN:R²M1(2,I,K)­M1(2,K,K):� J²Kª1 ¤ RNªKµ#M1(2,I,J)²M1(2,I,J)«R¬M1(2,K,J)ñ(‚ :‚ :K²Kª1: ‹ K³RN‰ 1300:dG:‹ M1(2,RN,RN)²0 § FF²1:€d1)2� J²RN ¤ 1 © «1:� I²RN ¤ 1© «1:TB²0:� K²RN ¤ I © «1n<TB²TB«M2(K,J)¬M1(2,I,K):‚ :M2(I,J)²(TBªM1(2,I,RNªJ))­M1(2,I,I):‚xF‚ :d4£P‹ (M1(2,M,K)²0 ¯ M²(RN) § M²Mª1:‰ 1360ºZ‹ M²RNª1 § FF²1:d4d� J²K ¤ RNªK:R²M1(2,K,J):M1(2,K,J)²M1(2,M,J):M1(2,M,J)²R:‚ :‰1300 n� ***xd1 DEVRIK"‚� ***dŒ� J²1 ¤ RN:� K²1 ¤ CN:M2(K,J)²M1(1,J,K):‚ :‚ :E²RN:RN²CN:CN²Ek–d4u � ***ˆªd1 DETERMINANT’´� ***Ò¾SG²1:DT²1:K²1:� I²1 ¤ RN:� J²1¤ RN:M1(2,I,J)²M1(1,I,J):‚ :‚óÈ‹ M1(2,K,K)²0 § M²Kª1:‰ 15207ÒDT²M1(2,K,K)¬DT:� I²Kª1 ¤ RN:R²M1(2,I,K)­M1(2,K,K):� J²Kª1 ¤ RNuÜM1(2,I,J)²M1(2,I,J)«R¬M1(2,K,J):‚ :‚ :K²Kª1: ‹ K³RN‰ 1480ŽáDT²M1(2,RN,RN)¬DT¬SG•æd4Àð‹ (M1(2,M,K)²0 ¯ M²(RN) § M²Mª1:‰ 1520×ú‹ M²RNª1 § DT²0:d4� J²K ¤ RN:R²M1(2,K,J):M1(2,K,J)²M1(2,M,J):M1(2,M,J)²R:‚&SG²«SG:‰ 1480,�Q"� ******************************W,�a6� ***q@d1 ™ MATRIS{J� ***¶TGR²RN:GC²CN:K$²"SATIR#=":K2$²"SUTUN#":™ "“":d3 B ° DERñ^F²0:™ "PRINTER? ";:d' "",2,C$:‹ C$²"E" § Ÿ 4,4:F²1!hdF :˜4,P2$:˜4,PT$:˜4,K$;RN:˜4,K2$;"=";RN:˜4Xr� J²1 ¤ RN:™ "":N$²K$ªÄ(J)ª" ":™ ""N$:™ ""P1$vw™ ""K2$":"£13)"ELEMAN:"�|‹ F § ˜4:˜4,N$:˜4,P1$І� K²1 ¤ CN:™ ""P$:™ "‘"K£12)M2(J,K):‹ F § ˜4,M2(J,K);",";à�‚ :‹ F § ˜4 š— 198,0:’ 198,1:‚ :‹ F § ˜4:˜4,P2$:  4A¤™ d(1,22)"SONUCLARI YENIDEN GORMEK ISTERMISINIZ?"t®™ "(E/H) ";:d' "",2,C$:‹ C$²"E" § d3 ™MATRIS{¸d4…Â� ***•Ìd1 ¡ MATRISŸÖ� ***´à™ "“":d3 B ° DER÷êd 2,10:A²(25«RN)­2:B²(40«CN)­2:d A,B,CN,RN,123,7:X²1:Y²X:W²X"ô� J²1 ¤ RN:� K²1 ¤ CN:M1(I,J,K)²0:‚ :‚`þ™ "MATRIS#="I" SATIR#="Y"� SUTUN#="X"� ":S$²"":Q²0ƒPY²AªY«1:PX²BªX«1:d PY,PX,1,1¼™ d(1,23)P$:™ d(1,23)">"M1(I,Y,X)"�_ž":™ d(4,23)"";üd :¡ C$:d) C$³±"":‹ d(C$,"1234567890‘�-."ªÇ(13))²0‰ 1820&‹ d(C$,"‘�")²0‰ 1850]0Q²«(C$²"")ª(C$²"�")«(C$²"")¬CNª(C$²"‘")¬CN:d PY,PX,1,1:‰ 1880™:‹ C$²Ç(13)‰ 1870:dG:‹ Ã(S$)³16 § ™ "�"C$"_ž";:S$²S$ªC$¤D‰ 1820ÌNM1(I,Y,X)²Å(S$):Q²1:™ d(PX,PY)"Fž"XW²WªQ:‹ W³1 ° W±RN¬CN § W²«(W³1)¬RN¬CN«(W±RN¬CN)+bY²W­CN:Y²µ(Y«(d(Y)³±0)):X²W«(Y«1)¬CNPl‹ W²1 ¯ C$²Ç(13)‰ 1910:dG:‰ 1790Zvdi:d4d€� ***rŠd1 SCREEN|”� ***¹žd 0,0:™ "ž“  MATRIXCRAFT ";쨙 " MATRIS ISLEMLERI PROGRAMI ";²™ "ž BYNOYAN KINAYMAN ’"0·d 1,13,1,0,0r¼F$(1)²"MATRISLERIN TOPLAMI":F$(2)²"MATRISIN SKALERLE CARPIMI"©ÆF$(3)²"MATRISLERIN CARPIMI":F$(4)²"MATRISIN TERSI"æÐF$(5)²"MATRISIN TRANSPOZU":F$(6)²"MATRISIN DETERMINANTI"üÚF$(7)²"EK MATRIS"äF$(8)²"CIKIS":J²1:d3 B ° DERFî� I²1 ¤ 8:d# d(0,4ª2¬I)F$(I):‚ :L²36[ød 4ªJ¬2,1,Lª2,1Žd :¡ C$:d) C$³±"":‹ d(C$,"‘ "ªÇ(13))²0‰ 2050Ñ ‹ C$²Ç(13)‰ 2090:dG:d 4ªJ¬2,1,Lª2,1:‹ C$²"‘" § J²J«1:dG:J²Jª1ô‹ J³1 ° J²9 § J²«(J³1)¬8«(J²9)ÿ ‰ 20403 *™ "“":dh 1:d# d(0,1)F$(J):d 1,1,38,1:PT$²F$(J)B 4d3 B ° DERI >d4S H� ***b Rd1 B ° DERl \� ***° f™ "°":d 0,1,38,1,67,7:— 1063,110:d 1,39,1,23,66,7:— 2023,125â pd 24,1,38,1,67,7:— 1984,109:d 1,0,1,23,66,7é zd4ó „� ***!Žd1 SATIR&SUTUN!˜� ***J!¢RN$(I)²"":™ "SATIR#=";:d' "",2,RN$:‹ RN$²"P"‰ 2250m!¬RN²Å(RN$):‹ RN±20 ° RN³2‰ 2210£!¶™ £15)"SUTUN#=";:d' "",2,CN:‹ CN±20 ° CN³2‰ 2220ª!Àd4Ã!Ê‹ GR³2 ° GC³2 § 2210"ÔRN$(I)²"P":� J²1 ¤ GR:� K²1 ¤ GC:M1(I,J,K)²M2(J,K):‚ K,JA"Þ™ "SATIR#="GR;£15)"SUTUN#="GC:™ :™ "‘‘";:RN²GR:CN²GC:‰ 2240G"è�T"òd1 NSOFTZ"ü�n" dh 1:db 0,13¬64Œ" @........................ª" @........................È"8 @........................æ"B @........................#L @....BBBBBBBBBBBBBBBBBBBB"#V @....B...................@#` @BB..B.BBBB.BBBB.BBBB.BBB^#j @BB..B.B....B..B.B.....B.|#t @B.B.B.B....B..B.BBB...B.š#~ @B.B.B.BBBB.B..B.B.....B.¸#ˆ @B.B.B....B.B..B.B.....B.Ö#’ @B..BB....B.B..B.B.....B.ô#œ @B..BB.BBBB.BBBB.B.....B.$¦ @......................B.0$° @BBBBBBBBBBBBBBBBBBBBBBB.N$º @........................l$Ä @.BBB......B.BBB.BBB.BBB.Œ$Î @.B.BBB...BB.B.B.B.B.B.B.B.ª$Ó @.B.BB.....B.BBB.BBB...B.È$Ø @.B.BBB....B...B.B.B...B.æ$Ý @.BBB......B.BBB.BBB...B.ø$â d 1,13,1,0,0%ì dc 1,164,220,1,10%ö d4