examp5_22.m

来自「东北大学 薛定谔的高等应用数学问题MATLAB求解的源代码」· M 代码 · 共 7 行

syms z; f=1/(z*sin(z));
c0=limit(f*z^2,z,0)

k=[-4 4 -3 3 -2 2 -1 1]; c=[];
for kk=k; c=[c,limit(f*(z-kk*pi),z,kk*pi)]; end; c