Split up files

2023-03-19 13:45:34 +04:00
parent 55c80094b8
commit 8958bf5204
8 changed files with 153 additions and 121 deletions
--- a/Matlab/iscomplex.m
+++ b/Matlab/iscomplex.m
@@ -1,11 +1,3 @@
 function S = iscomplex(A)
-[n,m] = size(A);
-S = zeros(n,m);
-
-for ii = 1:n
-    for jj = 1:m
-        S(ii,jj) = A(ii,jj)*double(isreal(A(ii,jj)));
-    end
-end
-
+    S = A .* double(imag(A) == 0);
 end