Обработка событий

function ex_KeyPressFcn
% Creates figure with text fields to display keypress event data.
% Use check box to control writing events to base workspace.
 
% Copyright 2010 The MathWorks, Inc.
 
figure('NumberTitle','off',...
       'Name','Key Press Event Data Viewer',...
       'Menubar','none',...
       'Position',[560 728 560 200],...
       'KeyPressFcn',@dispkeyevent);
uicontrol('Style','text',...
          'String','Type a character to see its keyboard data.',...
          'FontSize',10,...
          'FontWeight','bold',...
          'Units','normalized','Position',[.25 .8 .5 .1]);
uicontrol('Style','text',...
          'String','Character',...
          'FontWeight','bold',...
          'Units','normalized','Position',[.1 .6 .24 .1]);
uicontrol('Style','text',...
          'String','Char Code',...
          'FontWeight','bold',...
          'Units','normalized','Position',[.3 .6 .24 .1]);
uicontrol('Style','text',...
          'String','Key',...
          'FontWeight','bold',...
          'Units','normalized','Position',[.5 .6 .24 .1]);
uicontrol('Style','text',...
          'String','Modifier',...
          'FontWeight','bold',...
          'Units','normalized','Position',[.7 .6 .24 .1]);
 
htxt6 = uicontrol('Style','text',...
                 'String','',...
                 'FontWeight','normal',...
                 'Units','normalized','Position',[.1 .375 .24 .2]);
htxt7 = uicontrol('Style','text',...
                 'String','',...
                 'FontWeight','normal',...
                 'Units','normalized','Position',[.3 .375 .24 .2]);
htxt8 = uicontrol('Style','text',...
                 'String','',...
                 'FontWeight','normal',...
                 'Units','normalized','Position',[.5 .375 .24 .2]);
htxt9 = uicontrol('Style','text',...
                 'String','',...
                 'FontWeight','normal',...
                 'Units','normalized','Position',[.7 .375 .24 .2]);
hchk1 = uicontrol('Style','checkbox',...
                 'String','Write key data to workspace',...
                 'Units','normalized','Position',[.65 .05 .3 .1],...
                 'Value',0);
 
    function dispkeyevent(~, event)
    % Display keypress info in GUI and return event struct if requested
    % event - Structure containing keypress identifiers
 
    c = event.Character;
    set(htxt6,'String',c)
    set(htxt7,'String',num2str(double(c)))
    set(htxt8,'String',event.Key)
    set(htxt9,'String',event.Modifier)
    if get(hchk1,'Value')
        assignin('base','keystruct',event)
    end
    end
end

for i = 1:Nstep   
    
     compress_signal(i, :) = win_fft_comp(LCHM((1:Nt)+(i-1)*Nw), a, Nfft, 0);
    [max_compress_signal(1, i), max_compress_signal(2, i)] = max(compress_signal(i, :));
   
    if i == 1
        
        g = figure('KeyPressFcn', @dispkeyevent);
        scrsz = get(0, 'ScreenSize');
        set(g, 'Position', [350 150 scrsz(3)/1.5 0.7*scrsz(4)]);
        
        subplot(2,1,1);
        p1 = plot(t, real(LCHM), '-b', 'LineWidth', 2);
        xlabel('{\itt}, с'); ylabel('{\its({\itt})}', 'Rotation', 0, 'HorizontalAlignment', 'right');
        title('Сигнал во времени');
        grid on; hold on;
        p2 = plot(t((1:Nt)+(i-1)*Nw), LCHM((1:Nt)+(i-1)*Nw), '-r', 'LineWidth', 2);
                        
        subplot(2,1,2);
        plot(f_grid, compress_signal(i, :), '-b', 'LineWidth', 2);
        grid on; hold on;
%         set(gca, 'Ylim', [-170, 0]);
        xlabel('{\itf}, Гц'); ylabel('{\itS({\itf})}', 'Rotation', 0, 'HorizontalAlignment', 'right');
        title('Сжатый сигнал в частотной области');
        pause(1);
        
    else 
        
        subplot(2,1,1);
        delete(p2);
        p2 = plot(t((1:Nt)+(i-1)*Nw), real(LCHM((1:Nt)+(i-1)*Nw)), '-r', 'LineWidth', 2);
                        
        subplot(2,1,2);
        cla;
        plot(f_grid, compress_signal(i, :), '-b', 'LineWidth', 2);
        hold on;
        stem(f_grid(max_compress_signal(2, i)), max_compress_signal(1, i), 'r', 'LineWidth', 2);
        if i~=Nstep
            text(f_grid(max_compress_signal(2, i)), max_compress_signal(1, i), ['\leftarrow {\itf} = ', num2str(f_grid(max_compress_signal(2, i)))],'FontSize',14);
        end;      
        pause(1);
        
    end;
    
    
    c = event.Character;
   
    if num2str(double(c)) == 32
        pause;
    end
        
end;

clc; clear; close all;
 
f = 50;
 
Fs = 1000;
 
dt = 1/Fs;
 
T = 0.2;
 
t = 0:dt:T;
 
NT = length(t); 
 
y = sin(2*pi*f*t);
 
dT = T/4;
 
Nstep = T/dT;
 
dN = floor(NT/Nstep);
 
dNT = floor(dT/dt)+1;
 
for i = 1:Nstep
    
    if i == 1
        
        g = figure;
        scrsz = get(0, 'ScreenSize');
        set(g, 'Position', [300 100 scrsz(3)/1.5 0.8*scrsz(4)]);
        
        p1 = plot(t, y, '-b', 'LineWidth', 2);
        xlabel('{{\itt}, c}'); ylabel('{\its}({\itt})', 'Rotation', 0, 'HorizontalAlignment', 'right');
        grid on; hold on;
        
        p2 = plot(t(1:dNT),y(1:dNT), '-r', 'LineWidth', 3);
        pause(2);
        
    else 
        
        delete(p2);
        p2 = plot(t((1:dNT)+(i-1)*dN),y((1:dNT)+(i-1)*dN), '-r', 'LineWidth', 3);
        pause(2);
        
    end;
        
end;