New answers tagged

0

The following adds an additional "+" sign before the "+/-" and reorders the additive terms according to MMA rules. Is this acceptable? t1 = {(-2*wr20)/(7*Sqrt[15]) + (10*Sqrt[3]*wr40)/ 77 - (50*wr60)/(11*Sqrt[39]), wr00 - (Sqrt[5]*wr20)/3}; t2 = {(2*wr20)/(7*Sqrt[15]) - (10*Sqrt[3]*wr40)/ 77 + (50*wr60)/(11*Sqrt[39]), wr00 - (...


2

<...> when the current context is dumped, all one may have is the printout of the table left of the original calculation, and if that takes 24 h to calculate, one would have the problem of translating a table into a vector whose origin is difficult to resurrect, in order to use it for further processing. That is the context I am most interested in. If ...


5

Clear["Global`*"] TableForm should only be used for display. Assign a name to the input to TableForm and take the column that you want from the input. SeedRandom[1234]; (mat = RandomReal[1, {9, 3}]) // TableForm For the second column mat[[All, 2]] {* {0.521964, 0.0116446, 0.479332, 0.984993, 0.884729, 0.91956, 0.587943, \ 0.696159, 0.632741} *} ...


4

Using sample data TableForm[RandomReal[{0, 1}, {5, 3}]] Select middle column, Copy & Paste. Add ; (optional), and evaluate, followed by a = Flatten@% This should set the middle column to a with the original precision.


0

You could take the column with arrayName[[3]] or arrayName[[;;,3]] (if it is column three; the ;; is Span and captures all of that dimension) and export it to a file with Export[pathAndName.xlsx,arrayname[[appropriate designation]] to open it in Excel and copy from there.


Top 50 recent answers are included