On my system,
Maxima version: 5.9.0rc1
Maxima build date: 11:40 9/3/2002
host type: i686-pc-linux-gnu
lisp-implementation-type: Kyoto Common Lisp
lisp-implementation-version: GCL-2-5.0
Stavros Macrakis test looks a little different:
tests: [%E,%PI,2^(3/4),SIN(2),%E^(3/2),3^%E/2^%E,a[FIX(SQRT(5))]];
***** SIN(2)^%PI is missing here *****
flotest(r) := [EV(r, NUMER),
EV(r, FLOAT),
EV(r, FLOAT, NUMER),
EV(r, BFLOAT),
FLOAT(r),
BFLOAT(r)];
fpprec:4;
gives
%E
%E 3.142 1.682 0.91 4.482 0.15 3 a
2
%E
3
%E %PI 1.682 SIN(2) 4.482 --- a
%E 2
2
%E
%E 3.142 1.682 0.91 4.482 0.15 3 a
2
2.718B0 3.142B0 1.682B0 9.093B-1 4.482B0 3.01B0 a
ENTIER(SQRT(5)) ]
%E
3.0
2.718 3.142 1.682 0.91 4.482 ----- a
%E ENTIER(SQRT(5)) ]
2.0
2.718B0 3.142B0 1.682B0 9.093B-1 4.482B0 3.01B0 a
ENTIER(SQRT(5)) ]
that is: float() evaluates %E, %PI, %E^(3/2) and changes fix to entier
tests: [SIN(2)^%PI];
flotest(r) := [EV(r, NUMER), EV(r, FLOAT), EV(r, FLOAT, NUMER), FLOAT(r)];
***** BFLOAT is missing here ********
gives
[ 0.74 ]
[ ]
[ %PI ]
[ SIN (2) ]
(D51) [ ]
[ 0.74 ]
[ ]
[ %PI ]
[ 0.91 ]
which is the same as Stavros Macrakis got,
but seems to hang on ev(r, bfloat) and bfloat(r)...
Martin