Ähnlichkeit ermitteln

Übersicht

BlitzBasic

Beginners-Corner

	mabox Betreff: Ähnlichkeit ermitteln	So, Sep 28, 2008 14:51 Antworten mit Zitat
Wir haben Zahl x und noch ganz viele andere Zahlen. Nun will ich wissen welche von den anderen Zahlen am nächsten an der Zahl x ist. gibt es noch eine einfachere Methode um das herauszufinden als diese:Code: [AUSKLAPPEN] [EINKLAPPEN] SeedRnd MilliSecs() x = Rnd(0,99) Dim andere_zahlen(5) Dim vergleichs_zahl(1) For i = 0 To 5 andere_zahlen(i) = Rnd(0,99) Print andere_zahlen(i) Next vergleichs_zahl(1) = x vergleichs_zahl(0) = x While Not jupi = 1 For i = 0 To 5 For a = 0 To 1 If vergleichs_zahl(a) = andere_zahlen(i) Then jupi = 1 Print Print "x: " + x + " + anderezahl: " + andere_zahlen(i) + " = Ähnlichkeit: "+(andere_zahlen(i) - x) EndIf Next Next vergleichs_zahl(1) = vergleichs_zahl(1) + 1 vergleichs_zahl(0) = vergleichs_zahl(0) - 1 Wend WaitKey()
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate www.mausoft.de.tl Dönerfresser Homepage

mabox

Betreff: Ähnlichkeit ermitteln

So, Sep 28, 2008 14:51
Antworten mit Zitat

Wir haben Zahl x und noch ganz viele andere Zahlen. Nun will ich wissen welche von den anderen Zahlen am nächsten an der Zahl x ist. gibt es noch eine einfachere Methode um das herauszufinden als diese:Code: [AUSKLAPPEN]

SeedRnd MilliSecs()
x = Rnd(0,99)

Dim andere_zahlen(5)
Dim vergleichs_zahl(1)

For i = 0 To 5
andere_zahlen(i) = Rnd(0,99)
Print andere_zahlen(i)
Next

vergleichs_zahl(1) = x
vergleichs_zahl(0) = x
While Not jupi = 1
For i = 0 To 5
   For a = 0 To 1
      If vergleichs_zahl(a) = andere_zahlen(i) Then
         jupi = 1
         Print
         Print "x: " + x + " + anderezahl: " + andere_zahlen(i) + " = Ähnlichkeit: "+(andere_zahlen(i) - x)
      EndIf
   Next
Next
vergleichs_zahl(1) = vergleichs_zahl(1) + 1
vergleichs_zahl(0) = vergleichs_zahl(0) - 1
Wend

WaitKey()

Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

	Goodjee	So, Sep 28, 2008 14:58 Antworten mit Zitat
am einfachsten gehts so: eine variable für die auf die zahl mit der kleinsten differenz zeigt, am anfang die erste zahl eine variable für die kleinste differenz(unnötig, aber schneller), die am anfang den betrag der differenz zwischen der ersten zahl und x beinhaltet dann geht du alle zahlen durch, guckst ob die differenz der zahl und x kleiner ist als die gespeicherte, und änders gegebenenfalls deine 2 variablen fertig
"Ideen sind keine Coladosen, man kann sie nicht recyclen"-Dr. House http://deeebian.redio.de/ http://goodjee.redio.de/

Goodjee

So, Sep 28, 2008 14:58
Antworten mit Zitat

am einfachsten gehts so:

eine variable für die auf die zahl mit der kleinsten differenz zeigt, am anfang die erste zahl
eine variable für die kleinste differenz(unnötig, aber schneller), die am anfang den betrag der differenz zwischen der ersten zahl und x beinhaltet
dann geht du alle zahlen durch, guckst ob die differenz der zahl und x kleiner ist als die gespeicherte, und änders gegebenenfalls deine 2 variablen

fertig

"Ideen sind keine Coladosen, man kann sie nicht recyclen"-Dr. House
http://deeebian.redio.de/ http://goodjee.redio.de/