home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / bell212.arc / DBM1.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-07-25  |  1.5 KB  |  49 lines
  1. 2 '********************************************************************
  2. 3 '*****  CALCULATE VOLTS PEAK TO PEAK VS DBM                     *****
  3. 4 '*****  WRITTEN BY: PETER EHLIG                                 *****
  4. 5 '*****  COPYRIGHT TEXAS INSTRUMENTS,  07/25/86                  *****
  5. 6 '********************************************************************
  6. 10 DIM X(100),P(100),VRMS(100),VP(100),VPP(100)
  7. 20 OPEN "LPT1:" FOR OUTPUT AS #3
  8. 30 PRINT#3," "
  9. 40 PRINT#3," "
  10. 50 PRINT#3," "
  11. 60 PRINT#3," "
  12. 70 PRINT#3," "
  13. 80 PRINT#3," "
  14. 90 PRINT#3," "
  15. 100 PRINT#3," "
  16. 110 C1 = LOG(10)
  17. 120 C2 = SQR(2)
  18. 130 FOR I = 0 TO 65
  19. 140 X(I) = - I
  20. 150 P(I) = EXP(X(I) * C1 / 10)
  21. 160 VRMS(I) = SQR(P(I) * .6)
  22. 170 VP(I) = VRMS(I) * C2
  23. 180 VPP(I) = VP(I) * 2
  24. 190 ' PRINT USING "##    ";I;
  25. 200 ' PRINT USING "#.#######   ";VRMS(I),VP(I),VPP(I)
  26. 210 NEXT
  27. 220 PRINT#3, "                                   APPENDIX F"
  28. 230 PRINT#3," "
  29. 240 PRINT#3, "                         SIGNAL LEVEL   dBm vs. VOLTAGE"
  30. 250 PRINT#3," "
  31. 260 PRINT#3," "
  32. 270 PRINT#3," "
  33. 280 PRINT#3,"   DBM     V RMS      V PEAK     V P-P ";
  34. 290 PRINT#3,"    DBM     V RMS      V PEAK     V P-P"
  35. 300 PRINT#3," "
  36. 310 FOR K = 0 TO 32
  37. 320 L = K + 33
  38. 330 PRINT#3, USING "   -## ";K;
  39. 340 PRINT#3, USING "  #.#######";VRMS(K),VP(K),VPP(K);
  40. 350 PRINT#3, USING "   -## ";L;
  41. 360 PRINT#3, USING "  #.#######";VRMS(L),VP(L),VPP(L)
  42. 370 NEXT
  43. 380 PRINT#3," "
  44. 390 PRINT#3," "
  45. 400 PRINT#3,"       CALCULATIONS MADE ASSUMING 600 OHM LOAD"
  46. 410 CLOSE
  47. 420 END
  48. 
  49. 370 NEX