Listing of file='SIN3.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM REVIEW OF SINE WAVES 2 REM 3 REM TUTORIAL AND REVIEW OF THE AMPLITUDE, PERIOD, AND 4 REM HORIZONTAL AND VERTICAL DISPLACEMENTS OF SINE WAVES 5 REM 16K COMPUCOLOR 6 REM 10 REM PROGRAM WRITTEN BY JEAN BOHRER 11 REM UNDER THE DIRECTION OF MARJORIE A. FITTING 12 REM DEPARTMENT OF MATHEMATICS AND COMPUTER SCIENCE 13 REM SAN JOSE STATE UNIVERSITY, SAN JOSE, CA 95192 20 REM 21 REM "______________________________" 22 REM "! SAN MATEO COUNTY !" 23 REM "! OFFICE OF EDUCATION !" 24 REM "! & !" 25 REM "! COMPUTER-USING EDUCATORS !" 26 REM "! !" 27 REM "! SOFTSWAP !" 28 REM "! !" 29 REM "!333 MAIN STREET, REDWOOD CITY!" 30 REM "!CA 94063 (415)364-5600 EX4401!" 31 REM "_______________________________" 40 REM "_______________________________" 41 REM "! PROGRAMS MAY BE COPIED FOR !" 42 REM "! EDUCATIONAL USE ONLY AND !" 43 REM "! ARE NOT TO BE SOLD. !" 44 REM "!!" 50 REM 60 REM 100 PLOT 12,23 110 PRINT "YOU ARE NOW AWARE OF 4 CONSTANTS THAT AFFECT THE" 120 PRINT "FORM OF THE GRAPH Y=SIN(X). THIS ENABLES US TO" 130 PRINT "STATE THE GENERAL EQUATION OF A SINE WAVE:" 140 PRINT :PRINT 150 PLOT 14 160 PRINT TAB( 10);"Y = A * SIN( B * ( X + C ) ) + D" 170 PLOT 15 180 PRINT :PRINT 190 PRINT "CHOOSE THE NUMBER OF THE CORRECT RESPONSE TO THE" 200 PRINT "QUESTIONS THAT FOLLOW." 210 PRINT 220 PRINT TAB( 6);"(1) PERIOD" 230 PRINT TAB( 6);"(2) VERTICAL TRANSLATION OF GRAPH" 240 PRINT TAB( 6);"(3) PHASE SHIFT" 250 PRINT TAB( 6);"(4) AMPLITUDE" 260 PRINT :PRINT 270 INPUT "WHAT QUANTITY DOES A AFFECT?";A 280 IF A= 4THEN 310 290 PRINT TAB( 4);"NO. A AFFECTS THE AMPLITUDE OF THE CURVE." 300 GOTO 320 310 PRINT TAB( 4);"CORRECT!" 320 PRINT 330 INPUT "WHAT QUANTITY DOES B AFFECT?";B 340 IF B= 1THEN 370 350 PRINT TAB( 4);"SORRY, B AFFECTS THE PERIOD OF THE CURVE." 360 GOTO 380 370 PRINT TAB( 4);"GOOD!" 380 PRINT 390 INPUT "WHAT QUANTITY DOES C AFFECT?";C 400 IF C= 3THEN 430 410 PRINT TAB( 4);"WRONG. C TELLS YOU THE PHASE SHIFT." 420 GOTO 440 430 PRINT TAB( 4);"RIGHT!" 440 PRINT 450 INPUT "WHAT QUANTITY DOES D AFFECT?";D 460 IF D= 2THEN 490 470 PRINT TAB( 4);"NO. D AFFECTS THE VERTICAL TRANSLATION." 480 GOTO 500 490 PRINT TAB( 4);"GOOD JOB!" 500 PLOT 3,35,30 510 INPUT "PRESS RETURN TO CONTINUE";A 520 PLOT 12 530 PLOT 3,0,10 540 PRINT "SOME OR ALL OF THESE CONSTANTS MAY APPEAR IN THE" 550 PRINT "EQUATION OF A PARTICULAR SINE WAVE." 560 PRINT "IN THE EXERCISE THAT FOLLOWS, Y=SIN(X) WILL BE" 570 PRINT "GRAPHED. YOU WILL THEN CHOOSE VALUES FOR A, B," 580 PRINT "C AND D ONE AT A TIME TO CHANGE THE GRAPH." 590 PLOT 3,35,30 600 INPUT "PRESS RETURN TO CONTINUE.";A 610 PLOT 12 620 GOSUB 1320 630 PLOT 3,4,0 640 A= 0 650 B= 1 660 C= 0 670 D= 0 680 INPUT "LET A BE 1, 1.5, OR 2. A=?";A 690 PLOT 22 700 PLOT 3,39,0 710 PRINT "Y=";A;"*SIN(X)" 720 GOSUB 1750 730 PLOT 3,4,1 740 INPUT "LET B BE .5, 1, OR 2. B=?";B 750 PLOT 19 760 PLOT 3,39,1 770 PRINT "Y=";A;"*SIN(";B;"*X)" 780 GOSUB 1750 790 PLOT 3,4,2 800 INPUT "LET C BE 0, 1, OR 2. C=?";C 810 PLOT 21 820 PLOT 3,39,2 830 PRINT "Y=";A;"*SIN(";B;"*(X+";C;"))" 840 GOSUB 1750 850 PLOT 3,4,3 860 INPUT "LET D BE -1, 0, OR .5. D=?";D 870 PLOT 18 880 PLOT 3,39,3 890 PRINT "Y=";A;"*SIN(";B;"*(X+";C;"))+";D; 900 GOSUB 1750 910 PLOT 3,0,26 920 PLOT 23 930 PRINT "EXAMINE THE LAST GRAPH AND EQUATION." 940 PRINT 950 INPUT "WHAT IS THE AMPLITUDE?";M 960 IF M= ABS (A)THEN PRINT "RIGHT!":GOTO 980 970 PRINT "SORRY, THE AMPLITUDE IS ";ABS (A) 980 GOSUB 1800 990 INPUT "THE PERIOD IS HOW MANY INTERVALS OF PI?";N 1000 IF N= 2/ ABS (B)THEN PRINT "CORRECT!":GOTO 1020 1010 PRINT "SORRY, THE PERIOD IS ";2/ ABS (B);" INTERVALS OF PI." 1020 GOSUB 1800 1030 INPUT "WHAT IS THE PHASE SHIFT?";P 1040 IF P= CTHEN PRINT "GOOD!":GOTO 1060 1050 PRINT "NO, THE PHASE SHIFT IS";C 1060 GOSUB 1800 1070 INPUT "WHAT IS THE DISPLACEMENT FROM THE X-AXIS?";Q 1080 IF Q= DTHEN PRINT "YOU'RE RIGHT!":GOTO 1100 1090 PRINT "NO, THE DISPLACEMENT IS";D 1100 PRINT 1110 INPUT "DO YOU WANT TO TRY ANOTHER SET OF GRAPHS?(Y/N)";A$ 1120 IF A$= "Y"THEN 610 1130 PLOT 12,23 1140 PRINT "WE CAN NOW SUMMARIZE WHAT WE KNOW RELATING THE" 1150 PRINT "EQUATIONS AND GRAPHS OF SINE WAVES." 1160 PRINT :PRINT 1170 PLOT 14 1180 PRINT TAB( 10);"Y = A * SIN( B * ( X + C ) ) + D " 1190 PRINT :PRINT 1200 PRINT TAB( 12);"nAn IS THE AMPLITUDE" 1210 PRINT 1220 PRINT TAB( 12);"2*PI/nBn IS THE PERIOD" 1230 PRINT 1240 PRINT TAB( 12);"C IS THE PHASE SHIFT" 1250 PRINT 1260 PRINT TAB( 12);"D IS THE VERTICAL TRANSLATION" 1270 PLOT 15 1280 PRINT :PRINT :PRINT 1290 INPUT "WOULD YOU LIKE TO RUN THIS PROGRAM AGAIN?(Y/N)";A$ 1300 IF A$= "Y"THEN 100 1305 LOAD "MENU":RUN 1310 END 1320 REM PLOTS AXES 1330 PLOT 20 1340 FOR X= 3TO 54 1350 PLOT 3,X,14 1360 PRINT "f" 1370 NEXT X 1380 PLOT 3,16,13 1390 PRINT "m" 1400 PLOT 3,28,13 1410 PRINT "o" 1420 PLOT 3,41,13 1430 PRINT "m" 1440 PLOT 3,53,13 1450 PRINT "o" 1460 FOR X= 2TO 25 1470 PLOT 3,3,X 1480 PRINT "o" 1490 NEXT X 1500 PLOT 3,1,3 1510 PRINT "3e" 1520 PLOT 3,1,6 1530 PRINT "2_" 1540 PLOT 3,1,10 1550 PRINT "1i" 1560 PLOT 3,1,14 1570 PRINT "0f" 1580 PLOT 3,0,18 1590 PRINT "-1e" 1600 PLOT 3,0,21 1610 PRINT "-2_" 1620 PLOT 3,0,25 1630 PRINT "-3i" 1640 PLOT 3,55,14 1650 PRINT "(UNITS OF" 1660 PLOT 3,58,15 1670 PRINT "PI)" 1680 PLOT 17 1690 FOR X= 0TO 100STEP 2 1700 PLOT 2,X+ 7,15* SIN (X/ 8)+ 70,255 1710 NEXT X 1720 PLOT 3,46,28 1730 PRINT "Y=A*SIN(B*(X+C))+D" 1740 RETURN 1750 REM GRAPHS Y=ASIN(BX+C)+D 1760 FOR X= 0TO 100STEP 2 1770 PLOT 2,X+ 7,A* 15* SIN (B* (X/ 8+ C))+ 70+ D* 15,255 1780 NEXT X 1790 RETURN 1800 REM ERASES LINES 1810 FOR K= 1TO 2000:NEXT K 1820 PLOT 3,0,28 1830 PRINT " " 1840 PRINT " " 1850 PLOT 3,0,28 1860 RETURN