Mathematicaで平方完成する方法を教えてください