home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / hamutil2 / strip-w.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  990 b   |  21 lines
  1. 100  CLS :REM "STRIP-W"
  2. 110  PRINT ;TAB(33);"****STRIP-W****"
  3. 120  PRINT :PRINT "THIS PROGRAM COMPUTES THE LINE WIDTH OF STRIPLINE IMPEDANCES."
  4. 130  REM S.COHN -1955 & V.HEESEN -1985
  5. 140  PRINT :PRINT "NOTES: 1. ACCURACY LIMITED TO (WIDTH/SPACING) RATIOS UP TO 0.35" ;"       2. ENTER BOARD THICKNESS PER SIDE NOT TOTAL HEIGHT or SPACING" ;"       3. COPPER THICKNESS is 1.4 mils for 1 oz. and 2.8 for 2 oz."
  6. 150  PRINT :BEEP :INPUT "ENTER DESIRED IMPEDANCE ,Zo (ohms)";Z
  7. 160  PRINT :BEEP :INPUT "ENTER RELATIVE DIELECTRIC CONSTANT";E
  8. 170  PRINT :BEEP :INPUT "ENTER BOARD THICKNESS   (mils)";H
  9. 180  PRINT :BEEP :INPUT "ENTER COPPER THICKNESS  (mils)";T
  10. 190  B=2*H :TB=T/B :CF=0.45+((4*TB)/3)
  11. 200  W=(((94.15/Z)/SQR(E))-CF)*(1-TB)*B
  12. 210  PRINT :PRINT "LINE WIDTH =";INT(W*100)/100;"mils"
  13. 220  PRINT :BEEP :PRINT "HARD COPY REQUIRED?  (Y/N)"
  14. 230  P$=INKEY$ :IF P$="" THEN 230
  15. 240  IF P$="Y" THEN 260
  16. 250  IF P$<>"N" THEN 230 ELSE 270
  17. 260  LPRINT "Zo=";Z;"ohms";"; Er=";E;" ;Cu thk.=";T;"mils";" Spacing=";B;"mils";"; WIDTH=";INT(W*100)/100;"mils"
  18. 270  PRINT :BEEP :PRINT "CONTINUE?  (Y/N)"
  19. 280  A$=INKEY$ :IF A$="" THEN 280
  20. 290  IF A$="Y" THEN 100 ELSE END
  21.