[chronojump] fixing force calculus for force. WIP

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

commit 972b7e2230612328d5f2cf8711ec81a96bade3d6
Author: Xavier Padullés <x padulles gmail com>
Date:   Thu Apr 16 15:27:46 2015 +0200

    fixing force calculus for force. WIP

 encoder/util.R |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)
---
diff --git a/encoder/util.R b/encoder/util.R
index 93d3e1b..b72fde6 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -622,6 +622,12 @@ getDynamics <- function(encoderConfigurationName,
 #mass extra can be connected to body or connected to a pulley depending on encoderConfiguration
 getDynamicsNotInertial <- function(encoderConfigurationName, speed, accel, mass, exercisePercentBodyWeight, 
gearedDown, anglePush, angleWeight) 
 {
+  #TODO getDynamicsNotInertial needs massBody, massExtra, alpha, and beta in order to calcule the
+  #force in inclinated planes with different push angles
+  
+  #if(encoderConfigurationName == "LINEARONPLANEWEIGHTDIFFANGLE") {
+  #  force <- massBody*accel + massBody*g*sin(alpha) + extraMass(g*sin(beta) + accel)
+  #}
        force <- mass*(accel+g) #g:9.81 (used when movement is against gravity)
 
        power <- force*speed