/entrega3/main.m

 1clear all;
 2clc;
 3
 4delete('salida.csv');
 5delete('mapa.csv');
 6Train = csvread('Segment_Train.csv');
 7Test = csvread('Segment_Test.csv');
 8
 9% %%Parametros
10fil_ocultas = 9;
11col_ocultas = 9;
12vecinas = 4;
13ITE_MAX = 1000;
14alfa = 0.05;
15beta = 0.1;
16% %%
17
18for i = 1:10
19    [RTrain RTest] = realizar_corrida(Train, Test, fil_ocultas, col_ocultas, vecinas, ITE_MAX, alfa, beta);
20    dlmwrite('salida.csv',[RTrain RTest],'delimiter','\t','-append');
21end
22
23%No son linealmente separables%
24% R = verificar_linealmente_separable(Train, 3);
25% R
26% R = verificar_linealmente_separable(Train, 4);
27% R
28% R = verificar_linealmente_separable(Train, 5);
29% R
30% 
31% %Son linealmente sep%
32% R = verificar_linealmente_separable(Train, 1);
33% R
34% R = verificar_linealmente_separable(Train, 2);
35% R
36% R = verificar_linealmente_separable(Train, 6);
37% R
38% R = verificar_linealmente_separable(Train, 7);
39% R