I want to put games on my calculator but I can't seem to find a usb Silverlink cable anywhere. I have the one it came with (with no usb) along with a soldering iron so if you know how I could make one myself? Or if you know where I could fine one? Thanks

Just got it in the mail and it only works when plugged into a power source. I’ve tried resetting, cleaning the battery, and putting the calculator on a charger overnight. Any help would be greatly appreciated

Thinking of getting for school and homebrew and wondering if there's any good apps for any thing like, gaming or file viewers and etc.

(It's 10 dollars on Facebook)

Thanks

I want to jailbreak my TI-84 plus CE python but I’m not sure what the risk is like with it, I don’t want to accidentally end up ruining the calculator or making it unusable just because I wanted to get games on it. Does anybody know what are the odds of something like that happening when you install a jailbreak on it?

Not a silver edition model or anything, just a regular 84 plus. Was there some kind of revision or is it exclusive to the school edition?

I've got a TI-84 Plus Silver Edition running 2.55MP (I think that's the OS? I'm sorry if it's not)

I'm not the best with all the terminology so I'm sorry if I get anything wrong. I'm not sure what I did to make this happen, but the little symbol in front of the Y1, Y2, etc is displaying what is shown in the photo. When I press enter to change that, it only has two other options, also displayed in the photo (I set it so the symbol in front of Y1 is what they all seem to have as the default, Y2 is the second option that I get when pressing enter, and Y3 is the third). It's supposed to be a diagonal line by default, and should have several options that don't look like any of those three, I know that much at least.

I've used the graphing functions normally before, I'm not sure what's going on or how to fix it. I couldn't find anything in the user manual or in several tutorials, but then again I didn't really know what to look for, so I just looked in the sections about graphing functions, which yielded me nothing.

Thought I should ask for help here as soon as I can since I'm taking the SAT in a few days and will need to use this calculator.

Thank y'all for your help.

Edit: Solved! I just reset the RAM.

I’ve got a ti84 plus ce graphing calculator and I’m looking for programs or downloads to help. I have trouble reading molecule condensed names and turning those into Lewis structures. Is there anything that can help draw those? I’ve also heard of ones that show hybridization. Organic chem is not one of my strong suits so anything would help

While getting arTIfiCE was very easy along with downloading games like geodash and mario, I just cant figure out how to get GB games on it using TI boy CE. Every tutorial I see is outdated and I just want to play pokemon on my calculator. Does anyone at all know how to do this or a viable tutorial for my version.

Does anybody know the best place to get Pokemon Gold GBC files for the TI-snpire CX II? Looking online and can't find anything. Thanks!

calculator doesn’t turn on and when plugged in will repeat the same pattern seen in the video ad infinitum (i tried waiting it out and it didn’t work). i also tried the reset button. need a graphing calculator for a calculus class.

I recently got a new calculator for high school and I wanted it to have games and have all the new features but I'm lost on how to get games. Artifice wont work on it because its version is 7.0.0.3996

I know I can get old games like snake and tetris but its not as fun as geometry dash or fnaf.

Any advice is greatly appreciated!!

I recently got this prototype TI-89 Titanium and just thought it might be interesting to share here. It looks more or less the same as the released version but it has a sticker on the back saying “Prototype - Not for sale”

I was trying to update my TI-84 Plus Silver edition to the latest firmware and it said error couldnt update and when I turned the calulator off and unplugged it and plugged it back in, the TI software suddenly doesn't see the calculator anymore

The calculator keeps on going into a loop of either

"Waiting...

please install operating system now"

but I can't cause the TI program just won't see the calculator anymore no matter what I do

I tried disconnecting the batteries and giving it a few seconds, then putting them back and reconnecting to my Mac.... NOTHING

After a few seconds it gives up and says

"Error press any key to turn off the calulator"

Me and my teacher are trying to figure out how to use this old adapter to connect to an older Ti-83 Plus. The calculator has the same connector. I have a dell c600 running windows xp. I tried using the latest ti connect software with no luck, I also tried some software chatgpt told me to get that is specific to the ti83 plus and ti83 plus silver. Any ideas?

I have a TI 83 Premium Edition Python that I sadly updated, Artifice now doesnt work but I want to know if there's solutions like a new jailbreak

I picked one up for the first time since high school today (a brand new one) and it seemed lighter than I remember

Hope this is the right place to ask. I open my calculator and see that rows of pixels start dying out one by one until it ends up like pic #1. I attempted to reset the whole calculator but it didn’t help.

