-
Notifications
You must be signed in to change notification settings - Fork 0
/
Stat_Helpers.au3
52 lines (48 loc) · 2.15 KB
/
Stat_Helpers.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#include-once
; #FUNCTION# ======================================================================================
; Name ..........: __f()
; Description ...: runs a funcion with call and change one of these parameters
; Syntax ........: __f($cb_F, $a_Params, $x, $i_ind)
; Parameters ....: $cb_F - function
; $a_Params - parameter-array for Call()
; $x - the new value
; $i_ind - the index of the value
; Remarks .......: used in _stat_Int_Romberg and _stat_findFuncVal
; =================================================================================================
Func __f($cb_F, $a_Params, $x, $i_ind)
$a_Params[$i_ind] = $x
Return Call($cb_F, $a_Params)
EndFunc ;==>__f
; #FUNCTION# ======================================================================================
; Name ..........: __stat_max()
; Description ...: returns the higher value of the two parameters
; Syntax ........: __stat_max($a, $b)
; Author ........: AspirinJunkie
; =================================================================================================
Func __stat_max(Const $a, Const $b)
Return $a >= $b ? $a : $b
EndFunc ;==>__stat_max
; #FUNCTION# ======================================================================================
; Name ..........: __stat_min()
; Description ...: returns the lower value of the two parameters
; Syntax ........: __stat_min($a, $b)
; Author ........: AspirinJunkie
; =================================================================================================
Func __stat_min(Const $a, Const $b)
Return $a <= $b ? $a : $b
EndFunc ;==>__stat_min
; #FUNCTION# ======================================================================================
; Name ..........: __stat_EPS()
; Description ...: calculate the machine accuracy (floating point rounding error)
; Syntax ........: __stat_EPS()
; Return values .: Epsilon
; Author ........: AspirinJunkie
; =================================================================================================
Func __stat_EPS()
Local $x = 1
While True
$x /= 2
If 1 + $x <= 1 Then ExitLoop
WEnd
Return 2 * $x
EndFunc ;==>__stat_EPS