Mostrar Mensajes

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Información del Perfil

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Temas - AriLiz

Páginas: [1]

Inteligencia Artificial / Ayuda Xfavor

« en: Jueves 26 de Octubre de 2006, 06:55 »

hola kisiera saber si alguien me puede decir ke hace y komo trabaja el siguiente codigo:
:-module(sintactico).
:-export(inisintax/0).
:-export(resets/0).
:-dynamic(tiene/4).
:-dynamic(lista_resintax/1).
:-write(sintactico).
% ***************************************************************************
% SintacSys '98
%          Analizador Sintáctico
%
% Desarrolladores: Hernández Delgado Jazmin Cynthia
% López González Luis Eduardo
%                 Quintana Colón Fernando
%                 Terán Botello Martha Karina
%
% Derechos reservados MicroSystem.
% Versión 1.0 mayo 13 de 1998
% Actualización mayo 21 de 1998
% ***************************************************************************
%
% Este Analizador Sintáctico utiliza la estructura de DCG's de Amzi!
% Prolog 3.3
%
% ***************************************************************************
% ***************************************************************************
% ACTUALIZACION SintacSys '05
%          Analizador Sintáctico
%
% Desarrolladores: Guzmán Pérez Ricardo Manuel
%       Monroy Romero Mónica Nalleli
%
% Derechos reservados MicroSystem.
%
% Actualización octubre 14 de 2005
% ***************************************************************************
%
% Este Analizador Sintáctico utiliza la estructura de DCG's de Amzi!
% Prolog 3.3
%
% ***************************************************************************

% REGLA PRINCIPAL
% Esta regla, recibe como parámetros la estructura plana en una lista, parte
% que nos proporciona el analizador léxico.
% EJEMPLOS (así debe introducirlo en el listener para ver como funciona)
% correcta: sintaxis([articulo, verbo_infinitivo, verbo]).
% incorrecta: sintaxis([abrir, pronombre, verbo, adverbio]).

sintaxis(Estructura_plana):-
s(Estructura_plana,[]),
write(' *** La estructura es sintácticamente CORRECTA *** '), nl,
write('Estructura plana: '),
write(Estructura_plana);
write(' *** La estructura es sintácticamente INCORRECTA *** '), nl,
write('Estructura plana: '),
write(Estructura_plana).

% ESTRUCTURA GENERAL DE UN ENUNCIADO
s --> sujeto(Numero,Genero), {assert(s)}.
s --> sujeto(Numero,_), predicado(Persona,Numero,_,_),{assert(s)}.
s --> predicado(Persona,Numero,_,_),{assert(s)}.
s --> preg(Numero,_),{assert(s)}.

% ESTRUCTURA DEL SUJETO

sujeto(Numero,Genero) --> fsustantiva(Numero,Genero), punto(_,_).
sujeto(Numero,Genero) --> fpronombre(Numero,Genero), punto(_,_).
sujeto(Numero,Genero) --> fsustantiva(Numero,Genero).
sujeto(Numero,Genero) --> fpronombre(Numero,Genero).
% ESTRUCTURA FRASE SUSTANTIVA

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> numero(Numero,_),sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> numero(Numero,_),sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> numero(Numero,Genero),sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> numero(Numero,Genero),sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
%------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> numero(Numero,_),sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> numero(Numero,_),sustantivo(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> numero(Numero,_),sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> numero(Numero,_),sustantivo(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,Genero).

fsustantiva(Numero,Genero) --> numero(Numero,Genero),sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> numero(Numero,Genero),sustantivo(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> numero(Numero,Genero),sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> numero(Numero,Genero),sustantivo(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,Genero).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,Genero).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,_).
%------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> numero(Numero,_), sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> numero(Numero,_), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> numero(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> numero(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion, fsustantiva(_,_).
%%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> numero(Numero,_), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero).
fsustantiva(Numero,Genero) --> numero(Numero,_), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> numero(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero).
fsustantiva(Numero,Genero) --> numero(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_).
%%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> numero(Numero,_), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> numero(Numero,_), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> numero(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> numero(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,Genero).

%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,_), sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,_), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).

%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fsustantiva(_,_).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fsustantiva(_,_).

%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,_), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,_), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,_), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,_), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,Genero).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), numero(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,Genero).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,Genero).

