Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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



  • Prev by Date: RE: Difference of numbers in the list
  • Next by Date: Re: Difference of numbers in the list
  • Previous by thread: Re: changing replacement rule arrow ( ->) to equal sign(==)...
  • Next by thread: Re: changing replacement rule arrow ( ->) to equal sign(==)...