Newbe: Wave equation
- To: mathgroup@smc.vnet.net
- Subject: [mg12518] Newbe: Wave equation
- From: "Michal Morawski" <morawski@zsku.p.lodz.pl>
- Date: Sat, 23 May 1998 18:10:49 -0400
Hi,
I got the trial version of Mathematica 3.0. One of the first problems I
want to solve was (is) the wave equation:
I wrote the following lines:
c[x_] := if[ (x > 0.5) && ( x < 0.75), 3, 2]; R = 2+0.5 I;
solve = NDSolve{D[y[x, t], x, x]-D[y[x, t], t,
t]/(c[x]*c[x])-D[y[x,t],t]/R==0,
y[x, 0] == 0, Derivative[0,1][y][x, 0] == 0,
y[0, t] == Cos[t],
y[1, t]==Exp[-1]}, y, {x, 0, 1}, {t, 0, 2*Pi}]
I received the message: <Equations may not give solutions for all
"solve" variables>
After further "research" I have discovered none solution was given
Real "R" (instead of complex) do not change anything.
My question is:
Is mathematica able to solve such simple equations? Any help?
If anyone knows the answer please write me on my e-mail address
morawski@zsku.p.lodz.pl