**TI92P*maths8Rnonlin¡¥ZG(mat,varlst,valst,tol) Prgm ©nonlin(matrix,variable list,value list,tolerance) ©mat=list of non linear equations ©vars=list of variables used in 'mat' ©valst=list of initial values to evaluate 'varlst' with Local mat,varlst,valst,siz,k1,k2,jj,jj2,xx dim(mat)siz If sizdim(varlst) Return "# of differential equations must match # of variables." jacobian(mat,varlst)jj ClrIO Disp "jacobian=",jj Pause listmat(valst,1)xx newMat(siz,1)ff newMat(siz,siz)jj2 tol+1eps For cnt,1,20 ClrIO Disp "X"&string(cnt)&"=",xx For v,1,siz evalpoly(varlst,valst,mat[v])ff[v,1] For w,1,siz evalpoly(varlst,valst,jj[v,w])jj2[v,w] EndFor EndFor xx-jj2^(­1)*ffxx2 max(abs(xx2-xx))eps xx2xx For z,1,siz xx[z,1]valst[z] EndFor Disp "F"&string(cnt)&"=",ff If eps[1,1]