% ##################################################################################
% ##  Funktion  [y,k]=ldsin(A,w,phi,k1,k2)                                        ##
% ##################################################################################
% Generiert ein Sinussignal endlicher Laenge mit Amplitude A, Frequenz W, Phase PHI 
% und Zeitindex k1<= k <= k2: y = A*sin(W*k+PHI).

function [y,k]=ldsin(A,w,phi,k1,k2)

if nargin ~= 5             % Ueberpruefen der Eingabeparameter
   error('Falsche Anzahl an Eingabeparametern!')
end
k = k1:k2;
y = A*sin(w*k+phi);
% ##### EOF #####