[Toon-members] TooN/benchmark generate_solvers.m

[Edward Rosten]

CVSROOT:        /cvsroot/toon
Module name:    TooN
Changes by:     Edward Rosten <edrosten>        09/05/22 09:10:25

Modified files:
        benchmark      : generate_solvers.m 

Log message:
        Generaton of symmetric solvers.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/TooN/benchmark/generate_solvers.m?cvsroot=toon&r1=1.1&r2=1.2

Patches:
Index: generate_solvers.m
===================================================================
RCS file: /cvsroot/toon/TooN/benchmark/generate_solvers.m,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- generate_solvers.m  2 Apr 2009 13:36:24 -0000       1.1
+++ generate_solvers.m  22 May 2009 09:10:21 -0000      1.2
@@ -1,17 +1,25 @@
 clear all 
 out={};
+symmetric=1
 
-for S=2:5
+for S=5:5
        T = num2str(S);
 
        m=sym(zeros(S,S));
        for r=1:S
                for c=1:S
+                       if r >= c | symmetric == 0
                        v = [ 'A' num2str(r-1) num2str(c-1) ];
+                       else
+                               v = [ 'A' num2str(c-1) num2str(r-1) ];
+                       end
                        m(r, c) = sym(v);
                end
        end
 
+       m
+       pause
+
        inverse =simplify(inv(m) * det(m));
        idet = ccode(det(m));