Errors in solving coupled pdesErrors Solving Elliptic PDES with FEMCoupled elliptic pdes, FEM solverSolving a system of partial differential and algebraic equations? setting the step-size to get reasonable resultsSolving a coupled PDEs using FEM with Robin conditionsSolving coupled ODEsNDSolve for Coupled Second Order PDEsSolving non-linear PDEsSolving coupled pdeNumerically solving two coupled nonlinear PDEsSolving 3 nonlinear, transient, coupled PDEs

Is the claim "Employers won't employ people with no 'social media presence'" realistic?

How do I deal with a coworker that keeps asking to make small superficial changes to a report, and it is seriously triggering my anxiety?

Does Gita support doctrine of eternal cycle of birth and death for evil people?

Why was Germany not as successful as other Europeans in establishing overseas colonies?

Apply MapThread to all but one variable

How could Tony Stark make this in Endgame?

Does the Jensen-Shannon divergence maximise likelihood?

What is the most expensive material in the world that could be used to create Pun-Pun's lute?

Don’t seats that recline flat defeat the purpose of having seatbelts?

Why was the Spitfire's elliptical wing almost uncopied by other aircraft of World War 2?

How do I reattach a shelf to the wall when it ripped out of the wall?

In order to check if a field is required or not, is the result of isNillable method sufficient?

Why is it that the natural deduction method can't test for invalidity?

Relationship between strut and baselineskip

Critique of timeline aesthetic

Largest value of determinant

How exactly does Hawking radiation decrease the mass of black holes?

Why must Chinese maps be obfuscated?

Can we say “you can pay when the order gets ready”?

Atom Editor not found,Ubuntu 18.04

Symbolic Multivariate Distribution

How to reduce LED flash rate (frequency)

Fizzy, soft, pop and still drinks

How come there are so many candidates for the 2020 Democratic party presidential nomination?



Errors in solving coupled pdes


Errors Solving Elliptic PDES with FEMCoupled elliptic pdes, FEM solverSolving a system of partial differential and algebraic equations? setting the step-size to get reasonable resultsSolving a coupled PDEs using FEM with Robin conditionsSolving coupled ODEsNDSolve for Coupled Second Order PDEsSolving non-linear PDEsSolving coupled pdeNumerically solving two coupled nonlinear PDEsSolving 3 nonlinear, transient, coupled PDEs













2












$begingroup$


I am trying to solve following coupled PDEs:
enter image description here
I am not sure about suitable BCs.



 ClearAll[V, Rho, T]
gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
System = D[V[x, t],t] == -1/gamma/exp[-x/H]*D[Rho[x, t], x] + D[T[x,
t],x] + Rho[x, t]/exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
D[Rho[x, t], t] == - D[exp[-x/H]*V[x, t], x],
D[T[x, t], t] == D[exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
gamma*exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
V[x, t] == 0 /. x -> 0,
V[x, t] == 0 /. x -> 1,
Rho[x, t] == 0 /. x -> 0,
Rho[x, t] == 0 /. x -> 1,
T[x, t] == 0 /. x -> 0,
T[x, t] == 0 /. x -> 1,
D[T[x, t], x] == 0 /. x -> 1,
V[x, 0] == Sin[Pi*x/L],
Rho[x, 0] == 0,
T[x, 0] == 0;
V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]
Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


General::ivar: 3 is not a valid variable.
........
Also, how i can import variable gpara in .txt format to this code?










share|improve this question









