Beiträge von Mars

**Mars** · 13. Juni 2022

Ich kann hier nur über meine persönliche Meinung dazu sprechen (mögen andere mich korrigieren).

Ich halte AdlibRegister für weitestgehend nutzlos. Eine (meiner Meinung nach) bessere Methode sind Funktionen mit Static Timer, da diese an einem Ort ausgeführt werden den "ich" festlege, während AdlibRegister Funktionen "überall" aufgerufen werden können und den Programmablauf damit durcheinanderbringen (außer man hat seine Programmstruktur extra darauf ausgelegt).

Beispiel:

AutoIt

#include <Misc.au3>

FunktionNummerEins(Null, 1000)
FunktionNummerZwei(Null, 2345)

While Sleep(10) And Not _IsPressed('1B') ; ESC = exit
    FunktionNummerEins(1, 2, 3)
    FunktionNummerZwei(1, 2, 3)
WEnd

Func FunktionNummerEins($x = 0, $y = 0, $z = 0)
    Local Static $_t = TimerInit(), $_i = 100 ; $_t ist der static timer, $_i ist das Zeitintervall in Millisekunden
    If $x = Null Then $_i = $y ; Hier muss man sich irgendeine Konvention ausdenken um das Intervall einstellen zu können, z.B, wenn Param1 = Null
    If TimerDiff($_t) < $_i Then Return
    $_t = TimerInit()
    ; Hier beginnt die "eigentliche" Funktion

    ConsoleWrite('FunktionNummerEins: ['& $_i &'ms] Len(x,y,z) = ' & StringFormat('%.2f', Sqrt($x^2 + $y^2 + $z^2)) & @CRLF)

EndFunc

Func FunktionNummerZwei($x = 0, $y = 0, $z = 0)
    Local Static $_t = TimerInit(), $_i = 100 ; $_t ist der static timer, $_i ist das Zeitintervall in Millisekunden
    If $x = Null Then $_i = $y ; Hier muss man sich irgendeine Konvention ausdenken um das Intervall einstellen zu können
    If TimerDiff($_t) < $_i Then Return
    $_t = TimerInit()
    ; Hier beginnt die "eigentliche" Funktion

    ConsoleWrite('FunktionNummerZwei: ['& $_i &'ms] x + y + z = ' & ($x + $y + $z) & @CRLF)

EndFunc

Alles anzeigen

Man kann diese Funktionalität auch Wrappen, sodass man z.B. eine Funktion hat die "SetTimer($xFunc, $ms)" hat, usw.

Wenn du nicht willst, dass der Nutzer davon etwas mitbekommt musst du dafür sorgen, dass die Abfragen einzeln relativ schnell durchlaufen, dann kannst du im Mainloop z.B. immer ein paar Millisekunden zur Verfügung stellen um Abfragen abzuarbeiten. Sind diese Millisekunden aufgebraucht werden die restlichen Abfragen erst im nächsten Schleifendurchlauf angegangen. Sowas lässt sich mittels Queue + Timer regeln (z.B. Alle 5 Sekunden sollen 100 Abfragen gemacht werden, dann werden alle 5 Sekunden die 100 Abfragen in den Queue gesteckt (das geht sehr schnell), und in jedem Schleifendurchlauf werden ?? Millisekunden lang Abfragen bearbeitet bis der Queue leer ist. Da muss man aber aufpassen wenn Abfragen aus welchem Grund auch immer nicht abgearbeitet werden können, dann wird der Queue immer länger und das wollen wir ja nicht).

lg

M

**Mars** · 10. Juni 2022

Zitat von AspirinJunkie

Plottest du das direkt aus AutoIt heraus? Falls ja - wie?

Da muss ich dich direkt vorwarnen, das folgende ist keine UDF die es in die Öffentlichkeit geschafft hat. Sie ist in keinem guten Zustand und jedes Mal, wenn ich etwas plotten will baue ich genau die funktion die ich gerade brauche ein^^

AutoIt

#include-once
#include <GDIPlus.au3>
#include <Array.au3>

Global $__AG_OPT_WITH_LINES = True
Global $__AG_OPT_WITH_POINTS = True
Global $__AG_OPT_LOGSCALE_Y = False

Global $__AG_XMIN = 0
Global $__AG_XMAX = 1

Func _ArrayGraph_SetXRange($fMin, $fMax)
    $__AG_XMIN = $fMin
    $__AG_XMAX = $fMax
EndFunc

;~ Local $a = [1, 2, 3, 2, 1.5, 6.3, 1, 0, 0, -2, 1.123, 2.345, 3, 2, 1, 2, 3, 5, 4, 3, 2, 1, 0, -1, -2, 5, 4, 3, 2, 1, 9, -2.22, -1, 3, 2.1, 4]
;~ ArrayGraph1D($a)

;~ Local $b = [1000, 1001, 998, 995, 1013.2, 995.5]
;~ ArrayGraph1D($b)
If @ScriptName = 'ArrayGraph1D.au3' Then
    Local $c = CreateCosArray(4 * 8)
    _ArrayGraph($c, '', 0, 0, lin)
EndIf


Func lin($x)
    Return 2 + $x / 3
EndFunc   ;==>lin

Func CreateCosArray($iSize = 8, $xFunc = _Cos)
    Local $a[$iSize]
    For $i = 0 To $iSize - 1 Step 1
        $a[$i] = $xFunc($i / ($iSize - 1) * 6.28318530717959)
    Next
    Return $a
EndFunc   ;==>CreateCosArray

Func __Cos($x)
    Return _Cos($x / (4 * 8 - 1) * 6.28318530717959)
EndFunc   ;==>__Cos

Func _Cos($x)
    Local $a = 1
    Local $b = 2
    Local $c = 3
    Local $d = 1
    Return $a * (Cos($x) + 1) + $b * (Cos(2 * $x) + 1) + $c * (Cos(4 * $x) + 1) + $d * (Cos(8 * $x) + 1)
EndFunc   ;==>_Cos

Func __AG_ArrayMinMax(ByRef $aArray, $iFrom = 0, $iTo = 0)
    Local $iMax = Null, $iMin = Null
    If $iTo = 0 Then $iTo = UBound($aArray) - 1
    For $i = $iFrom To $iTo Step 1
        If __AG_IsInf($aArray[$i]) Then ContinueLoop
        If $iMin = Null Then $iMin = $aArray[$i]
        If $iMax = Null Then $iMax = $aArray[$i]
        If $aArray[$i] < $iMin Then $iMin = $aArray[$i]
        If $aArray[$i] > $iMax Then $iMax = $aArray[$i]
    Next
    Local $aRet = [$iMin, $iMax]
    Return $aRet
EndFunc   ;==>__AG_ArrayMinMax


