Antoine ELIAS [Mon, 27 Jul 2015 15:46:54 +0000 (17:46 +0200)]
Change-Id: Icf536624c1b0d4bae412599f4bd642a65097f8d6

index 43a10e5..7402509 100644 (file)
// sparse function
//from dense form
s=[ 1,0,0,0,0,0,0;
-    0,1,0,0,0,0,0;
-    0,0,1,0,0,0,0;
-    0,0,1,1,0,0,0;
-    0,0,1,1,1,0,0;
-    0,0,1,1,0,1,0;
-    0,0,1,1,0,1,1];
+0,1,0,0,0,0,0;
+0,0,1,0,0,0,0;
+0,0,1,1,0,0,0;
+0,0,1,1,1,0,0;
+0,0,1,1,0,1,0;
+0,0,1,1,0,1,1];
sp=sparse(s);
assert_checkequal(size(s), size(sp));
assert_checkequal(full(sp), s);
@@ -57,7 +57,7 @@ A = [A 0];
A = [A 0];
A = [A 0];
assert_checkequal(full(A), [1 0 0 0]);
-assert_checkequal(size(A, 'c'), 4);
+assert_checkequal(size(A, "c"), 4);
//extraction
assert_checkequal(full(sp(:)), s(:));
assert_checkequal(size(sp(:)), size(s(:)));
@@ -113,11 +113,11 @@ assert_checkequal(full(v), a);
//  -- for complex matrix
sp=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],(1:9)+%i*(21:29),[6 6]);
a=[0,0,3+%i*23,0,2+%i*22,1+%i*21
-   5+%i*25,0,0,4+%i*24,0,0
-   0,0,0,0,0,0
-   0,0,7+%i*27,6+%i*26,0,0
-   8+%i*28,0,0,0,0,0
-   0,0,0,0,0,9+%i*29];
+5+%i*25,0,0,4+%i*24,0,0
+0,0,0,0,0,0
+0,0,7+%i*27,6+%i*26,0,0
+8+%i*28,0,0,0,0,0
+0,0,0,0,0,9+%i*29];
assert_checkequal(full(sp), a);
sp=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],(1:9)+%i*(21:29),[8 6]);
a(8,6)=0;