[chronojump] In inertial, eccentric phase as positive work

[Xavier Padullés <xpadulles src gnome org>]

commit cf923e68f20b9b9e19a3966265ad78a9d50ff48e
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Sep 28 12:09:05 2020 +0200

    In inertial, eccentric phase as positive work

 encoder/util.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/encoder/util.R b/encoder/util.R
index 91677dab..26aed2dc 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -800,7 +800,7 @@ pafGenerate <- function(eccon, kinematics, massBody, massExtra, laterality, iner
                                          abs(cumsum(kinematics$displ))[length(cumsum(kinematics$displ))] / 
1000 #position displaced in m
                                          ) + .5*((kinematics$speedy[lastValue])^2 - 
(kinematics$speedy[1])^2) )
        if(inertiaMomentum > 0) #if is not inertial Roptions has a -1
-               workJ = workJ + .5 * inertiaMomentum * ( (kinematics$speedyangular[lastValue])^2 - 
(kinematics$speedyangular[1]^2) )
+               workJ = workJ + .5 * inertiaMomentum * abs( (kinematics$speedyangular[lastValue])^2 - 
(kinematics$speedyangular[1]^2) )
 
        #print ("workJ decomposed:")
        #print (workJ)