%I#3 2012年3月30日17:34:26

%S-1,0、-2,4,0、-8,0,36,0、-48、-48,0384,0、-384,0，-1200,0480,0，-3840，

%电话1440,0，-25920,069120,0，-46080,070560,0，-564480,01128960,0，-645120，

%U-80640,02580480,0、-12902400,020643840,0、-10321920,0、-6531840,087091200,0、-313528320,0418037760,0和-185794560

%N泊松核展开系数的三角序列：p（t，r）=（1-r^2）/（1-2*r*Cos（t）+r^2；Cos（t）->x。

%C行总和：

%C{-1，-2，-4，-12，-48，-240，-1440，-10080，-80640，-725760，-7257700}

%D Kenneth Hoffman，分析函数的Banach空间，多佛，纽约，1962年，第30页

%D Thomas McCullough和Keith Phillips，《复杂平面分析基础》，霍尔特、莱因哈特和温斯顿，纽约，1973年，215

%F p（t，r）=（1-r^2）/（1-2*r*Cos（t）+r^2）：r->t；Cos（t）->x.p（t，x）=总和（p（x，n）&t^n/n！，{n，0，无限}]；输出n，m=n*系数（P（x，n））。

%e{-1}，

%e{0，-2}，

%e{4,0，-8}，

%e{0，36，0，-48}，

%e{-48，0，384，0，-384}，

%e{0，-1200，0，4800，0，-3840}，

%电子邮箱{1440,0，-25920,0,69120,0，-46080}，

%电子邮箱{070560，0，-564480，0，1128960，0和-645120}，

%电子邮箱{-80640、0、2580480、0、-12902400、0、20643840、0，-10321920}，

%电子邮箱{0，-6531840，087091200，0，-313528320，0，418037760，0，-185794560}，{7257600，0，-362880000，0，2903040000，0

%t清除[p，f，g]p[t]=-（1-t^2）/（1-2*t*x+t^2；表[ExpandAll[n！*SeriesCoefficient[Series[p[t]，{t，0，30}]，n]]，{n，0，10}]；a=表[系数列表[n！*SeriesCoefficient[FullSimplify[Series[p[t]，{t，0，30}]]，n]，x]，{n，0，10}]；压扁[a]

%K编辑、表格、签名

%O 1,3

%A _Roger L.Bagula，2008年4月23日