Table Program for the TI-85, I Need It!
Brett Zingle
the same thing as the table on the ti-82's. I do not have a link, could
someone just type out the program? I don't think it will be a hard
program, it shouldn't take very long. Please e-mail me so we can talk.
Brett Zingle
xrb...@prodigy.com
Mike Waddell
Since there are probably other who would like this program and are too
lazy to get it at the ftp site (archive.ppp.ti.com), I've decided to post
it. There are two table programs -- one that only does y1 and one that
will do y1 to y4. The ascii is included for those without links.
This program makes numeric tables from a function stored in y1.
It is similar to the table feature of the TI82
----begin documentation----
Store the function that will generate the table of values in y1.
The independent variable of this function must be 'x'. Run the
program. You will see the prompt 'TblMin='. Enter the minimum
value of the independent variable (x). Then you will see the
prompt 'DTbl='. Enter the value for Delta Table. This is the
amount by which x will increase from one row to the next in the
table. Now you should see a table of values for x and y1. You
can scroll down or up in the table by pressing [F1:PageD] {page
down} or [F2:PageU] {page up}. Press [F5:quit] to exit the
program.
program by Phil Sakashita
Highland High School
2166 South 1700 East
Salt Lake City, UT
or email comments or questions care of Ray Barton
<bar...@math.utah.edu>
----end documentation----
----begin ascii----
\START\
\COMMENT=Program file dated 01/07/94, 14:59
\NAME=TABLE
\FILE=TABLE.85P
Fix 3
Disp "Table Setup"
Input "TblMin=",tblmin
Input "DTbl=",dtbl
tblmin\->\x
Lbl CONTD
ClLCD
Outpt(1,1,"x")
Outpt(1,8,"y1")
For(cnt,2,7,1)
Outpt(cnt,1,x)
Outpt(cnt,8,y1)
x+dtbl\->\x
End
Menu(1,"PageD",CONTD,2,"PageU",CONTU,5,"quit",TQUIT)
Lbl CONTU
x-12*dtbl\->\x
Goto CONTD
Lbl TQUIT
ClLCD
Float
\STOP\
----end ascii----
----begin uue----
----end uue----
And, the second one.
Presents a table of values of y1 to y4. User sets
range and # of digits and functions displayed.
----begin documentation----
This program was designed to (roughly) emulate a TI-82's
table feature on a TI-85. While it has flaws, it does
many things nicely.
To use the program, first store one to four functions in
y1, y2, y3, and y4, and then run the program.
The opening menu allows you to set many things:
Range: Sets the initial value of x, "TblMin", and
"<Delta>Tbl", the increment between x values.
The defaults are 0 and 1, respectively.
#Fns: Sets the number of functions you want to use
in your table. This is necessary because there
is apparently no way for a program to sense
which of y1, y2, y3, and y4 are defined on the
TI-85. Select "1" to choose just y1, select
"3" to choose y1, y2, and y3, etc. The default
is "1".
#digt: Sets the number of digits to display past the decimal
in the table; enter "-1" for float-mode. "3" or "4"
work well, the default is "-1", i.e. float-mode.
The first three options above return you to the main menu when
you are done with them.
quit: Ends the program. Use this rather than pressing "ON" to
halt execution: the program may have put the calculator
in "fix" mode, and "quit" returns the calculator to "float"
mode.
Table: Shows the actual table, either the default or as set by
the menu options above. x and y1 (and y2 if two or more
functions were selected) are presented in a table with
six entries. A sub-menu appears:
PageD: Shows the next 6 entries in the table, i.e. larger
x's.
PageU: Shows the previous 6 entries in the table, i.e. smaller
x's.
NxtFn: If more than one function was selected in the
#Fns option, this will show the "next column to the
right", i.e. if y1,y2 were displayed, NxtFn will display
y2,y3. This wraps around to y1 when you run out of
functions.
PrvFn: Opposite of NxtFn, this shows the "column to the left",
i.e. if y3,y4 were displayed, PrvFn will display y2,y3. This
wraps also.
Main: Returns to the main menu, where settings can be changed.
Notes: Since the font available for programming is large, not a lot
fits on the screen. If the numbers are large (i.e. require scientific
notation), things get a bit cramped. If the numbers have MANY digits, the
columns overlap in ugly ways.
If the user requests, say, three functions when only y1 and y2 are defined,
the program crashes. If the user presses "QUIT" as they should, they can
re-run the program by simply pressing "ENTER". If the user presses "GOTO",
they are put in edit mode and could easily wreck the program. To help avert
this, I've put some comments in the program that the user would see at that
point, saying: "y3 undefined! Press EXIT". If they do, all is well.
Please send me comments about this program and its usefulness or lack
thereof.
Program written by Prof. Mark Janeba, Dept. of Math,
Willamette Univ, Salem, OR 97301
(internet: mja...@willamette.edu)
----end documentation----
----begin ASCII----
\START\
\COMMENT=Program file dated 09/28/94, 16:04
\NAME=TABLE
\FILE=table.85P
1\->\FnNo:0\->\tblmin:1\->\\UC-Delta\t
1\->\NFns:Float:\(-)\1\->\NDigs
Lbl START
ClLCD
Disp "":Disp "":Disp "Your function(s)"
Disp "should be in y1..y4."
Menu(1,"Range",Rng,2,"#Fns",SET,3,"#digt",NDg,4,"Table",Tbl,5,"quit",TQ\#\
UIT)
Lbl NDg
ClLCD
Disp "# digits to show"
Input "(\(-)\1 for float):",NDigs
max(iPart (NDigs),\(-)\1)\->\NDigs
min(NDigs,11)\->\NDigs
Goto START
Lbl Rng
ClLCD
Disp "Range Setup"
Input "TblMin=",tblmin
Input "\UC-Delta\Tbl=",\UC-Delta\t
Goto START
Lbl SET
Repeat (abs (NFns-2.5)\<=\1.5)(iPart NFns==NFns)
Disp "How many functions?"
Input "Enter 1,2,3,or 4:",NFns
End
Goto START
Lbl Tbl
tblmin\->\x
Goto TESTfns
Lbl CONTD
If NFns>1
mod(FnNo,NFns)+1\->\FnNo2
ClLCD
Outpt(1,1,"x")
Outpt(1,8,"y")
Outpt(1,9,FnNo)
If NFns>1:Then
Outpt(1,15,"y")
Outpt(1,16,FnNo2)
End
If NDigs==\(-)\1:Then
Float
Else:Fix NDigs:End
For(cnt,2,7,1)
Outpt(cnt,1,x)
If FnNo==1
Outpt(cnt,8,y1)
If FnNo==2
Outpt(cnt,8,y2)
If FnNo==3
Outpt(cnt,8,y3)
If FnNo==4
Outpt(cnt,8,y4)
If NFns>1:Then
If FnNo2==1
Outpt(cnt,15,y1)
If FnNo2==2
Outpt(cnt,15,y2)
If FnNo2==3
Outpt(cnt,15,y3)
If FnNo2==4
Outpt(cnt,15,y4)
End
x+\UC-Delta\t\->\x
End
Float
Menu(1,"PageDn",CONTD,2,"PageUp",CONTU,3,"NxtFn",ContR,4,"PrvFn",ContL,\#\
5,"Main",START)
Lbl CONTU
x-12\UC-Delta\t\->\x
Goto CONTD
Lbl ContR
mod(FnNo,NFns)+1\->\FnNo
x-6\UC-Delta\t\->\x
Goto CONTD
Lbl ContL
mod(FnNo-2,NFns)+1\->\FnNo
x-6\UC-Delta\t\->\x
Goto CONTD
Lbl TQUIT
ClLCD
Disp "To run table again,"
Disp "just press ENTER"
Return
Lbl TESTfns
tblmin\->\x
"y1 undefined! Press EXIT!"
y1\->\y
"y2 undefined! Press EXIT!"
If 2\<=\NFns:y2\->\y
"y3 undefined! Press EXIT!"
If 3\<=\NFns:y3\->\y
"y4 undefined! Press EXIT!"
If 4\<=\NFns:y4\->\y
Goto CONTD
\STOP\
----end ASCII----
----begin UUE----
----end uue----
============================================================================
/\/\ Michael Waddell "It is only with the heart that one
\/\/\/\ nd...@csd.uwm.edu can see rightly; what is essential
\/\/ is invisible to the eye."