DIM druck1(50) DIM druck2(50) DIM druck3(50) DIM druck4(50) DIM druck5(50) DIM druck6(50) DIM druck7(50) DIM druck8(50) DIM druck9(50) DIM druck10(50) DIM druck11(50) DIM druck12(50) DIM druck13(50) DIM druck14(50) DIM druck15(50) DIM druck16(50) DIM druck17(50) DIM druck18(50) DIM druck19(50) DIM druck20(50) DIM druck21(50) DIM jn19 AS STRING DIM jn35 AS STRING DIM jn70 AS STRING DIM jn10 AS STRING DIM jn14 AS STRING DIM jn18 AS STRING DIM JN21 AS STRING DIM jn24 AS STRING DIM jn28 AS STRING DIM alles AS STRING DIM w AS STRING CLS INPUT "Resonanzfrequenz fr h”chstes Band: (ENTER = 28.3) "; qrg IF qrg = 0 THEN qrg = 28.3 PRINT "qrg="; qrg INPUT "geplante Antennenl„nge in Anzahl Halbwellen des h”chsten Bandes (ENTER = 8)"; halbw IF halbw = 0 THEN halbw = 8 PRINT "Halbwellen="; halbw INPUT "Antenne berechnen fr (a)lle 160-10m oder (e)inzelne B„nder"; w IF w = "" THEN w = "a" IF w = "a" THEN PRINT "alle B„nder" IF w = "e" THEN PRINT "einzelne wie folgt:" INPUT "1.8 J/N"; jn19 INPUT "3.5 J/N"; jn35 INPUT "7.0 J/N"; jn70 INPUT "10 J/N"; jn10 INPUT "14 J/N"; jn14 INPUT "18 J/N"; jn18 INPUT "21 J/N"; JN21 INPUT "24 J/N"; jn24 INPUT "28 J/N"; jn28 ELSE jn19 = "j" jn35 = "j" jn70 = "j" jn10 = "j" jn14 = "j" jn18 = "j" JN21 = "j" jn24 = "j" jn28 = "j" END IF INPUT "Stromsummen fr CW (1) oder SSB (2) Band (ENTER = 1)?"; cwjn IF cwjn = 0 THEN cwjn = 1 IF cwjn = 1 THEN PRINT "Berechnung fr CW-Band" IF cwjn = 2 THEN PRINT "Berechnung fr SSB-Band" INPUT "komplette Tabelle (j/n, ENTER = n)"; alles IF alles = "" THEN alles = "n" vkf = .05 laenge = (150 * (halbw - vkf)) / qrg res28 = (150 * (halbw - vkf)) / laenge res24 = (150 * ((halbw / (28! / 24.98)) - vkf)) / laenge res21 = (150 * ((halbw / (28! / 21!)) - vkf)) / laenge res18 = (150 * ((halbw / (28! / 18.068)) - vkf)) / laenge res14 = (150 * ((halbw / 2) - vkf)) / laenge res10 = (150 * ((halbw / (28! / 10.1)) - vkf)) / laenge res70 = (150 * ((halbw / 4) - vkf)) / laenge res35 = (150 * ((halbw / 8) - vkf)) / laenge res19 = (150 * ((halbw / 16) - vkf)) / laenge PRINT "Laenge der Antenne "; laenge INPUT "Weiter mit jeder Taste"; w OPEN "ant.txt" FOR OUTPUT AS #1 IF alles = "j" THEN OPEN "antkompl.txt" FOR OUTPUT AS #2 END IF punkte = (laenge * 100 / 1280) REM lambda28 = 300 / res28 REM lambda24 = 300 / res24 REM lambda21 = 300 / res21 REM lambda18 = 300 / res18 REM lambda14 = 300 / res14 REM lambda10 = 300 / res10 REM lambda70 = 300 / res70 REM lambda35 = 300 / res35 REM lambda19 = 300 / res19 IF cwjn = 1 THEN lambda28 = 300000 / 28000 lambda24 = 300000 / 24890 lambda21 = 300000 / 21000 lambda18 = 300000 / 18068 lambda14 = 300000 / 14000 lambda10 = 300000 / 10100 lambda70 = 300000 / 7000 lambda35 = 300000 / 3500 lambda19 = 300000 / 1820 ELSE lambda28 = 300000 / 28600 lambda24 = 300000 / 24950 lambda21 = 300000 / 21250 lambda18 = 300000 / 18130 lambda14 = 300000 / 14250 lambda10 = 300000 / 10130 lambda70 = 300000 / 7060 lambda35 = 300000 / 3750 lambda19 = 300000 / 1860 END IF SCREEN 8 pgalt = 0 maximum = 0 FOR i = 0 TO (laenge * 100) - 1 i1 = i / 100 a = .95 / 4 IF i1 > laenge / 2 THEN i = laenge * 100 END IF p28 = ABS(COS(6.28 * ((i1 / lambda28) - a))) p24 = ABS(COS(6.28 * ((i1 / lambda24) - a))) p21 = ABS(COS(6.28 * ((i1 / lambda21) - a))) p18 = ABS(COS(6.28 * ((i1 / lambda18) - a))) p14 = ABS(COS(6.28 * ((i1 / lambda14) - a))) p10 = ABS(COS(6.28 * ((i1 / lambda10) - a))) p70 = ABS(COS(6.28 * ((i1 / lambda70) - a))) p35 = ABS(COS(6.28 * ((i1 / lambda35) - a))) p19 = ABS(COS(6.28 * ((i1 / lambda19) - a))) IF alles = "j" THEN PRINT #2, i / 100, p28, p24, p21, p18, p14, p10, p70, p35, p19, (p28 + p24 + p21 + p18 + p14 + p10 + p70 + p35 + p19) / 8 END IF pg = 0 anzpg = 0 IF jn28 = "j" THEN pg = pg + p28 anzpg = anzpg + 1 END IF IF jn24 = "j" THEN pg = pg + p24 anzpg = anzpg + 1 END IF IF JN21 = "j" THEN pg = pg + p21 anzpg = anzpg + 1 END IF IF jn18 = "j" THEN pg = pg + p18 anzpg = anzpg + 1 END IF IF jn14 = "j" THEN pg = pg + p14 anzpg = anzpg + 1 END IF IF jn10 = "j" THEN pg = pg + p10 anzpg = anzpg + 1 END IF IF jn70 = "j" THEN pg = pg + p70 anzpg = anzpg + 1 END IF IF jn35 = "j" THEN pg = pg + p35 anzpg = anzpg + 1 END IF IF jn19 = "j" THEN pg = pg + p19 anzpg = anzpg + 1 END IF pg = pg / anzpg REM PRINT i / 100, pg IF pg > pgalt THEN pgalt = pg rauf = 1 druck1(maximum) = i / 100 druck2(maximum) = pg IF jn28 = "j" THEN druck3(maximum) = p28 END IF IF jn24 = "j" THEN druck4(maximum) = p24 END IF IF JN21 = "j" THEN druck5(maximum) = p21 END IF IF jn18 = "j" THEN druck6(maximum) = p18 END IF IF jn14 = "j" THEN druck7(maximum) = p14 END IF IF jn10 = "j" THEN druck8(maximum) = p10 END IF IF jn70 = "j" THEN druck9(maximum) = p70 END IF IF jn35 = "j" THEN druck10(maximum) = p35 END IF IF jn19 = "j" THEN druck11(maximum) = p19 END IF ELSE pgalt = pg IF rauf = 1 THEN maximum = maximum + 1 rauf = 0 END IF END IF IF jn28 = "j" THEN REM PRINT i1, p28 PSET (i / punkte, -p28 * 80 + 150), 2 END IF IF JN21 = "j" THEN PSET (i / punkte, -p21 * 80 + 150), 3 END IF IF jn70 = "j" THEN PSET (i / punkte, -p70 * 80 + 150), 5 END IF IF jn35 = "j" THEN PSET (i / punkte, -p35 * 80 + 150), 6 END IF IF jn10 = "j" THEN PSET (i / punkte, -p10 * 80 + 150), 8 END IF IF jn18 = "j" THEN PSET (i / punkte, -p18 * 80 + 150), 9 END IF IF jn24 = "j" THEN PSET (i / punkte, -p24 * 80 + 150), 10 END IF IF jn19 = "j" THEN PSET (i / punkte, -p19 * 80 + 150), 7 END IF PSET (i / punkte, 150) PSET (i / punkte, -(pg) * 160 + 150), 4 NEXT i LOCATE 20, 1 PRINT "0m"; PRINT " Mitte: -->"; laenge / 2; "m" PRINT "Antennengesamtl„nge "; laenge; " m" PRINT REM NEXT tabelle PRINT #1, "" PRINT #1, "******************* Stromsummenantenne nach DL1VU ***************" PRINT #1, "" PRINT #1, "Antenne berechnet auf Basis "; qrg; "MHz fuer "; halbw; " Halbwellen" PRINT #1, "Geometrische Antennenlaenge: "; laenge PRINT #1, "" PRINT #1, "" PRINT #1, "Mtr"; PRINT #1, TAB(7); "Index"; PRINT #1, TAB(14); "28 MHz"; PRINT #1, TAB(21); "24 MHz"; PRINT #1, TAB(28); "21 MHz"; PRINT #1, TAB(35); "18 MHz"; PRINT #1, TAB(42); "14 MHz"; PRINT #1, TAB(49); "10 MHz"; PRINT #1, TAB(56); "7 MHz"; PRINT #1, TAB(63); "3.5 MHz"; PRINT #1, TAB(71); "1.8 MHz" PRINT #1, "_____________________________________________________________________________" PRINT #1, "" FOR i = 1 TO maximum - 1 PRINT #1, USING "##.##"; druck1(i); PRINT #1, TAB(8); PRINT #1, USING "#.##"; druck2(i); PRINT #1, TAB(15); PRINT #1, USING "#.##"; druck3(i); PRINT #1, TAB(22); PRINT #1, USING "#.##"; druck4(i); PRINT #1, TAB(29); PRINT #1, USING "#.##"; druck5(i); PRINT #1, TAB(36); PRINT #1, USING "#.##"; druck6(i); PRINT #1, TAB(43); PRINT #1, USING "#.##"; druck7(i); PRINT #1, TAB(50); PRINT #1, USING "#.##"; druck8(i); PRINT #1, TAB(57); PRINT #1, USING "#.##"; druck9(i); PRINT #1, TAB(64); PRINT #1, USING "#.##"; druck10(i); PRINT #1, TAB(71); PRINT #1, USING "#.##"; druck11(i) NEXT PRINT #1, "" a = .95 / 4 FOR i = 1 TO maximum - 1 PRINT #1, "" PRINT #1, "Einspeisung bei"; druck1(i); " Meter " IF jn28 = "j" THEN p28 = ABS(COS(6.28 * (i1 / lambda28 - a))) PRINT #1, "28000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 28000) - a))); PRINT #1, " 28500 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 28500) - a))); PRINT #1, " 29000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 29000) - a))) END IF IF jn24 = "j" THEN PRINT #1, "24890 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 24890) - a))); PRINT #1, " 24990 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 24990) - a))) END IF IF JN21 = "j" THEN PRINT #1, "21000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21000) - a))); PRINT #1, " 21200 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21200) - a))); PRINT #1, " 21350 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21350) - a))) END IF IF jn18 = "j" THEN PRINT #1, "18068 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 18068) - a))); PRINT #1, " 18168 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 18168) - a))) END IF IF jn14 = "j" THEN PRINT #1, "14000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14000) - a))); PRINT #1, " 14200 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14200) - a))); PRINT #1, " 14300 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14300) - a))) END IF IF jn10 = "j" THEN PRINT #1, "10100 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 10100) - a))); PRINT #1, " 10150 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 10150) - a))) END IF IF jn70 = "j" THEN PRINT #1, " 7000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7000) - a))); PRINT #1, " 7050 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7050) - a))); PRINT #1, " 7100 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7100) - a))) END IF IF jn35 = "j" THEN PRINT #1, " 3500 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3500) - a))); PRINT #1, " 3600 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3600) - a))); PRINT #1, " 3700 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3700) - a))); PRINT #1, " 3800 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3800) - a))) END IF IF jn19 = "j" THEN PRINT #1, " 1810 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1810) - a))); PRINT #1, " 1840 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1840) - a))); PRINT #1, " 1910 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1910) - a))) END IF NEXT i PRINT #1, "" PRINT #1, "Resonanzfrequenzen bei einer Antennenl„nge von "; laenge PRINT #1, "Resonanz 28 MHz:"; USING " ##.###"; res28 PRINT #1, "Resonanz 24 MHz:"; USING " ##.###"; res24 PRINT #1, "Resonanz 21 MHz:"; USING " ##.###"; res21 PRINT #1, "Resonanz 18 MHz:"; USING " ##.###"; res18 PRINT #1, "Resonanz 14 MHz:"; USING " ##.###"; res14 PRINT #1, "Resonanz 10 MHz:"; USING " ##.###"; res10 PRINT #1, "Resonanz 7 MHz:"; USING " ##.###"; res70 PRINT #1, "Resonanz 3.5 MHz:"; USING " ##.###"; res35 PRINT #1, "Resonanz 1.8 MHz:"; USING " ##.###"; res19 666 : PRINT "1-wiederholen, 2-Tab ansehen, 3-Tab ausdrucken, 4-Ende" 777 : INPUT v IF v < 1 OR v > 4 THEN GOTO 777 ON v GOTO MARK1, MARK2, MARK3, MARK4 MARK4: PRINT "": PRINT "Ende! - Tabelle liegt als Textfile 'ant.txt' vor" CLOSE #1 CLOSE #2 END MARK1: RUN MARK2: CLS : PRINT "" PRINT "********************* Stromsummenantenne nach DJ1VU **********************" PRINT "" PRINT "Antenne berechnet auf Basis "; qrg; "MHz fuer "; halbw; " Halbwellen" PRINT "Geometrische Antennenlaenge: "; laenge PRINT "" PRINT "" PRINT "Mtr"; PRINT TAB(7); "Index"; PRINT TAB(14); "28 MHz"; PRINT TAB(21); "24 MHz"; PRINT TAB(28); "21 MHz"; PRINT TAB(35); "18 MHz"; PRINT TAB(42); "14 MHz"; PRINT TAB(49); "10 MHz"; PRINT TAB(56); "7 MHz"; PRINT TAB(63); "3.5 MHz"; PRINT TAB(71); "1.8 MHz" PRINT "_____________________________________________________________________________" PRINT "" FOR i = 1 TO maximum - 1 PRINT USING "##.##"; druck1(i); PRINT TAB(8); PRINT USING "#.##"; druck2(i); PRINT TAB(15); PRINT USING "#.##"; druck3(i); PRINT TAB(22); PRINT USING "#.##"; druck4(i); PRINT TAB(29); PRINT USING "#.##"; druck5(i); PRINT TAB(36); PRINT USING "#.##"; druck6(i); PRINT TAB(43); PRINT USING "#.##"; druck7(i); PRINT TAB(50); PRINT USING "#.##"; druck8(i); PRINT TAB(57); PRINT USING "#.##"; druck9(i); PRINT TAB(64); PRINT USING "#.##"; druck10(i); PRINT TAB(71); PRINT USING "#.##"; druck11(i) NEXT PRINT "" INPUT "weiter?"; w CLS PRINT "" a = .95 / 4 FOR i = 1 TO maximum - 1 PRINT "" PRINT "Einspeisung bei"; druck1(i); " Meter " PRINT "" IF jn28 = "j" THEN p28 = ABS(COS(6.28 * (i1 / lambda28 - a))) PRINT "28000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 28000) - a))); PRINT " 28500 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 28500) - a))); PRINT " 29000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 29000) - a))) END IF IF jn24 = "j" THEN PRINT "24890 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 24890) - a))); PRINT " 24990 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 24990) - a))) END IF IF JN21 = "j" THEN PRINT "21000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21000) - a))); PRINT " 21200 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21200) - a))); PRINT " 21350 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21350) - a))) END IF IF jn18 = "j" THEN PRINT "18068 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 18068) - a))); PRINT " 18168 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 18168) - a))) END IF IF jn14 = "j" THEN PRINT "14000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14000) - a))); PRINT " 14200 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14200) - a))); PRINT " 14300 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14300) - a))) END IF IF jn10 = "j" THEN PRINT "10100 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 10100) - a))); PRINT " 10150 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 10150) - a))) END IF IF jn70 = "j" THEN PRINT " 7000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7000) - a))); PRINT " 7050 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7050) - a))); PRINT " 7100 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7100) - a))) END IF IF jn35 = "j" THEN PRINT " 3500 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3500) - a))); PRINT " 3600 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3600) - a))); PRINT " 3700 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3700) - a))); PRINT " 3800 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3800) - a))) END IF IF jn19 = "j" THEN PRINT " 1810 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1810) - a))); PRINT " 1840 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1840) - a))); PRINT " 1910 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1910) - a))) END IF PRINT "": INPUT "weiter?"; w CLS NEXT i PRINT "" CLS PRINT "Resonanzfrequenzen bei einer Antennenl„nge von "; laenge PRINT "" PRINT "Resonanz 28 MHz:"; USING " ##.###"; res28 PRINT "Resonanz 24 MHz:"; USING " ##.###"; res24 PRINT "Resonanz 21 MHz:"; USING " ##.###"; res21 PRINT "Resonanz 18 MHz:"; USING " ##.###"; res18 PRINT "Resonanz 14 MHz:"; USING " ##.###"; res14 PRINT "Resonanz 10 MHz:"; USING " ##.###"; res10 PRINT "Resonanz 7 MHz:"; USING " ##.###"; res70 PRINT "Resonanz 3.5 MHz:"; USING " ##.###"; res35 PRINT "Resonanz 1.8 MHz:"; USING " ##.###"; res19 PRINT "" GOTO 666 MARK3: CLS : LPRINT "" LPRINT "********************* Stromsummenantenne nach DJ1VU **********************" LPRINT "" LPRINT "Antenne berechnet auf Basis "; qrg; "MHz fuer "; halbw; " Halbwellen" LPRINT "Geometrische Antennenlaenge: "; laenge LPRINT "" LPRINT "" LPRINT "Mtr"; LPRINT TAB(7); "Index"; LPRINT TAB(14); "28 MHz"; LPRINT TAB(21); "24 MHz"; LPRINT TAB(28); "21 MHz"; LPRINT TAB(35); "18 MHz"; LPRINT TAB(42); "14 MHz"; LPRINT TAB(49); "10 MHz"; LPRINT TAB(56); "7 MHz"; LPRINT TAB(63); "3.5 MHz"; LPRINT TAB(71); "1.8 MHz" LPRINT "_____________________________________________________________________________" LPRINT "" FOR i = 1 TO maximum - 1 LPRINT USING "##.##"; druck1(i); LPRINT TAB(8); LPRINT USING "#.##"; druck2(i); LPRINT TAB(15); LPRINT USING "#.##"; druck3(i); LPRINT TAB(22); LPRINT USING "#.##"; druck4(i); LPRINT TAB(29); LPRINT USING "#.##"; druck5(i); LPRINT TAB(36); LPRINT USING "#.##"; druck6(i); LPRINT TAB(43); LPRINT USING "#.##"; druck7(i); LPRINT TAB(50); LPRINT USING "#.##"; druck8(i); LPRINT TAB(57); LPRINT USING "#.##"; druck9(i); LPRINT TAB(64); LPRINT USING "#.##"; druck10(i); LPRINT TAB(71); LPRINT USING "#.##"; druck11(i) NEXT LPRINT "" INPUT "weiter?"; w CLS LPRINT "" a = .95 / 4 FOR i = 1 TO maximum - 1 LPRINT "" LPRINT "Einspeisung bei"; druck1(i); " Meter " IF jn28 = "j" THEN p28 = ABS(COS(6.28 * (i1 / lambda28 - a))) LPRINT "28000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 28000) - a))); LPRINT " 28500 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 28500) - a))); LPRINT " 29000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 29000) - a))) END IF IF jn24 = "j" THEN LPRINT "24890 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 24890) - a))); LPRINT " 24990 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 24990) - a))) END IF IF JN21 = "j" THEN LPRINT "21000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21000) - a))); LPRINT " 21200 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21200) - a))); LPRINT " 21350 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 21350) - a))) END IF IF jn18 = "j" THEN LPRINT "18068 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 18068) - a))); LPRINT " 18168 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 18168) - a))) END IF IF jn14 = "j" THEN LPRINT "14000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14000) - a))); LPRINT " 14200 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14200) - a))); LPRINT " 14300 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 14300) - a))) END IF IF jn10 = "j" THEN LPRINT "10100 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 10100) - a))); LPRINT " 10150 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 10150) - a))) END IF IF jn70 = "j" THEN LPRINT " 7000 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7000) - a))); LPRINT " 7050 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7050) - a))); LPRINT " 7100 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 7100) - a))) END IF IF jn35 = "j" THEN LPRINT " 3500 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3500) - a))); LPRINT " 3600 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3600) - a))); LPRINT " 3700 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3700) - a))); LPRINT " 3800 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 3800) - a))) END IF IF jn19 = "j" THEN LPRINT " 1810 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1810) - a))); LPRINT " 1840 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1840) - a))); LPRINT " 1910 kHz"; USING "###.##"; ABS(COS(6.28 * (druck1(i) / (300000 / 1910) - a))) END IF NEXT i LPRINT "" INPUT "weiter?"; w CLS LPRINT "Resonanzfrequenzen bei einer Antennenl„nge von "; laenge LPRINT "" LPRINT "Resonanz 28 MHz:"; USING " ##.###"; res28 LPRINT "Resonanz 24 MHz:"; USING " ##.###"; res24 LPRINT "Resonanz 21 MHz:"; USING " ##.###"; res21 LPRINT "Resonanz 18 MHz:"; USING " ##.###"; res18 LPRINT "Resonanz 14 MHz:"; USING " ##.###"; res14 LPRINT "Resonanz 10 MHz:"; USING " ##.###"; res10 LPRINT "Resonanz 7 MHz:"; USING " ##.###"; res70 LPRINT "Resonanz 3.5 MHz:"; USING " ##.###"; res35 LPRINT "Resonanz 1.8 MHz:"; USING " ##.###"; res19 LPRINT "" GOTO 666