Programm wird langsamer

_PASCAL_ · 6. Dezember 2011, 11:18

Hallo,

ich habe ein Programm gebastelt welche einige berechnungen durchführt.

Jetzt ist mir aufgefallen, dass die Berechnungsschleife nach hinten raus immer langsamer wird, trotz gleich großem berechnungsaufwand.

Da ist mir der einfall gekommen dass vll der Speicher ein bisschen zugemüllt wird.

Jetzt müsste ich wissen woran es liegen könnte ... Wenn ich mit List(Of T) arbeite und mir immer wieder eine neue mit temp = New List(Of T) erstelle ... was passiert dann mit der alten ... sollte ich da vorher temp.Dispose() schreiben oder ist das überflüssig ?

bei temp.Clear() denke ich mal dass der Speicher des aktuellen Pointers wieder frei ist und ich das neu beschreiben kann.

Mr. BlackStar · 6. Dezember 2011, 11:26

Du kannst doch einen Wert erstellen, den die Schleife abfängt. Wenn der Wert auf False oder was auch immer steht wird die Schleife beendet. Resultat: Speicher wird nicht mehr belastet.

_PASCAL_ · 6. Dezember 2011, 11:30

Nein die schleife soll ja fertig laufen ... es ist nicht so dass die schleife nicht beendet wird.

mir fällt nur auf dass die Berechnung zum Ende immer länger dauert, dabei sind die zu berechnenden Teilstücke nicht größer als die am Anfang.

Da ich jetzt noch eine ungefähre Endzeit anzeigen will macht mir das zu schaffen. Ich Stoppe immer die Zeit wie lange eine Berechnung dauert und nehme davon den Durchschnitt ... diesen multipliziere ich dann mit den noch bevorstehenden Teilstücken ...

das funktioniert aber nicht richtig, da der Durchschnitt zum ende ja ansteigt da die Berechnung erheblich länger dauert.

Mr. BlackStar · 6. Dezember 2011, 11:44

Du kannst ja ein paar Brocken vom Code posten. Vielleicht können wir dir dann weiter helfen.

fichz · 6. Dezember 2011, 11:46

Generell auch:
Warum erstellst du immer wieder eine Neue Liste?
Und Code wär auch nett.

lg

_PASCAL_ · 7. Dezember 2011, 15:31

also das ist relativ viel ... hier mal die eigentliche funktion welche vom backgroundworker ausgeführt wird und 2 funktionen die aufgerufen werden.

speziell die "analyse" funktion wird recht langsam mit der zeit ...

über generelle rückmeldung bezüglich meines Programmierstiles würde ich mich auch freuen

VB.NET-Quellcode

Public Sub calculate()
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Exit Sub
active_mesGroup.data.Clear()
For Each File In calc_all_files
calc.ReportProgress(100 * (calc_all_files.IndexOf(File) / calc_all_files.Count), CalcState.Fraction)
Dim fractions As List(Of dataFraction) = calc_fractions(File)
If Not IsNothing(fractions) Then active_mesGroup.data.AddRange(fractions)
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Exit Sub
Next
If Not active_mesGroup.data.Count > 0 Then args.Cancel = True : args.Result = "Keine Daten zum berechnen gefunden" & vbNewLine & "Bitte überprüfen Sie ihre gewählten Einstellungen"
calc.ReportProgress(0, CalcState.Marker)
For Each mes In active_mesGroup.messurements
Select Case mes.type
Case MessType.FLANKE
calc_flanke(mes)
Case MessType.MIN
calc_max(mes)
Case MessType.MAX
calc_min(mes)
Case MessType.KONSTANT
calc_konst(mes)
End Select
Next
calc.ReportProgress(0, CalcState.AnalyseInit)
If active_mesGroup.fullmes Then
Dim del_frac As New List(Of dataFraction)
For Each frac In active_mesGroup.data
If Not frac.markers.Count = active_mesGroup.messurements.Count Then
del_frac.Add(frac)
End If
Next
For Each frac In del_frac
active_mesGroup.data.Remove(frac)
Next
End If
If Not active_mesGroup.data.Count > 0 Then args.Cancel = True : args.Result = "Keine Daten zum berechnen gefunden" & vbNewLine & "Bitte überprüfen Sie ihre gewählten Einstellungen"
analyse()
End Sub

VB.NET-Quellcode

