Beiträge von Mars

Mars · Mittwoch, 17:34

Wenn du mit den vielen RegExen fertig bist, kannst du dann eine Art "Sammlung von RegExen zum parsen von AutoIt" veröffentlichen?

Das kann man sicher für irgendetwas gebrauchen

Mars · Sonntag, 11:35

Ist zwar offtopic, aber: Yeeeeah. Jemand anderes der Marcus mit C heißt (jetzt sind wir schon 2 und können die Welt erobern)

Zum Thema: Es kommt schwer darauf an, ob in den AGBs der Webseite automatisierungen verboten werden (Das ist bei eingien Spielen der Fall). Mach dich bitte zuerst in diese Richtung schlau und poste am besten den Link, dann können wir hier auch einen Blick darauf werfen. Wenn Automatisierungen erlaubt sind läufst du keine Gefahr Ärger zu bekommen und hier im Forum supporten wir auch nur "erlaubte" Automatisierungen (siehe Forenregeln).

lg

M

Mars · 26. Juni 2020

ich hab schon verstanden dass das Sarkasmus war

Man kann nicht unendlich lange tauchen (bzw. unendlich lange die Wirtschaft "anhalten", wobei sie ja ansich weiterläuft, nur eben "anders") und muss ab und zu auftauchen. Das Problem ist, dass man entweder 3 Min die Luft anhält, oder 2,5Min + 2Min + 1,5Min + 1Min + 0,5Min wenn man zwischendrin Luft holt. Und ich weiß nicht was da besser ist. Bin jedenfalls kein Fan davon dass einfache Sachen wie "Alle Einkaufswagen desinfizieren" oder ähnliches (zumindest bei mir vor Ort, wie es in anderen Gebieten aussieht weiß ich nicht) abgeschafft wurden, wobei das doch echt vergleichsweise wenig Aufwand ist einen Mitarbeiter mit einem Lappen auszurüsten. Selbst wenn es in 99% der Fälle nichts bringt weil keiner der Kunden Corona hat, irgend jemandem wurde damit das Leben gerettet und dieser Jemand ist echt froh dass der Einkaufswagen ihn nicht angesteckt hat.

Mars · 26. Juni 2020

Also erst werden die ganzen Sicherheitsmaßnahmen abgeschafft oder gelockert und jetzt geht die Ansteckungszahl wieder steil. Wer hätte das kommen sehen... Hab ich was verpasst oder ist meine Logik einfach nur falsch?

Mars · 18. Juni 2020

Der nette Herr Manuel Franco hat mir 850.000€ gespendet. Echt ein netter Typ.
Hätte er eine seriöse Adresse wie vertrauenROFLxyzTrust@deineMutter.com hätte ich geantwortet, aber seine Adresse kommt mir spanisch vor.

Mars · 2. Juni 2020

Also genaugenommen habe ich die Nachricht jetzt weitergegeben. Wo bleiben meine Pornovideos? Aviana, hörst du mich?

Für 1000€ (wenn du sie mir gibst, nicht umgekehrt) kraule ich dir auch den Nacken (aber nur 1x. alles hat seinen Preis).

