Beiträge von Mars

Mars · Mittwoch, 20:49

Moin,

Vorab: Ich habe mich noch nicht näher mit dem Thema befasst und noch nichts ausprobiert. Das hier ist nur ein Thread in dem ich nachfrage ob jemand schonmal soetwas gebastelt hat, damit ich mir die Mühe ggf. sparen kann (wozu das Rad ein 10tes Mal erfinden).

Es geht um folgendes:

Ich suche eine Funktion (am besten in AutoIt gewrappt) die mit einem frei zugänglichen Decoder (z.B. ffmpeg) einen Frame (Angabe als Integer, Frame 0 = erster Frame des Videos) aus einer Videodatei dekodiert und in eine Struct legt (kein Dump auf die Festplatte), sodass man anschließend Zugriff auf die Pixeldaten hat. Dabei sollten verschiedene container (mp4, mov, avi, mkv, usw) sowie verschiedene interne Formate (VP9, h264, h265, usw) unterstützt werden. Schön wäre auch wenn man die Videodatei (die ggf ziemlich groß ist) nicht jedes Mal neu einlesen muss, sondern laden kann und dann beliebige Frames herausziehen kann.

Ich weiß dass das möglich ist und villeicht hat ffmpeg sogar schon eine vorgefertigte Funktion für genau dieses Szenario (auf die Schnelle habe ich aber nur eine Funktion die den Frame auf die Platte schreibt gefunden).

Ziel der Aktion:

Ich möchte eine Methode basteln um "bessere" Screenshots von Videos machen zu können (dabei geht es vorallem um selbst aufgenommene Videos via Handy/Kamera usw). Leider ist da immer starkes Rauschen (insbesondere auf Pixelebene) involviert. Wenn man aber z.B. 5 Frames in Folge verwendet (vorausgesetzt Objekt und Kamera bewegen sich nicht viel) könnte man mit minimaler Bewegungskorrektur + Mittelwertbildung ein besseres Bild erhalten, als wenn man von den 5 Frames einfach den Mittleren auswählt.

Daher die Frage: Hat das schonmal jemand gemacht und gibt es villeicht bereits eine gewrappte AutoIt Version?

lg

Mars

Mars · 14. Februar 2020

Habe auch VSC installiert und das Beispiel tut bei mir auch was es soll.

Üblicherweise habe ich VSC aber für Go und C++ in Verwendung, Für AutoIt gibts ja ISN (was für die Sprache zugeschnitten wurde), oder Scite, wenn man etwas mehr als Notepad, aber nicht "viel" mehr will

M

Mars · 5. Februar 2020

Wenn dein Spript Adminrechte braucht versuche mal #RequireAdmin am Anfang (in die erste Zeile) zu schreiben, dadurch kann das Programm nur als Admin ausgeführt werden, egal welcher Benutzer angegeben wird und egal wie der Admin heißt (glaube ich zumindest).

edit. obwohl ich glaube du willst das das automatisch passiert (also dass das Windows Fenster in dem man sich als Admin anmeldet nicht erscheint). Dann hilft meine Idee nichts...

Mars · 4. Februar 2020

Das ist wirklich seltsames Verhalten. Bei mir kann ich anstellen was ich will (msgboxen, tooltips, sonstiges) und der Text bleibt immer erhalten (Das liegt möglicherweise an irgendwelchen Windows-Updates, ich kann mich nämlich erinnern vor langer langer Zeit immer damit gekämpft zu haben das plötzlich Teile aus dem GFX/DC eines Fensters plötzlich "verschwunden" sind weil etwas davorlag. Aber das ist so lange her das ich kaum noch weiß warum das passiert ist). Was nicht abgedeckt ist in meinem Beispiel ist WM_PAINT (dafür braucht man einen weiteren Backbuffer der immer das letzte gerenderte Bild enthält. Den kann man dann Eventdriven ins GUI zeichnen ohne das etwas fehlt) und einige andere WMs. Falls es WM_PAINT ist sollte das Problem leicht zu beheben sein, falls nicht muss weiter gebohrt werden bis man weiß was der Verursacher ist.

Schau mal ob das Problem hier immernoch auftritt, ich kann es bei mir leider nicht reproduzieren...

Code

#include <GDIPlus.au3>

Opt('GUIOnEventMode', 1)

Global Const $sTitle = 'Test'
Global Const $iW = 400
Global Const $iH = 400

Global $bExit = False

_GDIPlus_Startup()
Global $hGUI = GUICreate($sTitle, $iW, $iH + 30)
Global $hGFX = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $hBMP = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGFX)
Global $hBMP2 = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGFX)
Global $hBUF = _GDIPlus_ImageGetGraphicsContext($hBMP)
Global $hBUF2 = _GDIPlus_ImageGetGraphicsContext($hBMP2)

Global $hFAM = _GDIPlus_FontFamilyCreate('Arial')
Global $hFON = _GDIPlus_FontCreate($hFAM, 35, 0, 2)
Global $hFOR = _GDIPlus_StringFormatCreate()
Global $hBRU = _GDIPlus_BrushCreateSolid(0xFF303030)
Global $hMAT = _GDIPlus_MatrixCreate()

Global $hSLI = GUICtrlCreateSlider(10, $iH + 5, $iW - 20, 20)

_GDIPlus_GraphicsSetTextRenderingHint($hBUF, 4)

GUISetOnEvent(-3, EVENT, $hGUI)
GUIRegisterMsg(0xF, WM_PAINT)
OnAutoItExitRegister('Xit')
GUISetState(@SW_SHOW, $hGUI)

