powered by
PolarDecomp(A)
A = matrix(runif(4, -1, 1), ncol=2) PD = PolarDecomp(A) E = svd(A) ### W S V E$u ###t(E$v) %*% diag(E$d)%*% (E$u) P = E$vU = E$u U
Run the code above in your browser using DataLab