home *** CD-ROM | disk | FTP | other *** search
- "Beispielprogramm 3 - W. Kreitmair"
- "Automatische Sprachanalyse mit PROLOG II"
-
- ist-ein-Satz(x) ->
- transformiere-in-Graphen(x,1,S-atzendeNummer)
- /
- Kante(SATZ,1,S-atzendeNummer);
-
- transformiere-in-Graphen(x.y,n,e-n) ->
- val(add(n,1),e-n1)
- assert(Kante(x,n,e-n1),nil)
- transformiere-in-Graphen(y,e-n1,e-n);
- transformiere-in-Graphen(nil,n,n) ->;
-
-
-
- Kante(SATZ,i,j) -> Kante(NP,i,i1) Kante(VP,i1,j);
-
- Kante(NP,i,j) -> Kante(EIGENNAME,i,j);
- Kante(NP,i,j) -> Kante(ADJEKTIV,i,i1) Kante(NOMEN,i1,j);
- Kante(NP,i,j) -> Kante(ARTIKEL,i,i1) Kante(ADJEKTIV,i1,i2)
- Kante(NOMEN,i2,j);
- Kante(NP,i,j) -> Kante(ARTIKEL,i,i1) Kante(NOMEN,i1,i2)
- Kante(RELATIVSATZ,i2,j);
-
- Kante(VP,i,j) -> Kante(VERB,i,j);
- Kante(VP,i,j) -> Kante(KOPULA,i,i1) Kante(ADJEKTIV,i1,j);
- Kante(VP,i,j) -> Kante(VERB,i,i1) Kante(NP,i1,j);
-
- Kante(VP',i,j) -> Kante(ADJEKTIV,i,i1) Kante(KOPULA,i1,j);
- Kante(VP',i,j) -> Kante(VERB,i,j);
- Kante(VP' ,i,j) ->Kante(NP,i,i1) Kante(VERB,i1,j);
-
- Kante(RELATIVSATZ,i,i) -> ;
- Kante(RELATIVSATZ,i,j) -> Kante(RELATIV-PRONOMEN,i,i1) Kante(VP',i1,j);
-
- Kante(ARTIKEL,i,j) -> Kante(UNBEST-ARTIKEL,i,j);
- Kante(ARTIKEL,i,j) -> Kante(BEST-ARTIKEL,i,j);
-
- Kante(VERB,i,j) -> Kante(schlaeft,i,j);
- Kante(VERB,i,j) -> Kante(kuesst,i,j);
- Kante(VERB,i,j) -> Kante(liebt,i,j);
- Kante(VERB,i,j) -> Kante(heiratet,i,j);
-
- Kante(KOPULA,i,j) -> Kante(ist,i,j);
-
- Kante(NOMEN,i,j) -> Kante(Mann,i,j);
- Kante(NOMEN,i,j) -> Kante(Liebhaber,i,j);
- Kante(NOMEN,i,j) -> Kante(Ehefrau,i,j);
- Kante(NOMEN,i,j) -> Kante(Freundin,i,j);
-
- Kante(EIGENNAME,i,j) -> Kante(Helmut,i,j);
- Kante(EIGENNAME,i,j) -> Kante(Rita,i,j);
-
- Kante(RELATIV-PRONOMEN,i,j) -> Kante(der,i,j);
- Kante(RELATIV-PRONOMEN,i,j) -> Kante(die,i,j);
-
- Kante(ADJEKTIV,i,j) -> Kante(jung,i,j);
- Kante(ADJEKTIV,i,j) -> Kante(junge,i,j);
- Kante(ADJEKTIV,i,j) -> Kante(feurig,i,j);
- Kante(ADJEKTIV,i,j) -> Kante(feurige,i,j);
- Kante(ADJEKTIV,i,j) -> Kante(betrogene,i,j);
-
- Kante(UNBEST-ARTIKEL,i,j) -> Kante(ein,i,j);
- Kante(UNBEST-ARTIKEL,i,j) -> Kante(eine,i,j);
-
- Kante(BEST-ARTIKEL,i,j) -> Kante(der,i,j);
- Kante(BEST-ARTIKEL,i,j) -> Kante(die,i,j);
- Kante(BEST-ARTIKEL,i,j) -> Kante(den,i,j);
-
- ST-ARTIKEL,i,j) -> Kante(der,i,j);
- Kante(BEST-ARTIKEL,i,j) -> Kante(die,i,j)