PureBoard

Verfasst: **30.03.2006 11:01**

Kleine Wortspielerei mit dem Thread-Titel:

(H)albernste Umfrage

Verfasst: **30.03.2006 11:23**

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!

Verfasst: **30.03.2006 11:29**

löl geil

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

Verfasst: **30.03.2006 12:10**

selbst pb sagt per random "4"

Verfasst: **30.03.2006 12:16**

ts-soft hat geschrieben:Noch liegt die 4 vorne

Verfasst: **30.03.2006 13:36**

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...

Verfasst: **30.03.2006 15:39**

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.

PureBoard

Halbernste Umfrage.