Тригонометрические эквиваленты выражения  

Функция trigsubs выдает все тригонометрические эквиваленты выражения в виде списка. 

> sin(alpha+beta);
trigsubs(%);
 

 

sin(`+`(alpha, beta))
[sin(`+`(alpha, beta)), `+`(`-`(sin(`+`(`-`(alpha), `-`(beta))))), `+`(`*`(2, `*`(sin(`+`(`*`(`/`(1, 2), `*`(alpha)), `*`(`/`(1, 2), `*`(beta)))), `*`(cos(`+`(`*`(`/`(1, 2), `*`(alpha)), `*`(`/`(1, 2)...
[sin(`+`(alpha, beta)), `+`(`-`(sin(`+`(`-`(alpha), `-`(beta))))), `+`(`*`(2, `*`(sin(`+`(`*`(`/`(1, 2), `*`(alpha)), `*`(`/`(1, 2), `*`(beta)))), `*`(cos(`+`(`*`(`/`(1, 2), `*`(alpha)), `*`(`/`(1, 2)...
 

Напомним, что извлекать элементы из списка можно с помощью функции op, указав первым параметром номер элемента. Извлечем третий элемент из последнего списка. 

> op(3,%);
 

`+`(`*`(2, `*`(sin(`+`(`*`(`/`(1, 2), `*`(alpha)), `*`(`/`(1, 2), `*`(beta)))), `*`(cos(`+`(`*`(`/`(1, 2), `*`(alpha)), `*`(`/`(1, 2), `*`(beta))))))))