Formatting table output

*To*: mathgroup at smc.vnet.net*Subject*: [mg66685] Formatting table output*From*: "masha" <mshunko at gmail.com>*Date*: Sat, 27 May 2006 03:51:20 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Hello, I am doing sensitivity analysis of a function called expprofit with repsect to \[Sigma]q and I would like to get output in a nice table format. I get a table format using the code below, but in the last three columns, the output is of the form "a -> 0.2". I would like it to be just 0.2 Is there a way to get rid of the variable name and the arrow? TableForm[Table[Join[{sq}, Flatten[FindMaximum[expprofit , {ß, 0.5, 0, 4}, {a, 1}, {b, 1}]]], {sq, 0.1, 0.3, 0.05}], TableHeadings -> {{}, {"sq", "Expected Profit", "Beta", "a", "b"}}] Thank you very much, Masha

**Follow-Ups**:**Re: Formatting table output***From:*gardyloo <gardyloo@mail.wsu.edu>