Fonction Scilab
fr


generate_sim_dem

Contenu du fichier


//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