>>593
下記の通りです。Ver4.2です。

y2=1/Sqrt[2 Pi] Integrate[t^4 Exp[-t^2] Exp[-I w t],{t,-Infinity,Infinity}]

General::stop: 計算中，Series::esssのこれ以上の出力は表示されません．
SeriesData::argbu: SeriesDataは1つの引数で呼ばれました．3個と6個の間の引数が想定されています．

If[Im[w] == 0, ((1/16)*Sqrt[Pi]*(12 - 12*w^2 + w^4))/E^(w^2/4), Integrate[E^(-t^2 - I*t*w)*t^4, {t, -Infinity, Infinity}]]/Sqrt[2*Pi]