       Re: Changing PDE to ODE

• To: mathgroup at smc.vnet.net
• Subject: [mg7524] Re: [mg7509] Changing PDE to ODE
• From: "w.meeussen" <w.meeussen.vdmcc at vandemoortele.be>
• Date: Tue, 10 Jun 1997 23:17:59 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```hi Sergio,

In:=eq1 = a^2*u[x, y, z] +
Derivative[2, 0, 0][u][x, y, z] == 0

Out=
2                       (2,0,0)
a  u[x, y, z] + (u)       [x, y, z] == 0

In:=eq2 = b^2*Derivative[0,1,0][u][x,y,z] +
Derivative[0,2,0][u][x,y,z]==0

Out=
2       (0,1,0)                  (0,2,0)
b  (u)       [x, y, z] + (u)       [x, y, z] == 0

***** definitions : *****

In:=u[x,y,z]:=u[y];
Derivative[n_,0,0][u][x,y,z]:=Derivative[n][u][x]
In:=u[x,y,z]:=u[y];
Derivative[0,n_,0][u][x,y,z]:=Derivative[n][u][y]

***** end definitions *****

In:=eq1
Out=
2
a  u[y] + (u)''[x] == 0

In:=eq2
Out=
2
b  (u)'[y] + (u)''[y] == 0

It's what's in The Book under "LaplaceTransform", discussing "Heat
Conduction PDE".

greetings,

At 03:48 7-06-97 -0400, Sergio Rojas wrote:
> Hello guys,
>
>   	I have a set of PDE that may be solved using ODE techniques.
>	In general, they look (after using FullForm) like :
>
>eq1 = a^2*u[x, y, z] + Derivative[2, 0, 0][u][x, y, z] == 0
>
>eq2 = b^2*Derivative[0,1,0][u][x,y,z] + Derivative[0,2,0][u][x,y,z]==0
>
>  	By using Mathematica, how these equations can be
>	transformed into ordinary differential equation
>        that may looks like:
>
>a^2*u[x] + Derivative[u][x] == 0
>
>b^2*Derivative[u][y] + Derivative[u][y] == 0
>
> 	One can take care of the Derivative by using:
>
>neweq2 = eq2 /. Derivative[0, n_, 0] -> Derivative[n]
>
>	How to change [x,y,z] to [y] ?
>
>Sergio
>
>E-mail: sergio at scisun.sci.ccny.cuny.edu
>
>
>
>
>

Dr. Wouter L. J. MEEUSSEN
eu000949 at pophost.eunet.be
w.meeussen.vdmcc at vandemoortele.be

```

• Prev by Date: Re: groups
• Next by Date: Re: Creating table with multiple lists
• Previous by thread: Re: Changing PDE to ODE
• Next by thread: A question !!!