index 25cef5b..7b3346d 100644 (file)
@@ -12,23 +12,14 @@ function demo_condestsp()
n = 100;
K1 = zeros(nb_tests,3);

-    disp(_("A small test for the condestsp"+...
-    " function: condestsp gives an"+...
-    " estimate of the condition number K1"+...
-    " in 1-norm of a real sparse matrix A:"));
-    disp("     K1 = ||A||_1 * ||A^(-1)||_1  ");
-    disp(_("     without explicitly computing the"+...
-    " inverse of A. condestsp uses a"+...
-    " factorization given by umf_lufact"+...
-    " but if you have already computed"+...
-    " this one it is recommended to give"+...
-    " the pointer to the factorization."));
-    disp(_("The test consists in forming small"+...
-    " sparse matrices (so as to compute"+...
-    " K1 exactly with norm(inv(full(A)),1))"+...
-    " whose values are chosen from the"+...
-    " normal distribution."));
-    halt(_("\nPress Return to continue...\n"));
+    msg = _("A small test for the condestsp function: condestsp gives an estimate of\n the condition number K1 in 1-norm of a real sparse matrix A:")
+    mprintf(msg)
+    mprintf("     K1 = ||A||_1 * ||A^(-1)||_1  ")
+    msg = _("     without explicitly computing the inverse of A. condestsp uses a factorization given by\n umf_lufact but if you have already computed this one it is recommended to give the pointer to the factorization.")
+    mprintf(msg)
+    msg = _("The test consists in forming small sparse matrices (so as to compute K1 exactly with\nnorm(inv(full(A)),1)) whose values are chosen from the normal distribution.")
+    mprintf(msg)
+    halt(_("\nPress Return to continue...\n"))

for k = 1:nb_tests
m = grand(1,1,"uin",1000,2000);  // nnz