Add images + split examples 63/9063/2
Sylvestre Ledru [Wed, 19 Sep 2012 06:40:11 +0000 (08:40 +0200)]
Change-Id: I7b8706d7a40f87aa1ba5eb282b44f046f451124d

scilab/modules/umfpack/help/en_US/PlotSparse.xml
scilab/modules/umfpack/help/en_US/taucs_chget.xml
scilab/modules/umfpack/help/en_US/umf_luget.xml

index a56b8a6..32dba01 100644 (file)
@@ -24,7 +24,7 @@
                         where color may be a number referring the color you want to use (in the current colormap). 
                         If you use the std colormap then color may be one of the following letters :
                     </para>
-                    <programlisting role=""><![CDATA[ 
+                    <programlisting role="no-scilab-exec"><![CDATA[ 
 k  for black       b  for blue
 r  for red         g  for green
 c  for cyan        m  for magenta
@@ -34,7 +34,7 @@ G  a dark green
                     <para>
                         mark must be one of the following :
                     </para>
-                    <programlisting role=""><![CDATA[ 
+                    <programlisting role="no-scilab-exec"><![CDATA[ 
 .  point           +  plus 
 x  cross           *  circled plus 
 D  filled diamond  d  diamond
@@ -63,6 +63,11 @@ o  circle
 PlotSparse(A,"y+")
 xtitle(ref + "." + mtype + " : " + description)
  ]]></programlisting>
+        <scilab:image>
+            [A,description,ref,mtype] = ReadHBSparse(SCI+"/modules/umfpack/examples/arc130.rua");
+            PlotSparse(A,"y+")
+            xtitle(ref + "." + mtype + " : " + description)
+        </scilab:image>
     </refsection>
     <refsection role="see also">
         <title>See Also</title>
index 01dc37f..22994ef 100644 (file)
@@ -52,24 +52,26 @@ A(p,p) = Ct' * Ct
     </refsection>
     <refsection>
         <title>Examples</title>
-        <programlisting role="example"><![CDATA[ 
-// Example #1 : a small linear test system 
+        <programlisting role="example"><![CDATA[
+// Example #1 : a small linear test system
 A = sparse( [ 2 -1  0  0  0;
-             -1  2 -1  0  0; 
-              0 -1  2 -1  0; 
-              0  0 -1  2 -1; 
+             -1  2 -1  0  0;
+              0 -1  2 -1  0;
+              0  0 -1  2 -1;
               0  0  0 -1  2] );
 Cp = taucs_chfact(A);
 [Ct, p] = taucs_chget(Cp);
 full(A(p,p) - Ct'*Ct)  // this must be near the null matrix
 taucs_chdel(Cp)
-
+ ]]></programlisting>
+        
+        <programlisting role="example"><![CDATA[
 // Example #2 a real example
 stacksize(3000000)  // the last PlotSparse need memory
 // first load a sparse matrix
 [A] = ReadHBSparse(SCI+"/modules/umfpack/examples/bcsstk24.rsa");
 // compute the factorisation
-Cptr = taucs_chfact(A); 
+Cptr = taucs_chfact(A);
 // retrieve the factor at scilab level
 [Ct, p] = taucs_chget(Cptr);
 // plot the initial matrix
@@ -89,6 +91,12 @@ cnz_exact = nnz(Ct)
 // do not forget to clear memory
 taucs_chdel(Cptr)
  ]]></programlisting>
+        <scilab:image>
+            [A] = ReadHBSparse(SCI+"/modules/umfpack/examples/bcsstk24.rsa");
+            Cptr = taucs_chfact(A);
+            [Ct, p] = taucs_chget(Cptr);
+            PlotSparse(A) ; xtitle("Initial matrix A (bcsstk24.rsa)")
+        </scilab:image>
     </refsection>
     <refsection role="see also">
         <title>See Also</title>
index 887aae3..af8820b 100644 (file)
@@ -73,17 +73,21 @@ for i=1:5, B(i,:) = B(i,:)/R(i); end // apply the row scaling
 B(p,q) - L*U  // must be a (quasi) nul matrix
 
 umf_ludel(Lup) // clear memory
+ ]]></programlisting>
+        <programlisting role="example"><![CDATA[
 
 // the same with a complex matrix
 A = sparse( [ 2+%i  3+2*%i  0      0    0;
-              3-%i  0       4+%i   0    6-3*%i; 
-              0    -1+%i   -3+6*%i 2-%i 0; 
-              0     0       1-5*%i 0    0; 
+              3-%i  0       4+%i   0    6-3*%i;
+              0    -1+%i   -3+6*%i 2-%i 0;
+              0     0       1-5*%i 0    0;
               0     4       2-%i   0    1] );
 Lup = umf_lufact(A);
 [L,U,p,q,R] = umf_luget(Lup);
 B = A;
-for i=1:5, B(i,:) = B(i,:)/R(i); end // apply the row scaling
+for i=1:5
+  B(i,:) = B(i,:)/R(i)
+end // apply the row scaling
 B(p,q) - L*U  // must be a (quasi) nul matrix
 
 umf_ludel(Lup) // clear memory