Commit bc4bd440 authored by Dorchies David's avatar Dorchies David
Browse files

fix(TransfoParam_LLR: extend range for parameter K0

parent 92f3512b
No related merge requests found
Showing with 3 additions and 3 deletions
+3 -3
...@@ -18,17 +18,17 @@ TransfoParam_LLR <- function(ParamIn, Direction) { ...@@ -18,17 +18,17 @@ TransfoParam_LLR <- function(ParamIn, Direction) {
stop(sprintf("the Lag & Route model requires %i parameters", NParam)) stop(sprintf("the Lag & Route model requires %i parameters", NParam))
} }
## Transformation prévue pour de l'horaire.
## transformation ## transformation
if (Direction == "TR") { if (Direction == "TR") {
ParamOut <- ParamIn ParamOut <- ParamIn
ParamOut[, 1] <- 20 * (ParamIn[, 1] + 10) / 20.0 ParamOut[, 1] <- 20 * (ParamIn[, 1] + 10) / 20.0
ParamOut[, 2] <- 20 * (ParamIn[, 2] + 10) / 20.0 ParamOut[, 2] <- 2 * (ParamIn[, 2] + 10) / 20.0
} }
if (Direction == "RT") { if (Direction == "RT") {
ParamOut <- ParamIn ParamOut <- ParamIn
ParamOut[, 1] <- ParamIn[, 1] * 20.0 / 20 - 10 ParamOut[, 1] <- ParamIn[, 1] * 20.0 / 20 - 10
ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 20 - 10 ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 2 - 10
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment