GTQPolar[q]gives the polar angle of the quaternion q.
First, load the package:
Then run the example:
GTQAbs GTQConjugate GTQInverse GTQuaternionQ