Exported Data Showing up in Several Excel Sheets, need only one

Posted 10 years ago
3413 Views
|
2 Replies
|
0 Total Likes
|
 Clear["Global'*"]; kresmod1 =   Table[nut = 46; khi = 25; ro2 = 3400; kmrs = 70; kisu = 1.2;    kmp = 1.0;   kccc1 = 40; k23 = 16; kvp = .04; kc = 21; nc = 5; km1 = 24; nm1 = 3;   km2 = 46; nm2 = 4; kv1 = 24; nv1 = 9; kv2 = 200; nv2 = 4; k32 = 18;    n32 = 9; a = .5;   odec = -(a c[t]) - (     kccc1 c[t] (1 - 1/((c[t]/kv1)^nv1 + 1)))/((f3[t]/kv2)^nv2 + 1) - (    kmrs c[t])/((fs[t]/km2)^nm2 + 1) + (khi nut)/((c[t]/kc)^nc + 1);  odefm = -(a fm[t]) + (kmrs c[t])/((fs[t]/km2)^nm2 + 1) -     kisu fm[t] - kmp fm[t] o2[t];  odefs = kisu fm[t] - a fs[t];  odemp = kmp fm[t] o2[t] - a mp[t];  odeo2 = -(kmp fm[t] o2[t]) - kres fs[t] o2[t] +     ro2/((o2[t]/245)^9 + 1);  odef2 = -(a f2[t]) - k23 f2[t] (1 - 1/((c[t]/k32)^n32 + 1)) + (    kccc1 c[t] (1 - 1/((c[t]/kv1)^nv1 + 1)))/((f3[t]/kv2)^nv2 + 1);  odef3 = -(a f3[t]) + k23 f2[t] (1 - 1/((c[t]/k32)^n32 + 1)) -     kvp f3[t];  odevp = kvp f3[t] - a vp[t];  vars = {c[t], f2[t], f3[t], fm[t], fs[t], mp[t], o2[t], vp[t]};  solution =    NDSolve[{Derivative[1][c][t] == odec,      Derivative[1][f2][t] == odef2, Derivative[1][f3][t] == odef3,      Derivative[1][fm][t] == odefm, Derivative[1][fs][t] == odefs,      Derivative[1][mp][t] == odemp, Derivative[1][o2][t] == odeo2,      Derivative[1][vp][t] == odevp, c[0] == 30, f2[0] == 100,      f3[0] == 100, fm[0] == 50, fs[0] == 50, mp[0] == 0, o2[0] == 100,      vp[0] == 100}, vars, {t, 0, 31}];  vars /. solution /. t -> 31, {kres, 0, 2, .25}]kresmod1 // TableFormExport["modfile.xls", kresmod1]SystemOpen["modfile.xls"]Having a small problem exporting the data generated by my code out to excel. It exports just fine, but the data is spread out over several sheets. I've been trying to figure out how to get either excel to consolidate them together or for mathematica to export it as a single sheet. Any suggestions?
2 Replies
Sort By:
Posted 10 years ago
 To create a single sheet excel file, you normally give Export a list of lists containing your data. That is, you give it a 2D list. If you give it a 3D list, that is a list of lists of lists, then it will have to make multiple sheets. What do you see when you run Dimensions on your data. Is it a 2D or a 3D list?kresmod1 // Dimensionskresmod1 is a 3D list of values. You can use Flatten to reduce the dimensions down to two.Flatten[kresmod1, 1]
Posted 10 years ago
 Awesome, thanks for the assist Sean.