author | A.M. Thurnherr <athurnherr@yahoo.com> |
Thu, 18 Jul 2013 04:16:14 +0000 | |
changeset 6 | 875d0c0f6ab2 |
parent 2 | ec6b10ba8a34 |
permissions | -rw-r--r-- |
%====================================================================== % I M A G N A N . M % doc: Fri Jan 6 11:31:23 2012 % dlm: Fri Jan 6 11:33:24 2012 % (c) 2012 A.M. Thurnherr % uE-Info: 10 48 NIL 0 0 72 0 2 8 NIL ofnI %====================================================================== % HISTORY: % Jan 6, 2012: - created for version IX_8gamma function I = imagnan(C) I = imag(C); I(find(isnan(real(C)))) = nan;