DIM NN(10, 8), CA(10, 8), CB(8, 8), CC(6, 8), CD(4, 8), CE(2, 8), CF(8)
CLS : GOTO ANFANG
CLS : GOTO TECHDAT
REM Copyright by Claus Neie DL7QY  D-7181 Rudolfsberg 24
LOSGEHTS:
CLS
ANFANG:
PRINT "Interdigital-Bandpassfilter-Berechnung"
PRINT "         100 MHz TO 8000 MHz"
PRINT "von Claus Neie DL7QY  Febr. 1981 "
PRINT "ver”ffentlicht in 'DUBUS' 3/1981"
PRINT "Theorie dazu: Ferdinand Schmehr DC8EC"
PRINT "im Skriptum VHF/UHF-Tagung M�nchen 1980"
PRINT "Originalprogramm f�r Commodore-Basic "
PRINT "auf Atari ST- Omikron.Basic ge„ndert "
PRINT "von Christoph Kessler DB1UQ  Okt.1993 "
PRINT "auf DOSen-QBasic ge„ndert  Nov.1995 "
INPUT "Beispielprogramm 1/2 starten (Zahl eingeben)"; BSP
IF BSP = 1 THEN GOTO BEISPIEL1
IF BSP = 2 THEN GOTO BEISPIEL2
UNTDURCH:
PRINT : INPUT "                Untere Durchlaáfrequenz (MHz)? :"; A:
IF D = 1 THEN GOTO WEITER
OBDURCH:
PRINT : INPUT "                Obere Durchlaáfrequenz (MHz)? :"; B:
IF D = 2 THEN GOTO WEITER
RETLOSS:
PRINT : INPUT "                R�ckfluád„mpfung ( 8-40dB in 4db Stufen): "; RL: RL = 4 * INT(RL / 4):
IF D = 5 THEN GOTO WEITER
RIPPLE:
PRINT : INPUT "                Ripple in dB ?"; E:
IF D = 7 THEN GOTO WEITER
UNTSPERR:
PRINT : INPUT "                Untere Sperrgrenzfrequenz (MHz)? :"; F:
IF D = 3 THEN GOTO WEITER
OBSPERR:
PRINT : INPUT "                Obere Sperrgrenzfrequenz (MHz)? :"; G:
IF D = 4 THEN GOTO WEITER
SPERRDAEMP:
PRINT : INPUT "                Sperrd„mpfung dB? :"; VB:
IF D = 8 THEN GOTO WEITER
EINGABS:
PRINT : INPUT "                Eingangs-/ Ausgangsabschluá in Ohm :"; J
IF D = 6 THEN
GOTO WEITER
ELSE GOTO WEITER2
END IF
WEITER:
PRINT : INPUT "                Weitere Žnderungen ? (J)"; C$
IF C$ = "J" OR C$ = "j" THEN GOTO EINZELWERT
WEITER2:
GOSUB TABELLENANLEGEN
H = SQR(((F ^ 2) + (G ^ 2)) / 2)
QA = 0: QC = 0: QE = 0: QF = 0: QG = 0: QH = 0: QI = 0: QJ = 0: QK = 0: QL = 0: QM = 0: QN = 0: QO = 1082: QR = 1
EA = 0: EB = 0: EC = 0: ED = 0: EE = 0: EF = 0: EG = 0: EH = 0: EI = 0: EJ = 0: EK = 0: EL = 0: EM = 0: EN = 0: EO = 0
QP = 0: MY = 0: MO = 0: GZ = 0
O = (((F / H) ^ 2) - 1) / (((A / H) ^ 2) - 1): M = (((G / H) ^ 2) - 1) / (((B / H) ^ 2) - 1)
IF O < M THEN
 OZ = O
ELSE OZ = M
END IF: XZ = ABS(OZ): K = VB
CLS : PRINT : PRINT : PRINT : PRINT
PRINT "               |-----------------------------------------------|"
PRINT "               |   Suche nach dem n”tigen Gesamtfiltergrad     |"
PRINT "               |   und den normierten Gruppenlaufzeitwerten    |"
PRINT "               |-----------------------------------------------|"
PRINT "               |      Sperrd„mpfung/dB                         |"
PRINT "               |  erreichte        gesuchte             XD     |"
PRINT "               |-----------------------------------------------|"
GOSUB SUCHEN1
V = Y: LX = (1 / XZ) * (((G / H) ^ 2) - 1) * 100: X = INT((LX) / .1) / 10
PRINT "               |-----------------------------------------------|"
PRINT USING "               |        Filtergrad           :  ###            |"; N
PRINT USING "               |        Normierte Bandbreite :#####.### %      |"; LX
PRINT USING "               |        R�ckfluád„mpfung     :  ### dB         |"; RL
PRINT "               |-----------------------------------------------|"
PA = (1 / LX) * (((A / H) ^ 2) - 1) * 100: PB = ABS(PA): UA = 0
RA = (1 / LX) * (((B / H) ^ 2) - 1) * 100: RB = ABS(RA)
GOSUB SUCHEN2
GOSUB SUCHEN3
GOSUB SUCHEN4
GOSUB SUCHEN5
PC = 54.5751 * TA * ((A / H) ^ 2) / LX * 100: Q = 54.5751 * TB * (1 / LX) * 100: R = 54.5751 * TC * ((B / H) ^ 2) / LX * 100
PQ = PC - Q: RQ = R - Q:
IF PQ > RQ THEN
 AN = PQ
