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

xiaoxing5

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

xiaoxing5

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

xiaoxing5

问题已在小木虫上解决，如下
! B6 n' B( j* D: G3 PPlot函数可以有这样的形式的：
+ ^9 O2 w1 C" t# {  o. q! yPlot[{f1,f2,....},{x,x_min,x_max]}]
. `6 `" U  F- x/ s+ P也就是说可以对同一自变量的多个函数进行绘图，所有曲线是在一张图（也就是你说的同一坐标系）里画出来的。
所以，你一开始要求的画y=1，y=2，y=3，F（x）的图，用我以前说的那个是可以的。
再说你第二帖所说的函数，其中a是个变量，x是自变量。就是关于不同的a画多条曲线吧？
) \7 Z7 k- W) ~6 P按照同样的逻辑，程序写成这样的：
y = a x^2 + 2 a Sin[x] - 5
8 Z0 f0 p; H1 w/ g# zPlot[{y /. a -> 1, y /. a -> 2, y /. a -> 3, y /. a -> 4,
  y /. a -> 5}, {x, -3, 3}]
- \0 j; f7 l; A9 o0 Z9 |看下效果是不是你要的？
注：由于本人目前没有上传图片的权限，在此就不能把显示效果展示给各位看了，再次再次向小木虫的网友mshwangg表示感谢

joy81890

  z% L0 f6 j) b. I% o+ ]1 t

xiaoxing5

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

8 ]" {3 G! T; e: {; ^7 Y" ?F = p1*(p2 + p3 + p4 - p5);
6 K! s9 M- Q, W2 S3 B! N( @, GPlot[{F /. f -> 0.35, F /. f -> 0.40,
) a+ K) v( d$ i4 F. h8 |    F /. f -> 0.45}, {x, -0.001, 0.001}, PlotLegends -> LineLegend[{
      Red, Green, Blue}, {"y=1", "y=3", "y=
1 K" @+ D6 K" {# B! _% m/ M4 E9 O    2"}, LegendFunction -> "Panel", LegendMarkerSize -> {{10, 8}}],
0 c6 o3 Z* F( b$ q' ^      AxesLabel -> {"x", "光 强I"}, PlotStyle -> {Red, Blue, Greenn}];

, H# w) {9 N9 p: t8 `为什么我的程序画不出要想要的图呢？以上是最后画图命令。LegendMarkerSize -> {{10, 8}}这句话是什么意思呢？下面是错误提示

Unknown option PlotLegends in \[LeftSkeleton]1\[RightSkeleton]

joy81890

xiaoxing5 发表于 2013-3-28 19:07
# c4 [' X8 ]% EF = p1*(p2 + p3 + p4 - p5);
/ d$ r& i  ]& H% s+ N! o& \Plot[{F /. f -> 0.35, F /. f -> 0.40,
+ f5 }% [8 s- I  z' @8 W6 j2 z    F /. f -> 0.45}, {x, -0.0 ...

可能因为你用的是Mathematica 9 以下的版本，那样的话，就改为:
: l4 m; Z4 k0 A- W) ^( `8 ]& NPlot[{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 W0 B6 s* r. a- W9 C8 W; G' [) B# ]
有多种方法绘这个图，但这个是我能想到的最简单的，最常规的方法。“LegendMarkerSize -> {{10, 8}}” 是定义图例（Plot Legends Panel)）大小。

joy81890

1 I- l8 j- e3 V8 k那可能是因为你用的是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"}]
) {5 P4 S: ~$ O0 X* U+ v7 a+ }- e

# k8 D9 n; i0 }5 e7 H' v
1 m" |" E/ }7 F3 `5 `" X
/ f+ Q! B0 S7 p. M3 W" P# k”LegendMarkerSize -> {{10, 8}}“是定义图例（Plot Legends Panel）大小。

xiaoxing5

joy81890 发表于 2013-3-29 08:08
! S* P" O# S9 D8 G那可能是因为你用的是Mathematica 9 以下的版本，那就改为：

: `2 b. N* e) y3 [8 NPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

3 K) j7 J; X# n0 W8 X我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
非常感谢热心您的帮助

xiaoxing5

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

2 t' r1 y: R; Q) k" e9 xPlot[{1, 2, 3}, {x, -0.5, 3}, PlotLegend ...

# l, u9 p5 |5 n! M- I  E6 K我用的是5.0，可能是我用的版本太低的缘故吧，系统一直提示不能识别操作。
非常感谢热心您的帮助