level 2
LogPlot[{(3 b^2)/(8 \[Pi]) x^(2 n) - (3 (b^((4/3))) (n^((4/3))) )/(
2^(14/3) \[Pi]^(4/3) a^(1/3)) x^((4 (n - 1))/3) /. {a ->
2.638*10^13, b -> 1.063*10^-6,
n -> 0.15}, (3 b^2)/(8 \[Pi]) x^(2 n) - (
3 (b^((4/3))) (n^((4/3))) )/(2^(14/3) \[Pi]^(4/3) a^(1/3)) x^((
4 (n - 1))/3) /. {a -> 3.737*10^13, b -> 1.018*10^-6,
n -> 0.15}, (3 b^2)/(8 \[Pi]) x^(2 n) - (
3 (b^((4/3))) (n^((4/3))) )/(2^(14/3) \[Pi]^(4/3) a^(1/3)) x^((
4 (n - 1))/3) /. {a -> 5.15*10^13, b -> 9.78*10^-7,
n -> 0.15}}, {x, 0, 10^10},
PlotStyle -> {{Dashing[Large], Black}, {Blue}, {DotDashed, Red}},
PlotLegends ->
Placed[LineLegend[{Style["N=55", Italic], Style["N=60", Italic],
Style["N=65", Italic]},
LegendFunction -> (Panel[#, ImageSize -> {78, 60}] &),
LegendMargins -> 0], {0.8, 0.3}], Frame -> True,
FrameLabel -> {Style[TraditionalForm[\[Phi]/Subscript[m, p]], Bold,
Italic, FontFamily -> "Arial", ScriptBaselineShifts -> {1, 0}],
Rotate[
Style["V/\!\(\*SuperscriptBox[SubscriptBox[\(m\), \(p\)], \
\(4\)]\)", Bold, Italic, FontFamily -> "Arial"], 0]}]
2023年05月23日 15点05分
