[chronojump] Fixed 1RM Badillo squat

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

commit bc6acaad3386c14e9d38d408479032fe7cdf60d4
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Mar 29 18:16:53 2017 +0200

    Fixed 1RM Badillo squat

 encoder/graph.R |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 4c1745b..442baf5 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1983,9 +1983,9 @@ paint1RMBadilloExercise <- function (exercise, paf, title, outputData1)
        for(i in 1:length(loadPercentCalc))
               if(loadPercentCalc[i] < 0)
                       loadPercentCalc[i] = NA
-
-       loadCalcTotal <- 100 * curvesLoadTotal / loadPercentCalc
-       loadCalcExtra <- loadCalcTotal - (curvesLoadTotal - curvesLoadExtra)
+        
+       #Isolating loadCalcExtra from loadPercentCalc = 100 * curvesLoadExtra / loadCalcExtra we have:
+       loadCalcExtra <- 100 * curvesLoadExtra / loadPercentCalc
 
        #for calculations take only the curves slower or == than 1.33
        curvesSpeedInIntervalPos = which(curvesSpeed <= max(msp))