home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / LISS.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  440 b   |  18 lines
  1. ! Lissajous experiment.
  2. !
  3. SET WINDOW -1, 1, -1, 1
  4. DO
  5.    PRINT "X multiplier, Y multiplier";
  6.    INPUT xmult, ymult
  7.    CLEAR
  8.  
  9.    FOR i = 0 to 2*Pi step Pi/100        ! Draw the figure
  10.        PLOT Sin(xmult*i), Cos(ymult*i);
  11.    NEXT i
  12.  
  13.    PLOT                                 ! Turn off the beam
  14.    PAUSE 3                              ! Wait 3 seconds
  15.    CLEAR                                ! Then clear the screen
  16. LOOP
  17. END
  18.