[Date Index]
[Thread Index]
[Author Index]
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.....**
| |