MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Automatic expansion of Log[a^n] for a, n explicit positive integers?


Here are two alternatives depending on how you want the function to behave 
for other cases.

loga[b_:E, x_Integer?Positive] := 
    Plus @@ (#[[2]]*Log[b, #[[1]]]& /@ FactorInteger[x]);
loga[b_:E, x_] := Log[b, x];

logb[b_:E, x_Integer?Positive] := Module[{fi = FactorInteger[x]}, 
      If[Length[fi] == 1, fi[[1,2]]*Log[b, fi[[1,1]]], Log[b, x]]];
logb[b_:E, x_] := Log[b, x];

Table[{k, loga[k], logb[k]}, {k, 10}] // TableForm


Bob Hanlon

In a message dated 2001/4/3 2:46:08 AM, anlauf at hep.tu-darmstadt.de writes:

>is there a way to force Mathematica 4.0 to always expand expressions like
>
>Log[4], Log[8], Log[16], etc. to 2*Log[2] etc.
>
>automatically?
>
>It is very annoying to have such logarithms expanded manually each
>time they pop up again...
>
>PowerExpand[] apparently does not help/work.
>


  • Prev by Date: Re: Special Matrix
  • Next by Date: Re: Special Matrix
  • Previous by thread: Re: Automatic expansion of Log[a^n] for a,n explicit positive integers?
  • Next by thread: Re: Plotting a function of x and y