0
$\begingroup$

I have a really big nested table. I can copy my code here if you wish, that is not a problem, but it will be a lot of it and I am not sure if it makes sense. the end expression is this

final = Table[{j, 
    Table[{lengthall[[i]], optimumfall[[j, i]], narisane[[j]]}, {i, 1,
       n - 4 + m, 1}]}, {j, 1, cellnumber, 1}]; 

for cellnumber=25 and n-4+m=36. So it's probably not the smallest table you have ever seen.

However, I have to present this table to people that have no idea what Mathematica is or does. So it has to look good (visually - something like Latex or Excel does) and I have no idea how to do it. I tried with Grid, but I am not really satisfied. Check here (link) http://www4.slikomat.com/13/0720/oix-Captur.png . So, are there any other possibilities? Maybe some strange Export protocol? Or yeah, anything should work. I have to warn you though, in the table final there are not only numbers (as seen on the attached printscreen), but also some plots.

$\endgroup$
12
  • 1
    $\begingroup$ How does final//MatrixForm look? Or final//TableForm? $\endgroup$
    – N.J.Evans
    Jul 20, 2015 at 15:10
  • 3
    $\begingroup$ This kind of problems are usually thought the other way around: you first design what you want to see and THEN you try to do it :) $\endgroup$ Jul 20, 2015 at 15:22
  • 1
    $\begingroup$ You already asked 15 questions but voted only once. Please try to vote more, see below for some advice $\endgroup$ Jul 20, 2015 at 15:30
  • 1
    $\begingroup$ Export to Excel? You say you like it formatting. $\endgroup$
    – m_goldberg
    Jul 20, 2015 at 15:43
  • 1
    $\begingroup$ I don't see any nesting in your table. It looks like a simple table of graphs with an ID and what appears to be an average value. Are you seriously planning to show each of these graphs to your audience without putting them to sleep? $\endgroup$
    – DavidC
    Jul 20, 2015 at 16:42

1 Answer 1

2
$\begingroup$

Try something like this. Also study this to learn how to create a minimal working example:

mwe = Table[{j, Table[RandomInteger[10, 3], {i, 1, 36, 1}]}, {j, 1, 25}];
Row[Column[{#[[1]], MatrixForm@#[[2]]} , Center ] & /@ mwe]

showing here a smaller version:

enter image description here

$\endgroup$
1
  • $\begingroup$ This is actually a lot better than what the programme does by default. This might actually work. And I thought about @David Carraher comment on the OP - he is right. So I think I can mark that as answered, I am pretty satisfied with the looks of that. $\endgroup$
    – skrat
    Jul 20, 2015 at 18:20

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.