%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero),coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> articulo(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fpronombre(Numero,Genero).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_) .
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,Genero).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_),conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_det(Numero,Genero), sustantivo(Numero,Genero), adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,Genero).
%------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,_).
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,_).

fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fpronombre(Numero,Genero).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fsustantiva(Numero,Genero) --> adjetivo_cal(Numero,Genero), sustantivo(Numero,Genero), coma(_,_), fsustantiva(_,_), conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fsustantiva(Numero,Genero) --> fpronombre(Numero,Genero).

% ESTRUCTURAS PRONOMBRE
%-------------------------------------------------------------------------------------
fpronombre(Numero,_) --> pronombre(Numero,_).
fpronombre(Numero,_) --> pronombre(Numero,_), coma(_,_), fpronombre(_,_).
%-------------------------------------------------------------------------------------
fpronombre(Numero,_) --> pronombre(Numero,_), conjuncion(_,_), fpronombre(_,_).
fpronombre(Numero,_) --> pronombre(Numero,_),coma(_,_), fpronombre(_,_), conjuncion(_,_), fpronombre(_,_).
%-------------------------------------------------------------------------------------
fpronombre(Numero,_) --> pronombre(Numero,_), conjuncion(_,_), fsustantiva(_,_).
fpronombre(Numero,_) --> pronombre(Numero,_),coma(_,_), fpronombre(_,_), conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------
fpronombre(Numero,Genero) --> pronombre(Numero,Genero).
fpronombre(Numero,Genero) --> pronombre(Numero,Genero), coma(_,_), fpronombre(Numero,Genero).
%-------------------------------------------------------------------------------------
fpronombre(Numero,Genero) --> pronombre(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
fpronombre(Numero,Genero) --> pronombre(Numero,Genero),coma(_,_), fpronombre(Numero,Genero), conjuncion(_,_), fpronombre(Numero,Genero).
%-------------------------------------------------------------------------------------
fpronombre(Numero,Genero) --> pronombre(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
fpronombre(Numero,Genero) --> pronombre(Numero,Genero),coma(_,_), fpronombre(Numero,Genero), conjuncion(_,_), fsustantiva(_,_).
%-------------------------------------------------------------------------------------

% ESTRUCTURA DEL PREDICADO

predicado(_,plural,Tiempo,Modo) --> fverbo(_,plural,Tiempo,Modo).

%-------------------------------------------------------------------------------------
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), punto(_,_).
%-------------------------------------------------------------------------------------
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), fsustantiva(_,_).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), fsustantiva(_,_), punto(_,_).
%-------------------------------------------------------------------------------------
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), fpreposicion(_,_).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), fpreposicion(_,_), punto(_,_).
%-------------------------------------------------------------------------------------
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), adverbios(_,_).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), adverbios(_,_), punto(_,_).

predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), adverbios(sing,_).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), adverbios(sing,_), punto(_,_).

predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), adverbios(plural,_).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), adverbios(plural,_), punto(_,_).
%-------------------------------------------------------------------------------------
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), conjuncion(_,_), s.
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), conjuncion(_,_), s, punto(_,_).
%-------------------------------------------------------------------------------------
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), conjuncion(_,_), predicado(_,_,_,_).
predicado(Persona,Numero,Tiempo,Modo) --> fverbo(Persona,Numero,Tiempo,Modo), conjuncion(_,_), predicado(_,_,_,_), punto(_,_).
%-------------------------------------------------------------------------------------

% ESTRUCTURA FRASE VERBAL

fverbo(_,plural,Tiempo,Modo) --> fsustantiva(_,_), conjuncion(_,_), fsustantiva(sing,_), verbo(_,plural,Tiempo,Modo).
%-------------------------------------------------------------------------------------
fverbo(Persona,Numero,Tiempo,Modo) --> verbo(Persona,Numero,Tiempo,Modo).
fverbo(Persona,Numero,Tiempo,Modo) --> verbo(Persona,Numero,Tiempo,Modo), coma(_,_), fverbo(Persona,Numero,Tiempo,Modo).
%-------------------------------------------------------------------------------------
fverbo(Persona,Numero,Tiempo,Modo) --> verbo(Persona,Numero,Tiempo,Modo), conjuncion(_,_), fverbo(Persona,Numero,Tiempo,Modo).
fverbo(Persona,Numero,Tiempo,Modo) --> verbo(Persona,Numero,Tiempo,Modo), coma(_,_), fverbo(Persona,Numero,Tiempo,Modo) , conjuncion(_,_), fverbo(Persona,Numero,Tiempo,Modo).

