% *****************************/ * *R * UC BILINMEYENLI KOMPLEKS *k * DENKLEM COZUMU *u( * *2 *****************************7<AF MX(2,2,7),LB$(3),CO(2,7)P2000:DSM:1500:1000 Z CALCULATION OF DETERMINANT dZ131 n1400:ASR:BSI:CMX(0,0,0)G xDMX(0,0,1):1000a DRDRX:DIDIY:1200g ADR:BDI:1600:DVSV:DASA TRANSPOSITION CL02 RW02 1400:ASR:BSI:CDR:DDI 1100 MX(RW,CL,4)X:MX(RW,CL,5)Y 1200 :1300 % "M3:18005 '2400:2700L ,(147);"OPTIONS:"c 6"" @"1-PRINT MATRIX (RECT.)" J"2-PRINT MATRIX (POLAR)" T"3-PRINT INV. MTX (RECT.)" ^"4-PRINT INV. MTX (POLAR)" h"5-PRINT DETERMINANT" r"6-PRINT COLUMN MATRIX"5 w"7-PRINT PRODUCT MATRIX"I |"B-END OF RUN"\ A$:A$""400w (A$)48(A$)57400 DS(A$) DS51500:320 DS51700:320 (147):"DETERMINANT": " REAL","IMAGINARY" DR,DI: " VECTOR"," ANGLE"! DV,DA180::320' A XACBD:YBCAD:O LECCDDo VX(ACBD)E:Y(BCAD)E `(X).0001X0 j(Y).0001Y0 t Q02: ROTATE LEFT BMX(Q,0,0):CMX(Q,0,1) W01 MX(Q,W,0)MX(Q,W1,0) MX(Q,W,1)MX(Q,W1,1)/ :MX(Q,2,0)B:MX(Q,2,1)C7 :N W02: ROTATE UPj BMX(Q,W,0):CMX(Q,W,1)u (Q01 2MX(Q,W,0)MX(Q1,W,0) <MX(Q,W,1)MX(Q1,W,1) F:MX(2,W,0)B:MX(2,W,1)C P: xAMX(1,1,0):BMX(1,1,1)}CMX(2,2,0):DMX(2,2,1)1000:SRX:SIY7AMX(1,2,0):BMX(1,2,1)SCMX(2,1,0):DMX(2,1,1)m1000:SRSRX:SISIYs(147):DS4DS1515,1520,1525,15301535"MATRIX (RECT. FORM)":"MATRIX (POLAR FORM)":"INV.MTX(RECT. FORM)":!"INV.MTX(POLAR FORM)":>"":IQ02c MX(Q,0,2DS2);13);}MX(Q,1,2DS2);26);MX(Q,2,2DS2)DS2DS41580MX(Q,0,2DS1);13);"MX(Q,1,2DS1);26);'MX(Q,2,2DS1)::1595,MX(Q,0,2DS1)180;13);51MX(Q,1,2DS1)180;26);Q6MX(Q,2,2DS1)180:Y;:k@SV(AABB)JA0SA(B)2:TA0SA(BA):^B0SA(BA):hSA(BA):DSDS5:DS1705,1795,1798(147);"COLUMN MATRIX"""*"RECTANGULAR POLAR"C" "NQ02fCO(Q,4DS4);20);xCO(Q,4DS2)CO(Q,4DS3);20);CO(Q,4DS1)180::(147);"PRODUCT MATRIX"""1720 M=1:REC>POL / M=2:POL>REC0M1820,1860,1820,1860BQ02:W02f&AMX(Q,W,2M2):BMX(Q,W,2M1)p+16000MX(Q,W,2M)SV:MX(Q,W,2M1)SA:::DQ02:W02NVRMX(Q,W,2M2):AEMX(Q,W,2M1)XMX(Q,W,2M4)VR(AE) ]MX(Q,W,2M3)VR(AE)b::+Q03:LB$(Q):=(147):::T" "f" 3 X 3 "z" COMPLEX "" MATRIX "" OPERATIONS " " ":" INPUT OPTIONS" " "*4" 1-RECT. PARAMETERS"+>" 2-POLAR PARAMETERS"KH PRINT", 3-DIRECT EQUATIONSR:p\"ENTER YOUR SELECTION";fA$:A$""2150p(A$)48(A$)572150zM(A$):M1M22290(147)Q02:W02:A$((10(Q1)W1),2)")"LB$(2M2);A$;#MX(Q,W,2M2)7LB$(2M1);A$;JMX(Q,W,2M1)R:^M2pQ02:W02MX(Q,W,3)MX(Q,W,3)180:: MATRIX EXCHANGE Q02:W02:E03 T1MX(Q,W,E) MX(Q,W,E)MX(Q,W,E4)$ MX(Q,W,E4)T1. :::` (147)@j "COLUMN MATRIX INPUT OPTIONS"jt "----------------------------------"~ "1-RECTANGULAR FORM" "2-POLAR FORM" "3-NO INPUT" A$:A$""2460 A$"3" A$"2"A$"1"2460 A(A$)  (147):Q02:W01# A$((Q1),1)")"9 LB$(2A2W);A$;L CO(Q,2A2W)k A2CO(Q,3)CO(Q,3)180u :: A2570,2610 Q02 ACO(Q,0):BCO(Q,1):1600 CO(Q,2)SV:CO(Q,3)SA( :2 Q02< CO(Q,0)CO(Q,2)(CO(Q,3))F CO(Q,1)CO(Q,2)(CO(Q,3))"P :? INV.MTX.TIMES COL.MTX.] RW02:PR0:PI0:CL02} AMX(RW,CL,4):BMX(RW,CL,5) CCO(CL,0):DCO(CL,1) 1000:PRPRX:PIPIY :APR:BPI:1600 CO(RW,4)PR:CO(RW,5)PI CO(RW,6)SV:CO(RW,7)SA :(#"REAL(","IMAG("42#"VECTOR(","ANGLE("