Question: verifying solutions of tan(x)=x

so i need to check that these solutions are in fact solutions. they are obviously very close but i can't get the boolean output to be "true".

eqn1:=tan(x)=x;
N:=10;
soln_array:=Array(1..N):
for m from 1 to N do
this_soln:=fsolve( eqn1 , x=(m-1/2)*Pi..(m+1/2)*Pi );
soln_array[m]:=[this_soln, tan(this_soln)];
end do:
soln_array;
for m from 1 to N do
this_soln:=fsolve( eqn1 , x=(m-1/2)*Pi..(m+1/2)*Pi );
evalb(simplify(tan(this_soln)-this_soln)=0);
end do;

the difference between x and tan(x) is tiny in each case but its preventing my evalb from being true!

any ideas?

thanks a lot.

 

Please Wait...