home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / rms-ibm.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  1.4 KB  |  28 lines
  1. 10  CLS: PRINT "RMS VOLTAGE CALCULATION PROGRAM V2.0 (2/1/87)
  2. 20  PRINT "      *********************************************
  3. 30  PRINT "      *                                           *
  4. 40  PRINT "      *  BY DR. ALLEN KATZ, CHAIRMAN              *
  5. 50  PRINT "      *  AND STUDENTS OF THE                      *
  6. 60  PRINT "      *  DEPT ELECTRONICS ENGINEERING TECHNOLOGY  *
  7. 70  PRINT "      *  TRENTON STATE COLLEGE, CN4700            *
  8. 80  PRINT "      *  TRENTON, NEW JERSEY 08650-4700           *
  9. 90  PRINT "      *                                           *
  10. 100  PRINT "      *  THE AUTHOR RESERVES THE RIGHTS TO THIS   *
  11. 110  PRINT "      *  PROGRAM; HOWEVER, COPYING AND USE FOR    *
  12. 120  PRINT "      *  EDUCATIONAL PURPOSES IS ENCOURAGED.      *
  13. 130  PRINT "      *                                           *
  14. 140  PRINT "      *  PLEASE REPORT ANY ERRORS OR PROBLEMS     *
  15. 150  PRINT "      *  WITH THIS PROGRAM TO THE AUTHOR.         *
  16. 160  PRINT "      *  TEL (609) 771 2487                       *
  17. 170  PRINT "      *                                           *
  18. 180  PRINT "      *********************************************
  19. 200  PRINT "THIS PROGRAM CALCULATES THE RMS VALUE OF COMPLEX WAVE DESCRIBED
  20. 210  PRINT "BY ANY NUMBER OF EQUALLY SPACED SAMPLE POINTS.": PRINT
  21. 220  INPUT "THE NUMBER OF SAMPLE POINTS"; M: DIM A(M): SU=0
  22. 230  INPUT "PERIOD (IN ANY UNIT OF TIME)"; T: DT=T/M: PRINT
  23. 240  FOR I=0 TO M
  24. 250  PRINT "AMPLITUDE AT T ="; DT*I;: INPUT A(I): SU=SU+A(I)^2
  25. 260  NEXT
  26. 270  SU=SQR(DT*(SU-(A(0)^2+A(M)^2)/2)/T)
  27. 280  PRINT: PRINT "RMS VALUE ="; SU
  28.