MFFT

Software per elaborare lo spettro delle frequenze di un segnale campionato.

Caratteristiche:

• Elabora files in formato PCMATLAB o oppure può prelevare direttamente su RS232 i dati registrati in memoria dall'oscilloscopio Philips PM3382.
• Doppio buffer dati da 2048 valori floatingpoint
• Analisi sino a 512 armoniche, visibili sia in grafico che in tabella.
• Possibilità di verifica dell'errore di elaborazione tramite confronto grafico tra segnale analizzato e segnale riprodotto tramite le componenti armoniche ricavate.
• Tool per il confronto delle componenti armoniche tra due segnali campionati.
• Possibilità di salvataggio su disco e di stampa dell'analisi effettuata

Il programma gira su MSDOS e i requisiti hardware sono : CPU80286 o superiore, coprocessore matematico e scheda video VGA.

Per scaricare il programma clicca su mfft.zip

Esempio in Turbo Pascal per creare files dati in formato PCMATLAB.

program Onda;
Uses
  Crt,Graph;
Var
  Gd,Gm:integer;
  Testo:Text; 
  n:integer;
  Fonda:array[1..2048] of real;
  TStart,TStop,Dt,Max,Min,T,Ky,Kx:real;
  Punti:integer;
Begin
  DetectGraph(Gd,Gm); 
  InitGraph(Gd,Gm,'');
  TStart:=0;
  TStop:=1e-1;
  Punti:=512;
  Dt:=(TStop-TStart)/Punti;
  Max:=-1e32;Min:=1e32;
  For n:=1 to Punti do
  begin
    T:=TStart+Dt*n;
    Fonda[n]:=Sin(T*2*pi*1000+5*sin(T*2*pi*100));
    if Fonda[n]>Max then Max:=Fonda[n];
    if Fonda[n]<Min then Min:=Fonda[n];
  end;
  Ky:=GetMaxy/(Max-Min); 
  Kx:=GetMaxx/Punti; 
  Moveto (round(Kx),Round(GetMaxY-(Fonda[1]-Min)*Ky));
  For n:=2 to Punti do
  Begin
    Lineto(round(n*Kx),Round(GetMaxY-(Fonda[n]-Min)*Ky))
  end; 
  Readln;
  Assign(Testo,'fm.m');
  rewrite(Testo);
  Writeln(Testo,'T =',Dt);
  Writeln(Testo,'Ch1=[');
  For n:=1 to Punti do Writeln(Testo,Fonda[n]);
  Writeln(Testo,'];');
  close (Testo);
end.