Mathematica 8.0.1.0:
Код:
m = {{a3 a5 a7, -2 b3 b5 b7, a2 a4 a8, 0, 0, 0},
{a3 a5 a7, 0, -a2 a4 a8, -b2 b4 b8, 0, 0},
{a4 a9 a11, -2 b4 b9 b11, 0, 0, a2 a3 a10, 0},
{a4 a9 a11, 0, 0, 0, -a2 a3 a10, -b2 b3 b10},
{0, 0, a7 a10 a11, 0, a5 a8 a9, -2 b5 b8 b9},
{0, 0, -a7 a10 a11, -b7 b10 b11, a5 a8 a9, 0}};
Det[m]
> 2 a10^2 a11 a2 a3^2 a5 a7^2 b10^2 b11 b2 b3^2 b5 b7^2 -
2 a11 a2 a4^2 a5 a8^2 a9^2 b10^2 b11 b2 b3^2 b5 b7^2 +
4 a10 a11^2 a4 a5 a7 a8 a9^2 b10 b2^2 b3^2 b4 b5 b7 b8 +
4 a2 a3 a4 a5^2 a7 a8^2 a9 b10^2 b11^2 b2 b3 b4 b7 b9 -
4 a10 a11 a3 a5^2 a7^2 a8 a9 b10 b11 b2^2 b3 b4^2 b8 b9 -
8 a10 a11 a2^2 a3 a4^2 a8 a9 b10 b11 b3 b5^2 b7^2 b8 b9 +
8 a10^2 a11^2 a2 a3 a4 a7 a9 b2 b3 b4 b5^2 b7 b8^2 b9 +
8 a10 a2^2 a3^2 a4 a5 a7 a8 b10 b11^2 b4 b5 b7 b8 b9^2 -
4 a10^2 a11 a2 a3^2 a5 a7^2 b11 b2 b4^2 b5 b8^2 b9^2 -
4 a11 a2 a4^2 a5 a8^2 a9^2 b11 b2 b4^2 b5 b8^2 b9^2
Проверьте, всё ли введено верно.