kill(all)$ f[i,j]:=sin(x)^(i/j)/cos(x)^(i);

F:genmatrix(f,3,3);

assume(a>0)$
assume(b>0)$
assume(a>b)$
assume(a>%pi/2)$
assume(b>%pi/2)$

M[1,1];

M:integrate(F,x,a,b)$

M;

N:ev(M,a=2,b=3);

fpprintprec:3;

NN:float(abs(N));

g[i,j]:=if numberp(NN[i,j]) then NN[i,j] else 0;

P:genmatrix(g,3,3);

load(draw);

describe(image);

imageP:image(P,0,0,10,10);

wxdraw2d(imageP);