EP� PROGRAMI YAZMADAN ONCE SIMONS'BASIC'I KOSTURMAYI UNUTMAYIN...fZdg:dr "I":TI$²"000000":‰ 200‹d!««««««««««««««««««««««««««««««!œn! ¿USOIDAL !¹s! STEADY«STATE CIRCUIT !Êx! ANALYSIS !Ò‚! !õ‡! VERSI‘ 2.1 DEP€ENT SOURCES !ýŒ! ! –! BY NOYAN (C)1988 !  ! !& ª! !K ´!««««««««««««««««««««««««««««««!ˆ Ȇ A1(7,10,10),A2(7,10,10),T1(1,10,10),T2(1,10,10),C$(40)– Üd3 SCREEN¢ æd2 EDIT¬ ð� ***µ úd1 Š¿ � ***ý BT$²TI$:™ d(0,23)P5$"RUNNING...":d 0,16,3,1:‹ RF²0 § 280 V1²5:V2²7:d3 CLEAR9 NN²NN«1:‹ DF § d3 DEP€ENTSOURCESC d3 Ë!w ‹ FF²0 § ™ d(0,23)P5$"ISTENILEN VERILER HAZIR."— d 0,16,3,1:ET$²TI$:d2 EDIT¡ "� ***« 'd1 dµ ,� ***ã 1PF²0:d 0,20,3,1:‹ OF ¯ 1 § dz:d3 RESULTS 6dg:‹ OF ¯ 2 § PF²1:d3 ™ ER Jd 0,20,3,1:d2 EDIT$ �� ***. šd1 Ë!8 ¤� ***r ®PS²1:M1²1:C1²BN:R1²NN:M2²2:C2²BN:R2²BN:M3²5:d3 MATMUL« ¸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 MATADDM Ö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 MATMUL¶ ê™ d(12,23)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 ù‹ RF²1 § d4P þPS²9:M1²1:C1²NN:R1²BN:M2²6:C2²1:R2²NN:M3²7:d3 MATMULf ‹ (RF ¯ 4)²0 § d4  PS²10:M1²2:C1²BN:R1²BN:M2²7:C2²1:R2²BN:M3²5:d3 MATMULÞ PS²11:M1²5:C1²1:R1²BN:M2²4:C2²1:R2²BN:M3²5:SN²1:d3 MATADDPS²12:M1²2:C1²BN:R1²BN:M2²3:C2²1:R2²BN:M3²4:d3 MATMULW&PS²13:M1²5:C1²1:R1²BN:M2²4:C2²1:R2²BN:M3²5:SN²«1:d3 MATADD^:d4hX� ***wbd1 RESULTS�l� ***˜q‹ (RF ¯ 1)²0 § 655Øv™ "“NODE VOLTAGES:":™ P$:� J²1 ¤ NN:R²A1(6,J,1):I²A2(6,J,1){‹ MF § ™ "E("J")=";R"�+J*"I:‚:™:‰ 650€d3 TETA4…™ "E("J")=";MG"�*EXP(J*"AG")":‚:™GŠ‹ PF²0 § � 760^�‹ (RF ¯ 2)²0 § 690 ”™ "“BRANCH VOLTAGES:":™ P$:� J²1 ¤ BN:R²A1(7,J,1):I²A2(7,J,1)Ê™‹ MF § ™ "V("J")=";R"�+J*"I:‚:™:‰ 685Öžd3 TETAü¨™ "V("J")=";MG"�*EXP(J*"AG")":‚:™­‹ PF²0 § � 760&²‹ (RF ¯ 4)²0 § 750h¼™ "“BRANCH CURRENTS:":™ P$:� J²1 ¤ BN:R²A1(5,J,1):I²A2(5,J,1)’Æ‹ MF § ™ "J("J")=";R"�+J*"I:‚:™:‰ 735žÐd3 TETAÄÚ™ "J("J")=";MG"�*EXP(J*"AG")":‚:™×ß‹ PF²0 § � 760Þîd4ø™ d(0,23)"DEVAM ICIN HERHANGI BIR TUSA BASIN.";-dF:d :¡ C$:d) C$³±"":ŽB � *** SUBPROC #1N*d1 TETAX4� ***˜>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,23)P5$"PRINTER BAGLI DEGIL!" dF:d4Z   3:Ÿ 4,4:� 4:™ P2$:™ "STEADY-STATE CIRCUIT ANALYSIS"{™ "VERSION 2.1 (C) 1988"¹™ "PROGRAM RESULTS=":™ :™ "NODE =";NN:™ "BRANCH #=";BN:™ÿ™ "ANALIZIN BASLAMA ZAMANI:";BT$:™ "ANALIZIN BITIS ZAMANI :";ET$™ :d3 RESULTS.$™ P2$:˜4:˜4:  4:Ÿ 3,3:d48Ð� ***DÚd1 EDITNä� ***xød 0,1,4,1:™ d(XX,YY)"";:d YY,XX,1,1¸¡ C$:‹ C$²"“" ° C$²"" § 2050:dG:‹ Â(653)²2 ¯ C$³±"" § 2100ö ‹ XXªYY²60 ° (YY²21 ¯ d(C$,K1$)) § ‹ d(C$,K2$)²0 § 2050,‹ XXªYY²1 ° (YY²1 ¯ C$²"‘") § ‹ d(C$,K2$) § 2050I‹ C$²Ç(13) § C$²"_’"ªC$ˆ d YY,XX,1,1:™ C$;:XX²Â(211):YY²Â(214):‹ XX±²40 § XX²XX«40 *d YY,XX,1,1:‰ 2050Ò4d YY,XX,1,1:d 0,1,4,1:‹ C$²"S" § d2 SCREEN”ì>‹ C$²"L" § d2 SCREEN“H‹ C$²"C" § d2 COMPILER‹ C$²"R" § d2 Š/\‹ C$²"O" § d2 dRf‹ C$²"Q" § d 0,35,4,1:™ "“":€^pd2 EDITh˜� ***w¢d1 COMPILE�¬� ***«®d 0,7,7,1:™ d(0,23)P5$"COMPILING..."ï±KM$²"NN="ª"BN="ª"CRT"ª"PRN"ª"POL"ª"REC"ª"NDV"ª"BNV"ª"BNC"ª"END"+²Y²0:EC²Y:F²Y:T²Y:DF²Y:OF²Y:MF²Y:RF²Y:V1²1:V2²4:d3 CLEART¶d :X²0:d :M²1064ªY¬40ªX:C²Â(M):X²Xª1h»d) C³±32 ° X²40ŸÀ‹ C²42 ° C²159 ° X²40 § 2620:dG:X²0:‹ C²46 § M²Mª1¬Åd1 SEdkHÒÊA$²"":d :W²Â(MªX):‹ W³32 § W²Wª64ÔA$²A$ªÇ(W):X²Xª1:d) W²159 ° W²58 ° X²40:L²Ã(A$):A$²È(A$,L«1)DÞ‹ X²40 § EC²1:X²X«1:‰ 2610:dG:‹ C³±46 § 2350vãA1$²È(A$,3):E²d(A1$,KM$):‹ E²0 § EC²2:‰ 2610‘è‹ É(A1$,1)³±"=" § 2310ÀòD²Å(É(A$,L«4)):‹ D³²0 ° D±10 § EC²3:‰ 2610Æ÷�çü‹ E²1 § NN²D:dG:‹ E²4 § BN²Dò ‰ 2600ø �  ‹ E²7 § OF²OFª1! ‹ E²10 § OF²OFª2D ‹ E²13 § MF²0:dG:‹ E²16 § MF²1Y ‹ E²19 § RF²RFª1n ‹ E²22 § RF²RFª2ƒ ‹ E²25 § RF²RFª4” ‹ E²28 § F²1Ÿ ‰ 2600¥$ �Ê. C²1:C$(C)²"":I²1:d :C$²Ê(A$,I,1)8 C$(C)²C$(C)ªC$:I²Iª1:C$²Ê(A$,I,1):‹ C$²" " ° C$²"," § C²Cª1:C$(C)²""E= C$²Ê(A$,I,1):‹ C$²" " ° C$²"," § I²Iª1:‰ 2365R> d) I²Lª1�B ‹ C±6 § EC²4:‰ 2610:dG:N²Å(C$(1)):N1²Å(C$(2)):N2²Å(C$(3))ÔG ‹ (N±BN ° N1±NN ° N2±NN) ° (N²³0 ° N1²³0 ° N2²³0) § EC²5:‰ 2610óL A1(1,N1,N)²1:A1(1,N2,N)²«1-V I²4:d::C$²C$(I):A²d("J",C$):L²Ã(C$):U²N:‹ I±²5 § U²1=[ ‹ A²0 § A²L_` A1²Å(È(C$,A)):A2²Å(É(C$,L«A)) e ‹ I²4 § A3²A1¬A1ªA2¬A2:‹ A3²0 ° A1³0 ° A2³0 § EC²7:d5 ‹ EC²7¿h ‹ I²4 § A1²A1­A3:A2²«A2­A3ðj A1(I«2,N,U)²A1:A2(I«2,N,U)²A2:I²Iª1:d5 ‹ I²7o d6:‹ EC²7 § 26104t ‹ È(C$(5),1)³±"S" ¯ È(C$(6),1)³±"S" § 2600C~ T²Tª1:DF²1„ˆ DV(T)²0:H²5:� 2520:‹ B²0 § 2460:dG:‹ I²5 ° I±2 § EC²6:‰ 2610¶’ L²Ã(C$(H)):V$(T)²É(C$(H),L«1):DV(T)²1:LS(T)²N÷œ DC(T)²0:H²6:� 2520:‹ B²0 § 2600:dG:‹ I²5 ° I³2 § EC²6:‰ 2610)¦ L²Ã(C$(H)):I$(T)²É(C$(H),L«1):DC(T)²1:LS(T)²N4Ä ‰ 2600RØ B²d("S",C$(H)):‹ B²0 § އâ I²0:d :I²Iª1:A²d(Ç(64ªI),C$(H)):d) A³±0 ° I²4:ŽÆ( P²Â(1957)«30:— 1957,21¬(P ¯ 2)ª4¬(P ¯ 8):‹ W²58 § d2 SEdkHØ2 ‹ EC³±0 § F²1< Y²Yª1:d) Y²21 ° F²1:‹ EC³±0 § d2 KOMIK2F ™ d(0,23)P5$"NO ERROR.":d 0,7,7,1:d2 EDIT<P � ***IZ d1 KOMIKSd � ***vn ™ d(0,23)P5$">>>ERROR:"ER$(EC)¢x ™ d(Y,X)"":YY²Y:XX²X:d 0,7,7,1:d2 EDIT¬¸ � ***º d1 MATMULÄÌ � ***ÕÑ ™ d(12,23)PSÖ � I²1 ¤ R1:� J²1 ¤ C2:SR²0:SI²0:� K²1 ¤ C1:Û SR²SRªA1(M1,I,K)¬A1(M2,K,J)«A2(M1,I,K)¬A2(M2,K,J)pà SI²SIªA1(M1,I,K)¬A2(M2,K,J)ªA2(M1,I,K)¬A1(M2,K,J)–å ‚ :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 ´� ***Q¾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¬I1 ádF :R1²R1­DN:I1²«I1­DN:I²X:K²Z:� 4120U æ‹ (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)!ÿdF :K²X:� 4120'!‚ :‹ X³C1 § 4040p! � I²1 ¤ C1:� J²1 ¤ C1:A1(M3,I,J)²T1(1,I,J):A2(M3,I,J)²T2(1,I,J):‚ :‚w!d4Œ!� *** SUBPROC #3Í!� 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)5""T1(1,I,J)²T1(1,I,J)ªR1¬T1(1,K,J)«I1¬T2(1,K,J)l"'T2(1,I,J)²T2(1,I,J)ªR1¬T2(1,K,J)ªI1¬T1(1,K,J):‚ :Ž�",� *** SUBPROC #4½"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)4#ET2(1,I,J)²R1¬T2(1,I,J)ªI1¬Q1:‚ :Ž>#ˆ� ***N#’d1 MATTRANSX#œ� ***i#¡™ d(12,23)PS±#¦� I²1 ¤ R1:� J²1 ¤ C1:T1(1,J,I)²A1(M1,I,J):T2(1,J,I)²A2(1,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� ***$zd1 SCREEN#$„� ***S$‰P$²dU("C",40):P2$²dU("-",40):P5$²dU(" ",39)x$ŽP5$²P5$ªdU("�",39):d 2,2:™ "ž“"¸$�� I²1 ¤ 7:‡ ER$(I):‚ :ƒ UNUTULMUS,BILINMEYEN KOMUTÖ$�ƒ SAYI LIMITLERIN DISINDAû$‘ƒ VERI SATIRINDA FAZLA BILGI VAR %’ƒ BRANCH VEYA NODE #LARI UYUMSUZb%“ƒ BAGIMLI KAYNAK VERILERI HATALI,SIFIR VEYA NEGATIF IMPEDANCEª%–� I²49152 ¤ 49348:‡ A:— I,A:‚ :‡ C1$,C2$,C3$,C4$:C$²C1$ªC2$ªC3$ªC4$Ú%˜� I²1 ¤ 255:A²Æ(Ê(C$,I,1)):‹ A±²65 § A²A«64ì%™— 49348ªI,A:‚9&šƒ 165,1,141,61,3,160,0,132,253,132,198,160,103,132,251,162,0,160,208,132Š&›ƒ 254,189,197,192,201,32,144,5,56,233,32,230,254,10,10,10,133,253,138,72,162Ö&œƒ 0,169,0,141,60,3,169,5,133,252,120,173,61,3,41,251,133,1,160,0,152,72"'�ƒ 177,253,61,189,192,240,4,169,160,208,2,169,32,192,7,208,2,230,252,172o'žƒ 60,3,145,251,173,60,3,24,105,40,141,60,3,104,168,200,192,8,208,214,173¹'Ÿƒ 61,3,133,1,88,32,133,192,165,198,240,2,104,96,232,224,8,208,175,104( ƒ 170,232,224,255,208,143,76,15,192,160,160,185,223,5,153,236,194,185N(¡ƒ 63,5,153,36,194,136,208,241,160,160,185,236,194,153,222,5,185,36,194˜(¢ƒ 153,62,5,136,208,241,169,32,141,63,5,138,72,162,0,160,0,200,208,253Ñ(£ƒ 232,224,15,208,246,104,170,96,128,64,32,16,8,4,2,1)¤ƒ "HERKESE MERHABA... **SINUSOIDAL STEADY-STATE DEVRE ANALIZI**"[)¥ƒ " VERSION 2.1... BY NOYAN KINAYMAN (C)1988 METU..."¦)¦ƒ " SU ANDA, EVRENIN UZAK BIR KOSESINDE YENI BIR HAYAT YESERIYOR O"ô)§ƒ "LABILIR... ONA SANS DILEYIN VE BASLAMAK ICIN BIR TUSA BASIN... " *¨ž 49152:¡ C$:d 0,0G*¶™ "“ EDIT COMPILE RUN OUT SAVE LOAD QUIT ’":™ d(0ˆ*ÀXX²0:YY²1:K1$²""ªÇ(13):K2$²"‘�"ªÇ(20):K3$²"�‘"ªÇ(20)ªÇ(13)�*Êd4™*X� ***ª*bd1 TERMINATE´*l� ***Ú*v™ d(0,23)P5$" MATRISI SINGULAR!"á*€d4ë*(#� ***+2#d1 DEP€ENT SOURCES +<#� ***+æ#� ***(+ð#� VCCS & VCVS2+ú#� ***@+$� I²1 ¤ Th+$‹ DC(I) § C$²I$(I):‰ 9240:dG:‰ 9260z+$J$²"C":d3 VIR˜+"$‹ FL § A1(2,R,C)²P:‰ 9290À+,$‹ DV(I) § C$²V$(I):‰ 9270:dG:‰ 9290Ò+6$J$²"A":d3 VIR ,@$‹ FL § A1(2,R,C)²«P¬A1(2,R,R):A2(2,R,C)²«P¬A2(2,R,R),J$‚,š$� ***-,¤$� CCCS & CCVS7,®$� ***I,¸$Q²0:� I²1 ¤ Tq,½$‹ DC(I) § C$²I$(I):‰ 9410:dG:‰ 9430ƒ,Â$J$²"D":d3 VIR¹,Ì$‹ FL § Q²Qª1:P1(Q)²P:P2(Q)²0:C(Q)²C:R(Q)²R:‰ 9460á,Ö$‹ DV(I) § C$²V$(I):‰ 9440:dG:‰ 9460ó,à$J$²"B":d3 VIR8-ê$‹ FL § Q²Qª1:P1(Q)²«P¬A1(2,R,R):P2(Q)²«P¬A2(2,R,R):C(Q)²C:R(Q)²RN-ô$‚ :‹ Q³±0 § d3 CCU-þ$d4j-Ð%� *** SUBPROC #5t-Õ%d1 CC~-Ú%� ***¹-ä%UN²Q:QS²Q:� I²1 ¤ Q:FL²1:� J²1 ¤ UN:‹ C(I)²R(J) § FL²0Ú-î%‚ :‹ FL § UN²UNª1:R(UN)²C(I)æ-ø%‚ :Q²UN).&� I²1 ¤ Q:A1(7,I,I)²1:� J²1 ¤ Q:‹ C(I)²R(J) § A1(7,I,J)²«P1(I)B. &dF :A2(7,I,J)²«P2(I)K.&‚ :‚l. &M1²7:C1²Q:R1²Q:M3²7:d3 MATd ¦.%&� J²1 ¤ Q:R2²R(J):U1(J)²A1(2,R2,R2):U2(J)²A2(2,R2,R2)Î.*&U3(J)²A1(4,R2,1):U4(J)²A2(4,R2,1):‚÷./&� I²1 ¤ QS:R1²R(I):� J²1 ¤ Q:R2²R(J)'/4&A1(2,R1,R2)²A1(7,I,J)¬U1(J)«A2(7,I,J)¬U2(J)W/>&A2(2,R1,R2)²A1(7,I,J)¬U2(J)ªA2(7,I,J)¬U1(J)/H&A1(4,R1,1)²A1(4,R1,1)ªA1(7,I,J)¬U3(¹/R&A2(4,R1,1)²A2(4,R1,1)ªA1(7,I,J)¬U4(J)ªA2(7,I,J)¬U3(J)Â/\&‚ :‚É/f&d4Þ/¬&� *** SUBPROC #6é/¶&d1 VIRó/À&� ***-0Ê&FL²1:L²Ã(C$):J²0:d :J²Jª1:D$²Ê(C$,J,1):d) D$²J$ ° J²LA0Ï&‹ J²L § FL²0:d4`0Ô&A²J:C²Å(É(C$,L«A)):R²LS(I)q0Þ&P²Å(È(C$,J))x0è&d4�0'� *** SUBPROC #7š0'd1 CLEAR¤0$'� ***ç0.'� J²1 ¤ 10:� I²1 ¤ 10:� K²V1 ¤ V2:A1(K,J,I)²0:A2(K,J,I)²0:‚ :‚î08'd4ø0ø*� ***1\+d1 MATADD1À+� ***!1Å+™ d(12,23)PS_1$,� I²1 ¤ R1:� J²1 ¤ C1:A1(M3,I,J)²A1(M1,I,J)ªSN¬A1(M2,I,J)‡1ˆ,A2(M3,I,J)²A2(M1,I,J)ªSN¬A2(M2,I,J)�1ì,‚ :‚—1P-d4¡1à.� ***°1ê.d1 SCREEN”º1ô.� ***ö1þ.d 0,24,4,1:™ d(0,23)P5$"DOSYA ISMI?:";:d' " ",10,FL$2/™ d(0,23)P5$&2/dm 2,8,2,FL$ª".CIR"ª",S,W">2/d 0,24,4,1:d2 EDITH2È2� ***W2Ò2d1 SCREEN“a2Ü2� ***�2æ2d 0,29,4,1:™ d(0,23)P5$"DOSYA ISMI?:";:d' " ",10,FL$Å2ë2‹ É(FL$,4)³±".CIR" § FL$²FL$ª".CIR"Ö2ð2dn 2,8,2,FL$î2ú2d 0,24,4,1:d2 EDIT