Halbernste Umfrage.

[crossroads]

Kleine Wortspielerei mit dem Thread-Titel:

(H)albernste Umfrage

[rolaf]

Und hier die Auswertung dieser Umfrage von einem "Mathematiker" für die nächste Lottoziehung:

Ja - Ja - Ja - Ja - Ja - Ja / ZusatzJa /SuperJa

Alles klar? Wenn nicht hier schauen. Gebt Bekloppten eine Chance!

[ZeHa]

löl geil muß mir auch mal sowas einfallen lassen um den Leuten das Geld aus der Tasche zu ziehen

[Marvin]

selbst pb sagt per random "4"

[ts-soft]

Noch liegt die 4 vorne

[Froggerprogger]

Vielleicht hat das Erwähnen der 4 im Topic ihr einen Schub verpasst ?
Wenn das so ist, sei hier nochmal die 1, 2, 3, 5, 6 explizit erwähnt, und die 4 extra nicht.
Aber vielleicht scheint man intuitiv doch eher so irgendwas mittiges zu wählen, dann braucht man sich nicht zwischen einem der Extreme zu entscheiden.

Was würde Sigmund Freud dazu sagen ?
Der Mensch hat nunmal den intensivsten Bezug zu seiner Mitte.
Und ein Politiker ?
In einer Demokratie haben die Stimmergebnisse in der Mitte die Mehrheit.
Und ein Mathematiker ?
Die Stimmgewichtung approximiert eine unverschobene Normalverteilung mit relativ kleiner Varianz.
Und ich ?
hmmm.
Und Justus Jonas, Peter Shawn und Bob Andrews?
???
Und Pipi Langstrumpf ?
6 ist 3 plus 3 - und 3 mal 3 macht 4
Und der Papst ?
Zwischen Beginn und Ende, Alpha und Omega, ist die 4-Faltigkeit (Dreifaltigkeit plus Einfaltigkeit)
Und ... äh. Ich muss jetzt auch mal weiterlernen...

[NicTheQuick]

Die Streung ist tatsächlich relativ klein:

Code: Alles auswählen

Restore Umfrage
Read max
Dim Umfrage.d(max)
Votes.l
For a = 1 To max
  Read Umfrage(a)
  Votes + Umfrage(a)
  Debug Votes
Next
For a = 1 To max
  Umfrage(a) / Votes
  E.d + a * Umfrage(a)
  Equ.d + a * a * Umfrage(a)
Next
V.d = Equ - E * E
d.d = Sqr(V)

s.s = "Erwartungswert: " + StrD(E, 2) + #CRLF$
s   + "Varianz: " + StrD(V, 2) + #CRLF$
s   + "Streuung: " + StrD(d, 3) + #CRLF$
s   + "Intervall: [" + StrD(E - d, 2) + "; " + StrD(E + d, 2) + "]"

MessageRequester("Umfrage", s)

DataSection
  Umfrage:
    Data.l 6
    Data.d 2, 3, 5, 10, 6, 3
EndDataSection

Ich finde die Umfrage ähnelt einer Gauß'schen Glockenkurve oder wie das
heißt.