Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. Q5[x_] := Abs[Re[(1 - x)^(5/2) Hypergeometric2F1[-5/2, 1/2, 3/2, 3 x/(x - 1)]]]
  2. q5[x_] := Series[Q5[x], {x, 0, 3}]
  3.  
  4. error[x_] := Abs[Q5[x] - q5[x]]
  5. Plot[error[x], {x, 0, 2}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement