Givens test in mathematica