In[]:=
SetDirectory[NotebookDirectory[]]evv=Get["H.m"];index=164H=Normal@SparseArray[#[[1]]Exp[Iindex#[[2]]]&/@evv,{1393,1393}]//#+#&;
Out[]=
C:\Users\AbuAliSina\Documents
Out[]=
164
In[]:=
Eigenvalues[H];//AbsoluteTimingEigensystem[H];//AbsoluteTiming
Out[]=
{0.245365,Null}
Out[]=
{0.516653,Null}
In[]:=
SetDirectory[NotebookDirectory[]]evv=Get["H.m"];index=165H=Normal@SparseArray[#[[1]]Exp[Iindex#[[2]]]&/@evv,{1393,1393}]//#+#&;
Out[]=
C:\Users\AbuAliSina\Documents
Out[]=
165
In[]:=
Eigenvalues[H];//AbsoluteTimingEigensystem[H];//AbsoluteTiming
Out[]=
{0.258587,Null}
Out[]=
$Aborted