txt = generate_sim_dem
//txt : le texte à executer pour ouvrir // le menu de demo des scripts de simulations function txt=generate_sim_dem() demos_list=['sim_chaos','tt_title(1,l_i)'; 'sim_synthe','tt_title(2,l_i)'; 'sim_PSK','tt_title(3,l_i)';]; list_demos=list(list()); for i=1:size(demos_list,1) new_tt=evstr(demos_list(i)); list_demos(i)=""; if new_tt<>[] & new_tt<>"" then new_tt=[''''+strsubst(new_tt,'''','''''')+'''']; for j=1:size(new_tt,1) stri=strindex(new_tt(j,1),MODNUM); if stri<>[] then new_tt(j,1)='MODNUM+'+''''+part(new_tt(j,1),stri+length(MODNUM):length(new_tt(j,1))); end end for j=1:size(new_tt,1) if j==1 then list_demos(i)=[new_tt(j,1)+','+new_tt(j,2)+';']; else list_demos(i)=[list_demos(i);new_tt(j,1)+','+new_tt(j,2)+';']; end end end list_demos(i)=[demos_list(i,1)+'=[';list_demos(i);]; list_demos(i)(size(list_demos(i),1))=list_demos(i)(size(list_demos(i),1))+'];'; end var_tt=[''''+strsubst(demos_list(:,1),'''','''''')+''''+... ','+strsubst(demos_list(:,2),'''','''''')+';']; var_tt=['demos_list=[';var_tt]; var_tt(size(var_tt,1))=var_tt(size(var_tt,1))+'];'; for i=1:size(demos_list,1) var_tt=[var_tt;list_demos(i)]; end var_tt=['if ~exists(''LANGUAGE'') then' ' global LANGUAGE;lang=LANGUAGE;clear LANGUAGE;' 'else' ' lang=LANGUAGE;' 'end' '' 'if lang==''fr'' then' ' l_i=2;' 'else' ' l_i=1;' 'end' '' 'tt_title=[''Simulations of chaotic systems'',''Simulations de systèmes chaotiques''' ' ''Simulations of oscillators & Phase Locked Loop'',''Simulations d''''oscillateurs et de boucles à verrouillage de phase''' ' ''Simulations of communication systems'',''Simulations de systèmes de communication''' ' ''Choose a demo'',''Choisissez une démo'']' '' var_tt] sup_tt=['if ~exists(''fun'') then' ' fun=x_choose' ' if whereis(''tk_choose'')<>[] then' ' if exists(''with_tk'') then' ' if with_tk() then fun=tk_choose, end;' ' end' ' end' ' end' 'while %t then' ' num=fun(demos_list(:,2),tt_title(4,l_i));' ' if num==0 then' ' return' ' else'; ' txt=generate_dem_sim(num,demos_list);' ' execstr(txt)'; ' end'; 'end'; ]; //pause txt=[var_tt;sup_tt;] endfunction