A100:20: ### TRAFOBERECHNUNG V.1.2 / RIU ### HTHO:VTVE:MS5: maximal Sekundaerwicklungen US(MS),IS(MS),L(MS),Z(MS) !3000!VE3:110@!" Bitte geben Sie Ihre sekundaeren"c!$" Spannungen / Stroeme ein":!." (Spannungen in Volt)"!8" (Stroeme in Ampere)":!BI1 MS!L" Us";I;:"= ";US(I)!V" Is";I;:"= ";IS(I)"`(IS(I)0)(US(I)0) 11502"j:"Negative Eingaben nicht moeglich !"L"t250:SD10:450:1100g"~US(I)0 IS(I)0:IMSn"I~"3500:3000"VE4:110"" Bitte Betriebsfrequenz eingeben":"" (Angabe in Hertz)":"" f = ";BF:BF0 1210""#:" Bitte Primaerspannung eingeben"=#:" (Angabe in Volt)"`#:" Up = ";PS:PS0 1250i#100#X0:I1 MS:XXUS(I)IS(I):I#3000#HO1:VE4:110#SRX:CN2:4010#"Sekundaerleistung Ps = ";SR$;" VA"$X0 SD20:450:1000$ I6:X4 I5$$*X13 I43$4X26 I3B$>X48 I2Q$HX65 I1c$RX125 2230l$\250$fHO5:VE8:110$p"Berechnung nur bis 125 VA"$zHO1:VE12:110$"Wollen Sie weitere Berechnungen(J/N)?"$210%IN74 1000: JA%IN78 950: ende!%2190A%X$,B2,C2,D2,E2,F2,G2,H2,K2V%II1:I0 2230i%HO1:VE8:110%"Benutzen Sie einen ";X$;" Kern"%SRXB2:CN2:4010%%" Primaerleistung Pp = ";SR$;" VA"%Y(XB2PS)2C2C2% S1(Y) & SRS1:CN3:4010& ?&$ " Primaerstrom Ip = ";SR$;" ";"Ampere"X&. N1(2B2)3PSK2BFm&8 P11.13(S1E2)&B SRP1:CN2:4010&L &V " Prim.Drahtdurchmesser Dp = ";SR$;" mm"&` R1N1F22.72E5P1P1&j SRR1:4010&t '~ " Prim.Widerstand Rp = ";SR$;" Ohm"/' N2((PSS1R1)K2BF0.5)5' U' " Prim.Windungen Np = ";N2e' 3500:3000x' HO5:VE4:110' "Isolationsvorschrift-Primaer"' UUPSH2P1N2' SRUU:CN1:4010' HO1:VE8:110( "Prim. Lagenspannung Ul = ";SR$;" Volt"!( QQ(25UU):UU25 QQ1:( FF1:P11 FF0.06O( P10.2 FF0.03c( HO1:VE12:110( "Es muss nach ";QQ;" Lage isoliert werden"( :" mit ";FF;" mm Lackpapier"(( 3500:3000(2 " Sekundaerer Drahtdurchmesser:"(< VE10:110)F I1 MS+)P SR1.13(IS(I)E2):CN2:4010>)Z IS(I)0 2670d)d :" Wicklung ";I;" : ";SR$;" mm"k)n I{)x 3500:3000) " Sekundaerer Wicklungswiderstand:") VE10:110) I1 MS) IS(I)0 2770) L(I)1.13(IS(I)E2)* Z(I)8.1E5G2US(I)K2(BF(2B2)L(I)L(I))6* SRZ(I):CN2:4010]* " Wicklung ";I;" : ";SR$;" Ohm":d* It* 3500:3000* " Sekundaere Windungszahlen:"* VE10:110* I1 MS* IS(I)0 2850* Y((US(I)IS(I)Z(I))K2BF)+ " Wicklung ";I;" : ";Y;" Windungen":+" I$+, 35008+6 HO5:VE10:110a+@ SR$"Viel Spass beim Wickeln !":150q+J SD100:450z+T 950+ SR$"+++ TRAFOBERECHNUNG BIS 125 VA +++"+ HO((HT(SR$))2)3:VE0:110+ 150+ HO0:VE6:110+ , HOHT14:VEVT:110, SR$"":150*, 210:1000, B, Formatieren\,SR10 CTCN2:4030w,CT(CN2(SR)(10)),310,,a"M 102 A",a0.88,0.07,1100,2.6,179,197,55,170.62517,a"M 85",a0.86,0.045,850,3.0,155,186,45,220.80904-a"M 74"4-a0.84,0.032,670,3.2,147,182,39,280.13087@-a"M 65"m-a0.80,0.022,480,3.8,127,155,33,391.01601y-a"M 55"-b0.75,0.012,300,4.7,106,129,29,625.6256- b"M 42"-b0.65,0.006,160,6.0,81,102,22,1173.048-0u.:u TRAFOBERECHNUNG BIS 125 VA$.Du --------------------------*.Nu;.} Autor: ???[. } Fuer BASICODE bearbeitet:y.} W. Koronowski; 10.12.89.} ATARI 800 XL.(} Erstausstrahlung Radio DDR.2} 891213.<} -------------------------.F} Version 1.2 bearbeitet von:/P} J.Haubrich / Eindhoven NL3/Z} Radio DDR 900221213.<} -------------------------.F} Version 1.2 bearbeitet