**TI92P*mainRmise_on¥ZÂ() Prgm ClrIO Local g,i,j,a Input "spaltengroese?",g newMat(g,g)a Disp a Pause For i,1,g,1 For j,1,g,1 Dialog Title "A Matrix" Request "a"&string(i)&string(j),#("a"&string(i)&string(j)) EndDlog expr(#("a"&string(i)&string(j)))a[i,j] DelVar #("a"&string(i)&string(j)) ©loescht die aij variablen ClrIO Disp a EndFor EndFor Local z,v newMat(g,1)z Disp z For i,1,g,1 Input v vz[i,1] ClrIO Disp z EndFor Local d,zz,u,q newMat(g,1)q Input "durchlaufe",d For i,1,d,1 a*zzz ClrIO Disp "z"&string(i) Disp zz Pause For u,1,g,1 zz[u,1]/(z[u,1])q[u,1] EndFor q*1.0000000001q ©gegen die brueche ClrIO Disp "q"&string(i) Disp q Pause zzz EndFor EndPrgmäåܵÒ