While Not $bExit And Sleep(10)

    _GDIPlus_GraphicsClear($hBUF, 0xFFE0E0E0) ; Clear BUF

    Local $tRect = _GDIPlus_RectFCreate(200, 200)
    Local $alpha = GUICtrlRead($hSLI) * 360/100

    _GDIPlus_MatrixTranslate($hMAT, -200, -200, True) ; MatrixRotate geht immer um den Ursprung. Ist der Text bei (x,y)=(200,200), muss die Matrix dementsprechend verschoben werden.
    _GDIPlus_MatrixRotate($hMAT, $alpha, True) ; Rotation um irgendeinen Winkel
    _GDIPlus_MatrixTranslate($hMAT, 200, 200, True) ; Matrix zurückverschieben

    _GDIPlus_GraphicsSetTransform($hBUF, $hMAT) ; Matrix anwenden
    _GDIPlus_GraphicsDrawStringEx($hBUF, 'Kraft[N]', $hFON, $tRect, $hFOR, $hBRU) ; Text zeichnen

    _GDIPlus_MatrixTranslate($hMAT, -200, -200, True) ; Rücktransformation damit man danach noch andere sachen Zeichnen kann
    _GDIPlus_MatrixRotate($hMAT, -$alpha, True)
    _GDIPlus_MatrixTranslate($hMAT, 200, 200, True)

    _GDIPlus_GraphicsSetTransform($hBUF, $hMAT) ; Matrix anwenden Jetzt ist wieder alles beim alten.
    _GDIPlus_GraphicsDrawStringEx($hBUF, 'Kraft[N]', $hFON, $tRect, $hFOR, $hBRU) ; Text zeichnen (der hier wird jetzt statisch sein und kann sich nicht drehen)

    _GDIPlus_GraphicsDrawImageRect($hBUF2, $hBMP, 0, 0, $iW, $iH) ; Ziel in hBUF2 speichern
    _GDIPlus_GraphicsDrawImageRect($hGFX, $hBMP2, 0, 0, $iW, $iH) ; hBUF2 zeichnen

WEnd

Func WM_PAINT() ; Zeichnet hBUF2 in dem sich ansich immer ein fertig gerendertes Bild befinden sollte...
    _GDIPlus_GraphicsDrawImageRect($hGFX, $hBMP2, 0, 0, $iW, $iH)
EndFunc

Func EVENT()
    Switch @GUI_CtrlId
        Case -3
            $bExit = True
    EndSwitch
EndFunc

Func Xit()
    _GDIPlus_MatrixDispose($hMAT)
    _GDIPlus_BrushDispose($hBRU)
    _GDIPlus_StringFormatDispose($hFOR)
    _GDIPlus_FontDispose($hFON)
    _GDIPlus_FontFamilyDispose($hFAM)
    _GDIPlus_GraphicsDispose($hBUF2)
    _GDIPlus_BitmapDispose($hBMP2)
    _GDIPlus_GraphicsDispose($hBUF)
    _GDIPlus_BitmapDispose($hBMP)
    _GDIPlus_GraphicsDispose($hGFX)
    _GDIPlus_Shutdown()
EndFunc

Alles anzeigen

M

Mars · 3. Februar 2020

Habe mal ein Beispiel zu frei rotierbarem Text gemacht, ich hoffe das Löst dein Problem.

Code

#include <GDIPlus.au3>

Opt('GUIOnEventMode', 1)

Global Const $sTitle = 'Test'
Global Const $iW = 400
Global Const $iH = 400

Global $bExit = False

_GDIPlus_Startup()
Global $hGUI = GUICreate($sTitle, $iW, $iH + 30)
Global $hGFX = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $hBMP = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGFX)
Global $hBUF = _GDIPlus_ImageGetGraphicsContext($hBMP)

Global $hFAM = _GDIPlus_FontFamilyCreate('Arial')
Global $hFON = _GDIPlus_FontCreate($hFAM, 35, 0, 2)
Global $hFOR = _GDIPlus_StringFormatCreate()
Global $hBRU = _GDIPlus_BrushCreateSolid(0xFF303030)
Global $hMAT = _GDIPlus_MatrixCreate()

Global $hSLI = GUICtrlCreateSlider(10, $iH + 5, $iW - 20, 20)

_GDIPlus_GraphicsSetTextRenderingHint($hBUF, 4)

GUISetOnEvent(-3, 'EVENT', $hGUI)
OnAutoItExitRegister('Xit')
GUISetState(@SW_SHOW, $hGUI)

While Not $bExit And Sleep(10)
    _GDIPlus_GraphicsClear($hBUF, 0xFFE0E0E0)

    Local $tRect = _GDIPlus_RectFCreate(200, 200)
    Local $alpha = GUICtrlRead($hSLI) * 360/100

    _GDIPlus_MatrixTranslate($hMAT, -200, -200, True) ; MatrixRotate geht immer um den Ursprung. Ist der Text bei (x,y)=(200,200), muss die Matrix dementsprechend verschoben werden.
    _GDIPlus_MatrixRotate($hMAT, $alpha, True) ; Rotation um irgendeinen Winkel
    _GDIPlus_MatrixTranslate($hMAT, 200, 200, True) ; Matrix zurückverschieben

    _GDIPlus_GraphicsSetTransform($hBUF, $hMAT) ; Matrix anwenden
    _GDIPlus_GraphicsDrawStringEx($hBUF, 'Kraft[N]', $hFON, $tRect, $hFOR, $hBRU) ; Text zeichnen

    _GDIPlus_MatrixTranslate($hMAT, -200, -200, True) ; Rücktransformation damit man danach noch andere sachen Zeichnen kann
    _GDIPlus_MatrixRotate($hMAT, -$alpha, True)
    _GDIPlus_MatrixTranslate($hMAT, 200, 200, True)

    _GDIPlus_GraphicsSetTransform($hBUF, $hMAT) ; Matrix anwenden Jetzt ist wieder alles beim alten.
    _GDIPlus_GraphicsDrawStringEx($hBUF, 'Kraft[N]', $hFON, $tRect, $hFOR, $hBRU) ; Text zeichnen (der hier wird jetzt statisch sein und kann sich nicht drehen)

    _GDIPlus_GraphicsDrawImageRect($hGFX, $hBMP, 0, 0, $iW, $iH)
WEnd

Func EVENT()
    Switch @GUI_CtrlId
        Case -3
            $bExit = True
    EndSwitch
EndFunc

