Directory of image this file is from
This file as a plain text file
A8 PRINT" THIS PROGRAM WILL GRAPH A FUNCTION OF X BETWEEN ANY LIMITS"@@BB PRINT"(A AND B) YOU CHOOSE, WITH AN INTERVAL OF YOUR CHOICE (I)" @@BL PRINT"BETWEEN SUCCESIVE VALUES OF X, IF YOU TYPE THE FOLLOWING:" @@BV PRINT" 1 GO TO 220"@@B PRINT" 220 DEF FNY(X)=...(YOUR FUNCTION OF X)..." @@CH PRINT" RUN" @@CR STOP @@C\DEF FNY(X)=SIN(X) @@C&PRINT"LOWER LIMIT OF X =";\INPUTA @@C0PRINT"UPPER LIMIT OF X =";\INPUTB @@C2 IF A<B THEN 250@@C4PRINT"YOUR LOWER LIMIT MUST BE LESS THAN YOUR UPPER LIMIT!" @@C6PRINT\GOTO230 @@C:PRINT"INCREMENT OF X =";\INPUTI @@DD LET L=FNY(A) @@DN LET U=FNY(A) @@DX FOR X=A TO B STEP I@@D" LET Y=FNY(X) @@D, IF Y-L<0 THEN 320@@D6 GO TO 330@@E@ GOSUB 380@@EJ IF Y-U>0 THEN 350@@ET GO TO 360@@E^ GOSUB 400@@E( NEXT X @@E2 GO TO 420@@E< LET L=Y@@FF RETURN @@FP LET U=Y@@FZ RETURN @@F$ IF INT(U)-U=0 THEN 450 @@F. LET U1=INT(U)+1@@F8 GO TO 460@@GB LET U1=U @@GL LET L1=INT(L)@@GV LET D=U1-L1@@G IF INT(D/5)-D/5=0 THEN 570 @@G* FOR K=1 TO 2 @@G4 LET L1=L1-1@@G> LET D=U1-L1@@HH IF INT(D/5)-D/5=0 THEN 570 @@HR LET U1=U1+1@@H\ LET D=U1-L1@@H& IF INT(D/5)-D/5=0 THEN 570 @@H0 NEXT K @@H: LET E=D/5@@ID PRINT "X"@@IN PRINT "-"@@IX PRINT "V"@@I" PRINT "A"@@I, PRINT "L"@@I6 PRINT "U"@@J@ PRINT "E"@@JJ PRINT "S - - - - Y-VALUES - - - -" @@JT PRINT" "L1," ";L1+E*1.5," ";L1+E*3," ";L1+E*4.5@@J^PRINT" I---------I----+----I---------I---------I"; @@J PRINT "----+----I" @@J( IF L1>0 THEN 1020@@J2 LET Q=INT((-L1)*(10/E)+.5) @@J< DEF FNP(Y)=INT((Y-L1)*(10/E)+.5) @@KF FOR X=A TO B STEP I@@KP PRINTX,@@KZ LET Y=FNY(X) @@K$ IF Y>=0 THEN 850 @@K8 PRINT TAB(15+FNP(Y));"*";TAB(Q+15);"I" @@MH GO TO 1000 @@MR IF Y>0 THEN 910@@M\ PRINT TAB(Q+15);"*"@@ND GO TO 1000 @@NN PRINT TAB(15+Q);"I";TAB(15+FNP(Y));"*" @@O( NEXT X @@O2 GO TO 1100 @@O< FOR X=A TO B STEP I@@PF PRINTX,@@PP LET Y=FNY(X) @@PZ PRINT TAB(INT((Y-L1)*(10/E)+.5)+14);"*"@@QB NEXT X @@QL PRINT@@QV PRINT "NOTE: THE SIX I'S ON THE HORIZONTAL Y-AXIS REPRESENT:"@@Q PRINT L1;",";L1+E;",";L1+E*2;",";L1+E*3;",";L1+E*4;",";L1+E*5@@SX END@@ ?@@UNCTION OF X BETWEEN ANY LIMITS"@@BB PRINT"(A AND B) YOU CHOOSE, WITH AN INTERVAL OF YOUR CHOICE (I)" @@BL PRINT"BETWEEN SUCCESIVE VALUES OF X, IF YOU TYPE THE FOLLOWING:" @@BV PRINT" 1 GO TO 220"@@B PRINT" 220 DEF FNY(X)=...(YOUR FUNCTION OF X)..." @@CH PRINT" RUN" @@CR STOP @@C\DEF FNY(X)=SIN(X) @@C&PRINT"LOWER LIMIT OF X =";\INPUTA @@C0PRINT"UPPER LIMIT OF X =";\INPUTB @@C2 IF A<B THEN 250@@C4PRINT"YOUR LOWER LIMIT MUST BE LESS THAN YOUR UPPE