MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Table->Value

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121451] Re: Table->Value
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Thu, 15 Sep 2011 04:41:54 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Reply-to: hanlonr at cox.net

t = {{{V -> 26.5173}, {V -> 340.686}, {V -> 191821.}},
   {{V -> 26.6798}, {V -> 326.358}, {V -> 135843.}},
   {{V -> 26.8489}, {V -> 312.824}, {V -> 98061.}},
   {{V -> 27.0252}, {V -> 300.031}, {V -> 72039.1}}};

Map[V /. # &, t, {3}]

{{{26.5173}, {340.686}, {191821.}}, {{26.6798}, {326.358}, \
{135843.}}, {{26.8489}, {312.824}, {98061.}}, {{27.0252}, {300.031}, \
{72039.1}}}

V /. t

{{26.5173, 340.686, 191821.}, {26.6798, 326.358, 135843.}, {26.8489, 
  312.824, 98061.}, {27.0252, 300.031, 72039.1}}


Bob Hanlon

---- Mariano Pierantozzi <mariano.pierantozzi at gmail.com> wrote: 

=============
Hi to everyone,
I've got a problem that seem stupid, but is a lost of time to me.
I've generate a table with solutions of a series of equations
pfugacita =
v = Table[
   NSolve[pressioni[[1, i]] - (R temperature[[1, i]])/(
      V - b[[1, i]]) +
      a[[1, i]]/( - (b[[1, i]])^2 + 2 b[[1, i]] V + V^2) == 0, V,
    Reals], {i, 41}] // Grid
The solutions are a table and in each row i've got the three solutions of
one equation.
The results are
.............
{
 {{V -> 26.5173}, {V -> 340.686}, {V -> 191821.}},
 {{V -> 26.6798}, {V -> 326.358}, {V -> 135843.}},
 {{V -> 26.8489}, {V -> 312.824}, {V -> 98061.}},
 {{V -> 27.0252}, {V -> 300.031}, {V -> 72039.1}},
 {{V -> 27.209}, {V -> 287.932}, {V -> 53792.5}},
 {{V -> 27.4009}, {V -> 276.484}, {V -> 40774.4}},
 {{V -> 27.6013}, {V -> 265.647}, {V -> 31339.2}},
 {{V -> 27.8109}, {V -> 255.384}, {V -> 24398.6}},
 {{V -> 28.0302}, {V -> 245.661}, {V -> 19221.5}},
 {{V -> 28.26}, {V -> 236.446}, {V -> 15312.4}},
 {{V -> 28.501}, {V -> 227.71}, {V -> 12322.2}},
 {{V -> 28.754}, {V -> 219.424}, {V -> 10009.8}}
}
...........
And now i want to use this values to calculate some variations; but i don't
know how trasform the table of solutions in a table of pure number.
i.e.
 {{ 26.5173}, { 340.686}, { 191821.}},
 { 26.6798}, { 326.358}, { 135843.}},
 {{ 26.8489}, {312.824}, {98061.}},
 {{ 27.0252}, { 300.031}, { 72039.1}},
 {{27.209}, {287.932}, { 53792.5}},
 { 27.4009},  276.484}, {40774.4}},
 {{27.6013}, {265.647}, { 31339.2}},
 {{27.8109}, { 255.384}, { 24398.6}},
 {{ 28.0302}, 245.661}, { 19221.5}},
 {{28.26}, {236.446}, {15312.4}},
 {{ 28.501}, { 227.71}, {12322.2}},
 {{ 28.754}, {219.424}, { 10009.8}}
}
If I had one equations it's non problem for me, but i don't be able with a
table.
Thaks for yuor help...
MP





  • Prev by Date: Re: Table->Value
  • Next by Date: Re: How create new style sheet- Mathematica 8
  • Previous by thread: Re: Table->Value
  • Next by thread: Re: Table->Value