Func Xit()
    _GDIPlus_MatrixDispose($hMAT)
    _GDIPlus_BrushDispose($hBRU)
    _GDIPlus_StringFormatDispose($hFOR)
    _GDIPlus_FontDispose($hFON)
    _GDIPlus_FontFamilyDispose($hFAM)

    _GDIPlus_GraphicsDispose($hBUF)
    _GDIPlus_BitmapDispose($hBMP)
    _GDIPlus_GraphicsDispose($hGFX)
    _GDIPlus_Shutdown()
EndFunc

Alles anzeigen

Edit: Habe mir jetzt WriteRotate nicht ausprobiert, aber allgemein ist WinAPI und GDI+ nur in einigen Fällen kompatibel, im Allgemeinen greifen die Funktionen nicht ineinander. Man kann kein Rechteck via WinAPI auf ein GDI+ GFX zeichnen und kein GDI+ Rechteck auf einen usw...

lg

M

Mars · 1. Februar 2020

Ich würde mir einfach die gewünschte Funktion via _GDIPlus_GraphicsDrawLine selbst basteln. Wenn du das Array für DrawCurve bereits hast, kannst du via DrawLine immer Punkt [i] und Punkt [i+1] verbinden (beginnend bei 1 und endend ein Element vor dem letzten Element).

Mars · 23. November 2019

Ich verstehe einfach nicht wie die Antivirenhersteller so unfassbar bescheuert sein können und nicht mal den Interpreter whitelisten. Das ist als würde man das "PE" am Beginn einer .exe als Indikator nutzen um einen Virus zu erkennen. Die Probleme werden wohl nie aufhören, solange niemand merkt, dass ein Interpreter für sich weder gut noch schlecht ist, sondern eben einfach nur ein Interpreter.

Mars · 24. Oktober 2019

Also ich bin jetzt verwirrt.

Hier ist ein Testskript. Wenn ich via _WinAPI_GetWindowDC (via GetDC bekommt man nur die ClientArea) den DC hole und via BitBlt hineinzeichne (BLACKNESS/WHITENESS brauchen dafür keine Brush/Bitmaps oder ähnliches sondern funktionieren direkt) sieht es für mich aus als würde das Koordinatensystem bei 0/0 oben links anfangen, aber die Titelleiste wird über den oberen Teil gezeichnet.

C

#include <WinApi.au3>
#include <WindowsConstants.au3>

Global $w = 512, $h = 256
Global $hGUI = GUICreate('Test', $w, $h)
Global $hDC = _WinAPI_GetWindowDC($hGUI)

GUISetState()
GUISetBkColor(0x202020)

While GUIGetMsg() <> -3
_WinAPI_BitBlt($hDC, 10, 10, $w - 20, $h - 20, 0, 0, 0, $WHITENESS)
_WinAPI_BitBlt($hDC, 0, 0, 100, 100, 0, 0, 0, $BLACKNESS)
WEnd

_WinAPI_ReleaseDC($hGUI, $hDC)

Alles anzeigen

Mars · 24. Oktober 2019

Dann habe ich da etwas falsches in Erinnerung. War mir eigentlich ziemlich sicher, dass die Koordinate 0/0 immer oben links in der clientarea ist und nicht oben links in der Titelleiste. Muss ich wohl mal ausprobieren.

Mars · 19. Oktober 2019

Technisch gesehen wird auch nur der DC von der ClientArea und nicht vom "gesamten Fenster" geholt (Rand & Titelleiste sind da nicht enthalten).
Edit: ich habe das "window" überlesen und gedacht es ginge um die Funktion GetDC. Diese Aussage stimmt so nicht.

Mars · 22. August 2019

und ggf. bei allen _IsPressed() Funktionen ein "02" einfügen, dann wird das Skript aktiviert, sobald man die rechte Maustaste klickt statt der Mittleren (die ja heutzutage nicht mehr jeder hat)

Außerdem kann ein Sleep(10) in der While _IsPressed() Schleife auch nicht schaden, sonst hat man volle CPU Auslastung obwohl das an dieser Stelle garnichts bringt.

lg

M

Mars · 26. Juni 2019

Aus welcher Sprache wurde das denn Übersetzt?

Ich habe schon einiges an Spielen programmiert (vorallem Minispiele in 2D), meistens waren das tausende Zeilen Code der wesentlich komplizierter war als ein einfaches Makro das die Maus irgendwie bewegt. Wenn ihr ein Spiel schreiben könnt könnt ihr auch die Maus bewegen um euer Spiel zu testen.

Mars · 22. Juni 2019

Falls es nur eine S Kurve (im Bereich -1 < y < 1) sein muss und nicht unbedingt die Sigmoid-Funktion kannst du auch x/(1+Abs(x)) als Funktion nutzen. Vorteil wäre der Entfall der sehr rechenaufwändigen POW Funktion.

Mars · 23. Mai 2019

Wenn man eine Datei die Funktionen enthält als .a3x kompiliert und diese in einem anderen Script per Include einfügt wird die Funktion nicht erkannt. Eine Lösung für dieses Problem ist, dass man die .a3x Datei umbenennt zu z.B. .a3y. Wenn man diese datei via Include einfügt funktioniert alles wie gewohnt.

Code: a.au3

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_type=a3x
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Func MyFunc()
    MsgBox(1, 'Hallo', 'Hallo')
EndFunc

Code: b.au3

#include 'a.a3x'
MyFunc()

Bin nicht sicher ob das bei jedem so ist, aber intuitiv ist dieses Verhalten nicht. Liegt vermutlich an Au3Check. Kann das jemand reproduzieren?

lg

M

Mars · 20. Mai 2019

Eine weitere Methode wäre folgendes:

- Schiebe deine Werte die du behalten möchtest (inplace) nach vorne und die die du loswerden möchtest nach hinten.

- Benutze genau 1x Redim auf dein nun strukturiertes Array und schneide dir damit den Teil aus den du behalten möchtest.

Code

#include <Array.au3>
Global $a[5][3] = [[1, 2, 3],[4, 5, 6],[7, 8, 9],[10, 11, 12],[13, 14, 15]]
_ArrayDisplay($a)
ReDim $a[3][2] ; Redim Schneidet jeweils den Inhalt jedes Index' von 0 bis End aus.
_ArrayDisplay($a)

