plot - 在 Mathematica 中使用“填充”功能时如何更改边缘线颜色？

Question

在 Mathematica 中使用填充功能时，我想改变边缘线的样式，使其具有 a) 与填充/无边缘线相同的颜色 b) 它将被另一条曲线下方/覆盖填充作为边缘线。

当前的填充代码如下：

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

编辑：我已经调整了我的第二个问题（现在标记为粗体），因为在第一个版本中不清楚并插入了一个带有“剩余”问题的屏幕截图

Answer 1

这里 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}]]