Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mccme.ru/ium/f99/pggpage/skdv1.htm
Дата изменения: Thu Jul 31 19:15:44 2003
Дата индексирования: Sat Dec 22 11:16:22 2007
Кодировка:
SKDV.htm

If you prefer web-pages with frames, click here.

> with(plots):with(linalg):

> A:=matrix(2,2):

> A[1,1]:=1+exp(2*kappa1*x+2*kappa1^3*t+2*theta1)/(2*kappa1):

> A[2,2]:=1+exp(2*kappa2*x+2*kappa2^3*t+2*theta2)/(2*kappa2):

> A[1,2]:=exp((kappa1+kappa2)*x+(kappa1^3+kappa2^3)*t+theta1+theta2)/(kappa1+kappa2):

> A[2,1]:=A[1,2]:

> print(A);

[Maple Math]

> u:=simplify(-2*diff(log(det(A)),x,x));

[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]

> simplify(diff(u,t)-1/4*diff(u,x,x,x)+3/2*diff(u,x)*u);

0

>