Der Code dient nur als Beispiel für das was ReDim macht.

M

Mars · 8. April 2019

Ein Trick um das "ausufern" zu verhindern ist die Energieerhaltung.

Zu Beginn berechnet man die Gesamtenergie (EPot + EKin) und nach jedem Frame (wenn alle Werte vorliegen) berechnet sie ebenfalls. Da es immer kleine Abweichungen gibt (man kann kein kontinuierliches system fehlerfrei diskret simulieren) wird die Gesamtenergie im System nicht erhalten sein. Jetzt passt man nach jedem Frame die Werte etwas an, sodass die Energie trotzdem erhalten bleibt. Das ist zwar eigentlich grober Unfug, hilft aber dabei das ein System nach einiger Zeit immernoch stabil (wenn auch falsch) läuft.

kleiner Tip hier: (tooltip mit Energie (die kartesisch berechnet wurde... ist mir auch erst im nachhinein aufgefallen dass das doof ist :D))

Spoiler anzeigen

C

#Region Includes
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Color.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#EndRegion


#Region Declarations
;~ Window
Global $wWidth = 800
Global $wHeight = 600
Global $wMiddle_x = $wWidth / 2
Global $wMiddle_y = $wHeight / 2
Global $middle_x = @DesktopWidth/2
Global $middle_y = @DesktopHeight/2

;~ Env
Global $pi = 3.141592653589793
Global $g = 1
Global $x[3], $y[3], $th[3], $v[3], $a[3], $l[3], $m[3], $oldX[3], $oldY[3]
Global $energy

;~ INIT pendulum 1
$l[1] = 200
$m[1] = 20
$th[1] = 0.4*$pi
$v[1] = 0.0
$a[1] = 0
$x[1] = $wMiddle_x + $l[1] * sin($th[1])
$y[1] = 0.5*$wMiddle_y - $l[1] * cos($th[1])

;~ INIT pendulum 2
$l[2] = 200
$m[2] = 20
$th[2] = 0.5*$pi
$v[2] = 0.0
$a[2] = 0
$x[2] = $x[1] + $l[2]*sin((($th[2]-180)*$pi)/180)
$y[2] = $y[1] - $l[2]*cos((($th[2]-180)*$pi)/180)

$oldX[1] = $x[1]
$oldY[1] = $y[1]
$oldX[2] = $x[2]
$oldY[2] = $y[2]
$energy = _Energy()
ConsoleWrite('Startenergie: ' & $energy & @CRLF)
#EndRegion


#Region Gui
$hGui = GUICreate("Form1", $wWidth, $wHeight, $middle_x-($wWidth/2), $middle_y-($wHeight/2),-2147483648)
GUISetState(@SW_SHOW)
#EndRegion


#Region ### START GDI+ ###
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGui)

;~ Bitmaps
$hGraphicBitmap = _GDIPlus_BitmapCreateFromGraphics($wWidth, $wHeight, $hGraphic)
$hHistoryBitmap = _GDIPlus_BitmapCreateFromScan0($wWidth, $wHeight)
$hLegBitmap = _GDIPlus_BitmapCreateFromScan0($wWidth, $wHeight)

;~ Buffers
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hGraphicBitmap)
$hHistoryBuffer = _GDIPlus_ImageGetGraphicsContext($hHistoryBitmap)
$hLegBuffer = _GDIPlus_ImageGetGraphicsContext($hLegBitmap)

;~ Smoothing
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 4)
_GDIPlus_GraphicsSetSmoothingMode($hHistoryBuffer, 4)
_GDIPlus_GraphicsSetSmoothingMode($hLegBuffer, 4)

;~ First Clearing
_GDIPlus_GraphicsClear($hBuffer, 0xFFFFFFFF)
_GDIPlus_GraphicsClear($hHistoryBuffer, 0xFFFFFFFF)
_GDIPlus_GraphicsClear($hLegBuffer, 0xFFFFFFFF)

;~ Pens
$hPen = _GDIPlus_PenCreate(0xFF0000FF, 1)
#EndRegion ### END GDI+ ###


#Region EventMode
Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
#EndRegion


#Region Loop
While 1
   _Calc()
   _Draw()
   _Energy()
WEnd
#EndRegion

#Region Functions
Func _Energy()
    ; Summe aus m*g*h + Summe aus 1/2 mv² (ob das so exakt stimmt ist erstmal egal)
    $e1 = $m[1] * $g * ($wHeight - $y[1]) + $m[2] * $g * ($wHeight - $y[2])
    $e2 = 0.5 * $m[1] * (($x[1] - $oldX[1])^2 + ($y[1] - $oldY[1])^2) +  + 0.5 * $m[2] * (($x[2] - $oldX[2])^2 + ($y[2] - $oldY[2])^2)
    ToolTip('EPot: ' & Round($e1) & @CRLF & 'EKin: ' & Round($e2) & @CRLF & 'E: ' & Round($e1 + $e2) & ' (' & Round(($e1 + $e2)/$energy, 2)*100 & '%)')
    Return $e1 + $e2
EndFunc

Func _Calc()
;~    Acceleration 1
   $num1 = -$g * (2*$m[1]+$m[2]) * sin($th[1])
   $num2 = -$m[2] * $g * sin($th[1]-2*$th[2])
   $num3 = -2 * sin($th[1]-$th[2]) * $m[2]
   $num4 = $v[2]*$v[2] * $l[2] + $v[1]*$v[1] * $l[1] * cos($th[1]-$th[2])
   $den = $l[1] * (2 * $m[1] + $m[2] - $m[2] * cos(2*$th[1]-2*$th[2]))
   $a[1] = ($num1 + $num2 + ($num3 * $num4)) / $den

