From 456d4eb51c7381f0b3ea4b57ebe422621a233c84 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Tue, 2 Aug 2022 15:46:42 +0200
Subject: [PATCH] refactor(TransfoParam_LRQ): extend range of K to [0;500000]
Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153
---
R/TransfoParam_LRQ.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/TransfoParam_LRQ.R b/R/TransfoParam_LRQ.R
index 99572f8..5400ee6 100644
--- a/R/TransfoParam_LRQ.R
+++ b/R/TransfoParam_LRQ.R
@@ -23,12 +23,12 @@ TransfoParam_LRQ <- function(ParamIn, Direction) {
if (Direction == "TR") {
ParamOut <- ParamIn
ParamOut[, 1] <- 20 * (ParamIn[, 1] + 10) / 20.0
- ParamOut[, 2] <- 20 * (ParamIn[, 2] + 10) / 20.0
+ ParamOut[, 2] <- 500000 * (ParamIn[, 2] + 10) / 20
}
if (Direction == "RT") {
ParamOut <- ParamIn
ParamOut[, 1] <- ParamIn[, 1] * 20.0 / 20 - 10
- ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 20 - 10
+ ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 500000 - 10
}
--
GitLab