Qurak

D solve initial and boundary value problems nonlinear ivps and bvps

Tutorial 12 langkah, dijalankan berurutan dalam satu sesi. Setiap langkah dieksekusi pada mesin dan keluaran di bawah adalah apa yang dihasilkannya.

Langkah 1
LogisticEquation = y'[t] == r(1 - (y[t] / K)) * y[t];

Tanpa keluaran - langkah ini menyiapkan sesuatu untuk langkah berikutnya.

Langkah 2
DSolve[LogisticEquation, y, t]
Keluaran
{{y -> Function[{t}, C[1]/E^Integrate[-(r*(1 - y[t]/K)), t]]}}
Langkah 3
DSolve[{LogisticEquation /. {r -> (1 / 2), K -> 4}, y[0] == 1}, y, t]
Keluaran
{{y -> Function[{t}, E^(Integrate[(-1 - -1/4*y[0])/2, 0] - Integrate[(-1 - -1/4*y[t])/2, t])]}}
Langkah 4
sol = DSolve[{LogisticEquation, y[0] == a * K}, y, t]
Keluaran
{{y -> Function[{t}, a*E^(Integrate[-(r*(1 - y[0]/K)), 0] - Integrate[-(r*(1 - y[t]/K)), t])*K]}}
Langkah 5
{LogisticEquation, y[0]} /. sol[[1]]//Simplify
Keluaran
{Derivative[1][Function[{t}, a*E^(Integrate[-(r*(1 - y[0]/K)), 0] - Integrate[-(r*(1 - y[t]/K)), t])*K]][t] == -(a^2*E^(2*Integrate[-(r*(1 - y[0]/K)), 0] - 2*Integrate[-(r*(1 - y[t]/K)), t])*K*r) + a*E^(Integrate[-(r*(1 - y[0]/K)), 0] - Integrate[-(r*(1 - y[t]/K)), t])*K*r, a*K}
Langkah 6
Plot[Evaluate[Table[y[t] /. sol[[1]] /. {K -> 4, a -> i, r -> (1 / 3)}, {i, 2, 1 / 10, -1 / 3}]], {t, 0, 8}, PlotRange -> All]
Keluaran
-Graphics-
Langkah 7
eqn  = y''[x]  - (1 / 2) * (y'[x] ^ 2 / y[x])  + 1 / (2 * y[x]) == 0;

Tanpa keluaran - langkah ini menyiapkan sesuatu untuk langkah berikutnya.

Langkah 8
sol = DSolve[{eqn, y[0] == 1, y'[0] == 2}, y, x]
Keluaran
DSolve[{1/(2*y[x]) - Derivative[1][y][x]^2/(2*y[x]) + Derivative[2][y][x] == 0, y[0] == 1, Derivative[1][y][0] == 2}, y, x]
Langkah 9
{eqn, y[0], y'[0]} /. sol[[1]]//Simplify
Keluaran
{1/(2*y[x]) - Derivative[1][y][x]^2/(2*y[x]) + Derivative[2][y][x] == 0, y[0], Derivative[1][y][0]} /. {1/(2*y[x]) - Derivative[1][y][x]^2/(2*y[x]) + Derivative[2][y][x] == 0, y[0] == 1, Derivative[1][y][0] == 2}
Langkah 10
generalsolution = DSolve[{y''[x] / 2 == y[x] ^ 3 - y[x]}, y[x], x]
Keluaran
DSolve[{Derivative[2][y][x]/2 == -y[x] + y[x]^3}, y[x], x]
Langkah 11
(sol = DSolve[{y''[x] / 2 == y[x] ^ 3 - y[x], y[0] == 0, y'[Infinity] == 0}, y[x], x] )//Quiet
Keluaran
DSolve[{Derivative[2][y][x]/2 == -y[x] + y[x]^3, y[0] == 0, Derivative[1][y][Infinity] == 0}, y[x], x]
Langkah 12
Plot[{y[x] /. sol[[2]], 1}, {x, -2, 2}, PlotRange -> All]
Keluaran
-Graphics-

Fungsi yang dipakai

Resep terkait

Semua resep · Referensi fungsi · Pakai ini dari klien MCP