Satzstrukturen vergleichen
Die Struktur von zwei Sätzen kann durch die Berechnung und Verarbeitung ihrer jeweiligen Satzkomponenten verglichen werden.
Veranschaulichen Sie die Struktur eines Satzes als Baumgraph.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_97.png)
graph = TextStructure["Time flies like an arrow.", "ConstituentGraph"]
![](assets.de/compare-the-structure-of-sentences/O_65.png)
Berechnen Sie die Matrix der Distanzen zwischen allen Knoten des Graphen.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_98.png)
distancemat1 = GraphDistanceMatrix[First[graph]];
MatrixForm[distancemat1]
![](assets.de/compare-the-structure-of-sentences/O_66.png)
Gehen Sie auf ähnliche Weise mit einem anderen Satz vor.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_99.png)
graph2 = TextStructure["I fly in the sky.", "ConstituentGraph"];
distancemat2 = GraphDistanceMatrix[First[graph2]];
Vergleichen Sie die Struktur der zwei Sätze, indem Sie ihre Distanzmatritzen gegenüberstellen.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_100.png)
distancemat1 == distancemat2
![](assets.de/compare-the-structure-of-sentences/O_67.png)
Die beiden Sätze haben dieselbe Struktur.
Finden Sie Sätze mit identischer Struktur in zwei unterschiedlichen Wikipedia-Artikeln. Extrahieren Sie zuerst Sätze mit einer bestimmten Wortanzahl und erstellen Sie Graphen für beide.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_101.png)
processWikiPage[article_] :=
Select[TextCases[WikipediaData[article], "Sentences"],
WordCount[#] < 5 &];
genStructure[article_] :=
Flatten[TextStructure[#, "ConstituentGraph"] & /@
processWikiPage[article]];
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_102.png)
phrasestruct1 = genStructure["Philosophy"];
phrasestruct2 = genStructure["History"];
Berechnen Sie die Distanzmatritzen.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_103.png)
adj1 = GraphDistanceMatrix /@ phrasestruct1;
adj2 = GraphDistanceMatrix /@ phrasestruct2;
Vergleichen Sie die Sätze der beiden Artikel paarweise.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_104.png)
comparison = Outer[Equal, adj1, adj2, 1];
Dies sind die Satzpaare mit identischer Struktur.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_105.png)
pickedSentences =
Flatten[Pick[Outer[List, phrasestruct1, phrasestruct2], comparison,
True], 1];
Dies ist das erste Paar.
![Click for copyable input](assets.de/compare-the-structure-of-sentences/In_106.png)
First[pickedSentences]
![](assets.de/compare-the-structure-of-sentences/O_68.png)