changing replacement rule arrow ( ->) to equal sign(==)...
- To: mathgroup at smc.vnet.net
- Subject: [mg45883] changing replacement rule arrow ( ->) to equal sign(==)...
- From: sean_incali at yahoo.com (sean kim)
- Date: Wed, 28 Jan 2004 05:19:34 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
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