d:IPLOT - SHAREWARE F(X) PLOT WITH INTEGRATIONn:COPYRIGHT 1985,1986,1987 Prowess, Inc.x: :,,: ,,: ,:XX$(N, ) R(3),U(3),X(3),Y(3),XC(3),YC(3)2 ,: ,: ()(),)()d L : L,: (): L,>: (): L ,": "RECTLINEAR PLOT" ,: "Copyright 1986,1987,1988 Prowess,Inc." ,: ,: ()(),)()  ,: ,: ()(N,)()+ ,K: ,: "V2.6": ,: L ] L,: (): L,P: ()e L ,: ()(N,)(): , FLAG T  ,: "Do you want to read the instructions? (Y/N/Q)"  ,>:K$: K$"" < K$"Y" K$"y"  ,: XX$: ,K: " ": B w" K$"N" K$"n"  ,: XX$: ,K: " ": @, K$"Q" K$"q" 6 @  ,: (K, )J XY:PIO–hIT  ,%^ ,: "Enter your equation in the form Y=f(X) and press 'return'": ,h ,: "EXAMPLE: Y = 2*X^2 - 20*X - 3 or Y = exp(-.3*X)*sin(4*X)":  , : ,: "Y ="8r FLAG ,: ,: "YOUR EQUATION WAS ": ,: ,: "Y = ";EQ$: ,: ,: "DIVISION BY ZERO OCCURED-REENTER EQUATION AND CHECK RANGE OF X":  ,:FLAG: ,| FLAG ,: ,: "YOUR EQUATION WAS ": ,: ,: "Y = ";EQ$: ,: ,: "PLEASE CHECK FOR SYNTAX ERROR AND REENTER ":  ,:FLAG: , FLAG ,: ,: "YOUR EQUATION WAS ": ,: ,: "Y = ";EQ$: ,: ,: "AN ILLEGAL FUNCTION CALL WAS MADE-POSSIBLY AN IMMAGINARY NUMBER WAS CREATED" FLAG ,: " - REENTER THE EQUATION. CHECK YOUR RANGE SPECIFICATION." ,:FLAG: ,?:---------------------inputs user's equation string---------------------B$"1910 Y=" :line # at which user eq. will be placed---------  ,: EQ$: (EQ$) : : hC$ B$EQ$:----------writes the equation string to a file called funct.bas---------6 "O",#,"FUNCT.BAS"F #,C$O #:-------merges funct.bas with this pgm. and continues execution---------- "FUNCT.BAS",0,ALL: :----------------------clear upper & lower fields-------------------------> LL : LL,: (L, ): LLh LL : LL,: (K, ): LL:&:-------------------------------------------------------------------------0  ,: D:--user defines range of x over which to plot-------------VN ,: "Enter RANGE of X over which to plot. (Xmin,Xmax)":  ,X ,: "NOTE: XMIN must be smaller than XMAX !!!":  ,b  ,: "The X-AXIS will be scaled + and - whichever (Xmin or Xmax) has the largest"l  ,: "absolute value."hv ,: "Example: If you wish to plot the function from X = -10 to X = 0, you would" ,: "enter -10,0. The X axis would run from -10 to +10 and the function would" ,: "be plotted from X = -10 to X = 0, as you requested." ,4: "",XMIN,XMAXT XMINXMAX : ,4: " ": INC (XMAXXMIN) :sets up plotting increment of x: ,: ------------determines largest values of x and y for scaling ---------- B  ,: "FINDING MAX VALUES OF X AND Y FOR SCALING"^XXMIN: ,: h vYBIG(Y):XBIG(X) K  X X INC  v (Y) YBIG YBIG(Y)  K * (XMIN) (XMAX) XBIG(XMIN) : XBIG(XMAX)g 4:------------------------draws plotting field-----------------------------m >y H ,: R (,)(,),,B :draws graph field--------------- \ I(l  (l)!f (;(IU),)(;(IU),),,, :+ vert grid linesu!p (;(IU),)(;(IU),),,, : - vert grid lines!z (,ff&I)(,ff&I),,, :+ horiz grid lines " (,ff&I)(,ff&I),,, :- horiz grid lines" I_" (;,)(;,), :draws vertical axis -----------------" (,ff&)(,ff&), :draws horizontal axis ---------------": -------------------prints axis labels, etc. ---------------------------# ,(# "Y"#  ,@(# "X"3# ,@G# YBIG j# "+#######.####";YBIG: # "+#.#####";YBIG:# ,A# YBIG# $# "#######.####";YBIG: .#$ "#.#####";YBIG#. ,A: " "#8 , $B XBIG V4$L "#######.####";XBIG: `L$V "#.#####";XBIG^$` , : " "j$j ,8~$t XBIG $~ "+#######.####";XBIG: $ "+#.#####";XBIG$ ,($ "0"$  ,$ "0"5%: -----------------------plots points------------------------------------_%XXMIN:W$(P, ): ,: "PLOTTING"i% v% ((;(X)XBIG),(ff&(YYBIG))) :sets cursor to 1st pt.& K  :scales and plots user function& XXINC& vU& ((;(X)XBIG),(ff&(Y)YBIG)),]&  Kv& ,: " "& ,&( "I",,"FUNCT.BAS"&2 #,T$&< ,: "GRAPH OF ";(T$,)$'F ,: W$: ,: "PRESS 'A' TO FIND AREA UNDER CURVE, OTHERWISE, PRESS 'C' ": ,NC'P ,N:A$: A$"" PS'Z ,: W$'d A$"A" A$"a" : ,A: "PRESS ANY KEY": ,A: "TO CONTINUE": I  : I: ,A: " ": ,A: " " :  (n ,P:W$: W$"" n(x 2( A$"C" A$"c" >(: FO( : ,,,( :--------------- provides choice of continuing or not -------------( : : : : :  ,( " DISPLAY A TABLE OF CALCULATED X & Y VALUES ? .....1"D) " CHANGE RANGE OF X FOR PRESENT FUNCTION ...........2") " PLOT A NEW FUNCTION...............................3") " EXIT .............................................4")* " MAKE SELECTION "@*  ,*:SS$: SS$"" (SS$) (SS$) `* (SS$) ,,x,k*Q  z*XXMININC**":--------------------------sets up page header---------------------------+,  ,: " POINT # X Y "8+6 ,<: ,: "PRESS ANY KEY TO"X+@ ,<: "CONTINUE OR 'Q'"w+J ,<: "FOR NEXT MENU."+T ,:J:K:L+^ I +hXXINC,r v: FLAG I: " ": ,| I, : L5, I,: "#######.####";XU, I,&: "#######.####";Y_,LLs, L FLAG{, I,FLAG, ,P:A$: A$"" , A$"Q" A$"q" : , L ^, ,P:A$: A$"" ,K-:-------------------provides choice of continuing or not-----------------\-  ,: ,- " PLOT SAME FUNCTION AGAIN ................1"- " CHANGE RANGE OF X FOR PRESENT FUNCTION ..2"(. " INPUT A NEW FUNCTION ....................3"n.& " EXIT ....................................4":.0 " MAKE SELECTION ".:  ,/:GG$: GG$"" (GG$) (GG$) :.D (GG$) 4,,x,/N: I /XQ Q  +/bY(X)z/l:-----------------------------user function-----------------------------/vY (X)//:-----------------------error trap routine-syntax,/0,--------------------0  v :FLAG::: 60  (v ) ::FLAG: ]0  v :FLAG::: s0 :: 0Z$(O, ) :----integration subroutine----------------------------0 ,: "Z$": ,1 "To find AREA between X1 and X2, enter in the form: X1,X2 ";X1,X2N1 ,: Z$: ,: "INTEGRATING": ,PW1XX1a1 v1 (;(XXBIG),ff&)1 (;(XXBIG),(ff&(YYBIG))),1 XX21 v1  (;(XXBIG),ff&)2* (;(XXBIG),(ff&(YYBIG))),/24AINC (X2X1):DAF2> JX1 X2 AINCU2H XJAINCa2R v2\ (;(XXBIG),ff&)2f (;(XXBIG),(ff&(YYBIG))),2p XJ(AINC)2z v2 DADA(AINC(Y))2 J<3 ,: Z$: ,: "APPROX AREA BETWEEN ";X1;" AND ";X2;" = "u3 ,-: "#######.####";DA: ,<: " SQ. UNITS"{33:-------------------------------quit menu---------------------------------3 ,,:: ,4 ,: "RESTART THIS PROGRAM --------------1"I4  ,: "RETURN TO PLOT MENU ---------------2"~4  ,: "EXIT ------------------------------3"4 ,: "Make selection"4 ,2:Q$: Q$"" 4QT(Q$)4 QT QT : 4 QT x5 QT "PLOTM"+5$ QT : ,::75. : 58 :---------------------------------help-----------------------------------5B 5L ,: "* This program plots functions of the form Y = f(X) over any range of X"6V ,: "that you specify."^6` ,: "* If your equation uses letters other than 'Y' and 'X', you will have to"6j  ,: "change to the Y = f(X) format before entering."6t  ,: "* BASIC language syntax must be used when entering your equation. Check"G7~  ,: "your BASICA (or equiv.) manual if you are not familiar with handling"m7 ,: "BASIC math statements."7 ,: "* Although this program contains statements to trap 'division by zero'"8 ,: "that might occur, BASICA does not allow trapping this error. Some other"o8 ,: "BASICA equivalents DO allow 'division by zero' trapping. If you get a"8 ,: "'division by zero' error message, you will have to rerun the program."8 ,: "Press any key to continue" 9 ,:K$: K$""  9 j9 ,: "* To minimize the chance of inadvertently creating a 'divide by zero'"9 ,: "situation, the program divides the plotting range into 199 parts. Thus,": ,: "if you specify that the equation be plotted from X = -10 to +20, the"i: ,: "program will first plot the value of Y for X = -10. The next plot point":  ,: "will be the value of Y for X = -10 + (30/199). The 30/199 is added to X";  ,: "for each iteration. Unless you enter zero as one of the range numbers, the"b;  ,: "likelyhood of accidently dividing by zero is very small."; ,: "* After your curve is plotted, you may calculate the approximate area"<( ,: "between the curve and the X-axis by selecting the 'A' option. Take the "W<2 ,: "'C' (continue) option if you don't want to find the area."<< ,: "* After plotting, you may review the X and Y values for each plotting point."