Beiträge von UEZ

  • CPU Auslastung


    Warum umständlich?

    Meins zeigt noch den Speicherverbrauch und die CPU Zeit an, ohne WMI! ;)

    WMI wird nur dazu benutzt die logischen CPUs zu bestimmen!

    UEZ

  • _Au3Optim (Inline-Funktionen und Code-Optimierung)

    Als was speichert SciTE die Source Codes eigentlich? Wie kann ich sehen, was dür ein Format die Datei hat?


    Zu den Fractals: den "nornalen" Source Code habe ich jetzt angehängt! Es wird in jedem Aufruf die Fraktal Version gesetzt.
    Eine "Pause" Taste bzw. das Speichern der Bilder kann ich hinzufügen. Ich muss mir nur noch überlegen, wie ich das am Besten machen kann (Bedienung).

    Mit F9 kann jetzt jederzeit die Zeichnung gespeichert werden!

    Format: @ScriptDir & "\L-SF-Screenshot_" & @YEAR & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC & ".jpg"

    Gruß,
    UEZ

  • _Au3Optim (Inline-Funktionen und Code-Optimierung)

    Bei den L-Fraktalen fehlt unten die Schrift und beim SIC2 sind auch noch Fehler enthalten:

    • SIC2_opt.au3(119,44) : ERROR: syntax error (illegal character)
      If $a36 = "y" Then $a3a[1] = $a3a[1] + $a37
    • SIC2_opt.au3(119,87) : ERROR: syntax error
      If $a36 = "y" Then $a3a[1] = $a3a[1] + $a37
      If $a36 = "h" Or $a36 = "n" Or $a36 = "s" Then
    • SIC2_opt.au3(133,1) : ERROR: syntax error
      EndIf
    • SIC2_opt.au3(98,16) : ERROR: _g_(): undefined function.
      If Not _g_($a38)
      ~~~~~~~~~~~~~~~^
      SIC2_opt.au3(102,21) : ERROR: _h_(): undefined function.
      _h_($a38, $a3a, $a39)
      ~~~~~~~~~~~~~~~~~~~~^
      SIC2_opt.au3(105,37) : ERROR: _i_(): undefined function.
      $a3b = _i_($a3a[1], $a3a[2], $a3a[3])
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
      SIC2_opt.au3(106,36) : ERROR: _j_(): undefined function.
      _j_($a3b, $a3a[1], $a3a[2], $a3a[3])
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
      SIC2_opt.au3(120,37) : ERROR: _m_(): undefined function.
      $a3c = _m_($a39[1], $a39[2], $a39[3])
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
      SIC2_opt.au3(132,43) : ERROR: _l_(): undefined function.
      _l_($a3c * 1000, $a39[1], $a39[2], $a39[3])
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^


    Gruß,
    UEZ

  • _Au3Optim (Inline-Funktionen und Code-Optimierung)

    Da scheint noch was nicht richtig zu funktionieren:

    SIC2 ist der ursprüngliche Code und SIC2_opt.au3 das Resultat deines Skriptes.

    Z.B. kann man mit Total Commander die Unterschiede beider Dateien übersichtlich einsehen.

    So wird z.B. aus $a3d = StringSplit('31,28,31,30,31,30,31,31,30,31,30,31', ',') => EndIf Not $a3d tringSplit('31,28,31,30,31,30,31,31,30,31,30,31', ',')

    Gruß,
    UEZ

  • MathEx UDF

    Zitat von MatthiasG.

    In Ordnung, danke ihr beiden. Ich baue die Funktion in _MathEx_Log ein, mit einem Flag, oder ist es dir lieber, wenn ich das _MathEx_Ln nenne?

    Log() ist ungleich LN(), deshalb sollte LN als selbststängige Funktion gelistet sein.

    UEZ

  • MathEx UDF

    Zitat von MatthiasG.

    Hallo UEZ!

    Danke für deine Funktionen! Ja, Fakultät gibt es in der neusten Versio. Macht doch nichts, trotzdem danke! :)
    Meinst du mit Ln zufälligerweise Log()?

    Ich kann mit dem Namen leider nichts anfangen, kannst du bitte kurz erläutern, was damit gemeint ist?

    Da du noch 15 bist, kannst du nichts mit LN anfangen, aber wenn du mal das Vergnügen haben wirst die Oberstufe zu besuchen, wirst du auf jeden Fall LN kennen lernen. :D

    Vorgeschmack hier: http://de.wikipedia.org/wiki/Logarithm…lle_Logarithmen

    Gruß,
    UEZ

  • MathEx UDF

    Hier 2 weitere Funktionen (LN und Fakultät):


    Spoiler anzeigen
    [autoit]


    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _MathEx_LN
    ; Beschreibung...: Berechnet den natürlichen Logarithmus (logarithmus naturalis)
    ; Syntax.........: _MathEx_LN($x)
    ; Parameter......: $x - berechnet den natürlichen Logarithmus von $x
    ; Rückgabe.......: Erfolg - Gibt das Ergebnis $ln zurück
    ; Fehler - Gibt False zurück
    ; Eigenschaften..: Definitionsbereich: 0 < $x < unendlich
    ; Wertebereich: -unendlich < f(x) < unendlich
    ; Monotonie: x > 1: streng monoton steigend, 0 < x < 1: streng monoton fallend
    ; keine Symmetrien (Punkt- und Spiegelsymmertrien), keine Periodizität
    ; Autor(en)......: UEZ
    ; ===============================================================================================================================
    Func _MathEx_LN($x)
    Local $ln, $e = 2.71828182845904523536
    If Not IsString($x) And $x > 0 Then
    If $x = 1 Then
    Return 0
    Else
    $ln = Log($x) / Log($e)
    Return $ln
    EndIf
    Else
    Return False
    EndIf
    EndFunc ;==>_MathEx_LN

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

    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _MathEx_Fak
    ; Beschreibung...: Berechnet die Fakultät der Zahl n
    ; Syntax.........: _MathEx_Fak($n)
    ; Parameter......: $n - berechnet die Fakultät der Zahl n => f(n) = 1 * 2 * 3 * 4 * ... * n
    ; Rückgabe.......: Erfolg - Gibt das Ergebnis $fak zurück
    ; Fehler - Gibt False zurück
    ; Eigenschaften..: n ist Element der natürlichen Zahlen
    ; Definitionsbereich: 0! = 1, 1! = 1, n > 1: f(n) = 1 * 2 * 3 * 4 * ... * n
    ; Näherungsformel nach Stirling (für große n): n! = Sqrt(2*pi*n)*(n/e)^n * (1 + 1/(12*n) + 1/(288*n^2))
    ; Limitierung....: bis n = 25 möglich, da noch kein long int implementiert
    ; Autor(en)......: UEZ
    ; ===============================================================================================================================
    Func _MathEx_Fak($n)
    Local $fak = 1, $i
    If Not IsFloat($n) And Not IsString($n) Then
    If $n > 1 Then
    For $i = 2 to $n
    $fak *= $i
    Next
    Return $fak
    ElseIf $n = 1 Then
    Return 1
    ElseIf $n = 0 Then
    Return 1
    Else
    Return False
    EndIf
    Else
    Return False
    EndIf
    EndFunc ;==>_MathEx_Fak

    [/autoit]


    Vielleicht folgen noch weitere ... ;)

    Gruß,
    UEZ

    Edit: ups, Fakultät gibt es ja schon :huh:

  • GDI+ Fenster flackert

    2 Anmerkungen zu nuts Beispiel:

    1) man sollte die GDI+ Resourcen wieder herunter fahren:

    [autoit]


    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_GraphicsDispose($backbuffer)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ShutDown ()

    [/autoit]


    2) GUIGetMsg() Methode ist träge, d.h. wenn man die Maus bewegt, bewegt sich auch das Objekt schneller. Einfach Opt("GUIOnEventMode", 1) Methode verwenden (z.B. GUISetOnEvent($GUI_EVENT_CLOSE, "Close"))

    Gruß,
    UEZ