level 1
寡言慎行2
楼主




自己输入的代码是这样的In[6]:= \[Psi][\[Xi]] = E^(-\[Xi]^2/2) H[\[Xi]];
H[\[Xi], Subscript[a, \[Nu]]] =
Sum[Subscript[a, \[Nu]] \[Xi]^\[Nu], {\[Nu], 0, \[Infinity]}];
\[Psi][\[Xi]]
Out[8]= E^(-(\[Xi]^2/2)) H[\[Xi]]
In[9]:= \[Psi]'[\[Xi]] = D[E^(-(\[Xi]^2/2)) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(
\*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\), \[Xi]]
Out[9]= E^(-(\[Xi]^2/2)) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] =
0\), \(\[Infinity]\)]\(\[Nu]\
\*SuperscriptBox[\(\[Xi]\), \(\(-1\) + \[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\) - E^(-(\[Xi]^2/2)) \[Xi] \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(
\*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\)
In[10]:= \[Psi]''[\[Xi]] = D[E^(-(\[Xi]^2/2)) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(
\*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\), {\[Xi], 2}]
Out[10]= -2 E^(-(\[Xi]^2/2)) \[Xi] \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] =
0\), \(\[Infinity]\)]\(\[Nu]\
\*SuperscriptBox[\(\[Xi]\), \(\(-1\) + \[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\) + (-E^(-(\[Xi]^2/2)) +
E^(-(\[Xi]^2/2)) \[Xi]^2) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(
\*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\) + E^(-(\[Xi]^2/2)) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] =
0\), \(\[Infinity]\)]\(\[Nu]\ \((\(-
\*SuperscriptBox[\(\[Xi]\), \(\(-2\) + \[Nu]\)]\) + \[Nu]\
\*SuperscriptBox[\(\[Xi]\), \(\(-2\) + \[Nu]\)])\)\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\)
In[13]:= eq2 = \[Lambda] \[Psi][\[Xi]] - \[Xi]^2 \[Psi][\[Xi]] + (\
\[Psi]^\[Prime]\[Prime])[\[Xi]]/\[Alpha]^2 == 0 // Simplify // Expand
Out[13]= E^(-(\[Xi]^2/2)) \[Lambda] H[\[Xi]] -
E^(-(\[Xi]^2/2)) \[Xi]^2 H[\[Xi]] - (2 E^(-(\[Xi]^2/2)) \[Xi] \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] =
0\), \(\[Infinity]\)]\(\[Nu]\
\*SuperscriptBox[\(\[Xi]\), \(\(-1\) + \[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\))/\[Alpha]^2 - (
E^(-(\[Xi]^2/2)) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(
\*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\))/\[Alpha]^2 + (
E^(-(\[Xi]^2/2)) \[Xi]^2 \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(
\*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\))/\[Alpha]^2 + (
E^(-(\[Xi]^2/2)) \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] =
0\), \(\[Infinity]\)]\(\[Nu]\ \((\(-
\*SuperscriptBox[\(\[Xi]\), \(\(-2\) + \[Nu]\)]\) + \[Nu]\
\*SuperscriptBox[\(\[Xi]\), \(\(-2\) + \[Nu]\)])\)\
\*SubscriptBox[\(a\), \(\[Nu]\)]\)\))/\[Alpha]^2 == 0
好像不可以上传附件,所以我传到了百度云盘
链接:百度网盘
提取码:math
复制这段内容后打开百度网盘手机App,操作更方便哦





