In[]:=
η[a_,x_]:=
(x+a^2)*(2a^4+x(-5+6x)+a^2(1+8x))+2(x-(x+a^2)^2)*Sqrt[2x+2a^2]
(-1+2
2
a
+2x)^2
In[]:=
ξ[a_,x_]:=
(a^2-(x+a^2)^2)+(x-(x+a^2)^2)*Sqrt[2x+2a^2]
a(-1+2
2
a
+2x)
In[]:=
α[a_,x_]:=-ξ[a,x]
In[]:=
β[a_,x_]:=Sqrt[η[a,x]-ξ[a,x]^2+a^2]
In[]:=
Plot[β[0.3,x],{x,-0.3,0},AxesLabel{"r","β"}]
Out[]=
In[]:=
Plot[α[0.3,x],{x,-0.5,0},AxesLabel{"r","α"}]
Out[]=
In[]:=
ParametricPlot[{α[0.3,x],β[0.3,x]},{x,-0.065,-0.001},AxesLabel{"α","β"}]
Out[]=
In[]:=
ParametricPlot[{{α[0.3,x],β[0.3,x]},{α[0.3,x],-β[0.3,x]}},{x,-0.065,-0.001},AxesLabel{"α","β"}]
Out[]=
​
​