- refactored

common/distort.m

@@ -1,27 +0,0 @@
-## Copyright (C) 2016 Jens Ahrensfeld
-## 
-## This program is free software; you can redistribute it and/or modify it
-## under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 3 of the License, or
-## (at your option) any later version.
-## 
-## This program is distributed in the hope that it will be useful,
-## but WITHOUT ANY WARRANTY; without even the implied warranty of
-## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-## GNU General Public License for more details.
-## 
-## You should have received a copy of the GNU General Public License
-## along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-## -*- texinfo -*- 
-## @deftypefn {Function File} {@var{retval} =} distort (@var{input1}, @var{input2})
-##
-## @seealso{}
-## @end deftypefn
-
-## Author: Jens Ahrensfeld <ahrensfeld@w2ess001vm>
-## Created: 2016-04-15
-
-function [retval] = distort (input1, input2)
-
-endfunction

common/distort_eval.m

@@ -1,11 +0,0 @@
-function distort_eval(k)
-
-N = 100;
-
-x = (0:(N-1))/(N-1);
-
-b = 0.9
-
-y = b + (1-b)*x.*exp(k*abs(x))./exp(k);
-
-plot(x, y); grid;