Re: Executing function on Mathematica 8
- To: mathgroup at smc.vnet.net
- Subject: [mg124693] Re: Executing function on Mathematica 8
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Wed, 1 Feb 2012 03:47:02 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Dear mathematica members,
I am new to mathematica and do not know how to enter the following
function and then call it on mathematica 8:
BinExp[num_,d_] := Module[{n,L},
If[d > $MaxPrecision, $MaxPrecision = d];
n = N[num,d];
L = First[RealDigits[n,2]]
];
Any help is appreciated,
Best Regards,
Fadi Abu-Amara
Hi, Fadi,
I think the problem is that the default value returned by $MaxPrecision is Infinity. Thus, d is always smaller than $MaxPrecision unless, of course, you have fixed the value of $MaxPrecision somewhere before. What about the following function:
binExp[num_, d_] := First[RealDigits[N[num, d], 2]];
binExp[3.1415926324, 3]
{1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, \
0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, \
0, 1, 1, 0, 1, 0, 0}
??
Have fun, Alexei
Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG
Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu<mailto:alexei.boulbitch at iee.lu>