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

regle_zero_xy.m
function MOG=regle_zero_xy(a,k,G,MOGi)

MOG=MOGi;
switch a
    case 3
        pas=1;
    case 4
        pas=-1;
    case 5
        pas=1/20;
    case 6
        pas=-1/20;
end;
s=get_param(gcs,'parent');
if isempty(s)
    modele=get_param(gcs,'name');
else
    modele=s;
end;

if k==1
    bloc=[modele,'/Constant'];
else
    bloc=[modele,'/Constant1'];
end;
zs=get_param(bloc,'value');
if k==1
    n_v=['   VOIE X : zro = ',zs,' cm'];
else
    n_v=[';  VOIE Y : zro = ',zs,' cm'];
end;
z=str2double(zs)+pas;
zs=num2str(z);
set_param(bloc,'value',zs);
n_fig=get(MOG(1,6),'name');
if k==1
    n_v_n=['   VOIE X : zro = ',zs,' cm'];
else
    n_v_n=[';  VOIE Y : zro = ',zs,' cm'];
end;
n_fig_n=strrep(n_fig,n_v,n_v_n);
% on met  jour le titre de la scope_figure
set(MOG(1,6),'name',n_fig_n);

Contact us