home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / bell212.arc / SINTBL2.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-07-18  |  1.4 KB  |  52 lines
  1.  
  2.  
  3.  
  4.                         APPENDIX C
  5.  
  6.               SINEWAVE TABLE GENERATOR PROGRAM
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.     10 ' This program generates a sinewave signal
  14.     11 ' look-up table.  The results are coded into
  15.     12 ' DATA statements so that it can be easily
  16.     13 ' added directly into the TMS320 code.
  17.     14 '
  18.     15 '   Written by:  Peter Ehlig
  19.     16 '   Copyright Texas Instruments, 07/18/86
  20.     17 '
  21.     30 PRINT 'PROGRAM STARTED"
  22.     40 INPUT "ENTER NAME OF OUTPUT FILE = ",OUTFILE$
  23.     50 OPEN OUTFILE$ FOR OUTPUT AS #3
  24.     100 PI = 3.1415927#
  25.     110 PI2 = PI * 2
  26.     120 INPUT "TABLE LENGTH = ",TBLEN
  27.     130 DELTA = PI2 / TBLEN
  28.     140 INDX1 = -DELTA
  29.     150 NETDEG = 360 / TBLEN
  30.     160 PRINT#3,"***********************************************************"
  31.     170 PRINT#3,"SINE EQU $ SINE TABLE LENGTH = ";
  32.     180 PRINT#3, USING "###";TBLEN
  33.     190 FOR I = 1 TO TBLEN
  34.     200 INDX1 = INDX1 + DELTA
  35.     210 TBL = SIN(INDX1)
  36.     220 HTBL$ = HEX$(TBL*16384)
  37.     230 RADS = INDX1 / PI
  38.     240 DEGR = NETDEG * (I - 1)
  39.     250 PRINT#3, " DATA ";
  40.     260 PRINT#3, USING ">\ \";HTBL$;
  41.     270 PRINT#3, " ANGLE = ";
  42.     280 PRINT#3, USING "###.####";DEGR;
  43.     290 PRINT#3, " SINE = ";
  44.     300 PRINT#3, USING "#.######";TBL
  45.     310 NEXT
  46.     315 PRINT#3,"***********************************************************"
  47.     320 PRINT#3, " PAGE"
  48.     330 CLOSE
  49.     340 PRINT "PROGRAM FINISHED"
  50.     350 END
  51.  
  52.