Private Function CreateTimeSeriesParams(stepp As Integer) _
        As List(Of TimeValue(Of Double))
 
        Dim params, vl As New List(Of TimeValue(Of Double))
 
        For i As Integer = stepp \ 2 To _
              (timeseries.Count - 1) - stepp \ 2 Step stepp
 
            vl.Clear()
            For k As Integer = i - stepp \ 2 To i + stepp \ 2
                vl.Add(timeseries(k))
            Next k
            vl.Sort()
 
            Dim median As New TimeValue(Of Double)(timeseries(i).GetTime, _
                                        vl(stepp \ 2).GetValue)
            params.Add(median)
 
            params(params.Count - 1).Min = vl(stepp \ 4).GetValue
            params(params.Count - 1).Max = vl((stepp \ 4) * 3).GetValue
        Next i
        Return params
 
    End Function