vi_plot_detailed_data.m

function p = vi_plot_detailed_data(model,detailed_data,plot_params)
%function p = vi_plot_detailed_data(model,detailed_data,plot_params)
%
% function plotting primal and dual reduced basis

% B. Haasdonk 6.2.2012

params.title = 'primal reduced basis';
if isequal(model.gridtype,'onedgrid')
  grid = detailed_data.grid.X;
  params.plot = @vi_plot_slice;
else
  grid = detailed_data.grid;
  params.plot = @vi_plot_slice_grid;
  params.df = femdiscfunc([],detailed_data.df_info);
end;

plot_sequence(detailed_data.RB_U,grid,params);

params.title = 'dual reduced basis';
plot_sequence(detailed_data.RB_L,grid,params);

function p = vi_plot_slice(grid,data,params)
%plot([0;data(:);0],grid);
plot(grid,[0;data(:);0]);

function p = vi_plot_slice_grid(grid,data,params)
df = params.df;
df.dofs = data;
plot_discfunc(df,params)