;~    Acceleration 2
   $num1 = 2 * sin($th[1]-$th[2])
   $num2 = ($v[1]*$v[1] * $l[1] * ($m[1]+$m[2]))
   $num3 = $g * ($m[1]+$m[2]) * cos($th[1])
   $num4 = $v[2]*$v[2] * $l[2] * $m[2] * cos($th[1]-$th[2])
   $den = $l[2] * (2 * $m[1] + $m[2] - $m[2] * cos(2*$th[1]-2*$th[2]))
   $a[2] = ($num1 * ($num2 + $num3 + $num4)) / $den

;~    Angles
   $v[1] += $a[1]
   $v[2] += $a[2]
   $th[1] += $v[1]
   $th[2] += $v[2]

;~    EndPoints
    $oldX[1] = $x[1]
    $oldY[1] = $y[1]
    $oldX[2] = $x[2]
    $oldY[2] = $y[2]
   $x[1] = $wMiddle_x - $l[1] * sin($th[1])
   $y[1] = 0.5*$wMiddle_y + $l[1] * cos($th[1])
   $x[2] = $x[1] - $l[2]*sin($th[2])
   $y[2] = $y[1] + $l[2]*cos($th[2])
EndFunc


Func _Draw()
;~    Clear
   _GDIPlus_GraphicsDrawImageRect($hLegBuffer, $hHistoryBitmap, 0, 0, $wWidth, $wHeight)

;~    Draw pieces
   _GDIPlus_GraphicsDrawLine($hLegBuffer, $wMiddle_x, 0.5*$wMiddle_y, $x[1], $y[1], $hPen)
   _GDIPlus_GraphicsFillEllipse($hLegBuffer, $x[1]-($m[1]/2), $y[1]-($m[1]/2), $m[1], $m[1])
   _GDIPlus_GraphicsDrawLine($hLegBuffer, $x[1], $y[1], $x[2], $y[2], $hPen)
   _GDIPlus_GraphicsFillEllipse($hLegBuffer, $x[2]-($m[2]/2), $y[2]-($m[2]/2), $m[2], $m[2])

;~    History
   _GDIPlus_GraphicsFillEllipse($hHistoryBuffer, $x[2], $y[2], 2, 2)

;~    Draw finally
   _GDIPlus_GraphicsDrawImageRect($hBuffer, $hHistoryBitmap,0, 0, $wWidth, $wHeight)
   _GDIPlus_GraphicsDrawImageRect($hBuffer, $hLegBitmap,0, 0, $wWidth, $wHeight)
   _GDIPlus_GraphicsDrawImageRect($hGraphic, $hGraphicBitmap, 0, 0, $wWidth, $wHeight)
EndFunc


Func _Exit()
   _GDIPlus_GraphicsDispose($hGraphic)
   _GDIPlus_PenDispose($hPen)
   _GDIPlus_Shutdown()
   Exit
EndFunc
#EndRegion


#Region Event Functions
Func SpecialEvents()
   Select
      Case @GUI_CtrlId = $GUI_EVENT_CLOSE
         GUIDelete()
         _Exit()
   EndSelect
EndFunc
#EndRegion

Alles anzeigen

Mars · 13. März 2019

Die Zahlen darin sind eigentlich vollkommen wurscht

Das Verfahren funktioniert so:

- "Habe" eine Wahrscheinlichkeitstabelle für jedes Zeichen (wenn man nichts weiß ist das eine Gleichverteilung, oder in diesem Fall das Default Histogramm)

- Baue einen Baum aus der Tabelle, Kodiere/Dekodiere ein Zeichen und erstelle damit die Tabelle neu. -> solange bis keine Zeichen übrig sind.

Was du da reinschreibst ist also egal, alles was sich dadurch ändert ist die Kompressionsrate zu Beginn. Allerdings kann man keinen Text dekodieren, wenn eine andere Tabelle benutzt wurde als im Encoder, also könnte man dieses 256 float Gebilde als eine Art "viel zu langes Passwort" missbrauchen

Max Mustermann, Musterbergheimer Landstraße 1 99, 12345 Musterbergheim am Musterberg.

Edit: Falls jemand das Teil nochmal angesehen hat, ich habe den Min-Heap ergänzt, somit ist es jetzt ca. 30% schneller als vorher. Da es immernoch inplace in einem Array funktioniert kann man das 1:1 in jede beliebige Sprache genauso übernehmen und es müsste immer ziemlich effizient arbeiten. Außerdem habe ich TreeToLookup optimiert, sodass sie statt 3ms nur noch 2ms benötigt, leider immernoch rekursiv...

lg

M

Mars · 13. März 2019

Ich bin ein wenig verwirrt, die BitShift Funktion in AutoIt tut genau das was man vermuten würde oder?

Poste doch bitte ein Skriptbeispiel das dein Problem reproduzieren kann (z.B. BitShift(abc, x) = 123, sollte aber eigentlich 234 sein). Dann kann man auch was damit anfangen und eine Lösung finden

M

Mars · 9. März 2019

Hehehe,

ich wollte die Sache erst "ADH = ADaptive Huffman" nennen, dann ist es aber "AHE = Adaptive Huffman Encoder" geworden. Wahrscheinlich wäre "AHC = Adaptive Huffman Code" noch besser. Namensfindung ist so kompliziert

Den Baum aufspannen dauert (mit der jetzigen Methode) in AutoIt ca. 50ms. Schätze man kommt noch auf ca. 20-30ms wenn man ein wenig optimiert. Da ich alles so umgebaut habe, dass es inplace in einem Array stattfindet könnte man es 1 zu 1 in ASM übersetzen. Dann werden aus 20ms -> 20µs.

//OT:

Mit dem Internet stimmt wirklich etwas nicht. Ich wollte mir letztens einen Stream auf YT ansehen, der hat furchtbar gehackt ist andauernd stehengeblieben und konnte nur via F5 wieder für ein paar Sekunden am laufen gehalten werden. Dieses Totalversagen schiebe ich aber auf die Software. Meine Leitung hat einen Ping von ca. 25ms und kann ca. 5MB/s (wenn sie gute Laune hat), ich erwarte dass ein Stream damit flüssig läuft

Mars · 9. März 2019

Moin,

(Gleich zu Beginn mal ein Wiki-Link, jeder der nicht weiß worum es geht sollte den ggf. erst durchgehen )

