Beiträge von Andy

  • µit - März

    Hallo zusammen,

    ein guter Vorschlag von eukalyptus!

    Ich bin mittlerweile dabei, meinen Logik-basierten Solver mit backtracking "auszubauen", d.h. erst schnellstmöglich (per Strategie) viele Felder vollmachen, und erst wenn nichts mehr geht....bruteforce...

    Allerdings funktioniert das nur bis zu einem gewissen Grad. Wenn sehr "schwierige" Sudokus gelöst werden müssen, dann bricht das Script irgendwann ohne Fehlermeldung ab. Scheint an der Rekursionstiefe zu hängen. Lt. Taskmanager ist aber noch reichlich Speicher vorhanden.
    Während das Script im backtracking läuft, gebe ich die Zwischenergebnisse auf die Konsole aus. Gleichzeitig wird jeder Sprung in eine neue Rekursion mit einer 1-sekündigen messagebox angezeigt.Irgendwann mitten im Ablauf gibt es keine Messageboxen mehr, sondern nur noch Konsolenausgaben. Die letzte angezeigte msgbox ist riesengroß und hat Grafikfehler. Einige Sekunden später beendet sich das Script ohne Fehlermeldung.
    Ich versuche natürlich, möglichst "sauber" aus den Rekursionen (und Funktionen) rauszukommen, d.h. keine Speicherleichen zu hinterlassen. Wahrscheinlich liegt der Hase aber in der per auskommentierten ;GUISetState(@SW_SHOW) "unsichtbaren" Grafikausgabe begraben.

    Für die "sichtbare" Version des Lösungsvorgangs verwende ich eine GUI mit einer 9x9 Sudoku-Matrix, diese Matrix habe ich mit Buttons realisiert. Wenn jetzt einige Sudokus gelöst wurden, und man ein kleines Fensterchen (z.B. die msgbox) über die GUI bewegt, dann flackern die Buttons und zeigen alle bisher dort angezeigten Zahlen an ;( , als ob 100 Buttons übereinanderliegen und jeder dieser Buttons schnell mal "ganz nach oben" wollte....irgendwie auch nicht ganz astrein ?(

    Jedenfalls mache ich weiter, es werden noch 2 Strategien eingebaut, und dann versuche ich bissl speed rauszuholen. Mit Sicherheit gibts für 30 Programmzeilen einen einzigen Befehl :rofl:

    ciao
    Andy

  • µit - März

    Zitat

    Mal sagen möchte, das alle Beispiele die ich gepostet habe von mir binnen 5 Minuten fertig waren.
    Also nichts besonderes !


    Genau das meine ich...wenn 29 von deinen 30 Rätseln per "Strategie" in 10 Sekunden gelöst werden und ich für das restliche eine Rätsel per bruteforce dann die restlichen 5 Minuten brauche (oder ohne bruteforce garnicht lösen kann?!), wo ist denn da die "Fairness"?
    Sicher könnte man sagen, im Endeffekt kommt das aufs gleiche raus, dann hat der "Stratege" Pech gehabt, Im anderen Fall läüfts genau umgekehrt: dann hat der Stratege mal "Glück" und löst alle 30 Rätsel in 10 Sekunden und der Bruteforcer ist weit abgeschlagen. Er (Sie ;) ) findet zwar zu den lösbaren Sudokus die (oder sogar alle moglichen) Lösungen, das dauert aber entsprechend lange. Verzwickt!?

    ciao
    Andy

  • µit - März

    Hi

    Zitat

    Das Skript sollte selber erkennen ob es das Sudoku lösen kann.
    Also wenn alle Technike einmal durch sind abbrechen.


    Ja, so solls sein....es gibt auch "einfache" sudokus, die aber trotzdem relativ lange brauchen um gelöst zu werden. Bei Alina waren 2-3 dabei, die könnte man ja mit in die Testsuite aufnehmen.

    Zitat

    Da ich niemals alle Strategien umsetzen kann.....


    Geht mir auch so, ich habe die 4-5 "normalen" Strategien eines m.E. Durchschnittsspielers versucht umzusetzen.

    Zitat

    Wie wäre es einen Tester zu schreiben, der nach einer bestimmten Zeit (2-3 Min) den laufenden String abbricht und zum Schluss die sagen wir mal 10 schnellsten als Durchschnitt nimmt?


    Finde ich nicht gut, das ist wie der linpack-test bei den prozessoren, dann werden die solver auf die testsuite hinoptimiert^^
    Man könnte sich ggf auf eine Handvoll Sudokus einigen, 60 haben wir ja schon vorliegen hier im Thread. Die "schwierigen" (d.h. ohne bruteforce nicht lösbaren) könnte man ja rausnehmen.

    ciao
    Andy

  • µit - März

    Hi,

    ich habe meinen Solver auf der Basis der Strategien eines (durchschnittlichen) menschlichen Spielers erstellt und versucht, diese Regeln in ein Script zu verpacken, was mir aber eher schlecht als Recht gelungen ist^^. Vieles wird mehrfach berechnet, da ist noch massig Raum für Optimierungen.
    Naja, Grafikausgabe muss ja auch sein, schön bunt, damit man den Lösungsweg verfolgen kann :rolleyes:
    Für die Lösung der 25 von Alina vorgegebenen Puzzles braucht ein 1,2Ghz-PIII ca. 10 Sekunden (ohne Grafikausgabe). Von den 35 Sudokus bei der Auswertung bekomme ich mit meinem Script 4 nicht gelöst.

    Allerdings ist mindestens ein Sudoku dort dabei, dass mit "herkömmlichen" Strategien nicht lösbar ist, d.h. eine reine Aufgabe für einen Bruteforce-Numbercruncher. Ich vermute, prizma und eukalyptus machen solch ein Skript.
    Um schnellstmöglich Ergebnisse zu bekommen würde ich die drei einfachen Regeln in einen rekursiven Algorithmus packen und auf ein 3-d-Array loslassen....aber dazu fehlt mir zzt noch der Antrieb. 8) Ausserdem hat meine Frau schon ganz komisch geguckt als ich ihr von virtuellen Maschinen und DOS und einem Assembler vorgeschwärmt habe.

    Die unterschiedliche Lauflänge beim crunchen hängt einfach von der Startposition und den Abbruchkriterien ab. Ca 60 Anfangsfelder, jedes mit ca 3 Möglichkeiten, und dann noch mit 10 "schlechten " Feldern angefangen...dann läuft sich der Algorithmus tot.

    ciao
    Andy

  • µit - März

    Hi,
    meine "Mädels" zuhause lösen mit Leidenschaft Sudokus, die eine aufm Nintendo, die andere (so wie ich am liebsten) auf dem Papier.
    Also habe ich mir garkeinen Kopf gemacht und "einfach" versucht, die "menschlichen" Strategien in ein Script umzusetzen...
    Bin ja mal gespannt, zzt hängts an "Papa, das ist doch nicht schwer, das SIEHT man doch, warum erkennt das der Computer nicht..."^^
    Der Code ist dermassen übel, aber egal, hauptsache läuft.
    Ich weiss nicht wie es euch geht, aber einige der Vorgaben-Puzzles sind echt heftig!
    Gibts ggf mehrere Lösungen oder sind die definitiv eindeutig? Strategie ist nur solange schön, wie Brute-force nicht schneller ist.....
    ciao
    Andy

  • arbeiten mit Ini-Dateien

    Hallo,
    da du deine bisherigen Postings in diesem Thread alle gelöscht hast, wäre es ggf sinnvoll, dein Script zu posten und eine Problembeschreibung zu erstellen.
    *GlaskugelmodusON*.....ich seh nix......*GlaskugelmodusOFF*
    ciao
    andy

  • Tagesschau-Player - Immer auf dem Laufenden

    Hmmm, das vermute ich nicht, denn seltsamerweise werden die direkt im Browser auf der "Tagesschau"-Seite laufenden Streams alle mit Ton abgespielt (Flash sowieso).
    Nur wenn ich dort auf "externen Player" klicke und den Mediaplayer auswähle, dann läuft im Browserfenster das Video incl. Ton, und im Mediaplayer nur Video ohne Ton...
    *EDIT*
    Wenn ich die url im script an einige eigene Videodateien anpasse, dann werden alle Kombinationen von Bild(ja/nein) und Ton(ja/nein) abgespielt^^
    Alle diese eigenen Videodateien laufen auf div. Playern ohne Probleme.....

  • In habbo normale msn Emotionen anzeigen?

    Hallo,
    ja das ist ggf. möglich. Allerdings würde ich das "Schreiben" von Smileys auf eine nicht in diesem Programm benutzte Tastenkombination (z.B. ALT+Y) legen.
    Wobei sich jetzt natürlich die Frage stellt, ob ALT+Y schneller ist wie ^+^ für den ^^-Smilie.
    Kann man in diesem Chat überhaupt grafische Smilies anzeigen?

    Spoiler anzeigen
    [autoit]

    ;bei CTRL+T wird ein :)-Smilie ins aktuelle Fenster geschrieben
    HotKeySet("^t", "_smilie")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While True
    Sleep(1)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _smilie()
    Send(":)", 1)
    Sleep(100)
    EndFunc ;==>_smilie

    [/autoit]

  • Pakete abfangen & auswerten

    Hallo,

    feine Idee, das mit dem vorlesen^^

    Allerdings habe ich noch einige Vorschläge:
    Wenn du die Builds.ini so

    Spoiler anzeigen

    [StealthAssassinRikimaru]
    item1=bos
    item2=wraith
    item3=pt
    item4=diffu
    item5=manta
    item6=bfly

    [SlithereenGuardSlardar]
    item1=bos
    item2=bracer
    item3=pt
    item4=hyper
    item5=assault
    item6=satanic
    item7=buri


    abspeicherst hast du die heros.txt gespart, und dann dieses

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include <File.au3>
    #include <array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $bst = ""
    $hero = ""
    $count = 0
    Dim $herolist
    $herolist=IniReadsectionnames("builds.ini")

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $key = _Taste()
    If $key <> "" Then ;buchstabe a-z
    $hero = $hero & $key
    EndIf
    If _IsPressed ("08") Then ;backspace
    While _IsPressed ("08")
    $pressed= 1
    WEnd
    $hero = StringTrimRight ($hero, 1)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If _IsPressed("0D") Then ;enter
    ;MsgBox(0, $hero, "ENTER")
    $num = _ArraySearch($herolist, $hero, 0, UBound($herolist), 0, 1)
    If $num<>-1 then
    ;MsgBox(0, "herolist", $herolist[$num])
    _held($herolist[$num])
    endif
    $hero=""
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Taste()
    $pressed = 0
    For $buchstabe = 65 To 91
    If _IsPressed(Hex($buchstabe)) Then
    While _IsPressed (Hex($buchstabe))
    $pressed= 1
    WEnd
    ExitLoop
    EndIf
    Next
    If $pressed = 1 Then
    Return Chr($buchstabe)
    Else
    Return ""
    EndIf
    EndFunc ;==>_Taste

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _held($kaska)
    Do
    $count = $count + 1
    $read = IniRead("builds.ini", $kaska, "item" & $count, "fertig")
    $endcheck = IniRead("builds.ini", $kaska, "item" & $count + 1, "fertig")
    If $endcheck = "fertig" Then
    _sound($read, 0)
    Else
    _sound($read, 1)
    EndIf
    Until $read = "fertig"
    $read = ""
    $count = 0
    EndFunc ;==>_held

    [/autoit] [autoit][/autoit] [autoit]

    Func _sound($sound, $pause)
    SoundPlay("sounds\" & $sound & ".mp3", $pause)
    EndFunc ;==>_sound

    [/autoit]

    Script nutzt, funktioniert es auch.

    Andy

  • Hex umdrehen

    Post von mir war natürlich Müll!
    Richtig gedacht, Müll geschrieben^^

    so gehts....

    [autoit]

    $test=0xABCDEF

    [/autoit][autoit][/autoit][autoit]

    msgbox(0,"",(StringToBinary(binarytostring($test))))

    [/autoit]

  • Hex umdrehen

    Hallo,

    Zitat

    $info = 7B 00 00 00


    Entweder ist deine $info = "7B 00 00 00" dann ist das ein String , dann mit Stringfunktion _stringreverse() umsortieren
    oder $info = 0x7B 00 00 00 so als hexzahl, dann mit _hextostring() in String umwandeln und umsortieren

    Andy

  • Karo einteilung

    Zitat

    Andy: Bei Dir fehlt die WM_PAINT-Funktion. Sonst wird die Graphic nicht neu gezeichnet, wenn das Fenster von einem anderen Fenster verdeckt und dann wieder sichtbar wird.


    *flüstermodeON*
    psssstttt...das kommt doch erst im nächsten Semester dran :rolleyes:
    *flüstermodeOFF*