Message Boards Message Boards

Equal flow boundary conditions

Jeiveison Maia, UFRJ
Posted 10 years ago

I'm having the following issue that can not find a solution , by using this boundary condition v[0, t] == u[1, t] that Mathematica does not understand, someone please help me!

NDSolve[{
        D[u[x, t], t] == D[u[x, t], x, x] - u[x, t],
        D[v[x, t], t] == D[v[x, t], x, x] - v[x, t],
        u[x, 0] == 1,
        v[x, 0] == 1,
        u[0, t] == 1,
        Derivative[1, 0][u][1, t] == 0,
        v[0, t] == u[1, t],
        Derivative[1, 0][v][1, t] == 0
        },
      {u[x, t], v[x, t]},
      {x, 0, 1},
      {t, 0, 5}]

I appreciate any help...

Attachments:
POSTED BY: Jeiveison Maia
1 Reply
Sort By:

Hi,

NDSolve[{D[u[x, t], t] == D[u[x, t], x, x] - u[x, t], 
  D[v[x, t], t] == D[v[x, t], x, x] - v[x, t], u[x, 0] == 1, 
  v[x, 0] == 1, u[0, t] == 1, Derivative[1, 0][u][1, t] == 0, 
  v[0, t] == u[1, t] == 1, Derivative[1, 0][v][1, t] == 0}, {u[x, t], 
  v[x, t]}, {x, 0, 1}, {t, 0, 5}]

works.

Cheers,

Marco
POSTED BY: Marco Thiel
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract