function ising_plot ( spin )

up = find ( spin == +1 );
down = find ( spin == -1);

plot ( x(down), y(down), 'ro', x(up), y(up), 'bo' )