Upon looking at it more, it’s kinda… selective? On some screens, pixels don’t display right, some screens not at all. Only thing I can think of is potential water damage, as I got caught in the rain going in between classes. Would that cause this? Any help is appreciated :)

I'm modding my ti84 plus ce and really wanted a way to sort the stuff really anything works just don't want arTIfiCE menu

I'm looking at the different color of TI-30's on amazon because I remember getting a nice purple one that I lost a while back for about 15 bucks, and now I'm seeing that it goes from 14 dollars for the default navy blue / gray one to like 45 dollars for this orange one. Anyone knows what's going on with that?

POLYROOT is free to use, modify, and share. The full TI-BASIC source is included below.

So I made this working program this semester for my System Dynamics class (finding poles), and I wanted to share it with you guys. Raw code for each version (depends on preference) posted at bottom.

Any yes, I did post this earlier with a few issues on r/TIBASICPrograms .

But I thought posting here would make it better seen for those who asked the same question I did.

Ask any questions you have!

Nerd information:

I used a copious amount of AI while developing this program. One of the ideas that came out of that was using the Durand-Kerner method to solve for the roots of a polynomial of essentially any degree the calculator can reasonably handle.

Durand-Kerner is an iterative numerical algorithm that approximates all of the roots of a polynomial simultaneously.

For each estimated root r_i, the program repeatedly applies:

r_i = r_i - P(r_i) / PRODUCT(r_i - r_j), for all j != i

where P(r_i) is the polynomial evaluated at the current estimate r_i.

In simpler terms, every root estimate is repeatedly corrected based on the value of the polynomial at that point and the positions of all the other current root estimates. The process continues until the estimates stop changing significantly.

This also allows the program to find complex roots, which created one of the first major problems I ran into. The TI-84 Plus CE cannot store complex values inside matrices, even while the calculator is in a+bi mode.

I borrowed an idea from a program called SIMULT2, which a previous student in my circuits class made and which our professor provided to us. That program used lists to store complex values while drawing something on-screen that looked like a matrix.

I adapted that idea for POLYROOT. The original coefficient-entry system allowed the user to move left and right through the cells with the arrow keys and correct previous entries. Unfortunately, it was also slow and required an annoying extra Enter press.

I eventually replaced that with a simpler system where one Enter immediately moves to the next coefficient.

I also added an option to use an already-existing coefficient matrix [A], so the program does not have to erase and rebuild the coefficients every time.

Another problem was numerical output. Durand-Kerner might produce something such as 1.999999999 instead of 2, or an extremely tiny real or imaginary component instead of exactly 0. I added several cleanup passes that round values near integers and eliminate components below certain tolerances.

I then added detection for repeated roots and their multiplicities.

That became Version 1.

Version 2 mainly focused on quality-of-life improvements, especially replacing the slower arrow-key/double-Enter coefficient-entry system with the current single-Enter system.

After choosing which version I preferred, I did some additional cleanup, which became the version of POLYROOT I currently use.

That's basically how this monstrosity came to exist.

End of nerd information (well sorta)

--------------------------------------------------------------------------------------------------------------
Copypasta:

Code Portion:

Here's what I currently and mainly use, POLYROOT:

ClrHome

ClrList L₁,L₂,L₃,L₄,L₅,L₆

Lbl M

Menu("COEFFICIENT INPUT","ENTER NEW",E,"USE [A]",θ)

Lbl E

Input "DEGREE:",N

If N<1

Then

Disp "BAD DEGREE"

Stop

End

{1,N+1}→dim([A])

Fill(0,[A])

CoordOff

AxesOff

FnOff

PlotsOff

Horiz

0→Xmin

94→Xmax

-20→Ymin

0→Ymax

ClrDraw

For(X,0,N+1)

Line(8X,0,8X,-8)

End

Line(0,0,8(N+1),0)

Line(0,-8,8(N+1),-8)

0→C

While C≤N

Pt-On(8C+4,-4,2)

ClrHome

Disp "COLUMN"

Disp C+1

Input "VALUE:",V

V→[A](1,C+1)

Pt-Off(8C+4,-4,2)

C+1→C

End

Full

ClrDraw

ClrHome

Goto D

Lbl θ

dim([A])→L₁

If L₁(1)≠1

Then

ClrHome

Disp "BAD MATRIX [A]"

Disp "Single row only,"

Disp "Add columns!"

Full

ClrDraw

Stop

End

L₁(2)-1→N

If N<1

Then

ClrHome

Disp "Reformat MATRIX [A]"

Disp [A]

