read "everything.txt":
read "func_file.txt":
read "algo24.txt":
read "funcarith.txt":
read "setfuncs.txt":


Digits:=20;
lvl:=4;
phatlvl:=8;

inpath:="../data/";
outpath:="../data/";

numeigens:=(3^(lvl+1) - 3)/2;
print("lambda file= ");
print(cat(inpath,lvl,"lambdalist.txt"));
fd:=fopen(cat(inpath,lvl,"lambdalist.txt"), READ);

for i from 1 to numeigens do
	lambda:=fscanf(fd,"%g\n")[1];
	readFunc(T,12,cat(inpath,lvl,"eigen.",i));
	if (lambda=6) then 
		if (phatlvl > lvl) then
			fixedeps:=[1,op(makeEpsilons(phatlvl - lvl -1))];
			newAlgoWrapper(T,lvl,12,lambda,fixedeps);
		end if;
	else 	newAlgoWrapper(T,lvl,12,lambda,makeEpsilons(phatlvl - lvl));
	end if;
	saveFunc(T,12,phatlvl,cat(outpath,phatlvl,"phat",lvl,"eigen.",i));
end do;

fclose(fd);