2016-09-06 2 views

Répondre

1

La réponse est facile à utiliser freeof:

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

Puis:

(%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] 

Quelle est la réponse souhaitée, je crois.

+0

génial, merci! – Kasper