[chronojump] MIF. Fixed fitted average RFD
- From: Xavier Padullés <xpadulles src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [chronojump] MIF. Fixed fitted average RFD
- Date: Wed, 11 Oct 2017 10:16:03 +0000 (UTC)
commit 94ad5e2556f2fca406ad680f85487eba86ce53c3
Author: Xavier Padullés <x padulles gmail com>
Date: Wed Oct 11 12:13:31 2017 +0200
MIF. Fixed fitted average RFD
r-scripts/maximumIsometricForce.R | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index c446326..0ddbdaa 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -440,9 +440,10 @@ drawDynamicsFromLoadCell <- function(
if (RFDoptions$rfdFunction == "FITTED")
{
#Slope of the line
- RFD = dynamics$fmax.fitted*(exp( -dynamics$k.fitted *
RFDoptions$start) - exp( -dynamics$k.fitted * RFDoptions$end)) / (RFDoptions$end - RFDoptions$start)
+ RFD = dynamics$fmax.fitted*(exp( -dynamics$k.fitted *
RFDoptions$start/1000) - exp( -dynamics$k.fitted * RFDoptions$end/1000)) / (RFDoptions$end/1000 -
RFDoptions$start/1000)
#Y coordinate of a point of the line
- pointForce1 = dynamics$fmax.fitted*(1 - exp( -dynamics$k.fitted *
RFDoptions$start)) + dynamics$initf
+ pointForce1 = dynamics$fmax.fitted*(1 - exp( -dynamics$k.fitted *
RFDoptions$start/1000)) + dynamics$initf
+ pointForce2 = dynamics$fmax.fitted*(1 - exp( -dynamics$k.fitted *
RFDoptions$end/1000)) + dynamics$initf
legendText = c(legendText, paste("RFD", RFDoptions$start, "-",
RFDoptions$end, " = ", round(RFD, digits = 1), " N/s", sep = ""))
legendColor = c(legendColor, "blue")
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]