function ppp_examples () ## usage: ppp_examples () ## ## Various menu-driven PPP examples str="menu(""Predictive Pole-Placement (PPP) examples"",""Exit"",""All examples"; # Menu string used = 2; option=used; while option>1 exists=1; i_example=1; # Example counter while exists name=sprintf("ppp_ex%i",i_example); exists=(exist(name)==2); if exists title = eval(sprintf("%s(1);", name)); str = sprintf("%s"",""%s",str,title); i_example++; endif endwhile n_examples = i_example-1; str = sprintf("%s"" );\n",str); option=eval(str); # Menu - ask user if option>1 # Do something - else return if option==2 # All examples Examples=1:n_examples; else # Just the chosen examples Examples = option-used; endif for example=Examples # Do the chosen examples eval(sprintf("Title = ppp_ex%i(1);",example)); disp(sprintf("Evaluating example ppp_ex%i:\n\t %s\n", example, Title)); eval(sprintf("ppp_ex%i;",example)); endfor endif endwhile endfunction