Skip to main content
Tag and minor edit
Source Link
Carl Woll
  • 131.7k
  • 6
  • 246
  • 359

I would like to plot the percentage difference between the following functions:

Q5[x_] := Abs[Re[(1 - x)^(5/2) Hypergeometric2F1[-5/2, 1/2, 3/2, 3 x/(x - 1)]]]
q5[x_] := Series[Q5[x], {x, 0, 3}]

I simply do the following:

error[x_] := Abs[Q5[x] - q5[x]]
Plot[error[x], {x, 0, 2}]

I was hoping to findobtain the plot:

enter image description here

I would like to plot the percentage difference between the following functions:

Q5[x_] := Abs[Re[(1 - x)^(5/2) Hypergeometric2F1[-5/2, 1/2, 3/2, 3 x/(x - 1)]]]
q5[x_] := Series[Q5[x], {x, 0, 3}]

I simply do the following:

error[x_] := Abs[Q5[x] - q5[x]]
Plot[error[x], {x, 0, 2}]

I was hoping to find the plot:

enter image description here

I would like to plot the percentage difference between the following functions:

Q5[x_] := Abs[Re[(1 - x)^(5/2) Hypergeometric2F1[-5/2, 1/2, 3/2, 3 x/(x - 1)]]]
q5[x_] := Series[Q5[x], {x, 0, 3}]

I simply do the following:

error[x_] := Abs[Q5[x] - q5[x]]
Plot[error[x], {x, 0, 2}]

I was hoping to obtain the plot:

enter image description here

Source Link

Plotting the percentage difference between two curves

I would like to plot the percentage difference between the following functions:

Q5[x_] := Abs[Re[(1 - x)^(5/2) Hypergeometric2F1[-5/2, 1/2, 3/2, 3 x/(x - 1)]]]
q5[x_] := Series[Q5[x], {x, 0, 3}]

I simply do the following:

error[x_] := Abs[Q5[x] - q5[x]]
Plot[error[x], {x, 0, 2}]

I was hoping to find the plot:

enter image description here