Digits:=20;
read "SG_FEM/everything.txt":
read "algo24.txt":
read "funcarith.txt":
read "setfuncs.txt":

T:=gasket(7):
setfuncsNewMethod(T,lambdas,startlevels);

for level from 2 to 7 do

for i from 12 to 13 do
	algo24Wrapper(T,i,startlevels[i],lambdas[i],makeEpsilons(level-2)):
end do;
printf("level=%d\n",level);
for i from 12 to 13 do
	for j from i to 13 do
		ip:=discInnerProduct(T,level,i,j):
		#print(ip);
		printf("(%d,%d)=%20.20g\n",i,j,ip):
	end do;
end do;

end do;