Welt-"::" kartM&p56,9:(15):14856,8:5::790AXAYYEXYEYYBXBYYQARZZ1:1000*" SÉgo|gxޠG>5Jʙ9v" GSљ e͘w>RO  îCS3! 6 REBASIC RUN OTO 370TELNELN$$$ M&S&'0 190000IS + ***********************************T * BERECHNUNG VON SCHWINGKREISEN *}*VERFASSER :V.SCHEFFER **DATUM :27.03.1985 *(*ORT :ASMW-AS 116 GERA *2*QELLE :GST-BV DRESDEN *!<* GOTTLOEBER *JP*PROGRAMMLAENGE:9187 BYTE *sU***********************************V(0,0); 7,0;" "Z: 7,0:d(1,5);"E L E K T R O T E C H N I K - 2"n(3,7);"Berechnung von Schwingkreisen"/x5,31,0,39: 8,5:G E(30),B(30),C(30)i:" Sie koennen berechnen :"" - Schwingkreise fuer eine konkrete"" Frequenz.Dabei wird der Wert,der"" nicht angegeben ist errechnet.":" - Schwingkreise,durchstimmbar fuer"B" einen Frequenzbereich.Hierbei wird"q" von C-Abstimmung und nicht ueberein-"" stimmenden Frequenz-und C-Variations"" bereich ausgegangen.Sie muessen sich"" entscheiden,ob Sie nur ein Parallel-"*" C verwenden,oder mit Reihen-C zum"L" Drehko arbeiten wollen."|:" - Spulen mit Kern.Die Werte AL,L und" " Windungszahl werden abgefragt.Der""" nicht angegebene Wert wird berechnet." ," - Spulen ohne Kern.Luftspule,bei der"4 6" der Durchmesser und die Spulenlaenge"^ @" bekannt sein muessen.Es koennen" J" Windungszahl oder Induktivitaet" T" berechnet werden." ^(30,30);">ENTER<" hA$ r A$""360 | A$(13) :420 :360 * :" - Alle Wertangaben erfolgen grund-"X " saetzlich in der ueblichen Schreib-"| " weise mit Masseinheiten :" :" z.B. 27 pF 3.6 MHZ 6.5 uH 220 mH" " 7015 KHZ 1.7 mH 15 mm 3 cm" :" - Dabei sind signifikant :"- " M,K,d,c,m,u,n,p als Groesseneinheit"[ " und H fuer HENRY bzw.HERTZ sowie F" " fuer FARAD und m fuer METER." :" - Achten Sie auf das Leerzeichen" " zwischen dem Wert und der Mass-" " einheit.Fehlerhafte Eingaben von"0 " Masseinheiten koennen nicht erkannt"B &" werden."Z 0(30,30);">ENTER<"c :A$s D A$""570 N A$(13)610 X:570 b l: v:" Was wollen Sie berechnen :" :::" 1.........Einzelkreis-Festfrequenz" + :" 2.........Einzelkreis-durchstimmbar"R :" 3.........Spulen mit Kern"t :" 4.........Luftspulen" :" 5.........Programmende" A$  A$""690  A$"1" :800  A$"2" :1050  A$"3" :2650 A$"4" :3050A$"5"3290$:690S:::" Soll ich rechnen oder raten...":Y b770 :" EINZELKREISBERECHNUNG(Festfrequenz)"*::" Frequenz :";42120>F1AHF1$E$R:" Induktivitaet :";\2120fL1ApL1$E$'z F10 L10 790K F10 L101700:C=BERECHNENk:" Kapazitaet :";u2120~C1AC1$E$ C10790:DUMME FRAGE STELLEN L103440:L-BERECHNEN F101760:F-BERECHNEN(30,4);"Menue....M Weiter....>ENTER<""A$2 A$""990I A$(13) :800^ A$"M" :610i:990--------------------------------:" EINZELKREIS (durchstimmbar)"$:" Anfangs-C des Drehko's :"; .21208 A0 1060BC2A:C2$E$:CE$T$8L:" End-C des Drehko's :"; BV2120Q` A01100ajC3A:C3$E$t:" untere Frequenz :";~2120 A01140F2A:F2$E$:" obere Frequenz :";2120 A01180:ERZWINGT EINGABE 0 SOST NUR ^CF3A:F3$E$I:" Parallel-C ? (J/N) : ";Q$ \ Q$"J" 1300:" Reihen-C ? (J/N) : ";Q$ Q$"J"1830770::" noch einmal bitte...":30::10507701060 FRAGE OB WERTBEREICH MOEGLICH((F2F3)(C2C3)(F3F2)(C3C2)1270YCP(((F22)C3)((F32)C2))((F32)(F22))i( CP014702 CP1E12 CP0 <CC3CPFFF2P2340d" Induktivitaet :";(L1);LM$nCCP:2470 x:" Parallel-Kondensator :";(C1);CM$:=(30,4);"Menue....M Weiter....>ENTER<"FA$W A$""1420h A$"M"610 A$(13) :1050:1420:" Kein Parallel-C moeglich": FF2:CC3:2340" Induktivitaet :";(L1);LM$":" Frequenzbereich von : ";F2$;FM$6CC2:LLX:2580d:" bis :";F1;FM$:(30,4);"Menue....M Weiter....>ENTER<"A$ A$""1550" A$(13) :1050, A$"M" :6106:1550@CC1: PARAMETERUEBERGABEJFF1T2340D^:" Induktivitaet(L) : ";(L1);LM$ vh(30,4);"Menue....M Weiter....>ENTER<"rA$| A$""1650 A$(13) :1050 A$"M"610:1650LL1FF12460 :" Kapazitaet(C) : ";(C1);CM$ LXL1 3470)CC12LL1<2580g:" Frequenz(F) : ";(F1);FM$ wLXL1:CXC13470--------------------------------&:" Welche Induktivitaet ? :";02120:LA:FF2D2460NCECX:FF3X2460bCACXlCDCECA+vC1C3C2:CZC12C2nCR(CDCZ)((CDCZ)24(C1CD)(C1C2)C2CD)CS2(C1CD)CRCRCSCR02060CPCA((C2CR)(C2CR))CCR2470" Reihen-C :";(C1);CM$:CCP 2470;" Parallel-C zur Spule :";(C1);CM$:E2070w ::" Gefordete Werte sind nicht moeglich!" (30,4);"Menue....M Weiter....>ENTER<" A$* A$""20804 A$(13) :1050> A$"M" :610H E$ R (E$)02290\A(" ",E$)6f A0 (E$)A0 2320>pB1^z ("K",E$)0 B1E3:2250~ ("M",E$)0 B1E6:2250 ("d",E$)0 B0.1:2250 ("c",E$)0 B1E2:2250 ("m",E$)0 B1E3:2250 ("u",E$)0 B1E6:2250 ("n",E$)0 B1E9:22508 ("p",E$)0 B1E12l(("F",E$)0)(("H",E$)0)(("m",E$)0)2320B$(E$,A):B=ZAHLENWERTA(B$)B: A=ZAHLENWERT GRUNDEINHEIT: E=EINGABEZEILE VOLLSTAENDIGA0E$" " # :" *** fehlerhafte Eingabe ***"- 2120L$ L(1(((F2)2)C)):LXL]. L1E62400n8 L1E32410B L1E9 2430L L12420V L1L:LM$" H":` L1L1E9:LM$"nH":j L1L1E6:LM$"uH":t L1L1E3:LM$"mH": ~ L1L1E12:LM$"pH": 7 ----------------------------------V C(1(((F2)2)L)):CXCg C1E92520x C1E62530 C1E32540 C12550 CM$" F":C1C: C1C1E12:CM$"pF": C1C1E9:CM$"nF": C1C1E6:CM$"uF": C1C1E3:CM$"mF": ? ----------------------------------f F(1(2Ǯ1E6(LC1E12))):FXFx F1E62620( F1E326302 FM$" Hz":F1F:< FM$"MHz":F1F1E6:F FM$"KHz":F1F1E3:P ---------------------------------Z :13);"SPULEN MIT KERN"Ad ::" AL-Wert (in nH/W 2) : ";ALPn ALAL1E9tx :" Induktivitaet(L) :";~ 2120 LALA AL0 A0 2830 ALA0 :620 WD(LALAL) WD10WD(WD.5) :" Windungszahl : ";WD:5 (30,4);"Menue....M Weiter....>ENTER<"> A$N A$""2770e A$(13) :2650y A$"M" :610 :2770  ----------------------------------  :" Windungszahl : ";WD  WD0 770:30:620 " AL02960!, LAL0 LALALWDWD"!6 LLAL,!@ 2350Z!J :" Induktivitaet : ";(L1);LM$!T (30,4);"Menue....M Weiter....>ENTER<"!^ A$!h A$"" 2910!r A$(13) :2650!| A$"M" :610! :2910! ! AL(LAL(WDWD))1E9&" :" AL - Wert : ";ALW" (30,4);"Menue....M Weiter....>ENTER<"`" A$x" A$(13) :2650" A$"M" :610" A$""3000" :3000" :10);"LUFTSPULEN"" :" Durchmesser : ";" 2120" DMA100 # :" Spulenlaenge : ";*# 21207#& SLA100]#0 :" Windungszahl : ";WD}#: (DMSL0)770:20::3050#D WD0(DMSL)03220#N (DMSLWD0)3160#X #b LL0.4Ǯ1E8WDWDǮDMDM(SL4)#l LLL#v 2350$ :" Induktivitaet(L) : ";(L1);LM$:'$ 3370J$ :" Induktivitaet(L) : ";T$ 2120]$ LLA$ WD(1E84SLLL(0.4ǮǮDMDM))$ :" Windungszahl : ";WD$ 3370$ $ $ (20,3);"A u f W i e d e r s e h e n ! !"$ 25:::/%* (30,4);"Menue....M Weiter....>ENTER<"8%4 A$I%> A$""3380a%H A$(13) :3050w%R A$"M" :610%\ :3380%f :3000%p CC1%z 2340% :" Induktivitaet(L) : ";(L1);LM$% (30,4);"Menue....M Weiter....>ENTER<"& A$& A$""3480.& A$(13) :800?& A$"M"610K& :3480AE