Func __AG_FuncMinMax(ByRef $xFunc, $iFrom, $iTo)
    If Not IsFunc($xFunc) Then Return SetError(1, 0, '__Ag_FuncMinMax called, but $xFunc is no function.')
    Local $iMax = Null, $iMin = Null, $x
    For $i = $iFrom To $iTo Step 1
        $x = $__AG_OPT_LOGSCALE_Y ? Log($xFunc($i)) : $xFunc($i)
        If __AG_IsInf($xFunc($i)) Then ContinueLoop
        If $iMin = Null Then $iMin = $x
        If $iMax = Null Then $iMax = $x
        If $x < $iMin Then $iMin = $x
        If $x > $iMax Then $iMax = $x
    Next
    Local $aRet = [$iMin, $iMax]
    Return $aRet
EndFunc   ;==>__AG_FuncMinMax

Func __AG_IsInf($x)
    Return $x = -1 / 0 Or $x = 1 / 0
EndFunc   ;==>__AG_IsInf

Func __AG_BeautifyNumber($x)
    If $x > 999.9 Then Return StringTrimRight(StringFormat('%.2e', $x), 4) & StringTrimLeft(StringSplit(StringFormat('%.2e', $x), 'e', 2)[1], 2)
    If $x > 99.99 Then Return StringFormat('%.1f', $x)
    If $x > 9.999 Then Return StringFormat('%.2f', $x)
    If $x > 0.999 Then Return StringFormat('%.3f', $x)
;~     ConsoleWrite($x & ' ' & StringFormat('%.2e', $x) & @CRLF)
    Return StringTrimRight(StringFormat('%.2e', $x), 4) & '-' & StringTrimLeft(StringSplit(StringFormat('%.2e', $x), 'e', 2)[1], 2)
EndFunc   ;==>__AG_BeautifyNumber

Func __AG_PointDistance($x1, $y1, $x2, $y2)
    Return Sqrt(($x1 - $x2) ^ 2 + ($y1 - $y2) ^ 2)
EndFunc   ;==>__AG_PointDistance

Func Swap(ByRef $x, ByRef $y)
    Local $t = $x
    $x = $y
    $y = $t
EndFunc   ;==>Swap

