エアリー方程式のスツルム・リウヴィル型問題を解く
エアリー(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];問題の固有値をリストにする．
In[3]:=
eigvals = {ToRules[sol[[1, 1, 2]]]}Out[3]=
この問題の固有関数を求める．
In[4]:=
eigfuns = (sol[[1, 1, 1]] /. {C[1] -> 1})Out[4]=
の範囲で固有関数をプロットする．
In[5]:=
Plot[Evaluate[eigfuns /. eigvals], {x, 0, 1}]Out[5]=
