**TI92P*main\g_Rjacobi,Z() Prgm ClrIO Disp "Gesamtschrittverfahren" Disp "von Jacobi" Disp "","","" Disp "Autor: Marc Niggemann" Disp "Homepage: www.m-niggemann.com" Disp "Version: 1.01 Dez 2002" Pause ClrIO Local g,a,i,j Input "Anzahl der Gleichungen?",g newMat(g,g)a ClrIO Disp "eingabe der a Matrix" For i,1,g,1 For j,1,g,1 Disp a Request "a"&string(i)&string(j),#("a"&string(i)&string(j)) expr(#("a"&string(i)&string(j)))a[i,j] DelVar #("a"&string(i)&string(j)) ClrIO EndFor EndFor ClrIO Disp a Pause Local b,h newMat(g,1)b ClrIO Disp "b Vektor" For i,1,g,1 Disp b Input h hb[i,1] ClrIO EndFor Disp b Pause Local x,xj newMat(1,g)x newMat(1,g)xj ClrIO Disp "Startvektor" For i,1,g,1 Disp x Input h hx[1,i] ClrIO EndFor Disp x Pause -----teilung Local k,l 0l For i,1,g,1 l+1l zaeler a[i,l]k For j,1,g,1 a[i,j]/ka[i,j] EndFor b[i,1]/kb[i,1] EndFor ClrIO Disp "alle akk=1",a Pause Disp "neuer b Vektor",b Pause -------die iteration Local hil,z,s,it,itt Input "anzahl der Iterationen",it Disp "x0",x For itt,1,it,1 0hil For z,1,g,1 For s,1,g,1 If zs Then hil+x[1,s]*a[z,s]hil EndIf EndFor b[z,1]-hilxj[1,z] 0hil EndFor Disp "x"&string(itt) xj*1.xj Disp xj xjx Pause EndFor EndPrgm4w