Hi Henrik,
I apologize to open this topic again but it suddenly stopped working for no reason at all.
Currently my code is:
final = Table[{Prepend[
Table[{j, force[[j, 3]], chordlength[[j]], force[[j, 4]],
profilelength[[i + 1]], optimumDensitySplitTop[[j, i]],
If[BeginCell < profilelength[[i + 1]] < EndCell,
StandardForm["Opening"], optimumDensitySplitBtm[[j, i]]],
norm[[j]]*
DensityTop[[j]][profilelength[[i]]*chordlength[[j]]/10^4],
If[BeginCell < profilelength[[i + 1]] < EndCell,
StandardForm["Opening"],
norm[[j]]*
DensityBtm[[j]][profilelength[[i]]*chordlength[[j]]/10^4]],
Abs[ptop[[j]][profilelength[[i + 1]]*chordlength[[j]]/10^4] -
pressure[[1, 2]]],
Abs[pbtm[[j]][profilelength[[i + 1]]*chordlength[[j]]/10^4] -
pressure[[1, 2]]]}, {i, 1, n - 10 + m,
1}], {"Cell number [N]", "Cell width [cm]", "Chord [cm]",
"Height factor", "Profile position [%]", "Ballooning Top [%]",
"Ballooning Btm [%]", "Force top[N/m]", "Force btm [N/m]",
"Presssure diff top [Pa]", "Presssure diff btm [Pa]"}]}, {j, 1,
Length[force[[All, 1]]], 1}];
And applying TableForm to that works really nicely, yet exporting with
Export["C:\\Users\\Mitja\\Documents\\nova\\2015\\results_\
constantForce.txt", ToString[TableForm@final]];
Doesn't work at all. The exported file is attached.
Attachments: