sviplot1.m

数字通信第四版原书的例程

    function    [xx] = sviplot1(input);

%This function is only used by Call back MATLAB from C-mex funcitons sviterbi.c 
%  Copyright (c) 1996 The MathWorks, Inc.
%  All Rights Reserved
% See also sviplot1, sviplot2, sviplot3

    x(1) = input(1);
    n_std_sta = input(2);
    num_state = input(3);
    plot_flag = input(4);
    initial_flag = input(5);

  if x(1) <= 0   
    % initialize the figure.
    [sl_name, block] = get_param;
    [n_b, m_b]= size(block);
    if n_b < 1
        error('Cannot delete block while simulating')
    elseif n_b > 1
        error('Something wrong in get_param, You don''t have the current SIMULINK')
    end;

    % findout if the graphics window exist
    ind = find(sl_name == setstr(10));
    dash = '_';
    sl_name(ind)=dash(ones(size(ind)));

    % in the case of the figure exists
    Figures = get(0, 'Child');
    new_figure = 1;
    i = 1;
    while ((new_figure) & (i <= length(Figures)))
        if strcmp(get(Figures(i), 'Type'), 'figure')
            if strcmp(get(Figures(i), 'Name'), sl_name)
                h_fig = Figures(i);
                handles = get(h_fig,'UserData');
                new_figure = 0;
                h_axis = handles(1);
                set(0,'CurrentF',h_fig);
                set(h_axis,'Xlim', [0, plot_flag-1], 'Ylim', [0, n_std_sta-1]);
                delete(get(h_axis,'child'));
                handles = handles(1);
            end;
        end;
        i = i + 1;
    end;
    if new_figure
        h_fig = figure;
        set(h_fig, 'Name', sl_name);
        handles = axes('Xlim',[0, plot_flag-1], 'Ylim',[0, n_std_sta-1]);
    end;
    handles = get(h_fig, 'Child');
    set(handles, 'Visible', 'Off');
    set(handles(1),'NextPlot','add');
    set(h_fig,'NextPlot','add', 'Clipping', 'off');
    handles(2) = plot(0,0,'y-','Erasemode','normal');
    handles(3) = plot(0,0,'r-','Erasemode','normal','LineWidth',2);
    handles(4) = plot(-10,-10, 'go', 'Erasemode','normal');
    for i = 1 : n_std_sta
        handles(i+4) = text(0,0,'0');
        set(handles(i+4), 'Color',[0,1 1]);
    end;
    for i = 0 : n_std_sta - 1
        handles(5+n_std_sta+i) = text(-plot_flag/8, i, ['State ', num2str(bi2de(fliplr(de2bi(i, num_state))))]);
    end;
    handles(5+2*n_std_sta) = text(plot_flag/2.1, - n_std_sta/15, 'Time');
    set(h_fig, 'UserData',handles);
    set(h_axis,'NextPlot','new');
    set(h_fig,'NextPlot','new');
    sys(1) = h_fig;
    x(1) = h_fig;
  end;% if x(1) < 0

  plot_flag_test = get(0,'child');

  if isempty(plot_flag_test)
    plot_flag_test = 0;
  elseif isempty(find(plot_flag_test==x(1)))
    plot_flag_test = 0;
  else
    plot_flag_test = 1;
    handles = get(x(1), 'UserData');
    if length(handles) ~= (5+2*n_std_sta)
        plot_flag_test = 0;
    end;
  end;

xx(1) = x(1);
xx(2) = plot_flag_test;
xx(3) = 12345;
%%%%% end plot1 related %%%%%