diff options
Diffstat (limited to '3640/DEPENDENCIES')
| -rw-r--r-- | 3640/DEPENDENCIES/complexstring.sci | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/3640/DEPENDENCIES/complexstring.sci b/3640/DEPENDENCIES/complexstring.sci new file mode 100644 index 000000000..c4b473efb --- /dev/null +++ b/3640/DEPENDENCIES/complexstring.sci @@ -0,0 +1,11 @@ +function s=complexstring(a)
+
+
+ if imag(a)>=0 then
+ s=sprintf('%g+%gi',real(a),imag(a))
+ else
+ s=sprintf('%g%gi',real(a),imag(a))
+
+ end
+ funcprot(0)
+endfunction
|