Berechnet den Durchschnittswert von grossen Zahlenlisten

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

''' <summary>
''' Can calculate the maximum and average of the values.
''' This class will help to have some better informations of
''' data in small databases.
''' </summary>
''' <remarks></remarks>
Public Class clsTbQueue
    Private _LastMax As Single = 0


    Private _BufferSize As Integer
    ''' <summary>
    ''' The maximum of values for the content.
    ''' To activate the buffer the methode ".Trim" has to be used.
    ''' </summary>
    Public Property BufferSize() As Integer
        Get
            Return Me._BufferSize
        End Get
        Set(ByVal value As Integer)
            Me._BufferSize = value
        End Set
    End Property

    Private _Values As List(Of Single)
    ''' <summary>
    ''' The content of the values
    ''' </summary>
    Public Property Values() As List(Of Single)
        Get
            Return Me._Values
        End Get
        Set(ByVal value As List(Of Single))
            Me._Values = value
        End Set
    End Property


    ''' <summary>
    ''' Returns the maximum value in the list. Additional saves the current state to hold the maximum higher.
    ''' </summary>
    Public Function SlowMax() As Single
        Dim res As Single = 0
        Dim resMax As Single = Me.MaxValue

        If resMax >= Me._LastMax Then
            res = resMax
        Else
            res = (resMax / 10 * 1) + (Me._LastMax / 10 * 9)
        End If
        Me._LastMax = res
        Return res
    End Function


    ''' <summary>
    ''' Returns the maximum value in the list
    ''' </summary>
    Public Function MaxValue() As Single
        Dim res As Single = 0

        If Me._Values IsNot Nothing Then
            For i As Integer = 0 To Me._Values.Count - 1
                res = Math.Max(res, Me._Values(i))
            Next
        End If
        Return res
    End Function


    ''' <summary>
    ''' Returns the average value of the list. Large lists are supported.
    ''' </summary>
    Public Function Average() As Single
        Return Me.Average(Me._Values)
    End Function


    ''' <summary>
    ''' Returns the average value of the list. The list can be a large as you want.
    ''' Copyright by Timo Böhme 2009
    ''' </summary>
    Private Function Average(ByVal values As List(Of Single)) As Single
        Dim res As Single = 0

        Try
            If values Is Nothing OrElse values.Count = 0 Then Return res
            If values.Count = 1 Then Return values(0)

            res = values(0)
            For i As Integer = 2 To values.Count
                res = (res * ((i - 1) / i)) + (values(i - 1) * (1 / i))
            Next
        Catch ex As Exception

        End Try

        Return res
    End Function


    Public Sub Trim()
        If Me._Values Is Nothing Then Exit Sub
        If Me._BufferSize < 0 Then Exit Sub

        Do
            If Me._Values.Count < Me._BufferSize Then Exit Do
            Me._Values.RemoveAt(0)
        Loop
    End Sub

    Public Sub New()
        Me._Values = New List(Of Single)
        Me._BufferSize = -1
    End Sub

    Public Sub New(ByVal BufferSize As Integer)
        Call Me.New()
        Me._BufferSize = BufferSize
    End Sub
End Class