/entrega2/ejercicio2/main.m

http://github.com/melisabok/RedesNeuronales · Objective C · 106 lines · 88 code · 18 blank · 0 comment · 11 complexity · 9cb34a2580148f636dc0bfe9095f245e MD5 · raw file 

    

  1. clear all
    2. 

  2. clc
    3. 

  3. 

  4. datos = csvread('drug5.csv');
    5. 

  5. delete('main_tansig_tansig.csv');
    6. 

  6. delete('main_tansig_logsig.csv');
    7. 

  7. delete('main_logsig_logsig.csv');
    8. 

  8. delete('main_logsig_tansig.csv');
    9. 

  9. delete('main_tansig_purelin.csv');
    10. 

  10. delete('main_logsig_purelin.csv');
    11. 

  11. delete('main_purelin_tansig.csv');
    12. 

  12. delete('main_logsig_logsig_1.csv');
    13. 

  13. delete('main_logsig_logsig_3.csv');
    14. 

  14. delete('main_logsig_logsig_5.csv');
    15. 

  15. delete('main_logsig_logsig_7.csv');
    16. 

  16. 

  17. % Tamanio de los datos
    18. 

  18. [CantFilas, CantCols] = size(datos);
    19. 

  19. % Escalo
    20. 

  20. M = escalar(datos, 1:CantCols-1);
    21. 

  21. %Parametros
    22. 

  22. cota_error = 0.000001;
    23. 

  23. alfa = 0.15;
    24. 

  24. MAX_ITERA = 3300;
    25. 

  25. 

  26. 

  27. for index = 1:5
    28. 

  28.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'tansig', 'tansig', 4); 
    29. 

  29.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    30. 

  30.     R
    31. 

  31.     dlmwrite('main_tansig_tansig.csv',R,'delimiter','\t','-append');
    32. 

  32. end
    33. 

  33. 

  34. for index = 1:5
    35. 

  35.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'tansig', 'logsig', 4); 
    36. 

  36.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    37. 

  37.     R
    38. 

  38.     dlmwrite('main_tansig_logsig.csv',R,'delimiter','\t','-append');
    39. 

  39. end
    40. 

  40. 

  41. for index = 1:5
    42. 

  42.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'logsig', 4); 
    43. 

  43.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    44. 

  44.     R
    45. 

  45.     dlmwrite('main_logsig_logsig.csv',R,'delimiter','\t','-append');
    46. 

  46. end
    47. 

  47. 

  48. for index = 1:5
    49. 

  49.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'tansig', 4); 
    50. 

  50.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    51. 

  51.     R
    52. 

  52.     dlmwrite('main_logsig_tansig.csv',R,'delimiter','\t','-append');
    53. 

  53. end
    54. 

  54. 

  55. for index = 1:5
    56. 

  56.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'purelin', 4); 
    57. 

  57.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    58. 

  58.     R
    59. 

  59.     dlmwrite('main_logsig_purelin.csv',R,'delimiter','\t','-append');
    60. 

  60. end
    61. 

  61. 

  62. for index = 1:5
    63. 

  63.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'tansig', 'purelin', 4); 
    64. 

  64.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    65. 

  65.     R
    66. 

  66.     dlmwrite('main_tansig_purelin.csv',R,'delimiter','\t','-append');
    67. 

  67. end
    68. 

  68. 

  69. for index = 1:5
    70. 

  70.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'purelin', 'tansig', 4); 
    71. 

  71.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    72. 

  72.     R
    73. 

  73.     dlmwrite('main_purelin_tansig.csv',R,'delimiter','\t','-append');
    74. 

  74. end
    75. 

  75. 

  76. for index = 1:5
    77. 

  77.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'logsig', 1); 
    78. 

  78.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    79. 

  79.     R
    80. 

  80.     dlmwrite('main_logsig_logsig_1.csv',R,'delimiter','\t','-append');
    81. 

  81. end
    82. 

  82. 

  83. for index = 1:5
    84. 

  84.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'logsig', 3); 
    85. 

  85.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    86. 

  86.     R
    87. 

  87.     dlmwrite('main_logsig_logsig_3.csv',R,'delimiter','\t','-append');
    88. 

  88. end
    89. 

  89. 

  90. for index = 1:5
    91. 

  91.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'logsig', 5); 
    92. 

  92.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    93. 

  93.     R
    94. 

  94.     dlmwrite('main_logsig_logsig_5.csv',R,'delimiter','\t','-append');
    95. 

  95. end
    96. 

  96. 

  97. for index = 1:5
    98. 

  98.     [correctos_train correctos_test] = realizar_corrida(M, alfa, cota_error, MAX_ITERA, 'logsig', 'logsig', 7); 
    99. 

  99.     R = [alfa cota_error MAX_ITERA correctos_train correctos_test (correctos_train / 160) * 100 (correctos_test / 40) * 100];
    100. 

  100.     R
    101. 

  101.     dlmwrite('main_logsig_logsig_7.csv',R,'delimiter','\t','-append');
    102. 

  102. end
    103.