2 % small script performing animation, that can be captured
4 % Bernard Haasdonk 17.11.2008
6 if isempty(
get(gcf,
'Tag'))
12 % time loops for parameter variation
13 show_title('TIME LOOP');
14 set_mu_demo_rb_gui(gcf,[0,1,5e-8]);
15 loop_demo_rb_gui(gcf,'time',5);
17 show_title('PARAMETER VARIATION: k');
18 %params = set_mu([0,1,5e-8],params);
19 loop_demo_rb_gui(gcf,'k',0.5e-8);
21 show_title('PARAMETER VARIATION: c_{init}
');
22 %params = set_mu([0,1,5e-8],params);
23 loop_demo_rb_gui(gcf,'c_init
',1);
29 function show_title(txt)
30 title(txt,'Fontsize
',20,'Color
',[1,0,0]);
34 function set_mu_demo_rb_gui(fhandle,mu)
35 ud = get(gcf,'UserData
');
37 slider = findobj(fhandle,'tag
',['slider_
',ud.model.mu_names{i}]);
38 value_range = ud.model.mu_ranges{i};
39 value = (mu(i) - value_range(1))/(value_range(2)-value_range(1));
40 set(slider,'value
',value);
42 ud.model = set_mu(ud.model,mu);
43 set(gcf,'UserData
',ud);%| \docupdate
function demo_rb_gui(varargin)
reduced basis demo with sliders
function simtech_animation()
small script performing animation, that can be captured