11.02.2005

Polynomial Factoring on a TI-83+

This is written for the TI-83+ Graphing Calculator, and hasn't been tested on any other calculators. You enter in the number of potential factors(values for 'b' in [x-b]), and then the polynomial to attempt to use them in. After that, you enter in the potential factors themselves, press enter, and sit back and wait for it to give you the potential factors that actually work.


program:polysolv
input "factors:",f
f+1->dim(lfact
f+1->dim(lansw
fill(0,lfact
fill(0,lansw
input "equation",str1
1->i
repeat i=f+1
input "factor:",d
d->lfact
i+1->i
end
1->i
repeat i=f+1
lfact(i)->x
expr(str1)->k
if k=0
x->lansw(i)
i+1->i
end
1->i
disp "factors:"
repeat i=f+1
if lansw(i)≠0
disp lansw(i)
i+1->i
end

1 comment:

Charlie said...

what do you mean by "lfact"?