% ##################################################################################
% ##  Funktion: lgenexp.m; Exponentialfolge                                       ##
% ##################################################################################
%
% function [y,k]=lgenexp(a,k0,l)
%
% Generiert eine Exponentialfolge b^k
%        a:  Eingabeskalar
%       k0:  Startindex
%        l:  Laenge der Exponentialfolge 

function [y,k]=lgenexp(a,k0,l)

if nargin ~= 3
  error('Aufruf ist: Y = GENEXP( B, K0, L)');
end;
if l<=0   
  error('Signallaenge muss positiv sein');
end;
if abs(a)>1
  error('|a| muss kleiner Eins sein');
end;
k = k0 + [1:l]' - 1;
y = a .^ k;
% ##### EOF #####