Plot 在Mathematica中,在文本中(具有特定位置)绘制
我有一个图,在图的每一块中我画出不同的方程。使用文本,我想为方程的每一部分写一个小符号。Plot 在Mathematica中,在文本中(具有特定位置)绘制,plot,text,wolfram-mathematica,mathematica-8,Plot,Text,Wolfram Mathematica,Mathematica 8,我有一个图,在图的每一块中我画出不同的方程。使用文本,我想为方程的每一部分写一个小符号。Text函数不产生结果。还有没有办法指定文本的坐标?例如,我希望读取的文本Eqn 1(见下文)位于(0,0.5) 这是我的密码: Pars = {ep -> 0.5, f1p -> 0.3, f2p -> 0.1, dp -> 0.05, q -> 0.1, en -> 0.4, d -> 0.1, Q -> 0.1, f2n -> 0.3, f1
Text
函数不产生结果。还有没有办法指定文本的坐标?例如,我希望读取的文本Eqn 1
(见下文)位于(0,0.5)
这是我的密码:
Pars = {ep -> 0.5, f1p -> 0.3, f2p -> 0.1, dp -> 0.05, q -> 0.1,
en -> 0.4, d -> 0.1, Q -> 0.1, f2n -> 0.3, f1n -> 0.4, a -> 0.05,
N1 -> 0.5, N2 -> 0.5}; #Parameters
PlotREq1 =
Plot[R = S /. Pars, {S, 0, 0.9375},
PlotRange -> {{0, 3.5}, {0, 2}}, PlotStyle -> {Red, Thick, Dashed},Text[Eqn1]];
PlotREq2 =
Plot[R = (a + d)/(en f1n) /. Pars, {S, 0.9375, 1.4375},
PlotRange -> {{0, 3.5}, {0, 2}}, PlotStyle -> {Green, Thick, Dashed}, Text[Eqn2]];
PlotREq3 =
Plot[R = ((a + d) (f1p - f2p))/(en (f1p f2n - f1n f2p)) /. Pars, {S,
1.4375, 2.3}, PlotRange -> {{0, 3.5}, {0, 2}},
PlotStyle -> {Blue, Thick, Dashed}, Text[Eqn3]];
Show[PlotREq1, PlotREq2, PlotREq3]
Show[PlotREq1, PlotREq2, PlotREq3,
Epilog -> {
Inset[Framed[Style["Eqn 1", 14], Background -> White, FrameStyle -> None], {0.5, 0.5}],
Inset[Style["Eqn 2", 14], {1.18, 1.05}],
Inset[Style["Eqn 3", 14], {1.9, 1.6}]}]