Is there a CAS which has an implemented version of the “Affine Diagonalization Algorithm” in general for n-dimensional vector spaces?

Question

I would like to ask the following question:

Is there a CAS which has already an implemented version of the "Affine Diagonalization Algorithm" i