Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*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 2006

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

Search the Archive

Re: Factor.....

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70959] Re: Factor.....
  • From: "dimitris" <dimmechan at yahoo.com>
  • Date: Fri, 3 Nov 2006 01:39:02 -0500 (EST)
  • References: <eicnmq$g3i$1@smc.vnet.net>

Unfortunately I could not get what you want with the built-in function Factor.
I hope someone else succeed.

Anyway here is my solution

Clear[f, x, y, myfactor]

myfactor[f_, x_] := Times @@ Apply[Plus, Solve[f == 0, x], 2]

f[A_, y_] := A^4 + 3 + y^2

(myfactor[f[A, y], #1] & ) /@ Variables[f[A, y]]

{(A - (-3 - y^2)^(1/4))*(A - I*(-3 - y^2)^(1/4))*(A + I*(-3 -
y^2)^(1/4))*(A + (-3 - y^2)^(1/4)),
(-Sqrt[-3 - A^4] + y)*(Sqrt[-3 - A^4] + y)}

Regards
Dimitris

gtsavdar at auth.gr wrote:
> How can i factor A^4 + 3 + y^2 (A,y reals) for example with
> Mathematica.....?
>
>
> (
> In order to have:
> (A^2 + SQRT(y^2+3) + A·SQRT(2*SQRT(y^2+3))) · (A^2 + SQRT(y^2+3) -
> A·SQRT(2*SQRT(y^2+3)))
> )
>
> (
> OR:
> (y^2 - i·SQRT(A^4+3)) · (y^2 + i·SQRT(A^4+3))
> )
> 
> 
> Thanks....


  • Prev by Date: Re: Context
  • Next by Date: run jsp in webMathematica from Workbench?
  • Previous by thread: Re: Factor.....
  • Next by thread: Re: Factor.....