Qurak

Solve a differential equation

ハウツー 12 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。

ステップ 1
DSolve[y'[x] == x, y[x], x]
出力
{{y[x] -> x^2/2 + C[1]}}
ステップ 2
solution = DSolve[y'[x] == x, y[x], x]
出力
{{y[x] -> x^2/2 + C[1]}}
ステップ 3
f[x_] = y[x] /. solution[[1]]
出力
x^2/2 + C[1]
ステップ 4
f[4]
出力
8 + C[1]
ステップ 5
DSolve[{y''[x] == y[x], y[0] == 1, y'[0] == 1}, y[x], x]
出力
{{y[x] -> E^x}}
ステップ 6
DSolve[y''[x] == y[x], y[x], x]
出力
{{y[x] -> E^x*C[1] + C[2]/E^x}}
ステップ 7
DSolve[{y'[x] == z[x], z'[x] == -y[x], y[0] == 0, z[0] == 1}, {y[x], z[x]}, x]
出力
DSolve[{Derivative[1][y][x] == z[x], Derivative[1][z][x] == -y[x], y[0] == 0, z[0] == 1}, {y[x], z[x]}, x]
ステップ 8
DSolve[{x'[s] == Cos[t[s]], y'[s] == Sin[t[s]], t'[s] == s, x[0] == 0, y[0] == 0, t[0] == 0}, {x[s], y[s], t[s]}, s]
出力
DSolve[{Derivative[1][x][s] == Cos[t[s]], Derivative[1][y][s] == Sin[t[s]], Derivative[1][t][s] == s, x[0] == 0, y[0] == 0, t[0] == 0}, {x[s], y[s], t[s]}, s]
ステップ 9
solution  = DSolve[{y''[x] == y[x], y'[0] == 0}, y[x], x]
出力
{{y[x] -> E^x*C[1] + C[2]/E^x}}
ステップ 10
g[x_] = y[x] /. solution[[1]]
出力
E^x*C[1] + C[2]/E^x
ステップ 11
t[x_] = Table[g[x] /. C[1] -> j, {j, 1, 10}]
出力
{E^x + C[2]/E^x, 2*E^x + C[2]/E^x, 3*E^x + C[2]/E^x, 4*E^x + C[2]/E^x, 5*E^x + C[2]/E^x, 6*E^x + C[2]/E^x, 7*E^x + C[2]/E^x, 8*E^x + C[2]/E^x, 9*E^x + C[2]/E^x, 10*E^x + C[2]/E^x}
ステップ 12
Plot[t[x], {x, -2, 2}]
出力
-Graphics-

使用する関数

関連レシピ

すべてのレシピ · 関数リファレンス · MCPクライアントから使う