MathGroup Archive 1998

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

Search the Archive

Newbe: Wave equation




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




  • Prev by Date: ListContourPlot with (x,y,z) values
  • Next by Date: Plotting discontinuities
  • Prev by thread: Re: ListContourPlot with (x,y,z) values
  • Next by thread: Re: Newbe: Wave equation