home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / rf3 / rms-ibm.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  969 b   |  52 lines
  1. 2  DIM A(15),B(15),S(15)
  2. 10  PRINT "THIS IS A PROGRAM TO FIND THE RMS VALUE OF ANY COMPLEX WAVE.
  3. 20  PRINT "ENTER PERIOD"
  4. 30  INPUT T
  5. 60  A(0)=T/24
  6. 62  A(1)=A(0)*3
  7. 64  A(2)=A(0)*5
  8. 66  A(3)=A(0)*7
  9. 68  A(4)=A(0)*9
  10. 70  A(5)=A(0)*11
  11. 72  A(6)=A(0)*13
  12. 74  A(7)=A(0)*15
  13. 76  A(8)=A(0)*17
  14. 78  A(9)=A(0)*19
  15. 79  A(10)=A(0)*21
  16. 80  A(11)=A(0)*23
  17. 81  PRINT "ENTER THE VALUES OF VOLTAGE WHICH CORRESPONDES TO THE 
  18. 82  PRINT "FOLLOWING TWELVE DIVISIONS OF THE PERIOD."
  19. 83  FOR Z=0 TO 11
  20. 84  PRINT; A(Z)
  21. 85  INPUT B(Z)
  22. 86  NEXT Z
  23. 90  C=B(0)^2
  24. 91  D=B(1)^2
  25. 92  E=B(2)^2
  26. 93  F=B(3)^2
  27. 94  G=B(4)^2
  28. 95  H=B(5)^2
  29. 96  I=B(6)^2
  30. 97  J=B(7)^2
  31. 98  K=B(8)^2
  32. 99  L=B(9)^2
  33. 100  M=B(10)^2
  34. 101  N=B(11)^2
  35. 155  U=A(0)*2
  36. 200  S(0)=C*U
  37. 201  S(1)=D*U
  38. 202  S(2)=E*U
  39. 203  S(3)=F*U
  40. 204  S(4)=G*U
  41. 205  S(5)=H*U
  42. 206  S(6)=I*U
  43. 207  S(7)=J*U
  44. 208  S(8)=K*U
  45. 209  S(9)=L*U
  46. 210  S(10)=M*U
  47. 211  S(11)=N*U
  48. 250  X=S(1)+S(2)+S(3)+S(4)+S(5)+S(6)+S(7)+S(8)+S(9)+S(10)+S(11)+S(0)
  49. 255  Z=(X/T)^0.5
  50. 425  PRINT "THE RMS VALUE OF THE WAVE IS,"
  51. 430  PRINT "        "  Z   "VOLTS RMS"
  52.