Hallo,
vielleicht kannst du diese Funktion noch einbauen: Standard Abweichung
Spoiler anzeigen
[autoit]
; Standard Abweichung
Func _StandardDeviation($aNumber)
If IsArray($aNumber) Then
Local $d = _MathEx_Mean($aNumber)
Local $v = 0
Local $n = UBound($aNumber)
For $i = 0 To $n - 1
$v += (Number($aNumber[$i]) - $d) ^ 2
Next
Return Sqrt($v / $n)
EndIf
SetError(1, "", 0)
EndFunc ;==>_StandardDeviation
dabei ist mir aufgefallen, daß dein arithmetisches Mittel ein quadratisches ist (Zeile 392)
Ach ja und PI:
$pi = 4 * ATan(1)
aber das ist wahrscheinlich zu unspektakulär ...
Grüße
Stilgar