New contributor




Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$
















    2












    $begingroup$


    I am trying to solve following coupled PDEs:
    enter image description here
    I am not sure about suitable BCs.



     ClearAll[V, Rho, T]
    gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
    System = D[V[x, t],t] == -1/gamma/exp[-x/H]*D[Rho[x, t], x] + D[T[x,
    t],x] + Rho[x, t]/exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
    D[Rho[x, t], t] == - D[exp[-x/H]*V[x, t], x],
    D[T[x, t], t] == D[exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
    gamma*exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
    V[x, t] == 0 /. x -> 0,
    V[x, t] == 0 /. x -> 1,
    Rho[x, t] == 0 /. x -> 0,
    Rho[x, t] == 0 /. x -> 1,
    T[x, t] == 0 /. x -> 0,
    T[x, t] == 0 /. x -> 1,
    D[T[x, t], x] == 0 /. x -> 1,
    V[x, 0] == Sin[Pi*x/L],
    Rho[x, 0] == 0,
    T[x, 0] == 0;
    V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]
    Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


    General::ivar: 3 is not a valid variable.
    ........
    Also, how i can import variable gpara in .txt format to this code?










    share|improve this question









    New contributor




    Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$














      2












      2








      2





      $begingroup$


      I am trying to solve following coupled PDEs:
      enter image description here
      I am not sure about suitable BCs.



       ClearAll[V, Rho, T]
      gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
      System = D[V[x, t],t] == -1/gamma/exp[-x/H]*D[Rho[x, t], x] + D[T[x,
      t],x] + Rho[x, t]/exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
      D[Rho[x, t], t] == - D[exp[-x/H]*V[x, t], x],
      D[T[x, t], t] == D[exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
      gamma*exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
      V[x, t] == 0 /. x -> 0,
      V[x, t] == 0 /. x -> 1,
      Rho[x, t] == 0 /. x -> 0,
      Rho[x, t] == 0 /. x -> 1,
      T[x, t] == 0 /. x -> 0,
      T[x, t] == 0 /. x -> 1,
      D[T[x, t], x] == 0 /. x -> 1,
      V[x, 0] == Sin[Pi*x/L],
      Rho[x, 0] == 0,
      T[x, 0] == 0;
      V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]
      Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


      General::ivar: 3 is not a valid variable.
      ........
      Also, how i can import variable gpara in .txt format to this code?










      share|improve this question









      New contributor




      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $endgroup$




      I am trying to solve following coupled PDEs:
      enter image description here
      I am not sure about suitable BCs.



       ClearAll[V, Rho, T]
      gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
      System = D[V[x, t],t] == -1/gamma/exp[-x/H]*D[Rho[x, t], x] + D[T[x,
      t],x] + Rho[x, t]/exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
      D[Rho[x, t], t] == - D[exp[-x/H]*V[x, t], x],
      D[T[x, t], t] == D[exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
      gamma*exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
      V[x, t] == 0 /. x -> 0,
      V[x, t] == 0 /. x -> 1,
      Rho[x, t] == 0 /. x -> 0,
      Rho[x, t] == 0 /. x -> 1,
      T[x, t] == 0 /. x -> 0,
      T[x, t] == 0 /. x -> 1,
      D[T[x, t], x] == 0 /. x -> 1,
      V[x, 0] == Sin[Pi*x/L],
      Rho[x, 0] == 0,
      T[x, 0] == 0;
      V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]
      Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


      General::ivar: 3 is not a valid variable.
      ........
      Also, how i can import variable gpara in .txt format to this code?







      differential-equations






      share|improve this question









      New contributor




      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question









      New contributor




      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question








      edited Apr 24 at 4:43







      Danial













      New contributor




      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked Apr 24 at 4:23









      Danial Danial

      112




      112




      New contributor




      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      Danial is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.




















          1 Answer
          1






          active

          oldest

          votes


















          5












          $begingroup$

          Here is a version that fixes the syntax errors but there is a warning message indicating instability you should look into:



          ClearAll[V, Rho, T]
          gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
          System =
          D[V[x, t],
          t] == -1/gamma/Exp[-x/H]*(D[Rho[x, t], x] + D[T[x, t], x]) +
          Rho[x, t]/Exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
          D[Rho[x, t], t] == -D[Exp[-x/H]*V[x, t], x],
          D[T[x, t], t] ==
          D[Exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
          gamma*Exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
          V[0, t] == 0, V[1, t] == 0, V[x, 0] == Sin[Pi*x/L],
          Rho[0, t] == 0, Rho[1, t] == 0, Rho[x, 0] == 0,
          T[0, t] == 0, T[1, t] == 0, Derivative[1, 0][T][1, t] == 0,
          T[x, 0] == 0;
          V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]


          enter image description here



          Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


          enter image description here






          share|improve this answer









          $endgroup$












          • $begingroup$
            Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
            $endgroup$
            – Danial
            Apr 24 at 6:44











          • $begingroup$
            @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
            $endgroup$
            – user21
            Apr 24 at 6:45










          • $begingroup$
            Thanks @user21, its works after quiting kernel.
            $endgroup$
            – Danial
            2 days ago










          • $begingroup$
            Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
            $endgroup$
            – Danial
            2 days ago











          • $begingroup$
            @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
            $endgroup$
            – user21
            2 days ago











          Your Answer








          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "387"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );






          Danial is a new contributor. Be nice, and check out our Code of Conduct.









          draft saved

          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f196892%2ferrors-in-solving-coupled-pdes%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          5












          $begingroup$

          Here is a version that fixes the syntax errors but there is a warning message indicating instability you should look into:



          ClearAll[V, Rho, T]
          gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
          System =
          D[V[x, t],
          t] == -1/gamma/Exp[-x/H]*(D[Rho[x, t], x] + D[T[x, t], x]) +
          Rho[x, t]/Exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
          D[Rho[x, t], t] == -D[Exp[-x/H]*V[x, t], x],
          D[T[x, t], t] ==
          D[Exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
          gamma*Exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
          V[0, t] == 0, V[1, t] == 0, V[x, 0] == Sin[Pi*x/L],
          Rho[0, t] == 0, Rho[1, t] == 0, Rho[x, 0] == 0,
          T[0, t] == 0, T[1, t] == 0, Derivative[1, 0][T][1, t] == 0,
          T[x, 0] == 0;
          V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]


          enter image description here



          Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


          enter image description here






          share|improve this answer









          $endgroup$












          • $begingroup$
            Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
            $endgroup$
            – Danial
            Apr 24 at 6:44











          • $begingroup$
            @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
            $endgroup$
            – user21
            Apr 24 at 6:45










          • $begingroup$
            Thanks @user21, its works after quiting kernel.
            $endgroup$
            – Danial
            2 days ago










          • $begingroup$
            Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
            $endgroup$
            – Danial
            2 days ago











          • $begingroup$
            @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
            $endgroup$
            – user21
            2 days ago















          5












          $begingroup$

          Here is a version that fixes the syntax errors but there is a warning message indicating instability you should look into:



          ClearAll[V, Rho, T]
          gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
          System =
          D[V[x, t],
          t] == -1/gamma/Exp[-x/H]*(D[Rho[x, t], x] + D[T[x, t], x]) +
          Rho[x, t]/Exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
          D[Rho[x, t], t] == -D[Exp[-x/H]*V[x, t], x],
          D[T[x, t], t] ==
          D[Exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
          gamma*Exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
          V[0, t] == 0, V[1, t] == 0, V[x, 0] == Sin[Pi*x/L],
          Rho[0, t] == 0, Rho[1, t] == 0, Rho[x, 0] == 0,
          T[0, t] == 0, T[1, t] == 0, Derivative[1, 0][T][1, t] == 0,
          T[x, 0] == 0;
          V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]


          enter image description here



          Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


          enter image description here






          share|improve this answer









          $endgroup$












          • $begingroup$
            Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
            $endgroup$
            – Danial
            Apr 24 at 6:44











          • $begingroup$
            @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
            $endgroup$
            – user21
            Apr 24 at 6:45










          • $begingroup$
            Thanks @user21, its works after quiting kernel.
            $endgroup$
            – Danial
            2 days ago










          • $begingroup$
            Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
            $endgroup$
            – Danial
            2 days ago











          • $begingroup$
            @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
            $endgroup$
            – user21
            2 days ago













          5












          5








          5





          $begingroup$

          Here is a version that fixes the syntax errors but there is a warning message indicating instability you should look into:



          ClearAll[V, Rho, T]
          gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
          System =
          D[V[x, t],
          t] == -1/gamma/Exp[-x/H]*(D[Rho[x, t], x] + D[T[x, t], x]) +
          Rho[x, t]/Exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
          D[Rho[x, t], t] == -D[Exp[-x/H]*V[x, t], x],
          D[T[x, t], t] ==
          D[Exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
          gamma*Exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
          V[0, t] == 0, V[1, t] == 0, V[x, 0] == Sin[Pi*x/L],
          Rho[0, t] == 0, Rho[1, t] == 0, Rho[x, 0] == 0,
          T[0, t] == 0, T[1, t] == 0, Derivative[1, 0][T][1, t] == 0,
          T[x, 0] == 0;
          V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]


          enter image description here



          Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


          enter image description here






          share|improve this answer









          $endgroup$



          Here is a version that fixes the syntax errors but there is a warning message indicating instability you should look into:



          ClearAll[V, Rho, T]
          gamma = 5/3; ep = 0.05; d = 0.01; L = 1; H = 1.1; gpara = 0.38;
          System =
          D[V[x, t],
          t] == -1/gamma/Exp[-x/H]*(D[Rho[x, t], x] + D[T[x, t], x]) +
          Rho[x, t]/Exp[-x/H]*gpara + 1.3*ep*D[V[x, t], x, 2],
          D[Rho[x, t], t] == -D[Exp[-x/H]*V[x, t], x],
          D[T[x, t], t] ==
          D[Exp[-x/H]*V[x, t], x] - V[x, t]*Rho[x, t]*gpara -
          gamma*Exp[-x/H]*D[V[x, t], x] + gamma*d*D[T[x, t], x, 2],
          V[0, t] == 0, V[1, t] == 0, V[x, 0] == Sin[Pi*x/L],
          Rho[0, t] == 0, Rho[1, t] == 0, Rho[x, 0] == 0,
          T[0, t] == 0, T[1, t] == 0, Derivative[1, 0][T][1, t] == 0,
          T[x, 0] == 0;
          V, Rho, T = NDSolveValue[System, V, Rho, T, x, 0, 1, t, 0, 5]


          enter image description here



          Plot3D[V[x, t], Rho[x, t], T[x, t], x, 0, 1, t, 0, 5]


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Apr 24 at 5:36









          user21user21

          21.3k560100




          21.3k560100











          • $begingroup$
            Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
            $endgroup$
            – Danial
            Apr 24 at 6:44











          • $begingroup$
            @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
            $endgroup$
            – user21
            Apr 24 at 6:45










          • $begingroup$
            Thanks @user21, its works after quiting kernel.
            $endgroup$
            – Danial
            2 days ago










          • $begingroup$
            Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
            $endgroup$
            – Danial
            2 days ago











          • $begingroup$
            @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
            $endgroup$
            – user21
            2 days ago
















          • $begingroup$
            Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
            $endgroup$
            – Danial
            Apr 24 at 6:44











          • $begingroup$
            @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
            $endgroup$
            – user21
            Apr 24 at 6:45










          • $begingroup$
            Thanks @user21, its works after quiting kernel.
            $endgroup$
            – Danial
            2 days ago










          • $begingroup$
            Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
            $endgroup$
            – Danial
            2 days ago











          • $begingroup$
            @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
            $endgroup$
            – user21
            2 days ago















          $begingroup$
          Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
          $endgroup$
          – Danial
          Apr 24 at 6:44





          $begingroup$
          Thank you very much. I am using mathematica 11.3, when i use this code in my .nb, its showing errors: General::ivar: 3 is not a valid variable. I need to install different version of mathematica to avoid errors?
          $endgroup$
          – Danial
          Apr 24 at 6:44













          $begingroup$
          @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
          $endgroup$
          – user21
          Apr 24 at 6:45




          $begingroup$
          @Danial, works for me in V11.3. Try quiting your kernel, perhaps?
          $endgroup$
          – user21
          Apr 24 at 6:45












          $begingroup$
          Thanks @user21, its works after quiting kernel.
          $endgroup$
          – Danial
          2 days ago




          $begingroup$
          Thanks @user21, its works after quiting kernel.
          $endgroup$
          – Danial
          2 days ago












          $begingroup$
          Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
          $endgroup$
          – Danial
          2 days ago





          $begingroup$
          Can you please suggest me how to get eigen values of this system of equations if i change d/dt =i lambda ?
          $endgroup$
          – Danial
          2 days ago













          $begingroup$
          @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
          $endgroup$
          – user21
          2 days ago




          $begingroup$
          @Danial, I am not sure I understand your question, do you mean via NDEigensystem? If so, that is a different question and you should ask a new one.
          $endgroup$
          – user21
          2 days ago










          Danial is a new contributor. Be nice, and check out our Code of Conduct.









          draft saved

          draft discarded


















          Danial is a new contributor. Be nice, and check out our Code of Conduct.












          Danial is a new contributor. Be nice, and check out our Code of Conduct.











          Danial is a new contributor. Be nice, and check out our Code of Conduct.














          Thanks for contributing an answer to Mathematica Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          Use MathJax to format equations. MathJax reference.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f196892%2ferrors-in-solving-coupled-pdes%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Благоевград Съдържание География | История | Население | Политика | Икономика и инфрастуктура | Здравеопазване | Образование и наука | Култура и забавления | Забележителности | Личности | Литература | Външни препратки | Бележки | Навигация42°01′18.99″ с. ш. 23°05′51″ и. д. / 42.021944° с. ш. 23.0975° и. д.*БлагоевградразширитередактиранеОфициален уебсайт на община БлагоевградНовинарски портал на Благоевград – blagoevgrad.euСайтове за БлагоевградНационален статистически институтdariknews.bgГригоровичъ, Викторъ. „Очеркъ путешествія по Европейской Турціи“. Москва, 1877.Стрезов, Георги. Два санджака от Източна Македония. Периодично списание на Българското книжовно дружество в Средец, кн. XXXVII и XXXVIII, 1891, стр. 18 – 19.Македония. Етнография и статистикаГаджанов, Димитър Г. Мюсюлманското население в Новоосвободените земи, в: Научна експедиция в Македония и Поморавието 1916, Военноиздателски комплекс „Св. Георги Победоносец“, Университетско издателство „Св. Климент Охридски“, София, 1993, стр. 244.паметник на незнайния четник&cd=18&hl=en&ct=clnk&client=firefox-a „История на днешен Благоевград“, взето от www.museumblg.com на 16 март 2010 г.„Справка за населението на град Благоевград, община Благоевград, област Благоевград, НСИ“„The population of all towns and villages in Blagoevgrad Province with 50 inhabitants or more according to census results and latest official estimates“„Ethnic composition, all places: 2011 census“История на Неврокопска епархия.Национален статистически институтМюсюлманско изповедание. Главно мюфтийствоНационален публичен регистър на храмовете в БългарияМюсюлманско изповедание. Главно мюфтийствоwww.dnes.bg Джамията в Благоевград не била паленаwww.sesc-bg.orgСписък на побратимени градовеТехническо побратимяванеГУМ грейва в цветовете на нощен Лас Вегас под името „Largo“, „МОЛ Благоевград“..., в. „Струма“grabo.bgwww.cinemaxbg.comррр4238731-067cad53a-0546-417b-a3d3-51e49b1d2232147736077147736077

          How does Billy Russo acquire his 'Jigsaw' mask? Unicorn Meta Zoo #1: Why another podcast? Announcing the arrival of Valued Associate #679: Cesar Manara Favourite questions and answers from the 1st quarter of 2019Why does Bane wear the mask?Why does Kylo Ren wear a mask?Why did Captain America remove his mask while fighting Batroc the Leaper?How did the OA acquire her wisdom?Is Billy Breckenridge gay?How does Adrian Toomes hide his earnings from the IRS?What is the state of affairs on Nootka Sound by the end of season 1?How did Tia Dalma acquire Captain Barbossa's body?How is one “Deemed Worthy”, to acquire the Greatsword “Dawn”?How did Karen acquire the handgun?

          What is the best defense strategy for Survival in Grand Theft Auto Online?What is JP used for in Grand Theft Auto Online?How do I setup a Crew HQ in Grand Theft Auto Online?How does stealth work in Grand Theft Auto Online?Is it possible to own more than 10 cars in Grand Theft Auto online?Where to find truck/trailers in Grand Theft Auto OnlineWhat are some of the best missions to do on Grand Theft Auto 5 onlineFastest Car in Grand Theft Auto V PCHow to setup a Crew vs Crew online session in Grand Theft Auto Online?Grand theft auto 5 crossplayingRestart Grand Theft Auto V Online?