Help needed
- To: mathgroup at smc.vnet.net
- Subject: [mg132036] Help needed
- From: Artur <grafix at csl.pl>
- Date: Wed, 20 Nov 2013 06:24:30 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- Reply-to: grafix at csl.pl
Dear Mathematica Gurus!
Who have good computer with big RAM memory and will be able to help me
solve following 13 eq with 13 variables (my computer have 8MB and it is
not sufficient). If You will be reached some result write to me
privately because from unknown reason I don't receiving posts now from
mathgroup):
Solve[{e^3 == e1 e2^2, -1 == 2 c2 e1 e2 + c1 e2^2,
3 b e^2 == c2^2 e1 + 2 c1 c2 e2 + 2 b2 e1 e2 + b1 e2^2,
0 == c1 c2^2 + 2 b2 c2 e1 + 2 b2 c1 e2 + 2 b1 c2 e2 + 2 a2 e1 e2 +
a1 e2^2,
3 b^2 e + 3 e^2 f ==
2 b2 c1 c2 + b1 c2^2 + b2^2 e1 + 2 a2 c2 e1 + 2 b1 b2 e2 +
2 a2 c1 e2 + 2 a1 c2 e2 + e2^2 f1 + 2 e1 e2 f2,
0 == b2^2 c1 + 2 b1 b2 c2 + 2 a2 c1 c2 + a1 c2^2 + 2 a2 b2 e1 +
2 a2 b1 e2 + 2 a1 b2 e2 + 2 c2 e2 f1 + 2 c2 e1 f2 + 2 c1 e2 f2,
b^3 + 6 b e f ==
b1 b2^2 + 2 a2 b2 c1 + 2 a2 b1 c2 + 2 a1 b2 c2 + a2^2 e1 +
2 a1 a2 e2 + c2^2 f1 + 2 b2 e2 f1 + 2 c1 c2 f2 + 2 b2 e1 f2 +
2 b1 e2 f2,
0 == 2 a2 b1 b2 + a1 b2^2 + a2^2 c1 + 2 a1 a2 c2 + 2 b2 c2 f1 +
2 a2 e2 f1 + 2 b2 c1 f2 + 2 b1 c2 f2 + 2 a2 e1 f2 + 2 a1 e2 f2,
3 b^2 f + 3 e f^2 ==
a2^2 b1 + 2 a1 a2 b2 + b2^2 f1 + 2 a2 c2 f1 + 2 b1 b2 f2 +
2 a2 c1 f2 + 2 a1 c2 f2 + 2 e2 f1 f2 + e1 f2^2,
0 == a1 a2^2 + 2 a2 b2 f1 + 2 a2 b1 f2 + 2 a1 b2 f2 + 2 c2 f1 f2 +
c1 f2^2, 3 b f^2 == a2^2 f1 + 2 a1 a2 f2 + 2 b2 f1 f2 + b1 f2^2,
0 == 2 a2 f1 f2 + a1 f2^2, f^3 == f1 f2^2}, {f, f1, f2, e, e1, e2,
a1, a2, b, b1, b2, c1, c2}]
(* best wishes Artur *)