Qurak

D solve initial and boundary value problems ivps with piecewise coefficients

Tutorial 15 langkah, dijalankan mengikut urutan dalam satu sesi. Setiap langkah dilaksanakan terhadap enjin dan output di bawah ialah apa yang dihasilkannya.

Langkah 1
PiecewiseExpand[UnitStep[x] + Max[x, x ^ 2]]
Output
Max[x, x^2] + UnitStep[x]
Langkah 2
DSolve[y'[x] == UnitStep[x], y, x]
Output
{{y -> Function[{x}, C[1] + Integrate[UnitStep[x], x]]}}
Langkah 3
eqn = {y'[x] == UnitStep[x], y[0] == 1};

Tiada output - langkah ini menyediakan sesuatu untuk langkah seterusnya.

Langkah 4
sol = DSolve[eqn, y, x]
Output
{{y -> Function[{x}, 1 - Integrate[1, 0] + Integrate[UnitStep[x], x]]}}
Langkah 5
Plot[y[x] /. sol, {x, -3, 3}]
Output
-Graphics-
Langkah 6
Simplify[eqn /. sol[[1]], x  > 0 || x  < 0]
Output
{Derivative[1, Function[{x}, 1 - Integrate[1, 0] + Integrate[UnitStep[x], x]], x] == UnitStep[x], True}
Langkah 7
sol = DSolve[ {y'[x] + Max[x, 1] y[x] == 0, y[0] == 1}, y[x], x ]
Output
{{y[x] -> E^(Integrate[1, 0] - Integrate[Max[1, x], x])}}
Langkah 8
Plot[y[x] /. sol, {x, -3, 3}]
Output
-Graphics-
Langkah 9
FinalSol  = DSolve[ {y'[t] == If[ t ≤ 2, y[t], -y[t] / 2], y[0] == 1}, y, t]
Output
DSolve[{Derivative[1][y][t] == If[t <= 2, y[t], -(y[t]/2)], y[0] == 1}, y, t]
Langkah 10
SolFromMinusInfinityToTwo = DSolve[{y'[t] == y[t], y[0] == 1}, y, t]
Output
{{y -> Function[{t}, E^t]}}
Langkah 11
SolFromTwoToInfinity = DSolve[{y'[t] == -y[t] / 2, y[2] == E ^ 2}, y, t]
Output
{{y -> Function[{t}, E^(3 - t/2)]}}
Langkah 12
eqn = {y''[t] + y[t] == Piecewise[{{-1, t < 0}, {1, t < 1}, {Sin[t], t < 2}}], y[0] == 1, y'[0] == 1};

Tiada output - langkah ini menyediakan sesuatu untuk langkah seterusnya.

Langkah 13
sol = DSolve[ eqn, y, t ]
Output
DSolve[{y[t] + Derivative[2][y][t] == Piecewise[{{-1, t < 0}, {1, t < 1}, {Sin[t], t < 2}}, 0], y[0] == 1, Derivative[1][y][0] == 1}, y, t]
Langkah 14
eqn = {y''[x]  - Clip[x] * y[x] == 0, y[0] == 0, y'[0] == -1};

Tiada output - langkah ini menyediakan sesuatu untuk langkah seterusnya.

Langkah 15
DSolve[eqn, y, x]
Output
DSolve[{-(Clip[x]*y[x]) + Derivative[2][y][x] == 0, y[0] == 0, Derivative[1][y][0] == -1}, y, x]

Fungsi yang digunakan

Resipi berkaitan

Semua resipi · Rujukan fungsi · Gunakan ini daripada klien MCP