Douglas Blumeyer's RTT How-To: Difference between revisions
Cmloegcmluin (talk | contribs) →multicommas: better formatting |
Cmloegcmluin (talk | contribs) →canonical form: spaces in definitions |
||
| Line 1,130: | Line 1,130: | ||
!output | !output | ||
|- | |- | ||
|<code>antiTranspose[m_]:=Transpose[Reverse[m,{1,2}]]</code> | |<code>antiTranspose[m_] := Transpose[Reverse[m,{1,2}]]</code> | ||
<code>multByLcd[row_]:=Apply[LCM,Denominator[row]]*row</code> | <code>multByLcd[row_] := Apply[LCM,Denominator[row]]*row</code> | ||
<code>canonicalForm[m_]:=Map[multByLcd,RowReduce[m]]</code> | <code>canonicalForm[m_] := Map[multByLcd,RowReduce[m]]</code> | ||
<code>columnCanonicalForm[m_]:=antiTranspose[canonicalForm[antiTranspose[m]]]</code> | <code>columnCanonicalForm[m_] := antiTranspose[canonicalForm[antiTranspose[m]]]</code> | ||