ELSE AN = RQ
END IF: GOTO WEITER3
PRINT : INPUT "             *** Noch eine Žnderung ? (J) *** "; C$
IF C$ = "J" OR C$ = "j" THEN GOTO EINZELWERT
WEITER3:
ZO = AN / E: DB = Q / ZO: ZO = INT((ZO) / 1) / 1: L$ = ""
PRINT : INPUT "                       ***  Bitte Return dr�cken! ***"; DUMMY
GOTO TECHDAT2
MATTAB:
CLS : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT "                             |------------------|"
PRINT "                             | Kupfer       [1] |"
PRINT "                             | Messing 58   [2] |"
PRINT "                             | Messing 63   [3] |"
PRINT "                             | Aluminium    [4] |"
PRINT "                             | Silber       [5] |"
PRINT "                             |------------------|"
MATNR:
PRINT : INPUT "                             Bitte Zahl eingeben "; BB
IF BB = 1 THEN Z = ZO / .956: Z = INT((Z) / 1) / 1: L$ = "(Kupfer)    ": GOTO TECHDAT
IF BB = 2 THEN Z = ZO / .521: Z = INT((Z) / 1) / 1: L$ = "(Messing 58)": GOTO TECHDAT
IF BB = 3 THEN Z = ZO / .475: Z = INT((Z) / 1) / 1: L$ = "(Messing 63)": GOTO TECHDAT
IF BB = 4 THEN Z = ZO / .759: Z = INT((Z) / 1) / 1: L$ = "(Aluminium) ": GOTO TECHDAT
IF BB > 5 THEN GOTO MATNR
TECHDAT2:
Z = INT(ZO): L$ = "(Silber)    "
DA = INT((DB) / .01) / 100: LC = INT((LX) / .01) / 100: VA = Y - DA
IF DA < 0 THEN PRINT "Hier wird im Commodore SYS64721 aufgerufen..."
VA = INT((VA) / .01) / 100
TECHDAT:
CLS : HH = INT(H * 10) / 10
PRINT "             |--------------------------------------------------|"
PRINT "             |     Technische Daten des berechneten Filters     |"
PRINT "             |--------------------------------------------------|"
PRINT "             | Untere Sperrbandgrenzfrequenz      :"; : PRINT USING "#####.## MHz |"; F
PRINT "             | Untere Durchlaágrenzfrequenz       :"; : PRINT USING "#####.## MHz |"; A
PRINT "             | Mittenfrequenz                     :"; : PRINT USING "#####.## MHz |"; HH
PRINT "             | Obere Durchlaágrenzfrequenz        :"; : PRINT USING "#####.## MHz |"; B
PRINT "             | Obere Sperrbandgrenzfrequenz       :"; : PRINT USING "#####.## MHz |"; G
PRINT "             | Ripple                             :"; : PRINT USING "   ##.## dB  |"; E
PRINT "             | Einf�gungsd„mpfung                 :"; : PRINT USING "  ###.## dB  |"; DA
PRINT "             | Sperrd„mpfung                      :"; : PRINT USING " ####.## dB  |"; VA
PRINT "             | R�ckfluád„mpfung                   :"; : PRINT USING "  ###.## dB  |"; RL
PRINT "             | Filtergrad                         :"; : PRINT USING "  ###        |"; N
PRINT "             | Ben”tigte G�te "; L$; "        :"; : PRINT USING "#####        |"; Z
PRINT "             | Eingangs-/ Ausgangsabschluá        :  "; J; "    ê  |"
PRINT "             | Normierte Bandbreite               :"; : PRINT USING "  ###.## %   |"; LC
PRINT "             | Normierte Sperrfrequenz            :"; : PRINT USING "   ##.##     |"; XZ
PRINT "             | (ê-D:"; : PRINT USING "##.##): "; PB;
PRINT "Norm.Gruppenlaufzeit  :   "; : PRINT USING "##.###    |"; TA
PRINT "             | (ê0 :"; : PRINT USING "##.##): "; UA;
PRINT "Norm.Gruppenlaufzeit  :   "; : PRINT USING "##.###    |"; TB
PRINT "             | (ê+D:"; : PRINT USING "##.##): "; RB;
PRINT "Norm.Gruppenlaufzeit  :   "; : PRINT USING "##.###    |"; TC
PRINT "             |--------------------------------------------------|"
IF W = 9 THEN GOTO PRAKTAUSF
PRINT "   Neue Berechnung.....[1]  Gruppenlaufzeit-Tab...[4]  Žnderungen.........[7]"
PRINT "   Ende................[2]  Praktische Ausf�hrung.[5]  Theoretische Daten.[8]"
PRINT "   Neues Material......[3]  Dimensionierungstab...[6]  Drucken............[9]"
INPUT "                           *** Bitte Zahl eingeben ***"; W
MENUVERZW:
IF W = 1 THEN GOTO LOSGEHTS
IF W = 2 THEN GOTO PROGENDE
IF W = 3 THEN GOTO MATTAB
IF W = 4 THEN GOTO GRUPTAB
IF W = 5 THEN GOTO BERECHABMESS
IF W = 6 THEN GOTO PRAKTAUSF
IF W = 7 THEN GOTO EINZELWERT
IF W = 8 THEN GOTO TECHDAT
IF W = 9 THEN GOTO DRUCKEN
DRUCKEN:
PRINT "hier Druckroutine:": REM OPEN1,4 :CMD1
GOTO TECHDAT
PRAKTAUSF2:
HO = DP * 3.3333: HO = INT((HO) / .01) / 100: LB = (300000 / H) * (BO / 360)
HO = HO + .01
LB = INT((LB) / .01) / 100: SO = HO * .6: SO = INT((SO) / .01) / 100: S = (NN * SQR(J) / 100)
LB = LB + .01: SO = SO + .01
S = INT((S) / .01) / 100: LA = (52500 / H) * ATN(S / SQR(-S * S + 1)): LA = INT((LA) / .01) / 100
S = S + .01: LA = LA + .01
KZ = ER / (H / 1000): KZ = INT((KZ) / .01) / 100: KV = KZ * 1.033: KV = INT((KV) / .01) / 100
KZ = KZ + .01: KV = KV + .01
LX = INT((LX) / .001) / 1000
PRAKTAUSF:
CLS
PRINT "             |--------------------------------------------------|"
PRINT "             |    Maáe des Interdigitalfilters "; L$; "     |"
PRINT "             |--------------------------------------------------|"
PRINT USING "             | Erreichte G�te (Soll: >#####)   :  "; Z;
PRINT USING "  #####       |"; ZA
PRINT USING "             | Y-Faktor                        :    ##.##       |"; (NN + .005)
PRINT USING "             | C-Faktor                        :    ##.##       |"; (ER + .005)
PRINT USING "             | Kapazitive Resonatorverk�rzung  :   ###.## GRAD  |"; (BO + .005)
PRINT USING "             | Kapazit„ten  K2/K3/K4 usw.      :  ####.## pF    |"; (KZ + .005)
PRINT USING "             | Kapazit„ten  K1 und KN          :  ####.## pF    |"; (KV + .005)
PRINT "             |--------------------------------------------------|"
PRINT USING "             | Anzahl Resonatoren              :   ###          |"; N
PRINT USING "             | Hohlraumbreite                  :  ####.## mm    |"; (HO + .005)
PRINT USING "             | L„nge der Resonatoren           :  ####.## mm    |"; (LB + .005)
PRINT USING "             | Durchmesser der Resonatoren     :  ####.## mm    |"; (DP + .005)
PRINT "             | Abstand „uáere Res.-Mitten/Wand :  ";
PRINT USING "####.## mm    |"; (SO + .005)
PRINT USING "             | Anzapfh”he f�r ### ê            :  "; J;
PRINT USING "####.## mm    |"; (LA + .005)
PRINT "             |--------------------------------------------------|"
PRINT "             |    Resonatoren-Mittenabst„nde (symmetrisch):     |"
PRINT "             |  X1/mm   X2/mm   X3/mm   X4/mm   X5/mm   X6/mm   |"
PRINT USING "             | ###,##  "; (CA + .005); : PRINT USING "###.##  "; (CB + .005);
PRINT USING "###.##  "; (CC + .005); : PRINT USING "###.##  "; (CD + .005);
PRINT USING "###.##  "; (CE + .005); : PRINT USING "###.##   |"; (CF + .005)
PRINT "             |--------------------------------------------------|"
IF W = 9 THEN GOTO GRUPTAB
PRINT "   Neue Berechnung.....[1]  Gruppenlaufzeit-Tab...[4]  Žnderungen.........[7]"
PRINT "   Ende................[2]  Praktische Ausf�hrung.[5]  Theoretische Daten.[8]"
PRINT "   Neues Material......[3]  Dimensionierungstab...[6]  Drucken............[9]"
INPUT "                           *** Bitte Zahl eingeben *** "; W
GOTO MENUVERZW
GRUPTAB:
CLS : PRINT : PRINT : PRINT : PRINT
PRINT "        |------------------------------------------------------------|"
PRINT "        |              Normierte Durchlaá-Nullstellen                |"
PRINT "        |------------------------------------------------------------|"
PRINT USING "        |             Re(1)= ##.###      "; EA;
PRINT USING "Im(1)= ##.###               |"; EB
PRINT USING "        |             Re(2)= ##.###      "; EC;
PRINT USING "Im(2)= ##.###               |"; ED
PRINT USING "        |             Re(3)= ##.###      "; EE;
PRINT USING "Im(3)= ##.###               |"; EF
PRINT USING "        |             Re(4)= ##.###      "; EG;
PRINT USING "Im(4)= ##.###               |"; EH
PRINT USING "        |             Re(5)= ##.###      "; EI;
PRINT USING "Im(5)= ##.###               |"; EJ
PRINT USING "        |             Re(6)= ##.###      "; EK;
PRINT USING "Im(6)= ##.###               |"; EL
PRINT USING "        |             Re(7)= ##.###      "; EM;
PRINT USING "Im(7)= ##.###               |"; EN
PRINT "        |------------------------------------------------------------|"
FA = A / H: FB = B / H: FC = FB - FA
TD = TA / (FC * (A * 1000000!)): TE = TB / (FC * (H * 1000000!)): TF = TC / (FC * (B * 1000000!))
TD = TD * (1 + (1 / ((A / H) ^ 2)))
TE = TE * (1 + (1 / ((H / H) ^ 2)))
TF = TF * (1 + (1 / ((B / H) ^ 2)))
PRINT USING "        | Gruppenlaufzeit untere Durchlaáfrequenz in nsec : #####.## |"; (TD * 1E+09 + .005)
PRINT USING "        | Gruppenlaufzeit  bei    Mittenfrequenz  in nsec : #####.## |"; (TE * 1E+09 + .005)
PRINT USING "        | Gruppenlaufzeit obere  Durchlaáfrequenz in nsec : #####.## |"; (TF * 1E+09 + .005)
PRINT "        |------------------------------------------------------------|"
IF W = 9 THEN GOTO DRUCKFERTIG
PRINT
PRINT "                             Bitte Taste dr�cken"
WARTTAST4:
AB$ = INKEY$:
IF AB$ = "" THEN GOTO WARTTAST4
GOTO TECHDAT
DRUCKFERTIG: REM CLOSE1
W = 0
TASTEWARTEN: AB$ = INKEY$:
IF AB$ = "" THEN GOTO TASTEWARTEN
GOTO TECHDAT
EINZELWERT:
CLS : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT "              |-----------------------------------------------|"
PRINT "              |           Žnderung von Einzelwerten           |"
PRINT "              |-----------------------------------------------|"
PRINT USING "              | Untere Durchlaágrenzfrequenz [1] #####.# MHz  |"; A
PRINT USING "              | Obere  Durchlaágrenzfrequenz [2] #####.# MHz  |"; B
PRINT USING "              | Untere Sperrgrenzfrequenz    [3] #####.# MHz  |"; F
PRINT USING "              | Obere  Sperrgrenzfrequenz    [4] #####.# MHz  |"; G
PRINT USING "              | R�ckfluád„mpfung 8.12.16..40 [5]  ####.# dB   |"; RL
PRINT USING "              | Eingangs-/Ausgangsabschluá   [6]  ####.# ê    |"; J
PRINT USING "              | Ripple                       [7]    ##.### dB |"; E
PRINT USING "              | Sperrd„mpfung                [8]  ####.# dB   |"; VB
PRINT "              | Fertig                       [9]              |"
PRINT "              |-----------------------------------------------|"
PRINT : INPUT "                Bitte Zahl eingeben "; D
IF D = 1 THEN GOTO UNTDURCH
IF D = 2 THEN GOTO OBDURCH
IF D = 3 THEN GOTO UNTSPERR
IF D = 4 THEN GOTO OBSPERR
IF D = 5 THEN GOTO RETLOSS
IF D = 6 THEN GOTO EINGABS
IF D = 7 THEN GOTO RIPPLE
IF D = 8 THEN GOTO SPERRDAEMP
IF D = 9 THEN GOTO TECHDAT
SUCHEN1:
IF RL < 8 THEN GOTO ERRORRL
IF RL > 40 THEN GOTO ERRORRL
P = 20 - RL: K = K - P: AA = 4.074959531968#
REM  DATA 2.3398,1.5384,1.2922,1.1839,1.1266,1.0925,1.0705,1.0556,1.0449,1.0371,1.0311,5.0174
  XE = 2.3398: U = AA * 2: GOSUB SUCHEN1A
