fibo06[n_]:=Join[fibo06[n-1],fibo06[n-2]];

fibo06[1]={-0.6};

fibo06[2]={0.6};

reste06[k_,n_]:= Take[fibo06[n], Length[fibo06[n]]-k];
restef06[k_,n_]:= Take[fibo06[n],-k];

matkn06[k_,n_]:=SparseArray[{Band[{2,1}]->-1,Band[{1,1}]->restef06[k,n],Band[{1,2}]->-1},k];

delta06[k_,n_]:=CharacteristicPolynomial[matkn06[k,n],x];

fiboseq[n_]:= fiboseq[n-1]+fiboseq[n-2];

fiboseq[1]=1;

fiboseq[2]=1;

Clear[matkn06,restef06,fibo06,fiboseq,reste06]