Edit: ja eine Kamera habe ich auch nicht am PC und das Mikrofon ist physikalisch nicht verbunden wenn ich es nicht benutze. Wenn jemand das hacken kann und sich der Stecker von selbst verbindet gibts einen Nobelpreis für Telekinese (und 1Mio Dollar von der https://de.wikipedia.org/wiki/…di_Educational_Foundation)

Mars · 5. Mai 2020

Erkennungssoftware die AutoIT schreibt kann ich nicht ernst nehmen. Die machen sich nichtmal die Mühe den Namen richtig zu schreiben.

Mars · 4. Mai 2020

Es ist lächerlich, dass man seine Software als Programmierer in eine Whitelist eintragen lassen muss damit sie nicht gesperrt wird. Was genau "erkennt" denn ein Antivirenprogramm heutzutage? Es erkennt alles als Virus was nicht auf der Whitelist ist (also Hashsumme + Lookup = gesperrt weil unbekannt)?

Ich schiebe inzwischen einen richtigen Hass auf Antivirenhersteller. Man schreibt für irgendwen ein Tool weil irgendwer unbedingt einen Viewer für auf der Festplatte liegende Binärdaten einer float16 Matrix braucht. Kein Problem, dauert nicht lange. Tool gebaut -> Tool verschickt -> Beim Empfänger wird das Internet deinstalliert, der Atombunker einsatzbereit gemacht, Klopapier gekauft und die Notstromversorgung mit roter Alarmleuchte + Sirene springt an.

Mars · 29. April 2020

Zitat von Musashi

Nebenbei : Ich habe gehört, dass Du immer noch gerne mit der Trommel um den Baum rennst .

Pschhhhht.

Mir ist jetzt erst aufgefallen, dass dieser Thread in "Forum -> Sonstiges -> Off-Topic" liegt. Und ich hatte schon Angst zu sehr vom Thema abzuweichen

Mars · 29. April 2020

Wieso muss ICH Fehler ausbaden die zu einer Zeit passiert sind als ich 10 Jahre alt war und mit einer Trommel um den Weihnachtsbaum gerannt bin?

Ich bin dafür, dass Leute die im DE Forum Poweruser sind (die werden ja durch die Community ernannt, sind also üblicherweise Leute die "in Ordnung" sind und teilweise auch als Informatiker/Programmierer arbeiten, also ein bisschen know how haben, ein paar Jahre dabei sind, usw.) am Code mitarbeiten dürfen. Wie es im EN Forum mit MVP's aussieht weiß ich nicht, da ich da zwar einen Acc habe aber nie aktiv bin.

(Das ist jetzt Offtopic, aber im Prinzip musste ich das hier ergänzen weil es aktuell nur hier hinpasst)

M

Mars · 29. April 2020

Am Besten wäre Open Source

Einfach den Code auf Github und ab gehts.

Ein Lösungsansatz wäre sowas wie:
EventsOff()
Code der schnell laufen soll
EventsOn()

Es ist doch auch wahnsinn, dass man in JEDER ProgrammZEILE checkt ob der User auf X geklickt hat. Das sieht für mich nach 99% Overhead im Interpreter aus.

Mars · 17. April 2020

Schätze auch, dass es ein XY Problem ist. Überlicherweise hat jedes Firefox Fenster eine eigene PID (die in AutoIt z.B. von Run() zurückgegeben wird), darüber lassen sich selbst Fenster mit gleichem Fensternamen vom gleichen Programm dennoch unterscheiden.

Mir ist aber unklar was es bringt 4 Stoppuhren dauerhaft laufen zu haben und nach je 5 Minuten die Seiten neu zu laden

Edit: Jetzt sehe ich erst, dass Musashi der Grammatik und Fragestellungskorrektschreibungskönig ist

lg

M

Mars · 7. April 2020

Mir hat es auch keine Ruhe gelassen, aber ich habe keine Lust auf externe Tools gehabt

Code

Local $1 = Timing(1500, False)
MsgBox(0,'','')
Local $2 = Timing(1500, False)


Local $aMaxLen[3] = [StringLen($1[0][0]), StringLen(StringFormat('%.2f', $1[0][1])), StringLen(StringFormat('%.2f', $2[0][1]))]
For $i = 0 To UBound($1) - 1 Step 1
If StringLen($1[$i][0]) > $aMaxLen[0] Then $aMaxLen[0] = StringLen($1[$i][0])
If StringLen($1[$i][1]) > $aMaxLen[1] Then $aMaxLen[1] = StringLen($1[$i][1])
If StringLen($2[$i][1]) > $aMaxLen[2] Then $aMaxLen[2] = StringLen($2[$i][1])
Next
ConsoleWrite(StringLeft('Testfunktion' & '                ', $aMaxLen[0]) & '   ' & 'Vorher [ns] Nachher [ns] Diff [ns]' & @CRLF)
For $i = 0 To UBound($1) - 1 Step 1
ConsoleWrite(StringLeft($1[$i][0] & '                ', $aMaxLen[0] + 1) & ' |   ' & StringRight('     ' & $1[$i][1], $aMaxLen[1]) & '   |   ' & StringRight('     ' & $2[$i][1], $aMaxLen[2]) & '   |  ' & StringRight('     ' & StringFormat('%.1f', $2[$i][1]-$1[$i][1]), $aMaxLen[1])& '  |' & @CRLF)
Next


Func Timing($n = 1500, $bConsole = True)
; [0] Name
; [1] FuncPtr
; [2] MedianCounter
; [3] a
; [4] b
; [5] c
; [6] Summe (Nanosekunden)
; [7] Counter
Local $aTimings = [ _
['should be zero'     , _09, 0, 0, 0, 0, 0, 0], _
['Local $a'           , _01, 0, 0, 0, 0, 0, 0], _
['Local $aaaaaa'      , _02, 0, 0, 0, 0, 0, 0], _
['Local $aaaaaaaaaa'  , _03, 0, 0, 0, 0, 0, 0], _
['Local $a = 0'       , _24, 0, 0, 0, 0, 0, 0], _
['$a = 0'             , _04, 0, 0, 0, 0, 0, 0], _
['$a = True'          , _16, 0, 0, 0, 0, 0, 0], _
['$a = Null'          , _22, 0, 0, 0, 0, 0, 0], _
['$a = Default'       , _23, 0, 0, 0, 0, 0, 0], _
['$a = Abs'           , _25, 0, 0, 0, 0, 0, 0], _
['$a = TimerInit'     , _26, 0, 0, 0, 0, 0, 0], _
['$a += 0'            , _05, 0, 0, 0, 0, 0, 0], _
['$a += b'            , _06, 0, 0, 0, 0, 0, 0], _
['$a *= b'            , _07, 0, 0, 0, 0, 0, 0], _
['$a /= b'            , _08, 0, 0, 0, 0, 0, 0], _
['TimerInit()'        , _10, 0, 0, 0, 0, 0, 0], _
['TimerDiff(0)'       , _21, 0, 0, 0, 0, 0, 0], _
['Sqrt(5)'            , _14, 0, 0, 0, 0, 0, 0], _
['$a = TimerDiff($t)' , _20, 0, 0, 0, 0, 0, 0], _
['$a = $a ^ 1.01'     , _11, 0, 0, 0, 0, 0, 0], _
['$a = $a ^ $b'       , _12, 0, 0, 0, 0, 0, 0], _
['$a = Sin(3.1415)'   , _13, 0, 0, 0, 0, 0, 0], _
['$a = Sqrt($a)'      , _15, 0, 0, 0, 0, 0, 0], _
['$a = Not True'      , _17, 0, 0, 0, 0, 0, 0], _
['$a = True And True' , _18, 0, 0, 0, 0, 0, 0], _
['$a = True Or True'  , _19, 0, 0, 0, 0, 0, 0]]


Local $r, $u = UBound($aTimings) - 1
For $i = 1 To $n Step 1
$r = Random(0, $u, 1)
$aTimings[$r][$aTimings[$r][2]+3] = $aTimings[$r][1]() * 1000
$aTimings[$r][2] += 1
If $aTimings[$r][2] = 3 Then
$aTimings[$r][2] = 0
$aTimings[$r][6] += Median($aTimings[$r][3], $aTimings[$r][4], $aTimings[$r][5])
$aTimings[$r][7] += 1
EndIf
Next


Local $aRet[$u+1][2], $aMaxLen[2] = [StringLen($aTimings[0][0]), StringLen(StringFormat('%.1f', $aTimings[0][6] / $aTimings[0][7]))]
For $i = 0 To $u Step 1
$aRet[$i][0] = $aTimings[$i][0]
$aRet[$i][1] = StringFormat('%.1f', $aTimings[$i][6] / $aTimings[$i][7])
For $ii = 0 To 1 Step 1
If StringLen($aRet[$i][$ii]) > $aMaxLen[$ii] Then $aMaxLen[$ii] = StringLen($aRet[$i][$ii])
Next
Next


If $bConsole Then
ConsoleWrite(StringLeft('Testfunktion' & '                ', $aMaxLen[0]) & '   ' & 'Time [ns]' & @CRLF)
For $i = 0 To $u Step 1
ConsoleWrite(StringLeft($aRet[$i][0] & '                ', $aMaxLen[0] + 1) & '   ' & StringRight('     ' & $aRet[$i][1], $aMaxLen[1]) & @CRLF)
Next
EndIf


Return $aRet


EndFunc




Func Median($a, $b, $c)
Local $t
If $a > $b Then
$t = $a
$a = $b
$b = $t
EndIf
If $b > $c Then
$t = $b
$b = $c
$c = $t
EndIf
If $a > $b Then
$t = $a
$a = $b
$b = $t
EndIf
Return $b
EndFunc


Func _00()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Next
Return TimerDiff($t)
EndFunc


Func _01()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Local $a
Next
Return TimerDiff($t) - _00()
EndFunc


Func _02()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Local $aaaaa
Next
Return TimerDiff($t) - _00()
EndFunc


Func _03()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Local $aaaaaaaaaa
Next
Return TimerDiff($t) - _00()
EndFunc


Func _04()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = 0
Next
Return TimerDiff($t) - _00()
EndFunc


Func _05()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a += 0
Next
Return TimerDiff($t) - _00()
EndFunc


Func _06()
Local $t = TimerInit(), $a = 1, $b = 1
For $i = 1 To 1e3 Step 1
$a += $b
Next
Return TimerDiff($t) - _00()
EndFunc


Func _07()
Local $t = TimerInit(), $a = 1.5, $b = 1.5
For $i = 1 To 1e3 Step 1
$a *= $b
Next
Return TimerDiff($t) - _00()
EndFunc


Func _08()
Local $t = TimerInit(), $a = 1.5, $b = 1.5
For $i = 1 To 1e3 Step 1
$a /= $b
Next
Return TimerDiff($t) - _00()
EndFunc


Func _09()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Next
Return TimerDiff($t) - _00()
EndFunc


Func _10()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
TimerInit()
Next
Return TimerDiff($t) - _00()
EndFunc


Func _11()
Local $t = TimerInit(), $a = 1.5
For $i = 1 To 1e3 Step 1
$a = $a ^ 1.01
Next
Return TimerDiff($t) - _00()
EndFunc


Func _12()
Local $t = TimerInit(), $a = 1.5, $b = 1.01
For $i = 1 To 1e3 Step 1
$a = $a ^ $b
Next
Return TimerDiff($t) - _00()
EndFunc


Func _13()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = Sin(3.1415)
Next
Return TimerDiff($t) - _00()
EndFunc


Func _14()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Sqrt(5)
Next
Return TimerDiff($t) - _00()
EndFunc


Func _15()
Local $t = TimerInit(), $a = 2
For $i = 1 To 1e3 Step 1
$a = Sqrt($a)
Next
Return TimerDiff($t) - _00()
EndFunc


Func _16()
Local $t = TimerInit(), $a = True
For $i = 1 To 1e3 Step 1
$a = True
Next
Return TimerDiff($t) - _00()
EndFunc


Func _17()
Local $t = TimerInit(), $a = True
For $i = 1 To 1e3 Step 1
$a = Not True
Next
Return TimerDiff($t) - _00()
EndFunc


Func _18()
Local $t = TimerInit(), $a = True
For $i = 1 To 1e3 Step 1
$a = True And True
Next
Return TimerDiff($t) - _00()
EndFunc


Func _19()
Local $t = TimerInit(), $a = True
For $i = 1 To 1e3 Step 1
$a = True Or True
Next
Return TimerDiff($t) - _00()
EndFunc


Func _20()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = TimerDiff($t)
Next
Return TimerDiff($t) - _00()
EndFunc


Func _21()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
TimerDiff(0)
Next
Return TimerDiff($t) - _00()
EndFunc


Func _22()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = Null
Next
Return TimerDiff($t) - _00()
EndFunc


Func _23()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = Default
Next
Return TimerDiff($t) - _00()
EndFunc


Func _24()
Local $t = TimerInit()
For $i = 1 To 1e3 Step 1
Local $a = 0
Next
Return TimerDiff($t) - _00()
EndFunc


Func _25()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = Abs
Next
Return TimerDiff($t) - _00()
EndFunc


Func _26()
Local $t = TimerInit(), $a = 0
For $i = 1 To 1e3 Step 1
$a = TimerInit
Next
Return TimerDiff($t) - _00()
EndFunc

Alles anzeigen

Das liefert sowas hier:

Code

Testfunktion         Vorher [ns] Nachher [ns] Diff [ns]
should be zero      |     0.0   |      1.4   |    1.4  |
Local $a            |    41.0   |    650.3   |  609.3  |
Local $aaaaaa       |    43.5   |    650.2   |  606.7  |
Local $aaaaaaaaaa   |    48.2   |    670.3   |  622.1  |
Local $a = 0        |   167.5   |    780.6   |  613.1  |
$a = 0              |   100.8   |    675.1   |  574.3  |
$a = True           |   110.7   |    682.0   |  571.3  |
$a = Null           |   348.9   |    913.2   |  564.3  |
$a = Default        |   349.5   |    917.4   |  567.9  |
$a = Abs            |   446.7   |   1016.4   |  569.7  |
$a = TimerInit      |   445.8   |   1015.4   |  569.6  |
$a += 0             |   103.1   |    677.3   |  574.2  |
$a += b             |   123.1   |    699.9   |  576.8  |
$a *= b             |   126.3   |    696.5   |  570.2  |
$a /= b             |   125.9   |    704.8   |  578.9  |
TimerInit()         |    66.7   |    645.6   |  578.9  |
TimerDiff(0)        |   255.6   |    830.0   |  574.4  |
Sqrt(5)             |   238.2   |    806.5   |  568.3  |
$a = TimerDiff($t)  |   352.9   |    928.6   |  575.7  |
$a = $a ^ 1.01      |   479.6   |   1052.2   |  572.6  |
$a = $a ^ $b        |   497.5   |   1069.1   |  571.6  |
$a = Sin(3.1415)    |   317.9   |    897.9   |  580.0  |
$a = Sqrt($a)       |   315.4   |    890.8   |  575.4  |
$a = Not True       |   183.7   |    757.0   |  573.3  |
$a = True And True  |   256.3   |    830.9   |  574.6  |
$a = True Or True   |   181.8   |    757.1   |  575.3  |

Alles anzeigen

Ist leider nicht ganz zuverlässig, da AutoIt manchmal "anhaltende" Ruckler die nur bestimmte Funktionen Betreffen (Ich schiele auf Sqrt(5) und Timerdiff(0)), sodass hier manchmal etwas schief läuft. Das übliche "ruckeln" habe ich versucht durch Medianbildung herauszufiltern. In den (Ergebnis)Mittelwert fließt jeweils nur der mittlere Wert von drei (Einzel)Werten ein (Spikes sollten somit abgefangen werden).

Was man aber ganz klar erkennt: Es ist komplett egal WAS AutoIt ausführt, alles wird Pi mal Daumen um konstante 600ns verzögert. Bei "schnellen" Features macht das natürlich viel aus. Ich hatte ja gehofft eine Quantisierung in der Verlangsamung zu finden (Funktion 1 wird z.B. 2x Elementarverlangsamung langsamer, Funktion 2 wird nur 1x Elementarverlangsamung langsamer, usw. Aber im Endeffekt haben alle den gleichen Wert )

Mars · 6. April 2020

Zitat von chesstiger

Nun, was gewinnen wir an Wissen daraus? Ich bin mir nicht ganz sicher, wie das Ergebnis zu deuten ist. Den ersten Durchlauf hätte ich so gedeutet, dass die "Bremse" AutoIt-Intern sein muss, da kein WinAPI-Aufruf signifikant länger dauert. Und mit AutoIt-Intern meine ich, dass weder eine WinAPI-Funktion langsamer ausgeführt wird als vorher, noch eine WinAPI-Funktion öfter aufgerufen wird als vorher.

Aber was ich mit dem Ergebnis des zweiten Durchgangs anfangen soll, weiß ich selber noch nicht so ganz...

Das Problem ist auch, dass ja auch bereits uralte Exe.Dateien langsamer geworden sind. Ich habe z.B. mal mein uraltes Spiel MicroTD ausgepackt, dort habe ich praktischerweise ja eine Framerate/Auslastungsanzeige drin. Das Spiel läuft heute (10 Jahre später) via AutoIt3.exe genauso "flüssig" (also Auslastungsanzeige @60FPS zeigt gleichen Auslastungswert), wie wenn ich die 10 Jahre alte Exe starte. An der Exe hat sich mit 100% Sicherheit nichts geändert. Kann mir nur vorstellen, dass AutoIt intern irgendwelche Schalter (errorchecks, oder ähnliches) hat (diese typischen "should never occur" errors die man zwar im Programm abfängt, aber weiß dass sie niemals auftreten, weshalb man das Errorhandling "so lala" implementiert) die erst seit kurzen von Windows umgelegt werden.

PS: Deine Ausführungen sind wundervoll

Mars · 5. April 2020

Ja Windows denkt bei jeder in AutoIt geschriebenen Exe, dass es ein Virus ist (ist bei mir genauso), allerdings glaube ich nicht, dass Windows absichtlich irgendwelche Skripte ausbremst. Im Prinzip läuft das Skript ja über die standard AutoIt3.exe und nicht als eigenständiges Programm. Da die AutoIt3.exe nicht vom Defender als Virus eingestuft wird, sollte sie zur Laufzeit auch nicht besonderst stark von ihm beeinflusst werden.

Edit: Falls jemand Vergleichswerte mit GDI+ will:

Code

#include <GDIPlus.au3>

Local $fScore1 = GDIPlusBench()
Opt('GUIOnEventMode', 1)
MsgBox(0, '', '')
Local $fScore2 = GDIPlusBench()

ConsoleWrite(StringFormat('%.2f', $fScore1) & ' (100.00%)' & @CRLF & StringFormat('%.2f', $fScore2) &  ' (' & StringFormat('%.2f', $fScore2/$fScore1*100) & '%)' & @CRLF)

Func GDIPlusBench()
    Local $t = TimerInit()
    _GDIPlus_Startup()
    Local $hBMP = _GDIPlus_BitmapCreateFromScan0(1024, 1024)
    Local $hGFX = _GDIPlus_ImageGetGraphicsContext($hBMP)
    Local $hBRU = _GDIPlus_BrushCreateSolid(), $c
    For $i = 1 To 1e4 Step 1
        $c = Random(0, 255, 1)
        _GDIPlus_BrushSetSolidColor($hBRU, 0xFF000000 + BitShift($c, -16) + BitShift($c, -8) + $c)
        _GDIPlus_GraphicsFillEllipse($hGFX, Random(-75/2, 1024), Random(-75/2, 1024), Random(50, 100), Random(50, 100), $hBRU)
    Next
;~     _GDIPlus_ImageSaveToFile($hBMP, Random(10000, 99999, 1) & '.png')
    _GDIPlus_BrushDispose($hBRU)
    _GDIPlus_BitmapDispose($hBMP)
    _GDIPlus_GraphicsDispose($hGFX)
    _GDIPlus_Shutdown()
    Return 430000/TimerDiff($t)
EndFunc

Alles anzeigen

Scheint als würde nur der AutoIt-Teil langsamer werden. Ich komme da auf ca. 70% mit MsgBox + EventMode. Für ein Skript in dem GDI+ den Großteil der Zeit läuft ist also leider kein Faktor 7 drin wenn man die GUI auslagert...

Mars · 5. April 2020

Code

1061.71 (100.00%)
Opt('GUIOnEventMode', 1)
437.07 (41.17%)


1072.40 (100.00%)
MsgBox(0, '', '')
142.04 (13.25%)


1079.03 (100.00%)
Opt('GUIOnEventMode', 1)
MsgBox(0, '', '')
118.35 (10.97%)

Alles anzeigen

Mal schauen welche "Schalter" es in AutoIt noch gibt die wir alle nicht kannten.

Mars · 5. April 2020

Habe mal was gebastelt. (ein Quick n Dirty Test einiger primitiver Funktionen wie Plus, Mal, Geteilt, usw)

Gemessen wird die Zeit in µs pro Aufruf der Zeile. (Das ganze randomisiert damit keine Muster dazwischenfunken incl Abzug der Zeit für die "Leerfunktion"). Jede dieser Zeiten wird gewichtet und auf 1 normiert (auf MEINEM Computer, bei euch wird der Wert für "µs Gewichtet" vermutlich nicht immer ca. 1.0 sein. Das ist notwendig, damit die Ergebnisse am Ende vergleichbar sind. Stellt dazu in Zeile 4 einen Gewichtungsfaktor ein, sodass ihr beim ersten Bench() Aufruf ca. 1000 Punkte holt). Am Ende wird die Inverse des Mittelwerts mal 1000 als "Score" gewertet (zum schöneren Vergleich). Dieser ist Proportional zur Ausführgeschwindigkeit. (1000 = MEIN Computer, 500 = ein PC auf dem das Skript halb so schnell läuft).

Einfach mal ausführen. Nach dem ersten Bench() wird ein ArrayDisplay geschaltet, dadurch ist das 2te Bench() (mit identischem Ablauf) wesentlich verlangsamt. Wie viel genau sich jede Funktion verlangsamt kann man im Array in Col 3 "µs Gewichtet" ablesen, wenn man zuvor einen Gewichtungsfaktor eingestellt hat sodass man im ersten Bench() aufruf ca. 1000 Punkte bekommt.

Aber irgendetwas stimmt hier trotzdem nicht. Ich habe früher schon seeeehr oft versucht den "schnellst möglichen AutoIt Code" für irgendein Problem zu bekommen. Ein Geschwindigkeitsunterschied um den Faktor 7-8 wäre mir da sicherlich mal aufgefallen, zumal ich zum Debuggen oft ArrayDisplay nutze. Das kann doch nicht sein, dass das bis heute niemand gemerkt hat?! Meine Vermutung ist, dass es an Windows liegt. Irgendein Sicherheitslückenschließungsupdate das aus unerfindlichen Gründen exakt die Schnittstelle von AutoIt zu Windows trifft, sodass AutoIt davon maximal betroffen ist während andere "nur" 10% an Geschwindigkeit einbüßen. Die alternative wäre, dass es an AutoIt liegt, aber an der Exe (und vorallem an der BETA) hat sich seit Jahrzehnten nichts geändert und ich halte es für extrem unwahrwahrscheinlich, dass das ich das bis heute nicht mitgekriegt hätte wenn es schon immer so gewesen wäre.

Code

#include <Array.au3>

Local $Gewichtungsfaktor = 1
Local $fScore1 = Bench(2000, $Gewichtungsfaktor) ; Öffnet am Ende ein ArrayDisplay
Local $fScore2 = Bench(2000, $Gewichtungsfaktor) ; Ist weeeeesentlich langsamer

ConsoleWrite(StringFormat('%.2f', $fScore1) & ' (100.00%)' & @CRLF & StringFormat('%.2f', $fScore2) &  ' (' & StringFormat('%.2f', $fScore2/$fScore1*100) & '%)' & @CRLF)

Func Bench($n = 2000, $m = 1)

    Local $u = 13, $r = 0
    Local $aBench[$u+1][5]

    $aBench[0][0] = 'Beschreibung'
    $aBench[0][1] = 'Funktionspointer'
    $aBench[0][2] = 'µs/Aufruf'
    $aBench[0][3] = 'µs Gewichtet'
    $aBench[0][4] = 'Gewichtung'

    $aBench[1][0] = 'Local $a'
    $aBench[1][1] = _01
    $aBench[1][2] = 0
    $aBench[1][3] = 0
    $aBench[1][4] = 24 * $m

    $aBench[2][0] = 'Local $aaaaa'
    $aBench[2][1] = _02
    $aBench[2][2] = 0
    $aBench[2][3] = 0
    $aBench[2][4] = 23 * $m

    $aBench[3][0] = 'Local $aaaaaaaaaa'
    $aBench[3][1] = _03
    $aBench[3][2] = 0
    $aBench[3][3] = 0
    $aBench[3][4] = 20 * $m

    $aBench[4][0] = '$a = 0'
    $aBench[4][1] = _04
    $aBench[4][2] = 0
    $aBench[4][3] = 0
    $aBench[4][4] = 10 * $m

    $aBench[5][0] = '$a += 0'
    $aBench[5][1] = _05
    $aBench[5][2] = 0
    $aBench[5][3] = 0
    $aBench[5][4] = 10 * $m

    $aBench[6][0] = '$a += b'
    $aBench[6][1] = _06
    $aBench[6][2] = 0
    $aBench[6][3] = 0
    $aBench[6][4] = 8 * $m

    $aBench[7][0] = '$a *= b'
    $aBench[7][1] = _07
    $aBench[7][2] = 0
    $aBench[7][3] = 0
    $aBench[7][4] = 8 * $m

    $aBench[8][0] = '$a /= b'
    $aBench[8][1] = _08
    $aBench[8][2] = 0
    $aBench[8][3] = 0
    $aBench[8][4] = 8 * $m

    $aBench[9][0] = 'should be zero'
    $aBench[9][1] = _09
    $aBench[9][2] = 0
    $aBench[9][3] = 0
    $aBench[9][4] = 0 * $m

    $aBench[10][0] = 'Timerinit()'
    $aBench[10][1] = _10
    $aBench[10][2] = 0
    $aBench[10][3] = 0
    $aBench[10][4] = 15 * $m

    $aBench[11][0] = '$a = $a ^ 1.01'
    $aBench[11][1] = _11
    $aBench[11][2] = 0
    $aBench[11][3] = 0
    $aBench[11][4] = 2 * $m

    $aBench[12][0] = '$a = $a ^ $b'
    $aBench[12][1] = _12
    $aBench[12][2] = 0
    $aBench[12][3] = 0
    $aBench[12][4] = 2 * $m

    $aBench[13][0] = '$a = Sin(3.1415)'
    $aBench[13][1] = _13
    $aBench[13][2] = 0
    $aBench[13][3] = 0
    $aBench[13][4] = 3 * $m

    For $i = 1 To $n Step 1
        $r = Random(1, $u, 1)
        $aBench[$r][2] += $aBench[$r][1]()
        $aBench[$r][3] += 1
    Next

    Local $fScore

    For $i = 1 To $u Step 1
        $aBench[$i][2] /= $aBench[$i][3]
        $aBench[$i][3] = $aBench[$i][2] * $aBench[$i][4]
        $fScore += $aBench[$i][3]
    Next
    $fScore /= ($u - 1) ; Should be Zero wird nicht mit eingerechnet.
    $fScore = Round(1000 / $fScore, 2)
    ; fScore ist auf 1000 normiert (auf meinem PC, gemacht wurde das mit den Gewichtungen)
    ; Ist fScore > 1000 ist der Benchmark proportional schneller gelaufen als bei mir
    ; Ist fScore < 1000 ist der Benchmark porportional langsamer gelaufen als bei mir
    ; Proportional bedeutet -> Score von 500 -> halb so schnell.
    _ArrayDisplay($aBench, $fScore)
    Return $fScore
EndFunc

Func _010()
    Local $t = TimerInit()
    For $i = 1 To 1e3 Step 1
    Next
    Return TimerDiff($t)
EndFunc

Func _01()
    Local $t = TimerInit()
    For $i = 1 To 1e3 Step 1
        Local $a
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _02()
    Local $t = TimerInit()
    For $i = 1 To 1e3 Step 1
        Local $aaaaa
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _03()
    Local $t = TimerInit()
    For $i = 1 To 1e3 Step 1
        Local $aaaaaaaaaa
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _04()
    Local $t = TimerInit(), $a = 0
    For $i = 1 To 1e3 Step 1
        $a = 0
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _05()
    Local $t = TimerInit(), $a = 0
    For $i = 1 To 1e3 Step 1
        $a += 0
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _06()
    Local $t = TimerInit(), $a = 1, $b = 1
    For $i = 1 To 1e3 Step 1
        $a += $b
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _07()
    Local $t = TimerInit(), $a = 1.5, $b = 1.5
    For $i = 1 To 1e3 Step 1
        $a *= $b
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _08()
    Local $t = TimerInit(), $a = 1.5, $b = 1.5
    For $i = 1 To 1e3 Step 1
        $a /= $b
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _09()
    Local $t = TimerInit()
    For $i = 1 To 1e3 Step 1
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _10()
    Local $t = TimerInit()
    For $i = 1 To 1e3 Step 1
        TimerInit()
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _11()
    Local $t = TimerInit(), $a = 1.5
    For $i = 1 To 1e3 Step 1
        $a = $a ^ 1.01
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _12()
    Local $t = TimerInit(), $a = 1.5, $b = 1.01
    For $i = 1 To 1e3 Step 1
        $a = $a ^ $b
    Next
    Return TimerDiff($t) - _010()
EndFunc

Func _13()
    Local $t = TimerInit(), $a = 0
    For $i = 1 To 1e3 Step 1
        $a = Sin(3.1415)
    Next
    Return TimerDiff($t) - _010()
EndFunc

Alles anzeigen

Mars · 24. März 2020

Ich habe mich tatsächlich auch nach ein paar Tagen hingesetzt und versucht etwas zusammenzubauen. Leider ist das nichts geworden weil ich einen Klotz im Kopf hatte. Dachte ich muss eine Struct erstellen und irgendeinen Weg finden ffmpeg zu sagen wohin es den Frame dekodieren soll (so nach dem Motto: Hier hast du eine Adresse, schreib!). Std und CMDlines sind für mich ein Buch mit sieben Siegeln (dicht gefolgt von RegEx). Ich bedanke mich vielmals, dass du das Problem für mich gelöst hast.

lg

M

Mars · 17. März 2020

Ich glaube das Dict ist ohnehin schneller (habe es nicht ausprobiert). Falls es intern mit einem Hashtable arbeitet sollte die Zugriffszeit nahe O(1) sein und viel mehr als das ist nicht drin (nur eine Vermutung)

Ein Vorteil der ArrayBinSearch + Regex ist, dass man so z.B. auch Schreibfehler/TeilMatches gut abarbeiten kann (hier ist ein Hashtable aufgeschmissen, da ein Schreibfehler idr zu einem völlig unterschiedlichen Hashwert führt), da das hier aber nicht gebraucht wird ist es wahrscheinlich Wurst welche Variante du im Endeffekt verwendest. Aber die Methode ansich kannst du dir merken, villeicht braucht man sowas ja später mal

M

Mars · 15. März 2020

Die Info im Installer ist vermutlich schon 10 Jahre alt und von daher kann man sie getrost ignorieren. Solange du die Software nur auf Computern einsetzt die neuer als 10 Jahre sind (und damit meistens 64Bit haben) ist es egal welche Version du verwendest.

Edit: Wie Chip im Folgekommentar anmerkt stimmt das nicht immer. Habe persönlich aber noch nie Probleme gehabt was mich zum Schreiben dieses Kommentars verleitet hat.

Beiträge von Mars

RegExp: Verschachtelte Block-Kommentare entfernen - Char nicht-in-String ersetzen

AutoIt: Bitte um Hilfe

Allgemeiner Meinungsaustausch zum Thema "Corona"

Allgemeiner Meinungsaustausch zum Thema "Corona"

Ich wurde gehackt ;-)

Ich wurde gehackt ;-)

Kann mein eigenes Programm nicht löschen - von Avira keine Unterstützung...

Kann mein eigenes Programm nicht löschen - von Avira keine Unterstützung...

MsgBox verlangsamt den Skriptablauf unter Win 10

MsgBox verlangsamt den Skriptablauf unter Win 10

MsgBox verlangsamt den Skriptablauf unter Win 10

winclosearea() - suche eine Funktion, die dieser entspricht oder einen Workaround

MsgBox verlangsamt den Skriptablauf unter Win 10

MsgBox verlangsamt den Skriptablauf unter Win 10

MsgBox verlangsamt den Skriptablauf unter Win 10

MsgBox verlangsamt den Skriptablauf unter Win 10

MsgBox verlangsamt den Skriptablauf unter Win 10

Frame aus Video extrahieren

Große Datei durchsuchen - Optimierungsvorschläge gesucht

Installation: 64Bit vs. 32Bit Version