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

on_efface_tout.m
function MOG=on_efface_tout(mog)

%
%Cette fonction permet d'effacer les cases correspondant  la dfinition du
%signal prcdent
%

MOG=mog;
h=get(gcf,'child');
lh=length(h);
hu=[];
ha=[];
for kh=1:1:lh
    s=get(h(kh),'type');
    if strcmp(s,'uicontrol');
        hu=[hu;h(kh)];
    end;
    if strcmp(s,'axes');
        ha=[ha;h(kh)];
    end;
end
lu=length(hu);
for ku=1:1:lu
    p=get(hu(ku),'position');
    if (p(1)==0.6)|(p(2)<=0.7)
        set(hu(ku),'visible','off');
    end;
end;
la=length(ha);
hac=[];
for ka=1:1:la
    hac=[hac;get(ha(ka),'child')];
end;
lac=length(hac);
for kac=1:1:lac
    s=get(hac(kac),'type');
    if strcmp(s,'line')|strcmp(s,'text')
        delete(hac(kac));
    end;
end;
for kannot=1:1:7
     if mog(4,kannot)~=0
        delete(mog(4,kannot));
     end;
end;
MOG(4,:)=zeros(1,7);
    

Contact us