"THE EFFICIENT SOLUTION OF THE SCHRODINGER EQUATION" - читать интересную книгу автора (Simons)

dq1:=diff(dq1, $4);
dq1:=diff(dq1, $3);
dq1:=diff(dq1, $2);
dq1:=diff(dq1, $1);
dq1:=subs( =w,dq1);
dq1:=subs( =w,dq1);
dq1:=subs( =w,dq1);
dq1:=subs( =w,dq1);
dq1:=subs( =w,dq1);
dq1:=combine(dq1);
q1:=combine(dq1/den);
%
% Calculation of the coefficient .
%
matt0:=array(1..5,1..5,[[par10,par60,par30,par40,par50],[par11,par61,par31,par41,par
51], [par12,par62,par32,par42,par52], [par13,par63,par33,par43,par53], [par14,par64,
par34,par44,par54]]);
dt0=det(matt0);
dt0:=diff(dt0, $4);
dt0:=diff(dt0, $3);
dt0:=diff(dt0, $2);
dt0:=diff(dt0, $1);
dt0:=subs( =w,dt0);
dt0:=subs( =w,dt0);
dt0:=subs( =w,dt0);
dt0:=subs( =w,dt0);
dt0:=subs( =w,dt0);
dt0:=combine(dt0);
t0:=combine(dt0/den);
%
% Calculation of the coefficient .
%
matt1:=array(1..5,1..5,[[par10,par20,par60,par40,par50],[par11,par21,par61,par41,par
51], [par12,par22,par62,par42,par52], [par13,par23,par63,par43,par53], [par14,par24,
par64,par44,par54]]);
dt1=det(matt1);
dt1:=diff(dt1, $4);
dt1:=diff(dt1, $3);
dt1:=diff(dt1, $2);
dt1:=diff(dt1, $1);
dt1:=subs( =w,dt1);
dt1:=subs( =w,dt1);
dt1:=subs( =w,dt1);
dt1:=subs( =w,dt1);
dt1:=subs( =w,dt1);
dt1:=combine(dt1);
t1:=combine(dt1/den);
%
% Calculation of the coefficient .
%