Export complex number to excel or txt file

Question

I'm doing some calculations on complex numbers in Mathematica. I can use Export to generate a file (*.CSV or *.dat, or anything else) of complex numbers. If I want to use excel, origin or Matlab to process the data, they cann't be treated properly.

The easiest way to show these problem is like this:

   Export["dtList.dat", dtList = E^(-I*#) & /@ Range[10] // N]

When the file,dtList.dat, is imported to Matlab, the data are treated as string, not complex numbers, (Look at the figure attached).

I know this problem can be addressed if I export the Real part and Imaginary part of the complex numbers seperately, and combine them together in Matlab after import, but this is inconvenient and not elegant.

Is there any clever solution? Thank you.

Answer 1

For Matlab the solution is very simple

data = RandomComplex[1 + I, 100];

Export["test.mat", data]

For Excel the situation could be as easy but when you try it

Export["test.xls", data]

you will see that Excel does not recognize something like 1.0+2.0*I as complex number. It expects something like 1.0+2.0i instead. Therefore, one quick solution is

Export["test.xls", ToString[Re[#]]<>"+"<>ToString[Im[#]]<>"i"& /@ data]

Update:

I cannot test it in Matlab, but regarding your comment

No, it doesn't work, because the number is in the form of 0.540302 + 0.841471 I, which IS interpreted as a complex number in Mathematica, but NOT in Matlab.

it seems the normal Export will not work. Honestly, I find this very strange. We are now in version 9 of Mathematica and one could believe that someone has tried to export complex numbers to Matlab until now :-(

You could try the same approach as I gave for Excel. Or maybe you want to use MATLink to transfer your complex lists. If it is not working there, you have at least someone who you can ask for a quick fix.

Answer 2

I don't have MatLab, so you'll have to verify for me if this works.

 writeComplex[file_String, data_List] := 
     Module[{str = OpenWrite[file, FormatType -> OutputForm]},
      Scan[Write[str, #] &, data];
      Close[str];
      ]

Usage

writeComplex["path/to/your/file/filename.dat", dtList]

UPDATE

I looked up the format for complex numbers in Matlab and it seems to be of the form x + yi. Given this knowledge only a small modification is needed to the above code:

writeComplex2[file_String, data_List] := 
 Module[{str = OpenWrite[file, FormatType -> OutputForm]}, 
  Scan[Write[str, #] &, data /. {Complex[x_, y_] :> ToString[x] <> "+" <> ToString[y] <> "i"}]; 
  Close[str];
]