powered by
opt.matrix.reorder(A, tol = 1e-16)
A<-matrix(c(0,-1,1, -1,2,-1,2,-1,0), nrow=3,ncol=3, byrow = TRUE) b<-matrix(c(0,0, 1), nrow=3,ncol=1,byrow=TRUE) Z<-optR(A, b, method="gauss")
Run the code above in your browser using DataLab