Texas Instruments TI-89 Tip List page 201

Endfunc
These routines must both be installed in a folder called \spfn. The list of Bernoulli polynomials will be
created in this same folder. To create a list of polynomials, execute
bnpoly(n)
where n is the highest-order polynomial you expect to use. For example, if you use polynomials up to
the 20th order, then use bnpoly(20). If you later need higher-order polynomials, just run bnpoly() again,
and it will append the additional polynomials to the list.
As bnpoly() creates the polynomials, it displays them in the program I/O screen. After all the
polynomials are created, a dialog box is shown with the prompt
Archive polynomial list?
Answer 'yes' to archive the list in flash memory, or 'no' to leave it in RAM. I provide this option because
the list is large for high order polynomials, and there is no advantage to having it in RAM. If you later
increase the size of the list, bnpoly() will unarchive it for you.
This table gives you some idea of the memory required for tables of various orders of polynomial. The
size is in bytes with the list archived. The size of the last polynomial in the list is also shown
Since the maximum size of an 89/92+ variable is about 64K, the maximum order that can be saved is
about 100.
Operation of bpo() is simple: just call bpo(k), where k is the the order of the polynomial to return. For
example, if bnpoly() was executed to create a list of polynomials up to order 30, then to return the 10-th
order polynomial, use
bpo(30)
bpo() does two things, beyond simply returning the polynomial in bpoly[k]. First, it returns an error
message if k<0. Second, it returns 1 for k=0, since B
I would usually include a test to ensure that k is less than the list size, like this:
if kk<0 or kk>dim(spfn\bpoly): return "bpo arg error"
Size of bpoly[] and last polynomial
Polynomial Total list
order size (bytes)
10 400
20 1,463
30 3,370
50 10,525
75 28,581
100 61,327
0
Last polynomial
size (bytes
71
155
264
527
967
1,609
(x) is 1, and B (x) is not stored in bpoly[].
0
6 - 43