[chronojump] Legends using unicode characters
- From: Xavier Padullés <xpadulles src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [chronojump] Legends using unicode characters
- Date: Mon, 9 Dec 2019 16:43:08 +0000 (UTC)
commit 647a67235fad8c4ab88493f217484246951687be
Author: Xavier Padullés <x padulles gmail com>
Date: Mon Dec 9 17:42:00 2019 +0100
Legends using unicode characters
r-scripts/maximumIsometricForce.R | 3 +--
r-scripts/sprintEncoder.R | 7 +++++--
r-scripts/sprintPhotocells.R | 7 ++++---
3 files changed, 10 insertions(+), 7 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 3d850894..e3efe5c7 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -410,9 +410,8 @@ drawDynamicsFromLoadCell <- function(
legendText = c(
paste("Fmax =", round(dynamics$fmax.fitted, digits = 2), "N"),
- #paste("K = ", round(dynamics$k.fitted, digits = 2),"s^-1"),
paste("K = ", round(dynamics$k.fitted, digits = 2),"s\u207B\u00B9"),
- paste("tau = ", round(dynamics$tau.fitted, digits = 2),"s")
+ paste("\u03C4 = ", round(dynamics$tau.fitted, digits = 2),"s")
)
legendColor = c("blue", "blue", "blue")
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index a4ea5b5e..d744fde5 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -438,10 +438,13 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics, title
legendText = c(legendText, paste("Vmax.fitted =", round(sprintFittedDynamics$Vmax.fitted, digits =
2), "m/s"))
legendColor = c(legendColor, "black")
- legendText = c(legendText, paste("K =", round(sprintFittedDynamics$K.fitted, digits = 2), "s⁻¹"))
+ legendText = c(legendText, paste("K =", round(sprintFittedDynamics$K.fitted, digits = 2),
"s\u207B\u00B9"))
legendColor = c(legendColor, "black")
- legendText = c(legendText, paste("Amax.fitted =", round(max(sprintFittedDynamics$amax.fitted),
digits = 2), "m/s^2"))
+ legendText = c(legendText, paste("\u03C4 =", round(1/sprintFittedDynamics$K.fitted, digits = 2),
"s"))
+ legendColor = c(legendColor, "black")
+
+ legendText = c(legendText, paste("Amax.fitted =", round(max(sprintFittedDynamics$amax.fitted),
digits = 2), "m/s\u00b2"))
legendColor = c(legendColor, "magenta")
legendText = c(legendText, paste("Fmax.fitted =", round(sprintFittedDynamics$fmax.fitted, digits =
2), "N"))
diff --git a/r-scripts/sprintPhotocells.R b/r-scripts/sprintPhotocells.R
index 1f50bee7..08a590df 100644
--- a/r-scripts/sprintPhotocells.R
+++ b/r-scripts/sprintPhotocells.R
@@ -185,10 +185,11 @@ drawSprintFromPhotocells <- function(sprintDynamics, splitTimes, positions, titl
legend (x = time[length(time)], y = sprintDynamics$pmax.fitted / 2,
xjust = 1, yjust = 0.5, cex = 1,
legend = c(paste("K =", round(sprintDynamics$K.fitted, digits = 2)),
+ paste("\u03C4 =", round(1/sprintDynamics$K.fitted, digits = 2), "s"),
paste("Vmax =", round(sprintDynamics$Vmax.fitted, digits = 2), "m/s"),
- paste("Amax =", round(sprintDynamics$amax.fitted, digits = 2), "m/s²"),
- paste("fmax =", round(sprintDynamics$fmax.rel.fitted, digits = 2), "N/Kg"),
- paste("pmax =", round(sprintDynamics$pmax.rel.fitted, digits = 2), "W/Kg")),
+ paste("Amax =", round(sprintDynamics$amax.fitted, digits = 2), "m/s\u00b2"),
+ paste("fmax =", round(sprintDynamics$fmax.rel.fitted, digits = 2), "N/kg"),
+ paste("pmax =", round(sprintDynamics$pmax.rel.fitted, digits = 2), "W/kg")),
text.col = c("black", "black", "magenta", "blue", "red"))
exportSprintDynamics(sprintDynamics)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]