Selbst programmierte Programme

Es gibt 140 Antworten in diesem Thema, welches 26.204 mal aufgerufen wurde. Der letzte Beitrag (22. April 2020 um 04:53) ist von AW182.

  • - einstellige Tipps sowie einstellige Ziehungszahlen sind jetzt zweistellig dargestellt (z.B. 2 ist nun 02, 3 ist nun 03 usw.).

    Hmmm... das verstehe ich jetzt aber nicht so ganz. Beim richtigen Lotto steht doch auch nicht "03" auf der Kugel oder dem Lottoschein?

    Das hängt nur mit der Darstellung zusammen.

    Beispiel:

    Spieler 1: 15 1 38 7 10 3

    Spieler 2: 18 1 7 5 6 13

    Sieht sauberer am Bildschirm aus wenn

    Spieler 1: 15 01 38 07 10 03

    Spieler 2: 18 01 07 05 06 13

    So ist für jede Tipfolge die gleiche Breite erreicht. (Bin kfm. Angestellter - hängt sicherlich damit zusammen :emojiSmiley-06:)

    Habe auch mit Leestellen statt der Null experimentiert, aber das hat mir irgendwie auch nicht gefallen...letztendlich ist es wohl eine Geschmackssache.

  • Naja, idealerweise änderst Du noch den Zeichensatz und machst kleine Kugeln mit Zahlen drauf. :smile:

    Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen. :böse Bitte melde dich an, um diesen Link zu sehen. Bitte melde dich an, um diesen Link zu sehen.
    Bitte melde dich an, um diesen Link zu sehen.

    „Vor dem Himmel kommt das Leben auf Erden, und da gilt es, eine soziale Gesellschaft aufzubauen.“ – Heinz Nixdorf (1986)

    Bitte melde dich an, um diesen Link zu sehen. :beer:Bitte melde dich an, um diesen Link zu sehen. Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.

  • Hey!

    Das wäre es doch...

    Und in 5 Jahren schraube ich immer noch an dem Ding herum :emojiSmiley-23:

    Man kann sich wirklich ewig mit der Sache abgeben, aber ich glaube irgandwann muß auch mal gut sein.

    Obwohl, die Sache mit den Kugeln...irgendwie ne echt gute Idee!

  • Und in 5 Jahren schraube ich immer noch an dem Ding herum :emojiSmiley-23:

    Man kann sich wirklich ewig mit der Sache abgeben, aber ich glaube irgandwann muß auch mal gut sein.

    Obwohl, die Sache mit den Kugeln...irgendwie ne echt gute Idee!

    Man hat immer Ideen wie man es noch besser machen kann. :D Auf jeden Fall finde ich das ein tolles Projekt und vor allem interessant deine Entwicklung da mit zu verfolgen. :thumbsup:

  • Hm?:emojiSmiley-15:

    Seltsam, ich kann bei mir keinen wirklichen Unterschied bezüglich der Geschwindigkeit feststellen.

    Auf dem Disk-Image sind doch zwei Versionen - das reine Basic und die kompilierte Version (die aus meiner Sicht befriedigend schnell ist).

    Und noch schneller läuft, wenn die zusätzlichen Optionen abgeschaltet sind.

    Stimmt, wenn man die 2x Version nimmt. Ich hab mal gestoppt, dann dauern 100 Ziehungen in deiner Version 1:12 Minuten und in meiner 1:05. Dann ist es fast gleich schnell. Ich hatte gedacht, weil dieses 2x File so viel grösser ist, daß die andere Version die beste wäre und nur diese kleinere ausprobiert vorher. Gut, hätte ich mir vielleicht denken können aufgrund des x mit im Namens, dass man die auch mal mit testen könnte. :) Aber eine Frage - warum ist dieses File bei dir eigentlich so riesig geworden nach dem kompilieren? Mein "Austro Speed Compiler" File hat nahezu die gleiche Größe wie die unkompilierte Version.

    Bei Samstagslotto gibt es für einen Vierer (ohne Zusatzzahl) so um die 30 bis 40 EUR.

    Okay, auch nicht viel. Da wäre ich ja megamäßig im Minus bei meinen 10.000 Ziehungen, denn das was es für Dreier gibt, kann man ja fast vernachlässigen. Aber ist ja auch klar, nur so finanziert sich Lotto ja für die Gesellschaften, das ist wie bei den Casinos. Ab und zu mit viel Glück geht man mal mit nem Plus raus, zu 90% aber natürlich mit einem Minus. :)

  • Obwohl, die Sache mit den Kugeln...irgendwie ne echt gute Idee!

    Kommt ja auch von mir. :D Naja, es geht ja nicht darum, an dem Programm rumzumeckern, sondern ich hatte Dich so verstanden, dass Du das geschrieben hast, um was zu lernen. Zeichensatzdefinition wäre jetzt eine gute Gelegenheit, in Speicherbelegung und Grafik einzusteigen.

    Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen. :böse Bitte melde dich an, um diesen Link zu sehen. Bitte melde dich an, um diesen Link zu sehen.
    Bitte melde dich an, um diesen Link zu sehen.

    „Vor dem Himmel kommt das Leben auf Erden, und da gilt es, eine soziale Gesellschaft aufzubauen.“ – Heinz Nixdorf (1986)

    Bitte melde dich an, um diesen Link zu sehen. :beer:Bitte melde dich an, um diesen Link zu sehen. Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.

  • Aber eine Frage - warum ist dieses File bei dir eigentlich so riesig geworden nach dem kompilieren? Mein "Austro Speed Compiler" File hat nahezu die gleiche Größe wie die unkompilierte Version.

    AW182

    Stimmt.

    Aber da werde ich zukünfig deinem Beispiel folgen und zukünftig auch diesen Austro verwenden.

    Bisher habe ich diesen Basic64-Kompiler benutzt (hatte nix anderes).

    Aber der Austro hat wirklich Vorteile.

    a) die Dateigröße ist wesentlich geringer

    b) er funktioniert auch auf dem TheC64 (im Gegensatz zum Basic64) - dann muss ich nicht immer hin und her schaufeln.

    Man hat immer Ideen wie man es noch besser machen kann. :D Auf jeden Fall finde ich das ein tolles Projekt und vor allem interessant deine Entwicklung da mit zu verfolgen. :thumbsup:

    Voll nett von Dir, danke schön :emojiSmiley-05:

    Ist das ganze komplett in Basic? Eventuell kann man ja einen Teil davon umschreiben in Assembler?

    Ja ist es. Das mit dem Assembler wird wohl nix mehr in diesem Leben, also hab ich meinen Spass mit dem altmodischen Basic.


    Obwohl, die Sache mit den Kugeln...irgendwie ne echt gute Idee!

    Kommt ja auch von mir. :D Naja, es geht ja nicht darum, an dem Programm rumzumeckern, sondern ich hatte Dich so verstanden, dass Du das geschrieben hast, um was zu lernen. Zeichensatzdefinition wäre jetzt eine gute Gelegenheit, in Speicherbelegung und Grafik einzusteigen.

    Da hatte ich paralell noch ein anderes Programm angefangen, aber mir zuviel vorgenommen..

    Bitte melde dich an, um diesen Anhang zu sehen.Bitte melde dich an, um diesen Anhang zu sehen.

    Bitte melde dich an, um diesen Anhang zu sehen.Bitte melde dich an, um diesen Anhang zu sehen.

    Gerade mit der Speicherbelegung hab ich so meine Probleme, es will mir einfach nicht in den Kopf...

    Deshalb dachte ich mir...erst mal kleinere Brötchen backen, dafür auch fertig backen!

  • Okay, das sieht aber doch schon richtig gut aus. Was macht Dir denn Probleme bei der Speicherbelegung?

    Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen. :böse Bitte melde dich an, um diesen Link zu sehen. Bitte melde dich an, um diesen Link zu sehen.
    Bitte melde dich an, um diesen Link zu sehen.

    „Vor dem Himmel kommt das Leben auf Erden, und da gilt es, eine soziale Gesellschaft aufzubauen.“ – Heinz Nixdorf (1986)

    Bitte melde dich an, um diesen Link zu sehen. :beer:Bitte melde dich an, um diesen Link zu sehen. Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.

  • Eine Frage noch. Könntest du, rein für die Statistik, noch eine Merk-Funktion in das Programm einbauen, sodass es sich die Zahlen merkt, die gezogen werden und man sich diese dann am Schluss auch irgendwie anzeigen lassen kann? Ideal wäre, wenn man diese Statistik dann auch abspeichern kann auf das d64 und er sie bei jedem neustart das Programms dann wieder automatisch reinlädt und dann von da ab weiter draufzählt, sodass man dann immer eine aktuelle Gesamt-Zahlenstatistik der am häufigsten gezogenen Zahlen hätte. Wäre das für dich machbar? Mir ist klar, dass die Zahlen Zufall sind, aber trotzdem wäre solch eine Gesamtstatistik irgendwie witzig.

    So, liebe Zahlenfetischisten!

    Natürlich ist mir bewusst, das es zur Zeit wichigere Themen gibt, aber ich möchte euch dennoch die finale Version meines Lotto-Simulators zur Verfügung stellen.:D

    Als Sahnehäubchen habe ich es geschafft, den Vorschlag von AW182 umzusetzen (was ich zwar anfänglich für überflüssig hielt, jetzt im nachhinein aber für eine tolle Abrundung des Programmes finde - Danke an AW182 also).:thumbup:

    Auf dem Diskimage befinden sich das reine Basic-Listing (von allen REMs befreit), die kompilierte Version (die zumindest auf meinem TheC64 wunderbar flüssig läuft - natürlich abhängig von der Anzahl der Mitspieler) und die Historien-Datei.

    Sollte diese mal gelöscht werden, kann sie vom Programm aus mit dem Menüpunkt "Leeren und neu anlegen" wieder erstellt werden.

    Die neu dazugekommene Statistik zeigt alle 49 Zahlen auf einem Bildschirm.

    Für jede Zahl ist ein mindestens 8-stellige Platz zur Verfügung, um anzuzeigen, in wieviel Ziehungen sie wie oft gezogen wurde.

    Wenn man unterstellt, das alle Zahlen mit der Zeit im Durchschnitt gleich oft gezogen werden, müßten ca. 490 Millionen Ziehungen durchlaufen werden, damit bei jeder Zahl ca. 99 999 999 steht - bevor die Statistik überläuft.

    Die Speicherung erfolgt automatisch nach Beendigung einer Spielrunde, sofern in den Optionen aktiviert.

    Auch ist es möglich, die Historie wahlweise zu deaktivieren, bzw. von jedem Nutzer wieder bequem auf Null gesetzt werden.

    Oder man kann sie einfach nur laden und anglotzen...:emojiSmiley-23:

    Damit solls das für mich gewesen sein - mit diesem Progrämmchen.:emojiSmiley-46:

    Ich möchte mich noch bei allen hier bedanken, die etwas Interesse gezeigt haben.

    Für mich war es jedenfalls eine tolle Progrmmiererfahrung und die Kommentare hier haben mich wirklich angespornt...:emojiSmiley-123:

    Vielleicht kann ja jemand nochmal die "Wolke" aktuallisieren, auf die ich leider noch nicht zugreifen kann.:emojiSmiley-37:

    Herzlichst, Staffelschnatzer:emojiSmiley-04:

  • Funktioniert gut das mit der Statistik. Ich hab eben 30.000 Ziehungen gestartet im Warp-Modus vom DENISE Emu. Das lasse ich einfach im Hintergrund jetzt mal durchlaufen. :)

  • War wieder kein Fünfer dabei bei den 30.000 Ziehungen.

    Bitte melde dich an, um diesen Anhang zu sehen.

    Und zu allem Überfluss, war im DENISE auch noch "schreibgeschützt" aktiviert, ohne dass ich es vorher bemerkt hatte, sodaß die Historie für die Statistik jetzt nicht abgespeichert werden konnte. Mist. :(

    Morgen lasse ich im CCS64 Emulator mal 100.000 Ziehungen durchlaufen. :) Den CCS64 bringt man, weil er nur recht wenig Anforderungen an die CPU des PC's stellt, auf den schnellsten Speed aller C64 Emu's (kann man dort im "Options" Menue des Emu's einstellen). Mein PC, der jetzt nicht zu den schnellsten gehört, schafft dort trotzdem um die 3700% Speed, wenn der Lotto-Simulator läuft. *lol* Da sollte das nicht unendlich lange dauern.

    Wenn ich wieder keinen Fünfer habe, muss ich wohl doch Schadenersatz einfordern. *lol* :D

  • Das Tool macht irgendwie echt Spaß, vor allem im CCS64 mit hochgedrehtem Speed. Mit 3700% Geschwindigkeit wird 37-mal so schnell gezogen wie auf einem normalen C64, das geht dann schon richtig ab.

    Bis maximal 10000% Speed kann man im CCS64 einstellen und ich denke mal, wer einen neueren PC hat, könnte das auch schaffen. Das wäre dann eine 100-fache Geschwindigkeit, damit kann man selbst eine millionenfache Ziehung im Lotto-Simulator durchführen, wenn man den PC ein paar Stunden laufenlässt. Und wahrscheinlich sogar die Maximalzahl von 9.999.999, wenn man den PC beispielsweise einfach über Nacht durchlaufen lässt. *lol* :P

    Eine 100.000er Ziehung ist bei mir jetzt schon fertig. Knapp 45 Minuten hat das gedauert mit circa 3730% Speed, was auf meinem PC maximal möglich ist im CCS64. Endlich hatte ich jetzt auch mal einen Fünfer mit dabei, haha. 8o

    Bitte melde dich an, um diesen Anhang zu sehen.

    Screenshots speichert man im CCS64 übrigens mit ALT+F1 (16 color bmp) oder einfach über's Menue mit Options/Video/Screenshot.

    Meine Statistik sieht nun so aus, da ist auch noch eine 1000er Ziehung mit dabei:

    Bitte melde dich an, um diesen Anhang zu sehen.

    Cooles Tool, "Staffelschnatzer". :thumbup:

  • Lustig, wenn man bedenkt, das man (selbst bei Ankreuzung von 10 Kästchen im Lottoschein - also 10 Tipps) bei einer wöchentlichen Ziehung nach 10000 Wochen mal einen 5er haben könnte.:emojiSmiley-16:

    Dazu müsste man dann ein Alter von 192 Jahren erreichen. Oder wenn man auch Mittwochs spielt, nach 96 Jahren...:emojiSmiley-88:

    Aber es kann natürlich schon beim ersten Mal passieren - ist eben Glückssache.:emojiSmiley-01:

    Ursprünglicher Sinn des Simulators ist ja der "Gesellschaftsspiel-Gedanke" gewesen.:emojiSmiley-57:

    Das das Ding nun so angeschwollen ist, war anfänglich nicht geplant.:emojiSmiley-28:

    Aber interessant ist es allemal!:emojiSmiley-56:

  • Das Teil kann man zur Überprüfung von Wahrscheinlichkeitsrechnungen heranziehen mittlerweile, vor allem wenn man dann millionenfache Ziehungen im CCS64 durchführen lässt und sie dann vergleicht. :)

    Ich hab den PC gestern Nacht durchlaufen lassen für eine 1.000.000-fache Ziehung und heute früh dann gleich nochmal gestartet, wieder mit einer Million Ziehungen. Das dauerte jeweils immer knapp 6 Stunden mit 37-fachen Speed im CCS64. *lol* Erstaunlich wie sich bei so hohen Ziehungs-Zahlen dann die Anzahl von 1ern, 2ern, 3ern, 4ern, 5ern ähneln. Eigentlich ist das ja irgendwie klar, weil es ja reiner Zufall ist und damit auch logisch, daß auf lange Sicht hin gesehen, alle Zahlen gleich oft gezogen werden sollten, was dann auch ein ziemlich ausgeglichenes Ergebnis an 3ern, 4ern usw bedeutet, aber trotzdem wundert es einen irgendwie auch etwas. Die Statistik ist auch interessant. Hier mal ein paar Bilder, vielleicht interessiert's den ein oder anderen.

    Ergebnis der ersten millionenfachen Ziehung (hier nahm ich nur Zahlen unter der Zahl 9, hatte trotzdem 22zig Fünfer damit. Klar, jede Zahl hat immer die gleiche Chance dranzukommen, dennoch denkt man doch irgendwie immer, es könne nicht sein, dass nur lauter so kleine Zahlen dan gezogen werden und die allermeisten Leute verteilen doch viel mehr, wenn sie ihre Kästchen am Lottoschein ankreuzen. Man denkt doch irgendwie immer, solch einen Fünfer, mit lauter Zahlen kleiner als 9, hätte es noch nie gegeben, wobei das natürlich Quatsch ist. Aber Fakt ist, sowas kreuzen bestimmt nicht viele an, was dann bedeuten würde, dass weniger Leute einen Fünfer hätten in solch einem Fall und man dann in Folge dessen deutlich mehr Geld rausbekäme. :)

    Bitte melde dich an, um diesen Anhang zu sehen.

    So sah danach die Statistik aus

    Bitte melde dich an, um diesen Anhang zu sehen.

    Ergebnis der zweiten millionenfachen Ziehung

    Bitte melde dich an, um diesen Anhang zu sehen.

    Und das ist die aktuelle Statistik, bestehend aus allen bisherigen Ziehungen

    Bitte melde dich an, um diesen Anhang zu sehen.

    Dieses hier sind bislang die sechs am häufigsten gezogenen Zahlen bei mir hier

    Bitte melde dich an, um diesen Anhang zu sehen.


    Gefällt mir dieser Lotto-Simulator, ist ne witzige Zahlenspielerei. :emojiSmiley-106:

    Eine Sache hat mich etwas gewundert. Wenn man sich die Statistik nach der ersten Millionenziehung mal ansieht, dann sind dort einige Zahlen in Führung, die schon über 150.000 mal gezogen wurden, während die meisten anderen noch zwischen 120.000 und 130.000 mal gezogen wurden. Sie wurden also im Schnitt knapp 25.000 mal öfter gezogen. Eigentlich hätte ich nun nach der zweiten Millionenziehung erwartet, dass sich dies wieder mehr angleichen würde, diese Zahlen dann also nicht mehr so auffallend öfter gezogen wurden. Das war aber nicht der Fall. Eher im Gegenteil, wenn man sich mal die zweite Statistik ansieht, dann sind die meisten genau dieser Zahlen (siehe letzter Screenshot) nun sogar mit knapp 40.000 Ziehungen mehr in Führung. Genau diese wurden also auch in der zweiten Millionenziehung nun nochmals öfter gezogen als die anderen. Schon ein etwas komischer Zufall.

  • Das Teil kann man zur Überprüfung von Wahrscheinlichkeitsrechnungen heranziehen mittlerweilw,

    Ich weiss nicht ob ich ganz so weit gehen würde. Die Zufälligkeit der Zufallszahlen auf einem C64 ist mir da doch etwas zu begrenzt (hier im Programm basiert das auf "z=int(49*rnd(0))+1").

    In Sachen Compiler, Basic-Boss gilt doch allgemein als sehr schnell, was wenn man es da mal durch jagt?

  • Man denkt doch irgendwie immer, solch einen Fünfer, mit lauter Zahlen kleiner als 9, hätte es noch nie gegeben, wobei das natürlich Quatsch ist. Aber Fakt ist, sowas kreuzen bestimmt nicht viele an, was dann bedeuten würde, dass weniger Leute einen Fünfer hätten in solch einem Fall und man dann in Folge dessen deutlich mehr Geld rausbekäme.

    Ich habe mal gelesen, dass man dann am meisten mitnimmt, wenn man nur Zahlen > 31 ankreuzt. Da sehr viele die Geburtstage ihrer Verwandschaft ankreuzen, sind Zahlen ab 32 aufwärts eher unterdurchschnittlich oft angekreuzt. :)