Luis Fernando Jiménez De Jesús__ Ejercicio3--Ingeniería del Conocimiento, Prolog

Language: Layout:

/*
Nombre del alumno: Luis Fernando Jiménez de Jesús 
Boleta: 2018603241
Ejercicio 3 del primer examen departamental de Ingeniería del conocimiento

PROPUESTA DE GENERADOR DE REDES BAYESIANAS
*/

objeto:- write('{'), read(X),(X='atributo'->atributo;
                               write('')),a1,
                               write('}').

a1:- read(X),(X='atributo'->write(','),atributo,a1;
              X='finA1'->write('')).

atributo:- cadena, write(':'), valor.

valor:- read(X), (X='numero'->numero;
                  X='cadena'->cadena; 
                  X='objeto'->objeto;
                  X='metodo'->metodo;
                  X='arreglo'->arreglo).

cadena:- write('"'),read(X),write(X),write('"').

numero:- read(X),write(X).

metodo:- write('"function() {'),instruccion,write('}"').

instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='asignacionVOA'->asignacionVariableOperacionElementoArreglo,instruccion;
                        X='asignacionAOV'->asignacionElementoArregloOperacionVariable,instruccion;
                        X='decision'->decision,instruccion;
                        X='for'->cicloFor,instruccion;
                        X='finm'->read(J),(J='return'->return);
                        X='finIf'->write('');
                        X='break'->write('break;'),instruccion;
                        X='finFor'->write('')).
                        
decision:- write('if ('),condicion,write(')'),write('{'),instruccion,write('}'),read(X),(X='finDecision'->write('');
                                                                                         X='elseIf'->elseif;
                                                                                         X='else'->else).
else:- write(' else{'),instruccion,write('}').

elseif:- write(' else if ('),condicion,write(')'),write('{'),instruccion,write('}'),read(X),(X='finElseIf'->write('');
                                                                                            X='elseIf'->elseif;
                                                                                            X='else'->else).
                                                                                            
                                                                                            
return:- write(' return '),read(Y),write(Y),write(';').

condicion:- read(X),write(X),read(Y),(Y='and'->write(' && '),condicion;
                                      Y='or'->write(' || '),condicion;
                                      Y='finCondicion'->write('')).

asignacion:- numero,write('='),numero,write(';').

arreglo:- write('['),nuevoDatoArreglo,write(']').

nuevoDatoArreglo:- read(J),(J='valor'->valor,a2).

a2:- read(Y),(Y='valor'->write(','),valor,a2;
              Y='finArray'->write('')).
              
cicloFor:- write('for ('),forParte1,write(' in '),read(Z),write(Z),write(')'),write('{'),instruccion,write('}').

asignacionVariableOperacionElementoArreglo:- numero,write('='),numero,write('['),read(i),write(i),write(']'),a3.

asignacionElementoArregloOperacionVariable:- numero,write('['),read(i),write(i),write(']'),a4,write('='),numero.
                                                                                                                      
                                                                                                                      
  
a3:-read(K),(K='obtenerAtributo'->read(X),write('.'),write(X),a3;
             K='finA3'->write(';')).
         
a4:-read(K),(K='obtenerAtributo'->read(X),write('.'),write(X),a4;
             K='finA4'->write('')).

forParte1:- read(X),write(X).              
              
              
:- objeto.

atributo.
jproba.
arreglo.
valor.

objeto.
atributo.
arbol.
objeto.

atributo.
nombreArbol.
cadena.
balances.
atributo.
dimension.
objeto.
atributo.
nombreDimension.
cadena.
mercado.
atributo.
valorDimension.
arreglo.
valor.
objeto.
atributo.
numeroMercado.
numero.
1.

atributo.
dimension.
objeto.
atributo.
nombreDimension.
cadena.
industria.
atributo.
valores.
arreglo.

valor.
objeto.
atributo.
numeroIndustria.
numero.
1.
atributo.
probabilidadConjunta.
numero.
0.07.
finA1.

valor.

objeto.
atributo.
numeroIndustria.
numero.
2.
atributo.
probabilidadConjunta.
numero.
0.04.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
3.

atributo.
probabilidadConjunta.
numero.
0.05.

finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
4.
atributo.
probabilidadConjunta.
numero.
0.0150.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
5.
atributo.
probabilidadConjunta.
numero.
0.055.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
6.
atributo.
probabilidadConjunta.
numero.
0.0450.
finA1.

finArray.

finA1.

valor.

objeto.
atributo.
numeroMercado.
numero.
2.

atributo.
dimension.
objeto.
atributo.
nombreDimension.
cadena.
industria.

atributo.
valores.
arreglo.

valor.
objeto.
atributo.
numeroIndustria.
numero.
1.
atributo.
probabilidadConjunta.
numero.
0.01.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
2.
atributo.
probabilidadConjunta.
numero.
0.0450.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
3.
atributo.
probabilidadConjunta.
numero.
0.05.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
4.
atributo.
probabilidadConjunta.
numero.
0.035.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
5.
atributo.
probabilidadConjunta.
numero.
0.04.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
6.
atributo.
probabilidadConjunta.
numero.
0.04.
finA1.

finArray.

finA1.

valor.
objeto.
atributo.
numeroMercado.
numero.
3.
atributo.
dimension.
objeto.
atributo.
nombreDimension.
cadena.
industria.
atributo.
valores.

arreglo.

valor.
objeto.
atributo.
numeroIndustria.
numero.
1.
atributo.
probabilidadConjunta.
numero.
0.06.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
2.
atributo.
probabilidadConjunta.
numero.
0.035.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
3.
atributo.
probabilidadConjunta.
numero.
0.0450.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
4.
atributo.
probabilidadConjunta.
numero.
0.0450.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
5.
atributo.
probabilidadConjunta.
numero.
0.06.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
6.
atributo.
probabilidadConjunta.
numero.
0.04.
finA1.

finArray.

finA1.

valor.
objeto.
atributo.
numeroMercado.
numero.
4.

atributo.
dimension.
objeto.
atributo.
nombreDimension.
cadena.
industria.

atributo.
valores.
arreglo.

valor.
objeto.
atributo.
numeroIndustria.
numero.
1.
atributo.
probabilidadConjunta.
numero.
0.03.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
2.
atributo.
probabilidadConjunta.
numero.
0.05.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
3.
atributo.
probabilidadConjunta.
numero.
0.025.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
4.
atributo.
probabilidadConjunta.
numero.
0.035.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
5.
atributo.
probabilidadConjunta.
numero.
0.05.
finA1.

valor.
objeto.
atributo.
numeroIndustria.
numero.
6.
atributo.
probabilidadConjunta.
numero.
0.03.
finA1.

finArray.

finA1.

finArray.

finA1.

finArray.

finA1.

[ - ] Show input
Absolute running time: 0.32 sec, cpu time: 0.16 sec, memory peak: 7 Mb, absolute service time: 0,4 sec

Luis Fernando Jiménez De Jesús__ Ejercicio3--Ingeniería del Conocimien...