Calabi-Yau matrix


with(linalg);
read `/mn/gilgamesj/u6/einara/Maple/pfaffer.txt`;
#for i from 1 to 7 do;
# p[i]:=sort(simplify(pffunc(N,subs(i=NULL,{1,2,3,4,5,6,7}))));
#od;
CYpfaff:=proc(poly,matrix)
 local i,j;
 for i from 1 to CYdimen do
  poly[i]:=sort(simplify(pffunc(matrix,subs(i=NULL,{seq(j,j=1..CYdimen)}))));
 od;
 RETURN([seq(poly[i],i=1..CYdimen)]);
end;
CYdim:=proc(dimen)
 global P,M,N,CYdimen;
 local i,j;
 CYdimen:=dimen;
 M:=array(1..dimen,1..dimen);
 for i from 1 to dimen do;
  for j from 1 to dimen do;
   M[i,j]:=x[i+j-2 mod CYdimen]*y[i-j mod CYdimen];
  od;
 od;
 N:=subs({y[0]=0,seq(y[dimen-j]=-y[j],j=1..floor((dimen-1)/2))},evalm(M));
 if modp(dimen,2)=0 then N:=subs(y[dimen/2]=0,eval(N)) fi;
 CYdimen:=dimen;
 RETURN([seq(x[i],i=0..dimen-1)]);
end;
CYdim(7);


Tilbake til hjemmesiden

Created 23 February 1996 by Einar Andreas Rødland: einara@math.uio.no