Listing of file='LISSAJ.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
1 PRINT CHR$ (12) 2 PRINT " PREPARED BY THE FACULTY AND STUDENTS" 3 PRINT " AT SAN JOSE STATE UNIVERSITY" 4 PRINT " APRIL, 1980" 7 FOR K= 1TO 1500:NEXT K 8 PRINT CHR$ (12):PRINT :PRINT 10 PRINT "BY VARYING THE VALUES OF W AND W1 (THE RELATIVE FREQUENCIES)" 11 PRINT "AND P (THE PHASE LAG), VARIOUS REPETITIVE CURVES CAN BE SHOWN." 20 PRINT :PRINT 25 PRINT "VALUES FROM 1-10 ARE SUGGESTED FOR W AND W1" 30 PRINT "VALUES WHICH ARE MULTIPLES OR FRACTIONS OF PI (3.14158+)" 31 PRINT "ARE SUGGESTED FOR P." 200 PRINT :PRINT 210 PRINT " X = SIN ( W * T ) " 220 PRINT " Y = SIN ( W1 * T + P )" 230 PRINT 240 INPUT "WHAT VALUE WOULD YOU LIKE FOR W? ";W 250 INPUT "WHAT VALUE WOULD YOU LIKE FOR W1? ";W1 260 PRINT 270 PRINT "WHAT VALUE WOULD YOU LIKE FOR P?" 271 INPUT P 280 PRINT :PRINT "THE FREQUENCY RATIO IS ";W1;"/";W 290 PRINT :INPUT "PRESS <RETURN> WHEN READY.";H$ 295 PRINT CHR$ (12) 300 PLOT 2 310 FOR T= 0TO 25STEP .05 320 X= SIN (W* T) 330 Y= SIN (W1* T+ P) 340 PLOT 64+ 45* X,64+ 60* Y 350 NEXT T 360 END