怎么用Mathematica在一个坐标是里同时绘多个图

xiaoxing5

例如函数F（x，y），怎么使用命令在同一个坐标系里绘制y=1，y=2，y=3，F（x）的函数。并在图中用不同的颜色表示，并说明那种颜色是哪个图。求大神指点！！
, c  y: A: \6 H8 I% z急急急。。。。在线等。。。。。

xiaoxing5

百度搜索，有网友这么解决的http://hi.baidu.com/zhidao200808/item/9fdc1efc61bdcbc8531c26aa，但是本人试过以后还是只画出了其中一个，也没有错误提示，求解答

xiaoxing5

问题已在小木虫上解决，如下
9 i) Y6 h, M4 M% ~0 t! S2 x8 lPlot函数可以有这样的形式的：
3 r) _; N' ?( j+ D$ P; F/ ZPlot[{f1,f2,....},{x,x_min,x_max]}]
也就是说可以对同一自变量的多个函数进行绘图，所有曲线是在一张图（也就是你说的同一坐标系）里画出来的。
: a" I2 i6 h, s3 t  H+ X" ^所以，你一开始要求的画y=1，y=2，y=3，F（x）的图，用我以前说的那个是可以的。
再说你第二帖所说的函数，其中a是个变量，x是自变量。就是关于不同的a画多条曲线吧？
按照同样的逻辑，程序写成这样的：
  N5 ?3 N8 o, P6 ey = a x^2 + 2 a Sin[x] - 5
Plot[{y /. a -> 1, y /. a -> 2, y /. a -> 3, y /. a -> 4,
% b0 g& a: i, u* B0 j: R  h1 t  y /. a -> 5}, {x, -3, 3}]
看下效果是不是你要的？
注：由于本人目前没有上传图片的权限，在此就不能把显示效果展示给各位看了，再次再次向小木虫的网友mshwangg表示感谢

joy81890

- V' g5 M6 U  r3 X' L$ V

xiaoxing5

joy81890 发表于 2013-3-27 19:43

F = p1*(p2 + p3 + p4 - p5);
3 f! ]& \: N) T. K. c' wPlot[{F /. f -> 0.35, F /. f -> 0.40,
  k! B" B. ]) N- l7 C    F /. f -> 0.45}, {x, -0.001, 0.001}, PlotLegends -> LineLegend[{
/ z% X) d" |1 u      Red, Green, Blue}, {"y=1", "y=3", "y=
; ^! K/ }5 k- D7 V! }# Z    2"}, LegendFunction -> "Panel", LegendMarkerSize -> {{10, 8}}],
      AxesLabel -> {"x", "光 强I"}, PlotStyle -> {Red, Blue, Greenn}];
0 w; u4 n8 M  u  B% J0 E
- }: `5 t0 z8 X, E! D, k为什么我的程序画不出要想要的图呢？以上是最后画图命令。LegendMarkerSize -> {{10, 8}}这句话是什么意思呢？下面是错误提示

) {* C- l/ t/ x/ E2 e3 TUnknown option PlotLegends in \[LeftSkeleton]1\[RightSkeleton]

joy81890

xiaoxing5 发表于 2013-3-28 19:07
6 r/ Y0 q0 m  I( C) `9 m6 q' F% Y/ y) kF = p1*(p2 + p3 + p4 - p5);
' \6 v+ e' a$ Q: V' z. |; |) k8 }Plot[{F /. f -> 0.35, F /. f -> 0.40,
. ]& t# `6 B: c# P    F /. f -> 0.45}, {x, -0.0 ...

可能因为你用的是Mathematica 9 以下的版本，那样的话，就改为:
$ T; M. r- h& c0 R- [Plot[{1, 2, 3}, {x, -0.5, 3}, PlotRange -> {0, 3.5},  PlotLegends -> {"y=1", "y=2", "y=3"}, Ticks -> {{}, {1, 2, 3}},  AxesLabel -> {"x", "y"}]
' z9 l& ~8 I5 i/ W7 c
# F; m- D5 K3 I8 v: h1 x
. {4 P: J2 N" d8 W/ n, W  b- R% g
# b+ g6 @& l. P有多种方法绘这个图，但这个是我能想到的最简单的，最常规的方法。“LegendMarkerSize -> {{10, 8}}” 是定义图例（Plot Legends Panel)）大小。

joy81890

4 j  @- h- K9 [7 k4 p
那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
# w; j. D9 {. {% V8 x, n
/ M9 j7 t" A# O+ V0 rPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegends -> {"y=1", "y=2", "y=3"}, PlotRange -> {0, 3.5},  Ticks -> {{}, {1, 2, 3}},  AxesLabel -> {"x", "y"}]


( y' E9 i0 D5 R( o8 k0 h" m
, t# o% O  q! t" K( h& J: \
+ B1 o! |( ^, `# e0 g2 H9 }$ ~: }”LegendMarkerSize -> {{10, 8}}“是定义图例（Plot Legends Panel）大小。

xiaoxing5

joy81890 发表于 2013-3-29 08:08
; T/ I! ~1 d  q" q+ H那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
4 k+ ~6 D8 D/ [: v
# t! x7 x$ ^3 \; XPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

. }" L0 A  L: X6 R5 U( E9 ^我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
非常感谢热心您的帮助

xiaoxing5

joy81890 发表于 2013-3-29 08:08
那可能是因为你用的是Mathematica 9 以下的版本，那就改为：

4 U  g2 H1 j7 ZPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
# z* |' p6 D1 j非常感谢热心您的帮助