Group Abstract Group Abstract

Message Boards Message Boards

0
|
3.2K Views
|
4 Replies
|
3 Total Likes
View groups...
Share
Share this post:

[✓] Solve a normal Differental-Equation?

Posted 6 years ago
4 Replies
Posted 6 years ago
POSTED BY: Karl Eberl
Attachments:
POSTED BY: Mariusz Iwaniuk
Posted 6 years ago

Hello Mr. Iwaniuk, Thanks for your Reply :)

I tried it, and have the same Solution than you. but if i replace the C1 and C2, and want to plot it, it seems that the Solution is different to the Solution from the Answerkey. If i Plot with the Code of your solution, i need to plot from {x,0,100} to see the graph. In the solution it should start from ~0 In the Attachments are the Solutions from the Answerkey again :)

Do you have any idea whats going on there? Thanks for your help.

Attachment

POSTED BY: Karl Eberl

Try:

 eq = y''[x] + y'[x] == x^2*Sqrt[x];
 sol = DSolve[eq, y, x]
 (* {{y -> Function[{x}, (2 x^(7/2))/7 - E^-x C[1] + C[2] + (
      E^-x Sqrt[-x] Gamma[7/2, -x])/Sqrt[x]]}} *)
 eq /. sol // FullSimplify(*Solution is Correct*)
 (* {True}*)

Using FunctionExpand to get Erfi[x] function:

 sol2 = DSolveValue[eq, y[x], x] // FunctionExpand // Simplify
(*-((15 Sqrt[x])/4) + (5 x^(3/2))/2 - x^(5/2) + (2 x^(7/2))/7 + 
 E^-x ((15 Sqrt[\[Pi]] Sqrt[-x])/(8 Sqrt[x]) - C[1]) + C[2] + 
 15/8 E^-x Sqrt[\[Pi]] Erfi[Sqrt[x]] *)

eq /. {{y -> Function[{x}, Evaluate@sol2]}} // FullSimplify(*Solution is correct*)
  (* {True}*)

Check if yours solution are correct:

eq /. {{y -> 
      Function[{x}, 
       C[2] + 1/
          56 E^-x (2 (E^x Sqrt[x] (-105 + 70 x - 28 x^2 + 8 x^3) - 
              28 C[1]) + 105 Sqrt[Pi]*Erfi[Sqrt[x]])]}} // FullSimplify
(* {True}*)

Regards M.I.

POSTED BY: Mariusz Iwaniuk
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard