نموونە 5 هەنگاو، بە ڕیز لە یەک دانیشتندا جێبەجێ دەبن. هەموو هەنگاوێک بەرامبەر بزوێنەرەکە جێبەجێ کراوە و دەرئەنجامی خوارەوە ئەوەیە کە دەریکردووە.
system = {vo'[t] == -vo[t] / (r c) + i[t] / c , i'[t] == -vo[t] / l + q[t]vi / l, vo[0] == 0, i[0] == 0};بێ دەرئەنجام - ئەم هەنگاوە شتێک بۆ هەنگاوی داهاتوو ئامادە دەکات.
control = {q[0] == 1, WhenEvent[Mod[t, τ] == (vd / vi)τ, q[t] -> 0], WhenEvent[Mod[t, τ] == 0, q[t] -> 1]};بێ دەرئەنجام - ئەم هەنگاوە شتێک بۆ هەنگاوی داهاتوو ئامادە دەکات.
pars = {vi -> 24, vd -> 16, r -> 22, l -> 2 10 ^ -2, c -> 4 10 ^ -6, τ -> 2 10 ^ -4};بێ دەرئەنجام - ئەم هەنگاوە شتێک بۆ هەنگاوی داهاتوو ئامادە دەکات.
sol = NDSolve[{system, control} /. pars, {vo, i, q}, {t, 0, .01}, DiscreteVariables -> q, MaxSteps -> Infinity];بێ دەرئەنجام - ئەم هەنگاوە شتێک بۆ هەنگاوی داهاتوو ئامادە دەکات.
Row[{Plot[{vo[t] /. sol, vd /. pars}, {t, 0, .01}, PlotRange -> All, PlotLegends -> {"vo(t)", "vd"}], Spacer[50], Plot[q[t] /. sol, {t, 0, .001}, AxesLabel -> {t, q[t]}]}]-Graphics-Spacer[50]-Graphics-هەموو ڕەچەتەکان · سەرچاوەی فەنکشنەکان · ئەمە لە کڵایەنتێکی MCP ەوە بەکاربهێنە