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

impression.m
function [MOG,preci,voie]=impression(mog,K,X)

MOG=mog;
preci=10;
precis=num2str(preci);
voie=0;
voies=num2str(voie);
figure(4)
e=ecran;
if e(1)<0
    e(1)=0;
end;
[ligne,col]=size(X);
set(gcf,'position',e)
set(gcf,'unit','normalized')
set(gcf,'color','w')
grid off
set(gca,'xcolor','w','ycolor','w')
s='Prcision (en %)';
MOG(2,1)=uicontrol(gcf,'style','text','unit','normalized',...
		'position',[0.1 0.7 0.4 0.05],'backgroundcolor','y',...
	           'foregroundcolor','b','string',s,'fontunits','normalized','fontsize',0.5,'fontweight','bold');
MOG(1,1)=uicontrol(gcf,'style','edit','unit','normalized',...
		'position',[0.6 0.7 0.3 0.05],'backgroundcolor','y',...
	    'foregroundcolor','b','max',1,...
		'string',precis,'fontunits','normalized','fontsize',0.5,'fontweight','bold',...
		'callback','precis=get(MOG(1,1),''string'');preci=str2num(precis);');
if col>1
    s='numro de la voie (0 ou 1)';
    MOG(2,2)=uicontrol(gcf,'style','text','unit','normalized',...
		'position',[0.1 0.5 0.4 0.05],'backgroundcolor','y',...
	           'foregroundcolor','b','string',s,'fontunits','normalized','fontsize',0.5,'fontweight','bold');
    MOG(1,2)=uicontrol(gcf,'style','edit','unit','normalized',...
		'position',[0.6 0.5 0.3 0.05],'backgroundcolor','y',...
	    'foregroundcolor','b','max',1,...
		'string',voies,'fontunits','normalized','fontsize',0.5,'fontweight','bold',...
		'callback','voies=get(MOG(1,2),''string'');voie=str2num(voies);');
end;
boutonok=uicontrol(gcf,'style','push','unit','normalized',...
		'position',[0.6 0.1 0.1 0.1],...
	    'string','OK','foregroundcolor','r','fontunits','normalized','fontsize',0.5,'fontweight','bold',...
        'callback','delete(gcf);fft_impression(preci,K,X(:,voie+1));');

Contact us