Mike32

Hier der gewünschte Quellcode zur Auswertung der INAUDI-Figur und des Spiegelbildes. Am Anfang werden die Daten jedoch aus den Permanenztabellen eingelesen und in 14er-Blöcke entsprechend ausgewertet. Will man keine Auswertung in 14er-Blöcken machen, sondern jeden Coup entsprechend auswerten (also Coup nach Coup), dann fügt man bei ´**** noch folgende Befehlszeile ein: tt=tt-13 Dim Testaus(14) As Integer Public Ausreihe As Long Sub Inaudi() Ausreihe = 0 For t = 1 To 98 Sheets(t).Activate: Zähler = 0 For tt = 1 To 40000 temp = "A" + Mid((Str$(tt)), 2) If IsEmpty((Worksheets(Sheets(t).Name).Range(temp).Value)) = True Then Exit For Zähler = Zähler + 1 temp = Worksheets(Sheets(t).Name).Range(temp).Value ´ Wenn eine 0 vorkommt, ist der Block ungültig. If temp = 0 Then Zähler = 0 GoTo wei End If ´Auswertung nach R/S If temp = 1 Or temp = 3 Or temp = 5 Or temp = 7 Or temp = 9 Or temp = 12 Or temp = 14 Or temp = 16 Or temp = 18 Or temp = 19 Or temp = 21 Or temp = 23 Or temp = 25 Or temp = 27 Or temp = 30 Or temp = 32 Or temp = 34 Or temp = 36 Then 'Rot Testaus(Zähler) = 1 Else Testaus(Zähler) = 2 End If ´ Nun Auswerten, ob überhaupt die Inaudi-Figur vorliegt If Zähler = 14 Then ´**** Zähler = 0: Flag2 = 0: Flag1 = 0 If Testaus(1) = 1 And Testaus(2) = 2 And Testaus(3) = 2 And Testaus(4) = 2 And Testaus(5) = 2 And Testaus(6) = 1 And Testaus(7) = 1 And Testaus(8) = 1 And Testaus(9) = 1 And Testaus(10) = 2 And Testaus(11) = 2 And Testaus(12) = 2 Then ´Wenn ja, nun Auswertung der Coups 13 und 14 If Testaus(13) = 1 Then Flag1 = 1 Else Flag1 = -1 If Testaus(14) = 2 Then Flag2 = 1 Else Flag2 = -1 End If End If ´ Nunr Eintrag des Auswerteergebnisses in Tabelle “Auswertung”. Ausreihe = Ausreihe + 1 temp = "A" + Mid((Str$(Ausreihe)), 2) Worksheets("Auswertung").Range(temp).Value = Sheets(t).Name temp = "B" + Mid((Str$(Ausreihe)), 2) Worksheets("Auswertung").Range(temp).Value = Flag1 temp = "C" + Mid((Str$(Ausreihe)), 2) Worksheets("Auswertung").Range(temp).Value = Flag2 End If ´Hier nochmals das Gleiche, aber diesmal für die Spiegelfigur If Testaus(1) = 2 And Testaus(2) = 1 And Testaus(3) = 1 And Testaus(4) = 1 And Testaus(5) = 1 And Testaus(6) = 2 And Testaus(7) = 2 And Testaus(8) = 2 And Testaus(9) = 2 And Testaus(10) = 1 And Testaus(11) = 1 And Testaus(12) = 1 Then If Testaus(13) = 2 Then Flag1 = 1 Else Flag1 = -1 If Testaus(14) = 1 Then Flag2 = 1 Else Flag2 = -1 End If End If Ausreihe = Ausreihe + 1 temp = "A" + Mid((Str$(Ausreihe)), 2) Worksheets("Auswertung").Range(temp).Value = Sheets(t).Name temp = "B" + Mid((Str$(Ausreihe)), 2) Worksheets("Auswertung").Range(temp).Value = Flag1 temp = "C" + Mid((Str$(Ausreihe)), 2) Worksheets("Auswertung").Range(temp).Value = Flag2 End If End If wei: Next tt Next t Grüße Mike32

@ Kismet, matthias Natürlich, habt Recht. DANKE! Ich werde die Routine umschreiben und morgen nochmals arbeiten lassen. @matthias Geht klar, melde dich einfach nach dem Urlaub mal. Übrigends, ich wünsch dir einen schönen Urlaub! Grüße Mike32