Func _ArrayGraph($aArray, $sTitle = Default, $iFrom = 0, $iTo = 0, $xFunc = 0)

    If UBound($aArray) = 1 Then Return SetError(1, 0, 'Array contains only 1 element') ; TODO
    If UBound($aArray, 0) <> 1 Then Return SetError(2, 0, 'Array must be 1D')

    Local $bFunc = IsFunc($xFunc)
    Local $iUBound = UBound($aArray)
    If $iTo = 0 Then $iTo = $iUBound - 1
    If $iFrom < 0 Then $iFrom = 0
    If $iFrom > $iTo Then Swap($iFrom, $iTo)


    Local $sOldOpt = __AG_SetMultiOpt('GUIOnEventMode = 0; MouseCoordMode = 2')

    Local $iW = 800, $iH = 400
    Local $hGUI = GUICreate((($sTitle = Default) Or (Not $sTitle)) ? ('Array[' & $iUBound & '] Range: [' & $iFrom & ']-[' & $iTo & ']') : $sTitle, $iW, $iH)
    Local $hOldGUI = GUISwitch($hGUI)


    If $__AG_OPT_LOGSCALE_Y Then
        For $i = $iFrom To $iTo Step 1
            $aArray[$i] = Log($aArray[$i])
        Next
    EndIf

    Local $aPositions[$iUBound][2]

    _GDIPlus_Startup()

    Local $hGFX = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    Local $hBMP = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGFX)
    Local $hBUF = _GDIPlus_ImageGetGraphicsContext($hBMP)
    Local $hBMP_BG = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGFX)
    Local $hBUF_BG = _GDIPlus_ImageGetGraphicsContext($hBMP_BG)
    _GDIPlus_GraphicsSetSmoothingMode($hBUF_BG, 2)
    _GDIPlus_GraphicsSetSmoothingMode($hBUF, 2)

    _GDIPlus_GraphicsClear($hBUF_BG, 0xFF383838)

    Local $hBRU = _GDIPlus_BrushCreateSolid(0xFF444444)
    Local $hBRU2 = _GDIPlus_BrushCreateSolid(0xFFCC5555)
    Local $hPEN = _GDIPlus_PenCreate(0xFFDDDDDD)
    Local $hPEN2 = _GDIPlus_PenCreate(0xFFFF8888)

    Local $aBorder = [90, 35, 10, 40] ; Layout

    _GDIPlus_GraphicsDrawRect($hBUF_BG, $aBorder[0], $aBorder[1], $iW - ($aBorder[0] + $aBorder[2]), $iH - ($aBorder[1] + $aBorder[3]), $hPEN)
    _GDIPlus_GraphicsFillRect($hBUF_BG, $aBorder[0], $aBorder[1], $iW - ($aBorder[0] + $aBorder[2]), $iH - ($aBorder[1] + $aBorder[3]), $hBRU)

    Local $aRange = __AG_ArrayMinMax($aArray, $iFrom, $iTo)
    Local $aRangeFunc = __AG_FuncMinMax($xFunc, $iFrom, $iTo)
    If $aRange[0] = $aRange[1] Then
        $aRange[0] -= 0.5
        $aRange[1] += 0.5
    EndIf
    If IsArray($aRangeFunc) Then
        If $aRangeFunc[0] = $aRangeFunc[1] Then
            $aRangeFunc[0] -= 0.5
            $aRangeFunc[1] += 0.5
        EndIf
        If $aRange[0] > $aRangeFunc[0] Then $aRange[0] = $aRangeFunc[0]
        If $aRange[1] < $aRangeFunc[1] Then $aRange[1] = $aRangeFunc[1]
    EndIf

    ;For $i = $iFrom To $iTo Step 1
    ;    If __AG_IsInf($aArray[$i]) Then $aArray[$i] = $aArray[$i] > 0 ? $aRange[1] : $aRange[0]
    ;Next

    Local $iRangeY = $aRange[1] - $aRange[0]
    Local $iDotDiameter = 3.12 ^ (-0.015 * (($iTo - $iFrom) - 136)) + 1.77 ; Wenige Punkte -> Große Punkte, Viele Punkte -> Kleine Punkte
    Local $tmpX, $tmpY, $tmpYFunc
    Local $tRect

    Local $hFAM = _GDIPlus_FontFamilyCreate('Arial')
    Local $hFON = _GDIPlus_FontCreate($hFAM, 16, 0, 2)
    Local $hFOR = _GDIPlus_StringFormatCreate()
    _GDIPlus_StringFormatSetLineAlign($hFOR, 1)
    _GDIPlus_StringFormatSetAlign($hFOR, 2)

    _GDIPlus_BrushSetSolidColor($hBRU, 0xFFAAAAAA)
    For $y = $aRange[0] To $aRange[1] + 0.0001 Step $iRangeY / 10
        $tmpX = $aBorder[0]
        $tmpY = (1 - ($y - $aRange[0]) / $iRangeY) * ($iH - ($aBorder[1] + $aBorder[3])) + $aBorder[1]
        _GDIPlus_GraphicsDrawLine($hBUF_BG, $tmpX - 5, $tmpY, $tmpX + 5, $tmpY, $hPEN)
        $tRect = _GDIPlus_RectFCreate($tmpX - 5, $tmpY + 1)
        _GDIPlus_GraphicsDrawStringEx($hBUF_BG, __AG_BeautifyNumber($__AG_OPT_LOGSCALE_Y ? Exp($y) : $y), $hFON, $tRect, $hFOR, $hBRU)
    Next

    _GDIPlus_StringFormatSetLineAlign($hFOR, 0)
    _GDIPlus_StringFormatSetAlign($hFOR, 1)
    Local $iCountXAxisNumbers = Int(5.85 ^ (-0.0065 * (($iTo - $iFrom) - 280)) + 12.4)
    Local $tmpXOld = -1, $tmpYOld = -1, $iCountPoints = 0, $tmpYOldFunc = -1
    For $x = $iFrom To $iTo Step 1
        $tmpX = ($x - $iFrom) / ($iTo - $iFrom) * ($iW - ($aBorder[0] + $aBorder[2])) + $aBorder[0]
        $tmpY = (1 - ($aArray[$x] - $aRange[0]) / $iRangeY) * ($iH - ($aBorder[1] + $aBorder[3])) + $aBorder[1]
        If $bFunc Then $tmpYFunc = (1 - (($__AG_OPT_LOGSCALE_Y ? Log($xFunc($x)) : $xFunc($x)) - $aRange[0]) / $iRangeY) * ($iH - ($aBorder[1] + $aBorder[3])) + $aBorder[1]
        $aPositions[$x][0] = $tmpX
        $aPositions[$x][1] = $tmpY
        If Not __AG_IsInf($aArray[$x]) Then
            $iCountPoints += 1
            If $__AG_OPT_WITH_LINES Then
                If $iCountPoints > 1 And $x < $iTo + 1 Then
                    _GDIPlus_GraphicsDrawLine($hBUF_BG, $tmpXOld, $tmpYOld, $tmpX, $tmpY, $hPEN)
                    If $bFunc Then _GDIPlus_GraphicsDrawLine($hBUF_BG, $tmpXOld, $tmpYOldFunc, $tmpX, $tmpYFunc, $hPEN2)
                EndIf
                $tmpXOld = $tmpX
                $tmpYOld = $tmpY
                If $bFunc Then $tmpYOldFunc = $tmpYFunc
            EndIf
            If $__AG_OPT_WITH_POINTS Then
                _GDIPlus_GraphicsDrawEllipse($hBUF_BG, $tmpX - $iDotDiameter / 2 - 2, $tmpY - $iDotDiameter / 2 - 2, $iDotDiameter + 4, $iDotDiameter + 4, $hPEN)
                If $iDotDiameter > 2 Then
                    _GDIPlus_GraphicsFillEllipse($hBUF_BG, $tmpX - $iDotDiameter / 2, $tmpY - $iDotDiameter / 2, $iDotDiameter, $iDotDiameter, $hBRU)
                    If $bFunc Then _GDIPlus_GraphicsFillEllipse($hBUF_BG, $tmpX - $iDotDiameter / 2, $tmpYFunc - $iDotDiameter / 2, $iDotDiameter, $iDotDiameter, $hBRU2)
                EndIf
            EndIf
        EndIf
        If IsInt($x / Ceiling(($iTo - $iFrom) / $iCountXAxisNumbers)) Then
            _GDIPlus_GraphicsDrawLine($hBUF_BG, $tmpX, $iH - $aBorder[3] + 5, $tmpX, $iH - $aBorder[3] - 5, $hPEN)
            $tRect = _GDIPlus_RectFCreate($tmpX, $iH - $aBorder[3] + 6)
            $tmpStr = Round($x / ($iTo - $iFrom) * ($__AG_XMAX - $__AG_XMIN) + $__AG_XMIN, 2)
            _GDIPlus_GraphicsDrawStringEx($hBUF_BG, $tmpStr, $hFON, $tRect, $hFOR, $hBRU)
        EndIf
    Next

    GUISetState(@SW_SHOW)

    Local $aPos = MouseGetPos()
    Local $div = ($iTo - $iFrom) / ($iW - ($aBorder[0] + $aBorder[2]))

    $tRect = _GDIPlus_RectFCreate(0, 0, $iW, $aBorder[1])
    _GDIPlus_FontDispose($hFON)
    _GDIPlus_FontFamilyDispose($hFAM)
    $hFAM = _GDIPlus_FontFamilyCreate('Consolas')
    $hFON = _GDIPlus_FontCreate($hFAM, Int($aBorder[1] * 0.7), 1, 2)
    _GDIPlus_StringFormatSetLineAlign($hFOR, 1)

    _GDIPlus_PenSetColor($hPEN, 0xDDFFFFFF)

    Local $rectX, $rectW

    While GUIGetMsg() <> -3
        Local $dist0 = 9999, $dist1 = 9999, $dist2 = 9999
        $aPos = MouseGetPos()
        _GDIPlus_GraphicsDrawImageRect($hBUF, $hBMP_BG, 0, 0, $iW, $iH)
        $tmpX = Round(($aPos[0] - $aBorder[0]) / ($iW - ($aBorder[0] + $aBorder[2])) * ($iTo - $iFrom), 0)
        If $tmpX >= 0 And $tmpX <= ($iTo - $iFrom) And $aPos[1] >= 0 And $aPos[1] <= $iH Then
            $tmpX = Abs($tmpX)
            $dist0 = __AG_PointDistance($aPos[0], $aPos[1], $aPositions[$tmpX + $iFrom][0], $aPositions[$tmpX + $iFrom][1])
            If $tmpX > $iFrom Then $dist1 = __AG_PointDistance($aPos[0], $aPos[1], $aPositions[$tmpX + $iFrom - 1][0], $aPositions[$tmpX + $iFrom - 1][1])
            If $tmpX < $iTo Then $dist2 = __AG_PointDistance($aPos[0], $aPos[1], $aPositions[$tmpX + $iFrom + 1][0], $aPositions[$tmpX + $iFrom + 1][1])
            If $dist1 < $dist0 / 3 And $dist1 < $dist2 Then $tmpX -= 1
            If $dist2 < $dist0 / 3 And $dist2 < $dist1 Then $tmpX += 1
            If $tmpX + $iFrom >= UBound($aPositions) Then ContinueLoop
            If $tmpX + $iFrom < 0 Then ContinueLoop

            _GDIPlus_BrushSetSolidColor($hBRU, 0x20000000)
            $rectX = ($tmpX - 0.5) / $div + $aBorder[0]
            $rectW = 1 / $div
            If $rectX < $aBorder[0] Then
                $rectX = $aBorder[0]
                $rectW /= 2
            EndIf
            If $rectX + $rectW > $iW - $aBorder[2] Then
                $rectW /= 2
                $rectX = $iW - $aBorder[2] - $rectW
            EndIf
            _GDIPlus_GraphicsFillRect($hBUF, $rectX, $aBorder[1], $rectW, $iH - ($aBorder[1] + $aBorder[3]), $hBRU)
            _GDIPlus_BrushSetSolidColor($hBRU, 0xDDFFFFFF)
