home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / public / hopkins / material.bas < prev    next >
BASIC Source File  |  1996-06-30  |  548b  |  16 lines
  1. 10 CLS
  2. 20 INPUT "OVERALL DIMENSION OF DIPOLE IN MM :- "; DOA
  3. 30 INPUT "INTERNAL DIMENSION OF FOLDED DIPOLE IN MM :- "; T: R = T / 2
  4. 40 INPUT "DIAMETER OF ELEMENT :- "; DE
  5. 50 A = 2 * (DOA - 2 * (DE + R))
  6. 60 C = 2 * 22 / 7 * (R + DE)
  7. 70 D = A + C
  8. 80 PRINT "TOTAL LENGTH OF MATERIAL REQUIRED :- "; D; " MM"
  9. 90 PRINT "START OF BENDS FROM CENTER OF ELEMENT :- "; A / 4; "  MM."
  10. 100 PRINT : PRINT : PRINT : PRINT
  11. 110 INPUT "ANOTHER CALCULATION Y = YES     N = NO "; X$
  12. 120 IF X$ = "N" THEN RUN "MENU"
  13. 130 IF X$ = "Y" GOTO 10
  14. 140 GOTO 110
  15.  
  16.