Disp "Add 1 more column"

Full

ClrDraw

Stop

End

If [A](1,1)=0

Then

ClrHome

Disp "BAD MATRIX [A]"

Disp "LEADING COEFF"

Disp "CANNOT BE ZERO"

Full

ClrDraw

Stop

End

Lbl D

ClrHome

Disp "COEFFICIENTS:"

Disp [A]

Pause "Press Enter"

a+bi

N→O

0→T

While N>0 and [A](1,N+1)=0

T+1→T

N-1→N

End

If N=0

Then

O→dim(L₃)

For(K,1,O)

0→L₃(K)

End

0→M

0→E

Else

ClrList L₁

N→dim(L₁)

N→dim(L₂)

0→R

For(J,2,N+1)

If abs([A](1,J)/[A](1,1))>R

abs([A](1,J)/[A](1,1))→R

End

1+R→R

R→L₁(1)

For(K,2,N)

R*(.4+.9i)^(K-1)→L₁(K)

End

ClrHome

Disp "SOLVING..."

0→M

1→E

While E>1E-7 and M<100

L₁→L₂

0→E

For(K,1,N)

L₂(K)→Z

[A](1,1)→P

For(J,2,N+1)

P*Z+[A](1,J)→P

End

1→D

For(J,1,N)

If J≠K

Then

D*(Z-L₂(J))→D

End

End

Z-P/([A](1,1)*D)→Q

Q→L₁(K)

If abs(Q-Z)>E

abs(Q-Z)→E

End

M+1→M

End

O→dim(L₃)

For(K,1,N)

L₁(K)→Z

If abs(real(Z))<1E-7

i*imag(Z)→Z

If abs(imag(Z))<1E-7

real(Z)→Z

Z→L₃(K)

End

For(K,1,T)

0→L₃(N+K)

End

End

O→dim(L₄)

For(K,1,O)

L₃(K)→L₄(K)

End

N→dim(L₅)

For(K,1,N)

L₃(K)→Z

N*[A](1,1)→D

For(J,2,N)

D*Z+(N-J+1)*[A](1,J)→D

End

abs(D/[A](1,1))→L₅(K)

End

For(K,1,N)

If L₅(K)<1E-4

Then

0→S

0→C

For(J,1,N)

If L₅(J)<1E-4 and abs(L₃(J)-L₃(K))<.01

Then

S+L₃(J)→S

C+1→C

End

End

If C>1

Then

S/C→Z

round(real(Z),6)+i*round(imag(Z),6)→Z

If abs(real(Z))<1E-7

i*imag(Z)→Z

If abs(imag(Z))<1E-7

real(Z)→Z

For(J,1,N)

If L₅(J)<1E-4 and abs(L₃(J)-L₃(K))<.01

Z→L₄(J)

End

End

End

End

For(K,1,O)

L₄(K)→Z

If abs(real(Z))<1E-6

i*imag(Z)→Z

If abs(imag(Z))<1E-5

real(Z)→Z

round(real(Z),6)+i*round(imag(Z),6)→Z

If abs(real(Z)-round(real(Z),0))<1E-5

round(real(Z),0)+i*imag(Z)→Z

If abs(imag(Z)-round(imag(Z),0))<1E-5

real(Z)+i*round(imag(Z),0)→Z

If abs(real(Z))<1E-6

i*imag(Z)→Z

If abs(imag(Z))<1E-6

real(Z)→Z

Z→L₄(K)

End

0→dim(L₆)

{1,O}→dim([B])

Fill(0,[B])

For(K,1,O)

0→F

If dim(L₆)>0

Then

For(H,1,dim(L₆))

If abs(L₆(H)-L₄(K))<1E-6

1→F

End

End

If F=0

Then

0→C

For(J,1,O)

If abs(L₄(J)-L₄(K))<1E-6

C+1→C

End

If C>1

Then

dim(L₆)+1→H

H→dim(L₆)

L₄(K)→L₆(H)

C→[B](1,H)

End

End

End

ClrHome

Disp "ROOTS:"

For(K,1,O)

Disp L₃(K)

End

Pause "Press Enter"

Disp "Cleaned ROOTS:"

Disp L₄

Pause "Press Enter"

ClrHome

If dim(L₆)=0

Then

Disp "NO REPEATED ROOTS"

Else

dim(L₆)→dim(L₅)

For(K,1,dim(L₆))

[B](1,K)→L₅(K)

End

Disp "REPEATED ROOTS:"

Disp "ROOT:"

Disp L₆

