[chronojump] fixed wrong power in ROTARYAXISINERTIALLATERAL

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

commit e9f1ee6a56ab09fbd7edc037a47140895d2d6f2b
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Jul 15 18:34:39 2015 +0200

    fixed wrong power in ROTARYAXISINERTIALLATERAL

 encoder/util.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/util.R b/encoder/util.R
index ac2adf3..e7426d7 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -764,7 +764,7 @@ getDynamicsInertial <- function(encoderConfigurationName, displacement, diameter
     anglePush = 0 #TODO: send from C#
     #1.5.1
     force = abs(inertiaMomentum * angleAccel) * (2 / diameter.m) + mass * accel
-    power = abs((inertiaMomentum * angleAccel) * angleSpeed) + mass * accel * speed
+    power = abs((inertiaMomentum * angleAccel) * angleSpeed) + abs(mass * accel * speed)
     #1.5.2
     #force = inertiaMomentum * angleAccel * (2 / diameter.m) + mass * accel
     #power = abs((inertiaMomentum * angleAccel) * angleSpeed) + mass * accel * speed