summaryrefslogtreecommitdiffstats log msg author committer range
blob: 1ecc64b4f976f8c57b958580f3b35eb329233132 (plain)
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab // Copyright (C) INRIA // Copyright (C) DIGITEO - 2011 - Allan CORNET // // Copyright (C) 2012 - 2016 - Scilab Enterprises // // This file is hereby licensed under the terms of the GNU GPL v2.0, // pursuant to article 5.3.4 of the CeCILL v.2.1. // This file was originally licensed under the terms of the CeCILL v2.1, // and continues to be available under such terms. // For more information, see the COPYING file which you should have received // along with this program. function y = linspace(d1, d2, n) // Linearly spaced vector. // linspace(x1, x2) generates a row vector of 100 linearly // equally spaced points between x1 and x2. // linspace(x1, x2, n) generates n points between x1 and x2. rhs = argn(2); if rhs < 2 then error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"linspace", 2)); end if size(d1,2)<>1 then error(msprintf(gettext("%s: Wrong size for input argument #%d: A column vector expected.\n"),"linspace",1)); end if ~and(size(d1) == size(d2)) then error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: Same sizes expected.\n"),"linspace",1,2)); end if rhs == 2 then n = 100; else if and(type(n)<>[1 8]) | size(n,"*")<>1 then error(msprintf(gettext("%s: Wrong type for input argument #%d: An integer value expected.\n"),"linspace",3)); end if type(n) == 1 & int(n) <> n then error(msprintf(gettext("%s: Wrong value for input argument #%d: An integer value expected.\n"),"linspace",3)); elseif type(n) == 8 then n = double(n); // Convert for the operations to come end end if (n - 1) <= 0 then y = d2; else y = ((d2-d1) * (0:n-1)) / (n-1) + d1 * ones(1,n); // forces the last value to be in the interval y(:,\$) = d2; end endfunction