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

[x,X,K]=signal_autre(s,DEF)
function [x,X,K]=signal_autre(s,DEF)

x=[];
X=[];
K=[];
m=DEF(9);
te=DEF(10);
if s(end)~=';'
    s=[s,';'];
end;
t=(0:1:2^m-1)'*te;
test=findstr(s,'x=');
if isempty(test)
    MOG(2,3)=uicontrol(gcf,'style','text','unit','normalized',...
                        'position',[0.1 0.5 0.8 0.05],'backgroundcolor','w',...
                        'foregroundcolor','r','string','DEFINIR LE SIGNAL PAR x=...','fontunits','normalized','fontsize',0.5,'fontweight','bold');
else
    try
        eval(s)
       
    catch
        MOG(2,3)=uicontrol(gcf,'style','text','unit','normalized',...
                        'position',[0.1 0.5 0.8 0.05],'backgroundcolor','w',...
                        'foregroundcolor','r','string','ERREUR DE PROGRAMMATION !','fontunits','normalized','fontsize',0.5,'fontweight','bold'); 
    end;
end;
if ~isempty(x)
    delete(gcf);
    [X,K]=fft_calcul(DEF,x);
end;

Contact us