Künstliche Intelligenz (Seite 7) (Allgemeines zu Perl)

ptk

2004-08-12 21:27

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Das hoert sich nach einem Thesaurus an.

Crian

2004-08-13 15:24

User since
2003-08-04
5866 Artikel
ModeratorIn

Hmm... ein Thesaurus sucht ja verwandte Begriffe zu einem vorgegebenen Begriff. Hier möchte man aber auch Begriffspaare, die zusammengehörig und nicht widersprüchlich sind, als OK gemarkert bekommen.

Also VOLVO und Autohandlung sind sicherlich keine Synonyme, aber sie gehören irgendwie zusammen und widersprechen sich nicht.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

sri

2004-08-13 16:20

User since
2004-01-29
828 Artikel
BenutzerIn

Nach deinen Anforderungen würde ich von wilden AI Spielereien erstmal absehen und lieber eine ganz simple Lösung mit zwei Tabellen als Ausgangsbasis benutzen.

Code: (dl )

 id |    word
---+-------------
  1 | schrottplatz
  2 | wohnzimmer
  3 | lampe
  4 | wrack
  5 | schirm
  6 | blech


 word1 | word2
------+-------
  1    | 4
  2    | 3
  3    | 5
  4    | 6

Diese Lösung wird natürlich langsamer mit der Tiefe der Verknüpfungen.
Die endgültige Entfernung der beiden Worte kannst du dann zur Gewichtung der Relevanz nutzen.

Wenns aber dann doch Wahrscheinlichkeitsberechnung sein soll ist AI::Categorizer ein echtes Schmankerl. ;)

EDIT: Besseres Beispiel\n\n

http://mojolicio.us/

ptk

2004-08-13 16:45

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Soweit ich weiss, werden in einem Thesaurus nicht nur Synonyme verwaltet, sondern auch andere Beziehungen (hierarchische, SEE ALSO usw.)

Crian

2004-08-13 19:55

User since
2003-08-04
5866 Artikel
ModeratorIn

@Thesaurus: Kann sein, da kann ich mich ja mal schlau machen.
@AI::Categorizer Da hab ich auf dem letzten Perlworkshop einen interessanten Vortrag drüber gehört, aber für dieses Problem taugt der Ansatz imho nicht.
@Listenansatz Ok, sowas in der Art dachte ich mir auch, hätt ja sein können, dass es etwas schlaueres schon fertig gibt ;)

Danke für Eure Vorschläge.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

cbxk1xg

2006-02-12 00:41

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Quote
Ein Autohaus gehört zur KFZ-Branche.
Die KFZ-Branche ist eine Branche.
Eine Verkaufstelle für VOLVOS ist ein Autohaus.

Also wenn ich das richtig verstanden habe klingt das nach Ontologien. Das ist aber eher was für einsame Novemberabende. Denn der Trick ist die Kanten- und nicht die Knotendefinition der Datenbank. Ein guter Freund von mir hat da mal eine Diplomarbeit drüber geschrieben. Ich hab' die auch noch irgendwo rumfliegen. Das ist zwar nicht perlspezifisch aber möglicherweise informativ.

Ansonsten einfach mal hier nachgucken: http://de.wikipedia.org/wiki/Ontologie_%28Informatik%29

Edit: Das ist auch nah an dem, was ich momentan plane. Bei mir ist es ein sog. Expertensystem.\n\n

renee

2006-02-13 00:24

User since
2003-08-04
14371 Artikel
ModeratorIn

Expertensysteme kann man wunderschön mit Prolog machen und dafür hat Perl ja ein paar nette Module: CPAN:

Language::Prolog::Yaswi und CPAN:

AI::Prolog...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

cbxk1xg

2006-02-13 00:32

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Danke für die Links, die Module kenne ich aber mittlerweile. Das ist in meinem Fall leider nicht annähernd das, was ich brauche. Das was ich brauche gibt's (noch) nicht fertig.

renee

2006-02-13 00:53

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du Hilfe brauchst, brauchen wir mehr Informationen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Froschpopo

2006-02-13 01:01

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

[quote=Robby,08.03.2004, 12:31]Hallo Leute,

wie könnte man künstliche Intelligenz in Perl programmieren?
Ich meine ein Viech das auf Deine Fragen antwortet bzw. mit dem man einfach sinnlos plaudern kann?

Bsp. http://www.yellostrom.de/ (soll keine Schlecihwerbung sein, aber die haben so eine nette Tussi oben rechts mit der man sich "unterhalten" kann - Ist die Weiterentwicklung von Karl Klammer im Office :D )

Mich würde mal interessieren wie man so ein Projekt angehen könnte...
Jemand eine Idee?[/quote]
LOL ich war grad bei yellowstrom und geb ein: "stehst du auf blowjob?" und sie so: ok, ich vergesse sie lieber... und geht raus...

daraufhin kommt sie nach ner weile wieder und ich frage sie: "willst du wenigstens ficken?"

und sie: ok, jetzt wirds ernst..