Discussion :

[mewiine]

Bonsoir à tous !

dans le cadre de mon cours d'info, je dois réaliser un programme de traitement audio sous Lazarus.

Pour ce faire, je récupère tout d'abord les amplitudes dans un fichier texte grâce à Matlab. Ensuite, afin de tracer le spectre en fréquences, je dois calculer les transformées de Fourier. Ne souhaitant pas utiliser FFT, je dois calculer chaque fréquence manuellement. J’ai trouvé ceci après quelques recherches : http://www.google.fr/url?sa=t&rct=j&...7RvOSW3qO_AZMg
J'utilise alors les deux formules de la page 5.

Cependant, j’ai quelques problèmes :
- Pour les destructeurs, j’obtiens un « illegal qualifer » pour les free, je ne comprends pas pourquoi..
- Après un certain temps de calcul, Lazarus me renvoie un message d'erreur "external SIGSEGV". Mais même en utilisant le debugger je ne vois pas où ça coince..

Qu'en pensez-vous ?
Je vous remercie d'avance pour votre aide, et bonnes soirée !

[Paul TOTH]

Projet
Options du projet...
Options du compilateur
Code
Intervalle (-Cr)

tu coches la case Intervalle ci-dessus et tu relances le projet

[mewiine]

Merci de ta rapide réponse !

Dur dur la doc Lazarus.. A quoi correspond cette option ?

J'ai cocher cette case, j'ai maintenant une erreur "RunError(58336)" avant même de rentrer dans la boucle.. =/

[Paul TOTH]

Merci de ta rapide réponse !

Dur dur la doc Lazarus.. A quoi correspond cette option ?

J'ai cocher cette case, j'ai maintenant une erreur "RunError(58336)" avant même de rentrer dans la boucle.. =/

cette option ajoute du code à la compilation qui s'assure que tu n'utilises pas un index hors limite, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
type
 TMonTableau = array[0..2] of Byte;
var
  T: TMonTableau;
begin
  T[12] := 1; // Big ! erreur
end;

Dans ton code tu fixes des dimensions arbitraires à tes tableaux, et les valeurs choisie sont TRES inférieures aux dimensions requises.

Tu devrais utiliser des tableaux dynamiques

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
var
  T: array of Byte;
begin
  SetLength(T, 13); // donc de 0 à 12
  T[12] := 1; // pas de problème
end;

et pour avoir une aide digne de ce nom il faut taper dans Delphi 6 ou 7

[mewiine]

Dac!

J'ai corrigé les tableaux, ainsi qu'une petite erreur dans la boucle de somme. Si je n'ai dès lors plus de message d'erreur, j'ai maintenant un calcul interminable, l'appui sur le bouton tableau ne donnant rien.. D'où le problème peut-il venir ?

Edit : Ah si, autant pour moi, après un certain temps j'obtiens un "range check error COL[1] ROW[100]".. pourquoi ici ?
De plus, et oh miracle!, des valeurs sont présentes dans le tableau (en espérant qu'elles correspondent bien à celles voulues). D'ailleurs, pour ce qui est du côté mathématiques de la FFT, mon "adaptation" semble-t-elle correcte ?

Merci !

[Paul TOTH]

pour le range check c'est que ton tableau est mal dimensionné.

pour le temps de cacul, tu devrais sortir la création des Ccomplexe de la boucle car c'est très consommateur de temps, je n'ai plus ton code ne tête mais en gros

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  C, Cn: Ccomplexe;
begin
  C := Ccomplexe.create;
  Cn := Ccomplexe.Create;
  for ...
  begin
    c.init(...) // au lieu d'un constructor, une methode qui  initialise le composant
   ...
  end;
  C.Free;
  Cn.Free;
end;

quand à la validité mathématique ....