@ Mr. M. Tja, hat mich auch gewundert. Ich habe folgende Figur (und die beiden anschließenden Coups) ausgewertet: R N N N N R R R R N N N und natürlich das Spiegelbild davon. Aber ich werde morgen noch einmal die Routine überprüfen. Werde morgen berichten. Grüße Mike32

@ buk Ich habe kein Problem die Routine ins Forum zu stellen. Geht aber erst morgen. Die Routine ist natürlich speziell auf meine Permanenztabellen abgestimmt. Den Rest jedoch kann man sauber übernehmen. Nun zum 2. Angriff. Vom Prinzip einfach. Man nehme 14 Coups im Block. Werte die ersten 12 Coups z.B. nach R/S aus. Vergleiche diese nach der INAUDI-Figur bzw. dem Spiegelbild hierzu. Wenn INAUDI-Figur/Spiegelbild, dann schauen wir uns Coup 13 und 14 an. Wenn Coup 13 Treffer, dann entsprechendes Ergebnis in Tabelle "Auswertung" schreiben. Wenn Coup 13 k. Treffer, dann Coup 14 entsprechend auswerten. Das Ergebnis (Treffer/Fehltreffer) ebenfalls nun in die Tabelle "Auswertung" schreiben. Das war's dann. Am Ende die Tabelle "Auswertung" kurz per Hand auswerten (sind ja nur 22 Ergebnisse). Ja, so ist es. Grüße Mike32

@ buk, wie du weißt, stelle ich immer gerne meine Programme zur Verfügung. In diesem Fall jedoch geht das nicht. Ich habe nämlich eine einfach VBA-Routine geschrieben, die über die Permanenzen lief. Lag dann ein Satzsignal (12 Coups) vor, dann wurden die beiden folgenden Coups ausgewertet. Die Ergebnisse wurden dann in einer Excel-Tabelle protokolliert (waren ja nicht viele). Grüße Mike32

@ matthias so, wieder auf dem "Damm", hier mal eine kurze Auswertung über ca. 855.500 Coups nur R/S (bei Beachtung der Spiegelfigur): 22 Angriffe hiervon 1. Angriff erfolgreich: 11 St. 2. Angriff erfolgreich: 7 St. Endgültig verloren: 4 St. Theoretisches Saldo: 6 St. Alle ca. 40.000 Coups 1 Angriff. Irgendwie spiegelt das Ergebnis die normale mathematische Trefferwahrscheinlichkeit wieder. Grüße Mike32

@ neuge, könntest du bitte das System kurz erklären? Was meinst du, dass ist es wert? Grüße Mike32

@ RCEC eien pfiffig Idee. Wieviel Stücke sollte man vorhalten? Grüße Mike32

@ hema55 Spielst du Naturcasino und Countest? Was meinst du mit BS? Grüße Mike32

Tja, bevor wir weitereden sollten wir erst klären, welche Definition wir von Bestechlichkeit nehmen (juristische, psychologiesche, moralische (nach welcher Moral denn dann?), ...). Grüße Mike32 P.S. Außerdem bin ich der Meinung, sollten wir dieses Themengebiet einfach lassen.

So, bevor ich aufgrund der Unterstellung, dass ich bestechlich bin rot anlaufe noch ein paar Worte. Die Behauptung, dass alle Menschen und somit auch ich bestechlich bin, ist eine unsachliche Behauptung, die durch nichts bewiesen ist. Wenn man dann noch bedenkt, dass z.B. Roulettist mich noch nicht mal kennt, finde ich seine Behauptung hart an der Grenze der Beleidigung! - Oder ist das nicht sogra eine Beleidigung?! Ich möchte mal aus dem Strafgesetzbuch zitieren. Gem. §332 StGB Abs. 1 ist Bestechlichkeit, wenn "Ein Amtsträger oder ein für ein öffentlichen Dienst besonders Verpflichtete, der einen Vorteil für sich oder einen Dritten als Gegenleistung dafür fordert, sich versprechen läß oder annimmt, dass er eine Diensthandlung vorgenommen hat oder künftig vornehme und dadurch seine Dienstpflicht verletzt hat oder verletzen würde, wird mit Freiheitsstrafe von sechs Monaten bis zu fünf Jahren bestraft. ..." D.h. also nach Roulettist, dass ich ein Dienstvergehen begehe, um einen Vorteil zu erlangen. Ich denke, man sollte sehr vorsichtig mit solchen Bemerkungen sein, da man sonst schnell eine Klage wegen Rufmord und Beleidigung am Hals hat. Jetzt noch ein kurzes Wort zu adis. Das Beispiel mit dem Tyrannenmord, welches man ziemlich früh im Jurastudium lernt ist KEINE Bestechung! Hier geht es um die Frage nach §§211 ff. StGB (schlag mal nach). Gruß Mike32 (ziemlich "sauer")

