L,K: Z21 60,pJRKSZPJǿA A Égo|gxޠG>5Jʙ9v" GSљ e͘w>RO  îFOO)! 6 REBASIC RUN 2);CHR$(163);CHR$(164) g#P&g&, -30 1430000 7d: 7,2:nEx " [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["w " [ ["  " [BERECHNUNG EINES KLEINTRANSFORMATORS["  " [____________________________________[" # " [ [" U " [ M-SCHNITT P<=180 VA ["  " [ ["  " [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["  11,31,0,39: 7,1: F(2,36) "BERECHNUNG DER SEKUNDAERLEISTUNG" 4 " ANZAHL DER SEKUNDAERSPANNUNGEN:";AJ A0 A6 230z " BEI ANSCHLUSS EINES MIT GEGENSPANNUNG" " BELASTETEN GLEICHRICHTERS(B)" " GRAETZ-GLEICHRICHTER G" " EINWEGGLEICHRICHTER E" " " ZWEIWEGGLEICHRICHTER Z"-, " OHNE GLEICHRICHTER O"L6 " U(1)=";U(1) ^@ U(1)0 310sJ " I(1)=";I(1)T I(1)0 330^ " B(1)=";B$ h5000rB(1)B|P(1)U(1)I(1)B(1) A1 750 " U(2)=";U(2)  U(2)0 400 " I(2)=";I(2)+ I(2)0 420> " B(2)=";B$H5000SB(2)BpP(2)U(2)I(2)B(2)  A2 750 " U(3)=";U(3)  U(3)0 490 " I(3)=";I(3) I(3)0 510 " B(3)=";B$5000&B(3)B 0P(3)U(3)I(3)B(3)& : A3 750; D " U(4)=";U(4)M N U(4)0 580b X " I(4)=";I(4)t b I(4)0 600 l " B(4)=";B$ v5000 B(4)B P(4)U(4)I(4)B(4)  A4 750  " U(5)=";U(5)  U(5)0 670  " I(5)=";I(5)  I(5)0 690%  " B(5)=";B$/ 5000: B(5)BR P(5)U(5)I(5)B(5)t P(6)P(1)P(2)P(3)P(4)P(5)  " SEKUNDAERLEISTUNG:";P(6);"VA"  KERNE A(1,1)4:A(1,2)11:A(1,3)25:A(1,4)40:A(1,5)60:A(1,6)120:A(1,7)180  EISENMASSENC A(2,1)0.13:A(2,2)0.32:A(2,3)0.58:A(2,4)0.9:A(2,5)1.39^ *A(2,6)1.98:A(2,7)2.9l 4 K1 7 >P(7)P(6)(A(2,K)2.75) H P(7)A(1,K) 880 R P(7)A(1,7)9010 \ K f K7 9010 p " VORSCHLAG TYPENLEISTUNG";A(1,K);"VA" z K6 9300  " GROESSERER KERN?(J/N):";C$B  C$"N" 930\  C$"J" KK1:880  " WEITER MIT TYPENLEISTUNG";A(1,K);"VA" CP(7)A(1,K)100  " AUSNUTZUNG DER TYPENLEISTUNG";C;"%"  "BERECHNUNG DER PRIMAEREN STROEME FUER PRIMAERSPANNUNG=220V"' IWA(1,K)220G  " WIRKSTROM :";IW;"A"_ IB((A(2,K)))0.04  " BLINDSTROM :";IB;"A" IP((IWIW)(IBIB))  " GESAMTSTROM :";IP;"A" IDIP 6000 DPDN $PLDL. " WEITER MIT DRAHT PRIMAERWICKLUNG"A8 " DURCHMESSER(BLANK):";DP;"MM" mB " DURCHMESSER(CUL) :";PL;"MM" L EISENQUERSCHNITTE VA(3,1)1.62:A(3,2)3.06:A(3,3)4.86:A(3,4)6.62:A(3,5)9.15:A(3,6)10.7`A(3,7)15.9*j "BERECHNUNG PRIMAERCKLUNG FUER" St " U=220V,F=50HZ,B=O,OOO12VS/CM*CMv~L220(0.000124.4450A(3,K))NP(L) " PRIMAERWINDUNGSZAHL :";NP;"WDG"MNP PDP XPL7000 WW(0.016U)((ǯ4)(F(1,H)F(1,H)))3 " WICKLUNGSWIDERSTAND :";WW;"OHM"CUAWWIP VV(UA100)220 " SPANNUNGSABFALL :";UA;"V"  " BEZOGEN AUF 220V :";V;"%": " WEITER?(ENTER)";   "BERECHNUNG DER SEKUNDAERWICKLUNG" ' " FUER U(1):">N(1,1)U(1)220NP](N(1,1)(N(1,1)100.5)102 " SEKUNDAERWINDUNGSZAHL 1:"N(1,1)<IDI(1)B(1) F " STROMBELASTUNG :";ID;"A"P6000ZD(1)DL$d" DURCHMESSER(BLANK):";DN;"MM"In" DURCHMESSER(CUL) :";DL;"MM"VxMN(1,1)_PDNhXDLr7000|8000UPU(1)8100PZVSP " PROZENTUALER ZUSCHLAG:";PZ;"%"WZPZ100N(1,1)WZ(WZ100.5)10 " WINDUNGSZUSCHLAG :";WZ;"WDG"1N(1,2)N(1,1)WZb " KORREGIERTE WINDUNGSZAHL:";N(1,2);"WDG"} " NEUE AUFTEILUNG:"MN(1,2)O1"ARR,R067000@O0J: " WEITER?(ENTER)";T A1 2950 ^ " FUER U(2):"$hN(2,1)U(2)220NPCrN(2,1)(N(2,1)100.5)10m| " SEKUNDAERWINDUNGSZAHL 2:";N(2,1)~IDI(2)B(2) " STROMBELASTUNG :";ID;"A"6000D(2)DL" DURCHMESSER(BLANK):";DN;"MM"" DURCHMESSER(CUL) :";DL;"MM"MN(2,1)PDN'XDL17000;8000GUPU(2)Q8100]PZVSP " PROZENTUALER ZUSCHLAG:";PZ;"%"WZPZ100N(2,1)&WZ(WZ100.5)100 " WINDUNGSZUSCHLAG :";WZ;"WDG":N(2,2)N(2,1)WZ!D " KORREGIERTE WINDUNGSZAHL:";N(2,2);"WDG"<N " NEUE AUFTEILUNG:"IXMN(2,2)QbO1ZlARRbvR0l7000tO0: " WEITER?(ENTER)"; A2 2950 " FUER U(3):"N(3,1)U(3)220NPN(3,1)(N(3,1)100.5)10, " SEKUNDAERWINDUNGSZAHL 3:";N(3,1)=IDI(3)B(3)g " STROMBELASTUNG :";ID;"A"q6000}D(3)DL" DURCHMESSER(BLANK):";DN;"MM"" DURCHMESSER(CUL) :";DL;"MM" MN(3,1)PDN XDL*700048000>UPU(3)H8100RPZVSPD\ " PROZENTUALER ZUSCHLAG:";PZ;"%"YfWZPZ100N(3,1)ppWZ(WZ100.5)10z " WINDUNGSZUSCHLAG :";WZ;"WDG"N(3,2)N(3,1)WZ " KORREGIERTE WINDUNGSZAHL:";N(3,2);"WDG" " NEUE AUFTEILUNG:"MN(3,2)O1ARR!R0+70003O0f: " WEITER(ENTER)?";v A3 2950 " FUER U(4):"N(4,1)U(4)220NP N(4,1)(N(4,1)100.5)10 " SEKUNDAERWINDUNGSZAHL 4:";N(4,1) IDI(4)B(4)&$ " STROMBELASTUNG :";ID;"A"2. D(4)DL<8 6000aB " DURCHMESSER(BLANK):";DN;"MM"L " DURCHMESSER(CUL) :";DL;"MM"V MN(4,1)` PDNj XDLt 7000~ 8000 UPU(4) 8100 PZVSP " PROZENTUALER ZUSCHLAG:";PZ;"%" WZPZ100N(4,1)/ WZ(WZ100.5)10Y " WINDUNGSZUSCHLAG :";WZ;"WDG"n N(4,2)N(4,1)WZ " KORREGIERTE WINDUNGSZAHL:";N(4,2);"WDG" " NEUE AUFTEILUNG:"  MN(4,2) O1 ARR R0 7000 O0&( : " WEITER?(ENTER)";62 A4 2950K< " FUER U(5):"bF N(5,1)U(5)220NPP N(5,1)(N(5,1)100.5)10Z " SEKUNDAERWINDUNGSZAHL 5:";N(5,1)d IDI(5)B(5)n " STROMBELASTUNG :";ID;"A"x D(5)DL 6000! " DURCHMESSER(BLANK):";DN;"MM"F " DURCHMESSER(CUL) :";DL;"MM"S MN(5,1)\ PDNe XDLo 7000y 8000 UPU(5) 8100 PZVSP " PROZENTUALER ZUSCHLAG:";PZ;"%" WZPZ100N(5,1) WZ(WZ100.5)10 " WINDUNGSZUSCHLAG :";WZ;"WDG". N(5,2)N(5,1)WZ_" " KORREGIERTE WINDUNGSZAHL:";N(5,2);"WDG"z, " NEUE AUFTEILUNG:"6 MN(5,2)@ O1J ARRT R0^ 7000h O0r : " WEITER?(ENTER)";| A5 2950  ZUSAMMENFASSUNG$ 11,31,0,39: 7,4:; "ZUSAMMENFASSUNG"Y "KERNGROESSE: M";A(1,K)  "U(V)","N(WDG)","D/CUL(MM)"  "________________________________________" "220",NP,PL  U(1),N(1,2),D(1) A1 3120 U(2),N(2,2),D(2)0 A2 3120G U(3),N(3,2),D(3)W A3 3120n  U(4),N(4,2),D(4)~  A4 3120  U(5),N(5,2),D(5) & A5 3120 0 " * * *" : " VIEL SPASS BEIM WICKELN!" 9000 ! UNTERPROGRAMM-BELASTUNGSART 1! B$"G" B1.2F! B$"E" B1.5\! B$"Z" B1.34o! B$"O" B1u!!p UNTERPROGRAMM-DRAHTBEMESSUNG!z " DRAHTBEMESSUNG"!QID2.5 !D(Q4)! D3.5 9010" DRAHTDURCHMESSER BLANKH"F(1,1)0.03:F(1,2)0.05:F(1,3)0.06:F(1,4)0.07:F(1,5)0.08 "F(1,6)0.09:F(1,7)0.1:F(1,8)0.11:F(1,9)0.12:F(1,10)0.13"F(1,11)0.14:F(1,12)0.15:F(1,13)0.16:F(1,14)0.17:F(1,15)0.18#F(1,16)0.19:F(1,17)0.2:F(1,18)0.25:F(1,19)0.3:F(1,20)0.35R#F(1,21)0.4:F(1,22)0.45:F(1,23)0.5:F(1,24)0.55:F(1,25)0.6#F(1,26)0.65:F(1,27)0.7:F(1,28)0.8:F(1,29)0.9:F(1,30)1 #F(1,31)1.2:F(1,32)1.5:F(1,33)2:F(1,34)2.5:F(1,35)3:F(1,36)3.5# H1 36$ F(1,H)D 6160$ H:$ " VORSCHLAG DRAHTDURCHMESSER:";F(1,H);"MM"f$ " DICKERER DRAHT?(J/N):";D$ y$$ D$"N" 6200$. D$"J" HH1:6160$8 DRAHTDURCHMESSER CUL$BF(2,1)0.04:F(2,2)0.062:F(2,3)0.075:F(2,4)0.085:F(2,5)0.0956%LF(2,6)0.108:F(2,7)0.115:F(2,8)0.13:F(2,9)0.14:F(2,10)0.15z%VF(2,11)0.16:F(2,12)0.17:F(2,13)0.18:F(2,14)0.19:F(2,15)0.2%`F(2,16)0.21:F(2,17)0.22:F(2,18)0.275:F(2,19)0.33:F(2,20)0.38&jF(2,21)0.43:F(2,22)0.48:F(2,23)0.535:F(2,24)0.59:F(2,25)0.64K&tF(2,26)0.69:F(2,27)0.74:F(2,28)0.84:F(2,29)0.95:F(2,30)1.05&~F(2,31)1.26:F(2,32)1.56:F(2,33)2.07:F(2,34)2.58:F(2,35)3.09&F(2,36)3.6&DNF(1,H)&DLF(2,H)&&X UNTERPROGRAMM-PLATZBEDARF&b FENSTERBREITENC'lA(5,1)23:A(5,2)30.5:A(5,3)34:A(5,4)40:A(5,5)46:A(5,6)57:A(5,7)57^'vN((A(5,K)0.95)X) k'R(MN)u'SNR'TMS' R0 7140' R1 7110' " ";R;"LAGEN MIT JE";N;"WDG"'7120' " EINE LAGE MIT";N;"WDG"( " UND EINE LAGE MIT";T;"WDG"(7150:( " EINE LAGE MIT";T;"WDG"J( W0 7170q(W0.3((R1)1.1X)(R0.08):7200( O1 7190( WW0.2((R1)1.1X)(R0.08):7200(WW((RAR)1.1X)((RAR)0.08) (  " WICKLUNGSHOEHE BISHER:";W;"MM" )* WICKELHOEHENU)4A(6,1)6:A(6,2)7.5:A(6,3)9:A(6,4)11:A(6,5)10:A(6,6)12:A(6,7)12j)> WA(6,K) 7280)H " WICKLUNG ZU HOCH!")RW0)\KK1 )f870)pRHA(6,K)W)z " FREIE WICKELHOEHE :";RH;"MM"* UNTERE WICKLUNGSLAENGEN E*A(4,1)66:A(4,2)88:A(4,3)108:A(4,4)126:A(4,5)146:A(4,6)157T*A(4,7)192j* W0 7340: YWx*Y(2W)J*U((A(4,K)(Y))M)1000 * " DRAHTLAENGE :";U;"M"**@ UNTERPROGRAMM - WICKLUNGSWIDER- STAENDE +JWW(0.016U)((ǯ4)(F(1,H)F(1,H)))J+T " WICKLUNGSWIDERSTAND :";WW;"OHM"P+^s+ UNTERPROGRAMM-SPANNNGSABFALL+UAWWID+SP(UA100)UP+ " SPANNUNGSABFALL :";UA;"V"+ " BEZOGEN AUF ";UP;" V :";SP;"%"++(#9020,2# " NICHT REALISIERBAR!",<#ABB@K@CC@WI BIf|PI` DI ÀQ DHDNDu{LD #|PD