Mercurial > octave
view scripts/strings/base2dec.m @ 28912:0de38a6ef693
maint: Use Octave convention of space after function name in scripts dir.
* cplxpair.m, gradient.m, integral.m, integral3.m, interp2.m, interpft.m,
num2str.m, pol2cart.m, quad2d.m, quadgk.m, quadl.m, repelem.m, sph2cart.m,
convhull.m, delaunay.m, delaunayn.m, movegui.m, print_usage.m,
__strip_html_tags__.m, colormap.m, gray2ind.m, imformats.m, importdata.m,
javachk.m, condest.m, isbanded.m, krylov.m, lscov.m, rref.m, inputParser.m,
publish.m, symvar.m, validateattributes.m, ode15i.m, ode15s.m, ode23.m,
ode23s.m, ode45.m, fminbnd.m, fminsearch.m, glpk.m, qp.m, get_forge_pkg.m,
installed_packages.m, annotation.m, axis.m, camorbit.m, campos.m, camva.m,
camzoom.m, daspect.m, legend.m, pbaspect.m, __gnuplot_legend__.m, light.m,
patch.m, plotyy.m, __pie__.m, reducepatch.m, ribbon.m, streamline.m, trisurf.m,
figure.m, ndgrid.m, __gnuplot_draw_axes__.m, __opengl_print__.m, padecoef.m,
polygcd.m, ppval.m, spline.m, union.m, bicg.m, bicgstab.m, cgs.m, eigs.m,
gmres.m, pcg.m, pcr.m, __alltohandles__.m, __sprand__.m, qmr.m, tfqmr.m,
betaincinv.m, cosint.m, gammainc.m, discrete_cdf.m, discrete_inv.m,
discrete_rnd.m, base2dec.m, strtok.m, compare_plot_demos.m,
html_compare_plot_demos.m, speed.m, test.m, weboptions.m, webread.m, webwrite.m:
Use Octave convention of space after function name and before '(' in scripts
directory.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 13 Oct 2020 18:17:29 -0700 |
parents | d8318c12d903 |
children | 7854d5752dd2 |
line wrap: on
line source
######################################################################## ## ## Copyright (C) 2000-2020 The Octave Project Developers ## ## See the file COPYRIGHT.md in the top-level directory of this ## distribution or <https://octave.org/copyright/>. ## ## This file is part of Octave. ## ## Octave 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. ## ## Octave 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 Octave; see the file COPYING. If not, see ## <https://www.gnu.org/licenses/>. ## ######################################################################## ## -*- texinfo -*- ## @deftypefn {} {} base2dec (@var{s}, @var{base}) ## Convert @var{s} from a string of digits in base @var{base} to a decimal ## integer (base 10). ## ## @example ## @group ## base2dec ("11120", 3) ## @result{} 123 ## @end group ## @end example ## ## If @var{s} is a string matrix, return a column vector with one value per ## row of @var{s}. If a row contains invalid symbols then the corresponding ## value will be NaN@. ## ## If @var{s} is a cell array of strings, return a column vector with one ## value per cell element in @var{s}. ## ## If @var{base} is a string, the characters of @var{base} are used as the ## symbols for the digits of @var{s}. Space (' ') may not be used as a symbol. ## ## @example ## @group ## base2dec ("yyyzx", "xyz") ## @result{} 123 ## @end group ## @end example ## @seealso{dec2base, bin2dec, hex2dec} ## @end deftypefn function out = base2dec (s, base) if (nargin != 2) print_usage (); endif if (iscellstr (s)) s = char (s); elseif (! ischar (s)) error ("base2dec: S must be a string or cellstring"); endif symbols = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; if (ischar (base)) symbols = base; base = length (symbols); if (length (unique (symbols)) != base) error ("base2dec: symbols representing digits must be unique"); endif if (any (isspace (symbols))) error ("base2dec: whitespace characters are not valid symbols"); endif elseif (! isscalar (base)) error ("base2dec: cannot convert from several bases at once"); elseif (! (base >= 2 && base <= length (symbols))) error ("base2dec: BASE must be between 2 and 36, or a string of symbols"); else s = toupper (s); endif ## Right justify the values and squeeze out any spaces. ## This looks complicated, but indexing solution is very fast ## compared to alternatives which use cellstr or cellfun or looping. [nr, nc] = size (s); if (nc > 1) # Bug #35621 s = s.'; nonbl = s != " "; num_nonbl = sum (nonbl); nc = max (num_nonbl); num_blank = nc - num_nonbl; R = repmat ([1 2; 0 0], 1, nr); R(2, 1:2:2*nr) = num_blank; R(2, 2:2:2*nr) = num_nonbl; idx = repelems ([false, true], R); idx = reshape (idx, nc, nr); ## Create a blank matrix and position the nonblank characters. s2 = repmat (" ", nc, nr); s2(idx) = s(nonbl); s = s2.'; endif ## Lookup value of symbols in symbol table, with invalid symbols ## evaluating to NaN and space evaluating to 0. table = NaN (1, 256); table(double (symbols(1:base))) = 0 : base-1; table(double (" ")) = 0; s = reshape (table(double (s)), size (s)); ## Multiply the resulting digits by the appropriate power ## and sum the rows. out = s * (base .^ (columns (s)-1 : -1 : 0)'); endfunction %!assert (base2dec ("11120", 3), 123) %!assert (base2dec ("yyyzx", "xyz"), 123) %!assert (base2dec ("-1", 2), NaN) %!assert (base2dec ({"A1", "1A"}, 16), [161; 26]) %!assert <*35621> (base2dec (["0"; "1"], 2), [0; 1]) ## Test input validation %!error <Invalid call> base2dec () %!error base2dec ("11120") %!error base2dec ("11120", 3, 4) %!error <symbols .* must be unique> base2dec ("11120", "1231") %!error <whitespace characters are not valid> base2dec ("11120", "12 3") %!error <cannot convert from several bases> base2dec ("11120", ones (2)) %!error <BASE must be between 2 and 36> base2dec ("11120", 1) %!error <BASE must be between 2 and 36> base2dec ("11120", 37) %!error <BASE must be between 2 and 36> base2dec ("11120", NaN)