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

foxdet:determinant(fox);

float(solve(foxdet,pi));

graf:foxdet;

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],[1,1/2,(sqrt(2)-1)/sqrt(2),(2-sqrt(3))/2,0],[2,3/2,(2^(3/2)-1)/sqrt(2),(4-sqrt(3))/2,1],[0,27/16,4,27/4,%pi^2],[16,27,32,36,4*%pi^2]);

determinant(matrix([0,1.299038105676658,2,2.598076211353316,3.141592653589793],[1,0.5,0.29289321881345,0.13397459621556,0],[2,1.5,1.292893218813453,1.133974596215561,1],[0,1.6875,4,6.75,9.869604401089358],[16,27,32,36,39.47841760435743]));