Topic
Speeding up running average calculations
Page d'accueil ' Communauté ' Automation et VBA ' Relever les calculs de la moyenne courante
- Ce sujet contient 3 réponses, 2 participants et a été mis à jour pour la dernière fois par Norbert Bakkers, le il y a 21 années et 3 mois.
-
AuteurMessages
-
18.02.2004 à 20:53 #35056Norbert BakkersParticipant
During execution of a programme, the running average of a dataset seems to take a very long time to calculate.
I first tried to get the code to program a running average by recording a macro and to use it in a modified form in my own code. The problem is that I can record it but I can not execute the macro. It crashes on the line that sets the ‘Interval width’ => ‘WindowSize’.
This is the recorded macro:
ActiveDatabase.ActiveFolder.Object(“Mean”).Select False
ActiveDatabase.ActiveFolder.Object(“Mean”).Select
ActiveDatabase.SelectedObject.WindowSize = 500
Application.UpdateAllTherefore I use the following formula:
.Formula = “Mean(‘DataSet’ ,MEAN_ARITHMETIC + CALC_RUNNING, 500)”This works but is very slow for bigger datasets, especially if the averaging window is big. Is there any way of speeding up this process?
18.02.2004 à 23:57 #35054Bernhard KantzParticipantThe macro stops with an error because the generated code is not correct. We will remove this issue. The correct code should be:
[code]
ActiveDatabase.SelectedObject.SmoothingWidth = 500
[/code]
An alternative to the mean function is the smooth function respectively the Signal Smoothing Analysis Object. This method uses a faster linear algorithm.
The result of
[code]
Mean(‘DataSet’ ,MEAN_ARITHMETIC + CALC_RUNNING, 501)”
[/code]
and
[code]
Smooth(‘DataSet’ ,250)”
[/code]
is similar.
When the smoothing is calculated, there are insufficient left and right neighbours available for the first or last SmoothingWidth values in DataSet. Unlike the mean function these values are then equated to the first or last value in DataSet.Refer to the online help for more information.
19.02.2004 à 02:10 #35055Norbert BakkersParticipantThanks.
Using the Smooth function instead of the running average function speeds the process up by almost a factor of 10 !!19.02.2004 à 02:20 #35053Norbert BakkersParticipantDuring execution of a programme, the running average of a dataset seems to take a very long time to calculate.
I first tried to get the code to program a running average by recording a macro and to use it in a modified form in my own code. The problem is that I can record it but I can not execute the macro. It crashes on the line that sets the ‘Interval width’ => ‘WindowSize’.
This is the recorded macro:
ActiveDatabase.ActiveFolder.Object(“Mean”).Select False
ActiveDatabase.ActiveFolder.Object(“Mean”).Select
ActiveDatabase.SelectedObject.WindowSize = 500
Application.UpdateAllTherefore I use the following formula:
.Formula = “Mean(‘DataSet’ ,MEAN_ARITHMETIC + CALC_RUNNING, 500)”This works but is very slow for bigger datasets, especially if the averaging window is big. Is there any way of speeding up this process?
-
AuteurMessages
- Vous devez être connecté pour répondre à ce sujet.