Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mce.biophys.msu.ru/archive/doc61260/doc.pdf Дата изменения: Thu Nov 26 16:59:10 2009 Дата индексирования: Mon Oct 1 22:50:02 2012 Кодировка:

MAPLE 8 . ., . ., . . () , 140402, , . , . , .408, .: 8(496)615-16-47, 618-16-72, -mail: kimgoukolomna@mail.ru

( x) - K ( x, t ) (t )dt = f ( x) ,
0

1

K ( x, t ) ­ . n 1 ( x) - K ( x, x j ) ( x j ) = f ( x) + . j =1 n n ­ [0; 1]; x j ­ , j- ; ­ , . , aple 8, Exel MathCad. ,

( x) - K ( x, t ) (t )dt = 1
0

1

n=20 h=0.05; x j . : > # xi > x[1]:=0.025; for i from 2 to 20 do x[i]:=x[i-1]+0.05 end do; # > with(linalg): A:=matrix(20,20,1); for i from 1 to 20 do for j from 1 to 20 do a[i,j]:=simplify(subs(x=x[i],t=x[j],K(x,t))); if i=j then A[i,j]:=1-a[i,j]/20 else A[i,j]:=-a[i,j]/20 end if end do end do; A; # - > B:=matrix(20,1,1); # = >X:=linsolve(A,B); ( x1 ),..., ( x n ) .