home *** CD-ROM | disk | FTP | other *** search
- 10 OPEN1,4:PRINT#1," INSTA-GRAPH"
- 20 PRINT"ô INSTA-GRAPH"
- 30 FORX=1TO5:PRINT:PRINT#1:NEXT
- 35 GOTO100
- 40 Y=X^32*SIN(X):::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- 41 RETURN
- 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
- 70 DATASIN,191,COS,190,TAN,192,ATN,193,LOG,188,SQR,186,ABS,182,INT,181,SGN,180
- 80 DATA(,40,),41,*,172,/,173,^,174,***ERROR***,255,EXP,189
- 100 POKE2156,89:POKE2157,178:FORX=2158TO2229:POKEX,58:NEXT
- 120 PRINT"PLEASE TYPE IN THE EQUATION TO BE USED FOR THE GRAPH. YOU MUST USE"
- 130 PRINT"THE FORM Y=(FUNCTION OF X)"
- 150 PRINT"FOR EXAMPLE: Y=X^2*SIN(X)"
- 160 PRINT#1:PRINT
- 170 INPUT"Y=";EQ$:PRINT#1,"Y =";EQ$
- 180 L=LEN(EQ$):PRINT"WORKING ON EQUATION - PLEASE WAIT"
- 200 REM INTERPRET EQUATION INTO BASIC EQUIVALENT
- 210 P=2158:FORX=1TOL
- 220 FORBA=1TO3:A$=MID$(EQ$,X,BA):FORTEST=1TO58STEP2
- 230 READBA$,A:IFBA$=A$THENGOSUB500
- 240 NEXTTEST:RESTORE:NEXTBA:NEXTX
- 250 PRINT"EQUATION READY. PRESS SPACEÆ TO CONTINUE"
- 262 GETZ$:IFZ$<>" "THEN262
- 270 PRINT"ô":INPUT"INPUT MIN AND MAX X VALUES";MI,MAX
- 280 PRINT#1,"MIN AND MAX VALUES ARE",MI;MAX
- 300 INPUT"# OF VALUES TO BE TAKEN";R
- 310 PRINT#1,R,"VALUES TAKEN"
- 320 PRINT"PRESS ANY KEY TO PRINT GRAPH"
- 325 GETZ$:IFZ$=""THEN325
- 327 GOSUB600
- 330 FORX=1TO80:PRINT#1,"-";:NEXTX
- 340 FORX=MITOMAXSTEPR:GOSUB40:V=INT(X*1000)/1
- 350 X$=STR$(V)
- 355 Y=(Y-LO)*RA
- 360 PRINT#1,X$;CHR$(16);"10:";TAB(Y);"*":NEXTX
- 380 PRINT"WOULD YOU LIKE TO DO ANOTHER GRAPH?"
- 390 GETA$:IFA$<>"Y"ANDA$<>"N"THEN390
- 400 IFA$="Y"THEN420
- 410 CLOSE1:END
- 420 PRINT"SAME EQUATION"
- 430 GETA$:IFA$<>"Y"ANDA$<>"N"THEN430
- 440 IFA$="Y"THENPRINT#1,"SAME EQUATION USED":GOTO270
- 450 GOTO100
- 500 POKEP,A:P=P+1:X=X+BA-1:BA=3:TEST=58:RESTORE:RETURN
- 600 R=(MAX-MI)/R:FORX=MITOMAXSTEPR:GOSUB40:IFX=MITHENHI=Y:LO=Y
- 605 IFY>HITHENHI=Y
- 610 IFY<LOTHENLO=Y
- 620 NEXTX:PRINT#1,"Y RANGES FROM ";LO;"TO";HI
- 630 RA=60/(HI-LO):RETURN
-