Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Manipulating Tables: Numbering the Tables' topicStudent Support Forum > General > "Manipulating Tables: Numbering the Tables"

Next Comment >Help | Reply To Topic
Author Comment/Response
abd_Proj
09/04/11 08:56am

orgtable =
TableForm[Flatten[Transpose[Table[{i,j, (-150*(Sin[((j - 0)*2*3.14)/ 180]^2)* (Sin[((i - 0)*2*3.14)/ 180]^2))+ 150}, {i,0, 270, 5}, {j,0, 270, 5}]], 1]];

If you run the above code I will get
i1,j1,value1
i2,j2,value2 and so on

Now I want some thing like this
1,i1,j1,value1
2,i2,j2,value2 and so on
3,i3,j3,value3 and so on

Basically first column is just an index/numbering.

To give you a clear idea let me explain
Well If I use the code below:

number=0;
orgtable =
TableForm[Flatten[Transpose[Table[{++number,i,j, (-150*(Sin[((j - 0)*2*3.14)/ 180]^2)* (Sin[((i - 0)*2*3.14)/ 180]^2))+ 150}, {i,0, 270, 5}, {j,0, 270, 5}]], 1]];

I wont get the desired output as the Transpose function will transpose even the "number" which is basically the indexing.I Do not want the Transpose function to work on the "++number"

So how do you index or number and get desired output like this
1,i1,j1,value1
2,i2,j2,value2 and so on...

Thanks&Regards

URL: ,

Subject (listing for 'Manipulating Tables: Numbering the Tables')
Author Date Posted
Manipulating Tables: Numbering the Tables abd_Proj 09/04/11 08:56am
Re: Manipulating Tables: Numbering the Tables yehuda 09/05/11 2:48pm
Next Comment >Help | Reply To Topic