• Author / Uploaded
• DARWIN RODOLFO DAVILA FERNANDEZ

Citation preview

CARRERA:  INGENIERIA DE SISTEMAS Y TELEMATICA.

CURSO  SISTEMAS EXPERTOS

PROFESOR:  GREGORIO BAUTISTA OBLITAS ESTUDIANTES:  DARWIN RODOLFO DÁVILA FERNÁNDEZ.

CICLO:  IX.

AÑO:  2017.

Desarrolle el siguiente sistema experto para aprobación de un credito

El usuario ingresa el sueldo, año que se encuentra trabajando y el costo del carro interesado en comprar.

El programa calcula la cuota inicial dependiendo del número de años trabajando:

  

Si tiene menos de dos años, la cuota inicial es el 75% del costo del carro Si tiene dos años trabajando, la cuota inicial es el 45% del costo del carro Si tiene tres o más años trabajando, la cuota inicial es el 20% del costo del carro

El número de meses a financiar se calcula siguiendo las siguientes reglas:   

Si tiene menos de dos años trabajando, el número de cuotas es 12 Si tiene dos años trabajando, el numero de cuotas es 36 Si tiene más de dos años trabajando, el numero de cuotas es 60

La aprobación del crédito depende de lo siguiente; si la cifra a financiar dividida entre el número de meses es menor al 20 por ciento del sueldo el crédito se aprueba.

domains i=integer s=string predicates nondeterm cuotainicial(i,i,i) nondeterm numeromeses(i,i) nondeterm evaluacion(i,i,i,s) task_win_eh : EHANDLER

clauses cuotainicial(A,C,CI):A3,CI=0.20*C. numeromeses(A,NM):A3,NM=60. evaluacion(S,A,C,E):-numeromeses(A,NM), C/NM=0.2*S,E="Desaprobado". %BEGIN Task Window, e_Create

%BEGIN Task Window, idc_evaluacion _CtlInfo task_win_eh(_Win,e_Control(idc_evaluacion,_CtrlType,_CtrlWin,_CtlInfo),0):-!, Sueldo=win_getCtlHandle(_win,idc_s), Costo=win_getCtlHandle(_win,idc_cc), Año=win_getCtlHandle(_win,idc_a), Cuota=win_getCtlHandle(_win,idc_ci), Meses=win_getCtlHandle(_win,idc_nm), Evaluacion=win_getCtlHandle(_win,idc_e), TxtSueldo=win_getText(Sueldo), TxtCosto=win_getText(Costo), TxtAño=win_getText(Año),

str_int(TxtSueldo,S), str_int(TxtCosto,C), str_int(TxtAño,A),

cuotainicial(A,C,CI), str_int(TxtCI,CI), win_setText(Cuota,TxtCI),

numeromeses(A,NM), str_int(TxtNM,NM), win_setText(Meses,TxtNM), evaluacion(S,A,C,E), win_setText(Evaluacion,E), !. %END Task Window, idc_evaluacion _CtlInfo