Re: changing replacement rule arrow ( ->) to equal sign(==)...
- To: mathgroup at smc.vnet.net
- Subject: [mg45890] Re: changing replacement rule arrow ( ->) to equal sign(==)...
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 29 Jan 2004 05:34:36 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <bv83l0$idm$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi, {G[0] -> 4*(5 - 2*Sqrt[6]), tfC[0] -> 2*(5 - 2*Sqrt[6]), C[0] -> 3 - Sqrt[6], tf[0] -> 3 - Sqrt[6]} /. Rule->Equal may help you. Regards Jens sean kim wrote: > > thanks for all those tho replied regarding adding interpoating > functions. > > few more questions... > > let's say you can Solve a system of equations like this. > > In[267]:= > itxn = Solve[{0 == 1 - 2C[t] - 1 C[t] tf[t] + 2 tfC[t], > 0 == -1 G[t] + 2 tfC[t], > 0 == 1 - 2 tf[t] - 1 C[t] tf[t] + 2 tfC[t], > 0 == 1 C[t] 2 tf[t] - 1 tfC[t] - 2 tfC[t]}, {C[t], G[t], > tf[t], > tfC[t]}][[1]] /. t -> 0 > > above give a replacement rule as below. > > {G[0] -> 4*(5 - 2*Sqrt[6]), tfC[0] -> 2*(5 - 2*Sqrt[6]), > C[0] -> 3 - Sqrt[6], tf[0] -> 3 - Sqrt[6]} > > now I would like to use this rule asd part of NDSolve as initial > conditions. but as we all know, it can't be used directly. > > the -> needs to be replaced with == > > now, if i try to Map a rule that replaces -> with ==, like... > > Map[{itxn[[1]] == itxn[[2]]}, itxn] > > it doesn't work. > > it gives a long list with wrong result. > > what i wanted though is > {G[0] == 4*(5 - 2*Sqrt[6]), tfC[0] == 2*(5 - 2*Sqrt[6]), > C[0] == 3 - Sqrt[6], tf[0] == 3 - Sqrt[6]} > > So, what i would like to do is use the results from the Solve directly > in NDSolve as the initial conditions without having to manually edit > out the arrows with equal signs. > > can you guys please shed some light on this matter? > > thank you very much in advance > > sean