pd:SPLOT - SHAREWARE SIM. EQ. PLOTTING PROGRAM - 12/17/87 updaten:Copyright 1985,1986,1987,1988 Prowess, Inc.x:This progem plots simultaneous equations: :: ,,: ,:XX$(N, )& R(3),U(3),X(3),Y(3),XC(3),YC(3)P ,: ,: ()(),)() L : L,: (): L,>: (): L ,: "PLOT SIMULTANEOUS EQUATIONS" ,: "Copyright 1986,1987,1988 Prowess,Inc."  ,: ,: ()(),)()5 ,: ,: ()(N,)()U ,K: ,: "V2.1": ,d L  L,: (): L,P: () L ,: ()(N,)(): , SKIP  SKIP   ,: "Do you want to read the instructions? (Y/N/Q)"="  ,>:K$: K$"" "x, K$"Y" K$"y"  ,: XX$: ,K: " ": t 6 K$"N" K$"n"  ,: XX$: ,K: " ": |@ K$"Q" K$"q" J "*T:--------------------------clear field subroutines------------------------Q^ LL : LL,: (L, ): LL{h LL : LL,: (L, ): LL:r:-------------------------------------------------------------------------|  ,: (K, )B FLAG ,: "Your previous equations were:": ,: "Y = ";EQ1$;" and A = ";EQ2$^ FLAG FLAG z FLAG FLAG :------------------------inputs two user defined equations-----------------  ,: "Enter the first equation in the form: y = f(x)"C , : ,: "Example: Y = X^3 -(2*X^2) + X - 10"yW$ "2170 Y = ":  ,: ,: "Y = ":  , EQ1$: (EQ1$) :  :inputs user string----- S$ W$EQ1$ :adds correct line # to 1st equation string------Z "O",#,"FCT1.BAS" :writes 1st equation to the file fct1.bas--------h #,S$q # FLAG FLAG l ,: , ,: "Enter the second equation in the form A = f(B)" , , : "EXAMPLE: A = 2*EXP(-SIN(B))"7 ,: ,: "A = ": ,L&Q$ "2190 A = "0 ,: EQ2$: (EQ2$) : 0 :inputs 2nd user string-:SS$ Q$EQ2$ :adds correct line# to 2nd equation string--------5D "O",#,"FCT2.BAS" :writes 2nd equation to the file fct2.bas--------DN #,SS$MX #b: -------------merges fct1.bas and fct2.bas with this pgm ------------------l "FCT1.BAS",v,ALLv FLAG FLAG :  "FCT2.BAS",,ALLH:---------------------user defines plotting range of x-axis-----------------d FLAG FLAG n ^ ,: ,: "NOTE: XMIN must be smaller than XMAX !!!"   ,: ,: "The X-axis will be scaled + and - whichever (Xmen or Xmax) has the largest", ,: "absolute value." ,: "Example: If you wish to plot the functions from X = -15 to X = +5, you" ,: "would enter -15,5. The axis would run from -15 to +15 and the function"! ,: "would be plotted from X = -15 to X = 5, as you requested."r ,: ,: "Enter RANGE of X over which to plot. (Xmin,Xmax) ",XMIN,XMAX XMINXMAX : ,4: " ": :--------evaluates both functions and finds largest value of y and a ------- FLAG,  ^: : ,:  ,b "FINDING LARGEST VALUES OF Y AND A FOR SCALING"m  ,s*4INC (XMAXXMIN) :sets up plotting increment of x ------------->X XMIN:YBIGHB XMINR A\ XXMIN XMAX INC :finds biggest value of y-----------Nf zqp (Y)YBIG YBIG (Y)yz X BXMIN XMAX INC:  :finds biggest value of a ---  (A)YBIG YBIG (A) :sets YBIG equal to largest y or a-- BW (XMIN)(XMAX) XBIG(XMIN) : XBIG(XMAX) :---------------draws and labels plot field----------------------: ,,, (,)(,),,B :draws graph field ---------  I(l  (lL  (;(IU),)(;(IU),),,,  (;(IU),)(;(IU),),,,  (,ff&I)(,ff&I),,,  (,ff&I)(,ff&I),,,  I(! (;,)(;,), :draws vertical axis -----------------v!$ (,ff&)(,ff&), :draws horizontal axis ---------------!.: -------------------prints axis labels, etc. ---------------------------!8 ,(!B "Y"!L  ,@!V "X"!` ,@"j YBIG ~2"t "+#######.###";YBIG: J"~ "+#.####";YBIG:V" ,Ak" YBIG# " "#######.###";YBIG: " "#.####";YBIG" ,A: " "" , " XBIG " "#######.###";XBIG: # "#.####";XBIG!# , : " "-# ,8A# XBIG  c# "+#######.###";XBIG: z#  "+#.####";XBIG# ,(# "0"#(  ,#2 "0"#<:-------------plot routine for both equations------------------9$FXXMIN:BXMIN:U$(P, ) :initializes x and b to same smallest value-V$P ,: "PLOTTING": z$Z ((;(XMINXBIG)),(ff&(YYBIG))) :sets 1st plot pt.---$d XXINC XMAX INC :plots 1st equation-----$n z4%x ((;(XXBIG)),(ff&(YYBIG))),<% XF% % ((;(BXBIG)),(ff&(AYBIG))) :sets 1st pt of 2nd eq.--% BBINC XMAX INC :plots 2nd equation -----% '& ((;(BXBIG)),(ff&(AYBIG))),,, /& B[& ,: " ": ,: U$: ,t& ,: "GRAPH OF:"& "I",#,"FCT1.BAS"& #,T$& #& "I",#,"FCT2.BAS"& #,Q$& #& , <'" (T$,);" AND ";(Q$,): ,: "PRESS ANY KEY": ,: "TO CONTINUE": I : Io', ,: " ": ,: " "'6 ,N:A$: A$"" 6'@ ,,:: ,'J  ,'T " DISPLAY TABULATED VALUES OF X, Y AND A...............1"'^I(h " ENTER NEW RANGE OF X ................................2"O(r(| " INPUT TWO NEW FUNCTIONS .............................3"(( " EXIT ................................................4"(() " MAKE SELECTION "a) ,.:SS$: SS$"" (SS$) (SS$) ) (SS$) ,,,)SKIP: ^: )SKIP: ^: *:---------------routine for listing calculated values --------------------*:XXMININC:  ,_* " POINT FOR EQ.#1 EQ.#2"* " # X & B Y A"* ,D:  ,: "PRESS ANY KEY"* ,D: " TO CONTINUE"* ,G: "OR 'Q'"+ ,D: "FOR NEXT MENU"1+& ,:J:K:L@+0 I P+:XXINC:BX`+D z: n+N I,: L+X:LIMIT DISPLAY DIGITS FOR SINGLE PRECISION+b I, : "#######.####";X+l I,: "#######.####";Y+v I,3: "#######.####";A ,LL, L ", I-,FLAGL, ,J:A$: A$"" l, A$"Q" A$"q" : }, L 0, ,J:A$: A$"" ,,  ,: ,,  ,: "REVIEW TABULAR VALUES .........................1"5-  ,: "CHANGE RANGE OF X FOR PRESENT FUNCTIONS .......2"v- ,: "INPUT TWO NEW FUNCTIONS .......................3"- ,: "EXIT ..........................................4"-  ,: "Enter selection number". ,4:GG$: GG$"" (GG$) (GG$) ". QQ (.*H.4 (GG$) R,>,H,_.>SKIP: ^: v.HSKIP: ^: |.R.\ I : .f: .p:-----------------------------user functions----------------------------.z Y X//A B/e/:---------------------------error trap routine----------------------------/  z : ^: ,:  ,: "SYNTAX ERROR IN EQUATION #1 - REDO": PP : PP:FLAG: ,: S0   : ^: ,:  ,: "SYSTAX ERROR IN EQUATION #2 - REDO": PP : PP:FLAG: ,: 0  z : ^: ,:  ,: "IMAGINARY NUMBERS CREATED! - ALTER EQUATION AND/OR LIMITS": I : I: ,:FLAG: i1   : ^: ,:  ,: "IMAGINARY NUMBERS CREATED! - ALTER EQUATION AND/OR LIMITS": I : I: ,:FLAG: 1  z  ^:  ,:FLAG: ,: "DIVISION BY ZERO OCCURED - CHECK YOUR EQUATION AND REDO!": I : I: j2  : ,:  ,:FLAG: "AN OVERFLOW HAS OCCURED - ALTER EQUATION AND/OR LIMITS": I : I:: 2 :: d2:-----------------------------------quit---------------------------------2 ,:: ,3 ,: "RESTART THIS PROGRAM --------------1"K3  ,: "RETURN TO PLOT MENU ---------------2"3  ,: "QUIT ------------------------------3"3 ,: "MAKE SELECTION"3$ ,2:Q$: Q$"" $ 3. QT(Q$)38 QT QT : $ 4B QT SKIP: ^: 4L QT "PLOTM"74V QT : "PLICC4` : $ 4j :----------------------------------help----------------------------------4t ^4~ ,: "* This program plots two simultaneous equations - one in the form Y=f(X)"'5 ,: "and the other in the form of A=f(B)."~5 ,: "* After plotting is completed, a tabulation of all plotted points may be"5  ,: "reviewed."5  ,: "* Since 'Y' axis is scaled to accomodate the largest value from either"D6  ,: "equation, if one equation produces large values of 'Y' (Y or A) and the"6 ,: "other produces small values of 'Y' (Y or A), the curve with the smaller"6 ,: "values may not show much detail. Curves display best when both produce"G7 ,: "a similiar range of values. Often, restricting the range of X, to just"7 ,: "cover a particular point of interest, will keep values of both curves"7 ,: "in a good display range."7 ,: "Press any key to continue" 8 ,:K$: K$""  (8 K$"Q" K$"q" 28 ^8 ,: "* Error traps detect syntax errors and provide a chance to recover without"8 ,: "having to restart the program."9( ,: "* Error traps exist, in this program, to detect both 'division by zero'"c92  ,: "and 'floating point overflow' conditions, however IBM BASICA does not"9<  ,: "allow trapping these errors and the statements will not function. Some":F  ,: "BASICA 'clones' do not have these restrictions, in which case, the error"e:P  ,: "traps will work. If you get a system generated 'division by zero' or":Z ,: "'overflow' error, you will have to restart the program.";d ,: "* See the HELP file accessable from the PLOT MENU for a more thorough"+;n ,: "discussion of this program.;x ,: "* For practice, try: Y = X^2-5 AND A = -B -3, FROM X = -4 TO +4 (i.e. -4,4)"; ,: "Press any key to begin"; ,:K$: K$""  ; K$"Q" K$"q" ; ^: