function intervs1(a1,b1,a2,b2)
%
% plotta il rettangolo
%
%      *--------------* (b1,b2)
%      !              !
%      !              !
%  (a1,a2)------------*

plot([a1,b1],[a2,a2],'--'),hold on
plot([a1,a1],[a2,b2],'--')
plot([a1,b1],[b2,b2],'--')
plot([b1,b1],[a2,b2],'--');hold off