% ESTRUCTURA FRASE PREPOSICIONAL
fpreposicion(_,_) --> preposicion(_,_), sujeto(Numero,Genero).

% ESTRUCTURAS FRASE DE ADVERBIO.
adverbios(_,_) --> adverbio(_,_).
adverbios(_,_) --> adverbio(_,_), adverbio(_,_).
adverbios(_,_) --> adverbio(_,_), conjuncion(_,_), adverbios(_,_).

adverbios(sing,_) --> adverbio(sing,_).
adverbios(sing,_) --> adverbio(sing,_), adverbio(sing,_).
adverbios(sing,_) --> adverbio(sing,_), conjuncion(_,_), adverbios(sing,_).

adverbios(plural,_) --> adverbio(plural,_).
adverbios(plural,_) --> adverbio(plural,_), adverbio(plural,_).
adverbios(plural,_) --> adverbio(plural,_), conjuncion(_,_), adverbios(plural,_).

% ESTRUCTURAS DE PREGUNTA.
preg(Numero,_) --> question(Numero,_), preguntacierra(_,_).
preg(Numero,_) --> question(Numero,_), sujeto(Numero,_), preguntacierrar(_,_).
preg(Numero,_) --> question(Numero,_), predicado(Persona,Numero,Tiempo), sujeto(Numero,_), preguntacierra(_,_).
preg(Numero,_) --> question(Numero,_), s, preguntacierra(_,_).
preg(Numero,_) --> question(Numero,_), predicado(Persona,Numero,Tiempo), fpreposicion(_,_), preguntacierra(_,_).
%preg(Numero,_) --> s, preguntacierra(_,_).
preg(Numero,_) --> sujeto(Numero,_), preguntacierra(_,_).

% BASE DE CONOCIMIENTOS
articulo(sing,fem) --> [articulosingfem].
articulo(sing,mas) --> [articulosingmas].
articulo(plural,fem) --> [articulopluralfem].
articulo(plural,mas) --> [articulopluralmas].

sustantivo(sing,fem) --> [sustantivosingfem].
sustantivo(sing,mas) --> [sustantivosingmas].
sustantivo(plural,fem) --> [sustantivopluralfem].
sustantivo(plural,mas) --> [sustantivopluralmas].

verbo(_,_,_,infinitivo) --> [verbonoaplicanoaplicanoaplicainfinitivo].

verbo(1,sing,pas,indi) --> [verbo1singpretéritoindicativo].
verbo(2,sing,pas,indi) --> [verbo2singpretéritoindicativo].
verbo(3,sing,pas,indi) --> [verbo3singpretéritoindicativo].

verbo(1,plural,pas,indi) --> [verbo1pluralpretéritoindicativo].
verbo(2,plural,pas,indi) --> [verbo2pluralpretéritoindicativo].
verbo(3,plural,pas,indi) --> [verbo3pluralpretéritoindicativo].

verbo(1,sing,pre,indi) --> [verbo1singpresenteindicativo].
verbo(2,sing,pre,indi) --> [verbo2singpresenteindicativo].
verbo(3,sing,pre,indi) --> [verbo3singpresenteindicativo].

verbo(1,plural,pre,indi) --> [verbo1pluralpresenteindicativo].
verbo(2,plural,pre,indi) --> [verbo2pluralpresenteindicativo].
verbo(3,plural,pre,indi) --> [verbo3pluralpresenteindicativo].

verbo(1,sing,fut,indi) --> [verbo1singfuturoindicativo].
verbo(2,sing,fut,indi) --> [verbo2singfuturoindicativo].
verbo(3,sing,fut,indi) --> [verbo3singfuturoindicativo].

verbo(1,plural,fut,indi) --> [verbo1pluralfuturoindicativo].
verbo(2,plural,fut,indi) --> [verbo2pluralfuturoindicativo].
verbo(3,plural,fut,indi) --> [verbo3pluralfuturoindicativo].

