In[]:=
p1=ContourPlotv^22-Log[v]+Log[1.0]2Log[x]+1x,v^22-Log[v]+Log
3/2

4
2Log[x]+1x,v^22-Log[v]+Log[1.3]2Log[x]+1x,{x,0.2,1.5},{v,0.2,2},PlotLegendsPlaced[{"λ<λc","λ=λc","λ>λc"},{0.8,0.5}],PlotLabelStyle["γ=1.0",Blue,20],AspectRatioAutomatic,AxesLabel{x,v},LabelStyleDirective[Black,Bold];​​
In[]:=
%9
Out[]=
In[]:=
p3=ContourPlotv^22+
1.01
1.01-1
0.7
vx^2
^(1.01-1)-11x,v^22+
1.01
1.01-1
1.092
vx^2
^(1.01-1)-11x,v^22+
1.01
1.01-1
1.3
vx^2
^(1.01-1)-11x,{x,0.2,2},{v,0.2,2.5},PlotLegendsPlaced[{"λ<λc","λ=λc","λ>λc"},{0.8,0.5}],PlotLabelStyle["γ=1.01",Blue,20],AspectRatioAutomatic;​​
In[]:=
%12
Out[]=
In[]:=
p5=ContourPlotv^22+
1
4./3.-1
0.3
vx^2
^(4/3.-1)-11x,v^22+
1
4./3.-1
1
2
vx^2
^(4/3.-1)-11x,v^22+
1
4./3.-1
1.3
vx^2
^(4/3.-1)-11x,{x,0.01,1.8},{v,0.2,3},PlotLegendsPlaced[{"λ<λc","λ=λc","λ>λc"},{0.8,0.3}],PlotLabelStyle["γ=4/3",Blue,20],AspectRatioAutomatic;​​
In[]:=
%7
Out[]=