generate_scs_diagr_dem - generate the text of modnum scicos diagram demonstration
txt = generate_scs_diagr_dem
- txt : vector of strings. scilab instructions to execute
//txt : le texte à executer pour ouvrir
// le menu de demo des diagrammes scicos
function txt=generate_scs_diagr_dem()
demos_list=['diagr_cs','tt_title(1,l_i)';
'diagr_ds','tt_title(2,l_i)';
'diagr_os','tt_title(3,l_i)';
'diagr_is','tt_title(4,l_i)';
'diagr_fs','tt_title(5,l_i)';
'diagr_PSK','tt_title(6,l_i)';
'diagr_SD','tt_title(7,l_i)';
'diagr_FSK','tt_title(8,l_i)';
'diagr_FSK_chaos','tt_title(9,l_i)';
'diagr_elec','tt_title(10,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=[''Chaotic Continous time systems'',''Systèmes chaotiques à temps continu'''
' ''Chaotic Discrete time systems'',''Systèmes chaotiques à temps discret'''
' ''Open loop models of oscillator'',''Modèles boucle ouverte d''''oscillateur'''
' ''Integer N Frequency synthesizers'',''Synthétiseurs de fréquence à rapport de division N entier'''
' ''Fractional N/N+1 Frequency synthesizers'',''Synthétiseurs de fréquence à rapport de division fractionnaire'''
' ''PSK/QAM Transmission'',''Transmission PSK/QAM'''
' ''Delta-Sigma Transmission'',''Transmission Sigma-Delta'''
' ''FSK Transmission'',''Transmission FSK'''
' ''Chaotic FSK Transmission'',''Transmission chaotique FSK'''
' ''Electrical circuits'',''Circuits électriques'''
' ''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(11,l_i));'
' if num==0 then'
' return'
' else';
' txt=generate_dem_scicos(num,demos_list);'
' execstr(txt)';
' end';
'end';
];
txt=[var_tt;sup_tt;]
endfunction
IRCOM Group
Alan Layec