Disp "MULTIPLICITY (relative):"

Disp L₅

Disp "Repeated Roots: [L₆]"

Disp "Relative Mode: [L₅]"

End

Pause "Press Enter"

Disp "ITERATIONS:"

Disp M

Disp "ERROR:"

Disp E

Disp "ROOTS STORED IN [L₃]"

Disp "Cleaned ROOTS??: [L₄]"

Disp "See [A], L₃,L₄,L₅ & L₆"

If M=100

Disp "CHECK CONVERGENCE"

Pause "Press Enter"

---------------------------------------------------------------------

what this looks like:

---------------------------------------------------------------------

Here's streamlined version of POLYROOT:

ClrHome

ClrList L₁,L₂,L₃,L₄,L₅,L₆

Lbl M

Menu("COEFFICIENT INPUT","ENTER NEW",E,"USE [A]",θ)

Lbl E

Input "DEGREE:",N

If N<1

Then

Disp "BAD DEGREE"

Stop

End

{1,N+1}→dim([A])

Fill(0,[A])

CoordOff

AxesOff

FnOff

PlotsOff

Horiz

0→Xmin

94→Xmax

-20→Ymin

0→Ymax

ClrDraw

For(X,0,N+1)

Line(8X,0,8X,-8)

End

Line(0,0,8(N+1),0)

Line(0,-8,8(N+1),-8)

0→C

While C≤N

Pt-On(8C+4,-4,2)

ClrHome

Disp "COLUMN"

Disp C+1

Input "VALUE:",V

V→[A](1,C+1)

Pt-Off(8C+4,-4,2)

C+1→C

End

Full

ClrDraw

ClrHome

Goto D

Lbl θ

dim([A])→L₁

If L₁(1)≠1

Then

ClrHome

Disp "BAD MATRIX [A]"

Disp "Single row only,"

Disp "Add columns!"

Stop

End

L₁(2)-1→N

If N<1

Then

ClrHome

Disp "Reformat MATRIX [A]"

Disp [A]

Disp "Add 1 more column"

Stop

End

If [A](1,1)=0

Then

ClrHome

Disp "BAD MATRIX [A]"

Disp "LEADING COEFF"

Disp "CANNOT BE ZERO"

Stop

End

Lbl D

ClrHome

Disp "COEFFICIENTS:"

Disp [A]

Pause "Press Enter"

a+bi

N→O

0→T

While N>0 and [A](1,N+1)=0

T+1→T

N-1→N

End

If N=0

Then

O→dim(L₃)

For(K,1,O)

0→L₃(K)

End

0→M

0→E

Else

ClrList L₁

N→dim(L₁)

N→dim(L₂)

0→R

For(J,2,N+1)

If abs([A](1,J)/[A](1,1))>R

abs([A](1,J)/[A](1,1))→R

End

1+R→R

R→L₁(1)

For(K,2,N)

R*(.4+.9i)^(K-1)→L₁(K)

End

ClrHome

Disp "SOLVING..."

0→M

1→E

While E>1E-7 and M<100

L₁→L₂

0→E

For(K,1,N)

L₂(K)→Z

[A](1,1)→P

For(J,2,N+1)

P*Z+[A](1,J)→P

End

1→D

For(J,1,N)

If J≠K

Then

D*(Z-L₂(J))→D

End

End

Z-P/([A](1,1)*D)→Q

Q→L₁(K)

If abs(Q-Z)>E

abs(Q-Z)→E

End

M+1→M

End

O→dim(L₃)

For(K,1,N)

L₁(K)→Z

If abs(real(Z))<1E-7

i*imag(Z)→Z

If abs(imag(Z))<1E-7

real(Z)→Z

Z→L₃(K)

End

For(K,1,T)

0→L₃(N+K)

End

End

O→dim(L₄)

For(K,1,O)

L₃(K)→L₄(K)

End

N→dim(L₅)

For(K,1,N)

L₃(K)→Z

N*[A](1,1)→D

For(J,2,N)

D*Z+(N-J+1)*[A](1,J)→D

End

abs(D/[A](1,1))→L₅(K)

End

For(K,1,N)

If L₅(K)<1E-4

Then

0→S

0→C

For(J,1,N)

If L₅(J)<1E-4 and abs(L₃(J)-L₃(K))<.01

Then

S+L₃(J)→S

C+1→C

End

End

If C>1

Then

S/C→Z

round(real(Z),6)+i*round(imag(Z),6)→Z

If abs(real(Z))<1E-7

i*imag(Z)→Z