Einen Huffman Encoder kann vermutlich jeder basteln (ist ja nicht so schwer) wo ich aber häufig Probleme beobachtet habe ist der Part mit dem Abspeichern der Wahrscheinlichkeitstabelle. Es ist nämlich so, dass der Decoder im Regelfall den Huffman-Baum zum dekodieren benötigt.

Beispiel:

Wenn ich jetzt aber meinen Text: "Hallo Test 123" verwende gibt es ein großes Problem: Der Text besteht aus vielen verschiedenen Zeichen (es ist ja nicht "aaaaaaabbabaaaa" oder soetwas) die jeweils auch nicht allzuoft vorkommen (Leerzeichen x2 und "l" x2), egal in welcher optimierten Darstellung ich den Huffman-Baum abspeichere, er wird in jedem Fall mehr Speicher verbrauchen als mein eigentlicher Text. Wenn ich jetzt den kodierten Text + Baum benötige um wieder meinen ursprünglichen Text zu erhalten ist nichts gewonnen. Hier kommt der adaptive Teil zum tragen.

Ein adaptiver Kodierer beginnt mit irgendeiner vorgegebenen Wahrscheinlichkeitsverteilung (z.B. eine Gleichverteilung, dann hat jedes Zeichen beim erstmaligen auftreten 8 Bit, da es 256 theoretisch mögliche Asc Zeichen gibt), generiert daraus den Huffman-Baum und kodiert damit nur das allererste Zeichen des Textes. Dann wird dieses Zeichen mit einem gewissen Faktor zur Wahrscheinlichkeitstabelle hinzugefügt, ein neuer Baum generiert und damit das 2te Zeichen kodiert. usw usw. Das bedeutet, dass der Decoder KEINEN Baum benötigt, da dieser implizit durch die kodierte Nachricht selbst mitgeliefert wird. Das hat eine ganze Reihe Vor- und Nachteile.

Vorteile:

- Funktioniert auch für kurze Texte deren Huffman-Baum alleine schon größer wäre als der Text selbst

- Falls man eine Dämpfung festlegt (in meinem Skript nicht enthalten) ist es möglich dass der Kodierer lokal besser arbeitet als wenn für den vollen Text die gleiche Verteilung angenommen werden würde.

- Da die Wahrscheinlichkeitsverteilung laufend angepasst wird kann man von einem beliebigen Startpunkt aus loslaufen. Eine Gleichverteilung, oder ein Histogramm aller Zeichen in meinem UDF-Ordner, oder der Buchstabenverteilung in irgendeiner Sprache. In diesem Fall müsste man dem kodierten Text z.B. 2 bit voranstellen damit der Decoder weiß welche Verteilung er als Startwert nehmen soll. Man könnte auch die nicht adaptive Version so verwenden und statt einem Baum nur eine Baumnummer in den kodierten Text schreiben. Das wäre aber bei weitem suboptimaler, da dieser Baum dann nicht angepasst werden würde und man nicht für jeden beliebigen Text einen gut passenden Baum im Decoder hinterlegen kann. Eine Hand voll Verteilungen reichen bei der adaptiven Version aber vollkommen aus um immer ein gutes Ergebnis zu erzielen.

Nachteile:

- Da nach JEDEM ZEICHEN alles neu aufgebaut werden muss ist diese Methode unglaublich langsam (eine Version mit Min-Heap bastele ich gerade bin aber noch nicht zufrieden).

- Da die Wahrscheinlichkeitstabelle laufend angepasst wird ist sie zu keinem Zeitpunkt "wirklich" optimal. Verglichen mit einem "normalen" Huffman-Code ist die adaptive Version je nach situation unterlegen und erzeugt längeren Output als notwendig.

- Der Textanfang wird zwangsweise suboptimal kodiert, da die Startverteilung (z.B. die Gleichverteilung) nicht immer gut auf die vorliegende Zeichenfolge passt.

- Habe ich langsam schon erwähnt? (auf meinem PC aktuell ca. 20-25 Zeichen/Sekunde)

Villeicht kann ja jemand das Skript gebrauchen, daher landet es hier

Edit: 12.03.19:

Jetzt funktioniert das ganze mit Min-Heap und ist ca. 30% schneller als vorher. Es hat viel Spaß gemacht das Teil im Rahmen der Geschwindigkeit von AutoIt zu optimieren. Wenn man die Methode aber tatsächlich auch benutzen will sollte man es in einer anderen Sprache tun... 30 Zeichen/Sek ist unzureichend, alleine diesen Post hier zu kodieren würde ne Stunde dauern

Code

; ### Adaptive Huffman Kodierung

; ### Start mit der Zeichenverteilung einiger Posts aus dem AutoIt.de Forum
Global $__AHE_aHistDefault = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 100, 0, 0, 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1360, 15, 85, 0, 0, 1, 0, 0, 17, 20, 3, 1, 73, 29, 74, 23, 11, 4, 12, 1, 0, 4, 1, 0, 8, 3, 17, 0, 0, 0, 0, 16, 0, 15, 44, 5, 52, 36, 12, 11, 25, 25, 3, 9, 15, 31, 24, 9, 17, 0, 9, 33, 36, 9, 27, 17, 0, 1, 21, 0, 0, 0, 3, 0, 0, 465, 145, 234, 365, 1279, 89, 202, 298, 635, 24, 110, 335, 271, 741, 225, 78, 3, 484, 426, 486, 276, 64, 97, 21, 3, 77, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 5, 0, 0, 0, 0, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 0, 0, 0, 0, 0, 33, 0, 0, 0]
For $i = 0 To UBound($__AHE_aHistDefault) - 1 Step 1
    $__AHE_aHistDefault[$i] /= 100
Next

; ### Start mit einer Gleichverteilung
;~ Global $__AHE_aHistDefault[256]

Global $__AHET[512][3]
Global $__AHEE

;~ Local $sString = 'Ich bin ein etwas längeres Beispiel. Wenn man mit der Gleichverteilung gestartet ist sollte man hier den adaptiven Effekt gut beobachten können.'
Local $sString = 'Ich bin ein Beispiel.'