IF K < Y THEN
  N = 2: GOTO WEITER4:
ELSE
  XE = 1.5384: U = AA * 3: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 3: GOTO WEITER4:
ELSE
  XE = 1.2922: U = AA * 4: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 4: GOTO WEITER4:
ELSE
  XE = 1.1839: U = AA * 5: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 5: GOTO WEITER4:
ELSE
  XE = 1.1266: U = AA * 6: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 6: GOTO WEITER4:
ELSE
  XE = 1.0925: U = AA * 7: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 7: GOTO WEITER4:
ELSE
  XE = 1.0705: U = AA * 8: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 8: GOTO WEITER4:
ELSE
  XE = 1.0556: U = AA * 9: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 9: GOTO WEITER4:
ELSE
  XE = 1.0449: U = AA * 10: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 10: GOTO WEITER4:
ELSE
  XE = 1.0371: U = AA * 11: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
  N = 11: GOTO WEITER4:
ELSE
  XE = 1.0311: U = AA * 12: GOSUB SUCHEN1A:
END IF
IF K < Y THEN
N = 12: GOTO WEITER4:
ELSE
  XE = 5.0174: U = AA * 16: GOSUB SUCHEN1A:
END IF
IF N > 12 THEN GOTO ERRORDEG
WEITER4: Y = Y + P
RETURN
SUCHEN1A:
XF = (LOG(XE + SQR(XE * XE - 1))) * (U): XG = (EXP(XF) + EXP(-XF)) / 2: XH = XG * 10
XI = LOG(XH) / LOG(10): XA = (LOG(XZ + SQR(XZ * XZ - 1))) * (U): XB = (EXP(XA) + EXP(-XA)) / 2
XC = XB * 10: XD = LOG(XC) / LOG(10): T = XD - XI: Y = (T * 4.761904761#) + (2.5)
YA = Y + P
IF YA < 1 THEN RETURN
PRINT USING "               | ####.###"; YA;
PRINT USING "         ####.###"; VB;
PRINT USING "          ####.###   |"; XD
RETURN
SUCHEN2:
GU = .1313097: GX = .798115: REM BEIDE NIRGENDS BENUTZT
GY = 171126: GZ = INT(AA * 41994.6):
IF GZ <> GY THEN QP = (-GZ)
IF N = 2 THEN GOTO GRAD2
IF N = 3 THEN GOTO GRAD3
IF N = 4 THEN GOTO GRAD4
IF N = 5 THEN GOTO GRAD5
IF N = 6 THEN GOTO GRAD6
IF N = 7 THEN GOTO GRAD7
IF N = 8 THEN GOTO GRAD8
IF N = 9 THEN GOTO GRAD9
IF N = 10 THEN GOTO GRAD10
IF N = 11 THEN GOTO GRAD11
IF N = 12 THEN GOTO GRAD12
ERRORDEG: PRINT "Filtergrad >12 n”tig - Mit diesem Programm nicht berechenbar"
FOR N = 1 TO 4000: NEXT: GOTO EINZELWERT
GRAD2:
REM DATA .6147939,.9370013,.863289,1.1159157,1.1521255,1.3518111
REM DATA 1.5,1.6583124,1.9267159,2.0523728,2.4555483,2.5553312
REM DATA 3.1149102,3.1941611,3.9400422,4.0029905,4.9749145,5.0249154
IF RL = 8 THEN EA = .6147939: EB = .9370013: RETURN
IF RL = 12 THEN EA = .863289: EB = 1.1159157#: RETURN
IF RL = 16 THEN EA = 1.1521255#: EB = 1.3518111#: RETURN
IF RL = 20 THEN EA = 1.5: EB = 1.6583124#: RETURN
IF RL = 24 THEN EA = 1.9267159#: EB = 2.0523728#: RETURN
IF RL = 28 THEN EA = 2.4555483#: EB = 2.5553312#: RETURN
IF RL = 32 THEN EA = 3.1149102#: EB = 3.1941611#: RETURN
IF RL = 36 THEN EA = 3.9400422#: EB = 4.0029905#: RETURN
IF RL = 41 THEN EA = 4.9749145#: EB = 5.0249154#: RETURN
ERRORRL: PRINT "Falsche Eingangs-R�ckfluád„mpfung !"
INPUT "Eingangs-R�ckfluád„mpfung 8-40dB (4dB Schritte) : "; RL
GOTO WEITER2
GRAD3:
REM DATA .2741502,.9876614,.5483004,.370654,1.0780321,.741308
REM DATA .4731987,1.192372,.9463974,.5858591,1.3340512,1.1717183
REM DATA .7119112,1.5068021,1.4238224,.8545812,1.7149132,1.7091624
REM DATA 1.0173437,1.9634063,2.0346874,1.2040895,2.2582061,2.4081791
REM DATA 1.4192424,2.6062899,2.8384848
IF RL = 8 THEN EA = .2741502: EB = .9876614: EC = .5483004: RETURN
IF RL = 12 THEN EA = .370654: EB = 1.0780321#: EC = .741308: RETURN
IF RL = 16 THEN EA = .4731987: EB = 1.192372: EC = .9463974: RETURN
IF RL = 20 THEN EA = .5858591: EB = 1.3340512#: EC = 1.1717183#: RETURN
IF RL = 24 THEN EA = .7119112: EB = 1.5068021#: EC = 1.4238224#: RETURN
IF RL = 28 THEN EA = .8545812: EB = 1.7149132#: EC = 1.7091624#: RETURN
IF RL = 32 THEN EA = 1.0173437#: EB = 1.9634063#: EC = 2.0346874#: RETURN
IF RL = 36 THEN EA = 1.2040895#: EB = 2.2582061#: EC = 2.4081791#: RETURN
IF RL = 40 THEN EA = 1.4192424#: EB = 2.6062899#: EC = 2.8384848#: RETURN
GOTO ERRORRL
GRAD4:
REM  DATA .1542931,.9961461,.2057511,1.0489477,.258382,1.1147497
REM DATA .313848,1.1948459,.3732383,1.2905399,.4374813,1.4032303
REM DATA .5074868,1.5344782,.5842088,1.686059,.6686731,1.859995
IF RL = 8 THEN EA = .1542931: EB = .9961461: GOTO GRAD4A
IF RL = 12 THEN EA = .2057511: EB = 1.0489477#: GOTO GRAD4A
IF RL = 16 THEN EA = .258382: EB = 1.1147497#: GOTO GRAD4A
IF RL = 20 THEN EA = .313848: EB = 1.1948459#: GOTO GRAD4A
IF RL = 24 THEN EA = .3732383: EB = 1.2905399#: GOTO GRAD4A
IF RL = 28 THEN EA = .4374813: EB = 1.4032303#: GOTO GRAD4A
IF RL = 32 THEN EA = .5074868: EB = 1.5344782#: GOTO GRAD4A
IF RL = 36 THEN EA = .5842088: EB = 1.686059: GOTO GRAD4A
IF RL = 40 THEN EA = .6686731: EB = 1.859995: GOTO GRAD4A
GOTO ERRORRL
GRAD5:
REM  DATA .0987616,.998448,.1308493,1.032805,.1630423,1.075316
REM DATA .1962404,1.1266247,.2309533,1.1873277,.2675652,1.258026
REM DATA .3064227,1.3393631,.347871,1.4320517,.392267,1.5368859
IF RL = 8 THEN EA = .0987616: EB = .998448: GOTO GRAD5A
IF RL = 12 THEN EA = .1308493: EB = 1.032805: GOTO GRAD5A
IF RL = 16 THEN EA = .1630423: EB = 1.075316: GOTO GRAD5A
IF RL = 20 THEN EA = .1962404: EB = 1.1266247#: GOTO GRAD5A
IF RL = 24 THEN EA = .2309533: EB = 1.1873277#: GOTO GRAD5A
IF RL = 28 THEN EA = .2675652: EB = 1.258026: GOTO GRAD5A
IF RL = 32 THEN EA = .3064227: EB = 1.3393631#: GOTO GRAD5A
IF RL = 36 THEN EA = .347871: EB = 1.4320517#: GOTO GRAD5A
IF RL = 40 THEN EA = .392267: EB = 1.5368859#: GOTO GRAD5A
GOTO ERRORRL
GRAD6:
REM DATA .0685878,.9992672,.0905504,1.0233354,.1123454,1.0529993
REM DATA .1345398,1.0886352,.1574233,1.1305676,.1811928,1.1791045
REM DATA .206013,1.2345624,.2320404,1.297284,.259432,1.3676439
IF RL = 8 THEN EA = .0685878: EB = .9992672: GOTO GRAD6A
IF RL = 12 THEN EA = .0905504: EB = 1.0233354#: GOTO GRAD6A
IF RL = 16 THEN EA = .1123454: EB = 1.0529993#: GOTO GRAD6A
IF RL = 20 THEN EA = .1345398: EB = 1.0886352#: GOTO GRAD6A
IF RL = 24 THEN EA = .1574233: EB = 1.1305676#: GOTO GRAD6A
IF RL = 28 THEN EA = .1811928: EB = 1.1791045#: GOTO GRAD6A
IF RL = 32 THEN EA = .206013: EB = 1.2345624#: GOTO GRAD6A
IF RL = 36 THEN EA = .2320404: EB = 1.297284: GOTO GRAD6A
IF RL = 40 THEN EA = .259432: EB = 1.3676439#: GOTO GRAD6A
GOTO ERRORRL
GRAD7:
REM DATA .050392,.9996144,.0663855,1.017389,.0821497,1.039244
REM DATA .0980769,1.0654244,.1143529,1.0961289,.1310937,1.1315355
REM DATA .1483896,1.1718204,.1663231,1.2171694,.1849742,1.2677827
IF RL = 8 THEN EA = .050392: EB = .9996144: GOTO GRAD7A
IF RL = 12 THEN EA = .0663855: EB = 1.017389: GOTO GRAD7A
IF RL = 16 THEN EA = .0821497: EB = 1.039244: GOTO GRAD7A
IF RL = 20 THEN EA = .0980769: EB = 1.0654244#: GOTO GRAD7A
IF RL = 24 THEN EA = .1143529: EB = 1.0961289#: GOTO GRAD7A
IF RL = 28 THEN EA = .1310937: EB = 1.1315355#: GOTO GRAD7A
IF RL = 32 THEN EA = .1483896: EB = 1.1718204#: GOTO GRAD7A
IF RL = 36 THEN EA = .1663231: EB = 1.2171694#: GOTO GRAD7A
IF RL = 40 THEN EA = .1849742: EB = 1.2677827#: GOTO GRAD7A
GOTO ERRORRL
GRAD8:
REM DATA .0385817,.9997807,.0507559,1.0134347,.062702,1.0301972
REM DATA .0747086,1.0502401,.086905,1.0736956,.0993664,1.1006765
REM DATA .1121478,1.1312896,.1252972,1.1656452,.1388601,1.2038603
IF RL = 8 THEN EA = .0385817: EB = .9997807: GOTO GRAD8A
IF RL = 12 THEN EA = .0507559: EB = 1.0134347#: GOTO GRAD8A
IF RL = 16 THEN EA = .062702: EB = 1.0301972#: GOTO GRAD8A
IF RL = 20 THEN EA = .0747086: EB = 1.0502401#: GOTO GRAD8A
IF RL = 24 THEN EA = .086905: EB = 1.0736956#: GOTO GRAD8A
IF RL = 28 THEN EA = .0993664: EB = 1.1006765#: GOTO GRAD8A
IF RL = 32 THEN EA = .1121478: EB = 1.1312896#: GOTO GRAD8A
IF RL = 36 THEN EA = .1252972: EB = 1.1656452#: GOTO GRAD8A
IF RL = 40 THEN EA = .1388601: EB = 1.2038603#: GOTO GRAD8A
GOTO ERRORRL
GRAD9:
REM DATA .0304844,.9998679,.0400651,1.0106807,.0494373,1.023941
REM DATA .0588225,1.0397762,.0683162,1.05828,.0779708,1.0795287
REM DATA .0878222,1.1035917,.0979007,1.130539,.1082342,1.1604437
IF RL = 8 THEN EA = .0304844: EB = .9998679: GOTO GRAD9A
IF RL = 12 THEN EA = .0400651: EB = 1.0106807#: GOTO GRAD9A
IF RL = 16 THEN EA = .0494373: EB = 1.023941: GOTO GRAD9A
IF RL = 20 THEN EA = .0588225: EB = 1.0397762#: GOTO GRAD9A
IF RL = 24 THEN EA = .0683162: EB = 1.05828: GOTO GRAD9A
IF RL = 28 THEN EA = .0779708: EB = 1.0795287#: GOTO GRAD9A
IF RL = 32 THEN EA = .0878222: EB = 1.1035917#: GOTO GRAD9A
IF RL = 36 THEN EA = .0979007: EB = 1.130539: GOTO GRAD9A
IF RL = 40 THEN EA = .1082342: EB = 1.1604437#: GOTO GRAD9A
GOTO ERRORRL
GRAD10:
REM DATA .0246924,.9999168,.0324305,1.0086893,.0399833,1.0194393
REM DATA .0475266,1.032265,.055134,1.0472361,.0628437,1.064407
REM DATA .0706808,1.0828253,.0786655,1.1055379,.086806,1.1295928
IF RL = 8 THEN EA = .0246924: EB = .9999168: GOTO GRAD10A
IF RL = 12 THEN EA = .0324305: EB = 1.0086893#: GOTO GRAD10A
IF RL = 16 THEN EA = .0399833: EB = 1.0194393#: GOTO GRAD10A
IF RL = 20 THEN EA = .0475266: EB = 1.032265: GOTO GRAD10A
IF RL = 24 THEN EA = .055134: EB = 1.0472361#: GOTO GRAD10A
IF RL = 28 THEN EA = .0628437: EB = 1.064407: GOTO GRAD10A
IF RL = 32 THEN EA = .0706808: EB = 1.0828253#: GOTO GRAD10A
IF RL = 36 THEN EA = .0786655: EB = 1.1055379#: GOTO GRAD10A
IF RL = 40 THEN EA = .086806: EB = 1.1295928#: GOTO GRAD10A
GOTO ERRORRL
GRAD11:
REM DATA .020407,.9999458,.0267884,1.0072044,.0330068,1.0160943
REM DATA .0392051,1.0266935,.0454418,1.0390558,.0517461,1.0532218
REM DATA .0581363,1.0692254,.0646265,1.0870995,.071229,1.1068769
IF RL = 8 THEN EA = .020407: EB = .9999458: GOTO GRAD11A
IF RL = 12 THEN EA = .0267884: EB = 1.0072044#: GOTO GRAD11A
IF RL = 16 THEN EA = .0330068: EB = 1.0160943#: GOTO GRAD11A
IF RL = 20 THEN EA = .0392051: EB = 1.0266935#: GOTO GRAD11A
IF RL = 24 THEN EA = .0454418: EB = 1.0390558#: GOTO GRAD11A
IF RL = 28 THEN EA = .0517461: EB = 1.0532218#: GOTO GRAD11A
IF RL = 32 THEN EA = .0581363: EB = 1.0692254#: GOTO GRAD11A
IF RL = 36 THEN EA = .0646265: EB = 1.0870995#: GOTO GRAD11A
IF RL = 40 THEN EA = .071229: EB = 1.1068769#: GOTO GRAD11A
GOTO ERRORRL
GRAD12:
REM DATA .0171475,.9999638,.022501,1.0060685,.027711,1.013542
REM DATA .0328964,1.0224479,.0381049,1.032829,.0433593,1.0447163
REM DATA .0486735,1.0581353,.0540579,1.0731096,.0595211,1.0896626
IF RL = 8 THEN EA = .0171475: EB = .9999638: GOTO GRAD12A
IF RL = 12 THEN EA = .022501: EB = 1.0060685#: GOTO GRAD12A
IF RL = 16 THEN EA = .027711: EB = 1.013542: GOTO GRAD12A
IF RL = 20 THEN EA = .0328964: EB = 1.0224479#: GOTO GRAD12A
IF RL = 24 THEN EA = .0381049: EB = 1.032829: GOTO GRAD12A
IF RL = 28 THEN EA = .0433593: EB = 1.0447163#: GOTO GRAD12A
IF RL = 32 THEN EA = .0486735: EB = 1.0581353#: GOTO GRAD12A
IF RL = 36 THEN EA = .0540579: EB = 1.0731096#: GOTO GRAD12A
IF RL = 40 THEN EA = .0595211: EB = 1.0896626#: GOTO GRAD12A
GOTO ERRORRL
GRAD4A:
EC = EA * .3090355 / .1280067: ED = EB * .4035248 / .9741952: RETURN
GRAD5A:
EC = EA * .2151019 / .0821616: ED = EB * .6082065 / .9840988: EE = EA * .2658806 / .0821616
RETURN
GRAD6A:
EC = EA * .1561235 / .0571451: ED = EB * .724137 / .9891896: EE = EA * .2132687 / .0571451
EF = EB * .2650525 / .9891896: RETURN
GRAD7A:
EC = EA * .117746 / .0420231: ED = EB * .7956511 / .9921607: EE = EA * .171126296# / .0420231
EF = EB * .441553 / .9921607: EG = EA * .1888503 / .0420231: RETURN
GRAD8A:
EC = EA * .0916786 / .0321932: ED = EB * .8427143 / .9940493: EE = EA * .1372067 / .0321932
EF = EB * .5630837 / .9940493: EG = EA * .1618464 / .0321932: EH = EB * .1977287 / .9940493
RETURN
GRAD9A:
EC = EA * .0732718 / .025447: ED = EB * .8752749 / .9953259: EE = EA * .112259 / .025447
EF = EB * .6496529 / .9953259: EG = EA * .137706 / .025447: EH = EB * .345673 / .9953259
EI = EA * .1465437 / .025447: RETURN
GRAD10A:
EC = EA * .0598361 / .0206181: ED = EB * .8987122 / .9962301: EE = EA * .093197 / .0206181
EF = EB * .713222 / .9962301: EG = EA * .117435 / .0206181: EH = EB * .4579167 / .9962301
EI = EA * .1301777 / .0206181: EJ = EB * .1577873 / .9962301: RETURN
GRAD11A:
EC = EA * .0497496 / .0170434: ED = EB * .9161318 / .996894: EE = EA * .0784253 / .0170434
EF = EB * .7611498 / .996894: EG = EA * .100747 / .0170434: EH = EB * .5445039 / .996894
EI = EA * .1149077 / .0170434: EJ = EB * .2837456 / .996894: EK = EA * .1197588 / .0170434
RETURN
GRAD12A:
EC = EA * .0419946 / .014323: ED = EB * .9294256 / .9973966: EE = EA * .0668038 / .014323
EF = EB * .798115 / .9973966: EG = EA * .0870604 / .014323: EH = EB * .6124158 / .9973966
EI = EA * .1013839 / .014323: EJ = EB * .3849807: EK = EA * .108798 / .014323
EL = EB * .1313097 / .9973966: RETURN
SUCHEN3:
EP = 0
QA = EA / (EA ^ 2 + (PB - EB) ^ 2)
QC = EA / (EA ^ 2 + (PB + EB) ^ 2):
IF N = 2 THEN GOTO WEITER5
QE = EC / (EC ^ 2 + (PB - ED) ^ 2):
IF N = 3 THEN GOTO WEITER5
QF = EC / (EC ^ 2 + (PB + ED) ^ 2):
IF N = 4 THEN GOTO WEITER5
QG = EE / (EE ^ 2 + (PB - EF) ^ 2):
IF N = 5 THEN GOTO WEITER5
QH = EE / (EE ^ 2 + (PB + EF) ^ 2):
IF N = 6 THEN GOTO WEITER5
QI = EG / (EG ^ 2 + (PB - EH) ^ 2):
IF N = 7 THEN GOTO WEITER5
QJ = EG / (EG ^ 2 + (PB + EH) ^ 2):
IF N = 8 THEN GOTO WEITER5
QK = EI / (EI ^ 2 + (PB - EJ) ^ 2):
IF N = 9 THEN GOTO WEITER5
QL = EI / (EI ^ 2 + (PB + EJ) ^ 2):
IF N = 10 THEN GOTO WEITER5
QM = EK / (EK ^ 2 + (PB - EL) ^ 2):
IF N = 11 THEN GOTO WEITER5
QN = EK / (EK ^ 2 + (PB + EL) ^ 2):
IF N = 12 THEN GOTO WEITER5
WEITER5:
QR = (QA + QC + QE + QF + QG + QH + QI + QJ + QK + QL + QM + QN + QP)
TA = (QR * (1 / (2 * 3.141592653#)))
RETURN
SUCHEN4:
QA = EA / (EA ^ 2 + (0 - EB) ^ 2)
QC = EA / (EA ^ 2 + (0 + EB) ^ 2):
IF N = 2 THEN GOTO WEITER6
QE = EC / (EC ^ 2 + (0 - ED) ^ 2):
IF N = 3 THEN GOTO WEITER6
QF = EC / (EC ^ 2 + (0 + ED) ^ 2):
IF N = 4 THEN GOTO WEITER6
QG = EE / (EE ^ 2 + (0 - EF) ^ 2):
IF N = 5 THEN GOTO WEITER6
QH = EE / (EE ^ 2 + (0 + EF) ^ 2):
IF N = 6 THEN GOTO WEITER6
QI = EG / (EG ^ 2 + (0 - EH) ^ 2):
IF N = 7 THEN GOTO WEITER6
QJ = EG / (EG ^ 2 + (0 + EH) ^ 2):
IF N = 8 THEN GOTO WEITER6
QK = EI / (EI ^ 2 + (0 - EJ) ^ 2):
IF N = 9 THEN GOTO WEITER6
QL = EI / (EI ^ 2 + (0 + EJ) ^ 2):
IF N = 10 THEN GOTO WEITER6
QM = EK / (EK ^ 2 + (0 - EL) ^ 2):
IF N = 11 THEN GOTO WEITER6
QN = EK / (EK ^ 2 + (0 + EL) ^ 2):
IF N = 12 THEN GOTO WEITER6
WEITER6:
QR = (QA + QC + QE + QF + QG + QH + QI + QJ + QK + QL + QM + QN + QP)
TB = QR * (1 / (2 * 3.141592653#))
RETURN
SUCHEN5:
QA = EA / (EA ^ 2 + (RB - EB) ^ 2)
QC = EA / (EA ^ 2 + (RB + EB) ^ 2):
IF N = 2 THEN GOTO WEITER7
QE = EC / (EC ^ 2 + (RB - ED) ^ 2):
IF N = 3 THEN GOTO WEITER7
QF = EC / (EC ^ 2 + (RB + ED) ^ 2):
IF N = 4 THEN GOTO WEITER7
QG = EE / (EE ^ 2 + (RB - EF) ^ 2):
IF N = 5 THEN GOTO WEITER7
QH = EE / (EE ^ 2 + (RB + EF) ^ 2):
IF N = 6 THEN GOTO WEITER7
QI = EG / (EG ^ 2 + (RB - EH) ^ 2):
IF N = 7 THEN GOTO WEITER7
QJ = EG / (EG ^ 2 + (RB + EH) ^ 2):
IF N = 8 THEN GOTO WEITER7
QK = EI / (EI ^ 2 + (RB - EJ) ^ 2):
IF N = 9 THEN GOTO WEITER7
QL = EI / (EI ^ 2 + (RB + EJ) ^ 2):
IF N = 10 THEN GOTO WEITER7
QM = EK / (EK ^ 2 + (RB - EL) ^ 2):
IF N = 11 THEN GOTO WEITER7
QN = EK / (EK ^ 2 + (RB + EL) ^ 2):
IF N = 12 THEN GOTO WEITER7
WEITER7:
QR = (QA + QC + QE + QF + QG + QH + QI + QJ + QK + QL + QM + QN + QP)
TC = (QR * (1 / (2 * 3.141592653#)))
RETURN
BERECHABMESS:
CLS
PRINT "             |--------------------------------------------------|"
PRINT "             |         Suche nach ben”tigten Abmessungen        |"
PRINT "             |            und Resonator-Verk�rzungen            |"
PRINT "             |--------------------------------------------------|"
PRINT "             |     G�te       G�te     Resonator-   Verk�rzung  |"
PRINT "             |  gefordert:  erreicht:  Durchm./mm    in Grad    |"
PRINT "             |--------------------------------------------------|"
DP = .6: GOTO BERAB1
IF DP > 12 THEN GOTO ERRORQ
BERAB2:
DP = DP + .6
BERAB1:
ER = .242: GOSUB BERECHUNTERP1
IF ZA > Z THEN GOTO SUCHSCHLEIFE
GOTO BERAB2
ERRORQ:
PRINT " G�te nicht erreichbar, bitte andere G�te w„hlen"
WARTTAST3:
AB$ = INKEY$:
IF AB$ = "" THEN GOTO WARTTAST3
GOTO EINZELWERT
SUCHSCHLEIFE:
ER = 13.938: BO = 7.5: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 6.848: BO = 15: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 4.43: BO = 22.5: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 3.178: BO = 30: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 2.391: BO = 37.5: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 1.835: BO = 45: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 1.408: BO = 52.5: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = 1.059: BO = 60: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = .76: BO = 67.5: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = .492: BO = 75: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
ER = .242: BO = 82.5: GOSUB BERECHUNTERP1:
IF ZA > Z THEN GOTO GEFUNDEN
BERECHUNTERP1:
HA = SQR(H): HB = LOG(HA) / LOG(10): HC = SQR(HB)
IF (H < 150) OR (H > 5000) THEN
 HE = HA / HC:
ELSE HD = HB / 10: I = HC - HD: HE = HA / I:
END IF
ZB = HE * (DP * 14.52): ZC = ZB / 100: HI = LOG(H) / LOG(10)
HJ = (HI - 1) ^ 2: HK = ZC * HJ: HL = HK * (ER * (SQR(DP))): ZA = ZB - HL
ZA = INT(ZA)
IF ZA < 1 THEN RETURN
PRINT USING "             |   ######"; Z; : PRINT USING "     ######"; ZA;
PRINT USING "     ####.##"; (DP + .005); : PRINT USING "       ####.#     |"; BO
RETURN
GEFUNDEN:
PRINT "             |--------------------------------------------------|"
PRINT "             | Geforderte G�te gefunden -  Bitte Taste dr�cken  |"
PRINT "             |--------------------------------------------------|"
WARTTAST2:
AB$ = INKEY$:
IF AB$ = "" THEN GOTO WARTTAST2
NN = NN(N - 2, INT((RL - 8) / 4))
IF BO = 15 THEN NN = NN * 1.4023
IF BO = 22.5 THEN NN = NN * 1.6932
IF BO = 30 THEN NN = NN * 1.9171
IF BO = 37.5 THEN NN = NN * 2.0904
IF BO = 45 THEN NN = NN * 2.2222
IF BO = 52.5 THEN NN = NN * 2.3184
IF BO = 60 THEN NN = NN * 2.3854
IF BO = 67.5 THEN NN = NN * 2.4257
IF BO = 75 THEN NN = NN * 2.4474
IF BO = 82.5 THEN NN = NN * 2.4555
NN = INT(SQR(LX) * NN * 10000) / 10000
CA = 0: CB = 0: CC = 0: CD = 0: CE = 0: CF = 0
CA = CA(N - 2, INT((RL - 8) / 4)):
IF N < 4 THEN GOTO WEITER8
CB = CB(N - 4, INT((RL - 8) / 4)):
IF N < 6 THEN GOTO WEITER8
CC = CC(N - 6, INT((RL - 8) / 4)):
IF N < 8 THEN GOTO WEITER8
CD = CD(N - 8, INT((RL - 8) / 4)):
IF N < 10 THEN GOTO WEITER8
CE = CE(N - 10, INT((RL - 8) / 4)):
IF N < 12 THEN GOTO WEITER8
CF = CF(INT((RL - 8) / 4))
WEITER8:
LD = SQR(SQR(LX))
CA = (CA / LD) * 10
CB = (CB / LD) * 10
CC = (CC / LD) * 10
CD = (CD / LD) * 10
CE = (CE / LD) * 10
CF = (CF / LD) * 10
GOTO RECHNE1
RECHNE6:
CA = INT((CA) / .01) / 100
CB = INT((CB) / .01) / 100
CC = INT((CC) / .01) / 100
CD = INT((CD) / .01) / 100
CE = INT((CE) / .01) / 100
CF = INT((CF) / .01) / 100
IF CB < 1 THEN CB = 0
IF CC < 1 THEN CC = 0
IF CD < 1 THEN CD = 0
IF CE < 1 THEN CE = 0
IF CF < 1 THEN CF = 0
GOTO PRAKTAUSF2
RECHNE1:
CQ = 0: CR = 0: GOTO RECHNE3
RECHNE2:
CA = CA + CQ: CB = CB + CQ: CC = CC + CQ: CD = CD + CQ: CE = CE + CQ: CF = CF + CQ
GOTO RECHNE6
RECHNE3:
IF LX < 1 THEN GOTO RECHNE6
IF LX < 5 THEN GOTO RECHNE4
IF LX < 10 THEN GOTO RECHNE5
CR = LX - 10: CS = SQR(CR): CQ = LOG(CS) / LOG(10)
CA = CA - CQ: CB = CB - CQ: CC = CC - CQ: CD = CD - CQ: CE = CE - CQ: CF = CF - CQ
GOTO RECHNE6
RECHNE4:
CQ = LOG(LX) / LOG(10): GOTO RECHNE2
RECHNE5:
CQ = (1 / (LOG(LX) / LOG(10))) - 1: GOTO RECHNE2
BERECHUNTERP2:
CG = 1.00170702#: CH = 1.00448884#: CI = 1.00834545#: CJ = 1.01308719#: CK = 1.01865082#
CL = 1.02472024#: CM = 1.03104255#: CN = 1.03717519#: CO = 1.04254916#: CP = 1.04646899#
IF BO = 15 THEN
 CA = CA * CG: CB = CB * CG: CC = CC * CG: CD = CD * CG: CE = CE * CG: CF = CF * CG
END IF
IF BO = 22.5 THEN
 CA = CA * CH: CB = CB * CH: CC = CC * CH: CD = CD * CH: CE = CE * CH: CF = CF * CH
END IF
IF BO = 30 THEN
 CA = CA * CI: CB = CB * CI: CC = CC * CI: CD = CD * CI: CE = CE * CI: CF = CF * CI
END IF
IF BO = 37.5 THEN
 CA = CA * CJ: CB = CB * CJ: CC = CC * CJ: CD = CD * CJ: CE = CE * CJ: CF = CF * CJ
END IF
IF BO = 45 THEN
 CA = CA * CK: CB = CB * CK: CC = CC * CK: CD = CD * CK: CE = CE * CK: CF = CF * CK
END IF
IF BO = 52.5 THEN
 CA = CA * CL: CB = CB * CL: CC = CC * CL: CD = CD * CL: CE = CE * CL: CF = CF * CL
END IF
IF BO = 60 THEN
 CA = CA * CM: CB = CB * CM: CC = CC * CM: CD = CD * CM: CE = CE * CM: CF = CF * CM
END IF
IF BO = 67.5 THEN
 CA = CA * CN: CB = CB * CN: CC = CC * CN: CD = CD * CN: CE = CE * CN: CF = CF * CN
END IF
IF BO = 75 THEN
 CA = CA * CO: CB = CB * CO: CC = CC * CO: CD = CD * CO: CE = CE * CO: CF = CF * CO
END IF
IF BO = 82.5 THEN
 CA = CA * CP: CB = CB * CP: CC = CC * CP: CD = CD * CP: CE = CE * CP: CF = CF * CP
END IF
RETURN
TABELLENANLEGEN:
RESTORE
FOR GRAD = 0 TO 10
 FOR RETLOS = 0 TO 8
  READ NN(GRAD, RETLOS)
 NEXT RETLOS
NEXT GRAD
FOR GRAD = 0 TO 1
 FOR RETLOS = 0 TO 8
  READ CA(GRAD, RETLOS)
 NEXT RETLOS
NEXT GRAD
FOR GRAD = 2 TO 3
 FOR RETLOS = 0 TO 8
  READ CA(GRAD, RETLOS)
  READ CB(GRAD - 2, RETLOS)
 NEXT RETLOS
NEXT GRAD
FOR GRAD = 4 TO 5
 FOR RETLOS = 0 TO 8
  READ CA(GRAD, RETLOS)
  READ CB(GRAD - 2, RETLOS)
  READ CC(GRAD - 4, RETLOS)
 NEXT RETLOS
NEXT GRAD
FOR GRAD = 6 TO 7
 FOR RETLOS = 0 TO 8
  READ CA(GRAD, RETLOS)
  READ CB(GRAD - 2, RETLOS)
  READ CC(GRAD - 4, RETLOS)
  READ CD(GRAD - 6, RETLOS)
 NEXT RETLOS
NEXT GRAD
FOR GRAD = 8 TO 9
 FOR RETLOS = 0 TO 8
  READ CA(GRAD, RETLOS)
  READ CB(GRAD - 2, RETLOS)
  READ CC(GRAD - 4, RETLOS)
  READ CD(GRAD - 6, RETLOS)
  READ CE(GRAD - 8, RETLOS)
 NEXT RETLOS
NEXT GRAD
FOR RETLOS = 0 TO 8
 READ CA(10, RETLOS)
 READ CB(8, RETLOS)
 READ CC(6, RETLOS)
 READ CD(4, RETLOS)
 READ CE(2, RETLOS)
 READ CF(RETLOS)
NEXT RETLOS
DATEN:
DATA .3087,.3658,.4226,.4822,.5465,.617,.6949,.7815,.8782: REM      N= 2 ,RL=8-40
DATA .2915,.339,.383,.4262,.4698,.5147,.5616,.611,.6633: REM        N= 3 ,RL=8-40
DATA .2858,.33,.3698,.4076,.4444,.4812,.5182,.556,.5949: REM        N= 4 ,RL=8-40
DATA .2831,.3259,.3638,.3991,.433,.466,.4987,.5314,.5643: REM       N= 5 ,RL=8-40
DATA .2817,.3237,.3605,.3945,.4268,.4579,.4882,.5181,.5479: REM     N= 6 ,RL=8-40
DATA .2809,.3224,.3586,.3918,.4231,.453,.4819,.5102,.5381: REM      N= 7 ,RL=8-40
DATA .2803,.3215,.3573,.39,.4207,.4498,.4779,.5051,.5318: REM       N= 8 ,RL=8-40
DATA .2799,.3209,.3565,.3888,.419,.4477,.4751,.5016,.5274: REM      N= 9 ,RL=8-40
DATA .2796,.3205,.3559,.388,.4179,.4461,.4731,.4991,.5244: REM      N=10 ,RL=8-40
DATA .2795,.3202,.3554,.3873,.417,.445,.4717,.4973,.5221: REM       N=11 ,RL=8-40
DATA .2793,.3199,.3551,.3868,.4163,.4441,.4706,.4959,.5204: REM     N=12 ,RL=8-40
DATA 1.5817,1.5261,1.465,1.4,1.3321,1.2624,1.1914,1.1195,1.0472: REM            CA RL=8-40
DATA 1.6634,1.6296,1.592,1.5515,1.5087,1.4643,1.4187,1.3722,1.3251: REM         CA RL=8-40
DATA 1.6816,1.7373,1.6538,1.7211,1.6233,1.7018,1.5908,1.6797,1.5569: REM        CA-CB RL=8-24
DATA 1.6552,1.522,1.6285,1.4865,1.6001,1.4505,1.5701,1.4144,1.5388: REM         CA-CB RL=24-40
DATA 1.6889,1.752,1.6636,1.7402,1.6361,1.7263,1.607,1.7103,1.577: REM           CA-CB RL=8-24
DATA 1.6925,1.5465,1.6729,1.5157,1.6519,1.4849,1.6296,1.4541,1.6062: REM        CA-CB RL=24-40
DATA 1.6926,1.7576,1.7649,1.6685,1.7478,1.7573,1.6426,1.7362,1.7483: REM        CA-CC RL=8-16
DATA 1.6153,1.7229,1.7377,1.5874,1.7081,1.7256,1.5592,1.6918,1.7122: REM        CA-CC RL=20-28
DATA 1.531,1.6744,1.6976,1.503,1.6559,1.6818,1.4752,1.6366,1.665: REM           CA-CC RL=32-40
DATA 1.6947,1.7605,1.7699,1.6714,1.7517,1.764,1.6463,1.7413,1.7569: REM         CA-CC RL=8-16
DATA 1.6202,1.7294,1.7486,1.5935,1.7162,1.7392,1.5667,1.7018,1.7287: REM        CA-CC RL=20-28
DATA 1.54,1.6863,1.7172,1.5137,1.67,1.7047,1.4752,1.6366,1.665: REM             CA-CC RL=32-40
DATA 1.696,1.7622,1.7724,1.7745,1.6732,1.754,1.7674,1.7702: REM                 CA-CD, RL=8-12
DATA 1.6488,1.7443,1.7613,1.7649,1.6233,1.7332,1.7543,1.7588: REM               CA-CD RL=16-20
DATA 1.5974,1.721,1.7462,1.7518,1.5715,1.7076,1.7373,1.7439: REM                CA-CD RL=24-28
DATA 1.5458,1.6934,1.7274,1.7351,1.5205,1.6784,1.7168,1.7256: REM               CA-CD RL=32-36
DATA 1.4958,1.6628,1.7053,1.7154: REM                                           CA-CD RL=40
DATA 1.6969,1.7633,1.7738,1.7768,1.6745,1.7554,1.7693,1.7732: REM               CA-CD, RL=8-12
DATA 1.6504,1.7462,1.7639,1.769,1.6254,1.7357,1.7576,1.7639: REM                CA-CD RL=16-20
DATA 1.6,1.7241,1.7504,1.7582,1.5747,1.7115,1.7423,1.7517: REM                  CA-CD RL=24-28
DATA 1.5497,1.698,1.7335,1.7445,1.5252,1.6839,1.724,1.7366: REM                 CA-CD RL=32-36
DATA 1.5012,1.6692,1.7138,1.7281: REM                                           CA-CD RL=40
DATA 1.6976,1.764,1.7748,1.7781,1.7789,1.6753,1.7564,1.7706,1.775,1.7761: REM   CA-CE RL=8-12
DATA 1.6515,1.7475,1.7656,1.7713,1.7727,1.6268,1.7374,1.7597,1.7669,1.7688: REM CA-CE RL=16-20
DATA 1.6019,1.7262,1.753,1.7619,1.7642,1.577,1.7141,1.7456,1.7563,1.759: REM    CA-CE RL=24-28
DATA 1.5525,1.7012,1.7375,1.75,1.7533,1.5285,1.6877,1.7287,1.7432,1.7496: REM   CA-CE RL=32-36
DATA 1.5051,1.6736,1.7193,1.7358,1.7401,1.6981,1.7645,1.7754,1.7789,1.7801: REM CA-CE RL=40/8
DATA 1.676,1.7571,1.7714,1.7761,1.7778,1.6524,1.7484,1.7667,1.7728,1.7749: REM  CA-CE RL=12-16
DATA 1.6279,1.7386,1.7612,1.7689,1.7716,1.6032,1.7277,1.7549,1.7643,1.7677: REM CA-CE RL=20-24
DATA 1.5787,1.7159,1.7479,1.7592,1.7633,1.5545,1.7035,1.7402,1.7536,1.7584: REM CA-CE RL=28-32
DATA 1.5309,1.6904,1.732,1.7474,1.753,1.508,1.6768,1.7231,1.7407,1.7472: REM    CA-CE RL=36-40
DATA 1.6984,1.7649,1.7758,1.7795,1.7809,1.7813,1.6765,1.7577,1.7721: REM        CA-CF RL=8-12
DATA 1.7769,1.7788,1.7794,1.653,1.7491,1.7675,1.7738,1.7763,1.777: REM          CA-CF RL=12-16
DATA 1.6288,1.7395,1.7622,1.7702,1.7733,1.7742,1.6043,1.7288,1.7562: REM        CA-CF RL=20-24
DATA 1.766,1.7699,1.771,1.58,1.7173,1.7495,1.7613,1.766,1.7674: REM             CA-CF RL=24-28
DATA 1.5561,1.7051,1.7422,1.756,1.7617,1.7633,1.5328,1.6924,1.7343: REM         CA-CF RL=32-36
DATA 1.7503,1.757,1.7588,1.5102,1.6792,1.7259,1.7442,1.7518,1.754: REM          CA-CF RL=36-40
RETURN
BEISPIEL1:
CLS : A = 2300: B = 2350: RL = 24: E = .3: F = 2200: G = 2450: VB = 60: J = 50: GOTO WEITER2
BEISPIEL2:
CLS : A = 650: B = 750: RL = 24: E = .2: F = 620: G = 780: VB = 30: J = 50: GOTO WEITER2
PROGENDE:
END