RationalizeRoots is a Mathematica and Maple package for the rationalization of square roots.
For both, Mathematica and Maple, the entire source code is contained in a single file that you can find in this GitHub repository:
RationalizeRoots.m for Mathematica and RationalizeRoots.mpl for Maple.
In Mathematica, you can load the package via
Get["<file location>/RationalizeRoots.m"]
In Maple, you can load it via
read "<file location>/RationalizeRoots.mpl"
You can learn more about the functionality of the package and its mathematical background in the original paper.
Marco Besier, Pascal Wasser, Stefan Weinzierl
RationalizeRoots is released under the GNU General Public License v3.0.