MathGroup Archive 2012

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

Search the Archive

Re:recursively solve equation and save the values only

  • To: mathgroup at smc.vnet.net
  • Subject: [mg125804] Re:recursively solve equation and save the values only
  • From: "ced.fuhrer" <ced.fuhrer at laposte.net>
  • Date: Tue, 3 Apr 2012 04:48:17 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201204020827.EAA04300@smc.vnet.net>
  • Reply-to: "ced.fuhrer" <ced.fuhrer at laposte.net>

Hello!

2ways to do it:

1) list = {T ==
0.0351204, T == 0.06995, T == 0.104221, T == 0.137708, T == 0.170237, T == 0.201687, T == 0.231988, T == 0.26111, T == 0.289058, T == 0.315857, T == 0.34155, T == 0.366188, T == 0.389828, T == 0.412529, T == 0.434347}
sol2 = T/.ToRules[ list ] because the function "Reduce" does not accept "ReplaceAll" or
"/."

2) sol2 = list[[All,2]] because the values of T found are the seconds arguments of the
list.

I hope this helps you!


> Message du 02/04/12 11:27
> De : "wyn smjy"
> A : mathgroup at smc.vnet.net
> Copie =C3  :
> Objet : recursively solve equation and save the values only
>
> Dear All,
>
> I am new to Mathematica. I am trying to recursively solve equation and
> saving the values into Table. Since I need the real solutions only so
> I use Reduce.
>
> The following is my code:
>
> f = 5.68672 T + 6.46776 T^3
>
> t = Table[i, {i, 0.2, 3, 0.2}]
>
> sols = Table[Reduce[f == t[[i]], T, Reals], {i, Length[t]}] {T ==
> 0.0351204, T == 0.06995, T == 0.104221, T == 0.137708, T == 0.170237,
> T == 0.201687, T == 0.231988, T == 0.26111, T == 0.289058, T ==
> 0.315857, T == 0.34155, T == 0.366188, T == 0.389828, T == 0.412529, T == 0.434347}
>
> The solution is OK as I compared it to other software as well. The
> only thing that matters me is how to remove the T== , i.e. I just need
> the solution and then to copy this into another table, say sols2 that
> contains
>
> sols2 = {0.0351204, 0.06995, 0.104221, T == 0.137708,.., 0.434347}
>
> I tried the following: sols2 = T/.sols but produce the following
> error:
>
> sols2 = ReplaceAll::reps: ... is neither a list of replacement rules
> nor a valid dispatch table, and so cannot be used for replacing. >>
>
> Does anyone know how to remove the T==?
>
> Thank you,
>
> Wayan
>
>

Une messagerie gratuite, garantie =C3  vie et des services en plus, =C3=
=A7a vous tente ?
Je cr=C3=A9e ma bo=C3=AEte mail www.laposte.net



  • Prev by Date: Re: recursively solve equation and save the values only
  • Next by Date: Re: How do I stop Mathematica changing the format of fractions in Input cells?
  • Previous by thread: Re: recursively solve equation and save the values only
  • Next by thread: Re: recursively solve equation and save the values only