Visual Basic

A-dogg2009 wrote:

Would it be better to use a database

A-dogg2009 wrote:

stuck on retreiving the data

A-dogg2009 wrote:

which numbers occur most often with in this file

Johnkokk wrote:

It should be easy but i am completely stuck in here.

David Skelly wrote:

It's not really the average, though, if I've understood the question.

David Skelly wrote:

Interpolation

Dim arr() As Single = {17, 18, 0, 0, 24, 23, 0, 20, 0, 0, 0, 16}
Dim idx1 As Int16 = -1, idx2 As Int16 = -1
Dim FoundAZero As Boolean = False

For i As Int16 = 0 To arr.GetUpperBound(0)

    If Not FoundAZero Then
        If arr(i) = 0 Then
            FoundAZero = True 'once we find an zero the else will be used below until we find the next non zero
        Else
            idx1 = i 'hold on to the index every non zero
        End If
    Else
        If arr(i) <> 0 Then '
            idx2 = i 'hold on to the index of the non zero
            '--------------------------------------
            'get the value that's held in both indexes
            Dim val1 As Int16 = arr(idx1), val2 As Int16 = arr(idx2)
            Dim IncVal As Single

            'increment value is non zero 1 minus non zero 2 / the number of zeros between
            'the * -1 is whether or not we need to increment up or down depending on values of the array

            If val1 < val2 Then
                IncVal = (val2 - val1) / (idx2 - idx1)
            Else
                IncVal = ((val1 - val2) / (idx2 - idx1)) * -1
            End If

            For x As Int16 = idx1 + 1 To idx2 - 1
                arr(x) = arr(x - 1) + IncVal 'replace the 0 inbetween both indexes with the incremented value
            Next
            '--------------------------------------
            idx1 = idx2        'take the last none zero and set it to the first hold as we continue down the array
            FoundAZero = False 'reset finding a zero flag
        End If
    End If
Next

Private Sub Interpolate(ByVal values() As Single)
    If values Is Nothing Then Throw New ArgumentNullException("values")
    'nothing to do in this routine and the other error checks would cause errors
    If values.Length = 0 Then Exit Sub
    If values(0) = 0 Then 
        Throw New ArgumentException("Value array cannot start with a 0.", "values")
    End If
    If values(values.Length - 1) = 0 Then 
        Throw New ArgumentException("Value array cannot end with a 0.", "values")
    End If

    'other code to do interpolation here
End Sub