home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronics / 3.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  863 b   |  26 lines
  1. 100  REM THIS PROGRAM HAS BEEN ADAPTED FROM ELECTONIC DESIGN MAGAZINE, MAY 1974
  2. 110  REM THIS PROGRAM USES THE GEOMETRIC MEAN OF TWO STADARD COMPONENT VALUES AS THE DECISION POINT
  3. 120  CLS
  4. 130  INPUT "ENTER THE COMPONENT'S VALUE: ",X
  5. 140  PRINT
  6. 150  INPUT "ENTER THE COMPONENT'S TOLERANCE (%): ",T
  7. 160  A(4) = 0.0119927*INT(1+1.5*T+0.004*T^2)
  8. 170  A(3) = INT(LOG(X)/LOG(10)-INT(2.2-3*A(4)))
  9. 180  X0 = X
  10. 190  X = X/10^A(3)
  11. 200  FOR K = 1 TO 2
  12. 210  A(K) = INT(EXP(A(4)*(INT(LOG(X)/A(4))+K-1))+0.5)
  13. 220  A(5) = 1.8799E-05*A(K)^3-0.00335*A(K)^2+0.164*A(K)-1.284
  14. 230  A(K) = A(K)+INT(A(5)*INT(3*A(4)+0.8))
  15. 240  NEXT K
  16. 250  X = 10^A(3)*A(X/SQR(A(1)*A(2))+1)
  17. 260  X = INT(X*100+0.5)/100
  18. 270  PRINT
  19. 280  PRINT "THE BEST STANDARD VALUE IS ";X
  20. 290  PRINT
  21. 300  E = INT((X-X0)/X0*1000+0.5)/10
  22. 310  PRINT "FOR A NOMINAL ERROR OF ";ABS(E);" %"
  23. 320  GOTO 400
  24. 400  PRINT :PRINT "               HIT SPACE BAR TO RETURN TO MENU"
  25. 410  K$ = INKEY$: IF K$=" " THEN RUN "MENU2" ELSE 410
  26.