* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

264 Работа с математическими выражениями и функциями • SetAccuracy[expr, n] – дает вариант expr, в котором все числа должны быть установлены с точностью n цифр. • SetPrecision[expr, n] – вырабатывает вариант expr, в котором все числа установлены с точностью представления n цифр. • Share[expr] – меняет способ внутреннего хранения выражения expr, что минимизирует объем используемой памяти. • Through[expr, h] – выполняет преобразование всюду, где h появляется в заголовке выражения expr. • Together[expr] – приводит члены суммы к общему знаменателю и сокраща ет множители в полученном результате. • Variables[expr] – возвращает список всех независимых переменных в выра жении. • With[{x = x0, y = y0, ...}, expr] – указывает, что в случае обнаружения в выражении expr символов x, y, ... они должны быть заменены на x0, y0….. • Write[channel, expr1, expr2, ...] – записывает в указанный выходной канал channel последовательно (один за другим) выражения expri, завершаемые newline (переводом строки). • WriteString[channel, expr1, expr2, ...] – превращает expri в символьные цепочки, а затем последовательно записывает их в указанный выходной ка нал channel. К сожалению, объем этого раздела не позволяет привести примеры на все эти функции. Поэтому приведем лишь отдельные примеры работы с некоторыми из этих функций: Apart[(x^4+1)/(x^2-1)] Apart[(x^3-y^3-1)/(x^2-y),y] Cancel[(x^2-1)/(x-1)] 1+x Denominator[(x^2-x-1)/(x-1)] -1+x Numerator[(x^2-x-1)/(x-1)] -1 - x + x2 Depth[x^3+x^2+x+1] 3 Dimensions[x^3-2*x^2+1] {3} Evaluate[1+1+Sin[1]] 2+Sin[1] Head[Sin[x]] Sin Обилие функций для работы с математическими выражениями позволяет с помощью системы Mathematica решать самые серьезные задачи символьной ма тематики (компьютерной алгебры).