asdfgh
Oct 06, 2010
view21249
view13
0
Goto Top

Wie viel verschiedene möglichkeiten gibt es ? wie kann ich diese möglichkeite errechnet darstellen?

GermansolvedQuestionMicrosoft OfficeMicrosoft

In meinem Betrieb stehe ich gerade vor einer komplizierten aufgabe. Da ich nicht alles erklären möchte, nehmen wir das beispiel von Sportwetten . Wie gesagt Sportwette soll als beispiel dienen.

gehen wir davon aus ein User möchte auf 5 Spiele wetten. Bei einer Wette gibt es 3 verschiedene Spielausgänge (Sieg Heimmannschaft | Unentschieden | Sieg Auswärtsmanschaft) . Jetzt soll es os sein das Der User auf jeden möglichen spielausgang setzen möchte.
also beispiel:

Tip 1
Spiel 1: Sieg Heim
spiel 2: Sieg Auswärts
Spiel 3 : Sieg Heim
Spiel 4: Sieg Heim
Spiel 5: Unentschieden

Tip 2
Spiel 1: Sieg Auswärts
spiel 2: Sieg Auswärts
Spiel 3 : Sieg Auswärts
Spiel 4: Unentschieden
Spiel 5: Unentschieden

Tip 3
etc
etc ..
..
.

das wären bei 5 Spiele mit je 3 möglichen Ausgäne pro Spiel wären es insgesamt 125 Wetten ( 5³ ) .

So was will ich nun ? ich möchte jetzt wissen ob ich in irgendeiner form das ganze so berechnen kann dass ich in Excel oder sonst irgendwie eine Auswertung habe wie die 125 verschiedenen konstelationen aussehen würden.

kann mir hierbei jemand helfen????

ich hoffe ich bin richtig hier damit.


hoffe auf eure hilfe ....

danke schon mal im voraus

mfg asdfg =)
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 152512

Url: https://administrator.de/contentid/152512

Printed on: April 29, 2024 at 05:04 o'clock

13 Comments
Latest comment
Goto Top
Mitglied: 90776
90776 Oct 06, 2010 at 20:14:57 (UTC)
Goto Top
also es sollte so aussehen???

1)
Ausgang 1
Ausgang 1
Ausgang 1
Ausgang 1
Ausgang 1

2)
Ausgang 2
Ausgang 1
Ausgang 1
Ausgang 1
Ausgang 1

etc...

wenn ja...

könnte es mit hochzählen (11111, 11112, ...., 55555) funktionieren.

wie genau, hab ich keine ahnung

Grüsse
Switcher
Member: asdfgh
asdfgh Oct 06, 2010 at 20:32:21 (UTC)
Goto Top
hey,

danke für deine schnelle antwort!

ja so hab ich mir das auch schon gedacht, mit 2 möglichn ausgängen wäre das ja auch kein problem!
aber wie mach ich dass wenn noch spielausgang 3 hinzukommt???

gruß asdfgh
Member: em-pie
em-pie Oct 06, 2010 at 20:39:02 (UTC)
Goto Top
Moin, also entweder hab ich gerade nen Brett vorm Kopp oder es wären 243 verschiedene Kombinationen:
3 Ergebnisse für 5 Spiele:
3^5

laut deiner Berechnung würde es bedeuten:
5 Tipps:
5 Spiele
5 Ergebnisse


grundlegend kann man das über schleifen lösen:

starte schleife "Tipp" von i=1 bis 243, erhöhe um 1  
   starte Schleife "Spiel" von k=1 bis 5, erhöhe um 1  
       starte Schleife "Ergebnis" von m=1 bis 3, erhöhe um 1  
          set Tipp=i
          set Spiel=k
          Wenn m=1 Dann (setze Ergebnnis=Heimsieg)
          Wenn m=2 Dann (setze Ergebnnis=Auswaertssieg)
          Wenn m=3 Dann (setze Ergebnnis=Unentschieden)
         gebe aus Tipp;Spiel;Eregbnis nach c:\Ergebnis.csv
       Next
   Next
Next

Allerdings hab ich selbst noch keine genauen Befehle; Programmieren zählt -wenn ich ehrlich bin- eher zu meinen weniger ausgeprägten Fähigkeiten ;)
Aber letzten endes sollte es nur eine Frage der Sprache sein!
Ging mir jedenfalls erstmal um die Logik.

Sollte ich einen Denkfehler haben:
So steinigt mich samt meinem wissen und schmeißt mich anschließend auf den Scheiterhaufen ;)

€dit:
@10750
du hast gerade 5^5 Kombinationen gebaut ;)
der letzte zustand ist nämlich 33333
In diesem Fall hier spricht man von 3^5 denn ich habe 3 verschiedene Zustände mit 5 Stellen

und das gibt wie oben beschrieben 243 Kombinationen (Tipps).

im Binärsystem ähnlich:
2^5 bedeutet ja letzten Endes, ich habe 2 Zustände (0 und 1) auf 5 Stellen verteilt
Member: asdfgh
asdfgh Oct 06, 2010 at 20:56:03 (UTC)
Goto Top
hi

danke für dei beitrag! aber es sind definitiv mehr möglichkeiten wie nur 15mögliche spielausgänge , denn 1 spiel hat 3 ausgänge.
2spiele hätten ja dann 3 x 3 = 9 ausgänge.
3spiele dann 3 x 3 x 3 = 27 spielausgänge.
etc....
...
hast ne idee hierfür? debk dein ansatz ist gut face-smile. danke
Member: Florian.Sauber
Florian.Sauber Oct 06, 2010 at 21:02:26 (UTC)
Goto Top
Hui Hui Hui...

