%

%function [u,v]=sd2uv(s,d)

function [u,v]=sd2uv(s,d)

%

for k=1:length(s);
  u(k)=s(k)*sin(6.28318*(d(k)/360));

  v(k)=s(k)*cos(6.28318*(d(k)/360));

end;