critera function

Criterion of the Tucker3 algorithm