I'm trying to plot two functions (X1 and X2) in a single plot as shown in the example
X1 = 1.3335698177171183`*^8 a^2 - 3.636178913116437`*^8 a b +
3.280532719877099`*^8 b^2
X2 = 2.5163488578437388`*^8 Abs[a]^2
Panel[Show[
ContourPlot[X1, {a, 0.014, 0.018}, {b, 0.003, 0.012},
Contours -> 15, ContourShading -> None, ContourLabels -> {All, 50},
BaseStyle -> {FontSize -> 18}],
ContourPlot[X2, {a, 0.008, 0.025}, {b, 0, 0.15}, Contours -> 48,
ContourShading -> None, ContourLabels -> All,
ContourStyle -> Dotted],
FrameLabel -> {Style[
"\!\(\*SubsuperscriptBox[\(C\), \(\[Phi]l\), \
\(23\)]\)/\!\(\*SuperscriptBox[\(\[CapitalLambda]\), \(2\)]\)", 20,
Bold], Style[
"\!\(\*SubsuperscriptBox[\(C\), \(ll\), \
\(23\)]\)/\!\(\*SuperscriptBox[\(\[CapitalLambda]\), \(2\)]\)", 20,
Bold]}, FrameTicksStyle -> Directive[FontSize -> 22]]]
and the output is here
But I want to have something like this which is visually appealing and also easy to understand the allowed/discarded region on the plot.
Can anybody help me in getting this ? Thanks.
I've used the code provided by @MassDefect according to my need
leg = LineLegend[{Black, Dashed, Dashing[{0.02, 0.02, 0.008, 0.02}],
Dashing[{0.03,
0.03}]}, {"BR(Z\[Rule]\[Mu]\[Tau])=\!\(\*SuperscriptBox[\(10\), \
\(-13\)]\)",
"BR(Z\[Rule]\[Mu]\[Tau])=\!\(\*SuperscriptBox[\(10\), \(-11\)]\)",
"BR(Z\[Rule]\[Mu]\[Tau])=\!\(\*SuperscriptBox[\(10\), \(-9\)]\)",
"BR(Z\[Rule]\[Mu]\[Tau])=\!\(\*SuperscriptBox[\(10\), \
\(-7\)]\)"}, LabelStyle -> Directive[Bold, 8],
LegendFunction -> (Framed[#1, Background -> White,
FrameMargins -> 3, FrameStyle -> AbsoluteThickness[2],
RoundingRadius -> 2] &)];
Show[ContourPlot[X1, {a, 1*^-6, 0.1}, {b, 1*^-6, 0.1},
Contours -> {5000},
ContourShading -> {None, Lighter@Lighter@ColorData[97][1]},
ContourStyle -> None,
FrameLabel -> {Style[
"\!\(\*SubsuperscriptBox[\(C\), \(\[Phi]l\), \
\(13\)]\)/\!\(\*SuperscriptBox[\(\[CapitalLambda]\), \(2\)]\)", 20,
Bold], Style[
"\!\(\*SubsuperscriptBox[\(C\), \(ll\), \
\(13\)]\)/\!\(\*SuperscriptBox[\(\[CapitalLambda]\), \(2\)]\)", 20,
Bold]}, FrameStyle -> Directive[Black, AbsoluteThickness[1]],
ImageSize -> 400, LabelStyle -> Directive[Bold, 14],
PlotPoints -> 100, PlotRange -> Full, PlotRangePadding -> None,
ScalingFunctions -> {"Log10", "Log10"},
Epilog -> {Inset[leg, Scaled[{0.015, 0.975}], {-1, 1}]}],
ContourPlot[X1, {a, 1*^-6, 0.1}, {b, 1*^-6, 0.1},
ContourShading -> None,
ContourStyle ->
Thread[Directive[
AbsoluteThickness[1.5], {Black, Dashed,
Dashing[{0.02, 0.02, 0.008, 0.02}], Dashing[{0.03, 0.03}]}]],
ScalingFunctions -> {"Log10", "Log10"}],
RegionPlot[X1 > Br\[Tau]3\[Mu], {a, 1*^-6, 0.1}, {b, 1*^-6, 0.1}]]
with
Br\[Tau]3\[Mu] = 2.1*10^-8
Tried this simple code
Show[ContourPlot[X1, {a, 1*^-6, 0.02}, {b, 1*^-6, 0.02},
Contours -> {5*10^-2, 5, 5*10^2, 5*10^3}, ContourLabels -> True,
ContourShading -> {None, Lighter@Lighter@ColorData[97][1]}],
RegionPlot[X1 > Br\[Tau]3\[Mu], {a, 1*^-6, 0.1}, {b, 1*^-6, 0.1}]]
to incorporate the RegionPlot
, but it doesn't seem to be compatible with ScalingFunction
Inset
documentation. $\endgroup$