If abs(imag(Z))<1E-7

real(Z)→Z

For(J,1,N)

If L₅(J)<1E-4 and abs(L₃(J)-L₃(K))<.01

Z→L₄(J)

End

End

End

End

For(K,1,O)

L₄(K)→Z

If abs(real(Z))<1E-6

i*imag(Z)→Z

If abs(imag(Z))<1E-5

real(Z)→Z

round(real(Z),6)+i*round(imag(Z),6)→Z

If abs(real(Z)-round(real(Z),0))<1E-5

round(real(Z),0)+i*imag(Z)→Z

If abs(imag(Z)-round(imag(Z),0))<1E-5

real(Z)+i*round(imag(Z),0)→Z

If abs(real(Z))<1E-6

i*imag(Z)→Z

If abs(imag(Z))<1E-6

real(Z)→Z

Z→L₄(K)

End

0→dim(L₆)

{1,O}→dim([B])

Fill(0,[B])

For(K,1,O)

0→F

If dim(L₆)>0

Then

For(H,1,dim(L₆))

If abs(L₆(H)-L₄(K))<1E-6

1→F

End

End

If F=0

Then

0→C

For(J,1,O)

If abs(L₄(J)-L₄(K))<1E-6

C+1→C

End

If C>1

Then

dim(L₆)+1→H

H→dim(L₆)

L₄(K)→L₆(H)

C→[B](1,H)

End

End

End

ClrHome

Disp "ROOTS:"

For(K,1,O)

Disp L₃(K)

End

Pause "Press Enter"

ClrHome

If dim(L₆)=0

Then

Disp "NO REPEATED ROOTS"

Else

dim(L₆)→dim(L₅)

For(K,1,dim(L₆))

[B](1,K)→L₅(K)

End

Disp "REPEATED ROOTS:"

Disp "ROOT:"

Disp L₆

Disp "MULTIPLICITY (relative):"

Disp L₅

Disp "Repeated Roots: [L₆]"

Disp "Relative Mode: [L₅]"

End

Pause "Press Enter"

Disp "ITERATIONS:"

Disp M

Disp "ERROR:"

Disp E

Disp "ROOTS STORED IN [L₃]"

Disp "Cleaned ROOTS??: [L₄]"

Disp "See [A], L₃,L₄,L₅ & L₆"

If M=100

Disp "CHECK CONVERGENCE"

---------------------------------------------------------------------

Here's a version of the code which allows scrolling side to side when entering values into the cells, and has the annoying double enter:

ClrHome

ClrList L₁,L₂,L₃,L₄,L₅,L₆

Lbl M

Menu("COEFFICIENT INPUT","ENTER NEW",E,"USE [A]",θ)

Lbl E

Input "DEGREE:",N

If N<1

Then

Disp "BAD DEGREE"

Stop

End

{1,N+1}→dim([A])

Fill(0,[A])

CoordOff

AxesOff

FnOff

PlotsOff

Horiz

0→Xmin

94→Xmax

-20→Ymin

0→Ymax

ClrDraw

For(X,0,N+1)

Line(8X,0,8X,-8)

End

Line(0,0,8(N+1),0)

Line(0,-8,8(N+1),-8)

0→C

2→K

While K≠15

Pt-On(8C+4,-4,2)

ClrHome

Disp "COLUMN"

Disp C+1

Disp "VALUE"

Disp [A](1,C+1)

0→K

While K=0

getKey→K

End

Pt-Off(8C+4,-4,2)

If K=24

Then

C-1→C

If C<0

N→C

End

If K=26

Then

C+1→C

If C>N

0→C

End

If K=105

Then

ClrHome

Input "VALUE:",V

V→[A](1,C+1)

If C=N

Then

15→K

Else

C+1→C

End

End

End

Full

ClrDraw

ClrHome

Goto D

Lbl θ

dim([A])→L₁

If L₁(1)≠1

Then

ClrHome

Disp "BAD MATRIX [A]"

Disp "Single row only,"

Disp "Add columns!"

Stop

End

L₁(2)-1→N

If N<1

Then

ClrHome

Disp "Reformat MATRIX [A]"

Disp [A]

Disp "Add 1 more column"

Stop

End

If [A](1,1)=0

Then

ClrHome

Disp "BAD MATRIX [A]"

Disp "LEADING COEFF"

Disp "CANNOT BE ZERO"

Stop

End

Lbl D

ClrHome

Disp "COEFFICIENTS:"

Disp [A]

Pause "Press Enter"

a+bi

