New modifications
Farid Belahcene [Fri, 1 Sep 2006 09:59:43 +0000 (09:59 +0000)]
scilab_doc/toolbox_guide/toolbox_example/macros/foo1.sci

index 60743b4..5268642 100644 (file)
@@ -1,18 +1,18 @@
 function [X]=foo1(A)
-// This function returns the positive components fo A diagonal
-
-// Check the type and the size of A
-if  type(A)<>1 then
-    error("type of input argument must be a double");
-end
-if  size(A,1)<>size(A,2) then
-    error("input argument must be square matrix");
-end
-//extraction of the positive components
-X=[];
-for i=1:size(A,1)
-  if  A(i,i)>0 then
-    X($+1)=A(i,i);
-  end
-end
-endfunction
+        // This function returns the positive components of the A diagonal
+        
+        // Check the type and the size of A
+        if  type(A)<>1 then
+                error("type of input argument must be a double");
+        end
+        if  size(A,1)<>size(A,2) then
+                error("input argument must be a square matrix");
+        end
+        //Extraction of the positive components
+        X=[];
+        for i=1:size(A,1)
+                if A(i,i)>0 then
+                        X($+1)=A(i,i);
+                end
+        end
+endfunction
\ No newline at end of file