function gui_recurrence_plot

% last modified 10.01.05

global TS

str=TS.name;

[selection_1,ok] = listdlg('PromptString','Select fist time series:',...
                'SelectionMode','single','ListString',str);
if ~ok
    return
end
[selection_2,ok] = listdlg('PromptString','Select second time series:',...
                'SelectionMode','single','ListString',str);
if ~ok
    return
end


recurrence_plot(TS.data(:,selection_1),TS.data(:,selection_2));