Qurak

D solve initial and boundary value problems nonlinear ivps and bvps

Bài học 12 bước, chạy theo thứ tự trong một phiên. Từng bước đều được thực thi trên bộ máy và đầu ra bên dưới là những gì nó tạo ra.

Bước 1
LogisticEquation = y'[t] == r(1 - (y[t] / K)) * y[t];

Không có đầu ra - bước này chuẩn bị cho bước kế tiếp.

Bước 2
DSolve[LogisticEquation, y, t]
Đầu ra
{{y -> Function[{t}, C[1]/E^Integrate[-(r*(1 - y[t]/K)), t]]}}
Bước 3
DSolve[{LogisticEquation /. {r -> (1 / 2), K -> 4}, y[0] == 1}, y, t]
Đầu ra
{{y -> Function[{t}, E^(Integrate[(-1 - -1/4*y[0])/2, 0] - Integrate[(-1 - -1/4*y[t])/2, t])]}}
Bước 4
sol = DSolve[{LogisticEquation, y[0] == a * K}, y, t]
Đầu ra
{{y -> Function[{t}, a*E^(Integrate[-(r*(1 - y[0]/K)), 0] - Integrate[-(r*(1 - y[t]/K)), t])*K]}}
Bước 5
{LogisticEquation, y[0]} /. sol[[1]]//Simplify
Đầu ra
{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}
Bước 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]
Đầu ra
-Graphics-
Bước 7
eqn  = y''[x]  - (1 / 2) * (y'[x] ^ 2 / y[x])  + 1 / (2 * y[x]) == 0;

Không có đầu ra - bước này chuẩn bị cho bước kế tiếp.

Bước 8
sol = DSolve[{eqn, y[0] == 1, y'[0] == 2}, y, x]
Đầu ra
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]
Bước 9
{eqn, y[0], y'[0]} /. sol[[1]]//Simplify
Đầu ra
{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}
Bước 10
generalsolution = DSolve[{y''[x] / 2 == y[x] ^ 3 - y[x]}, y[x], x]
Đầu ra
DSolve[{Derivative[2][y][x]/2 == -y[x] + y[x]^3}, y[x], x]
Bước 11
(sol = DSolve[{y''[x] / 2 == y[x] ^ 3 - y[x], y[0] == 0, y'[Infinity] == 0}, y[x], x] )//Quiet
Đầu ra
DSolve[{Derivative[2][y][x]/2 == -y[x] + y[x]^3, y[0] == 0, Derivative[1][y][Infinity] == 0}, y[x], x]
Bước 12
Plot[{y[x] /. sol[[2]], 1}, {x, -2, 2}, PlotRange -> All]
Đầu ra
-Graphics-

Các hàm được dùng

Công thức liên quan

Tất cả công thức · Tài liệu tham chiếu hàm · Dùng cái này từ một client MCP