From bug-octave-request at bevo dot che dot wisc dot edu Sat Feb 3 18:16:21 2001 Subject: bin/hex2dec dec2bin/hex From: Paul Kienzle To: bug-octave at bevo dot che dot wisc dot edu, pkienzle@kienzle.powernet.co.uk Date: Sat, 03 Feb 2001 17:16:24 +0000 To: bug-octave at bevo dot che dot wisc dot edu Cc: pkienzle Subject: bin/hex2dec dec2bin/hex Bug report for Octave 2.1.31 configured for %OCTAVE_CANONICAL_HOST_TYPE% Description: ----------- bin2dec, dec2bin, dec2hex do not handle conversion of vectors dec2hex should produce uppercase values for compatibility hex2dec should be able to accept (and ignore) spaces dec2bin, dec2hex, hex2dec can be coded without loops base2dec, dec2base, strjust are missing Repeat-By: --------- octave2.1:9> dec2bin(1:3) ans = 11101 ::: should produce ["01";"10";"11"] octave2.1:10> dec2bin(["01";"10";"11"]) error: mapper: wrong type argument `string' error: evaluating binary operator `==' near line 52, column 15 error: evaluating binary operator `&&' near line 52, column 30 error: if: error evaluating conditional expression error: evaluating if command near line 52, column 7 error: evaluating for command near line 50, column 5 error: called from `dec2bin' in file `/home/pkienzle/octave21.31/scripts/strings/dec2bin.m' ::: should produce [ 1; 2; 3 ] octave2.1:10> dec2hex(1:3) ans = 123 ::: should produce ["1";"2";"3"] octave2.1:16> dec2hex(15) ans = f ::: should produce "F" for compatibility octave2.1:17> hex2dec(["f";"10"]) error: hex2dec: argument must be a string of hexadecimal digits error: evaluating if command near line 47, column 7 error: evaluating for command near line 45, column 5 error: evaluating if command near line 42, column 3 error: called from `hex2dec' in file `/home/pkienzle/octave21.31/scripts/strings/hex2dec.m' ::: should produce [ 15; 16 ] Fix: --- dec2base.m: ## Copyright (C) 2000 Daniel Calvelo ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## at deftypefn {Function File} {} dec2base (@var{n}, @var{b}) ## Return a string of symbols in base at var{b} corresponding to the ## the nonnegative integer at var{n} dot ## ## at example ## dec2base (123, 3) ## at result{} "11120" ## at end example ## ## If at var{n} is a vector, return a string matrix with one row per value, ## padded with leading zeros to the width of the largest value. ## ## If at var{b} is a string then the characters of @var{b} are used as ## the symbols for the digits of at var{n} dot Space (' ') may not be used ## as a symbol. ## ## at example ## dec2base (123, "aei") ## at result{} "eeeia" ## at end example ## at end deftypefn ## ## at seealso{base2dec, dec2bin, bin2dec, hex2dec, dec2hex} ## Author: Daniel Calvelo ## Adapted-by: Paul Kienzle ## 2001-02-02 Paul Kienzle ## * remove third arg.; base is either a 2-36, or a string of symbols ## * rewrite without loops ## * use texinfo for help function out = dec2base (d, base) if nargin != 2 usage("dec2base (n, base)"); endif if prod (size (d)) != length (d) error("dec2base: cannot convert matrices."); elseif any (d < 0 | d != fix (d)) error("dec2base: can only convert positive integers.") endif symbols = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; if isstr (base) symbols = base; base = length (symbols); if any (diff (sort (toascii (symbols))) == 0) error ("dec2base: symbols representing digits must be unique."); endif elseif !is_scalar (base) error ("dec2base: cannot convert from several bases at once."); elseif base < 2 || base > length (symbols) error ("dec2base: base must be between 2 and 36 or a string of symbols"); endif ## determine number of digits required to handle all numbers idx = find (d > 0); if !isempty (idx) maxLen = floor ( log (max (d (idx))) ./ log (base) ) + 1; else maxLen = 1; endif ## determine digits for each number power = ones (length (d), 1) * (base .^ [maxLen-1 : -1 : 0] ); d = d(:) * ones (1, maxLen); digits = floor (rem (d, base*power) ./ power); ## convert digits to symbols out = reshape (symbols (digits+1), size (digits)); endfunction base2dec.m: ## Copyright (C) 2000 Daniel Calvelo ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## at deftypefn {Function File} {} base2dec (@var{s}, @var{b}) ## Convert at var{s} from a string of digits of base @var{b} into an ## integer. ## ## at example ## base2dec ("11120", 3) ## at result{} 123 ## at end example ## ## If at var{s} is a matrix, returns a column vector with one value per ## row of at var{s} dot If a row contains invalid symbols then the ## corresponding value will be NaN. Rows are right-justified before ## converting so that trailing spaces are ignored. ## ## If at var{b} is a string, the characters of @var{b} are used as the ## symbols for the digits of at var{s} dot Space (' ') may not be used as a ## symbol. ## ## at example ## base2dec ("yyyzx", "xyz") ## at result{} 123 ## at end example ## ## at end deftypefn ## at seealso{dec2base, dec2bin, bin2dec, hex2dec, dec2hex} ## Author: Daniel Calvelo ## 2001-02-02 Paul Kienzle ## * remove third arg.; base is either a 2-36, or a string of symbols ## * rewrite without loops ## * invalid inputs return NaN function out = base2dec (d, base) if nargin != 2 usage ("n = base2dec('d', base)"); endif symbols = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; if isstr (base) symbols = base; base = length (symbols); if any (diff (sort (toascii (symbols))) == 0) error ("base2dec: symbols representing digits must be unique."); endif elseif !is_scalar (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 d = toupper (d); endif ## Right justify the values before anything else. d = strjust (d, "right"); ## Lookup value of symbols in symbol table, with invalid symbols ## evaluating to NaN and space evaluating to 0. table = NaN * ones (256, 1); table (toascii (symbols (1 : base))) = 0 : base-1; table (toascii (" ")) = 0; d = reshape ( table (toascii (d)), size (d) ); ## Multiply the resulting digits by the appropriate power and ## sum the rows. power = ones (size (d, 1), 1) * (base .^ [ size (d, 2)-1 : -1 : 0 ]); out = d .* power; if (size (d, 2) > 1) out = sum (out')'; endif endfunction strjust.m: ## Copyright (C) 2000 Paul Kienzle ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## {Function File} {} strjust ( at var{s}, ['left'|'right' {Function File} {} strjust (@var{s}, ['left'|'right'|'center']) ## Shift the non-blank text of at var{s} to the left, right or center of ## the string. If at var{s} is a string array, justify each string in the array. ## Null characters are replaced by blanks. If no justification is specified, ## then all rows are right-justified. ## at end deftypefn function x = strjust (x, just) if nargin < 1 || nargin > 2 usage ("strjust (s, ['left'|'right'|'center'])"); endif if nargin == 1 just = "right"; endif just = tolower (just); dfi = do_fortran_indexing; unwind_protect do_fortran_indexing = 1; ## convert nulls to blanks idx = find(toascii(x) == 0); if !isempty(idx), x(idx) = " "; endif ## For all cases, left, right and center, the algorithm is the same. ## Find the number of blanks at the left/right end to determine the ## shift, rotate the row index by using mod with that shift, then ## translate the shifted row index into an array index. [nr, nc] = size(x); idx = ( x' != " " ); if strcmp (just, "right") [N, hi] = max ( cumsum ( idx ) ); shift = hi; elseif strcmp (just, "left") [N, lo] = max ( cumsum ( flipud ( idx ) ) ); shift = (nc - lo); else [N, hi] = max ( cumsum ( idx ) ); [N, lo] = max ( cumsum ( flipud ( idx ) ) ); shift = ceil ( nc - (lo-hi)/2 ); endif idx = rem ( ones(nr,1)*[0:nc-1] + shift'*ones(1,nc), nc); x = x ( idx*nr + [1:nr]'*ones(1,nc) ); unwind_protect_cleanup do_fortran_indexing = dfi; end_unwind_protect endfunction dec2hex.m: ## Copyright (C) 2000 Daniel Calvelo ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## at deftypefn {Function File} {} dec2hex (@var{n}) ## Return the hexadecimal string corresponding to the nonnegative ## integer at var{n} dot For example, ## ## at example ## dec2hex (2748) ## at result{} "ABC" ## at end example ## ## If at var{n} is a vector, returns a string matrix, one row per value, ## padded with leading zeros to the width of the largest value. ## at end deftypefn ## ## at seealso{hex2dec, dec2base, base2dec, bin2dec, dec2bin} ## Author: Daniel Calvelo ## 2001-02-03 Paul Kienzle ## * use case selection code in dec2base ## * use Kurt Hornik's help text function h = dec2hex (d) if (nargin != 1) usage("dec2hex (b)"); else h = dec2base (d, 16); endif endfunction hex2dec.m: ## Copyright (C) 2000 Daniel Calvelo ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## at deftypefn {Function File} {} hex2dec (@var{s}) ## Returns the integer corresponding to the hexadecimal number stored ## in the string at var{s} dot For example, ## ## at example ## hex2dec ("12B") ## at result{} 299 ## hex2dec ("12b") ## at result{} 299 ## at end example ## ## If at var{s} is a string matrix, returns a column vector of converted ## numbers, one per row of at var{s} dot Invalid rows evaluate to NaN. ## at end deftypefn ## ## at seealso{dec2hex, base2dec, dec2base, bin2dec, dec2bin} ## Author: Daniel Calvelo ## Adapted-by: Paul Kienzle ## 2001-02-02 Paul Kienzle ## * use Kurt Hornik's texinfo for help function d = hex2dec (h) if (nargin != 1) usage("hex2dec (b)"); else d = base2dec (h, 16); endif endfunction dec2bin.m: ## Copyright (C) 2001 Daniel Calvelo ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## at deftypefn {Function File} {} dec2bin (@var{n}) ## Return a binary number corresponding the nonnegative decimal number ## at var{n}, as a string of ones and zeros. For example, ## ## at example ## dec2bin (14) ## at result{} "1110" ## at end example ## ## If at var{n} is a vector, returns a string matrix, one row per value, ## padded with leading zeros to the width of the largest value. ## at end deftypefn ## ## at seealso{bin2dec, dec2base, base2dec, hex2dec, dec2hex} ## Author: Daniel Calvelo ## 2001-02-02 Paul Kienzle ## * converted from dec2hex function h = dec2bin (d) if (nargin != 1) usage("dec2bin (b)"); else h = dec2base (d, 2); endif endfunction bin2dec.m: ## Copyright (C) 2000 Daniel Calvelo ## ## 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 2 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, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## at deftypefn {Function File} {} hex2dec (@var{s}) ## Return the decimal number corresponding to the binary number stored ## in the string at var{s} dot For example, ## ## at example ## hex2dec ("1110") ## at result{} 14 ## at end example ## ## If at var{s} is a string matrix, returns a column vector of converted ## numbers, one per row of at var{s} dot Invalid rows evaluate to NaN. ## at end deftypefn ## ## at seealso{dec2hex, base2dec, dec2base, bin2dec, dec2bin} ## Author: Daniel Calvelo ## Adapted-by: Paul Kienzle ## 2001-02-02 Paul Kienzle ## * converted from hex2dec.m function d = bin2dec (h) if (nargin != 1) usage("bin2dec (b)"); else d = base2dec (h, 2); endif endfunction Configuration (please do not edit this section): ----------------------------------------------- uname output: Linux kienzle 2.2.17 #1 Sun Sep 10 17:51:52 BST 2000 i586 unknown configure opts: --prefix=/usr --datadir=/usr/share --libdir=/usr/lib --libexecdir=/usr/lib --infodir=/usr/share/info --mandir=/usr/share/man --with-g77 --with-fastblas --enable-dl --enable-shared --enable-lite-kernel --disable-static --host i386-linux Fortran compiler: g77 FFLAGS: -O2 F2C: F2CFLAGS: FLIBS: -lg2c -lm -L/usr/lib/gcc-lib/i386-linux/2.95.2 -lm CPPFLAGS: INCFLAGS: -I. -I. -I./liboctave -I./src -I./libcruft/misc -I./glob -I./glob C compiler: gcc, version 2.95.2 20000220 (Debian GNU/Linux) CFLAGS: -O2 CPICFLAG: -fPIC C++ compiler: c++, version 2.95.2 20000220 (Debian GNU/Linux) CXXFLAGS: -O2 CXXPICFLAG: -fPIC LDFLAGS: -s LIBFLAGS: -L. RLD_FLAG: -Xlinker -rpath -Xlinker /usr/lib/octave-2.1.31 TERMLIBS: -lncurses LIBS: LEXLIB: LIBPLPLOT: LIBDLFCN: LIBGLOB: ./glob/glob.o ./glob/fnmatch.o DEFS: -DOCTAVE_SOURCE=1 -DSEPCHAR=':' -DSEPCHAR_STR=":" -DUSE_READLINE=1 -D__NO_MATH_INLINES=1 -DCXX_NEW_FRIEND_TEMPLATE_DECL=1 -DHAVE_LIBM=1 -DHAVE_LIBZ=1 -DF77_APPEND_UNDERSCORE=1 -DOCTAVE_LITE=1 -DSIZEOF_SHORT=2 -DSIZEOF_INT=4 -DSIZEOF_LONG=4 -DSIZEOF_LONG_LONG=8 -DHAVE_ALLOCA_H=1 -DHAVE_ALLOCA=1 -DNPOS=std::string::npos -DSTDC_HEADERS=1 -DHAVE_DIRENT_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_SYS_WAIT_H=1 -DHAVE_ASSERT_H=1 -DHAVE_CURSES_H=1 -DHAVE_DLFCN_H=1 -DHAVE_FCNTL_H=1 -DHAVE_FLOAT_H=1 -DHAVE_FNMATCH_H=1 -DHAVE_GLOB_H=1 -DHAVE_GRP_H=1 -DHAVE_LIMITS_H=1 -DHAVE_MEMORY_H=1 -DHAVE_NCURSES_H=1 -DHAVE_POLL_H=1 -DHAVE_PWD_H=1 -DHAVE_SGTTY_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_SYS_IOCTL_H=1 -DHAVE_SYS_PARAM_H=1 -DHAVE_SYS_POLL_H=1 -DHAVE_SYS_RESOURCE_H=1 -DHAVE_SYS_SELECT_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_SYS_TIME_H=1 -DHAVE_SYS_TIMES_H=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_UTSNAME_H=1 -DHAVE_TERMCAP_H=1 -DHAVE_TERMIO_H=1 -DHAVE_UNISTD_H=1 -DHAVE_VARARGS_H=1 -DHAVE_ATEXIT=1 -DHAVE_BCOPY=1 -DHAVE_BZERO=1 -DHAVE_DUP2=1 -DHAVE_ENDGRENT=1 -DHAVE_ENDPWENT=1 -DHAVE_EXECVP=1 -DHAVE_FCNTL=1 -DHAVE_FORK=1 -DHAVE_GETCWD=1 -DHAVE_GETEGID=1 -DHAVE_GETEUID=1 -DHAVE_GETGID=1 -DHAVE_GETGRENT=1 -DHAVE_GETGRGID=1 -DHAVE_GETGRNAM=1 -DHAVE_GETHOSTNAME=1 -DHAVE_GETPGRP=1 -DHAVE_GETPID=1 -DHAVE_GETPPID=1 -DHAVE_GETPWENT=1 -DHAVE_GETPWNAM=1 -DHAVE_GETPWUID=1 -DHAVE_GETTIMEOFDAY=1 -DHAVE_GETUID=1 -DHAVE_GETWD=1 -DHAVE_LOCALTIME_R=1 -DHAVE_LSTAT=1 -DHAVE_MEMMOVE=1 -DHAVE_MKDIR=1 -DHAVE_MKFIFO=1 -DHAVE_ON_EXIT=1 -DHAVE_PIPE=1 -DHAVE_POLL=1 -DHAVE_PUTENV=1 -DHAVE_RENAME=1 -DHAVE_RINDEX=1 -DHAVE_RMDIR=1 -DHAVE_SELECT=1 -DHAVE_SETGRENT=1 -DHAVE_SETPWENT=1 -DHAVE_SETVBUF=1 -DHAVE_SIGACTION=1 -DHAVE_SIGPENDING=1 -DHAVE_SIGPROCMASK=1 -DHAVE_SIGSUSPEND=1 -DHAVE_STAT=1 -DHAVE_STRCASECMP=1 -DHAVE_STRDUP=1 -DHAVE_STRERROR=1 -DHAVE_STRFTIME=1 -DHAVE_STRNCASECMP=1 -DHAVE_STRPTIME=1 -DHAVE_TEMPNAM=1 -DHAVE_UMASK=1 -DHAVE_UNLINK=1 -DHAVE_USLEEP=1 -DHAVE_VFPRINTF=1 -DHAVE_VSPRINTF=1 -DHAVE_VSNPRINTF=1 -DHAVE_WAITPID=1 -DHAVE_LIBDL=1 -DHAVE_DLOPEN=1 -DHAVE_DLSYM=1 -DHAVE_DLERROR=1 -DHAVE_DLCLOSE=1 -DWITH_DL=1 -DWITH_DYNAMIC_LINKING=1 -DHAVE_TIMEVAL=1 -DHAVE_FINITE=1 -DHAVE_ISNAN=1 -DHAVE_ISINF=1 -DHAVE_ACOSH=1 -DHAVE_ASINH=1 -DHAVE_ATANH=1 -DHAVE_ERF=1 -DHAVE_ERFC=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_ST_BLOCKS=1 -DHAVE_ST_RDEV=1 -DHAVE_TM_ZONE=1 -DHAVE_GR_PASSWD=1 -DEXCEPTION_IN_MATH=1 -DRETSIGTYPE=void -DSYS_SIGLIST_DECLARED=1 -DHAVE_SYS_SIGLIST=1 -DHAVE_POSIX_SIGNALS=1 -DHAVE_GETRUSAGE=1 -DHAVE_TIMES=1 -DGNUPLOT_HAS_MULTIPLOT=1 -DGNUPLOT_HAS_FRAMES=1 User-preferences (please do not edit this section): -------------------------------------------------- EDITOR = "vi" EXEC_PATH = "/home/pkienzle/matcompat21/bin::/scratch/programs/audio/package/pipewave.1.3/bin:/scratch/programs/audio/pitch/POWERpv1.1G/bin:/home/pkienzle/pantome/bin:/home/pkienzle/sfs/bin:/home/pkienzle/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/games" IMAGEPATH = ".:/usr/share/octave/2.1.31/imagelib//" INFO_FILE = "/usr/share/info/octave.info" INFO_PROGRAM = "info" LOADPATH = ".:/home/pkienzle/matcompat21//:/home/pkienzle/octave//::" PAGER = "less" PS1 = "\\s:\\#> " PS2 = "> " PS4 = "+ " automatic_replot = 0 beep_on_error = 0 completion_append_char = " " default_eval_print_flag = 1 # default_global_variable_value = default_return_value = [] default_save_format = "ascii" define_all_return_values = 0 do_fortran_indexing = 0 echo_executing_commands = 0 empty_list_elements_ok = "warn" fixed_point_format = 0 gnuplot_binary = "gnuplot" gnuplot_command_end = "\n" gnuplot_command_plot = "pl" gnuplot_command_replot = "rep" gnuplot_command_splot = "sp" gnuplot_command_title = "t" gnuplot_command_using = "u" gnuplot_command_with = "w" gnuplot_has_frames = 1 gnuplot_has_multiplot = 1 history_file = "/home/pkienzle/.octave_hist" history_size = 1024 ignore_function_time_stamp = "system" implicit_num_to_str_ok = 0 implicit_str_to_num_ok = 0 initialize_global_variables = 0 max_recursion_depth = 256 ok_to_lose_imaginary_part = "warn" output_max_field_width = 10 output_precision = 5 page_output_immediately = 0 page_screen_output = 1 prefer_column_vectors = 1 print_answer_id_name = 1 print_empty_dimensions = 1 print_rhs_assign_val = 0 propagate_empty_matrices = 1 resize_on_range_error = 1 return_last_computed_value = 0 save_precision = 15 saving_history = 1 silent_functions = 0 split_long_rows = 1 string_fill_char = " " struct_levels_to_print = 2 suppress_verbose_help_message = 1 treat_neg_dim_as_zero = 0 warn_assign_as_truth_value = 1 warn_divide_by_zero = 1 warn_function_name_clash = 1 warn_future_time_stamp = 1 warn_missing_semicolon = 0 warn_variable_switch_label = 0 whitespace_in_literal_matrix = ------------------------------------------------------------- Octave is freely available under the terms of the GNU GPL. Octave's home on the web: http://www.octave.org How to fund new projects: http://www.octave.org/funding.html Subscription information: http://www.octave.org/archive.html -------------------------------------------------------------