Public Function calc_fractions(ByVal File As source_File, Optional ByVal index As Integer = 0) As List(Of dataFraction)
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
If File.channels.ContainsKey(active_mesGroup.data_channel.name) Then
Dim channel As channel = File.channels.Item(active_mesGroup.data_channel.name)
Dim Temp As SpecialList(Of XYPointPair) = Nothing
If File.Type = FileType.TMS Then
Temp = tms_read.read_Signal(File.Attributes.FullName, channel.group.index, channel.column)
Else
Temp = asc_read.read_Signal(File.Attributes.FullName, channel.group.index, channel.column)
End If
Dim fraction As New dataFraction
Dim active_fraction As Long = -1
Dim frac As List(Of dataFraction)
If active_mesGroup.fraction Then
frac = New List(Of dataFraction)
If Temp(0).Y > 0 Then
fraction.group = channel.group
frac.Add(fraction)
active_fraction += 1
End If
For i As Integer = 0 To Temp.Count - 2
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
If Temp(i).Y < 1 And Temp(i + 1).Y >= 1 Then
frac.Add(New dataFraction(channel.group))
active_fraction += 1
frac(active_fraction).DataPairList.Add(New XYPointPair(Temp(i)))
End If
If (active_fraction) < frac.Count AndAlso (active_fraction) >= 0 Then
If i > 1 Then
If Not Temp(i - 1).Y < 1 Then
frac(active_fraction).DataPairList.Add(New XYPointPair(Temp(i)))
End If
End If
End If
Next
Else
frac = New List(Of dataFraction)
frac.Add(New dataFraction(Temp, channel.group))
End If
Dim del_fractions As New List(Of dataFraction)
If active_mesGroup.limit > 0 Then
For Each fraction In frac
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
If fraction.DataPairList.Count > 0 Then
Dim y As Double = fraction.DataPairList.get_Y.Max
If y < active_mesGroup.limit Then
del_fractions.Add(fraction)
End If
End If
Next
End If
For Each fraction In frac
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
If active_mesGroup.data_channel.att_name Like "geschwindigkeit" Then
integrate(fraction)
End If
Next
If active_mesGroup.way_max > 0 Then
For Each fraction In frac
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
If fraction.DataPairList.Count > 0 Then
If fraction.way.Last.Y < active_mesGroup.way_min Or fraction.way.Last.Y > active_mesGroup.way_max Then
If Not del_fractions.Contains(fraction) Then
del_fractions.Add(fraction)
End If
End If
End If
Next
End If
For Each fraction In frac
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
If fraction.DataPairList.Count < 10 Then
If Not del_fractions.Contains(fraction) Then
del_fractions.Add(fraction)
End If
End If
Next
For Each databra In del_fractions
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Return Nothing
frac.Remove(databra)
Next
Return frac
End If
Return Nothing
End Function

VB.NET-Quellcode

Private Sub analyse()
Dim temp As XYPointPair
Dim index As Integer
Dim result As String = ""
Dim result2 As String = ""
For Each fraction As dataFraction In active_mesGroup.data
active_fraction = active_mesGroup.data.IndexOf(fraction)
For Each mes As messurement In active_mesGroup.messurements
For Each ca As calculate In mes.calculation
For Each mark As marker In fraction.markers
calc.ReportProgress(100 * ((active_fraction + 1) / active_mesGroup.data.Count), CalcState.Analyse)
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Exit Sub
If fraction.group.Parent.channels.ContainsKey((ca.column(0))) Then
If fraction.group.Parent.Type = FileType.TMS Then
temp = tms_read.read_Point(fraction.group.Parent, fraction.group.Parent.channels.Item(ca.column(0)), mark.MessPoint.X)
Else
temp = asc_read.read_Point(fraction.group.Parent, fraction.group.Parent.channels.Item(ca.column(0)), mark.MessPoint.X)
End If
index = temp.index
result = temp.Y
Else
Try
result = (CDbl(ca.column(0))).ToString
index = -1
Catch exx As Exception
result = ""
End Try
End If
Dim sc As New MSScriptControl.ScriptControl()
sc.Language = "VBScript"
For i As Integer = 1 To ca.column.Count - 1
If calc.CancellationPending Then args.Cancel = True : args.Result = "abbruch" : Exit Sub
If fraction.group.Parent.channels.ContainsKey((ca.column(i))) Then
If fraction.group.Parent.Type = FileType.TMS Then
temp = tms_read.read_Point(fraction.group.Parent, fraction.group.Parent.channels.Item(ca.column(i)), mark.MessPoint.X)
Else
temp = asc_read.read_Point(fraction.group.Parent, fraction.group.Parent.channels.Item(ca.column(i)), mark.MessPoint.X)
End If
result2 = temp.Y.ToString
Else
Try
result2 = (CDbl(ca.column(i))).ToString
Catch exx As Exception
result2 = ""
End Try
End If
Dim expr As String = result.ToString & ca.operators(i - 1) & result2
expr = Replace(expr, ",", ".")
result = sc.Eval(expr)
Next i
ca.result.Add(New result(Math.Round(CDbl(result), 3), fraction.group, index, active_mesGroup.data.IndexOf(fraction)))
Next mark
Next ca
Next mes
Next fraction
End Sub

Rinecamo · 7. Dezember 2011, 15:45

Im Sub Analyse(), hast du 5 For Schleifen geschachtelt (Und überhaupt (auch in anderen Subs) verdammt viele)

Ich weiß nicht wie viele Durchgänge die Schleifen haben, aber das dürfte der Grund sein, wieso dein Programm so langsam ist.

shutdown · 7. Dezember 2011, 15:46

Mach mal nich so viele Durchläufe

_PASCAL_ · 7. Dezember 2011, 16:17

ich weis dass es einige schleifen sind ... aber es geht nunmal nicht anders ... ich muss alles abarbeiten was in den listen steht.

