MathGroup Archive 2005

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

Search the Archive

Re: Looking for Window Version of "Factorization.m" program

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53507] Re: [mg53500] Looking for Window Version of "Factorization.m" program
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sat, 15 Jan 2005 01:44:06 -0500 (EST)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Factorization[n_, opts___] :=
    Times@@(FactorInteger[n,opts] /.
          {x_,y_} :> HoldForm[x^y]);

n=2400;

Factorization[n]

HoldForm[2^5]*HoldForm[3^1]*HoldForm[5^2]

n==ReleaseHold[%]

True

Factorization[n, GaussianIntegers->True]

HoldForm[I^1]*HoldForm[(1 + I)^10]*HoldForm[(1 + 2*I)^2]*
  HoldForm[(2 + I)^2]*HoldForm[3^1]

n==ReleaseHold[%]

True

n=6+8*I;

Factorization[n]

HoldForm[(-I)^1]*HoldForm[(1 + I)^2]*HoldForm[(2 + I)^2]

n==ReleaseHold[%]

True


Bob Hanlon

> 
> From: "Gilmar" <gilmar.rodriguez at nwfwmd.state.fl.us>
To: mathgroup at smc.vnet.net
> Date: 2005/01/14 Fri AM 08:55:02 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg53507] [mg53500] Looking for Window Version of "Factorization.m" 
program
> 
> I'm attempting to use the program "Factorization" available at:
> 
> http://forums.wolfram.com/mathgroup/archive/1995/Apr/
msg00109.html.
> 
> After copying the file "Factorization.m" into the directory:
> 
> "C:\Program Files\Wolfram
> Research\Mathematica\5.1\AddOns\StandardPackages\NumberTheory"
> 
> and calling the program via:
> 
> <<NumberTheory`Factorization`
> 
> Mathematica gives me a string of messages:
> "SetDelayed::Write : Tag  Cos in Cos[Pix_Factorization]
> is Protected".
> 
> When I inspect the code in Factorization.m, I find that
> this program is built for the Macinstosh.  The author
> is no longer available at his e-mail address.
> 
> Does anyone have a Windows version of this program?
> 
> The program gives the prime decomposition of an integer
> in terms of powers of primes in the attractive form:
> 
> Factorization[n] =(p1^a1)*(p2^a2)*...(pn^an)
> 
> rather than the form given by "FactorInteger[n]"; namely,
> n ={{p1,a1},{p2,a2},...{pn,an}}.  Factorization[n] is also
> capable of producing a similar factorization for a Complex
> number.
> 
> Thank you for your help!
> 
> 


  • Prev by Date: Re: Re: Indexing a notebook library
  • Next by Date: Re: importing mat format doesn't import variable names
  • Previous by thread: Re: Looking for Window Version of "Factorization.m" program
  • Next by thread: Re: Re: Looking for Window Version of "Factorization.m" program