3

正規分布をプロットしてから、その特定の領域をシェーディングする必要があります。現在、分布のプロットを作成し、RegionPlot でオーバーレイすることでこれを行っています。これはかなり複雑で、もっとエレガントな方法があるに違いないと確信しています。私はグーグルで検索し、ドキュメントを見ましたが、何も見つかりませんでした。私を助けてください！

Mathematica はプログラミングに数えられるのでしょうか？:D

4

2 に答える 2

5

私が考えることができる最も簡単なアプローチは、2 つのPlot関数を使用することです。1 つは陰影を付けたい範囲をプロットし、もう 1 つは範囲全体をプロットし、Fillingオプションを使用して陰影を取得します。次に、次Showのように を使用してそれらを一緒に表示します。

distFn = PDF[NormalDistribution[], x];
Show[
   {Plot[distFn, {x, -5, 5}],
    Plot[distFn, {x, -1, 1}, Filling -> {1 -> {0, Automatic}}]},
   PlotRange -> All]

まだ少し扱いに​​くい面がありますが、機能します。何度も実行すると、単一の関数に抽象化するのに十分なほど簡単になるはずです。

于 2009-11-25T16:38:48.320 に答える
2

単一の Plot ステートメントで実行することもできます。

ミュー = 4; シグマ = 3;

distFn = PDF[ NormalDistribution[μ, シグマ], x];

Plot[Evaluate[distFn* {1, Boole[mu - sigma < x < mu + sigma]}], {x, mu - 3 sigma, mu + 3 sigma}, Filling -> {2 -> Axis}]

于 2010-04-18T13:06:59.970 に答える