Toto Hilfe < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Aufgabe | Definieren Sie die Funktionen TotoResult[] und hasWon[result_, tipp_]
Bei der Toto Fußballwette tippt man bei 12 verschiedenen Fußballspielen auf Heimsieg (1), Auswärtssieg (2) oder Unentschieden (x). Schreiben Sie eine Funktion TotoResult[] , welche eine Liste mit 12 zufälligen Einträgen (1, 2 od. x) erzeugt (z.B. {1, 1, 1, 2, 1, 1, 1, x, 1, 2, 1, x}) und somit das Ergebnis einer Totorunde simuliert.
Weiters - schreiben Sie eine Funktion hasWon[result_, tipp_], welche eine gegebene Totorunde (result) mit einem eigenen Tipp (tipp) vergleicht, und die Anzahl der Übereinstimmungen ausgibt (Achtung: Reihung der Einträge ist entscheidend!). Weiters soll eine Nachricht ausgegeben werden, ob gewonnen wurde (mind. 10 Richtige) oder nicht. |
Bitte um HILFE ich kenne mich mit mathematica = 0 aus und brauche das bis nächste woche Montag. Wenn mir wer helfen kann, dass währe toll. Dieses MAthematica kann alles nur ich kann noch nicht umgehen damit und finde einfach keinen Weg, dieses PROG. in die Mathematica schreibweise umzusetzen.
LG WPCLEADER
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
| |
|
...dass von Euch erwartet wird, ein Programm in einer Sprache zu schreiben, die Euch nicht (ausreichend) vorgestellt wurde ![[abgelehnt]](/images/smileys/abgelehnt.gif "[abgelehnt]")
Aber Hallo erst mal!
Eine Tabelle mit 12 Elementen zu erstellen, geht mit Table[...,{12}].
An die Stelle der Punkte muss eine Anweisung gesetzt werden, die aus der Liste {1, 2, x} zufällig eines auswählt. In Version 6 gibt es ![[]](/images/popup.gif) RandomChoice, das einem auch die Konstruktion per Table[...] erspart.
Ansonsten (Version < 6) kann man eine Zufallsvariable aus dem Bereich 1 bis 3 ermitteln und entweder die 3 durch ein x (mit /. 3-> x) ersetzen, oder diese Zahl als Index auf die Liste {1, 2, x} verwenden (Part[{1,2,x},Random[Integer,{1,3}]]).
Um zu bestimmen, wieviele Elemente zweier zwölfelementiger Listen übereinstimmen, ist es am einfachsten, die Differenz zu bilden und die resultierenden Nullen zu zählen. Mathematica kann ganze Listen elementweise subtrahieren, so dass ein einfaches result - tipp genügt, um die auf Nullen zu testende Liste zu erzeugen.
Es liegt nahe, zu vermuten, dass Count[liste,0] die Anzahl der Nullen in "liste" zurück gibt. ...und tatsächlich!
Diese Tipps sollten eigentlich reichen, um diese Aufgabe zu bewältigen. Gegebenenfalls macht es auch Sinn, sich mit anderen zusammen zu setzen, so dass jede(r) ihr (sein) Wissen einbringen kann. Mir hat's damals zumindest geholfen (und den anderen auch, will ich hoffen).
Viel Erfolg und falls doch nur Bahnhof verstanden wird, nochmal nachfragen!
Peter
|
|
|
|
