**TI92P*mainProgram file 02/08/03, 22:51Rg_s1Zs() Prgm ClrIO Disp "Einzelschrittverfahren" Disp "von Gau und Seidel" Disp "","","" Disp "Autor: Marc Niggemann" Disp "Homepage: www.m-niggemann.com" Disp "Version: 1.22 Dez 2002" Pause ClrIO Local g,a,i,j,ah 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 Input "a"&string(i)&string(j)&"=?",ah aha[i,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 newMat(1,g)x 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]-hilx[1,z] 0hil EndFor Disp "x"&string(itt) x*1.x Disp x Pause EndFor EndPrgmzW