Other PDE heat equation
- To: mathgroup at smc.vnet.net
- Subject: [mg79679] Other PDE heat equation
- From: Miguel <misvrne at gmail.com>
- Date: Wed, 1 Aug 2007 05:14:30 -0400 (EDT)
How can I to resolve the unidirectional heat transmission for a plate
o slab:
a=0.03;hc=1890;k=34;L=0.03;
NDSolve[{a D[u[x,t],{x,2}]==D[u[x,t],t],
u[L,0]==600, (* Initial value: the plate has the same temperature *)
u[-L,0]==600,
u[0,0]==600,
(D[u[x,t],x]/.x->0)==0 (* Max. in centre *)
(D[u[x,t],x]/.x->L)==(-hc/k)(u[L,t]-600) (* Q convection = Q
conduction *)
u[L,t]==u[-L,t]}, (* Temper. symetric *)
u[x,t],{x,-L,L},{t,0,10}]
NDSolve::ivone: Boundary values may only be specified for one \
independent variable. Initial values may only be specified at one \
value of the other independent variable. >>
Where is my error?
Thanks