function ExportResultsCSV(sol,name)
l=length(sol(:,1,1));
Y=length(sol(1,:,1));
y=linspace(0,1,Y);
u1 = sol(l,:,1);
u2 = sol(l,:,2);
u3 = sol(l,:,3);
u4 = sol(l,:,4);
u5 = sol(l,:,5);
u6 = sol(l,:,6);
u7 = sol(l,:,7);
u8 = sol(l,:,8);
u9 = sol(l,:,9);
u10 = sol(l,:,10);
u11 = sol(l,:,11);
u12 = sol(l,:,12);
u13 = sol(l,:,13);
u14 = sol(l,:,14);
exportMatrix=transpose([y;u1;u2;u3;u4;u5;u6;u7;u8;u9;u10;u11;u12;u13;u14]);
T=array2table(exportMatrix);
T.Properties.VariableNames(1:15)={'y','ux','uy','uz','vx','vy','vz','wx','wy','wz','ex','ey','ez','alphaT','eT'};
writetable(T,name);
csvwrite(name,exportMatrix);
end

