deff('y=gauss(u)','y=exp(-(u)^2)'); // Scilab-Funktionsdefinition ('neuname','function')
 deff('z=welle(w)','z=gauss(w)-.3*gauss(w-2)');      // mit negativem Schwanz


 scf(0);   // set current figure
 clf(0);   // clear current figure
 realtimeinit(.1);  //sets time unit in seconds

          i=1000;    // Bildindex ab 1000, sonst Explorer-Probleme
          hoehe=.5; winkel=0; box=1;     // Label: Höhe Winkel Box

          x=-10:.1:10;  // von:delta:bis
          
for vt=-7:.1:7;    // von : delta : bis    Parameter ist vt

          // pause // "return" eintippen in Konsole
          clf(0);   // clear current figure

          subplot(411);     // Reihen, Spalte, Element
          titel='(A) +X Welle f(x,vt) = welle(-(x-vt)) = welle(vt-x)'; 
          plot(x,welle(vt-x),'red');
          xstring(vt,hoehe,' vt = '+string(vt)+' ',winkel,box);  // Label
          xtitle(titel,'x','f(x)');               // Titel
          
          subplot(412);     // Reihen, Spalte, Element
          titel='(B) -X Welle f(x,vt) = welle(vt+x)'; 
          plot(x,welle(x+vt),'green');
          xstring(-vt,hoehe,' vt = '+string(vt)+' ',winkel,box);  // Label
          xtitle(titel,'x','f(x)');               // Titel
 
          subplot(413);     // Reihen, Spalte, Element
          titel='(C) +T Welle f(x,vt) = welle(x-vt)'; 
          plot(x,welle(x-vt),'blue');
          xstring(vt,hoehe,' vt = '+string(vt)+' ',winkel,box);  // Label
          xtitle(titel,'x','f(x)');               // Titel
  
          subplot(414);     // Reihen, Spalte, Element
          titel='(D) -T Welle f(x,vt) = welle(-x-vt)'; 
          plot(x,welle(-x-vt),'black');
          xstring(-vt,hoehe,' vt = '+string(vt)+' ',winkel,box);  // Label
          xtitle(titel,'x','f(x)');               // Titel
       
          // realtime(i);  // langsam darstellen, verweile bei Bedarf etwas

          xs2gif(0,'4wellen_vt_-schwanz_'+string(i)+'.gif');   // # Ausgabe als GIF-File
          i=i+1;        // Index-Zähler für GIF-Bilder
          xselect();    // Fenster on top

end;

          xs2gif(0,'4wellen_vt_+schwanz'+string(vt)+'.gif');   // # Ausgabe als GIF-File