fox:matrix([0,3^(3/2)/4,2,3^(3/2)/2,pi],[0,1/2,1/sqrt(2),sqrt(3)/2,1],[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],[0,1/2,1/sqrt(2),sqrt(3)/2,1],[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]);

float(determinant(%));