Hello,
I have been plotting some contour plots with plot legends. Contours are ok, but legend bar is not showing the upper and lower limits as shown in the pic attached. I want to know the maximum and minimum value of the legend bar.
ClearAll["Global`*"];
da = 1;
re = 1;
Derivative[1][Subscript[p, 0]][s] = 1;
\[Lambda] = 1;
\[Beta] = ArcSin[\[Lambda]/Sqrt[1 + \[Lambda]^2] ];
u = da re (-(1/3)
r^2 \[Epsilon]^2 \[Lambda] Cos[\[Zeta]] Sin[\[Zeta]] +
5/6 r^3 \[Epsilon]^3 \[Lambda] Cos[\[Zeta]] Sin[\[Zeta]]^2) \
Derivative[1][Subscript[p, 0]][s];
v = da re (Cos[\[Beta]] -
1/2 \[Epsilon]^2 Cos[\[Beta]] (-r^2 + r^2 Cos[2 \[Zeta]]) +
1/3 r^2 \[Epsilon]^2 \[Lambda] Cos[\[Zeta]]^2 Sin[\[Beta]] -
r \[Epsilon] Cos[\[Beta]] Sin[\[Zeta]] -
5/6 r^3 \[Epsilon]^3 \[Lambda] Cos[\[Zeta]]^2 Sin[\[Beta]] Sin[\
\[Zeta]] - r^3 \[Epsilon]^3 Cos[\[Beta]] Sin[\[Zeta]]^3) Derivative[
1][Subscript[p, 0]][s];
w = da re (1/
3 r^2 \[Epsilon]^2 \[Lambda] Cos[\[Beta]] Cos[\[Zeta]]^2 -
Sin[\[Beta]] +
1/2 \[Epsilon]^2 (-r^2 + r^2 Cos[2 \[Zeta]]) Sin[\[Beta]] -
5/6 r^3 \[Epsilon]^3 \[Lambda] Cos[\[Beta]] Cos[\[Zeta]]^2 Sin[\
\[Zeta]] + r \[Epsilon] Sin[\[Beta]] Sin[\[Zeta]] +
r^3 \[Epsilon]^3 Sin[\[Beta]] Sin[\[Zeta]]^3) Derivative[1][
Subscript[p, 0]][s];
V = Sqrt[u^2 + v^2 + w^2];
Table[Rotate[
ContourPlot[
{V} /. {r -> Norm[{x, y}], \[Zeta] -> ArcTan[x, y]}, {x, -1,
1}, {y, -1, 1},
RegionFunction -> (Norm[{#, #2}] <= 1 &),
Frame -> False,
ContourShading -> Automatic,
ColorFunction -> "Rainbow",
PlotLegends -> Automatic,
Axes -> False,
Contours -> 30
], 0 Degree],
{\[Epsilon], 0.1, 0.3, 0.1}
]
