search for: matrix________

...-------------------------------------------- Trimmed geom. mean (2 extremes eliminated): 0.924125732935107 II. Matrix functions -------------------- FFT over 900,000 random values______________________ (sec): 1.53666666666667 Eigenvalues of a 220x220 random matrix______________ (sec): 0.466666666666669 Determinant of a 750x750 random matrix______________ (sec): 1.65 Cholesky decomposition of a 1000x1000 matrix________ (sec): 1.30333333333334 Inverse of a 500x500 random matrix__________________ (sec): 1.76000000000000 --------------------------...

...a 3000x3000 matrix (c = a \ b')___ (sec): 14.52 -------------------------------------------- Trimmed geom. mean (2 extremes eliminated): 4.51008013606039 II. Matrix functions -------------------- FFT over 2,400,000 random values____________________ (sec): 1.203 Eigenvalues of a 640x640 random matrix______________ (sec): 1.60599999999999 Determinant of a 2500x2500 random matrix____________ (sec): 7.64266666666667 Cholesky decomposition of a 3000x3000 matrix________ (sec): 8.05900000000001 Inverse of a 1600x1600 random matrix________________ (sec): 8.64166666666667 --------------------------------------...

...a 3000x3000 matrix (c = a \ b')___ (sec): 14.52 -------------------------------------------- Trimmed geom. mean (2 extremes eliminated): 4.51008013606039 II. Matrix functions -------------------- FFT over 2,400,000 random values____________________ (sec): 1.203 Eigenvalues of a 640x640 random matrix______________ (sec): 1.60599999999999 Determinant of a 2500x2500 random matrix____________ (sec): 7.64266666666667 Cholesky decomposition of a 3000x3000 matrix________ (sec): 8.05900000000001 Inverse of a 1600x1600 random matrix________________ (sec): 8.64166666666667 --------------------------------------...

...rix.class(a) timing <- system.time({ b <- eigen.Matrix(a, vectors =3D F)$Value # Rem: b <- eigen.default(a, vectors =3D F)$Value is slower! })[3] cumulate <- cumulate + timing } timing <- cumulate/runs times[2, 2] <- timing cat(c("Eigenvalues of a 220x220 random matrix______________ (sec): ", = timing, "\n")) remove("a", "b") flush.console() # (3) cumulate <- 0; b <- 0 for (i in 1:runs) { a <- rnorm(750*750); dim(a) <- c(750, 750) Matrix.class(a) timing <- system.time({ b <- det.Matrix(a, logarithm=3DF)...