4

Mathematica で塗りつぶし関数を使用する場合、次のようにエッジ線のスタイルを変更したいと考えています 。エッジラインとして詰め物。

塗りつぶしの現在のコードは次のとおりです。

fill1 = Plot[{demand1[t1], demand1[t34]}, {t1, 0, t34}, 
Filling -> {1 -> {2}},
FillingStyle -> Directive[LightGray]];

編集：最初のバージョンでは明確ではなかったため、2番目の質問（太字でマーク）を調整し、「残りの」問題を含むスクリーンショットを挿入しました ここに画像の説明を入力

4

1 に答える 1

3

ここで、Cos＆Sinの線は塗りつぶしと同じ色で表示され、「境界線」が意味する場合は、別の線の下にあります。

Show[Plot[{Cos[x], Sin[x]}, {x, 0, 2 Pi}, Filling -> {1 -> {2}}, 
  FillingStyle -> Directive[LightGray], PlotStyle -> LightGray],
 Plot[Sech[x], {x, 0, 2 Pi}]]

ここに画像の説明を入力してください

補遺

受け入れてくれてありがとう。あなたの編集に続いて、これがより完全な答えです：

Show[Plot[{Sech[x],
   If[Sech[x] > 0.8, 0.8],
   If[Sech[x] > 0.5, 0.5],
   If[Sech[x] > 0.3, 0.3],
   If[0.5 > Sech[x] > 0.3, Sech[x]]},
  {x, 0, 2 Pi}, Filling -> {1 -> {2}, 3 -> {4}, 4 -> {5}},
  FillingStyle -> LightGray, PlotStyle -> LightGray],
 Plot[Sech[x], {x, 0, 2 Pi}, PlotStyle -> Gray],
 Plot[If[0.3 > Sech[x], Sech[x]], {x, 0, 2 Pi},
  PlotStyle -> Directive[{Thick, Black}]],
 Plot[If[0.8 > Sech[x] > 0.5, Sech[x]], {x, 0, 2 Pi},
  PlotStyle -> Directive[{Thick, Black}]],
 Map[Graphics[Style[Line[{
       {ArcSech[#], 0}, {ArcSech[#], #}}],
     Thick, Dashed, Antialiasing -> False]] &,
  {0.8, 0.5, 0.3}]]

ここに画像の説明を入力してください

于 2012-09-05T11:47:21.137 に答える