diff options
Diffstat (limited to '2.3-1/macros/ToolInitialization/doublecomplex.sci')
| -rw-r--r-- | 2.3-1/macros/ToolInitialization/doublecomplex.sci | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/2.3-1/macros/ToolInitialization/doublecomplex.sci b/2.3-1/macros/ToolInitialization/doublecomplex.sci index 8b36bf65..5fd3784a 100644 --- a/2.3-1/macros/ToolInitialization/doublecomplex.sci +++ b/2.3-1/macros/ToolInitialization/doublecomplex.sci @@ -21,6 +21,9 @@ function y = doublecomplex(x) // ------------------------------
SCI2CNInArgCheck(argn(2),1,1);
-y = x+0*%i;
+if(x==0)
+y = 0*%i;
+else
+y=x+0*%i;
-endfunction
\ No newline at end of file +endfunction
|