;~             ConsoleWrite($tmpX + $iFrom & @CRLF)
            _GDIPlus_GraphicsDrawEllipse($hBUF, $aPositions[$tmpX + $iFrom][0] - $iDotDiameter / 2 - 4, $aPositions[$tmpX + $iFrom][1] - $iDotDiameter / 2 - 4, $iDotDiameter + 8, $iDotDiameter + 8, $hPEN)
            If $iDotDiameter > 2 Then _GDIPlus_GraphicsFillEllipse($hBUF, $aPositions[$tmpX + $iFrom][0] - $iDotDiameter / 2, $aPositions[$tmpX + $iFrom][1] - $iDotDiameter / 2, $iDotDiameter, $iDotDiameter, $hBRU)
            _GDIPlus_BrushSetSolidColor($hBRU, 0xFFDDDDDD)
            _GDIPlus_GraphicsDrawStringEx($hBUF, '[' & ($tmpX + $iFrom) & '] = ' & ($__AG_OPT_LOGSCALE_Y ? Exp($aArray[$tmpX + $iFrom]) : $aArray[$tmpX + $iFrom]), $hFON, $tRect, $hFOR, $hBRU)
        EndIf
        _GDIPlus_GraphicsDrawImageRect($hGFX, $hBMP, 0, 0, $iW, $iH)
    WEnd

    _GDIPlus_BrushDispose($hBRU)
    _GDIPlus_BrushDispose($hBRU2)
    _GDIPlus_StringFormatDispose($hFOR)
    _GDIPlus_FontDispose($hFON)
    _GDIPlus_FontFamilyDispose($hFAM)
    _GDIPlus_PenDispose($hPEN)
    _GDIPlus_PenDispose($hPEN2)
    _GDIPlus_GraphicsDispose($hBUF_BG)
    _GDIPlus_BitmapDispose($hBMP_BG)
    _GDIPlus_GraphicsDispose($hBUF)
    _GDIPlus_BitmapDispose($hBMP)
    _GDIPlus_GraphicsDispose($hGFX)
    _GDIPlus_Shutdown()

    __AG_SetMultiOpt($sOldOpt)
    GUISwitch($hOldGUI)
    GUIDelete($hGUI)

EndFunc   ;==>_ArrayGraph

Func __AG_SetMultiOpt($sParam)
    Local $aParam = StringSplit(StringStripWS($sParam, 8), ';', 2), $sRet, $aSplit
    For $i = 0 To UBound($aParam) - 1 Step 1
        $aSplit = StringSplit($aParam[$i], '=', 2)
        $sRet &= $aSplit[0] & '=' & Opt($aSplit[0], $aSplit[1]) & ';'
    Next
    Return StringTrimRight($sRet, 1)
EndFunc   ;==>__AG_SetMultiOpt

Alles anzeigen

Die Funktion gibt es eigentlich nur, weil ich im Stil von _ArrayDisplay "schnell und einfach" eine Funktion haben wollte um Arrays anzusehen. Es gibt (auch hier im Forum) UDFs die Daten plotten können, ich schätze, wenn man es ernsthaft angeht sollte man mit so einer UDF eine Anzeige basteln...

lg

M

**Mars** · 9. Juni 2022

Was ich in der SB gepostet hatte: https://imgur.com/a/wrzZjAa

Die Version hier (nach einigen kleinen Anpassungen) funktioniert schonmal deutlich besser. Peaks in den angeschauten Frequenzen sind sauber, deutlich und ohne übertriebenes Überschwingen.

Inputdaten (mit dem bloßen Auge erkennt man hier höchstens, dass da "irgendwas schnell schwingt", die 2te Schwingung sieht man selbst mit scharfem Blick nicht):

amplitude der DFT (angepasst, sodass man über Frequenzbereiche gezielt drüberlaufen kann, wobei "eine Arraylänge" immer 2PI entspricht)

(die X-Achse ist etwas doof beschriftet, der erste Peak ist NICHT bei 0.85, sondern tatsächlich etwa bei 1.0, also da wo er hingehört)

Danke nochmal für die Hilfe

lg

M

**Mars** · 9. Juni 2022

Achso, ich glaube ich habe den Unterschied zwischen FT und DFT immernoch nicht verstanden.

Was ich dachte ist folgendes: Die Abtastfrequenz gibt an welche Frequenzen im Array überprüft werden, also dass ich z.B. soetwas wie "alle Frequenzen von 0 bis 5 in 0.1er Schritten" ablaufen kann. Vermutlich ergibt das im Grenzwert wieder eine kontinuierliche FT. Das muss ich wohl nachlesen

Ein Glück, dass ich mit Signalverarbeitung nichts am Hut habe, sonst hätte man mich für so viel Blödheit bestimmt schon verprügelt

lg

M

**Mars** · 9. Juni 2022

Vielen Dank, jetzt wo ich die Lösung sehe, sehe ich auch meine Fehler

Mit der Abtastfrequenz kann aber etwas nicht stimmen (glaube ich). Die taucht im Code nur bei "$aRet[$k][$eFrequency] = $k * $nFs / $N" auf, hat aber keinen Einfluss auf die anderen Werte (oder ich habe da etwas missverstanden, was auch gut sein kann).

lg

M

**Mars** · 30. Mai 2022

Eine Idee:

Es gibt ja einige CSS/JS Tricks mit denen man das Erscheinungsbild nahezu jeder Webseite ändern kann (Stylish, Greasemonkey, CSS-Injector, etc. Es gibt hunderte Wege nach Rom). Damit habe ich ausprobiert die Cookiepopups einfach garnicht erst anzeigen zu lassen, das ging nicht so gut wie erwartet... Einige Webseiten führen nach Betätigung des Popups ein Skript aus um die Webseite freizuschalten, wenn man das Popup garnicht erst bekommt bleibt die Seite unbenutzbar.

