blob: 81920a9a5ae3c82794fdfe4f8081b04b43398cf1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# AELOGR -- Inverse of the elogr function.
real procedure aelogr (x)
real x
begin
if (x > 1.0)
return (10.0 ** x)
else if (x >= -1.0)
return (x * 10.0)
else
return (-(10.0 ** (-x)))
end
|
