I'm just going to paste the Octave code right here. Hope that's OK.

This is code to display the current state of the perceptron, displaying the true separating line, the current hypothesis and all the points. Wrongly classified points are big; rightly classified points are little. Optionally, you can specify the new hypothesis and the currently selected misclassified point, and then they too will be displayed.

When I call this function, I put a pause statement afterwards, so I can step through the algorithm watching it move the hypothesis line and reclassify all the points.

For some reason I'm getting a divide by zero warning for the statements with && in them. I ignore it.

Code:

function draw_percept(points,hypothesis, predictions, true_line, target, bad, new_h)
# points (number of points, weights) is the data points. the bias weight is LAST
# hypothesis is the hypothesis. bias term is LAST.
# predictions(1, N) is what the hypothesis predicts for the points.
# true_line is the true separating line. bias term is LAST
# target is the correct classifications for the points
# bad is optional; it's the misclassified point
# new_h is optional; it's the new hypothesis
[hypx hypy] = pts_from_hypothesis(hypothesis);
[truex truey] = pts_from_hypothesis(true_line);
rightly_on = find(predictions == target & predictions == 1);
wrongly_on = find(predictions != target & predictions ==1);
rightly_off = find(predictions == target & predictions == -1);
wrongly_off = find(predictions!= target & predictions == -1);
hold off;
# if we are displaying old & new hypotheses,
# display true line, old hypothesis, new hypothesis
if nargin >6
[newx newy] = pts_from_hypothesis(new_h);
plot(hypx, hypy, 'r', truex, truey,'g',newx, newy,':b');
legend("old hypothesis red", "true line green", "new hypothesis blue", "location", "southeast");
else
# otherwise plot the hypothesis & real line
plot(hypx, hypy, 'r', truex, truey,'g');
legend("old hypothesis", "new hypothesis", "location", "southeast");
end
axis([-1 1 -1 1]);
hold on;
title("Perceptron");
# plot the points
scatter(points(rightly_on, 1),points(rightly_on, 2), 'g');
hold on;
scatter(points(rightly_off, 1),points(rightly_off, 2), 'b');
hold on;
scatter(points(wrongly_on, 1),points(wrongly_on, 2),15, 'r');
hold on;
scatter(points(wrongly_off, 1),points(wrongly_off, 2),15, 'c');
# if we're displaying the selected bad point, display it
if nargin >3
hold on;
scatter(bad(1), bad(2), 20, 'b');
end
end
function [xs ys] = pts_from_hypothesis(hypothesis)
# hypothesis is a, b, c where line is ax + by + c> 0
# so y = -(a/b)x - c/b
# and x =-(b/a)y - c/a
# we need to find the the intercepts for y=-1, x=-1, y=1 and
# x = 1. Two of those points will be in the [-1,1],[-1,1] box
a = hypothesis(1);
b = hypothesis(2);
c= hypothesis(3);
xm1int = (b-c)/a;
ym1int = (a-c)/b;
x1int = (-b-c)/a;
y1int = (-a-c)/b;
xs = [-1 1 xm1int x1int];
ys = [ym1int y1int -1 1];
end