Descargar 134.92 Kb.


Página7/9
Fecha de conversión28.03.2018
Tamaño134.92 Kb.

Descargar 134.92 Kb.

Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes


1   2   3   4   5   6   7   8   9

6. VALIDACIÓN DE LA RNV


Se "valida" la red neuronal entrenada, comparando las salidas que proporciona con las de la técnica convencional a complementar, presentándole los dos conjuntos de ejemplos generados: el de entrenamiento y el de prueba. El algoritmo empleado fue el que se recoge a continuación (CsRNV.bas), manipulado convenientemente para que manejase los diferentes datos, esto es, cambiando los ficheros de ejemplos para ir aplicando casos de solventes, insolventes, de riesgo, etc..

Algoritmo CsRNV.bas, para la prueba de la Red Neuronal



CLEAR

Nombreprueba$ = "c:\qb45\FINALPru.TXT"

Nombrearchivo$ = "c:\qb45\PrueCS.txt"

NombrePeso$ = "c:\QB45\PesosCS.txt"

aciertos = 0

'Fichero para recoger los resultados

OPEN Nombreprueba$ FOR OUTPUT AS #8

'Recogida de pesos entrenados

OPEN NombrePeso$ FOR INPUT AS #9

INPUT #9, A, B, C, Numero, tt

DIM entrada(A), Oculto(B), salida(C)

DIM Peso1(A, B), Peso2(B, C)

DIM ErrorSalida(C), ErrorOculto(B)

DIM Peso1Previo(A, B), Peso2Previo(B, C)

DIM x(A), Y(C)

CONST u = 0, w = 0

FOR i = w TO A

FOR j = 1 TO B

INPUT #9, Peso1(i, j)

NEXT j, i

'LPRINT

FOR j = u TO B



FOR k = 1 TO C

INPUT #9, Peso2(j, k)

NEXT k, j

CLOSE #9


' Establecimiento de Umbrales

entrada(0) = 1

Oculto(0) = 1

salida(0) = 0

'Resultados quitando dos datos de cada vez.

FOR n2 = 1 TO 7

FOR n3 = 1 TO 6

'Apertura del fichero de ejemplos

OPEN Nombrearchivo$ FOR INPUT AS #1

'Damos manualmente el número de ejemplos

NEjemplos = 3000

' Comienza la prueba

ErrorEpoca = 0

tt = 0


aciertos = 0

FOR NE = 1 TO NEjemplos

INPUT #1, Edad, ECivil, Profesi, Antig, Ingresos, Vivienda, Zona, Y(1), Y(2), Y(3)

entrada(1) = Edad

entrada(2) = ECivil

entrada(3) = Profesi

entrada(4) = Antig

entrada(5) = Ingresos

entrada(6) = Vivienda

entrada(7) = Zona

IF n2 > 0 AND n2 + n3 <= 7 THEN

entrada(n2) = .5

entrada(n2 + n3) = .5

END IF


'Cálculo de la capa oculta

FOR j = 1 TO B

potencial = 0

FOR i = w TO A

potencial = entrada(i) * Peso1(i, j) + potencial

NEXT i


potencial = -potencial

Oculto(j) = 1 / (1 + EXP(potencial))

NEXT j

'Cálculo de la Capa de Salida



FOR k = 1 TO C

potencial = 0

FOR j = u TO B

potencial = Oculto(j) * Peso2(j, k) + potencial

NEXT j

potencial = -potencial



salida(k) = 1 / (1 + EXP(potencial))

NEXT k


Maxsali = 0

MaxY = 0


FOR k = 1 TO C

IF salida(k) > Maxsali THEN

Maxsali = salida(k)

S1 = k


END IF

IF Y(k) > MaxY THEN

MaxY = Y(k)

S2 = k


END IF

NEXT k


IF S1 = S2 THEN

aciertos = aciertos + 1

END IF

WRITE #8, Edad, ECivil, Profesi, Antig, Ingresos, Vivienda, Zona, n2, S2, S1



NEXT NE

PRINT " SIN "; n2; "Ni"; n2 + n3

PRINT NEjemplos, aciertos, aciertos / NEjemplos * 100, "%", NEjemplos - aciertos

CLOSE #1


NEXT n3

NEXT n2


END


El resultado alcanzado con el fichero de entrenamiento fue del 96,2 % y con el fichero de prueba el 95,5%. Confirmamos, pues, la validez de la RNV y descartamos que se pueda haber producido “sobre-entrenamiento”.

En concreto, al presentar a la Red Neuronal 3.000 ejemplo (mil de cada tipo), con todos los datos, acertó a clasificar correctamente el 91% de los ejemplos solventes, el 100% de los insolventes y el 95,5% de los de riesgo, tal como puede verse en la tabla siguiente:



Gráficamente,



1   2   3   4   5   6   7   8   9

Similar:

Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconRedes neuronales de unidades producto
Las redes neuronales en unidades producto: teoría del modelo y su aplicación a problemas de clasificación del riesgo
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconModelado de la frecuencia fundamental mediante redes neuronales para síntesis de voz en dominio restringido
Excel es uno de los componentes básicos de Office, es una aplicación englobada dentro de la categoría de hojas de cálculo, y sin...
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconDistribuciones de probabilidad
En la unidad anterior se analizó el concepto de probabilidad. El objetivo era determinar la probabilidad de un evento. En esta unidad...
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconProbabilidad
Sabiendo que es abedul, la probabilidad de que esté sano es 8 y sabiendo que es abeto, la probabilidad de que esté enfermo es de
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconAnálisis de redes sociales 3 cr
Análisis de redes sociales”. En esta nueva edición se contará con la participación de especialistas procedentes de otras Universidades,...
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconActa nº 005-2018-cf acta de Sesión Ordinaria del Consejo de Facultad de la Facultad de Ciencias de la Salud
Allao, bajo la presidencia de la Decana Dra. Arcelia Olga Rojas Salazar, Dra. Angélica Díaz Tinoco, Dra. Ana Lucy Siccha Macassi,...
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconNueva Iniciativa Utiliza el Bambú como Herramienta Clave para Combatir la Pobreza y el Cambio Climático en America Latina

Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconFormulario nivel 3 Definiciones iniciales para la medicion de actividades de vinculaciÓn (AV)
Av se encuentren desplegadas en múltiples espacios académicos y niveles de gestión y que no sean visibles de manera homogénea. Por...
Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconPrograma para la transformación de las redes de salud y eficiencia de la gestión sanitaria

Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes iconControl de la gestión basada en actividades
Los tableros de control permiten abordar visiones integrales de la realidad empresarial; como instrumento operativo se constituye...

Página principal
Contactos

    Página principal



Nueva herramienta para la gestión: Medición de la probabilidad de insolvencia, asistida por Redes Neuronales. Dra. Nélida Porto Serantes

Descargar 134.92 Kb.