read "itall.txt";

lvl:=4;
numeigs:=(3^(lvl+1)-3)/2;
path:=cat("../data/level",lvl,"/");
tol:=0.00000001;

Digits:=1000;

fd:=fopen(cat(path,lvl,"biglambdalist.txt"),READ);
fe:=fopen(cat(path,lvl,"limlambdalist.txt"),WRITE);
ff:=fopen(cat(path,lvl,"lambdalist.txt"),READ);


for i from 1 to numeigs do
	lambda:=fscanf(ff,"%g\n")[1];
	fac:=((fscanf(fd,"%g\n")[1])/lambda);
	if (lambda=6) then lambda:=makeLambda(6,[1]); print("at 6"); print(lambda);fac:=5*fac; end if;
	d:=lambdaLimit(lambda,tol);
	lambda:=d[1];
	print(cat("count is ",d[2]));
	lambda:=lambda*fac;
	fprintf(fe,"%20.20g\n",lambda);
end do;

fclose(fd);
fclose(fe);
fclose(ff);