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

7 lines
192 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
exportPrec[path_, data1_, data2_, prec1_, prec2_] :=
Export[
path,
Transpose[{Map[ToString[NumberForm[#, prec2]] &, data2], Map[ToString[NumberForm[#, prec1]] &, data1]}],
"Table"
]