Ähnlichkeit von Wörtern berechnen

[Jac de Lad]

Hi Leute.

Hat jemand Ahnung, wie man so in etwa die Ähnlichkeit von Wörtern berechnen kann? Es geht mir um eine Funktion wie in Google, wo automatisch korrigiert wird "Meinten sie ...". Leider habe ich überhaupt keinen Ansatz, wie man das realisieren könnte.

[Frabbing]

Hier eine Methode, bei der eine Näherung von Vergleichsworten auf Buchstabenbasis verwendet wird. Ist sicher nicht perfekt, aber vielleicht ein Anfang:

Declare zahl&

Proc mittle
  Parameters text$
  Declare bereich#,x&,mit&
  Dim bereich#,512
  text$=Upper$(text$)
  String bereich#,0=text$
  mit&=0
  Whileloop Len(text$)
    x&=(Byte(bereich#,(&loop-1))-78)
    mit&=mit&+x&
  EndWhile
  mit&=Abs(mit&+zahl&)
  Print text$,
  If zahl&
    Print Str$(mit&)
  Else
    Print
  EndIf
  Dispose bereich#
  Return mit&
EndProc

Cls

Print "Suchwort: ";
zahl&=mittle("Umwandlung")

Print
Print "Ähnliche Wörter haben niedrigere Mittlungen"
Print

mittle("Umrandung")
mittle("Rumwandlung")
mittle("Umwaldung")
mittle("Urwald")

Print
Print "Andersartige Wörter haben eine höhere Mittlung"
Print

mittle("Umweltverschmutzung")
mittle("Addieren")
mittle("Zwangshandlung")
mittle("Madagascar")
mittle("Keinohrhasen")


WaitInput

End

Hier ein interessanter Link mit effizienteren Techniken: http://pcai056.informatik.uni-leipzi...inarFastSS.pdf

[Jac de Lad]

Wow, danke. Ich schau mir das gleich mal an.