Datenrate in bestimmten Bereichen ändern

Question

Hallo,
ich möchte in bereits vorhandenen Datenaufzeichnungen die Datenrate für bestimmte Bereiche ändern um die Datengröße zu reduzieren aber die Kurve dabei nicht verkürzen.
Beispiel:
   es werden Daten über eine Zeit von 60 Sekunden erfasst. Zwischen einzelnen Peaks sind längere Pausen wo die Spannung zwischen 0 und x Volt liegt. Diese Bereiche möchte ich gerne kürzen.
Hatte an ein VBS Script gedacht aber da stoße ich immer wieder auf Probleme, da die Länge des Kanals bis zu 49247232 Werte umfassen kann und mehr.

Answer 1

  smooth
  create_groups
  if Data.Root.ChannelGroups(1).Channels.Exists("PXI1Slot2\ai0") Then
    find_peak_hv1
    kurve_teilen_hv1
  end if
  if Data.Root.ChannelGroups(1).Channels.Exists("PXI1Slot2\ai2") Then
    find_peak_hv2
    kurve_teilen_hv2
  end if
'Kurven glätten
sub smooth
  if Data.Root.ChannelGroups(1).Channels.Exists("PXI1Slot2\ai0") Then
    Call ChnSmooth("[1]/PXI1Slot2\ai0","[1]/u_hv1",2,"maxNumber") '... Y,E,SmoothWidth,SmoothType
  End if
  if Data.Root.ChannelGroups(1).Channels.Exists("PXI1Slot2\ai1") Then
    Call ChnSmooth("[1]/PXI1Slot2\ai1","[1]/i_hv1",2,"maxNumber") '... Y,E,SmoothWidth,SmoothType
  End if
  if Data.Root.ChannelGroups(1).Channels.Exists("PXI1Slot2\ai2") Then
    Call ChnSmooth("[1]/PXI1Slot2\ai2","[1]/u_hv2",2,"maxNumber") '... Y,E,SmoothWidth,SmoothType
  End if
  if Data.Root.ChannelGroups(1).Channels.Exists("PXI1Slot2\ai3") Then
    Call ChnSmooth("[1]/PXI1Slot2\ai3","[1]/i_hv2",2,"maxNumber") '... Y,E,SmoothWidth,SmoothType
  End if
end sub
'Untergruppen erstellen
sub create_groups
  Call Data.Root.ChannelGroups.Add("U_HV1")
  Call Data.Root.ChannelGroups.Add("I_HV1")
  Call Data.Root.ChannelGroups.Add("U_HV2")
  Call Data.Root.ChannelGroups.Add("I_HV2")
end sub
'Kurven Start- und Stop-Werte finden für HV1
sub find_peak_hv1
  dim oChn, i, low_hv1, high_hv1
  dim x
  Dim peak, low, st
  x = 1
  st = 1
  Call Data.Root.ChannelGroups(1).Channels.Add("high_hv1",DataTypeFloat64)
  Call Data.Root.ChannelGroups(1).Channels.Add("low_hv1",DataTypeFloat64)
  set oChn = Data.Root.ChannelGroups(1).Channels("u_hv1")
  set high_hv1 = Data.Root.ChannelGroups(1).Channels("high_hv1")
  set low_hv1 = Data.Root.ChannelGroups(1).Channels("low_hv1")
  While low <> 0 or peak <> 0 or x <= 100
    low = Find("Ch(""u_hv1"")>=3",st)
    if low >= 0 then
      peak = Find("Ch(""u_hv1"")<=3",low)
      if low >=0 and peak >= low and peak-low >=10 then
        low_hv1(x) = low
        high_hv1(x) = peak
        st = peak
        x = x + 1
      else st = peak  
      end if
    end if
  Wend
