function r=isdiscrt(f)
% isdiscrt(f)  returns 1 if function is discrete
if f(1,1)==1
   r=1;
else
   r=0;
end