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.....