verbo(1,sing,copre,indi) --> [verbo1singcopretéritoindicativo].
verbo(2,sing,copre,indi) --> [verbo2singcopretéritoindicativo].
verbo(3,sing,copre,indi) --> [verbo3singcopretéritoindicativo].

verbo(1,plural,copre,indi) --> [verbo1pluralcopretéritoindicativo].
verbo(2,plural,copre,indi) --> [verbo2pluralcopretéritoindicativo].
verbo(3,plural,copre,indi) --> [verbo3pluralcopretéritoindicativo].

verbo(1,sing,pospre,indi) --> [verbo1singpospretéritoindicativo].
verbo(2,sing,pospre,indi) --> [verbo2singpospretéritoindicativo].
verbo(3,sing,pospre,indi) --> [verbo3singpospretéritoindicativo].

verbo(1,plural,pospre,indi) --> [verbo1pluralpospretéritoindicativo].
verbo(2,plural,pospre,indi) --> [verbo2pluralpospretéritoindicativo].
verbo(3,plural,pospre,indi) --> [verbo3pluralpospretéritoindicativo].

verbo(1,sing,pas,subj) --> [verbo1singpretéritosubjuntivo].
verbo(2,sing,pas,subj) --> [verbo2singpretéritosubjuntivo].
verbo(3,sing,pas,subj) --> [verbo3singpretéritosubjuntivo].

verbo(1,plural,pas,subj) --> [verbo1pluralpretéritosubjuntivo].
verbo(2,plural,pas,subj) --> [verbo2pluralpretéritosubjuntivo].
verbo(3,plural,pas,subj) --> [verbo3pluralpretéritosubjuntivo].

verbo(1,sing,pre,subj) --> [verbo1singpresentesubjuntivo].
verbo(2,sing,pre,subj) --> [verbo2singpresentesubjuntivo].
verbo(3,sing,pre,subj) --> [verbo3singpresentesubjuntivo].

verbo(1,plural,pre,subj) --> [verbo1pluralpresentesubjuntivo].
verbo(2,plural,pre,subj) --> [verbo2pluralpresentesubjuntivo].
verbo(3,plural,pre,subj) --> [verbo3pluralpresentesubjuntivo].

verbo(1,sing,fut,subj) --> [verbo1singfuturosubjuntivo].
verbo(2,sing,fut,subj) --> [verbo2singfuturosubjuntivo].
verbo(3,sing,fut,subj) --> [verbo3singfuturosubjuntivo].

verbo(1,plural,fut,subj) --> [verbo1pluralfuturosubjuntivo].
verbo(2,plural,fut,subj) --> [verbo2pluralfuturosubjuntivo].
verbo(3,plural,fut,subj) --> [verbo3pluralfuturosubjuntivo].

verbo(2,sing,pre,imp) --> [verbo2singpresenteimperativo].
verbo(3,sing,pre,imp) --> [verbo3singpresenteimperativo].

verbo(1,plural,pre,imp) --> [verbo1pluralpresenteimperativo].
verbo(2,plural,pre,imp) --> [verbo2pluralpresenteimperativo].
verbo(3,plural,pre,imp) --> [verbo3pluralpresenteimperativo].

conjuncion(_,_) --> [conjuncionnoaplicanoaplica].

pronombre(sing,_) --> [pronombresingneutro].
pronombre(plural,_) --> [pronombrepluralneutro].

pronombre(sing,mas) --> [pronombresingmas].
pronombre(plural,mas) --> [pronombrepluralmas].

pronombre(sing,fem) --> [pronombresingfem].
pronombre(plural,fem) --> [pronombrepluralfem].

adverbio(_,_) --> [adverbionoaplicaneutro].
adverbio(sing,_) --> [adverbiosingneutro].
adverbio(plural,_) --> [adverbiopluralneutro].

preposicion(_,_) --> [preposicionnoaplicanoaplica].

question(sing,_) --> [questionsingnoaplica].
question(plural,_) --> [questionpluralnoaplica].

adjetivo_cal(sing,fem) --> [adjetivo_calsingfem].
adjetivo_cal(sing,mas) --> [adjetivo_calsingmas].

adjetivo_cal(plural,fem) --> [adjetivo_calpluralfem].
adjetivo_cal(plural,mas) --> [adjetivo_calpluralmas].