@ roulettist Ich mische mich ja nur ungern ein, aber es gibt auch Menschen, die unbestechlich sind. Ich zähle mich übrigends auch dazu. Denn auch ich schaue mich gerne morgens im Spiegel an ohne einen Brechreiz zu kriegen. Es soll auch Menschen geben, die Idealisten sind! Grüße Mike32 P.S. Ich denke, damit sollte man dieses Thema auch bewenden lassen und nicht immer allen Menschen "Bestechlichkeit" unterstellen.

@ werner-linz müsste man dekompilieren und ggf. debuggen. Das Problem ist, dass es Zeit kostet. Grüße Mike32

@tomas39 Ich habe ziemlich lange mit div. Charttechniken rumexperimentiert. Ich denke, dass man damit schon "Ausreißer" sehen kann. Aber, sollte manipuliert werden, dann wird diese Manipulation nicht bei 5 Cent beginnen, sondern erst z.B. bei 1$. Von daher weiß ich nicht, ob das so zutreffend ist. Grüße Mike32 P.S. Mit Typ 24 meinst du sicherlich 24 Coups als Mittelwertberechnungsgrundlage oder?

@ Paroli, hervorragend, Respekt! Grüße Mike32

Hei stephan und wie willst du die 30% sparen? grüße Mike32

Eine kurze Frage: Was ist Add-One und Rebuy? DANKE! Grüße Mike32

@ werner-linz Das stimmt, der Support ist Klasse. grüße Mike32 ::!::

@ Werner-Linz Nur ein kurze Frage, da ich auch die L.'s Roulettesystem besitze (legal). Was heißt "im richtigen game am tisch"? Spielst du es "nur" im Naturcasino? Grüße Mike32

@ krebs 23 Ich denke nicht, dass hier was starr zu machen ist. Eine starre Progression würde, wenn überhaupt aufgrund der Limits umsetztbar, tödlich sein. Ich denke, da muss man flexibel ran. Grüße Mike32

@ Adis Was heißt denn DEKA? Grüße Mike32

@ krebs 23 Leider hast du einen Denkfehler gemacht. Das Ergebnis sieht wie folgt aus: <pre> Stufe Anzahl Ertrag 1 1061 37135 2 785 26690 3 772 25476 4 768 24576 5 748 23188 6 705 21150 7 669 19401 8 695 19460 9 658 17766 10 689 17914 11 648 16200 12 585 14040 13 569 13087 14 570 12540 15 537 11277 16 540 10800 17 461 8759 18 464 8352 19 509 8653 20 490 7840 21 430 6450 22 450 6300 23 456 5928 24 451 5412 25 417 4587 26 414 4140 27 409 3681 28 356 2848 29 363 2541 30 376 2256 31 361 1805 390252 Platzer 12618 -391158 -906 </pre> Bei masse-egal natürlich. Grüße Mike32

@ krebs 23 Hier mal schnell die Auswertung: Stufe Anzahl 1 1061 2 785 3 772 4 768 5 748 6 705 7 669 8 695 9 658 10 689 11 648 12 585 13 569 14 570 15 537 16 540 17 461 18 464 19 509 20 490 21 430 22 450 23 456 24 451 25 417 26 414 27 409 28 356 29 363 30 376 31 361 Platzer 12618 Grüße Mike32

@ krebs 23 Hier die neue Auswertung: 1 1061 2 998 3 1031 4 982 5 957 6 954 7 872 8 947 9 929 10 801 Platzer 29531 Bei masse-egal Saldo: -2796 St. Trefferwahrscheinlichkeit bei allen 10 Stufen zusammen: 24,4% Grüße Mike32

@ krebs 23 Mist, ich habe den Fehler gefunden. Ich habe immer, wenn das Satzsignal vorlag, die entsprechende Zahl und die beiden Nachbarn "gesetzt" und entsprechend auch ausgewertet! Nachdem ich deine Regeln nochmals genau gelesen habe, habe ich festgestellt, dass ja nur die eine entsprechende Zahl gesetzt wird. Ich werde nachher nochmals die modifizierte Auswertung starten und das Ergebnis anschließend mitteilen. Grüße Mike32