Hkhkhkh

Integrante: Emerson Cáceres
Jaime Duarte
Carlos Moreno

Metodo 1

x=[-10:.5:10]';
y=-2*x-x.*x;
plot(x,y)
grid
xlabel('x');
ylabel('output');title('Metodo1')

x=[-10:.5:10]';
y=-2*x-x.*x;
plot(x,y)
grid
xlabel('x');
ylabel('output');
title('Metodo1')
data=[x y];
trndata=data(1:2:size(x),:);chkdata=data(2:2:size(x),:);
plot(trndata(:,1),trndata(:,2),'o',chkdata(:,1),chkdata(:,2),'x')
xlabel('x');
ylabel('output');
title('Measurement data');
grid

x=[-10:.5:10]';y=-2*x-x.*x;
plot(x,y)
grid
xlabel('x');
ylabel('output');
title('Metodo1')
data=[x y];
trndata=data(1:2:size(x),:);
chkdata=data(2:2:size(x),:);plot(trndata(:,1),trndata(:,2),'o',chkdata(:,1),chkdata(:,2),'x')
xlabel('x');
ylabel('output');
title('Measurement data');
grid

nu=5;
mftype='gbellmf';
fismat=genfis1(trndata, nu,mftype);
plotmf(fismat,'input',1)
xlabel('x');
ylabel('output');
title('Initial membership functions');
grid

x=[-10:.5:10]';
y=-2*x-x.*x;
plot(x,y)
gridxlabel('x');
ylabel('output');
title('Metodo1')
data=[x y];
trndata=data(1:2:size(x),:);
chkdata=data(2:2:size(x),:);plot(trndata(:,1),trndata(:,2),'o',chkdata(:,1),chkdata(:,2),'x')
xlabel('x');
ylabel('output');
title('Measurement data');
grid

nu=5;
mftype='gbellmf';
fismat=genfis1(trndata, nu, mftype);
plotmf(fismat,'input',1)xlabel('x');
ylabel('output');
title('Initial membership functions');
grid
numep=100;
[parab, trnerr, ss, parabcheck, chkerr]=anfis(trndata,fismat,numep,[], chkdata);anfi=evalfis(x,parab);
plot(trndata(:,1),trndata(:,2),'o',chkdata(:,1),chkdata(:,2),'x',x,anfi,'-')
grid
xlabel('x');ylabel('output');title('Goodness of fit')

Metodo 2