Bonjour,
Je voudrais faire un spectre de signal sur maple 18 de la fonction h(x)=1 pour x appartenant [0,pi], et cette fonction est impaire
=> ma procédure ne fonctionne pas...
restart; with(plots)
h := piecewise(-2*Pi <= x and x < -Pi, 1, -Pi <= x and x < 0, -1, 0 <= x and x <= Pi, 1, Pi < x and x <= 2*Pi, -1);
piecewise(-2 Pi <= x and x < -Pi, 1, -Pi <= x and x < 0, -1,
0 <= x and x <= Pi, 1, Pi < x and x <= 2 Pi, -1)
w := 2*Pi/(2*Pi);
1
c:=proc(h,n) local x; if n=0 then evalf(int(h,x=0..2 Pi))/(2Pi) else 2*evalf(int(h*exp(-I*w*n*x),x=0..2 Pi))/(2Pi) fi end:
C := proc (h, n) options operator, arrow; abs(c(h, n)) end proc;
(h, n) -> |c(h, n)|
TraceSpectreRaies:=proc(h,2Pi, N) local n: plot([seq([[n/(2Pi),0],[n/(2Pi),C(h,n)]],n=0..N)]):end:
Error, invalid procedure parameters
N := 50; TraceSpectreRaies(h, 2*Pi, N)
si quelqu'un a une fonction simplifiée je suis preneur
Merci,
-----