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

affiche_coeff(NUM,DEN,DEF)
function affiche_coeff(NUM,DEN,DEF)

if ~isempty(NUM)
    switch DEF(2)
        case 2
            fichier=fopen('coeff.wri','wt');
            c=fprintf(fichier,['FILTRE R.I.F.     (Fe = ',num2str(1/DEF(1)),' Hz )     \n\n']);
            c=fprintf(fichier,'                                -1             -2\n');
            c=fprintf(fichier,'H(z) = a(0)  + a(1) .z   + a(2) .z   + ... \n\n');
           % c=fprintf(fichier,'         0    1         2\n\n');
            for k=1:1:length(NUM)
                c=fprintf(fichier,['a(',num2str(k-1),') = %+12.5e\n'],NUM(k));
            end;
            fclose(fichier);
            !coeff.wri
        case 3
            if ~isempty(DEN)
                fichier=fopen('coeff.txt','wt');
                c=fprintf(fichier,['FILTRE R.I.I.     (Fe = ',num2str(1/DEF(1)),' Hz )     \n\n']);
                c=fprintf(fichier,'                             -1            -2\n');
                c=fprintf(fichier,'       a(0)  + a(1) .z   + a(2) .z   + ... \n');
                %c=fprintf(fichier,'         0    1         2\n');
                c=fprintf(fichier,'H(z) = ------------------------------------ \n');
                c=fprintf(fichier,'                             -1            -2\n');
                c=fprintf(fichier,'       b(0)  + b(1) .z   + b(2) .z   + ... \n\n');
                %c=fprintf(fichier,'         0    1         2\n\n');
                long=max(length(NUM),length(DEN));
                num=zeros(1,long);
                den=zeros(1,long);
                num(1:length(NUM))=NUM;
                den(1:length(DEN))=DEN;
                for k=1:1:long
                    c=fprintf(fichier,['a(',num2str(k-1),') = %+12.5e\t\t\t b(',num2str(k-1),') = %+12.5e\n'],num(k),den(k));
                end;
                fclose(fichier);
                !coeff.wri
            end;
    end;
end;

Contact us