Trabajo De Inteligencia Artificial

UNIVERSIDAD PERUANA LOS ANDES









INTELIGENCIA ARTIFICIAL

TEMA
“IDENTIFICACIÓN DE PERSONAL PROFESIONAL DE UNA EMPRESA MEDIANTE REDES NEURONALES ARTIFICIALES”


PRESENTADO POR: RAMIRO CAMBORDA ZAMUDIO

DOCENTE: Mg. ABRAHAM GAMARRA MORENO.


HUANCAYO
2011

“IDENTIFICACIÓN DE PERSONAL PROFESIONAL DE UNA EMPRESA MEDIANTE REDES NEURONALES ARTIFICIALES”
1) PLANTEAMIENTODEL PROBLEMA

Una empresa dedicada a la fabricación de estructuras de gran dimensión desea identificar a los trabajadores sabiendo que esta empresa solo contrata personal profesional entre aquellos que cuentan con estudios universitarios y los que cuentan con estudios técnicos.
Para ello la empresa considera que los trabajadores han de rellenar una ficha que para la identificacióncorrespondiente ha de considerar los aspectos siguientes:
a) Si tiene postgrado: Si el personal cuenta con estudios de postgrado, entonces se trata de un profesional universitario.
b) Si tiene título: En este caso es preciso que tanto los profesionales universitarios y técnicos cuentan con un título superior.
c) Cuenta con Bachiller: Al ser este un documento de grado académico que solo otorgan lasuniversidades, poseen solo aquellos profesionales universitarios.
d) Trabaja en Área Técnica: En esta área pueden laborar los profesionales de universidad y también claro esta los profesionales técnicos.
e) Trabaja en área Administrativa: La política de la empresa es que solo los profesionales universitarios pueden desempeñarse en esta área.
f) No Trabaja: En este caso puede ser que no trabajen a pesarde contar con los otros requisitos.

2) ENTRENAMIENTO DE UNA RED NEURONAL
Se elabora las entradas y una sola salida, tal como se detalla en la tabla siguiente:

ENTRADAS SALIDA
Profesional Universitario o Técnico
¿Tiene Postgrado? ¿Tiene Titulo? Posee Bachiller Trabaja en Área Técnica Trabaja en Área Administrativa ¿No trabaja?
1 1 1 0 1 0 1
0 1 1 0 1 0 1
0 1 1 1 0 0 1
0 1 0 1 0 1 0
00 0 0 0 1 0
0 1 0 1 0 0 0

Trasladamos los datos anteriores a un archivo de texto y duplicamos los datos para el entrenamiento respectivo.


3) DISENO DE INTERFAZ EN VISUAL BASIC
A continuación se diseña el siguiente formulario, el mismo que contiene 07 labels y 07 cuadros de texto y un botón de comando, tal como se muestra:


4) CODIGO EN VISUAL BASIC
El código del botón deComando Command1 es el siguiente:
Private Sub Command1_Click()
Dim en(6) As Double
Dim sa(1) As Double

en(1) = Val(Text1.Text)
en(2) = Val(Text2.Text)
en(3) = Val(Text3.Text)
en(4) = Val(Text4.Text)
en(5) = Val(Text5.Text)
en(6) = Val(Text6.Text)

Call Fire_PERSO(en, sa)

If sa(1) > 0.9 Then
Text7.Text = "PROFESIONAL UNIVERSITARIO"
ElseIfsa(1) < 0.1 ThenText7.Text = "PROFESIONAL TECNICO"
Else
Text7.Text = "PERSONAL NO IDENTIFICADO"
End If

End Sub

También se incluye el código generado en el NeuroShellque es el siguiente:

' Insert this code into your VB program to fire the C:\PERSONAL\PERSO network
' This code is designed to be simple and fast for porting to any machine.
' Therefore all code and weights are inline withoutlooping or data storage
' which might be harder to port between compilers.
Sub Fire_PERSO(inarray() As Double, outarray() As Double)

Dim netsum As Double
Static feature2(6) As Double

' inarray(1) is Tiene_postgrado
' inarray(2) is Titulo
' inarray(3) is Bachiller
' inarray(4) isTrabajo_tecnico
' inarray(5) isTrabajo_administrativo
' inarray(6) is No_trabaja
' outarray(1) is SalidaIf (inarray(1) < 0) Then inarray(1) = 0
If (inarray(1) > 1) Then inarray(1) = 1
inarray(1) = inarray(1)

If (inarray(2) < 0) Then inarray(2) = 0
If (inarray(2) > 1) Then inarray(2) = 1
inarray(2) = inarray(2)

If (inarray(3) < 0) Then inarray(3) = 0
If (inarray(3) > 1) Then inarray(3) = 1
inarray(3) = inarray(3)

If (inarray(4) < 0) Then inarray(4) = 0
If (inarray(4) > 1) Then...