\start83\
\comment=[ c a l ]  TI calculator saved file      .
\name=MJACOBI
\file=C:\TEXAS\MJACOBI.TXT

ClrHome
Disp "MET. JACOBI","","(FIRST, EDIT","MATRXS [A], [D])","","ITERATIONS"
Prompt K
dim([A])\->\L\1\
L\1\(1)\->\N
DelVar L\1\

[A]\->\[B]

For(I,1,N)
*row(1/[B](I,I),[B],I)\->\[B]
0\->\[B](I,I)
End
{N,1}\->\dim([C])
For(I,1,N)
[B](I,N+1)\->\[C](I,1)
End

{N,N}\->\dim([B])
\(-)\1*[B]\->\[B]
{N,K+1}\->\dim([D])
Fill(0,[D])

For(I,2,K+1)
For(A,1,N)
For(B,1,N)
[B](A,B)*[D](B,I-1)+[D](A,I)\->\[D](A,I)
End
[D](A,I)+[C](A,1)\->\[D](A,I)
End
End

Disp "Output([D])
DelVar [B]
DelVar [C]
\stop83\