Soweit ich weiß ist es laut Gesetz verpflichtend, dass der Nutzer zustimmt BEVOR die Cookies benutzt werden dürfen. Wenn man also eine Möglichkeit findet die Popups zu killen und gleichzeitig die Webseite zu aktivieren, hätte man es geschafft. Vermutlich ist das via CSS + JS (das Popup ist in der Lage die Webseite freizuschalten, mit JS muss das Clientseitig dementsprechend auch gehen) möglich. Vermutlich muss man für jeden Popuptyp/jede Webseite ein eigenes Skript und eigenes CSS basteln (und das auch häufig aktualisieren, die wollen ja deine Daten, also ändern die andauernd irgendwelche Kleinigkeiten).

Da mein Wissen im Bereich HTML und CSS aber nur ganz knapp über NULL ist, habe ich nach 30 Minuten im Inspektor (Firefoxtool um Webseitencode einzusehen) aufgegeben. Jemand der sich hier auskennt sollte das aber hinbekommen.

Edit: uBlock Origin hat einen Filter für Cookie-Banner unter Einstellungen -> Filterlisten -> Belästigungen -> "EasyList Cookie". Ob das hilft weiß ich nicht, hab es mal aktiviert und lasse mich überraschen.

Edit2: Das Addon "idontcareaboutcookies" nimmt scheinbar automatisch alle cookies an. Ich verstehe nicht wieso dieses Addon so populär und gleichzeitig so fehlgeleitet sein kann.

lg

M

**Mars** · 30. April 2022

Eine "nicht sicherere" Methode um Text zu verschlüsseln habe ich irgendwann auch mal gebastelt. Der Code ist sogar Kommentiert, da hatte ich wohl zu viel Freizeit

Prinzip ist:

1. Starte einen RNG (hier XORShift) und generiere damit ein "one time pad" (eigentlich ist es ja keins, weil die Zahlen nicht "zufällig" sind)

2. Modifiziere den RNG andauernd mit einzelnen Buchstaben aus dem PW, sodass jedes PW ein einzigartiges OTP erzeugt.

2.5. Lasse das OTP (+Modifikationen) noch ein paar mal durch den RNG laufen damit sich einzelne Änderungen (z.B. nur 1 Buchstabe im PW) besser auf das gesamte OTP verteilen.

3. XOR mit dem OTP

Vorteile:

- Extrem einfach.

- Vorallem in anderen Programmiersprachen unfassbar schnell (es sind hier nur Shift, XOR und Additionen im inner Loop)

- Da XORShift ziemlich gleichverteilt läuft sind auch die verschlüsselten Strings ziemlich gleichverteilt.

- Das Verfahren ist zum ver- und entschlüsseln identisch.

Nachteile:

- Jeder mit 5 Minuten Ahnung im Bereich Programmierung kann die Verschlüsselung knacken.

- In AutoIt nicht so schnell, als dass man damit größere Dateien verschlüsseln kann.

AutoIt

#include-once

#include <Array.au3>

If @ScriptName = 'StringXorWithPW.au3' Then
    Local $sString = 'Ich Bin ein Test, hier könnte im Prinzip nahezu alles stehen. Ich schreibe hier einfach etwas lustiges hin :)' & @CRLF & _
    'Noch eine Zeile, damit der Text länger wird. So lob ich mir das. ABC die Katze läuft im Schnee.'
    Local $sPW = 'Hi' ; Das ist das Passwort
    Local $_ = StringCount($sString)
    _ArrayDisplay($_)
    Local $sEncrypted = StringXorWithPW($sString, $sPW)
    Local $_ = StringCount(BinaryToString($sEncrypted))
    _ArrayDisplay($_)
    ConsoleWrite($sEncrypted & @CRLF)
    Local $sDecrypted = BinaryToString(StringXorWithPW($sEncrypted, $sPW))
    ConsoleWrite($sDecrypted & @CRLF)
EndIf

Func StringCount($s)
    Local $a[256][2]
    For $i = 1 To StringLen($s) Step 1
        $a[Asc(StringMid($s, $i, 1))][0] = Asc(StringMid($s, $i, 1))
        $a[Asc(StringMid($s, $i, 1))][1] += 1
    Next
    _ArraySort($a, 1, 0, 0, 1)
    For $i = 0 To UBound($a) - 1 Step 1
        If Not $a[$i][0] Then ExitLoop
    Next
    ReDim $a[$i][2]
    Return $a
EndFunc

Func StringXorWithPW($sString, $sPW, $bReturnStruct = False)
    Local $iLen = IsBinary($sString) ? BinaryLen($sString) : StringLen($sString), $vStr = DllStructCreate('byte[' & $iLen & ']')
    DllStructSetData($vStr, 1, IsBinary($sString) ? BinaryToString($sString) : $sString)
    Local $vOtp = StringToOneTimePad($sPW, $iLen, True)
    For $i = 1 To $iLen Step 1
        DllStructSetData($vStr, 1, BitXOR(DllStructGetData($vStr, 1, $i), DllStructGetData($vOtp, 1, $i)), $i)
    Next
    Return $bReturnStruct ? $vStr : DllStructGetData($vStr, 1)
EndFunc

Func StringToOneTimePad($sPW, $iLen, $bReturnStruct = False)
    Local $vOtp = DllStructCreate('byte[' & $iLen & ']') ; Wir arbeiten in einer Struct.
    If StringLen($sPW) > $iLen Then ; Falls das Passwort länger als das zu generierende OTP ist.
        Local $a = StringToOneTimePad(StringLeft($sPW, StringLen($sPW) / 2), $iLen, True)
        Local $b = StringToOneTimePad(StringRight($sPW, StringLen($sPW) / 2), $iLen, True)
        For $i = 1 To $iLen Step 1 ; ein OTP in voller länger für beide Hälften des PW Ausrechnen -> XOR -> Fertig.
            DllStructSetData($vOtp, 1, BitXOR(DllStructGetData($a, 1, $i), DllStructGetData($b, 1, $i)), $i)
        Next ; Da Rekursiv werden automatisch alle Variationen abgefangen (z.B. wenn das PW nach 1 Rekursion immernoch zu kurz ist)
    Else
        While StringLen($sPW) < $iLen ; Erstmal die Struct komplett auffüllen.
            $sPW &= $sPW ; Hier ist das OTP noch ziemlich schwach weil einfach nur das PW wiederholt wird.
        WEnd
        DllStructSetData($vOtp, 1, StringLeft($sPW, $iLen))
        Local $z = 314159265 + StringLen($sPW) + $iLen ; Irgendeine Magic Number um XorShift zu starten
        ; Idee:
        ; Nutze XorShift um Pseudozufallszahlen zu generieren (ja ich weiß die sind nicht besonders "sicher").
        ; Modifiziere den Inneren Zustand in jedem Schritt mit einem Teil des Passworts.
        ; Nimm irgendeinen Teil des Zustands als Output (z.B. BitAND(BitShift($z, 7), 0xFF))
        ; Arbeite Inplace und laufe 2+ Mal die komplette Struct ab.
        ; Grund dafür ist, dass eine Änderung am PW (z.B. die letze Stelle wurde geändert) erstmal nur
        ; den Output beeinflusst der nach dem erstmaligen Auftreten dieser Stelle berechnet wird. Läuft
        ; man aber 2+ Runden und nimmt den Inneren Zustand mit, so wird der gesamte Output vom gesamten Input beeinflusst.
        For $e = 0 To 2 Step 1 ; 2 Runden (Editors note: 0, 1, 2 -> also 3 Runden... :D)
            For $i = 1 To $iLen Step 1
                $z = BitXOR($z, BitShift($z, -13), DllStructGetData($vOtp, 1, $i)) ; Hier werden die Low8 Bit mit dem String geXORt.
                $z = BitXOR($z, BitShift($z, 17))
                $z = BitXOR($z, BitShift($z, 5))
                DllStructSetData($vOtp, 1, BitAND(BitShift($z, 7), 0xFF), $i) ; Das shr7 ist ausgedacht. Hier kann jede Zahl stehen.
            Next
        Next
    EndIf
    Return $bReturnStruct ? $vOtp : DllStructGetData($vOtp, 1)
