i=0:.1:1;
plot(0,0,'*')
hold
plot(0,1,'*')
plot(1,1,'*')
plot(1,0,'*')
first=1;
for j=1:40
   if w(j,2)~=0
      m=-w(j,1)/w(j,2);
      x2=m*i-w(j,3)*ones(1,11)/w(j,2);
      plot(i,x2);
      if first
         first=0;
         gtext(num2str(j));
         mm=m;
         teta=w(j,3);
      else
         if (m~=mm)|(teta~=w(j,3))
            gtext(num2str(j));
            mm=m;
            teta=w(j,3);
         end
      end
   end   
end