imagnan.m
author A.M. Thurnherr <athurnherr@yahoo.com>
Wed, 17 Jan 2018 12:19:54 -0500
changeset 20 61b92f8fb463
parent 2 ec6b10ba8a34
permissions -rw-r--r--
Version IX_13
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     1
%======================================================================
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     2
%                    I M A G N A N . M 
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     3
%                    doc: Fri Jan  6 11:31:23 2012
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     4
%                    dlm: Fri Jan  6 11:33:24 2012
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     5
%                    (c) 2012 A.M. Thurnherr
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     6
%                    uE-Info: 10 48 NIL 0 0 72 0 2 8 NIL ofnI
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     7
%======================================================================
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     8
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     9
% HISTORY:
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    10
%   Jan 6, 2012: - created for version IX_8gamma
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    11
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    12
function I = imagnan(C)
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    13
	I = imag(C);
ec6b10ba8a34 Version IX_8
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    14
	I(find(isnan(real(C)))) = nan;