Code covered by the BSD License  

Highlights from
Logiciels temps réel

Logiciels temps réel

by

 

Real-time software concerning the domains of the signal processing, feedback and regulation

fft_impression.m
function fft_impression(preci,K,X)

Xmax=max(abs(X));
n=find(abs(X)>=Xmax*preci/100);
ligne=length(n);
%fichier=fopen('raies.txt','wt');
fichier=fopen('raies.wri','wt');
h=get(gca,'title');
s=get(h,'string');
s_mod=strrep(s,'_','');
s_mod=[s_mod,'\n\n\n'];
fprintf(fichier,s_mod);
fprintf(fichier,'|   k \t|\tRe(Xk) \t\t|\tIm(Xk) \t\t|\t\t|Xk|\t\t|    Arg(Xk) () \t|\r');
s=[];
for k=1:1:103
    s=[s,'_'];
end;
s=[s,'\n'];
c=fprintf(fichier,s);
for kl=1:1:ligne
    nl=n(kl);
    fprintf(fichier,'|  % 5.0f \t|    %+12.5e \t|    %+12.5e \t|    %+12.5e \t|    %+8.2f \t|\n',K(nl),real(X(nl)),imag(X(nl)),abs(X(nl)),angle(X(nl))*180/pi);
end;
fclose(fichier);
!raies.wri
    

Contact us