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