Group Abstract

Message Boards

WOLFRAM COMMUNITY

4.9K Views

4 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

PDE solution using NDSolve not smooth

srinivas.gk

Posted 4 years ago

POSTED BY: srinivas.gk

4 Replies

Sort By:

Updating Name

Posted 4 years ago

Using StiffnessSwitching seems to have smoothened out the solution. Thank you for the suggestions. tA = NDSolve[{Subscript[PDE, in], Subscript[PDE, out], IC, Subscript[T, f, o][\[Tau], 0] == 10, Subscript[T, f, in][\[Tau], L] == Subscript[T, f, o][\[Tau], L]}, {Subscript[T, f, in], Subscript[T, f, o]}, {\[Tau], 0, 3600}, {z, 0, L}, Method -> "StiffnessSwitching"]

Using StiffnessSwitching seems to have smoothened out the solution. Thank you for the suggestions.

tA = NDSolve[{Subscript[PDE, in], Subscript[PDE, out], IC, 
   Subscript[T, f, o][\[Tau], 0] == 10, 
   Subscript[T, f, in][\[Tau], L] == 
    Subscript[T, f, o][\[Tau], L]}, {Subscript[T, f, in], Subscript[T,
    f, o]}, {\[Tau], 0, 3600}, {z, 0, L}, 
  Method -> "StiffnessSwitching"]

POSTED BY: Updating Name

srinivas.gk

Posted 4 years ago

Thanks for the suggestion Neil. I will take a look at the suggested link. The differential equations are for a heat balance between coaxial tubes with heat loss/gain from surroundings. This is why the wavy solution seems strange.