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