ConsoleWrite(@CRLF & '!----- Adaptive Huffman Entropiekodierung -----!' & @CRLF)

ConsoleWrite('Input:  ' & $sString & @CRLF & 'Encode: ')
Local $t = TimerInit()
Local $sEnc = Huff_Encode($sString)
$t = TimerDiff($t)
ConsoleWrite(@CRLF & 'Output: ' & $sEnc & @CRLF & 'Bits:   ' & StringFormat('%.2f', StringLen($sEnc)/StringLen($sString)) & ' per Char' & @CRLF & @CRLF)

ConsoleWrite('Input:  ' & $sEnc & @CRLF & 'Decode: ')
Local $t = TimerInit()
Local $sDec = Huff_Decode($sEnc)
$t = TimerDiff($t)
ConsoleWrite(@CRLF & 'Output: ' & $sDec & @CRLF & @CRLF)

Func Huff_Encode(ByRef $sString)
    Local $aLookup[256], $aSymHist[256], $sRet = ''
    For $i = 0 To 255 Step 1
        $aSymHist[$i] += $__AHE_aHistDefault[$i] + 0.1 ; hier könnte man eine vorgegebene Wahrscheinlichkeit/Zeichen angeben
    Next
    Local $aTimers[2][2], $t
    For $i = 0 To StringLen($sString) - 1 Step 1
        $t = TimerInit()
        __AHE_BuildTreeFromSymbolHistogram($aSymHist)
        $aTimers[0][0] += TimerDiff($t)
        $aTimers[0][1] += 1
        $t = TimerInit()
        __AHE_TreeToLookupRec($aLookup)
        $aTimers[1][0] += TimerDiff($t)
        $aTimers[1][1] += 1
        ConsoleWrite($aLookup[Asc(StringMid($sString, $i + 1, 1))] & '(' & StringMid($sString, $i + 1, 1) & ') ')
        $sRet &= $aLookup[Asc(StringMid($sString, $i + 1, 1))]
        $aSymHist[Asc(StringMid($sString, $i + 1, 1))] += 8
    Next
    ConsoleWrite(@CRLF)
    ConsoleWrite('BuildTree: ' & StringFormat('%.1f', $aTimers[0][0] / $aTimers[0][1]) & ' ms' & @CRLF)
    ConsoleWrite('BuildLook: ' & StringFormat('%.1f', $aTimers[1][0] / $aTimers[1][1]) & ' ms' & @CRLF)
    Return $sRet
EndFunc

Func Huff_Decode($sString)
    Local $aLookup[256], $aSymHist[256], $sRet = ''
    For $i = 0 To 255 Step 1
        $aSymHist[$i] += $__AHE_aHistDefault[$i] + 0.1 ; hier könnte man eine vorgegebene Wahrscheinlichkeit/Zeichen angeben
    Next
    While $sString
        __AHE_BuildTreeFromSymbolHistogram($aSymHist)
        __AHE_TreeToLookupRec($aLookup)
        For $i = 0 To 255 Step 1 ; das ist dermaßen ineffizient, dass es fast wehtut. Das langsame Bottleneck ist aber __AHE_BuildTreeFromSymbolHistogram, weshalb
            If $aLookup[$i] = StringLeft($sString, StringLen($aLookup[$i])) Then ExitLoop ; ich diesen Teil hier nicht optimiert habe da er vernachlässigbar ist.
        Next
        $aSymHist[$i] += 8 ; habe einige Werte ausprobiert. Die 8 hat ganz gut performed
        ConsoleWrite($aLookup[$i] & '(' & Chr($i) & ') ')
        $sString = StringTrimLeft($sString, StringLen($aLookup[$i]))
        $sRet &= Chr($i)
    WEnd
    Return $sRet
EndFunc

Func __AHE_TreeToLookupRec(ByRef $aLookup, $i = 0, $sPath = '')
    If $__AHET[$i][2] = '' Then
        $aLookup[$__AHET[$i][0]] = $sPath
    Else
        __AHE_TreeToLookupRec($aLookup, $__AHET[$i][0], $sPath & '0')
        __AHE_TreeToLookupRec($aLookup, $__AHET[$i][2], $sPath & '1')
    EndIf
EndFunc

