[Date Index]
[Thread Index]
[Author Index]
Re: 3-D to 2-D slice revisited
*To*: mathgroup at smc.vnet.net
*Subject*: [mg14283] Re: [mg14198] 3-D to 2-D slice revisited
*From*: Jurgen Tischer <jtischer at col2.telecom.com.co>
*Date*: Mon, 12 Oct 1998 13:52:00 -0400
*References*: <199810070700.DAA13596@smc.vnet.net.>
*Sender*: owner-wri-mathgroup at wolfram.com
Hi Michael,
you make me believe I also don't understand, but nevertheless:
In[1]:= y[x_,t_] = y[x,t] /. First[
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}]]
In[2]:= Plot[y[1,t],{t,0,2}]
Jurgen
Michael Mihalik wrote:
> 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.
Prev by Date:
**Re: 3-D to 2-D slice revisited**
Next by Date:
**2D histogram of x,y values**
Previous by thread:
**3-D to 2-D slice revisited**
Next by thread:
**RE: 3-D to 2-D slice revisited**
| |