amat = Array[a, {3, 3}]
(* {{a[1, 1], a[1, 2], a[1, 3]},
{a[2, 1], a[2, 2], a[2, 3]},
{a[3, 1], a[3, 2], a[3, 3]}} *)
For the first item, if you have no zero elements, then...
Map[Times @@ #/# &, Transpose@amat] // TeXForm
$$
\left(
\begin{array}{ccc}
a(2,1) a(3,1) & a(1,1) a(3,1) & a(1,1) a(2,1) \\
a(2,2) a(3,2) & a(1,2) a(3,2) & a(1,2) a(2,2) \\
a(2,3) a(3,3) & a(1,3) a(3,3) & a(1,3) a(2,3) \\
\end{array}
\right)
$$
If you have zero elements, then do this.
Transpose@Map[Table[Times @@ Delete[#, i], {i, 3}] &, Transpose@amat]
For the other, what you are asking for is similar to a minor. Use the generalized version of the function...first define a function that takes a 2x2 matrix and determines something similar to the cross product, but all positive terms.
f[m_] := m[[1, 1]] m[[2, 2]] + m[[1, 2]] m[[2, 1]]
Then call Minors
passing f[ ]
to be used on the submatrices instead of Det
. Note we have to explicitly fix size of the submatrices. Also, see help on Minors
to get the submatrices with the right rows and columns deleted.
Map[Reverse, Minors[amat, 2, f], {0, 1}]
$$
\left(
\begin{array}{ccc}
a(2,3) a(3,2)+a(2,2) a(3,3) & a(2,3) a(3,1)+a(2,1) a(3,3) & a(2,2) a(3,1)+a(2,1) a(3,2) \\
a(1,3) a(3,2)+a(1,2) a(3,3) & a(1,3) a(3,1)+a(1,1) a(3,3) & a(1,2) a(3,1)+a(1,1) a(3,2) \\
a(1,3) a(2,2)+a(1,2) a(2,3) & a(1,3) a(2,1)+a(1,1) a(2,3) & a(1,2) a(2,1)+a(1,1) a(2,2) \\
\end{array}
\right)
$$