générer un LA3 440Hz sous Maple

[invite8888b778]

Bonjour bonjour ^^
Je suis en maths sup, et pour mon TIPE, je devrais générer un LA3 (440Hz) avec maple.
J'ai donc fait tout une procédure que voilà pour faire un signal carré avec la transformée de fourrier...

Les harmoniques :

harmo := proc (a, f, n, x) if `mod`(n, 2) = 0 then 0 else a*sin(2*n*f*Pi*x)/n end if end proc

avec a l'amplitude , f la fréquence et n la nième harmonique

Ensuite, je les additionnes ...

P := proc (a, f, n, x) local k, i; k := 0; for i to n do k := k+harmo(a, f, i, x) end do end proc

Puis en fin je demande de générer le son ... c'est là que ça devient problématique ^^

with(AudioTools):
aud := Create(x->evalf(P(1,0.01,5,x)), duration = 5.0);

Write("C:/fichierTIPE3.wav",aud);

quand je prend une fréquence de 440Hz, ya pas de son, et quand je prend f=0.01 j'ai un son ... il y a donc une erreur d'unité en abscisse... Combien faudrait-il mettre pour obtenir une fréquence de 440Hz ?

Merci d'avance
-----

[acx01b]

à un taux d'échantillonage de 44100 Hz une sinusoïde de 440hz sera:
s[n] = sin(2.Pi.440.n/44100)

d'une manière générale si Fs est le taux d'échantillonage alors une sinusoïde de fréquence f sera:
s[n] = sin(2.Pi.f.n/Fs)