Commit ef08ae63 authored by unknown's avatar unknown
Browse files

v1.0.5.20 function TransfoParam_GR1A() cleaned

parent c13806c6
...@@ -13,7 +13,7 @@ TransfoParam_GR1A <- function(ParamIn, Direction) { ...@@ -13,7 +13,7 @@ TransfoParam_GR1A <- function(ParamIn, Direction) {
} }
if (Direction == "TR") { if (Direction == "TR") {
ParamOut <- (ParamIn + 10.0) / 8 ParamOut <- (ParamIn + 10.0) / 8
} }
if (Direction == "RT") { if (Direction == "RT") {
ParamOut <- ParamIn * 8 - 10.0 ParamOut <- ParamIn * 8 - 10.0
......
Markdown is supported
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