[chronojump] Added -g on inclinated plane propulsiveEnd

[Xavier de Blas <xaviblas src gnome org>]

commit c1a9d3c2149d7f574afceaebfe547966c50ca453
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Sep 30 12:47:13 2014 +0200

    Added -g on inclinated plane propulsiveEnd

 encoder/graph.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 3b0e308..f964000 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -551,7 +551,7 @@ findPropulsiveEnd <- function(accel, concentric, maxSpeedTInConcentric,
                massBodyUsed <- getMassBodyByExercise(massBody, exercisePercentBodyWeight)
                
                #propulsive phase ends at: [massBodyUsed*sin(anglePush) + massExtra*sin(angleWeight)] / 
(massBodyUsed + massExtra)
-               propulsiveEndsAt <- (massBodyUsed * sin(anglePush * pi / 180) + massExtra * sin(angleWeight * 
pi / 180)) / (massBodyUsed + massExtra)
+               propulsiveEndsAt <- -g * (massBodyUsed * sin(anglePush * pi / 180) + massExtra * 
sin(angleWeight * pi / 180)) / (massBodyUsed + massExtra)
        }
 
        if(length(which(accel[concentric] <= propulsiveEndsAt)) > 0) {