RE: changing replacement rule arrow ( ->) to equal sign(==)...
- To: mathgroup at smc.vnet.net
- Subject: [mg45902] RE: [mg45883] changing replacement rule arrow ( ->) to equal sign(==)...
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 29 Jan 2004 05:34:53 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Sean,
Equal @@@ itxn
{G[0] == 4*(5 - 2*Sqrt[6]),
tfC[0] == 2*(5 - 2*Sqrt[6]), C[0] == 3 - Sqrt[6],
tf[0] == 3 - Sqrt[6]}
Check the notes for Apply in Help.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
-----Original Message-----
From: sean kim [mailto:sean_incali at yahoo.com]
To: mathgroup at smc.vnet.net
Subject: [mg45902] [mg45883] changing replacement rule arrow ( ->) to equal
sign(==)...
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