- refactored

2022-06-30 13:32:40 +02:00
parent 77cd5261b1
commit 776932e5d1
144 changed files with 0 additions and 38 deletions
@@ -0,0 +1,26 @@
+% ##################################################################################
+% ##  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 #####
+