refactor(TransfoParam_LRQ): extend range of K to [0;500000]

Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153

refactor(TransfoParam_LRQ): extend range of K to [0;500000]
Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153
456d4eb5 · Dorchies David · 9eab0a15 · 456d4eb5
Commit 456d4eb5 authored 2 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- 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
  }