Das ganze nennt sich Variation mit zurücklegen!
Hast Du , ums mal zu vereinfachen, eine Menge mit n=2 Elementen (0,1) und wähslt k=3 daraus aus, hast dun^k=2^3=8 Variationen, nicht 3^2=9!
Bsp.:
000
001
010
011
100
101
110
111

In Deinem Beispiel also nicht 5^3=125 sondern 3^5=243
Mit ner ordentlichen Programmiersprache bekommt man das schnell durch verschatelte Schleifen oder eleganter mit Rekusion hin. Da das Excel aber nicht ist, muss man sich da mit einem Trick behelfen.
Und da das so mit das älteste Problem ist, haben sich damit schon einige beschäftigt. Eine Anleitung findest Du z.B. unter
http://www.excel4managers.de/index.php?page=vmz
Musst halt die Paramter an Dein Problem angleichen.

LG Florian
Member: em-pie
em-pie Oct 06, 2010 at 21:04:27 (UTC)
Goto Top
Hi, habs ebend selbst gemerk und korrigiert ;)
243 Kombinationen
Member: Florian.Sauber
Florian.Sauber Oct 06, 2010 at 21:08:04 (UTC)
Goto Top
Zitat von @em-pie:
im Binärsystem ähnlich:
2^5 bedeutet ja letzten Endes, ich habe 2 Zustände (0 und 1) auf 5 Stellen verteilt
Das ist nicht nur ähnlich, das ist das aller tupfen selbige

LG Florian
Member: bastla
bastla Oct 06, 2010 at 21:13:05 (UTC)
Goto Top
Hallo asdfgh (ich neige zu Begrüßungen face-wink)!

Als VBScript (mit Verwendung Deiner Terminologie, zB "Tipps") könnte das Ganze etwa so aussehen:
Ausgang = Array("H", "U", "A")  
Anzahl = 5
Ergebnis = "D:\Tipps.txt"  

AusgMax = UBound(Ausgang)
i = 0

Set Ausgabe = CreateObject("Scripting.FileSystemObject").CreateTextFile(Ergebnis)  
Kombiniere "", 1  
Ausgabe.Close

Sub Kombiniere(Tipp, Stelle)
    For a = 0 To AusgMax
        If Stelle < Anzahl Then Kombiniere Tipp & Ausgang(a), Stelle + 1
        T = Tipp & Ausgang(a)
        If Len(T) = Anzahl Then
            i = i + 1
            Ausgabe.WriteLine i & vbTab & T
        End If
    Next
End Sub
Grüße
bastla
Member: Florian.Sauber
Florian.Sauber Oct 06, 2010 at 21:17:52 (UTC)
Goto Top
Respekt, bastla!

Du beeindruckst mich immer wieder... So schnell hätt ich das ja nichtmal in C runtergetipptface-wink

LG Florian
Member: bastla
bastla Oct 06, 2010 at 21:22:33 (UTC)
Goto Top
[OT]
@Florian.Sauber
So schnell hätt ich das ja nichtmal in C runtergetipptface-wink
Naja, wenn Du nicht auf QWERTY umschaltest, halten die "{" und "}" ganz schön auf ... face-wink (und außerdem sind schon wieder die Kommentare auf der Strecke geblieben)

Auf jeden Fall: Danke für die Blumen ... face-smile

Grüße
bastla
[/OT]
Member: asdfgh
asdfgh Oct 07, 2010 at 06:13:03 (UTC)
Goto Top
Hi Bastla,

erstmal Danke für dein tolles VB-Skript .

ok hatte ich wohl ein denkfehler dass es nur 125 möglichkeiten sind :D...

DAnke und Grüße

asdfgh
Member: asdfgh
asdfgh Oct 20, 2010 at 16:32:38 (UTC)
Goto Top
hallo bastla,

könntest du mir das ganze auch in vb geben ??? das wäre sehr cool ...

danke und grüße
Member: bastla
bastla Oct 20, 2010 at 17:13:43 (UTC)
Goto Top
Hallo asdfgh!
könntest du mir das ganze auch in vb geben ???
Als fast 1:1-Konvertierung etwa so:
    Sub Kombi()
        Dim Ausgang() As String = {"H", "U", "A"}  
        Dim Anzahl = 5
        Dim Ergebnis = "D:\Tipps.txt"  

        Dim AusgMax = UBound(Ausgang)
        Dim i = 0

        Dim Ausgabe = CreateObject("Scripting.FileSystemObject").CreateTextFile(Ergebnis)  
        Kombiniere("", 1, i, Ausgang, AusgMax, Anzahl, Ausgabe)  
        Ausgabe.Close()
    End Sub

    Sub Kombiniere(ByVal Tipp, ByVal Stelle, ByRef i, ByVal Ausgang(), ByVal AusgMax, ByVal Anzahl, ByVal Ausgabe)
        For a = 0 To AusgMax
            If Stelle < Anzahl Then Kombiniere(Tipp & Ausgang(a), Stelle + 1, i, Ausgang, AusgMax, Anzahl, Ausgabe)
            Dim T = Tipp & Ausgang(a)
            If Len(T) = Anzahl Then
                i = i + 1
                Ausgabe.WriteLine(i & vbTab & T)
            End If
        Next
    End Sub
Da in VBS Variablen immer global sind, war dort die Übergabe der meisten Variablen an das "Sub Kombiniere()" nicht erforderlich.

Grüße
bastla
GermansolvedQuestionMicrosoft OfficeMicrosoft
Hotly discussed
DaniEnd of availability for classic Teams clientDani - 1 CommentadmtechDeveloper diary: Release 6.1admtech