Beiträge von ProgrammingDonkey

  • primzahlenrechner

    Danke für die Hilfe, dieses Problem hatte ich allerdings schon beseitigt. Das ganze dauerte dann aber viel länger.. Morgen Nachmittag kann ich deine Verbesserung testen, ich hoffe, dass mein neues Problem dort nicht auftritt :)

  • primzahlenrechner

    Neues Script:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    Const $iMax = 1000000
    $hTimer = TimerInit()
    $aPrimes = GetPrimes($iMax)
    ConsoleWrite(@CRLF&"Time >> "&round(TimerDiff($hTimer)/1000, 4)&@CRLF)
    _ArrayDisplay($aPrimes)

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

    Func GetPrimes(Const $iHead)
    Local $aPrimes[round($iHead/2-1, 0)]
    $iResult = round($iHead/2-1, 0)
    $x = 0
    for $i = 3 to $iHead step +2
    $aPrimes[$x] = $i
    $x += 1
    Next
    $Stop = False
    for $x = 0 to UBound($aPrimes)-1 step +1
    $iNumber = $aPrimes[$x]
    If $x > UBound($aPrimes)-1 or $Stop Then
    ConsoleWrite("Last one: "&$iNumber&@CRLF)
    ExitLoop
    EndIf
    $Stop = True

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

    ;Local $hTimer = TimerInit()
    for $iNum = $x+1 to UBound($aPrimes)-1
    If $aPrimes[$iNum] = -1 Then ExitLoop
    If Mod($aPrimes[$iNum], $iNumber) = 0 Then
    $Stop = False
    ;ConsoleWrite("Delete: "&$aPrimes[$iNum]&@CRLF)
    $aPrimes[$iNum] = -1
    $iResult -= 1
    EndIf
    Next
    ;ConsoleWrite($iNumber&" / "&UBound($aPrimes)-1&" Time: "&TimerDiff($hTimer)&@CRLF)
    Next
    Local $aResult[$iResult+1]
    $x = 0
    $aResult[0] = 2
    for $i = 1 to $iResult
    While $aPrimes[$x] = -1
    $x += 1
    WEnd
    $aResult[$i] = $aPrimes[$x]
    $x += 1
    Next
    ConsoleWrite($iResult +1 &" Primes found."&@CRLF)
    Return $aResult
    EndFunc

    [/autoit]


    Stimmen die Primzahlen? Sind es 333334 bis eine Mio?

  • primzahlenrechner

    @Make-Grafik >> Mein Script macht genau das gleiche, nur das die Zahlen Liste nur aus ungeraden besteht. Erklärende Kommentare bräuchte dein Script btw auch ^^.
    An die anderen >> Danke für die schnelle Hilfe, ich versuche es gleich auch ohne _ArrayDelete in der Schleife.
    @Kanashius >> Das ConsoleWrite() macht zeittechnisch keinen Unterschied (habe ich getestet), deshalb habe ich es zur Darstellung drin gelassen ;)

  • primzahlenrechner

    Ich habe mich nun an die gleiche Technik angelehnt, wie @Make-Grafik, allerdings funktioniert das ganze nur sehr langsam:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    Const $iMax = 3000
    $hTimer = TimerInit()
    $aPrimes = GetPrimes($iMax)
    ConsoleWrite(@CRLF&"Time >> "&round(TimerDiff($hTimer)/1000, 4)&@CRLF)
    _ArrayDisplay($aPrimes)

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

    Func GetPrimes(Const $iHead)
    Local $aPrimes[round($iHead/2-1, 0)]
    $x = 0
    for $i = 3 to $iHead step +2
    $aPrimes[$x] = $i
    $x += 1
    Next
    $Stop = False
    for $x = 0 to UBound($aPrimes)-1 step +1
    If $x > UBound($aPrimes)-1 or $Stop Then
    ConsoleWrite("Last one: "&$iNumber&@CRLF)
    ExitLoop
    EndIf
    $Stop = True
    $iNumber = $aPrimes[$x]
    Local $hTimer = TimerInit()
    for $iNum = UBound($aPrimes)-1 to $x+1 step -1
    If Mod($aPrimes[$iNum], $iNumber) = 0 Then
    $Stop = False
    ConsoleWrite("Delete: "&$aPrimes[$iNum]&@CRLF)
    _ArrayDelete($aPrimes, $iNum)
    EndIf
    Next
    ConsoleWrite($iNumber&" / "&UBound($aPrimes)-1&" Time: "&TimerDiff($hTimer)&@CRLF)
    Next
    Return $aPrimes
    EndFunc

    [/autoit]


    Wie kann ich da (viel) mehr Zeit sparen?

  • MY_WM_DEVICECHANGE ohne GUI

    @Tweaky >> Ich hätte vor einem Blick in die Hilfe gedacht, dass man die Funktion an andere Fenster anbinden kann vonwegen:

    [autoit]

    GUIRegisterMsg($hMsg, $sFunc [, $hWnd])

    [/autoit]


    Leider geht das nicht.
    @Kanashius >> Der explorer ist ja bekanntlich immer offen. Und mit ihm kommt auch immer ein Fenster; "Program Manager" heißt es glaube ich. Darauf kann man auch zugreifen, aber als normaler Windows Nutzer nicht schließen (Normal = Man lässt das System in Ruhe, und verwendet kein WinClose("Program Manager") ^^ )

  • [GDI+] Uhr

    Was ich meinte, ist dass man den Bereich, in den man mit der Maus geht, um die Uhr anzuzeigen, verkleinern sollte.
    z.B. auf die Mitte (man könnte dort auch dauerhaft einen kleinen halb transparenten Strich/GUI anzeigen lassen, damit man den Bereich sieht.)

  • [GDI+] Uhr

    Sehr schick, ich würde allerdings den Maus-Bereich verkleinern.
    Aber um das zutun fehlen mir die Kentnisse; Was passiert in folgender Zeile, und wo für stehen die Fragezeichen und Doppelpunkte?:

    [autoit]


    $iOffset = $aPos[1] = 0 ? $iOffset / 1.5 : ($iOffset + 1) * 1.5 > $iH ? $iH : ($iOffset + 1) * 1.5

    [/autoit]

  • primzahlenrechner

    Genial :)
    Allerdings verstehe ich deinen Code nicht ganz, und bitte dich darum mal eine Erklärung dazu zu verfassen :)
    Und noch eine Idee:

    Spoiler anzeigen


    Eine nicht-Primzahl ist doch zwangshaft durch eine Primzahl teilbar, oder?
    Dann hätte ich da noch eine Idee:

    Spoiler anzeigen

    [autoit#include <Array.au3> $hTimer = TimerInit() Global Const $iMax = 100000 $aResult = GetPrimes($iMax) MsgBox(0,"Done","Passed time:"&@TAB&Round(TimerDiff($hTimer)/1000, 4)) _ArrayDisplay($aResult) Func GetPrimes($iHead) $aPrimes[1] = [2] $bContinue = True For $iNumber = 3 to $iHead step +2 For $iElement in $aPrimes If $iElement > sqrt($iNumber) Then ExitLoop EndIf If Mod($iNumber, $iElement) = 0 Then $bContinue = False ExitLoop EndIf Next If not $bContinue Then $bContinue = True Else _ArrayAdd($aPrimes, $iNumber) EndIf Next Return $aPrimes EndFunc[/autoit]


    Ist zwar leider sehr langsam, aber daran arbeite ich noch; Wäre jedenfalls auch ein Ansatz.