2016-09-06 26 views

回答

1

最簡單的答案是使用freeof

(%i1) exponentp(e,n):=not mapatom(e) and 
         op(e) = "^" and not freeof(n,second(args(e)))$ 

然後:

(%i2) map(exponentp,[2*n,n^2,2^n,(n+1)^(a+b), (a+b)^(n+c),2^(3/n+1)],[n,n,n,n,n,n]); 

(%o2) [false,false,true,false,true,true] 

這是希望的答案,我相信。

+0

真棒,謝謝! – Kasper

相關問題