[chronojump] sprintEncoder 5m segments no more hardcoded
- From: Xavier de Blas <xaviblas src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [chronojump] sprintEncoder 5m segments no more hardcoded
- Date: Fri, 2 Oct 2020 15:28:04 +0000 (UTC)
commit b52d884e7008a971a8f1b2a7b373ca1fba6ff107
Author: Xavier de Blas <xaviblas gmail com>
Date: Fri Oct 2 17:27:40 2020 +0200
sprintEncoder 5m segments no more hardcoded
r-scripts/sprintEncoder.R | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index d6a62782..c840d9e4 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -313,8 +313,9 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics,
#Plotting rawSpeed
ylimits = c(0, sprintRawDynamics$rawVmax*1.05)
xlimits =c(0, sprintRawDynamics$time[sprintRawDynamics$endSample])
- #Calculing 5m lap times
- splitPosition = min(sprintRawDynamics$testLength, 5)
+ #Calculing 5m lap times, this will be configurable as an exercise
+ segmentMeters = 5
+ splitPosition = min(sprintRawDynamics$testLength, segmentMeters)
splitTime =
interpolateXAtY(sprintRawDynamics$time[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
sprintRawDynamics$rawPosition[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
splitPosition)
@@ -322,9 +323,9 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics,
meanForce =getMeanValue(sprintRawDynamics$time, sprintRawDynamics$rawForce,
sprintRawDynamics$time[sprintRawDynamics$startSample], splitTime)
meanPower =getMeanValue(sprintRawDynamics$time, sprintRawDynamics$rawPower,
sprintRawDynamics$time[sprintRawDynamics$startSample], splitTime)
- while(splitPosition[length(splitPosition)] + 5 < sprintRawDynamics$testLength)
+ while(splitPosition[length(splitPosition)] + segmentMeters < sprintRawDynamics$testLength)
{
- splitPosition = c(splitPosition, splitPosition[length(splitPosition)] + 5)
+ splitPosition = c(splitPosition, splitPosition[length(splitPosition)] + segmentMeters)
splitTime = c(splitTime,
interpolateXAtY(sprintRawDynamics$time[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
sprintRawDynamics$rawPosition[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
splitPosition[length(splitPosition)]))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]