powered by
gaussSeidel(A, b, x = NULL, iter = 500, tol = 1e-07, w = 1, witr = NULL)
A<-matrix(c(4,-1,1, -1,4,-2,1,-2,4), nrow=3,ncol=3, byrow = TRUE) b<-matrix(c(12,-1, 5), nrow=3,ncol=1,byrow=TRUE) Z<-optR(A, b, method="gaussseidel", iter=500, tol=1e-7)
Run the code above in your browser using DataLab