adjetivo_det(sing,fem) --> [adjetivo_detsingfem].
adjetivo_det(sing,mas) --> [adjetivo_detsingmas].

adjetivo_det(plural,fem) --> [adjetivo_detpluralfem].
adjetivo_det(plural,mas) --> [adjetivo_detpluralmas].

contracciones --> [contracciones]; ["del"]; ["al"].
preguntacierra(_,_) --> [preguntacierranoaplicaneutro].

coma(_,_) --> [comanoaplicaneutro].
punto(_,_) --> [puntonoaplicaneutro].

numero(_,_) --> [numeronoaplicanoaplica].
numero(plural,_)--> [numeropluralnoaplica].
numero(plural,mas)--> [numeropluralmas].
numero(plural,fem)--> [numeropluralfem].
numero(sing,mas)--> [numerosingmas].
numero(sing,fem)--> [numerosingfem].

inisintax:-
leelista,
leetabla,
genera,
lista_resintax(X),
sintaxis(X).

leelista:- see("c:\\archivos de programa\\amzi\\eclipse\\workspace\\prolexy\\estruc_sintac.pro"),
    lista,
    seen.

lista:- read(lista_sintaxis(Y)),
    assertz(lista_sintaxis(Y)),
    nl.

leetabla:- see("c:\\archivos de programa\\amzi\\eclipse\\workspace\\prolexy\\tabla_simbolos.pro"),
    tabla,
    seen.

tabla:- (read(alexis:tabla_simbolos(X)),
    assertz(tabla_simbolos(X)),
    tabla);!.

genera:- (tabla_simbolos(S),
nueva(S),
          genera(S)
);true.

genera(S):- (
nueva(S)
);true.

nueva(S):-
tiene(Cat,Gen,Num,S),
      Cat\=verbo,
      lista_resintax(L),
atom_concat(Cat,Num,Pal1),
atom_concat(Pal1,Gen,Pal2),
inserta(Pal2,L,Lista),
retractall(lista_resintax(L)),
assertz(lista_resintax(Lista)),fail.

nueva(S):-
tiene(Cat,Per,Num,Tiem,Modo,S),
lista_resintax(L),
is_string_term(Per1,Per),
string_list(Per1,Pers),
name(Per2,Pers),
atom_concat(Cat,Per2,Pal1),
atom_concat(Pal1,Num,Pal2),
atom_concat(Pal2,Tiem,Pal3),
atom_concat(Pal3,Modo,Pal4),
inserta(Pal4,L,Lista),
retractall(lista_resintax(L)),
assertz(lista_resintax(Lista)),
fail.

tiene(Cat,Gen,Num,[N,[Cat,Pal,Raiz,[Lex,Gen,Num]]]).
tiene(Cat,Per,Num,Tiem,Modo,[N,[Cat,Pal,Raiz,[Lex,Per,Num,Tiem,Modo]]]).
tiene(Cat,Gen,Num,[N,[Cat,Ont,Pal,Raiz,[Lex,Gen,Num]]]).

lista_resintax([]).
lista(PP1):-
lista_resintax(L),
inserta(PP1,L,Lista),
retractall(lista_resintax(L)),
assertz(lista_resintax(Lista)).

inserta(Ele,[],[Ele]).
inserta(Ele,[X|L1],[X|L2]):-
inserta(Ele,L1,L2).

miembro(C,[C|O]).
miembro(X,[C|O]):-miembro(X,O).

resets:-
retractall(tabla_simbolos(X)),
retractall(lista_resintax(L)),
retractall(lista_sintaxis(Y)),
assertz(tabla_simbolos([])),
assertz(lista_resintax([])).

:-end_module(sintactico).

Se los agradeceria muchisimo... 1000Gracias por lo ke puedan hacer...
c23bca@yahoo.com.mx

ASM (Ensamblador) / Ayuda Porfavor

« en: Lunes 13 de Junio de 2005, 00:20 »

Hola!!!
Tengo ke hacer un programa que permita introducir una variable desde el teclado y visualice el codigo ASCII de dicha variable...

Es muy muy urgente, de antemano les doy las gracias x lo ke puedan hacer...

Páginas: [1]

SoloCodigo