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

xiaoxing5

例如函数F（x，y），怎么使用命令在同一个坐标系里绘制y=1，y=2，y=3，F（x）的函数。并在图中用不同的颜色表示，并说明那种颜色是哪个图。求大神指点！！
; i/ D5 G& b* f. n3 Q急急急。。。。在线等。。。。。

xiaoxing5

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

xiaoxing5

问题已在小木虫上解决，如下
& X& s1 U9 S# K/ m; f9 ZPlot函数可以有这样的形式的：
Plot[{f1,f2,....},{x,x_min,x_max]}]
2 E% v  L) J4 ~0 C7 m也就是说可以对同一自变量的多个函数进行绘图，所有曲线是在一张图（也就是你说的同一坐标系）里画出来的。
. ~% ?( G3 d, O) @所以，你一开始要求的画y=1，y=2，y=3，F（x）的图，用我以前说的那个是可以的。
/ }& E0 w. v: z$ }$ \再说你第二帖所说的函数，其中a是个变量，x是自变量。就是关于不同的a画多条曲线吧？
按照同样的逻辑，程序写成这样的：
" Z0 U; p4 i5 Cy = a x^2 + 2 a Sin[x] - 5
Plot[{y /. a -> 1, y /. a -> 2, y /. a -> 3, y /. a -> 4,
- [1 H# Y1 ~3 L1 p4 J2 Y  y /. a -> 5}, {x, -3, 3}]
看下效果是不是你要的？
注：由于本人目前没有上传图片的权限，在此就不能把显示效果展示给各位看了，再次再次向小木虫的网友mshwangg表示感谢

joy81890

* s& `! y7 z- E

xiaoxing5

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

F = 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[{
      Red, Green, Blue}, {"y=1", "y=3", "y=
( V2 y' Q: a2 O. H    2"}, LegendFunction -> "Panel", LegendMarkerSize -> {{10, 8}}],
2 Q; q  m( ]6 ~+ b8 [1 g      AxesLabel -> {"x", "光 强I"}, PlotStyle -> {Red, Blue, Greenn}];
4 t3 B7 i; u! H/ w) M
为什么我的程序画不出要想要的图呢？以上是最后画图命令。LegendMarkerSize -> {{10, 8}}这句话是什么意思呢？下面是错误提示
$ \8 W. l1 r# K4 g( M
! I# N9 f5 I8 @: P; y! K2 u0 ^Unknown option PlotLegends in \[LeftSkeleton]1\[RightSkeleton]

joy81890

xiaoxing5 发表于 2013-3-28 19:07
F = p1*(p2 + p3 + p4 - p5);
# @4 {. G& j6 i& O6 y: b# Q2 tPlot[{F /. f -> 0.35, F /. f -> 0.40,
    F /. f -> 0.45}, {x, -0.0 ...

' r- `- H; r( \8 H% N2 g4 T" J5 u, [可能因为你用的是Mathematica 9 以下的版本，那样的话，就改为:
2 h6 i  ~0 P+ a# ~: t- |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"}]

0 \+ a  B8 d( d! r3 N% V
  r" S: ?7 \4 L3 _  A5 ~
有多种方法绘这个图，但这个是我能想到的最简单的，最常规的方法。“LegendMarkerSize -> {{10, 8}}” 是定义图例（Plot Legends Panel)）大小。

joy81890

那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
* ^/ D, n. i7 N4 s3 e, [( P% m
+ }" q+ b/ p& M$ p- m  O2 iPlot[{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"}]
  }4 R/ I) Y( X* u8 f/ F
7 a8 u. d/ f% H
8 E4 q9 O& X7 X( C5 h
' O9 e5 y, r  R9 t
& I9 a8 \$ [% r: D* z: h”LegendMarkerSize -> {{10, 8}}“是定义图例（Plot Legends Panel）大小。

xiaoxing5

joy81890 发表于 2013-3-29 08:08
7 I- Y% F  K: G6 Y. k那可能是因为你用的是Mathematica 9 以下的版本，那就改为：
& r: o; ]) X9 T+ [: E" }
Plot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

5 c. j" {- L5 A/ K( N我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
* r) v* k/ Z+ u5 ~7 {! |7 s非常感谢热心您的帮助

xiaoxing5

joy81890 发表于 2013-3-29 08:08
( a; u5 U9 m3 P# z那可能是因为你用的是Mathematica 9 以下的版本，那就改为：

Plot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

6 V' o" \- v6 E6 s! E, o我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
- L- Q$ S8 P1 }) T2 R& f* j3 w非常感谢热心您的帮助