| ■No29979に返信(雅人さんの記事) > ×(3) > > AA^t=(a^2+b^2+c^2+d^2)E より >
難とか正直を恥ず; In[5]:= Det[TableForm[{{a, b, c, d}, {-b, a, -d, c}, {-c, d, a, -b}, {-d, -c, b, a}}, TableDepth -> 2]] Factor[%]
Out[5]= a^4 + 2*b^2*a^2 + 2*c^2*a^2 + 2*d^2*a^2 + b^4 + c^4 + d^4 + 2*b^2*c^2 + 2*b^2*d^2 + 2*c^2*d^2
Out[6]= (a^2 + b^2 + c^2 + d^2)^2
|