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

xiaoxing5

例如函数F（x，y），怎么使用命令在同一个坐标系里绘制y=1，y=2，y=3，F（x）的函数。并在图中用不同的颜色表示，并说明那种颜色是哪个图。求大神指点！！
- G  w  h2 k/ U8 P3 y: \急急急。。。。在线等。。。。。

xiaoxing5

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

xiaoxing5

问题已在小木虫上解决，如下
% _! V, A4 f$ y2 _( ]Plot函数可以有这样的形式的：
( o' S- S  r1 r/ R  @9 {Plot[{f1,f2,....},{x,x_min,x_max]}]
8 P! B* ~1 y, y也就是说可以对同一自变量的多个函数进行绘图，所有曲线是在一张图（也就是你说的同一坐标系）里画出来的。
所以，你一开始要求的画y=1，y=2，y=3，F（x）的图，用我以前说的那个是可以的。
再说你第二帖所说的函数，其中a是个变量，x是自变量。就是关于不同的a画多条曲线吧？
( G. g3 x* D, C* o1 S4 a/ P% M按照同样的逻辑，程序写成这样的：
8 P$ p2 t0 x# b1 ?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}]
$ B. {, t# {5 M9 A- j& P看下效果是不是你要的？
' ?% |* }& |: Q注：由于本人目前没有上传图片的权限，在此就不能把显示效果展示给各位看了，再次再次向小木虫的网友mshwangg表示感谢

joy81890

" a+ X- C, F: m( t9 _3 m  z+ p/ [: O/ s2 j
8 q2 c7 |& R, K" U7 E6 M6 M

xiaoxing5

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

0 y* A# y) Y; h/ \/ ]. eF = p1*(p2 + p3 + p4 - p5);
Plot[{F /. f -> 0.35, F /. f -> 0.40,
    F /. f -> 0.45}, {x, -0.001, 0.001}, PlotLegends -> LineLegend[{
. X0 m  f& @8 o! K4 X      Red, Green, Blue}, {"y=1", "y=3", "y=
    2"}, LegendFunction -> "Panel", LegendMarkerSize -> {{10, 8}}],
      AxesLabel -> {"x", "光 强I"}, PlotStyle -> {Red, Blue, Greenn}];
4 `& _$ U; r+ |( z9 K/ O
  s8 G' E+ K) e为什么我的程序画不出要想要的图呢？以上是最后画图命令。LegendMarkerSize -> {{10, 8}}这句话是什么意思呢？下面是错误提示

# l& X$ F7 v( @1 q. ?6 MUnknown option PlotLegends in \[LeftSkeleton]1\[RightSkeleton]

joy81890

xiaoxing5 发表于 2013-3-28 19:07
( n8 a: ~  ~, ^: C" ZF = p1*(p2 + p3 + p4 - p5);
+ W( D" J( ?3 q/ m: p8 u; R- ZPlot[{F /. f -> 0.35, F /. f -> 0.40,
9 _; ~- ^8 D/ n/ h! U, B    F /. f -> 0.45}, {x, -0.0 ...

可能因为你用的是Mathematica 9 以下的版本，那样的话，就改为:
5 A+ U0 r; w5 x( F! W" O: gPlot[{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"}]


& m3 m! a) Y- |3 m+ T
3 Z0 x) i/ v+ D8 G1 v: B5 m有多种方法绘这个图，但这个是我能想到的最简单的，最常规的方法。“LegendMarkerSize -> {{10, 8}}” 是定义图例（Plot Legends Panel)）大小。

joy81890

$ P5 W5 s; S- a: u# _* M& p9 _& z
% ?& L: I! ?0 d那可能是因为你用的是Mathematica 9 以下的版本，那就改为：

Plot[{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"}]
! F& q) [! M; j% b! a. n* |4 ]

. D9 c# H: L/ j
" r$ q. o; M' g
, P7 [$ U* T* n# q5 B6 Y- g+ ~”LegendMarkerSize -> {{10, 8}}“是定义图例（Plot Legends Panel）大小。

xiaoxing5

joy81890 发表于 2013-3-29 08:08
. a/ V0 M0 o2 M' Q7 L0 c1 T( |那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
5 m2 r' U3 d. {) k: e5 V- j0 P7 Z
( D# y0 R2 r, F6 w+ DPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

, |9 r- W% W& E1 [我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
非常感谢热心您的帮助

xiaoxing5

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

$ O! N! V) W- u6 I9 w) d' o' B- mPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
* o1 Z! A/ v. c8 C( C. w非常感谢热心您的帮助