I am new to Mathematica, so pardon if question is trivial. I am trying to expand (i.e multiply out the factors) an polynomial expression $d$, with many factors, obtained as a result of taking determinant of a matrix $p$ with polynomial entries. When I run the command Distribute[d]
it outputs the same input expression. I do not want to run command Expand
since Expand
, while multiplying the factors, also Simplify
the expression in an iterative fashion thus increasing the run time. Is there a way to multiply out these factors in the expression $d$ without absolutely any simplification please? Here is the code:
k = 5;
mask = RandomInteger[1, {15, k}];
poszero = Position[mask, n_ /; n != 0];
posone = Position[mask, n_ /; n == 0];
n = RandomReal[{0, 1}, {15, k}];
n = ReplacePart[n, poszero -> 0];
m = Array[a, {15, k}];
m = ReplacePart[m, posone -> 0];
m = m + n
p = Dot[Transpose[m], m]
d = Det[p]
Any help would be much appreciated!