WOLFRAM

Wolfram 语言与系统参考资料中心

自动间断处理

求一个微分方程间断的解：
Wolfram Language code: sol = NDSolve[{y'[t] == 15 / 4 - Floor[y[t]] + DiracDelta[t - 2], y[0] == .1}, y, {t, 0, 6}];
绘制解和其导数的图形：
Wolfram Language code: Plot[Evaluate[{y[t], y'[t]} /. sol], {t, 0, 6}, PlotLegends -> {"y(t)", "y'(t)"}]