) vers la fonction caractéristique de [e0,1] où e0 est un élément de ]0,1[ (càd la fonction qui à x associe 0 si x<e0 et 1 si x>e0)
(ce serait pour un programme de transformation de sons)
Avis aux amateurs (Kevin, telchar...)
) vers la fonction caractéristique de [e0,1] où e0 est un élément de ]0,1[ (càd la fonction qui à x associe 0 si x<e0 et 1 si x>e0)
(idem avec exp(-(x-1)^n) et (1-cos(Pi*(1-cos(Pi*...))/2))/2 avec n compositions)
> restart; > mu:=100; > a:=.8; > psi0:=x->1/2+arctan(mu*(2/(x+1/x)-a))/Pi; > DL:=proc(exp,var,order) > local t,n,i,P; > t:=series(exp,var,order): > n:=nops(t): > P:=0: > for i from 1 to n/2-1 do > P:=P+op(2*i-1,t)*op(0,t)^op(2*i,t); > od: > P: > end; > P:=unapply(DL(psi0(x),x=0,60),x); > plot([P(x),psi0(x)],x=0..3,y=-0.1..1.1);

)

