\insert 'RelativeSquareRoot.oz' \insert 'FloatTest.oz' {StartTesting 'RelativeSquareRoot...'} TenThousandth = 0.000001 RelativeTenThousandth = {FloatTestMaker Relative RelativeLists TenThousandth} {RelativeTenThousandth {RelativeSquareRoot 1.0 TenThousandth 2.0} '~=~' 1.41421356} {RelativeTenThousandth {RelativeSquareRoot 1.0 TenThousandth 4.0} '~=~' 2.0} {RelativeTenThousandth {RelativeSquareRoot 1.0 TenThousandth 64.0} '~=~' 8.0} {RelativeTenThousandth {RelativeSquareRoot 1.0 TenThousandth 3.14159} '~=~' 1.7724531} {RelativeTenThousandth {RelativeSquareRoot 1.0 TenThousandth 9.0e24} '~=~' 3.0e12} {RelativeTenThousandth {RelativeSquareRoot 1.0 TenThousandth 9.0e~40} '~=~' 3.0e~20}