See my following code snippet:
In[197]:= ClearAll["Global`*"]
a = {{4, 16, 4}, {7, 25, 8}, {17, 63, 18}};
b = {{2, -2, -2}, {7, -71, 2}, {14, -114, 0}};
Last[HermiteDecomposition[a]] == Last[HermiteDecomposition[b]]
MatrixForm /@ {LatticeReduce[a], LatticeReduce[b]}
During evaluation of In[197]:= Set::wrsym: Symbol a is Protected.
During evaluation of In[197]:= Set::wrsym: Symbol b is Protected.
During evaluation of In[197]:= HermiteDecomposition::latm: Matrix contains an entry that is not rational.
During evaluation of In[197]:= HermiteDecomposition::latm: Matrix contains an entry that is not rational.
Out[200]= a == b
Out[201]= {\!\(\*
TagBox[
RowBox[{"LatticeReduce", "[", "a", "]"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]\), \!\(\*
TagBox[
RowBox[{"LatticeReduce", "[", "b", "]"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]\)}
As you can see, I've used the command ClearAll["Global`"]* at the beginninf of my code, but still the Symbol a is Protected** problem is triggered. Any hints for fixing this problem?
Regards,
Zhao