d� *********************2n� * SINUSOIDAL *Is� * STEADY STATE *\x� * ANALYSIS *f‚� * *pŒ� * *‹–� * BY NOYAN (C)1988 *• � * *±ª� *********************·´�ݾ� C-64, THERE IS NO ONE LIKE YOU!ûȆ A1(7,10,10),A2(7,10,10) Ò† T1(1,10,10),T2(1,10,10)B ð� I²0 ¤ 5:‡ P(I):‚ :ƒ 0,4,8,11,21,31P úd3 SCREENY d3 …c d3 Ë!¡ ™ "“":™ d(0,12)" P’OLAR FORM R’ECTANGULAR FORM"Õ d :¡ C$:d) C$²"P" ° C$²"R":SS²0:‹ C$²"R" § SS²1é PR²0:d3 RESULTS "™ d(0,24)"PRINTER? (E/H)";:d :¡ C$:d) C$³±""1 ,‹ C$²"E" § d3 ™ ERs 6™ d(0,24)"SONUCLARI YENIDEN GORMEK ISTIYORMUSUNUZ";:— 2023,63˜ @d :¡ C$:d) C$³±"":‹ C$²"E" § 275ž JЍ �� ***² šd1 Ë!¼ ¤� ***ï ©™ "“":d# d(0,12)"LUTFEN BEKLEYINIZ...":NN²NN«1) ®PS²1:M1²1:C1²BN:R1²NN:M2²2:C2²BN:R2²BN:M3²5:d3 MATMULb ¸PS²2:M1²5:C1²BN:R1²NN:M2²3:C2²1:R2²BN:M3²6:d3 MATMUL› ÂPS²3:M1²1:C1²BN:R1²NN:M2²4:C2²1:R2²BN:M3²7:d3 MATMULÙ ÌPS²4:M1²6:C1²1:R1²NN:M2²7:C2²1:R2²NN:M3²6:SN²«1:d3 MATADD ÖPS²5:M1²1:C1²BN:R1²NN:M2²1:d3 MATTRANS> àPS²6:M1²5:C1²BN:R1²NN:M2²1:C2²NN:R2²BN:M3²7:d3 MATMULf êPS²7:M1²7:C1²NN:R1²NN:M3²7:d3 MATd ~ ï‹ FF § d2 TERMINATE· ôPS²8:M1²7:C1²NN:R1²NN:M2²6:C2²1:R2²NN:M3²6:d3 MATMULð þPS²9:M1²1:C1²NN:R1²BN:M2²6:C2²1:R2²NN:M3²7:d3 MATMUL* PS²10:M1²2:C1²BN:R1²BN:M2²7:C2²1:R2²BN:M3²5:d3 MATMULh PS²11:M1²5:C1²1:R1²BN:M2²4:C2²1:R2²BN:M3²5:SN²1:d3 MATADD¢ PS²12:M1²2:C1²BN:R1²BN:M2²3:C2²1:R2²BN:M3²4:d3 MATMULá &PS²13:M1²5:C1²1:R1²BN:M2²4:C2²1:R2²BN:M3²5:SN²«1:d3 MATADDè :d4ò X� ***bd1 RESULTS l� ***Kv™ "“NODE VOLTAGES:":™ P$:� J²1 ¤ NN:R²A1(6,J,1):I²A2(6,J,1)z{‹ SS § ™ "E("J")=";R"�+J("I")":‚ :™ :‰ 660‡€d3 'TETA¬Š™ "E("J")=";MG"�*EXP("AG")":‚ :™í”™ "BRANCH VOLTAGES:":™ P$:� J²1 ¤ BN:R²A1(7,J,1):I²A2(7,J,1)™‹ SS § ™ "V("J")=";R"�+J("I")":‚ :™ :‰ 690(žd3 TETAM¨™ "V("J")=";MG"�*EXP("AG")":‚ :™Š²‹ PR²0 § ™ d(0,24)"DEVAM ICIN HERHANGI BIR TUSA BASIN.";¤·dF :d :¡ C$:d) C$³±""ÓÆ‹ SS § ™ "J("J")=";R"�+J("I")":‚ :™ :‰ 750ßÐd3 TETA Ú™ "J("J")=";MG"�*EXP("AG")")":NEXT :PRINTîd4& � *** SUBPROC2*d1 TETA<4� ***|>MG²º(R¬RªI¬I):AG²0:‹ R³±0 § AG²Á(I­R)¬180­ÿª180¬(R³0 ¯ I³0)–HAG²AG«180¬(R³0 ¯ I±0)�Rd4§è� ***³òd1 ™ ER½ü� ***øŸ 4,4:˜4:  4:‹ ST³0 § ™ d(0,24)"PRINTER BAGLI DEGIL!";dF :df 2:d4G PR²1:  3:Ÿ 4,4:� 4:™ P2$:™ "STEADY-STATE CIRCUIT ANALYSIS"…™ "PROGRAM RESULTS:":™ :™ "NODE# ="NNª1:™ "BRANCH#="BN:™”d3 RESULTS±$™ P2$:˜4:˜4:  4:Ÿ 3,3:d4»Ð� ***ÄÚd1 …Îä� ***çî™ "“";:™ P$:™ :™ P$$ø™ "NODE SAYISI BRANCH SAYISI ":™ d(12,1)":";dd' "",3,NN:™ d(33,1)":";:d' "",3,BN:‹ BN±10 ° NN±10‰ 2040˜ ™ :™ "BNC FRM TO ADMITT. VOLT. S. CUR. S."Ñ™ "YYY YYY YY YYYYYYYY YYYYYYYYYYYY":� I²1 ¤ BN:d3 ¡ä ‚ :d1 DUZELTME*™ d(0,24)"VERILERI DUZELTMEK ISTIYORMUSUNUZ?";;4d :¡ C$:d) C$³±"":‹ C$²"H" § d4ƒ>™ d(0,24)dU(" ",39)"‘HANGI BRANCH'I?:";:d' "",3,RN:‹ RN±BN § 2110‘HI²RN:d3 ¡¡Rd2 DUZELTME³˜� *** SUBPROC¼¢d1 ¡Æ¬� ***Ù¶™ d(P(0),Iª5)I »� J²1 ¤ 5:™ d(P(J),Iª5)"";:d' "JE",9,D$(J):‚:ÀA²Å(D$(1)):B²Å(D$(2)):‹ A±NN ° B±NN § d2 ¡oÊA1(1,A,I)²1:A1(1,B,I)²«1:A2(1,A,I)²0:A2(1,B,I)²0ŸÏ� J²3 ¤ 5:L$²D$(J):L²Ã(L$):U²I:‹ J±²4 § U²1ÙÔC²0:d :C²Cª1:d) Ê(L$,C,1)²"J" ° C²L:A1(J«1,I,U)²Å(L$)üÞA2(J«1,I,U)²Å(É(L$,L«C)):‚ :d4¸ � *** d1 MATMULÌ � ***/Ñ ™ d(31,12)PSlÖ � I²1 ¤ R1:� J²1 ¤ C2:SR²0:SI²0:� K²1 ¤ C1:d3 COMPLEXMUL¤à SR²SRªGR:SI²SIªGI:‚ :T1(1,I,J)²SR:T2(1,I,J)²SI:‚ :‚èê � I²1 ¤ R1:� J²1 ¤ C2:A1(M3,I,J)²T1(1,I,J):A2(M3,I,J)²T2(1,I,J)ñô ‚ :‚øþ d4 � ***ªd1 MATd ´� ****¹™ d(31,12)PSp¾FF²0:� I²1 ¤ C1:� J²1 ¤ C1:T1(1,I,J)²«(I²J):T2(1,I,J)²0:‚ :‚ :X²0~ÈX²Xª1:Z²X¹Ò‹ (A1(M1,Z,X)²0 ¯ A2(M1,Z,X)²0) § Z²Zª1:‹ Z²³C1 § 4050Î׋ Z±C1 § FF²1:d4Ü‹ Z³±X § R1²A1(M1,Z,X):I1²A2(M1,Z,X):DN²R1¬R1ªI1¬I10ádF :R1²R1­DN:I1²«I1­DN:I²X:K²Z:� 4120tæ‹ (A1(M1,X,X)³±1 ° A2(M1,X,X)³±0) § R1²A1(M1,X,X):I1²A2(M1,X,X)©ëdF :DN²R1¬R1ªI1¬I1:R1²R1­DN:I1²«I1­DN:I²X:� 4150¸ð� I²1 ¤ C1Øõ‹ I²X § I²Iª1:‹ I±C1 § 4100ú‹ (A1(M1,I,X)³±0 ° A2(M1,I,X)³±0) § R1²«A1(M1,I,X):I1²«A2(M1,I,X)1ÿdF :K²X:� 4120F‚ :‹ X³C1 § 4040� � I²1 ¤ C1:� J²1 ¤ C1:A1(M3,I,J)²T1(1,I,J):A2(M3,I,J)²T2(1,I,J):‚ :‚–d4¨� *** SUBPROCé� J²1 ¤ C1:A1(M1,I,J)²A1(M1,I,J)ªR1¬A1(M1,K,J)«I1¬A2(M1,K,J)A2(M1,I,J)²A2(M1,I,J)ªR1¬A2(M1,K,J)ªI1¬A1(M1,K,J)Q"T1(1,I,J)²T1(1,I,J)ªR1¬T1(1,K,J)«I1¬T2(1,K,J)ˆ'T2(1,I,J)²T2(1,I,J)ªR1¬T2(1,K,J)ªI1¬T1(1,K,J):‚ :Žš,� *** SUBPROCÖ6� J²1 ¤ C1:Q1²A1(M1,I,J):A1(M1,I,J)²R1¬Q1«I1¬A2(M1,I,J);A2(M1,I,J)²R1¬A2(M1,I,J)ªI1¬Q1:Q1²T1(1,I,J)'@T1(1,I,J)²R1¬Q1«I1¬T2(1,I,J)MET2(1,I,J)²R1¬T2(1,I,J)ªI1¬Q1:‚ :ŽWˆ� ***g’d1 MATTRANSqœ� ***‚¡™ d(31,12)PS˦� I²1 ¤ R1:� J²1 ¤ C1:T1(1,J,I)²A1(M1,I,J):T2(1,J,I)²A2(M1,I,J):‚ :‚°� I²1 ¤ C1:� J²1 ¤ R1:A1(M2,I,J)²T1(1,I,J):A2(M2,I,J)²T2(1,I,J):‚ :‚ºd4%p� ***3zd1 SCREEN=„� ***u‰P$²dU("C",39):P2$²dU("-",40):P3$²dU("QQŸQœQQ",8)¡Žd 0,0:™ "“":™ d(0,10)P3$:™ d(0,14)P3$Ù˜™ d(0,12)"SINUSOIDAL STEADY-STATE CIRCUIT ANALYSIS"¢d# d(0,17)"BY NOYAN KINAYMAN":d# d(0,24)"PRESS F1 KEY TO GO!"E¬d 10,0,40,1:d 14,0,40,1:‹ dV²1 § d4e±dF :dG:� I²0 ¤ 30:‚ :‰ 6060oX� ***€bd1 TERMINATEŠl� ***¸vd# d(0,12)"UZGUNUM, YN MATRISI SINGULAR!"Ѐd :¡ C$:d) C$³±"":ŠÚ@� ***ìJd1 COMPLEXMULöT� ***)^GR²A1(M1,I,K)¬A1(M2,K,J)«A2(M1,I,K)¬A2(M2,K,J)\hGI²A1(M1,I,K)¬A2(M2,K,J)ªA2(M1,I,K)¬A1(M2,K,J)crd4mø*� ***{\+d1 MATADD…À+� ***–Å+™ d(31,12)PSÔ$,� I²1 ¤ R1:� J²1 ¤ C1:A1(M3,I,J)²A1(M1,I,J)ªSN¬A1(M2,I,J)üˆ,A2(M3,I,J)²A2(M1,I,J)ªSN¬A2(M2,I,J)ì,‚ :‚ P-d4