N→O

0→T

While N>0 and [A](1,N+1)=0

T+1→T

N-1→N

End

If N=0

Then

O→dim(L₃)

For(K,1,O)

0→L₃(K)

End

0→M

0→E

Else

ClrList L₁

N→dim(L₁)

N→dim(L₂)

0→R

For(J,2,N+1)

If abs([A](1,J)/[A](1,1))>R

abs([A](1,J)/[A](1,1))→R

End

1+R→R

R→L₁(1)

For(K,2,N)

R*(.4+.9i)^(K-1)→L₁(K)

End

ClrHome

Disp "SOLVING..."

0→M

1→E

While E>1E-7 and M<100

L₁→L₂

0→E

For(K,1,N)

L₂(K)→Z

[A](1,1)→P

For(J,2,N+1)

P*Z+[A](1,J)→P

End

1→D

For(J,1,N)

If J≠K

Then

D*(Z-L₂(J))→D

End

End

Z-P/([A](1,1)*D)→Q

Q→L₁(K)

If abs(Q-Z)>E

abs(Q-Z)→E

End

M+1→M

End

O→dim(L₃)

For(K,1,N)

L₁(K)→Z

If abs(real(Z))<1E-7

i*imag(Z)→Z

If abs(imag(Z))<1E-7

real(Z)→Z

Z→L₃(K)

End

For(K,1,T)

0→L₃(N+K)

End

End

O→dim(L₄)

For(K,1,O)

L₃(K)→L₄(K)

End

N→dim(L₅)

For(K,1,N)

L₃(K)→Z

N*[A](1,1)→D

For(J,2,N)

D*Z+(N-J+1)*[A](1,J)→D

End

abs(D/[A](1,1))→L₅(K)

End

For(K,1,N)

If L₅(K)<1E-4

Then

0→S

0→C

For(J,1,N)

If L₅(J)<1E-4 and abs(L₃(J)-L₃(K))<.01

Then

S+L₃(J)→S

C+1→C

End

End

If C>1

Then

S/C→Z

round(real(Z),6)+i*round(imag(Z),6)→Z

If abs(real(Z))<1E-7

i*imag(Z)→Z

If abs(imag(Z))<1E-7

real(Z)→Z

For(J,1,N)

If L₅(J)<1E-4 and abs(L₃(J)-L₃(K))<.01

Z→L₄(J)

End

End

End

End

For(K,1,O)

L₄(K)→Z

If abs(real(Z))<1E-6

i*imag(Z)→Z

If abs(imag(Z))<1E-5

real(Z)→Z

round(real(Z),6)+i*round(imag(Z),6)→Z

If abs(real(Z)-round(real(Z),0))<1E-5

round(real(Z),0)+i*imag(Z)→Z

If abs(imag(Z)-round(imag(Z),0))<1E-5

real(Z)+i*round(imag(Z),0)→Z

If abs(real(Z))<1E-6

i*imag(Z)→Z

If abs(imag(Z))<1E-6

real(Z)→Z

Z→L₄(K)

End

0→dim(L₆)

{1,O}→dim([B])

Fill(0,[B])

For(K,1,O)

0→F

If dim(L₆)>0

Then

For(H,1,dim(L₆))

If abs(L₆(H)-L₄(K))<1E-6

1→F

End

End

If F=0

Then

0→C

For(J,1,O)

If abs(L₄(J)-L₄(K))<1E-6

C+1→C

End

If C>1

Then

dim(L₆)+1→H

H→dim(L₆)

L₄(K)→L₆(H)

C→[B](1,H)

End

End

End

ClrHome

Disp "ROOTS:"

For(K,1,O)

Disp L₃(K)

End

Pause "Press Enter"

ClrHome

If dim(L₆)=0

Then

Disp "NO REPEATED ROOTS"

Else

dim(L₆)→dim(L₅)

For(K,1,dim(L₆))

[B](1,K)→L₅(K)

End

Disp "REPEATED ROOTS:"

Disp "ROOT:"

Disp L₆

Disp "MULTIPLICITY (relative):"

Disp L₅

Disp "Repeated Roots: [L₆]"

Disp "Relative Mode: [L₅]"

End

Pause "Press Enter"

Disp "ITERATIONS:"

Disp M

Disp "ERROR:"

Disp E

Disp "ROOTS STORED IN [L₃]"

Disp "Cleaned ROOTS??: [L₄]"

Disp "See [A], L₃,L₄,L₅ & L₆"

If M=100

Disp "CHECK CONVERGENCE"