es gibt so um die 200 Fractions

in jeder Fraction befinden sich ungefähr 500-600 einträge

und in diesen befinden sich zum schluss 0-3 marker welche alle berücksichtigt werden müssen

zu jedem marker wird er noch ein MessPunkt aus einer tms(TELLER MessDatei) oder asc(TXT File) benötigt was auch en bissl dauert
die read funktionen von den asc bzw tms dateien müssen sich mit bis zu 50000 einträgen herumschlagen wobei am ende nur ein punkt benötigt wird

wenn ihr mir eine schnellere lösung bzw ein anderen Grundgerüst empfehlen könnt könnt ich das vll umsetzen aber ich seh keine andere möglichkeit

VB.NET-Quellcode

Public Function read_Point(ByVal File As source_File, ByVal channel As channel, ByVal MessPoint As Double) As XYPointPair
Dim temp As New SpecialList(Of XYPointPair)
Dim SampleCount As UInt64
If (TilSetString(FileName, File.Attributes.FullName)) Then
Data_tms = TilGetProperty(Root, tilData)
Meas = TilGetProperty(Data_tms, tilDataMeas)
Meas0 = TilGetVectorItem(Meas, 0)
Groups = TilGetProperty(Meas0, tilDataMeasGroup)
nGroups = TilGetVectorSize(Groups)
Dim Group As IntPtr
Dim Signals As IntPtr
Dim nSignals As Integer
Dim SampleRate As Double
Dim Prop As IntPtr
Dim Info As IntPtr
Dim Time As IntPtr
Dim Time64 As IntPtr
Dim SignalData As IntPtr
Dim View As IntPtr
' Initialize property values
SampleCount = 0
SampleRate = 0
Group = TilGetVectorItem(Groups, channel.group.index)
Prop = TilGetProperty(Group, tilDataMeasGroupSampleRate)
TilGetUInt64(Prop, SampleRate)
Prop = TilGetProperty(Group, tilDataMeasGroupSampleCount)
TilGetUInt64(Prop, SampleCount)
Info = TilGetProperty(Group, tilDataMeasGroupInfo)
Dim f As IntPtr = TilGetProperty(Group, tilDataMeasGroup)
Dim test As String = GetTilString(f)
Time = TilGetProperty(Info, tilDataMeasGroupInfoTime)
Time64 = TilGetProperty(Time, tilDataMeasGroupInfoTimeHWReadOut)
Signals = TilGetProperty(Group, tilDataMeasGroupSignal)
nSignals = TilGetVectorSize(Signals)
Dim Signal As IntPtr
Dim Comm As IntPtr
Signals = TilGetProperty(Group, tilDataMeasGroupSignal)
nSignals = TilGetVectorSize(Signals)
Samples = New Double(1)() {}
Samples(0) = New Double(SampleCount - 1) {}
Signal = TilGetVectorItem(Signals, 0)
Comm = TilGetProperty(Signal, tilDataMeasGroupSignalComm)
SignalData = TilGetProperty(Signal, tilDataMeasGroupSignalData)
View = TilGetProperty(Signal, tilDataMeasGroupSignalView)
Prop = TilGetProperty(SignalData, tilDataMeasGroupSignalDataIterator)
If (Prop) Then
' Note, the iterator property may not exist for data type dt_f80 on Windows x64 platforms
TilGetNextDoubleIteratorItems(Prop, Samples(0), SampleCount)
temp.set_X(Samples(0))
End If
Samples(1) = New Double(SampleCount - 1) {}
Signal = TilGetVectorItem(Signals, channel.column)
Comm = TilGetProperty(Signal, tilDataMeasGroupSignalComm)
SignalData = TilGetProperty(Signal, tilDataMeasGroupSignalData)
View = TilGetProperty(Signal, tilDataMeasGroupSignalView)
Prop = TilGetProperty(SignalData, tilDataMeasGroupSignalDataIterator)
If (Prop) Then
' Note, the iterator property may not exist for data type dt_f80 on Windows x64 platforms
TilGetNextDoubleIteratorItems(Prop, Samples(1), SampleCount)
temp.set_Y(Samples(1))
End If
End If
Return temp.get_XY(MessPoint)
End Function

VB.NET-Quellcode

Public Function read_Point(ByVal File As source_File, ByVal channel As channel, ByVal MessPoint As Double) As XYPointPair
Dim x As Double
Dim y As Double
Dim reader_stream As New StreamReader(File.get_Path)
reader_stream.ReadLine()
reader_stream.ReadLine()
Dim signal_index As Short = File.channels(channel.name).column
Dim buffer As String()
Dim result As New SpecialList(Of XYPointPair)
Do While Not reader_stream.EndOfStream
buffer = reader_stream.ReadLine.Split(vbTab)
x = CDbl(buffer(0))
y = CDbl(buffer(signal_index))
result.Add(New XYPointPair(x, y))
Loop
Return result.get_XY(MessPoint)
End Function

Programm wird langsamer

Programm wird langsamer

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Durchläufe

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben