функция диагонализации

Мат. diagonalization function