generadatos.m

Diversos ejemplos sobre la aplicacion de algoritmos geneticos.

function [orig,w]= generadatos(K2,m)

% K2: number of data;
% m; slope of the line
global K1 K2

% se generan datos linealmente separables
clf

[orig,slope]=datasepf(K2,m);   % slope is the slope of separating plane
% that has the formula:  y = slope*x + 0.5*(1-slope)

[Km,Kn]=size(orig);
M=Kn-1;  % number of inputs
K0=sum([orig(:,Kn)==-1]);  K1=Km-K0;  K2=K0+K1;% # of targets = 0 and 1

 % slope is the slope of separating plane
% that has the formula:  y = slope*x + 0.5*(1-slope)
% g(x) = 0.5(1-m)+mx-y=w(1) + w(2)*x + w(3)*y 
w = [0.5*(1-slope) slope -1];

figure(1)
subplot(1,2,2),plot(orig(1:K1,1),orig(1:K1,2),'*',orig(K1+1:K2,1),orig(K1+1:K2,2),'o')
axis('square');grid
v=axis;
[lx,ly]=sline(w,v);
subplot(1,2,1),plot(orig(1:K1,1),orig(1:K1,2),'*',...
    orig(K1+1:K2,1),orig(K1+1:K2,2),'o',lx,ly)
axis('square');grid
title('separating hyperplane')

orig = orig';
% w = [slope -1 0.5*(1-slope)]';

w = w';