home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
misc
/
pc-hamd2
/
dipole.bas
< prev
next >
Wrap
BASIC Source File
|
1985-06-13
|
2KB
|
60 lines
10 REM THIS PROGRAM CALCULATES THE LOADING COIL INDUCTANCE FOR AN OFF-CENTER
20 REM LOADED DIPOLE ANTENNA. THE PROGRAM APPEARED IN THE DECEMBER, 1981
30 REM ISSUE OF CQ MAGAZINE, PAGE 44. THE PROGRAM MUST BE RUN TWICE, ONCE
40 REM FOR EACH LEG OF THE DIPOLE, UNLESS BOTH LEGS ARE THE SAME
50 REM LENGTH (CENTER FED). SEE ARTICLE FOR MORE DETAIL.
60 REM
70 REM PROGRAM COVERTED FROM APPLESOFT TO IBM BASIC 11/4/82
150 CLS
160 PRINT "LOADED DIPOLE DESIGN PROGRAM"
170 PRINT:PRINT
180 INPUT"OPERATING FREQUENCY IN MHZ ";F
190 PRINT:PRINT
200 INPUT"TOTAL LENGTH IN FEET ";A
210 PRINT:PRINT
220 INPUT"FEET FROM CENTER TO LOADING COIL ";B
230 PRINT:PRINT
240 X=((234/F)-B)
250 Y=((A/2)-B)
260 INPUT"DO YOU WANT TO USE THE WIRE TABLE (Y OR N) ";Y$
270 IF Y$="Y" THEN GOSUB 430 ELSE GOSUB 560
290 IF Y$="Y" OR Y$="N" THEN 320
310 GOTO 260
320 S1=1000000!/(68*3.1417^2*F^2)
325 ON ERROR GOTO 595
330 S2=1/X*(LOG(24*X/D)-1)
340 S3=(1-F*B/234)^2-1
350 S4=1/Y*(LOG(24*Y/D)-1)
360 S5=(Y*F/234)^2-1
370 S6=S1*(S2*S3-S4*S5)
380 S6=INT(S6*100+.5)/100
390 PRINT:PRINT:PRINT
400 PRINT"LOADING COIL IS ";S6;" MICROHENRYS"
405 PRINT
410 PRINT"WOUND WITH ";D;" WIRE"
412 PRINT:PRINT:PRINT
420 END
430 PRINT
440 INPUT"WIRE GAUGE (#10 TO #22) ";D
450 IF D=10 THEN D=.102:RETURN
460 IF D=12 THEN D=.081:RETURN
470 IF D=14 THEN D=.064:RETURN
480 IF D=16 THEN D=.051:RETURN
490 IF D=18 THEN D=.04:RETURN
500 IF D=20 THEN D=.032:RETURN
510 IF D=22 THEN D=.025:RETURN
520 PRINT
530 PRINT"WIRE GAUGE MUST BE AN EVEN NUMBER IN RANGE FROM #10 TO #22"
550 PRINT:PRINT:GOTO 430
560 PRINT
570 INPUT"WHAT IS THE ELEMENT (WIRE) DIAMETER IN INCHES ";D
580 RETURN
595 BEEP:BEEP:BEEP:PRINT:PRINT:PRINT
600 PRINT"A MATH ERROR HAS OCCURED. ONE OF THE INPUTS IS IMPOSSIBLE."
610 PRINT"TRY ANOTHER LENGTH OR DISTANCE. SEE ARTICLE IN DECEMBER, 1981"
620 PRINT"ISSUE OF CQ MAGAZINE, PAGE 44 FOR DETAILS OF THIS PROGRAM."
630 PRINT:PRINT
640 GOTO 200
650 END
ECEMBER, 1981"
620 PRINT"ISSUE OF CQ MAGAZINE, PAGE 44 FOR DETAILS OF THIS