Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53530] Re: [mg53507] Re: [mg53500] Looking for Window Version of "Factorization.m" program
  • From: DrBob <drbob at bigfoot.com>
  • Date: Sat, 15 Jan 2005 21:08:10 -0500 (EST)
  • References: <200501150644.BAA25311@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

Here's a mod to my earlier post that makes exponents add in multiplied factorForms:

factorForm[i_Integer] := Times @@ Power @@@ (FactorInteger@i /. {
     x_Integer, y_Integer} -> {HoldForm[x], y})
TableForm[Array[
           Random[Integer, 100000] &, {3, 2}] /. x_Integer -> x ==
              factorForm@x]

factorForm[2400]
factorForm[2500]
factorForm[2400] factorForm[2500]

HoldForm[2]^5*HoldForm[3]*HoldForm[5]^2
HoldForm[2]^2*HoldForm[5]^4
HoldForm[2]^7*HoldForm[3]*HoldForm[5]^6

Bobby

On Sat, 15 Jan 2005 01:44:06 -0500 (EST), Bob Hanlon <hanlonr at cox.net> wrote:

> 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: [mg53530] [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!
>>
>>
>
>
>
>



-- 
DrBob at bigfoot.com
www.eclecticdreams.net


  • Prev by Date: Re: The strange behaviour of NIntegrate
  • Next by Date: LegendreP -- up to which order?
  • Previous by thread: Re: Looking for Window Version of "Factorization.m" program
  • Next by thread: Problem with DSolve