Help with PDE problem!
- To: mathgroup at smc.vnet.net
- Subject: [mg4932] Help with PDE problem!
- From: Junseok Kim <picasso9 at unitel.co.kr>
- Date: Fri, 4 Oct 1996 00:17:59 -0400
- Sender: owner-wri-mathgroup at wolfram.com
I want to solve the partial differential equations
with mathematica.
If there is someone who can do this or how to solve
this, then please tell me.
Thank you.
f[x,y,t], g[x,y,t], h[x,y,t] are functions I seek to find
where x, y, t are independent variables.
2 g[x,y,t] - 8 x y D[g[x,y,t],t] - 2 y D[h[x,y,t],t]
+ 2 y D[g[x,y,t],y] - 2 x D[g[x,y,t],x] - D[h[x,y,t],x]==0,
2 f[x,y,t] - 4 x^2 D[g[x,y,t],t] + 4 y^2 D[g[x,y,t],t]
- 2 x D[h[x,y,t],t] + 2 x D[g[x,y,t],y] + D[h[x,y,t],y]
+ 2 y D[g[x,y,t],x]==0,
-2 x D[f[x,y,t],t] + 2 y D[g[x,y,t],t] + D[f[x,y,t],y]
+ D[g[x,y,t],x]==0,
-2 y D[f[x,y,t],t] - 2 x D[g[x,y,t],t] + D[g[x,y,t],y]
- D[f[x,y,t],x]==0
Thank you in advance.
I am a graduate student at Seoul National University
Department of Mathematics
Seoul South Korea 151-742
==== [MESSAGE SEPARATOR] ====