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

Question

在Mathematica中使用填充功能时，我想以一种方式改变边缘线的样式 a）与填充/无边缘线相同的颜色 b）它将在另一条曲线下面/覆盖，该曲线将填充框架为边线。

填写的当前代码如下：

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

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

Answer 1

这里的Cos＆amp; Sin线的颜色与填充颜色相同，它们位于另一条线下方，如果这就是'borderline'的意思。

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