generate_sim_dem - generate the text of scilab simulation script demonstration
txt = generate_sim_dem
- txt : vector of strings. scilab instructions to execute
//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 exists(''with_tk'') then'
' if with_tk() then fun=tk_choose, 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
IRCOM Group
Alan Layec