Beiträge von eukalyptus

  • µit - März

    Hier sind meine Scripte

    Der logische Solver: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Hier hab ich die Methode_5(hidden pairs/tribbles) abgeschaltet, da sie manchmal fehlerhaft arbeitet!
    Hab das Problem noch nicht gefunden...

    Der reine Backtracker: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    lgE

  • µit - März

    Na dann werd ich mich auch mal bemühen, etwas Geschwindigkeit gutzumachen ;)

    btw.: ich hab auch ein reines BT-Script geschrieben.
    insgesammt 44 Zeilen
    Man beachte Logisch Nr.: 4 und das leere Sudoku BackTrack Nr.: 10

    Spoiler anzeigen


    Jedoch für BT Nr.:1 braucht der Algo fast 30 min :thumbdown:
    und das haut mir den ganzen Schnitt zusammen...

    lgE

  • µit - März

    Dafür, daß es sich um den März-Wettbewerb handelt, einigen wir uns doch ziemlich bald :rofl:

    Wer macht eigentlich die Auswertung?
    Dieser Jemand soll dann Sudokus für die Analyse auswählen.
    Und auch entscheiden, nach welchen Kriterien bewertet werden soll.

    Ich denke, es wird keinen "besten" Solver geben, sondern mehrere...
    Den Solver mit der schönsten Strategie (unabhängig von der Geschwindigkeit)
    Den Solver, der im Durchschnitt am schnellsten löst
    Den programmiertechnisch schnellsten Solver
    Den schönsten, reinen Backtracker
    usw...

    Und daraus kombinieren wir dann die besten Elemente zu einem gescheiten Solver.

    lgE

  • Wie realisiert man am besten Multitasking(kein multithreading)

    Anwendungsbeispiele gibt es genügend

    Ich hab mal ein Programm geschrieben, welches den Soundkarteninut als mp3 aufnimmt, gleichzeitigt zu einem Icecastserver streamt, wärend ein Webcambild mit Logo versehen wird und via http-post hochgeladen wird.

    Wenn nun die Internetverbindung grad nicht so richtig will, geraten Stream und Webcamupload etwas ins stocken und würden das gesammte Script bremsen.

    Deshalb ist jedes Programm ein eigenes Script, die trotzdem alle miteinander kommunizieren müssen.

  • MathEx UDF

    Eine Primzahl ist nur durch 1 und sich selbst teilbar - und das trifft auf 1 völlig zu ;)

    Vielleicht hilft eine Flag-Option weiter, wo man selbst entscheiden kann, ob 1 nun eine Primzahl ist oda nicht ;)

    lgE

    EDIT: *klugscheiß off*

  • Rechnen mit Kommazeichen.

    Eben nicht!

    In der englischen Schreibweise wird das Komma als Tausendertrennzeichen verwendet und der Punkt als Dezimalstellentrennzeichen.

    In Programmiersprachen kann man auch deshalb kein Komma benutzen, da es schon einem anderen Zweck dient.

    lgE

  • Nur bestimmte Eingaben in GuiCtrlCreateInput zulassen. Wie?

    Hi

    Vielleicht so?

    Spoiler anzeigen
    [autoit]

    #include<GUIConstantsEx.au3>
    #include<WinAPI.au3>
    #include<WindowsConstants.au3>
    #include <EditConstants.au3>

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

    Global $hGui, $hInput1, $hInput2, $hInput3, $hLabel

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

    $hGui = GUICreate("Test", 420, 200)
    $hInput1 = GUICtrlCreateInput("1234", 10, 10, 400, 20, $ES_NUMBER)
    GUICtrlSetLimit(-1, 4)
    $hInput2 = GUICtrlCreateInput("http://www.autoit.de", 10, 40, 400, 20)
    $hLabel = GUICtrlCreateLabel("", 10, 70, 100, 20)
    $hInput3 = GUICtrlCreateInput("123ABCabc", 10, 110, 400, 20)
    GUISetState()
    _CheckUrl()

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

    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

    While GUIGetMsg() <> -3
    Sleep(5)
    WEnd

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

    Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg
    Local $hWndFrom, $iIDFrom, $iCode, $hWndInput2, $hWndInput3
    If Not IsHWnd($hInput2) Then $hWndInput2 = GUICtrlGetHandle($hInput2)
    If Not IsHWnd($hInput3) Then $hWndInput3 = GUICtrlGetHandle($hInput3)
    $hWndFrom = $ilParam
    $iIDFrom = _WinAPI_LoWord($iwParam)
    $iCode = _WinAPI_HiWord($iwParam)
    Switch $hWndFrom
    Case $hInput3, $hWndInput3
    Switch $iCode
    Case $EN_UPDATE ; Sent when an edit control is about to redraw itself
    _CheckString()
    EndSwitch
    Case $hInput2, $hWndInput2
    Switch $iCode
    Case $EN_UPDATE ; Sent when an edit control is about to redraw itself
    _CheckUrl()
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_COMMAND

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

    Func _CheckUrl() ;pattern from http://www.osix.net/modules/article/?id=586
    Local $sPattern = "^(https?://)" & _
    "?(([0-9a-z_!~*'().&=+$%-]+: )?[0-9a-z_!~*'().&=+$%-]+@)?" & _; //user@
    "(([0-9]{1,3}\.){3}[0-9]{1,3}" & _; // IP- 199.194.52.184
    "|" & _; // allows either IP or domain
    "([0-9a-z_!~*'()-]+\.)*" & _; // tertiary domain(s)- www.
    "([0-9a-z][0-9a-z-]{0,61})?[0-9a-z]\." & _; // second level domain
    "[a-z]{2,6})" & _; // first level domain- .com or .museum
    "(:[0-9]{1,4})?" & _; // port number- :80
    "((/?)|" & _; // a slash isn't required if there is no file name
    "(/[0-9a-z_!~*'().;?:@&=+$,%#-]+)+/?)$"
    Local $sUrl = GUICtrlRead($hInput2)
    If StringRegExp($sUrl, $sPattern) Then
    GUICtrlSetData($hLabel, "URL korrekt")
    GUICtrlSetBkColor($hLabel, 0x00FF00)
    Else
    GUICtrlSetData($hLabel, "URL nicht korrekt")
    GUICtrlSetBkColor($hLabel, 0xFF0000)
    EndIf
    EndFunc ;==>_CheckUrl

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

    Func _CheckString()
    Local $sString = GUICtrlRead($hInput3)
    GUICtrlSetData($hInput3, StringRegExpReplace($sString, "[^a-zA-Z0-9]", ""))
    EndFunc ;==>_CheckString

    [/autoit]

    lgE

  • MathEx UDF

    Yep, Pi find ich auch cool!

    Bei _MathEx_IsDivisible konnte man auch

    [autoit]

    If Mod($integer_number_mathex_dividend,$integer_number_mathex_divisor)=0 Then

    [/autoit]


    verwenden...

    Aufgabe:
    Ein Schusterbetrieb hat im Jahr 15€ Umsatz. Wieviel Umsatz hat er in 2 Jahren, wenn der Umsatz pro Jahr gleich bleibt ;)
    (projekt x / fm4)

    lgE

  • µit - März

    BackTrack:

    Man probiert für jedes Feld jede mögliche Zahl und überprüft, ob diese Zahl den Regeln entspricht (darf nur 1 mal in einer Reihe vorkommen usw.)
    Wenn dies nicht der Fall ist, dann 1 Schritt zurück.
    Diese Funktion sollte (muß) rekursiv sein.
    Wenn man mit Hilfe der logischen Algo´s die Anzahl der Möglichkeiten schon reduziert hat, dann ist auch der BT-Algo schneller...

    Zur Geschwindigkeit allgemein: Man hat doch für jedes Feld eine Variable, welche die noch möglichen Zahlen beinhaltet.
    Dazu kann man einen String oder ein Array nehmen; Oder auch eine andere Möglichkeit, wie ich sie verwende (wird aber noch nicht verraten ;))
    Hier kann man viel Geschwindigkeit rausholen.

    lgE