57 lines
1.4 KiB
R
57 lines
1.4 KiB
R
|
#' @title Logml to string
|
||
|
|
#' @description Returns a string representation of a logml
|
||
|
|
#' @param logml input Logml
|
||
|
|
#' @return String version of logml
|
||
|
|
#' @export
|
||
|
|
logml2String <- function(logml) {
|
||
|
|
# Palauttaa logml:n string-esityksen.
|
||
|
|
mjono = ' '
|
||
|
|
|
||
|
|
if (logml == -Inf) {
|
||
|
|
mjono[7] <- '-'
|
||
|
|
return(mjono)
|
||
|
|
}
|
||
|
|
|
||
|
|
if (abs(logml) < 10000) {
|
||
|
|
# Ei tarvita e-muotoa
|
||
|
|
mjono[7] <- palautaYks(abs(logml), -1)
|
||
|
|
mjono[6] <- '.'
|
||
|
|
mjono[5] <- palautaYks(abs(logml), 0)
|
||
|
|
mjono[4] <- palautaYks(abs(logml), 1)
|
||
|
|
mjono[3] <- palautaYks(abs(logml), 2)
|
||
|
|
mjono[2] <- palautaYks(abs(logml), 3)
|
||
|
|
pointer <- 2
|
||
|
|
while (mjono[pointer] == '0' & pointer < 7) {
|
||
|
|
mjono[pointer] <- ' '
|
||
|
|
pointer <- pointer + 1
|
||
|
|
}
|
||
|
|
if (logml < 0) {
|
||
|
|
mjono[pointer - 1] <- '-'
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
suurinYks <- 4
|
||
|
|
while (abs(logml) / (10 ^ (suurinYks + 1)) >= 1) {
|
||
|
|
suurinYks <- suurinYks + 1
|
||
|
|
}
|
||
|
|
if (suurinYks < 10) {
|
||
|
|
mjono[7] <- as.character(suurinYks)
|
||
|
|
mjono[6] <- 'e'
|
||
|
|
mjono[5] <- palautaYks(abs(logml), suurinYks - 1)
|
||
|
|
mjono[4] <- '.'
|
||
|
|
mjono[3] <- palautaYks(abs(logml), suurinYks)
|
||
|
|
if (logml < 0) {
|
||
|
|
mjono[2] <- '-'
|
||
|
|
}
|
||
|
|
} else if (suurinYks >= 10) {
|
||
|
|
mjono[6:7] <- as.character(suurinYks)
|
||
|
|
mjono[5] <- 'e'
|
||
|
|
mjono[4] <- palautaYks(abs(logml), suurinYks - 1)
|
||
|
|
mjono[3] <- '.'
|
||
|
|
mjono[2] <- palautaYks(abs(logml), suurinYks)
|
||
|
|
if (logml < 0) {
|
||
|
|
mjono[1] <- '-'
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(mjono)
|
||
|
|
}
|