Match curve styles

範例共 2 個步驟，在同一個工作階段中依序執行。每一步都在引擎上實際執行過，下方的輸出就是它產生的結果。

步驟 1

styles = Sequence@@{ImageSize -> 400, Filling -> Axis, FillingStyle -> Opacity[0.1], PlotRange -> {0.01, All}, AxesOrigin -> {-0.01, 0.01}, PlotStyle -> (Directive[AbsoluteThickness[5], #]& /@ ColorData[68, "ColorList"])};

沒有輸出——這個步驟是在為下一步做準備。

步驟 2

Plot[Table[Sqrt[Cos[t]] Exp[-x Sin[t] ^ 4], {x, {1, 10, 100, 1000, 10000}}]//Evaluate, {t, 0, Pi / 2}, Evaluate@styles, PlotLegends -> LineLegend[{1, 10, 100, 1000, 10000}, LegendMarkerSize -> {30, 10}, LegendLabel -> x, LabelStyle -> {GrayLevel[0.3], Bold, 16}]]

輸出

-Graphics-

在 Qurak 上執行所有操作範例

使用到的函式

AbsoluteThickness ColorData Cos Directive Exp GrayLevel LineLegend Opacity Plot Sin Sqrt Table

Match curve styles

使用到的函式

相關的操作範例