Maple

数式の計算コスト

> expr := expand(sin(3*x)*cos(2*x));
expr := 8 sin(x) cos(x)^4 - 6 sin(x) cos(x)^2 + sin(x)

> codegen[cost](expr);
2 additions + 8 multiplications + 5 functions

特定の関数の個数を調べる numboccur 関数
(式にある表現がいくつ含まれているかを調べたい時に利用。)

> big_expr:=expand(sin(7*x));

big_expr := 64 sin(x) cos(x)^6 - 80 sin(x) cos(x)^4
+ 24 sin(x) cos(x)^2 - sin(x)

式 big_expr に sin(x) がいくつ含まれているかを調べます。
> numboccur(big_expr,sin(x));
4