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

xiaoxing5

例如函数F（x，y），怎么使用命令在同一个坐标系里绘制y=1，y=2，y=3，F（x）的函数。并在图中用不同的颜色表示，并说明那种颜色是哪个图。求大神指点！！
* Z8 D, g% x+ E( r; R急急急。。。。在线等。。。。。

xiaoxing5

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

xiaoxing5

问题已在小木虫上解决，如下
Plot函数可以有这样的形式的：
# ?- O8 x# }# l# p6 J! _9 ZPlot[{f1,f2,....},{x,x_min,x_max]}]
也就是说可以对同一自变量的多个函数进行绘图，所有曲线是在一张图（也就是你说的同一坐标系）里画出来的。
所以，你一开始要求的画y=1，y=2，y=3，F（x）的图，用我以前说的那个是可以的。
1 C% G/ G  i/ r- [& p5 Z8 {再说你第二帖所说的函数，其中a是个变量，x是自变量。就是关于不同的a画多条曲线吧？
按照同样的逻辑，程序写成这样的：
; {' Y* D! p0 [& c% b, J# ^y = a x^2 + 2 a Sin[x] - 5
Plot[{y /. a -> 1, y /. a -> 2, y /. a -> 3, y /. a -> 4,
  y /. a -> 5}, {x, -3, 3}]
% C# H6 N: O- B9 s5 Q看下效果是不是你要的？
$ u; P' e. R9 U注：由于本人目前没有上传图片的权限，在此就不能把显示效果展示给各位看了，再次再次向小木虫的网友mshwangg表示感谢

joy81890

7 L7 D- x1 X7 A8 u  P
6 `8 {5 X; y6 l# J. Q7 C) A

xiaoxing5

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

F = p1*(p2 + p3 + p4 - p5);
Plot[{F /. f -> 0.35, F /. f -> 0.40,
$ c0 f9 h; G# z/ o. w+ D    F /. f -> 0.45}, {x, -0.001, 0.001}, PlotLegends -> LineLegend[{
$ t3 b5 |( }3 D8 r: X/ \; \; A      Red, Green, Blue}, {"y=1", "y=3", "y=
$ M, z# p: c; _- A9 w    2"}, LegendFunction -> "Panel", LegendMarkerSize -> {{10, 8}}],
      AxesLabel -> {"x", "光 强I"}, PlotStyle -> {Red, Blue, Greenn}];
: ?: X9 p* T' a1 h
为什么我的程序画不出要想要的图呢？以上是最后画图命令。LegendMarkerSize -> {{10, 8}}这句话是什么意思呢？下面是错误提示
9 V8 S1 H; V0 c2 g- d( |
Unknown option PlotLegends in \[LeftSkeleton]1\[RightSkeleton]

joy81890

xiaoxing5 发表于 2013-3-28 19:07
- ^8 k( G# \* M# pF = p1*(p2 + p3 + p4 - p5);
Plot[{F /. f -> 0.35, F /. f -> 0.40,
1 P- ]7 K+ ?6 V+ b1 z    F /. f -> 0.45}, {x, -0.0 ...

; a* Q; y9 G2 F* C7 ?9 d可能因为你用的是Mathematica 9 以下的版本，那样的话，就改为:
+ v- v  z% G% r- e: B' l+ `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"}]
6 d. [" a2 U) N& R6 x1 k+ Q
, ?- g1 e7 W  M) Q
- t+ Q/ j6 {1 T& D9 W
% x/ m! o- c) M1 y8 M$ Q有多种方法绘这个图，但这个是我能想到的最简单的，最常规的方法。“LegendMarkerSize -> {{10, 8}}” 是定义图例（Plot Legends Panel)）大小。

joy81890

* M- d0 }1 s7 \* N6 B/ X
5 O/ K0 u( t8 Z# `( N6 U/ X& W那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
/ H' n# N/ D9 l, b9 i
# t8 Z. s9 I- Z3 ZPlot[{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"}]
8 M; L* G. P* ^2 K
& t7 g. o6 X  y; m6 J9 `  x
/ Q3 U& j% v1 o$ l# N

”LegendMarkerSize -> {{10, 8}}“是定义图例（Plot Legends Panel）大小。

xiaoxing5

joy81890 发表于 2013-3-29 08:08
5 ]5 G, R- m$ k6 M7 [那可能是因为你用的是Mathematica 9 以下的版本，那就改为：

0 Y* Z7 t) e  S) c# w( YPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

4 a- q1 K' p& V+ ?+ p我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
非常感谢热心您的帮助

xiaoxing5

joy81890 发表于 2013-3-29 08:08
那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
; ]/ L: y/ K  J6 M/ Q, G3 t
Plot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

& f8 L7 [8 i2 r. @4 g我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
非常感谢热心您的帮助