Added old files

2023-03-14 22:05:56 +04:00
parent ab9b93500c
commit 55c80094b8
8 changed files with 737 additions and 0 deletions
--- a/Matlab/iscomplex.m
+++ b/Matlab/iscomplex.m
@@ -0,0 +1,11 @@
+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
+
+end