Wolfram Language

Calcul numérique et symbolique

Résolvez un problème de valeur initiale en utilisant la fonction de Solve Green

Résolvez un problème de valeur initiale pour une équation différentielle inhomogène en utilisant GreenFunction.

En premier lieu, calculez la fonction de Green.

In[1]:=
Click for copyable input
gf[s_, t_] = GreenFunction[{-u''[t] + u'[t] - 37/4 u[t], u[0] == 0, u'[0] == 0}, u[t], {t, 0, \[Infinity]}, s]
Out[1]=

Définissez une fonction de forçage.

In[2]:=
Click for copyable input
f[t_] := Cos[a t]

Avec la convolution de la fonction de Green Avec la fonction de forçage on obtient la solution.

In[3]:=
Click for copyable input
sol = Integrate[gf[s, t] f[s], {s, 0, \[Infinity]}, Assumptions -> t > 0]
Out[3]=

Comparez avec le résultat donné par DSolveValue.

In[4]:=
Click for copyable input
DSolveValue[{-u''[t] + u'[t] - 37/4 u[t] == f[t], u[0] == 0, u'[0] == 0}, u[t], t] // FullSimplify
Out[4]=

Tracez la solution pour différentes valeurs du paramètre .

In[5]:=
Click for copyable input
Plot[Table[sol, {a, 1, 4, 0.8}] // Evaluate, {t, 3, 6}]
Out[5]=

Exemples connexes

de en es ja ko pt-br ru zh