Solución de un problema de Sturm–Liouville para la ecuación de Airy
Resuelva un problema de valores propios para la ecuación de Airy.
In[1]:=

eqns = {-y''[x] + x y[x] == \[Lambda] y[x], y[0] == 0, y[1] == 0};
In[2]:=

sol = DSolveValue[eqns, y[x], x, Assumptions -> 1 < \[Lambda] < 300];
Cree una lista de los valores propios para el problema.
In[3]:=

eigvals = {ToRules[sol[[1, 1, 2]]]}
Out[3]=

Encuentre las funciones propias para este problema.
In[4]:=

eigfuns = (sol[[1, 1, 1]] /. {C[1] -> 1})
Out[4]=

Represente gráficamente las funciones propias para el rango de .
In[5]:=

Plot[Evaluate[eigfuns /. eigvals], {x, 0, 1}]
Out[5]=
