home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / INSTA-GRAPH (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  50 lines
  1. 10 OPEN1,4:PRINT#1,"               INSTA-GRAPH"
  2. 20 PRINT"ô               INSTA-GRAPH"
  3. 30 FORX=1TO5:PRINT:PRINT#1:NEXT
  4. 35 GOTO100
  5. 40 Y=X^32*SIN(X):::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6. 41 RETURN
  7. 50 DATAX,88,0,48,1,49,2,50,3,51,4,52,5,53,6,54,7,55,8,56,9,57,+,170,-,171
  8. 70 DATASIN,191,COS,190,TAN,192,ATN,193,LOG,188,SQR,186,ABS,182,INT,181,SGN,180
  9. 80 DATA(,40,),41,*,172,/,173,^,174,***ERROR***,255,EXP,189
  10. 100 POKE2156,89:POKE2157,178:FORX=2158TO2229:POKEX,58:NEXT
  11. 120 PRINT"PLEASE TYPE IN THE EQUATION TO BE USED  FOR THE GRAPH. YOU MUST USE"
  12. 130 PRINT"THE FORM  Y=(FUNCTION OF X)"
  13. 150 PRINT"FOR EXAMPLE:  Y=X^2*SIN(X)"
  14. 160 PRINT#1:PRINT
  15. 170 INPUT"Y=";EQ$:PRINT#1,"Y =";EQ$
  16. 180 L=LEN(EQ$):PRINT"WORKING ON EQUATION - PLEASE WAIT"
  17. 200 REM INTERPRET EQUATION INTO BASIC           EQUIVALENT
  18. 210 P=2158:FORX=1TOL
  19. 220 FORBA=1TO3:A$=MID$(EQ$,X,BA):FORTEST=1TO58STEP2
  20. 230 READBA$,A:IFBA$=A$THENGOSUB500
  21. 240 NEXTTEST:RESTORE:NEXTBA:NEXTX
  22. 250 PRINT"EQUATION READY. PRESS SPACEÆ TO CONTINUE"
  23. 262 GETZ$:IFZ$<>" "THEN262
  24. 270 PRINT"ô":INPUT"INPUT MIN AND MAX X VALUES";MI,MAX
  25. 280 PRINT#1,"MIN AND MAX VALUES ARE",MI;MAX
  26. 300 INPUT"# OF VALUES TO BE TAKEN";R
  27. 310 PRINT#1,R,"VALUES TAKEN"
  28. 320 PRINT"PRESS ANY KEY TO PRINT GRAPH"
  29. 325 GETZ$:IFZ$=""THEN325
  30. 327 GOSUB600
  31. 330 FORX=1TO80:PRINT#1,"-";:NEXTX
  32. 340 FORX=MITOMAXSTEPR:GOSUB40:V=INT(X*1000)/1    
  33. 350 X$=STR$(V)
  34. 355 Y=(Y-LO)*RA
  35. 360 PRINT#1,X$;CHR$(16);"10:";TAB(Y);"*":NEXTX
  36. 380 PRINT"WOULD YOU LIKE TO DO ANOTHER GRAPH?"
  37. 390 GETA$:IFA$<>"Y"ANDA$<>"N"THEN390
  38. 400 IFA$="Y"THEN420
  39. 410 CLOSE1:END
  40. 420 PRINT"SAME EQUATION"
  41. 430 GETA$:IFA$<>"Y"ANDA$<>"N"THEN430
  42. 440 IFA$="Y"THENPRINT#1,"SAME EQUATION USED":GOTO270
  43. 450 GOTO100
  44. 500 POKEP,A:P=P+1:X=X+BA-1:BA=3:TEST=58:RESTORE:RETURN
  45. 600 R=(MAX-MI)/R:FORX=MITOMAXSTEPR:GOSUB40:IFX=MITHENHI=Y:LO=Y
  46. 605 IFY>HITHENHI=Y
  47. 610 IFY<LOTHENLO=Y
  48. 620 NEXTX:PRINT#1,"Y RANGES FROM ";LO;"TO";HI
  49. 630 RA=60/(HI-LO):RETURN
  50.