% Datos de entrenamiento >> PP_entrena=PP(1:150,:); % Datos de validación >> PP_valida=PP(151:192,:); % Se entrena el sistema borroso >> [Sistemalogbo, errorsis]=anfis(PP_entrena); % Se entrena en 10 épocas, siendo el error medio cuadrático en cada época Start training ANFIS ... 1 7.87866e-005 2 7.89709e-005 3 7.91143e-005 4 7.92013e-005 5 7.92155e-005 6 7.91386e-005 7 7.8951e-005 8 7.86324e-005 9 7.81617e-005 10 7.75176e-005 % Los errores quedan almacenados en errorsis >> size(errorsis) ans = 10 1 % Se calcula el error entre la salida real y estimada en los datos de validación >> errorval=PP_valida(:,5)-evalfis(PP_valida(:,1:4),Sistemalogbo); % Se visualizan los criterios de validación plot(errorsis) % Errores medios cuadráticos durante el entrenamiento plot(errorval) % Error en la validación % Salida real y estimada en datos de validación plot(PP_valida(:,5)) hold on plot(evalfis(PP_valida(:,1:4),Sistemalogbo),'*g') |