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_resultat.m
function DEF=affiche_resultat(x,DEFi)

DEF=DEFi;
modele=get_param(gcs,'name');
bloc1=[modele,'/Manual Switch'];
set_param(bloc1,'maskvaluestring','0|0|off')
set_param(bloc1,'foregroundcolor','black')
bloc2=[modele,'/declenchement'];
set_param(bloc2,'foregroundcolor','white')
t=x.time;
t0=t(1);
t=t-t0;
lt=length(t);
n=get_param(gcs,'name');
b=[n,'/Manual Switch1'];
s=get_param(b,'maskvaluestring');
%if strcmp(s,'0|0|off')
%    vi=mean(x.signals.values(:,2));
%else
    e=x.signals.values(:,1);
    s=x.signals.values(:,2);
    figure(2)
    set(gcf,'position',ecran)
    set(gcf,'color','w')
    plot(t,e,'b',t,s,'r')
    xlabel('t (s)')
    ylabel('v_e ou v_s (V)');
    legend('V_E','V_S')
    grid on
    test=[];
    hgcf=get(gcf,'child');
    lgcf=length(hgcf);
    for kgcf=1:1:lgcf
     test=[test;strcmp(get(hgcf(kgcf),'type'),'uimenu')];
    end
    if ~any(test)
        h=uimenu('label','Rponse Impulsionnelle',...
         'foregroundcolor','r',...
         'callback','[g,t]=reponse_impulsionnelle(x,DEF);');
    end;
%end;

Contact us