Wolfram Language

Partielle Differentialgleichungen

Lösen Sie ein SturmLiouville-Problem für die Airy-Gleichung

Lösen Sie ein Eigenwertproblem für die Airy-Gleichung.

In[1]:=
Click for copyable input
eqns = {-y''[x] + x y[x] == \[Lambda] y[x], y[0] == 0, y[1] == 0};
In[2]:=
Click for copyable input
sol = DSolveValue[eqns, y[x], x, Assumptions -> 1 < \[Lambda] < 300];

Führen Sie die Eigenwerte des Problems an.

In[3]:=
Click for copyable input
eigvals = {ToRules[sol[[1, 1, 2]]]}
Out[3]=

Find the eigenfunctions for this problem.

In[4]:=
Click for copyable input
eigfuns = (sol[[1, 1, 1]] /. {C[1] -> 1})
Out[4]=

Plotten Sie die Eigenfunktionsen des Bereichs .

In[5]:=
Click for copyable input
Plot[Evaluate[eigfuns /. eigvals], {x, 0, 1}]
Out[5]=

Verwandte Beispiele

en es fr ja ko pt-br ru zh