function [w] = soltr(w,nx,dx,dt,a,n)
%
% solution exacte de l'equation de transport
%

  for i=1:nx
      xi = (i-1)*dx  ;
      w(i) = sin((xi-a*n*dt)*2*pi) ;
  end





