Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*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 1996

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

Search the Archive

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] ====


  • Prev by Date: QUESTION
  • Next by Date: Accuracy in the function N[expr, n]
  • Previous by thread: Re: QUESTION
  • Next by thread: Accuracy in the function N[expr, n]