\\ Testing arank.gp

\r arank.gp

print(" ");

\\ curves=[[0,-1,1,0,0],\
\\	[0,0,1,-1,0],\
\\	[0,1,1,-2,0],\
\\	[0,0,1,-7,6]];
\\ for(i=1,4,ellarank(ellinit(curves[i])));

c(t)=[0,0,0,-t*t,t*t*t*t];
curves=vector(100,i,c(i));
for(i=1,100,ellarank(ellinit(curves[i])));