home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / strip-w.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-08-23  |  1.1 KB  |  22 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. 155  PRINT:PRINT"NOMINAL DIELECTRIC CONSTANT IS 3.0 - 4.5"
  8. 160  BEEP :INPUT "ENTER RELATIVE DIELECTRIC CONSTANT";E
  9. 170  PRINT :BEEP :INPUT "ENTER BOARD THICKNESS   (mils)";H
  10. 180  PRINT :BEEP :INPUT "ENTER COPPER THICKNESS  (mils)";T
  11. 190  B=2*H :TB=T/B :CF=0.45+((4*TB)/3)
  12. 200  W=(((94.15/Z)/SQR(E))-CF)*(1-TB)*B
  13. 210  PRINT :PRINT "LINE WIDTH =";INT(W*100)/100;"mils"
  14. 220  PRINT :BEEP :PRINT "HARD COPY REQUIRED?  (Y/N)"
  15. 230  P$=INKEY$ :IF P$="" THEN 230
  16. 240  IF P$="Y" OR P$= "y" THEN 260
  17. 250  IF P$<>"N" OR P$ <> "n" THEN 230 ELSE 270
  18. 260  LPRINT "Zo=";Z;"ohms";"; Er=";E;" ;Cu thk.=";T;"mils";" Spacing=";B;"mils";"; WIDTH=";INT(W*100)/100;"mils"
  19. 270  PRINT :BEEP :PRINT "DO ANOTHER?  (Y/N)"
  20. 280  A$=INKEY$ :IF A$="" THEN 280
  21. 290  IF A$="Y" OR A$= "y" THEN 100 ELSE RUN "MAINMENU
  22.