fox:matrix([0,3^(3/2)/4,2,3^(3/2)/2,pi],[0,1/2,1/sqrt(2),sqrt(3)/2,1],[1,1/2,(sqrt(2)-1)/sqrt(2),(2-sqrt(3))/2,0],[0,27/16,4,27/4,pi^2],[16,27,32,36,4*pi^2]);

foxdet:determinant(fox);

float(solve(foxdet,pi));

graf:-(3^(3/2)*(-(8*(2-sqrt(3))*pi^2-9*pi^2)/sqrt(2)+(sqrt(3)*(2^(7/2)*(sqrt(2)-1)*pi^2-16*pi^2))/2+32*(2-sqrt(3))-27*(sqrt(2)-1)*2^(3/2)+72))/4+2*
(-(8*(2-sqrt(3))*pi^2-9*pi^2)/2-(49*sqrt(3)*pi^2)/8+(27*(2-sqrt(3)))/2+135/2)-(3^(3/2)*(-(2^(7/2)*(sqrt(2)-1)*pi^2-16*pi^2)/2-(49*pi^2)/2^(5/2)+(27*(sqrt(2)-1))/sqrt(2)+22))/2+
(-((-(27*(sqrt(2)-1))/sqrt(2)-22)*sqrt(3))/2+(-(27*(2-sqrt(3)))/2-135/2)/sqrt(2)-(-32*(2-sqrt(3))+27*2^(3/2)*(sqrt(2)-1)-72)/2)*pi;

wxplot2d([graf], [pi,-5,5])$

find_root(graf, pi, -1, 4);

float(solve(graf),pi);

tlimit(graf, pi,0);

float(tlimit(graf, pi, 0));

if numer#false then numer:false else numer:true;

matrix([0,3^(3/2)/4,2,3^(3/2)/2,%pi],[0,1/2,1/sqrt(2),sqrt(3)/2,1],[1,1/2,(sqrt(2)-1)/sqrt(2),(2-sqrt(3))/2,0],[0,27/16,4,27/4,%pi^2],[16,27,32,36,4*%pi^2]);

float(determinant(%));