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

**References**:**recursively solve equation and save the values only***From:*wyn smjy <wsmjy2012@gmail.com>