end sub
'Kurven Start- und Stop-Werte finden für HV2
sub find_peak_hv2
  dim oChn, i, low_hv2, high_hv2
  dim x
  Dim peak, low, st
  x = 1
  st = 1
  Call Data.Root.ChannelGroups(1).Channels.Add("high_hv2",DataTypeFloat64)
  Call Data.Root.ChannelGroups(1).Channels.Add("low_hv2",DataTypeFloat64)
  set oChn = Data.Root.ChannelGroups(1).Channels("u_hv2")
  set high_hv2 = Data.Root.ChannelGroups(1).Channels("high_hv2")
  set low_hv2 = Data.Root.ChannelGroups(1).Channels("low_hv2")
  While low <> 0 or peak <> 0 or x <= 100
    low = Find("Ch(""u_hv2"")>=3",st)
    if low >= 0 then
      peak = Find("Ch(""u_hv2"")<=3",low)
      if low >=0 and peak >= low and peak-low >=10 then
        low_hv2(x) = low
        high_hv2(x) = peak
        st = peak
        x = x + 1
      else st = peak  
      end if
    end if
  Wend
end sub
'Kurven teilen HV1
sub kurve_teilen_hv1
  dim u_hv1_ch, i_hv1_ch
  dim x
  Dim low_hv1, high_hv1, st
  x = 1
  set high_hv1 = Data.Root.ChannelGroups(1).Channels("high_hv1")
  set low_hv1 = Data.Root.ChannelGroups(1).Channels("low_hv1")
  for x = 1 to Data.Root.ChannelGroups(1).Channels("high_hv1").Properties("length").Value
    u_hv1_ch = "uhv1_" & x
    i_hv1_ch = "ihv1_" & x
    Call Data.Root.ChannelGroups("U_HV1").Channels.Add(u_hv1_ch,DataTypeFloat64)  'hier entstehen Numerische Channel, diese sollen aber den Zeitstempel übernehmen
    Call Data.Root.ChannelGroups("I_HV1").Channels.Add(i_hv1_ch,DataTypeFloat64)
    Call DataBlCopy(Data.Root.ChannelGroups(1).Channels("u_hv1"),low_hv1(x),high_hv1(x)-low_hv1(x),Data.Root.ChannelGroups("U_HV1").Channels(u_hv1_ch),1)
    Call DataBlCopy(Data.Root.ChannelGroups(1).Channels("i_hv1"),low_hv1(x),high_hv1(x)-low_hv1(x),Data.Root.ChannelGroups("I_HV1").Channels(i_hv1_ch),1)
  next
end sub
'Kurven teilen HV2
sub kurve_teilen_hv2
  dim u_hv1_ch, i_hv1_ch
  dim x
  Dim low_hv2, high_hv2
  x = 1
  set high_hv2 = Data.Root.ChannelGroups(1).Channels("high_hv2")
  set low_hv2 = Data.Root.ChannelGroups(1).Channels("low_hv2")
  for x = 1 to Data.Root.ChannelGroups(1).Channels("high_hv2").Properties("length").Value
    u_hv1_ch = "uhv2_" & x
    i_hv1_ch = "ihv2_" & x
    Call Data.Root.ChannelGroups("U_HV2").Channels.Add(u_hv1_ch,DataTypeFloat64)
    Call Data.Root.ChannelGroups("I_HV2").Channels.Add(i_hv1_ch,DataTypeFloat64)
    Call DataBlCopy(Data.Root.ChannelGroups(1).Channels("u_hv2"),low_hv1(x),high_hv1(x)-low_hv1(x),Data.Root.ChannelGroups("U_HV2").Channels(u_hv2_ch),1)
    Call DataBlCopy(Data.Root.ChannelGroups(1).Channels("i_hv2"),low_hv1(x),high_hv1(x)-low_hv1(x),Data.Root.ChannelGroups("I_HV2").Channels(i_hv2_ch),1)
  next
end sub
Hier das Script. Beim erstellen der Channel, in die die Kurven übertragen werden, entstehen Numerische Kanäle. Diese haben allerdings keinen Zeitstempel sondern verwenden als X-Skalierung die Zeilennummern. Wie erstellt man auch dort eine Zeit-Achse?
Können Sie mir anhand diesem Beispiel sagen wie ich nach dem kopieren Werte verwerfen kann und damit eine dynamische Datenrate erzeugen kann?
Vielen Dank
Sven Hermsmeier