RosettaCodeData/Task/Write-float-arrays-to-a-text-file/Mathematica/write-float-arrays-to-a-text-file.math

exportPrec[path_, data1_, data2_, prec1_, prec2_]:=Export[path,Transpose[{Map[ToString[NumberForm[#, prec2]] &, data2],Map[ToString[NumberForm[#, prec1]] &, data1]}], "Table"]