EndFunc

Alles anzeigen

lg

M

**Mars** · 28. April 2022

Zitat von Velted

Aber warum sollte das so einfach sein?

Das musst du nicht uns fragen, sondern die Jungs im EN-Forum

[rant] Wenn man die vielen Ideen (um AutoIt zu verbessern) aus dem Forum mal alle sammeln und auflisten würde, hätte man sicherlich locker 3 Seiten "Stichpunkte" (1Idee/Zeile). Mein aktueller Favorit ist ByRef im selben Scope, also z.B. Local $a = Byref $b, wenn ich $a ändere, ändert sich auch $b und umgekehrt. Das geht aktuell nur via ByRef im Funktionsaufruf. Benutzen könnte man das um verschachtelte Arrays effizient zu handhaben, LinkedLists (oder quasi "alle" Datenstrukturen die Pointer verwenden) zu basteln, etc. etc. Mal gucken was nächstes Jahr mein Favorit bei "missing features" ist^^ [/rant]

M

**Mars** · 24. April 2022

4 Hinweise:

1. AutoIt führt Zeilen beim ersten Mal etwas langsamer aus (außer das wurde inzwischen geändert). Das heißt wenn du eine Funktion das erste Mal aufrufst ist sie langsamer als alle weiteren Male. Was dich eigentlich interessiert ist die durchschnittliche Geschwindigkeit mit der die Funktion läuft, und nicht die Zeit die sie beim ersten Mal braucht.

2. Je nachdem was dein PC gerade macht (der macht immer irgendetwas, z.B. Windows laufen lassen, Festplatte lesen, etc.) läuft AutoIt manchmal sehr unterschiedlich schnell (es "ruckelt" dann im Interpreter). Einzelne Messergebnisse sind also nicht aussagekräftig.

3. (klingt komisch, ist aber so): Die Reihenfolge in der Code aufgerufen wird bewirkt einen kleinen Geschwindigkeitsunterschied (manchmal vernachlässigbar klein, manchmal größer, ich habe leider kein Beispiel, das ist nur eine Beobachtung von mir als ich ziemlich viele Funktionen auf Geschwindigkeit überprüft habe).

4. Seit Windows 10 Update XYZ (ich weiß nicht welches) ist das ausführen von PostMessageA extrem verlangsamt (wird Intern im Interpreter verwendet). Der Interpreter wird langsamer, falls vorher schonmal ein Windows-Fenster erzeugt wurde (z.B. ArrayDisplay, MsgBox, etc). Das wurde zwar in AutoIt "gefixt" (indem nur noch alle X Interpreterschritte PostMessageA aufgerufen wird), hat aber trotzdem eine kleine Auswirkung. Daher: Verwende beim Zeitmessen niemals irgendwelche Fenster als Ausgabe, sondern lieber die Konsole.

Am Besten ist es, wenn du beide Funktionen in zufälliger Reihenfolge aufrufst und die Messwerte z.B. in ein Array mit N Einträgen einträgst. Der Median davon entspricht in etwa dem durchschnittlichen Messwert. (Median deshalb, damit Ausreißer abgefangen werden, ein einfacher Mittelwert kann durch einen einzigen "ruckler" komplett kaputtgemacht werden).

PS: Ich habe das Skript nicht getestet, sondern nur kurz angeschaut.

lg

M

**Mars** · 3. April 2022

Bei einer Verschlüsselung kommt es darauf an, dass der verschlüsselte Text gleichverteiltem Rauschen entspricht (je weniger der Text von Rauschen unterscheidbar ist, desto schwieriger ist es Muster zu erkennen). Außerdem ist wichtig, dass sich das entstehende Rauschen nicht ähnelt, selbst wenn man im Passwort nur ein Bit dreht. Ich bin kein Experte auf dem Gebiet, aber ich glaube eine Verteilung wo die allermeisten Zeichen nur 1x vorkommen ist nicht mehr "gleichverteilt" (in einer Gleichverteilung kommt es ja statistisch zu vielen Abweichungen, Wenn du 6x würfelst bekommst du ziemlich wahrscheinlich nicht 1, 2, 3, 4, 5, 6 heraus, sondern irgendwelche Zahlen doppelt oder sogar dreifach, und das waren jetzt nur 6 Würfe und nicht wie bei ca. 100) und daher vermutlich ungeeignet für "gute" Verschlüsselung.

Aber ich kenne mich da nicht gut aus, da weiß jemand anderes bestimmt mehr^^

**Mars** · 1. April 2022

Andy war wahrscheinlich verhindert, vielleicht kommt von ihm später noch etwas

Code

