function wykres()
  k=10; a=3;
  a=0; b=10*pi; N=200;
  dx=(b-a)/N;
  for i=1:N+1
    x(i)=a+i*dx;
    y(i)= exp(-x(i)/k)*sin(x(i));
  endfor
  plot(x,y,'r-','linewidth',2)
  grid on
  xlabel('os x'); ylabel('os y');
  title(' wykres funkcji')
  axis([-5, 35, -1, 1])
  hold on
  y= f(x);
  plot(x,y, 'b-');
  
endfunction
function y=f(x)
  y=exp(-x/10);
endfunction
