Digits:=10;

read "SG_FEM/everything.txt":
read "algo24.txt":
read "setfuncs.txt":
read "func_file.txt":
read "domatrix.txt":

complevel := 8;

T:=gasket(complevel);

for i from 12 to 23 do 
  readFunc(T,i,cat("output/psi",complevel,".",i));
end do;
print("read functions...");
ver:=makeMatrixVers(2); 
print("made Vers....");
m:=makeMatrix(T,2,ver);
print(m);
saveMatr(m,12,12,"output/psimatrix12");
mi:=evalf(inverse(m),20);
saveMatr(mi,12,12,"output/psimatrix12inverse");
print(mi);