Mein Skript funktioniert wie folgt (falls der Spaghetticode keinen Sinn ergibt, hier die Zusammenfassung):
- 1. Erzeuge ein Histogramm des gesamten Strings (256 Slots)
- 2. Komprimiere das Histogramm bestmöglich
    - 1. Speichere MinIndex und MaxIndex (z.B. 20 und 150) jeweils als 8 Bit, betrachte ab jetzt nur noch den relevanten Teil.
    - 2. Quantisiere auf 2 Bit (0 = Zeichen Existiert, 1 = Kleiner Wert, 2, Mittlerer Wert, 3 = Großer Wert, Empirisch bestimmt)
    - 3. Speichere das Histogramm Layerweise:
    ; | MinIndex                                                                                                       MaxIndex |
    ; 100100000000000000000011100100110011111111111111110000011111111111111111111111101101000111111111111111111111111110000000001
    ; 1  1                  100  0  00  1010100000000000     000000000000000000000000 00 0   11111111101111100111111001         0
    ; 0  0                  1           0 0 0                                                100110011 01010  111100  0
    ;                       1                                                                0  01  01  0 1   1000
    - In Layer 0 steht also immer eine 1 für: "Zeichen existiert"
    - In Layer 1 steht eine 1 für alle Zeichen die einen kleinen Wert haben
    - usw. Im Endeffekt kann man so eine 2Bit Kodierung benutzen, und insgesamt nur wenige Bits dafür verbrauchen.
        Das sieht beim Beispiel hier ggf. nutzlos aus (zu dicht), wenn man aber 100 aufeinanderfolgende Nullen betrachtet ergibt das Sinn.
    - 4. Benutze eine Lauflängenkodierung. Aus dem 01-String werden jetzt RLE-Tokens (also sowas wie 0 0 1 5 100 4 1)
    - Die Wahrscheinlichkeiten (nicht normiert) der Tokens entsprechen in etwa p(Index) = 14.7/((x+0.344)^0.94), empirisch bestimmt.
    - 5. Benutze einen Huffmantree (aus den oben gegebenen Wahrscheinlichkeiten) um die RLE-Tokens zu encodieren.
    - 6. Setze die Anzahl Tokens binär kodiert an den Anfang (das braucht der Decoder später)
    - Jetzt hat man eine (grobe) Wahrscheinlichkeitstabelle mit ca. 100 Einträgen in 200 Bit.
    - Im Nachhinein betrachtet hätte man vermutlich direkt eine RLE nutzen können und wäre damit besser bedient...
- 3. Erzeuge basierend auf dem (groben) Historgramm einen HuffmanTree
- 4. Für jedes Symbol:
    - 1. Hole eine Prediction über das nächste Symbol ein (Top15 Liste in meinem Fall wo auch die Konfidenz angegeben wird)
        - z.B. "C": 15, "A": 5, " ": 2 (das würde sagen: "C" ist am Wahrscheinlichsten, dann kommt A und dann das Leerzeichen)
    - 2. Booste das Histogramm (temporär) mit den Werten aus dem Predictor.
    - 3. Baue einen Huffmantree aus dem Histogramm
    - 4. Kodiere EIN Symbol
    - 5. Füge das kodierte Symbol zum Histogramm und zum Predictor hinzu (damit beide wissen was dekodiert wurde)
- 5. Return = Gesamte Stringlänge (braucht man für die Steuerung) & Komprimiertes Historgramm vom Anfang & Eigentliche Daten

Alles anzeigen

Der Trick an der Sache war bei mir das Finetuning (was aber eigentlich auch Informationen über den zu Komprimierenden Inhalt braucht, also die eingestellten Parameter funktionieren gut für deutschen Text, aber vermutlich nicht so gut für andere Sachen).

z.B. Wie stark wird das Histogramm geboostet? (1 Parameter)

z.B. Wird der boost im Verlauf der Kodierung stärker oder schwäche (1 Parameter)

z.B. Wie arbeitet der Predictor intern? (2 Parameter (lässt sich zusammenfassen als Verhältnis))

z.B. Wie stark wird das Histogramm aktualisiert nachdem dein Zeichen dekodiert wurde? (1 Parameter)

Ich habe insgesamt 4 Magic Numbers die alle für gewisse Einstellungen verantwortlich sind. Die kann man auch so einstellen, dass der Text 5% schlechter Komprimiert wird und genaugenommen müsste ich diese Werte (die man quasi bruteforcen muss) mit in den kodierten String stecken was nochmal ca. 40 Bit braucht. Da ich aber ohnehin schon so knapp an den 50% war wollte ich das einfach nicht machen... Wenn man das berücksichtigt bin ich quasi gleichauf mit AspirinJunkie (nur noch ein paar Bytes besser), wobei sein Skript 50x schneller ist

**Mars** · 29. März 2022

Ohje, wenn Andy die 50 geknackt hat muss ich wohl nochmal schrauben

Ich hatte einfach keine Lust auf alt bewährtes zurückzugreifen und hab meine Idee (Prediction geboosteter dynamischer Huffman Tree) weiterverfolgt. Leider hat das eine entscheidende Schwäche: Ganze Bits.

Egal wie gut die Vorhersage ist, im Regelfall kann man 3 Bit/Symbol nicht unterschreiten, da im Huffman-Tree, genauso wie bei Telefonnummern keine vollständigen 01-Ketten existieren dürfen die gleichzeitig der Anfang einer anderen Kette sind. Wenn es also eine 2Bit Kette gibt (z.B. "01"), dann kann es keine einzige weitere Kette geben die mit "01" beginnt. Der Tree wird "optimal" erstellt, und wird den Teufel tun, bei sämtliche anderen Zeichen die Bitketten um 1 zu verlängern, nur weil die Chance für ein "a" als nächstes Zeichen 20% ist (das wäre aber nötig um unter die 3Bit/Symbol zu kommen).

Der Ansatz ist super, rennt aber bei Huffman komplett gegen die Wand...

Nächste Idee ist dann: Prediction geboosteter arithmetischer Kodierer. Der sollte mindestens 10%-20% besser klarkommen (damit sollte auch 60% bei Text kein Problem sein).

**Mars** · 28. März 2022

Ich hab etwa 2000 Zeilen Spaghetticode fabriziert der zu allem Überfluss auch noch ganz besonders langsam ist und nicht die Kompression erreicht die ich gerne hätte^^

Werde das irgendwann Morgen abgeben, viel Spaß beim Durchlesen Oscar

PS: Nächstes Mal wird die 50% in Angriff genommen. Das ist zwar noch ein paar Meter, aber das schaffen wir

**Mars** · 19. März 2022

Ja, damit klappt alles, vielen Dank

**Mars** · 16. März 2022

Dachte immer das ist im Prinzip dasselbe. Quicksort heißt ja normalerweise auch immernoch Quicksort, selbst wenn ich ab einer gewissen Teife z.B. InsertionSort (wie in der Array.au3) verwende... Muss ich wohl nochmal nachlesen ist schon ein paar Tage her

**Mars** · 16. März 2022

Je nachdem wie man das Verfahren nennen möchte. Manchmal heißt es auch Radix-Sort.
Das ist übrigens in fast allen Fällen die mit großem Abstand schnellste Sortiermethode, sofern man eine gute Repräsentation der "Buckets" findet. (bei Dezimalzahlen z.B. die Ziffern -> 10 Buckets -> Iterativ), bei Buchstaben -> 256 Buckets Iterativ, etc etc. Das Größte Problem der Methode ist es eine gute Methode für die Bucketdefinition zu finden (bei hochdimensionalen Daten wie z.B. einem WString kann nicht einfach 2^16 Buckets nutzen, das ist dann wieder zu Speicherintensiv und zu langsam, bei floats kann man z.B. auch nicht einfach die Ziffern verwenden, da muss man kreativ werden).