Func __AHE_BuildTreeFromSymbolHistogram(ByRef $aSymHist)
    Local $iRi = UBound($__AHET) - 1, $t, $n, $n2
    For $i = 0 To UBound($aSymHist) - 1 Step 1 ; Beginn von 0 bis 255 mit Leafs füllen
        $__AHET[$i][0] = $i             ; If Leaf: Char, Else LeftIndex
        $__AHET[$i][1] = $aSymHist[$i]  ; Propability
        $__AHET[$i][2] = ''             ; If Leaf: '', Else RightIndex
    Next

    $__AHEE = 256  ; Jemand rief "AHEEEEEE"  | Func BuildMinHeap()
    For $i = Int($__AHEE / 2) To 0 Step -1 ; | (wendet eigentlich nur Heapify auf das halbe Array an)
        $n = $i                            ; | Func Heapify()
        While 1                            ; |
            $t = 2 * $n                    ; |
            $n2 = ($t < $__AHEE And $__AHET[$t][1] < $__AHET[$n][1]) ? $t : $n
            $t += 1                        ; |
            If $t < $__AHEE And $__AHET[$t][1] < $__AHET[$n2][1] Then $n2 = $t
            If $n2 = $n Then ExitLoop      ; |
            $t = $__AHET[$n][0]            ; | [0] = wichtig, den kopieren wir :D
            $__AHET[$n][0] = $__AHET[$n2][0];| [1] = wichtig, kann man auch kopieren
            $__AHET[$n2][0] = $t           ; | [2] = '' für alle Elemente, brauchen wir also hier nicht.
            $t = $__AHET[$n][1]            ; | Der Vorherige Arrayinhalt von [2] ist auch egal und muss nicht
            $__AHET[$n][1] = $__AHET[$n2][1];| überschrieben werden, da kann also sonstiger Unfug drinstehen.
            $__AHET[$n2][1] = $t           ; |
            $n = $n2                       ; |
        WEnd                               ; | EndFunc Heapify
    Next                                   ; | EndFunc BuildMinHeap

    For $i = 0 To 254 Step 1
        $__AHET[$iRi][0] = $__AHET[0][0]   ; | Func HeapRemoveMin()
        $__AHET[$iRi][1] = $__AHET[0][1]   ; |
        $__AHET[$iRi][2] = $__AHET[0][2]   ; | kombiniert mit Min ans Ende schieben
        $__AHEE -= 1                       ; | und Heapbedingungerneuern.
        $__AHET[0][0] = $__AHET[$__AHEE][0]; |
        $__AHET[0][1] = $__AHET[$__AHEE][1]; |
        $__AHET[0][2] = $__AHET[$__AHEE][2]; |
        $n = 0                             ; | Func Heapify()
        While 1
            $t = 2 * $n
            $n2 = ($t < $__AHEE And $__AHET[$t][1] < $__AHET[$n][1]) ? $t : $n
            $t += 1
            If $t < $__AHEE And $__AHET[$t][1] < $__AHET[$n2][1] Then $n2 = $t
            If $n2 = $n Then ExitLoop
            $t = $__AHET[$n][0]
            $__AHET[$n][0] = $__AHET[$n2][0]
            $__AHET[$n2][0] = $t
            $t = $__AHET[$n][1]
            $__AHET[$n][1] = $__AHET[$n2][1]
            $__AHET[$n2][1] = $t
            $t = $__AHET[$n][2]
            $__AHET[$n][2] = $__AHET[$n2][2]
            $__AHET[$n2][2] = $t
            $n = $n2                       ; | EndFunc Heapify
        WEnd ; ----------------------------- | EndFunc HeapRemoveMin

        $__AHET[$iRi-1][0] = $__AHET[0][0] ; | Func HeapRemoveMin()
        $__AHET[$iRi-1][1] = $__AHET[0][1] ; | Nochmal. wir wollen ja die 2 kleinsten Elemente.
        $__AHET[$iRi-1][2] = $__AHET[0][2]
        $__AHEE -= 1
        $__AHET[0][0] = $__AHET[$__AHEE][0]
        $__AHET[0][1] = $__AHET[$__AHEE][1]
        $__AHET[0][2] = $__AHET[$__AHEE][2]
        $n = 0                             ; | Func Heapify()
        While 1
            $t = 2 * $n
            $n2 = ($t < $__AHEE And $__AHET[$t][1] < $__AHET[$n][1]) ? $t : $n
            $t += 1
            If $t < $__AHEE And $__AHET[$t][1] < $__AHET[$n2][1] Then $n2 = $t
            If $n2 = $n Then ExitLoop
            $t = $__AHET[$n][0]
            $__AHET[$n][0] = $__AHET[$n2][0]
            $__AHET[$n2][0] = $t
            $t = $__AHET[$n][1]
            $__AHET[$n][1] = $__AHET[$n2][1]
            $__AHET[$n2][1] = $t
            $t = $__AHET[$n][2]
            $__AHET[$n][2] = $__AHET[$n2][2]
            $__AHET[$n2][2] = $t
            $n = $n2                       ; | EndFunc Heapify
        WEnd ; ----------------------------- | EndFunc HeapRemoveMin

        $__AHET[$__AHEE][0] = $iRi         ; | Func HeapInsert(NewNode)
        $__AHET[$__AHEE][1] = 1 / 0        ; | Aus den vorher gefundenen 2 kleinsten Elementen entsteht
        $__AHET[$__AHEE][2] = $iRi - 1     ; | eine neue Node die man per Insert in den Heap stopft.
        $n = $__AHEE                       ; | Func HeapDecrease()
        If $__AHET[$n][1] >= $__AHET[$iRi][1] + $__AHET[$iRi - 1][1] Then
            $__AHET[$n][1] = $__AHET[$iRi][1] + $__AHET[$iRi - 1][1]
            While $n > 0 And $__AHET[$n][1] < $__AHET[Int($n / 2)][1]
                $n2 = Int($n/2)
                $t = $__AHET[$n][0]
                $__AHET[$n][0] = $__AHET[$n2][0]
                $__AHET[$n2][0] = $t
                $t = $__AHET[$n][1]
                $__AHET[$n][1] = $__AHET[$n2][1]
                $__AHET[$n2][1] = $t
                $t = $__AHET[$n][2]
                $__AHET[$n][2] = $__AHET[$n2][2]
                $__AHET[$n2][2] = $t
                $n = $n2
            WEnd
        EndIf                              ; | EndFunc HeapDecrease
        $__AHEE += 1                       ; | EndFunc HeapInsert
        $iRi -= 2 ; Reverse Index - 2
    Next
EndFunc

Alles anzeigen

lg

M

Beiträge von Mars

Frame aus Video extrahieren

Visual Studio Code & AutoIt

AutoIt-Skript funktioniert nicht mehr nach Win 10 Update

_GDIPlus_GraphicsDrawCurve ohne 'Abrundungen'

_GDIPlus_GraphicsDrawCurve ohne 'Abrundungen'

_GDIPlus_GraphicsDrawCurve ohne 'Abrundungen'

Hab ich was verpasst? also bitte....

_WinAPI_GetWindowDC - Unklare Bescheibung

_WinAPI_GetWindowDC - Unklare Bescheibung

_WinAPI_GetWindowDC - Unklare Bescheibung

Grafikspezialisten - GDIplus - kreisrundes Menü

Farbe folgt farbe

Unbegrenzte Nachkommastellen für Funktionen ausrechnen?

Diskussion zum Thema : "AutoIt Interne Funktionen : Erwartetes Ergebnis -> Tatsächliches Ergebnis"

_ArrayDelete in For to Ubound

GDI+ DoppelPendel

Adaptiver Huffman Encoder

BitShift (unsigned INT)

Adaptiver Huffman Encoder

Adaptiver Huffman Encoder