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

步驟 1

vi[t_] = Sin[t];
vr[t_] = Abs[vi[t]]//PiecewiseExpand[#, t∈Reals]&;
Plot[{vi[t], vr[t]}, {t, 0, 16}]

輸出

-Graphics-

步驟 2

system = {vo'[t] == charging[t]vr'[t] - (1 - charging[t])vo[t] / (r c), vo[0] == 0};
control = {charging[0] == 1, WhenEvent[vr'[t] < 0, charging[t] -> 0], WhenEvent[And[vo[t] < vr[t], charging[t] == 0, vr'[t] > 0], charging[t] -> 1]};

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

步驟 3

pars = {r -> 0.1, c -> 1000};
sol = NDSolve[{system, control} /. pars, vo, {t, 0, 16}, DiscreteVariables -> charging∈{0, 1}];

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

步驟 4

Plot[{vo[t] /. sol, vr[t]}, {t, 0, 16}]

輸出

-Graphics-

在 Qurak 上執行所有操作範例

AC-to-DC full-wave rectifier

使用到的函式

相關的操作範例