Документ взят из кэша поисковой машины. Адрес оригинального документа : http://tex.bog.msu.ru/numtask/vector.txt Дата изменения: Mon Dec 5 09:37:04 2005 Дата индексирования: Mon Oct 1 19:39:29 2012 Кодировка:

writefile("ts1.out");
g(n,m):=f(n,m-1)*sqrt((n+m)*(n-m+1));
a(x):=sinh(x);
b:w*f(8,-4)-(3/7)*f(11,3);
d:0;
for i:0 step 1 while not(is(numberp(b))) do
(
e:diff(a(x), x, i),
e:e/(i!),
e:ev(e,x=0),
d:(d+e*b),
b:subst(g,f,b),
b:ev(b,g)
);

print(d);

closefile();
quit();