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

matt2:=array(1..5,1..5,[[par10,par20,par30,par60,par50],[par11,par21,par31,par61,par
51], [par12,par22,par32,par62,par52], [par13,par23,par33,par63,par53], [par14,par24,
par34,par64,par54]]);
dt2=det(matt2);
dt2:=diff(dt2, $4);
dt2:=diff(dt2, $3);
dt2:=diff(dt2, $2);
dt2:=diff(dt2, $1);
dt2:=subs( =w,dt2);
dt2:=subs( =w,dt2);
dt2:=subs( =w,dt2);
dt2:=subs( =w,dt2);
dt2:=subs( =w,dt2);
dt2:=combine(dt2);
t2:=combine(dt2/den);
%
% Calculation of the coefficient .
%
matt3:=array(1..5,1..5,[[par10,par20,par30,par40,par60],[par11,par21,par31,par41,par
61], [par12,par22,par32,par42,par62], [par13,par23,par33,par43,par63], [par14,par24,
par34,par44,par64]]);
dt3=det(matt3);
dt3:=diff(dt3, $4);
dt3:=diff(dt3, $3);
dt3:=diff(dt3, $2);
dt3:=diff(dt3, $1);
dt3:=subs( =w,dt3);
dt3:=subs( =w,dt3);
dt3:=subs( =w,dt3);
dt3:=subs( =w,dt3);
dt3:=subs( =w,dt3);
dt3:=combine(dt3);
t3:=combine(dt3/den);



%
% Taylor series expansion of the coefficients.
%
q1t:=convert(taylor(q1,w=0,26),polynom);
t0t:=convert(taylor(t0,w=0,26),polynom);
t1t:=convert(taylor(t1,w=0,26),polynom);
t2t:=convert(taylor(t2,w=0,26),polynom);
t3t:=convert(taylor(t3,w=0,26),polynom);
%
%
% We repeat, now, the above procedure for the calculation
% of the coefficients of the methods (16)-(17)
%
%