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

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

Search the Archive

Re: 3-D to 2-D slice revisited

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14268] Re: 3-D to 2-D slice revisited
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Mon, 12 Oct 1998 13:51:48 -0400
  • References: <6vf3pc$dd4@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Michael Mihalik wrote in message <6vf3pc$dd4 at smc.vnet.net>...
>I posted a message on here a week or so ago, about taking a slice of a
>3-D graph, and then taking only one slice of it and looking at it in
>2-D.  I received some replies, but i don't think that they understood
>the question, so I will copy down exactly what I have entered
>
>NDSolve[{D[y[x,t],t]== D[y[x,t],x,x]*0.01 - D[y[x,t],x],
>y[x,0]==If[x>0,0,1], y[0,t]==1,Derivative[1,0][y][1,t]==0} , y,
>{x,0,1}, {t,0,2}]
>
>Plot3D[Evaluate[y[x,t]/.First[%]], {x,0,1}, {t,0,2}, PlotPoints -> 30]
>
>I want to take the graph generated from the above partial differential
>equation and view the y-z slice at x = 1.  Could someone please help
>me? It would really speed up my research, otherwise I will have to
>write a crappy FORTRAN program to do the same thing. P.S., I've already
>tried viewing the 3-D plot from just the right angle, but it is not
>good enough to interpolate a line and extract certain parameters from
>it.  Thank you again.
>
>

Michael:

How about

NDSolve[{D[y[x,t],t]== D[y[x,t],x,x]*0.01 - D[y[x,t],x],
y[x,0]==If[x>0,0,1], y[0,t]==1,Derivative[1,0][y][1,t]==0} , y,
{x,0,1}, {t,0,2}]


sy = y/.First[%]

Plot[sy[1,t], {t,0,2}]


Allan

----------------------
Alllan Hayes
Mathematica Training and Consulting
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565



  • Prev by Date: Re: Mouse is always a hand with Linux.
  • Next by Date: Numerical solution to Schrodinger's Equation
  • Previous by thread: RE: 3-D to 2-D slice revisited
  • Next by thread: Re: 3-D to 2-D slice revisited