Zitat:

Wenn jeder Kanal eine eigene Skala besitzt, wieso sollen diese Kanäle {Werte) in ein Diagramm? Die gemeinsame Darstellung erfordert Skalengleichheit. Gegebenenfalls sind die Werte geeignet zu transformieren.

Zitat:

Da hab ich mich etwas unverstndlich ausgedrückt. Die Kanäle sollen in ein gemeinsames Diagramm da diese alle die gleich Zeitbasis haben.

Zitat:

Jeder Kanal kann aber einen anderen Datentyp und auch andere Informationen beinhalten. z.B. Geschwindigkeit = Double interner Zustand = Integer Freigabe = Boolean

Zitat:

es geht darum die Daten nur anzuzeigen! Kein Verhgleich, keine Glättung, keine Spektralanalyse, ...!

Zitat:

Da die Aufzeichnung weit aus mehr Daten enthält als sinnvoll auf den Monitor angezeigt werden können, ist es notwendig die Daten sinnvoll für die Anzeige aufzubereiten. Möchte man den vollständigen zeitlichen Signalverlauf anschauen so müsste wohl aus z.B. jeweils 10 Werten ein Mittelwert gebildet werden der dann zur Anzeige kommt, oder?

Zitat:

Es sind nur mehr Daten in X-Richtung vorhanden die auf den Monitor physich angezeigt werden können. D.h. es wird nur ein Ausschnitt dieser Daten angezeigt. Diesen Ausschnitt soll der User aber versieben können.

Zitat:

Was ist hier die Technik der Wahl? GDI, WPF, Writable Bitmap?

Public Class frmTimeSeries
 
    Dim cht As New System.Windows.Forms.DataVisualization.Charting.Chart _
        With {.Parent = Me, .Dock = DockStyle.Fill}
 
 
    'generische Klasse für Zeitreihenwert 
    Private Class TimeValue(Of T As iComparable)
        Implements IComparable(Of TimeValue(Of T))
 
        Private _value As T
        Private _time As DateTime
 
        Private _min, _max As T
 
        Public Sub New(time As DateTime, value As T)
            _time = time
            _value = value : _min = value : _max = value
        End Sub
 
        Public ReadOnly Property GetTime() As DateTime
            Get
                Return _time
            End Get
        End Property
 
        Public ReadOnly Property GetValue() As T
            Get
                Return _value
            End Get
        End Property
 
        Public Property Max() As T
            Set(value As T)
                _max = value
            End Set
            Get
                Return _max
            End Get
        End Property
 
        Public Property Min As T
            Set(value As T)
                _min = value
            End Set
            Get
                Return _min
            End Get
        End Property
 
 
 
        Public Function CompareTo(other As TimeValue(Of T)) As Integer _
            Implements System.IComparable(Of TimeValue(Of T)).CompareTo
            Return _value.CompareTo(other.GetValue)
        End Function
    End Class
 
 
    Dim timeseries As New List(Of TimeValue(Of Double))
 
 
    Private Sub CreateRandomSeries()
 
        Dim rndm As New Random(12345)
        Dim tim As New DateTime(2000, 1, 1)
        For i As Integer = 1 To 50000
            tim = tim.AddMinutes(1)
            timeseries.Add _
                (New TimeValue(Of Double)(tim, rndm.NextDouble + i * 0.000005))
        Next i
    End Sub
 
 
    Private Sub frmTimeSeries_Load(sender As System.Object, _
                    e As System.EventArgs) Handles MyBase.Load
        CreateRandomSeries()
        Dim params As List(Of TimeValue(Of Double)) = _
            CreateTimeSeriesParams(timeseries.Count \ 200)
 
        CreateChart(params)
    End Sub
 
 
    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()
 
                'Anzeigeparameter (Zeiteintrag: evt. als Intervallmitte)
                params.Add(vl(stepp \ 2))
                params(params.Count - 1).Max = vl(stepp \ 4).GetValue
                params(params.Count - 1).Min = vl(stepp \ 4 * 3).GetValue
            Next i
        Return params
    End Function
 
 
    Private Sub CreateChart(params As List(Of TimeValue(Of Double)))
 
        cht.ChartAreas.Clear()
        cht.Series.Clear()
        cht.ChartAreas.Add("Base")
        With cht.Series
            .Add("Values") : .Add("min") : .Add("max")
        End With
        With cht.Series("Values")
            For i As Integer = 0 To params.Count - 1
                .Points.AddXY(params(i).GetTime, params(i).GetValue)
            Next i
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
        End With
        With cht.Series("min")
            For i As Integer = 0 To params.Count - 1
                .Points.AddXY(params(i).GetTime, params(i).Min)
                .ChartType = DataVisualization.Charting.SeriesChartType.Line
            Next i
        End With
        With cht.Series("max")
            For i As Integer = 0 To params.Count - 1
                .Points.AddXY(params(i).GetTime, params(i).Max)
                .ChartType = DataVisualization.Charting.SeriesChartType.Line
            Next i
        End With
 
        With cht.ChartAreas("Base")
            .AxisX.IntervalType = _
              DataVisualization.Charting.DateTimeIntervalType.Minutes
 
            .AxisY.Minimum = -0.2
            .AxisY.Maximum = 1.2
        End With
    End Sub
 
End Class

    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