In Mathematica, you can use the following functions:
http://reference.wolfram.com/language/ref/FunctionRange.html
http://reference.wolfram.com/language/ref/FunctionDomain.html
domain function http://www.wolframalpha.com/input/?i=domain+%28Sqrt%5BLog%5B%285+x+-+14%29%2F%28x%5E2+-+3+x+%2B+2%29%5D%5D+%2B+Log%5B3+-+x%5D%29
range function http://www.wolframalpha.com/input/?i=range+%28Sqrt%5BLog%5B%285+x+-+14%29%2F%28x%5E2+-+3+x+%2B+2%29%5D%5D+%2B+Log%5B3+-+x%5D%29