**Mars** · 15. März 2022

Probleme die ich kenne sind:
- Bei GDI+ wurden irgendwelche Returnwerte und Konstanten geändert. Ggf. muss man hier einiges Anpassen, wenn man GDI+ verwendet. (UEZ weiß hier mehr).

- Bei _ArrayDisplay friert das Skript (als "toter" Prozess mit Volllast im Taskmanager sichtbar, man kann ihn dort auch beenden) ein, wenn man WÄHREND _ArrayDisplay aktiv ist das Skript via Tray beendet.

- Bei Rechnungen mit Exponent & Minus Kombinationen (z.B. 11 - 2^4 = 27) wurde irgendwas umgestellt. Das war teilweise vorher (3.3.14.5) schon "schief" ist jetzt aber noch "schiefer". Klammern verwenden löst das Problem.

Ggf. musst du das EN-Forum lesen, vllt gibt es noch mehr Probleme die ich nicht kenne (oder probleme die niemand aus dem DE-Forum kennt)

Empfehlung: Probier es aus. "Wahrscheinlich" geht alles gut (vor allem wenn dich die 3 oben genannten Sachen nicht betreffen).

**Mars** · 12. März 2022

Moin,

der Thread hier ist absichtlich im Offtopic, weil er einfach nur zum Spaß ist

Anbei meine Interpretation von "Welche Expression ergibt eigentlich 27" und "Welche Expression ergibt eigentlich -5"

Motiviert durch Musashi (Zitat: "$x = 11 ------ 2^4 ; -5") ist hierbei ein Skript entstanden

AutoIt

For $i = 0 To 4 Step 1
    ; Zahl     = 27
    ; Länge    = 12 Zeichen
    ; Versuche = 10
    $s = ExpressionThatEqualsWithLessDigits(27, 12, 10)
    ConsoleWrite($s & ' = ' & Execute($s) & @CRLF)
Next

For $i = 0 To 4 Step 1
    ; Zahl     = -5
    ; Länge    = 12 Zeichen
    ; Versuche = 10
    $s = ExpressionThatEqualsWithLessDigits(-5, 12, 10)
    ConsoleWrite($s & ' = ' & Execute($s) & @CRLF)
Next

; $i    - Zahl (muss kein integer sein, aber "einfache" Zahlen aus der Menge der Quotienten sind besser)
; $iLen - Länge der Expression die herauskommen soll
; $n    - Anzahl Versuche von denen der genommen wird der die "wenigsten Zahlen" enthält.
Func ExpressionThatEqualsWithLessDigits($i, $iLen = 15, $n = 10)
    Local $a[$n][2], $j = $iLen, $k = -1
    For $h = 0 To $n - 1 Step 1
        $a[$h][0] = ExperssionThatEquals($i, $iLen)
        If $a[$h][0] = '' Then
            $a[$h][1] = $iLen
        Else
            $a[$h][1] = CountDigits($a[$h][0])
        EndIf
        If $j > $a[$h][1] Then
            $j = $a[$h][1]
            $k = $h
        EndIf
    Next
    If $k = -1 Then Return 'NOT FOUND'
    Return $a[$k][0]
EndFunc

Func CountDigits($s)
    Return StringLen(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($s, '+', '', 0, 1), '-', '', 0, 1), '*', '', 0, 1), '/', '', 0, 1), '^', '', 0, 1))
EndFunc

Func ExperssionThatEquals($i, $l = 20)
    Local $s = ''
    For $_ = 0 To 99999 Step 1
        $s = RandomExpression($l)
        If Execute($s) = $i Then Return $s
    Next
    Return ''
EndFunc

Func RandomExpression($l)
    Local $s = '', $a = ['1', '2', '3', '4', '5', '+', '-', '*', '/', '^'], $x = ''
    For $i = 0 To $l - 1 Step 1
        $x = $a[Random(0, UBound($a) - 1, 1)]
        If StringIsDigit($x) Then
            If StringIsDigit(StringRight($s, 1)) Then
                $i -= 1
            Else
                $s &= $x
            EndIf
        Else
            $s &= $x
        EndIf
    Next
    Return (StringIsDigit(StringRight($s, 1)) And StringIsDigit(StringLeft($s, 1))) ? $s : RandomExpression($l)
EndFunc

Alles anzeigen

Beispieloutput:

Code

1/+5/5^-3--2 = 27
3/++3-5^+2+1 = 27
3-2^+3*+-3^1 = 27
4-+5*-4++--3 = 27
3+-4^1*+3*-2 = 27
1+-+1*2-2+-2 = -5
1^4---4+-4/2 = -5
2+3+-5/2*++4 = -5
5/-3*++3/++1 = -5
3/-1-++3+2/2 = -5
5^3----5^--2 = 100
4^1-3*+-2^+5 = 100
4*1^+4*--5*5 = 100

Alles anzeigen

M

**Mars** · 11. März 2022

Es lässt sich wie ein assoziatives Array verwenden. Du kannst soetwas wie $Map["Klaus"] = "Isst am liebsten Wurst" machen. Früher musste man dafür ein Dict/DllStruct verwenden, oder (wenn man Variablen im "AutoIt-Datentyp" haben will) einen selbstgebauten Hashtable.

**Mars** · 10. März 2022

Endlich laufen meine UDFs die Maps verwenden auch mit der Stable. Bin sehr zufrieden damit

Beiträge von Mars

AdlibRegister sinnvoll einsetzen

Diskrete Fouriertransformation (DFT)

Diskrete Fouriertransformation (DFT)

Diskrete Fouriertransformation (DFT)

Diskrete Fouriertransformation (DFT)

Internet-Kommunikation - Nervige PopUp-Fenster

Häufigkeitsverteilung

Der Stumpfsinn der Gewohnheit - oder - Weil man das immer so macht.

Merkwürdige Meßergebnisse mit _Timer_Init() und _Timer_Diff()

Klartext 2 AHL_Codiert

[Wettbewerb] String komprimieren

[Wettbewerb] String komprimieren

[Wettbewerb] String komprimieren

Performance-Analyse der neuen Datenstruktur "Map"

Strings nach Länge sortieren (_ArraySortStringLen)

Strings nach Länge sortieren (_ArraySortStringLen)

AutoIt 3.3.16.0 ist zur Welt gekommen ...

Lustige Zahlen/Zeichen-Kombinationen die 27 ergeben

AutoIt 3.3.16.0 ist zur Welt gekommen ...

AutoIt 3.3.16.0 ist zur Welt gekommen ...