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