simtech_animation.m

Go to the documentation of this file.

function simtech_animation
% small script performing animation, that can be captured

% Bernard Haasdonk 17.11.2008

if isempty(get(gcf,'Tag'))
  load simtech_detailed
  demo_rb_gui(detailed_data,[],params);
  set(gcf,'Tag','demo_rb_gui');
end;

% time loops for parameter variation
show_title('TIME LOOP');
set_mu_demo_rb_gui(gcf,[0,1,5e-8]);
loop_demo_rb_gui(gcf,'time',5);

show_title('PARAMETER VARIATION: k');
%params = set_mu([0,1,5e-8],params);
loop_demo_rb_gui(gcf,'k',0.5e-8); 

show_title('PARAMETER VARIATION: c_{init}');
%params = set_mu([0,1,5e-8],params);
loop_demo_rb_gui(gcf,'c_init',1); 

% dimension variation 

% error estimation
keyboard;

function show_title(txt)
title(txt,'Fontsize',20,'Color',[1,0,0]);
pause(3);
title('');

function set_mu_demo_rb_gui(fhandle,mu)
ud = get(gcf,'UserData');
for i = 1:length(mu);
  slider = findobj(fhandle,'tag',['slider_',ud.params.mu_names{i}]);
  value_range = ud.params.mu_ranges{i};
  value = (mu(i) - value_range(1))/(value_range(2)-value_range(1));
  set(slider,'value',value);
end;
ud.params = set_mu(mu,ud.params);
set(gcf,'UserData',ud);%| \docupdate