4 |
5 | int
6 | main (void)
7 | {
8 | int n = 2;
9 | Matrix a_matrix = Matrix (n, n);
10 |
11 | for (octave_idx_type i = 0; i < n; i++)
12 | for (octave_idx_type j = 0; j < n; j++)
13 | a_matrix(i,j) = (i + 1) * 10 + (j + 1);
14 |
15 | std::cout << "This is a matrix:" << std::endl
16 | << a_matrix << std::endl;
17 |
18 | octave_value_list in;
19 | in(0) = a_matrix;
20 |
21 | octave_value_list out = Fnorm (in, 1);
22 | double norm_of_the_matrix = out(0).double_value ();
23 |
24 | std::cout << "This is the norm of the matrix:" << std::endl
25 | << norm_of_the_matrix << std::endl;
26 |
27 | return 0;
28 | }
29 |
--------------------------------------------------------------------------------
/liboctave/external/odepack/vnorm.f:
--------------------------------------------------------------------------------
1 | DOUBLE PRECISION FUNCTION VNORM (N, V, W)
2 | CLLL. OPTIMIZE
3 | C-----------------------------------------------------------------------
4 | C THIS FUNCTION ROUTINE COMPUTES THE WEIGHTED ROOT-MEAN-SQUARE NORM
5 | C OF THE VECTOR OF LENGTH N CONTAINED IN THE ARRAY V, WITH WEIGHTS
6 | C CONTAINED IN THE ARRAY W OF LENGTH N..
7 | C VNORM = SQRT( (1/N) * SUM( V(I)*W(I) )**2 )
8 | C-----------------------------------------------------------------------
9 | INTEGER N, I
10 | DOUBLE PRECISION V, W, SUM
11 | DIMENSION V(N), W(N)
12 | SUM = 0.0D0
13 | DO 10 I = 1,N
14 | 10 SUM = SUM + (V(I)*W(I))**2
15 | VNORM = DSQRT(SUM/DBLE(N))
16 | RETURN
17 | C----------------------- END OF FUNCTION VNORM -------------------------
18 | END
19 |
--------------------------------------------------------------------------------
/liboctave/external/amos/README:
--------------------------------------------------------------------------------
1 | The files in this directory have been modified from those found on
2 | netlib by changing the following subroutine names
3 |
4 | zabs --> xzabs
5 | zexp --> xzexp
6 | zlog --> xzlog
7 | zsqrt --> xzsqrt
8 |
9 | to avoid conflicts with non-standard but commonly used Fortran
10 | intrinsic function names.
11 |
12 | John W. Eaton
13 | jwe@octave.org
14 |
15 | Wed Nov 11 17:29:50 1998
16 |
17 | More files have been modified to recover Matlab compatibility for
18 | Bessel functions. Now the output is always computed, independently
19 | from the magnitude of the input
20 |
21 | cbesh.f
22 | cbesi.f
23 | cbesj.f
24 | cbesk.f
25 | zbesh.f
26 | zbesi.f
27 | zbesj.f
28 | zbesk.f
29 |
30 | Michele Ginesi
31 | michele.ginesi@gmail.com
32 |
33 | Sat Jul 22 11:43:40 2017
34 |
--------------------------------------------------------------------------------
/test/fcn-handle/module.mk:
--------------------------------------------------------------------------------
1 | fcn_handle_TEST_FILES = \
2 | %reldir%/+pkga/+pkgb/bug51709_a.m \
3 | %reldir%/+pkga/+pkgb/bug51709_b.m \
4 | %reldir%/+pkga/+pkgb/f1.m \
5 | %reldir%/+pkga/+pkgb/f2.m \
6 | %reldir%/@fhdr_derived/fhdr_derived.m \
7 | %reldir%/@fhdr_other/fhdr_other.m \
8 | %reldir%/@fhdr_other/getsize_arrayfun.m \
9 | %reldir%/@fhdr_other/getsize_cellfun.m \
10 | %reldir%/@fhdr_other/getsize_loop.m \
11 | %reldir%/@fhdr_parent/fhdr_parent.m \
12 | %reldir%/@fhdr_parent/numel.m \
13 | %reldir%/bug51709_a.m \
14 | %reldir%/bug51709_c.m \
15 | %reldir%/derived-resolution.tst \
16 | %reldir%/f1.m \
17 | %reldir%/keyword.tst \
18 | %reldir%/object-method.tst \
19 | %reldir%/package-function.tst \
20 | %reldir%/static-method.tst
21 |
22 | TEST_FILES += $(fcn_handle_TEST_FILES)
23 |
--------------------------------------------------------------------------------
/CITATION:
--------------------------------------------------------------------------------
1 | To cite GNU Octave in publications use:
2 |
3 | John W. Eaton, David Bateman, Søren Hauberg, Rik Wehbring (2019).
4 | GNU Octave version 5.2.0 manual: a high-level interactive language for
5 | numerical computations.
6 | URL https://www.gnu.org/software/octave/doc/v5.2.0/
7 |
8 | A BibTeX entry for LaTeX users is:
9 |
10 | @manual{,
11 | title = {{GNU Octave} version 5.2.0 manual: a high-level interactive language for numerical computations},
12 | author = {John W. Eaton and David Bateman and S{\o}ren Hauberg and Rik Wehbring},
13 | year = {2020},
14 | url = {https://www.gnu.org/software/octave/doc/v5.2.0/},
15 | }
16 |
17 | We have invested a lot of time and effort in creating GNU Octave, please
18 | cite it when using it. See also 'citation pkgname' for citing Octave
19 | packages.
20 |
--------------------------------------------------------------------------------
/scripts/set/module.mk:
--------------------------------------------------------------------------------
1 | FCN_FILE_DIRS += \
2 | %reldir% \
3 | %reldir%/private
4 |
5 | %canon_reldir%_PRIVATE_FCN_FILES = \
6 | %reldir%/private/validsetargs.m
7 |
8 | %canon_reldir%_FCN_FILES = \
9 | %reldir%/intersect.m \
10 | %reldir%/ismember.m \
11 | %reldir%/powerset.m \
12 | %reldir%/setdiff.m \
13 | %reldir%/setxor.m \
14 | %reldir%/union.m \
15 | %reldir%/unique.m
16 |
17 | %canon_reldir%dir = $(fcnfiledir)/set
18 |
19 | %canon_reldir%_DATA = $(%canon_reldir%_FCN_FILES)
20 |
21 | %canon_reldir%_privatedir = $(fcnfiledir)/set/private
22 |
23 | %canon_reldir%_private_DATA = $(%canon_reldir%_PRIVATE_FCN_FILES)
24 |
25 | FCN_FILES += \
26 | $(%canon_reldir%_FCN_FILES) \
27 | $(%canon_reldir%_PRIVATE_FCN_FILES)
28 |
29 | PKG_ADD_FILES += %reldir%/PKG_ADD
30 |
31 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
32 |
--------------------------------------------------------------------------------
/test/classes/@Snork/subsref.m:
--------------------------------------------------------------------------------
1 | function b = subsref (snk, s)
2 |
3 | if (isempty (s))
4 | error ('Snork: missing index');
5 | end
6 | switch (s(1).type)
7 | case '()'
8 | ind = s(1).subs;
9 | if (numel (ind) ~= 1)
10 | error ('Snork: need exactly one index');
11 | else
12 | b = snk.cack(ind{1});
13 | end
14 | case '{}'
15 | ind = s(1).subs;
16 | if (numel (ind) ~= 1)
17 | error ('Snork: need exactly one index');
18 | else
19 | b = snk.cack(ind{1});
20 | end
21 | case '.'
22 | fld = s.subs;
23 | if (strcmp (fld, 'gick'))
24 | b = snk.gick;
25 | else
26 | error ('Snork/subsref: invalid property \"%s\"', fld);
27 | end
28 | otherwise
29 | error ('invalid subscript type');
30 | end
31 |
32 | end
33 |
--------------------------------------------------------------------------------
/scripts/profiler/module.mk:
--------------------------------------------------------------------------------
1 | FCN_FILE_DIRS += %reldir%
2 |
3 | %canon_reldir%_FCN_FILES = \
4 | %reldir%/profexplore.m \
5 | %reldir%/profexport.m \
6 | %reldir%/profile.m \
7 | %reldir%/profshow.m
8 |
9 | %canon_reldir%dir = $(fcnfiledir)/profiler
10 |
11 | %canon_reldir%_DATA = $(%canon_reldir%_FCN_FILES)
12 |
13 | %canon_reldir%_htmldir = $(octetcdir)/profiler
14 |
15 | %canon_reldir%_html_DATA = \
16 | %reldir%/html/flat.html \
17 | %reldir%/html/flat_entry.html \
18 | %reldir%/html/function.html \
19 | %reldir%/html/hierarchical.html \
20 | %reldir%/html/hierarchical_entry.html \
21 | %reldir%/html/style.css
22 |
23 | FCN_FILES += \
24 | $(%canon_reldir%_FCN_FILES)
25 |
26 | PKG_ADD_FILES += %reldir%/PKG_ADD
27 |
28 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
29 |
30 | scripts_EXTRA_DIST += \
31 | $(%canon_reldir%_html_DATA)
32 |
--------------------------------------------------------------------------------
/test/mk_bc_overloads_expected.m:
--------------------------------------------------------------------------------
1 | % this script is intended to be Matlab compatible
2 | % first, run the script
3 | %
4 | % ./build_bc_overloads_tests.sh overloads_only
5 | %
6 | % to generate the overloaded functions.
7 | %
8 | ex.double = 1;
9 | ex.single = single (1);
10 | ex.logical = true;
11 | ex.char = 'char';
12 | ex.int8 = int8 (1);
13 | ex.int16 = int16 (1);
14 | ex.int32 = int32 (1);
15 | ex.int64 = int64 (1);
16 | ex.uint8 = uint8 (1);
17 | ex.uint16 = uint16 (1);
18 | ex.uint32 = uint32 (1);
19 | ex.uint64 = uint64 (1);
20 | ex.cell = {};
21 | ex.struct = struct ();
22 | ex.function_handle = @numel;
23 |
24 | f = fieldnames (ex);
25 | n = numel (f);
26 |
27 | fid = fopen ('bc_overloads_expected','w');
28 | fid
29 | for i = 1:n
30 | for j = 1:n
31 | s = tbcover (ex.(f{i}), ex.(f{j}));
32 | fprintf (fid, '%s %s %s\n', f{i}, f{j}, s);
33 | end
34 | end
35 | fclose (fid)
36 |
--------------------------------------------------------------------------------
/doc/interpreter/cp-idx.txi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Concept Index
20 | @unnumbered Concept Index
21 |
22 | @printindex cp
23 |
--------------------------------------------------------------------------------
/doc/interpreter/fn-idx.txi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Function Index
20 | @unnumbered Function Index
21 |
22 | @printindex fn
23 |
--------------------------------------------------------------------------------
/doc/interpreter/op-idx.txi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Operator Index
20 | @unnumbered Operator Index
21 |
22 | @printindex op
23 |
--------------------------------------------------------------------------------
/etc/RELEASE.BUG_FIX_LIST:
--------------------------------------------------------------------------------
1 | The following bugs must be fixed prior to the next release. See also the [[6.0.0 Release Checklist]].
2 |
3 | Sign up for a bug by filling in the Owner field so people won't duplicate each other's work.
4 |
5 | Use
...
to cross an item off the list when it has been done.
6 |
7 | Add
WON'T FIX
and the strike through tag for any bugs that will not be fixed in this round.
8 |
9 | __TOC__
10 |
11 | ----
12 |
13 | == Bugs marked as Crash ==
14 |
15 | == Bugs marked Configuration and Build System ==
16 |
17 | == Bugs with severity >= 4 ==
18 |
19 | == Bugs marked as regressions ==
20 |
21 | == Other Bugs ==
22 |
23 | == Potentially excluded bugs ==
24 | These bugs have been provisionally decided not to be blockers for 6.0.0. That doesn't mean they can't be fixed, if someone wants to fix them.
25 |
--------------------------------------------------------------------------------
/examples/code/@polynomial/polynomial.m:
--------------------------------------------------------------------------------
1 | ## -*- texinfo -*-
2 | ## @deftypefn {} {} polynomial ()
3 | ## @deftypefnx {} {} polynomial (@var{a})
4 | ## Create a polynomial object representing the polynomial
5 | ##
6 | ## @example
7 | ## a0 + a1 * x + a2 * x^2 + @dots{} + an * x^n
8 | ## @end example
9 | ##
10 | ## @noindent
11 | ## from a vector of coefficients [a0 a1 a2 @dots{} an].
12 | ## @end deftypefn
13 |
14 | function p = polynomial (a)
15 |
16 | if (nargin > 1)
17 | print_usage ();
18 | endif
19 |
20 | if (nargin == 0)
21 | p.poly = 0;
22 | p = class (p, "polynomial");
23 | else
24 | if (isa (a, "polynomial"))
25 | p = a;
26 | elseif (isreal (a) && isvector (a))
27 | p.poly = a(:).'; # force row vector
28 | p = class (p, "polynomial");
29 | else
30 | error ("@polynomial: A must be a real vector");
31 | endif
32 | endif
33 |
34 | endfunction
35 |
--------------------------------------------------------------------------------
/scripts/prefs/module.mk:
--------------------------------------------------------------------------------
1 | FCN_FILE_DIRS += \
2 | %reldir% \
3 | %reldir%/private
4 |
5 | %canon_reldir%_PRIVATE_FCN_FILES = \
6 | %reldir%/private/loadprefs.m \
7 | %reldir%/private/prefsfile.m \
8 | %reldir%/private/saveprefs.m
9 |
10 | %canon_reldir%_FCN_FILES = \
11 | %reldir%/addpref.m \
12 | %reldir%/getpref.m \
13 | %reldir%/ispref.m \
14 | %reldir%/prefdir.m \
15 | %reldir%/preferences.m \
16 | %reldir%/rmpref.m \
17 | %reldir%/setpref.m
18 |
19 | %canon_reldir%dir = $(fcnfiledir)/prefs
20 |
21 | %canon_reldir%_DATA = $(%canon_reldir%_FCN_FILES)
22 |
23 | %canon_reldir%_privatedir = $(fcnfiledir)/prefs/private
24 |
25 | %canon_reldir%_private_DATA = $(%canon_reldir%_PRIVATE_FCN_FILES)
26 |
27 | FCN_FILES += \
28 | $(%canon_reldir%_FCN_FILES) \
29 | $(%canon_reldir%_PRIVATE_FCN_FILES)
30 |
31 | PKG_ADD_FILES += %reldir%/PKG_ADD
32 |
33 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
34 |
--------------------------------------------------------------------------------
/doc/interpreter/pr-idx.txi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 2017-2019 Rik Wehbring
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Graphics Properties Index
20 | @unnumbered Graphics Properties Index
21 |
22 | @printindex pr
23 |
--------------------------------------------------------------------------------
/doc/liboctave/error.texi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Error Handling, Installation, Differential Algebraic Equations, Top
20 | @chapter Error Handling
21 |
--------------------------------------------------------------------------------
/doc/liboctave/fn-idx.texi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Function Index, , Concept Index, Top
20 | @unnumbered Function Index
21 |
22 | @printindex fn
23 |
--------------------------------------------------------------------------------
/doc/liboctave/install.texi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Installation, Bugs, Error Handling, Top
20 | @chapter Installation
21 | @cindex installation
22 |
--------------------------------------------------------------------------------
/examples/code/structdemo.cc:
--------------------------------------------------------------------------------
1 | #include
2 | #include
3 |
4 | DEFUN_DLD (structdemo, args, , "Struct Demo")
5 | {
6 | if (args.length () != 2)
7 | print_usage ();
8 |
9 | if (! args(0).isstruct ())
10 | error ("structdemo: ARG1 must be a struct");
11 |
12 | octave_scalar_map arg0 = args(0).scalar_map_value ();
13 | //octave_map arg0 = args(0).map_value ();
14 |
15 | if (! args(1).is_string ())
16 | error ("structdemo: ARG2 must be a character string");
17 |
18 | std::string arg1 = args(1).string_value ();
19 |
20 | octave_value tmp = arg0.contents (arg1);
21 | //octave_value tmp = arg0.contents (arg1)(0);
22 |
23 | if (! tmp.is_defined ())
24 | error ("structdemo: struct does not have a field named '%s'\n",
25 | arg1.c_str ());
26 |
27 | octave_scalar_map st;
28 |
29 | st.assign ("selected", tmp);
30 |
31 | return octave_value (st);
32 | }
33 |
--------------------------------------------------------------------------------
/doc/liboctave/cp-idx.texi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Concept Index, Function Index, Bugs, Top
20 | @unnumbered Concept Index
21 |
22 | @printindex cp
23 |
--------------------------------------------------------------------------------
/examples/code/myfevalf.f:
--------------------------------------------------------------------------------
1 | subroutine mexFunction (nlhs, plhs, nrhs, prhs)
2 |
3 | implicit none
4 |
5 | integer*4 nlhs, nrhs
6 |
7 | * The following will need to be integer*8 on 64-bit systems, otherwise
8 | * these variables won't be large enough to hold pointers...
9 | integer*4 plhs(*), prhs(*)
10 |
11 | integer*4 mxIsString, mxGetString, mxGetN, mexCallMATLAB
12 | integer*4 status, len
13 | character*100 str
14 |
15 | call mexPrintf ('Hello, World!')
16 |
17 | if (nrhs .lt. 1 .or. mxIsString (prhs(1)) .ne. 1) then
18 | call mexErrMsgTxt ('function name expected')
19 | endif
20 |
21 | len = mxGetN (prhs(1))
22 |
23 | status = mxGetString (prhs(1), str, 100)
24 |
25 | call mexPrintf ('FORTRAN will call the interpreter now')
26 |
27 | status = mexCallMATLAB (nlhs, plhs, nrhs-1, prhs(2), str(1:len))
28 |
29 | return
30 | end
31 |
--------------------------------------------------------------------------------
/test/bug-45972.tst:
--------------------------------------------------------------------------------
1 | %!test
2 | %! ascii_filename = tempname ();
3 | %! binary_filename = tempname ();
4 | %! f = @ (x, y, varargin) x + y + varargin{1};
5 | %! unwind_protect
6 | %! save ("-text", ascii_filename, "f");
7 | %! save ("-binary", binary_filename, "f");
8 | %! ascii = load (ascii_filename);
9 | %! binary = load (binary_filename);
10 | %! assert (f (1, 2, 3), ascii.f (1, 2, 3));
11 | %! assert (f (1, 2, 3), binary.f (1, 2, 3));
12 | %! unwind_protect_cleanup
13 | %! unlink (ascii_filename);
14 | %! unlink (binary_filename);
15 | %! end_unwind_protect
16 |
17 | %!testif HAVE_HDF5
18 | %! hdf5_filename = tempname ();
19 | %! f = @ (x, y, varargin) x + y + varargin{1};
20 | %! unwind_protect
21 | %! save ("-hdf5", hdf5_filename, "f");
22 | %! hdf5 = load (hdf5_filename);
23 | %! assert (f (1, 2, 3), hdf5.f (1, 2, 3));
24 | %! unwind_protect_cleanup
25 | %! unlink (hdf5_filename);
26 | %! end_unwind_protect
27 |
--------------------------------------------------------------------------------
/liboctave/external/slatec-fn/module.mk:
--------------------------------------------------------------------------------
1 | EXTERNAL_SOURCES += \
2 | %reldir%/albeta.f \
3 | %reldir%/alngam.f \
4 | %reldir%/alnrel.f \
5 | %reldir%/algams.f \
6 | %reldir%/csevl.f \
7 | %reldir%/d9gmit.f \
8 | %reldir%/d9lgic.f \
9 | %reldir%/d9lgit.f \
10 | %reldir%/d9lgmc.f \
11 | %reldir%/dcsevl.f \
12 | %reldir%/dgamlm.f \
13 | %reldir%/dgamma.f \
14 | %reldir%/dgamr.f \
15 | %reldir%/dlbeta.f \
16 | %reldir%/dlgams.f \
17 | %reldir%/dlngam.f \
18 | %reldir%/dlnrel.f \
19 | %reldir%/dpchim.f \
20 | %reldir%/dpchst.f \
21 | %reldir%/dpsifn.f \
22 | %reldir%/gamlim.f \
23 | %reldir%/gamma.f \
24 | %reldir%/gamr.f \
25 | %reldir%/initds.f \
26 | %reldir%/inits.f \
27 | %reldir%/pchim.f \
28 | %reldir%/pchst.f \
29 | %reldir%/psifn.f \
30 | %reldir%/r9lgmc.f \
31 | %reldir%/r9lgit.f \
32 | %reldir%/r9gmit.f \
33 | %reldir%/r9lgic.f
34 |
35 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
36 |
--------------------------------------------------------------------------------
/test/classdef/foo_static_method_constant_property.m:
--------------------------------------------------------------------------------
1 | classdef foo_static_method_constant_property
2 | properties
3 | frequency;
4 | end
5 | properties (Constant = true)
6 | pie = pi;
7 | end
8 | methods
9 | function obj = foo_static_method_constant_property (f)
10 | if (nargin == 1)
11 | obj.frequency = f;
12 | elseif (nargin ~= 0)
13 | error ('foo_static_method_constant_property:SyntaxError', ...
14 | 'foo_static_method_constant_property: Invalid syntax')
15 | end
16 | end
17 | function res = cosine (obj, t)
18 | res = cos (obj.radians_per_cycle () * obj.frequency * t);
19 | end
20 | function res = sine (obj, t)
21 | res = sin (obj.radians_per_cycle () * obj.frequency * t);
22 | end
23 | end
24 | methods (Static)
25 | function res = radians_per_cycle ()
26 | res = 2 * foo_static_method_constant_property.pie;
27 | end
28 | end
29 | end
30 |
--------------------------------------------------------------------------------
/scripts/elfun/module.mk:
--------------------------------------------------------------------------------
1 | FCN_FILE_DIRS += %reldir%
2 |
3 | %canon_reldir%_FCN_FILES = \
4 | %reldir%/acosd.m \
5 | %reldir%/acot.m \
6 | %reldir%/acotd.m \
7 | %reldir%/acoth.m \
8 | %reldir%/acsc.m \
9 | %reldir%/acscd.m \
10 | %reldir%/acsch.m \
11 | %reldir%/asec.m \
12 | %reldir%/asecd.m \
13 | %reldir%/asech.m \
14 | %reldir%/asind.m \
15 | %reldir%/atan2d.m \
16 | %reldir%/atand.m \
17 | %reldir%/cosd.m \
18 | %reldir%/cot.m \
19 | %reldir%/cotd.m \
20 | %reldir%/coth.m \
21 | %reldir%/csc.m \
22 | %reldir%/cscd.m \
23 | %reldir%/csch.m \
24 | %reldir%/sec.m \
25 | %reldir%/secd.m \
26 | %reldir%/sech.m \
27 | %reldir%/sind.m \
28 | %reldir%/tand.m
29 |
30 | %canon_reldir%dir = $(fcnfiledir)/elfun
31 |
32 | %canon_reldir%_DATA = $(%canon_reldir%_FCN_FILES)
33 |
34 | FCN_FILES += $(%canon_reldir%_FCN_FILES)
35 |
36 | PKG_ADD_FILES += %reldir%/PKG_ADD
37 |
38 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
39 |
--------------------------------------------------------------------------------
/examples/code/@polynomial/polynomial_superiorto.m:
--------------------------------------------------------------------------------
1 | ## -*- texinfo -*-
2 | ## @deftypefn {} {} polynomial ()
3 | ## @deftypefnx {} {} polynomial (@var{a})
4 | ## Create a polynomial object representing the polynomial
5 | ##
6 | ## @example
7 | ## a0 + a1 * x + a2 * x^2 + @dots{} + an * x^n
8 | ## @end example
9 | ##
10 | ## @noindent
11 | ## from a vector of coefficients [a0 a1 a2 @dots{} an].
12 | ## @end deftypefn
13 |
14 | function p = polynomial (a)
15 |
16 | if (nargin > 1)
17 | print_usage ();
18 | endif
19 |
20 | if (nargin == 0)
21 | p.poly = [0];
22 | p = class (p, "polynomial");
23 | else
24 | if (strcmp (class (a), "polynomial"))
25 | p = a;
26 | elseif (isreal (a) && isvector (a))
27 | p.poly = a(:).'; # force row vector
28 | p = class (p, "polynomial");
29 | else
30 | error ("@polynomial: A must be a real vector");
31 | endif
32 | endif
33 |
34 | superiorto ("double");
35 |
36 | endfunction
37 |
--------------------------------------------------------------------------------
/examples/code/paramdemo.cc:
--------------------------------------------------------------------------------
1 | #include
2 |
3 | DEFUN_DLD (paramdemo, args, nargout, "Parameter Check Demo")
4 | {
5 | if (args.length () != 1)
6 | print_usage ();
7 |
8 | NDArray m = args(0).array_value ();
9 |
10 | double min_val = -10.0;
11 | double max_val = 10.0;
12 |
13 | octave_stdout << "Properties of input array:\n";
14 |
15 | if (m.any_element_is_negative ())
16 | octave_stdout << " includes negative values\n";
17 |
18 | if (m.any_element_is_inf_or_nan ())
19 | octave_stdout << " includes Inf or NaN values\n";
20 |
21 | if (m.any_element_not_one_or_zero ())
22 | octave_stdout << " includes other values than 1 and 0\n";
23 |
24 | if (m.all_elements_are_int_or_inf_or_nan ())
25 | octave_stdout << " includes only int, Inf or NaN values\n";
26 |
27 | if (m.all_integers (min_val, max_val))
28 | octave_stdout << " includes only integers in [-10,10]\n";
29 |
30 | return octave_value_list ();
31 | }
32 |
--------------------------------------------------------------------------------
/scripts/specfun/module.mk:
--------------------------------------------------------------------------------
1 | FCN_FILE_DIRS += %reldir%
2 |
3 | %canon_reldir%_FCN_FILES = \
4 | %reldir%/beta.m \
5 | %reldir%/betainc.m \
6 | %reldir%/betaincinv.m \
7 | %reldir%/betaln.m \
8 | %reldir%/cosint.m \
9 | %reldir%/ellipke.m \
10 | %reldir%/expint.m \
11 | %reldir%/factor.m \
12 | %reldir%/factorial.m \
13 | %reldir%/gammainc.m \
14 | %reldir%/gammaincinv.m \
15 | %reldir%/isprime.m \
16 | %reldir%/lcm.m \
17 | %reldir%/legendre.m \
18 | %reldir%/nchoosek.m \
19 | %reldir%/nthroot.m \
20 | %reldir%/perms.m \
21 | %reldir%/pow2.m \
22 | %reldir%/primes.m \
23 | %reldir%/reallog.m \
24 | %reldir%/realpow.m \
25 | %reldir%/realsqrt.m \
26 | %reldir%/sinint.m
27 |
28 | %canon_reldir%dir = $(fcnfiledir)/specfun
29 |
30 | %canon_reldir%_DATA = $(%canon_reldir%_FCN_FILES)
31 |
32 | FCN_FILES += $(%canon_reldir%_FCN_FILES)
33 |
34 | PKG_ADD_FILES += %reldir%/PKG_ADD
35 |
36 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
37 |
--------------------------------------------------------------------------------
/test/bug-45351/bug45351.m:
--------------------------------------------------------------------------------
1 | classdef bug45351
2 |
3 | properties (Hidden, SetAccess = protected)
4 | h1 = [];% handle to function
5 | h2 = [];% handle to function
6 | h3 = [];% handle to function
7 | end
8 |
9 | methods
10 | function self = bug45351 ()
11 | self.h1 = @foo;
12 | self.h2 = @(self, n) self.foo (n);
13 | self.h3 = @(~, n) self.foo (n);
14 | end
15 | function [h1, h2, h3] = get_handles (self)
16 | h1 = self.h1;
17 | h2 = self.h2;
18 | h3 = self.h3;
19 | end
20 | function r = bar (self, hnum)
21 | switch (hnum)
22 | case 1
23 | r = self.h1 (self, hnum);
24 | case 2
25 | r = self.h2 (self, hnum);
26 | case 3
27 | r = self.h3 (self, hnum);
28 | end
29 | end
30 | end
31 |
32 | methods (Hidden, Access = protected)
33 | function r = foo (self, n)
34 | r = sprintf ('bug45351.foo: %d', n);
35 | end
36 | end
37 | end
38 |
--------------------------------------------------------------------------------
/doc/liboctave/bugs.texi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Bugs, Concept Index, Installation, Top
20 | @chapter Bugs
21 | @cindex bugs, known
22 | @cindex installation trouble
23 | @cindex known causes of trouble
24 | @cindex troubleshooting
25 |
--------------------------------------------------------------------------------
/liboctave/external/amos/xzabs.f:
--------------------------------------------------------------------------------
1 | DOUBLE PRECISION FUNCTION XZABS(ZR, ZI)
2 | C***BEGIN PROLOGUE XZABS
3 | C***REFER TO ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY
4 | C
5 | C XZABS COMPUTES THE ABSOLUTE VALUE OR MAGNITUDE OF A DOUBLE
6 | C PRECISION COMPLEX VARIABLE CMPLX(ZR,ZI)
7 | C
8 | C***ROUTINES CALLED (NONE)
9 | C***END PROLOGUE XZABS
10 | DOUBLE PRECISION ZR, ZI, U, V, Q, S
11 | U = DABS(ZR)
12 | V = DABS(ZI)
13 | S = U + V
14 | C-----------------------------------------------------------------------
15 | C S*1.0D0 MAKES AN UNNORMALIZED UNDERFLOW ON CDC MACHINES INTO A
16 | C TRUE FLOATING ZERO
17 | C-----------------------------------------------------------------------
18 | S = S*1.0D+0
19 | IF (S.EQ.0.0D+0) GO TO 20
20 | IF (U.GT.V) GO TO 10
21 | Q = U/V
22 | XZABS = V*DSQRT(1.D+0+Q*Q)
23 | RETURN
24 | 10 Q = V/U
25 | XZABS = U*DSQRT(1.D+0+Q*Q)
26 | RETURN
27 | 20 XZABS = 0.0D+0
28 | RETURN
29 | END
30 |
--------------------------------------------------------------------------------
/scripts/profiler/html/style.css:
--------------------------------------------------------------------------------
1 | /*
2 |
3 | Copyright (C) 2016-2020 The Octave Project Developers
4 |
5 | See the file COPYRIGHT.md in the top-level directory of this
6 | distribution or .
7 |
8 | This file is part of Octave.
9 |
10 | Octave is free software: you can redistribute it and/or modify it
11 | under the terms of the GNU General Public License as published by
12 | the Free Software Foundation, either version 3 of the License, or
13 | (at your option) any later version.
14 |
15 | Octave is distributed in the hope that it will be useful, but
16 | WITHOUT ANY WARRANTY; without even the implied warranty of
17 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 | GNU General Public License for more details.
19 |
20 | You should have received a copy of the GNU General Public License
21 | along with Octave; see the file COPYING. If not, see
22 | .
23 |
24 | */
25 |
26 | tr:nth-of-type(odd)
27 | {
28 | background-color: #ccc;
29 | }
30 |
--------------------------------------------------------------------------------
/libinterp/dldfcn/module-files:
--------------------------------------------------------------------------------
1 | # FILE|CPPFLAGS|LDFLAGS|LIBRARIES
2 | __delaunayn__.cc|$(QHULL_CPPFLAGS)|$(QHULL_LDFLAGS)|$(QHULL_LIBS)
3 | __fltk_uigetfile__.cc|$(FLTK_CPPFLAGS) $(FT2_CPPFLAGS)|$(FLTK_LDFLAGS) $(FT2_LDFLAGS)|$(FLTK_LIBS) $(FT2_LIBS)
4 | __glpk__.cc|$(GLPK_CPPFLAGS)|$(GLPK_LDFLAGS)|$(GLPK_LIBS)
5 | __init_fltk__.cc|$(FLTK_CPPFLAGS) $(FT2_CPPFLAGS) $(FONTCONFIG_CPPFLAGS)|$(FLTK_LDFLAGS) $(FT2_LDFLAGS)|$(FLTK_LIBS) $(FT2_LIBS) $(OPENGL_LIBS)
6 | __init_gnuplot__.cc|$(FT2_CPPFLAGS) $(FONTCONFIG_CPPFLAGS)||
7 | __ode15__.cc|$(SUNDIALS_XCPPFLAGS)|$(SUNDIALS_XLDFLAGS)|$(SUNDIALS_XLIBS)
8 | __voronoi__.cc|$(QHULL_CPPFLAGS)|$(QHULL_LDFLAGS)|$(QHULL_LIBS)
9 | audiodevinfo.cc|$(PORTAUDIO_CPPFLAGS)|$(PORTAUDIO_LDFLAGS)|$(PORTAUDIO_LIBS)
10 | audioread.cc|$(SNDFILE_CPPFLAGS)|$(SNDFILE_LDFLAGS)|$(SNDFILE_LIBS)
11 | convhulln.cc|$(QHULL_CPPFLAGS)|$(QHULL_LDFLAGS)|$(QHULL_LIBS)
12 | fftw.cc|$(FFTW_XCPPFLAGS)|$(FFTW_XLDFLAGS)|$(FFTW_XLIBS)
13 | gzip.cc|$(Z_CPPFLAGS) $(BZ2_CPPFLAGS)|$(Z_LDFLAGS) $(BZ2_LDFLAGS)|$(Z_LIBS) $(BZ2_LIBS)
14 |
--------------------------------------------------------------------------------
/liboctave/external/ranlib/lennob.f:
--------------------------------------------------------------------------------
1 | INTEGER*4 FUNCTION lennob(string)
2 | IMPLICIT INTEGER*4 (a-p,r-z),LOGICAL (q)
3 | C**********************************************************************
4 | C
5 | C INTEGER*4 FUNCTION LENNOB( STRING )
6 | C LENgth NOt counting trailing Blanks
7 | C
8 | C
9 | C Function
10 | C
11 | C
12 | C Returns the length of STRING up to and including the last
13 | C non-blank character.
14 | C
15 | C
16 | C Arguments
17 | C
18 | C
19 | C STRING --> String whose length not counting trailing blanks
20 | C is returned.
21 | C
22 | C**********************************************************************
23 | CHARACTER*(*) string
24 |
25 | end = len(string)
26 | DO 20,i = end,1,-1
27 | IF (.NOT. (string(i:i).NE.' ')) GO TO 10
28 | lennob = i
29 | RETURN
30 |
31 | 10 CONTINUE
32 | 20 CONTINUE
33 | lennob = 0
34 | RETURN
35 |
36 | END
37 |
--------------------------------------------------------------------------------
/doc/liboctave/intro.texi:
--------------------------------------------------------------------------------
1 | @c Copyright (C) 1996-2019 John W. Eaton
2 | @c
3 | @c This file is part of Octave.
4 | @c
5 | @c Octave is free software: you can redistribute it and/or modify it
6 | @c under the terms of the GNU General Public License as published by
7 | @c the Free Software Foundation, either version 3 of the License, or
8 | @c (at your option) any later version.
9 | @c
10 | @c Octave is distributed in the hope that it will be useful, but
11 | @c WITHOUT ANY WARRANTY; without even the implied warranty of
12 | @c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 | @c GNU General Public License for more details.
14 | @c
15 | @c You should have received a copy of the GNU General Public License
16 | @c along with Octave; see the file COPYING. If not, see
17 | @c .
18 |
19 | @node Introduction, Arrays, Copying, Top
20 | @chapter A Brief Introduction to Octave
21 | @cindex introduction
22 |
23 | This manual documents how to run, install and port Octave's C++ classes,
24 | and how to report bugs.
25 |
--------------------------------------------------------------------------------
/scripts/optimization/module.mk:
--------------------------------------------------------------------------------
1 | FCN_FILE_DIRS += \
2 | %reldir% \
3 | %reldir%/private
4 |
5 | %canon_reldir%_PRIVATE_FCN_FILES = \
6 | %reldir%/private/__fdjac__.m
7 |
8 | %canon_reldir%_FCN_FILES = \
9 | %reldir%/__all_opts__.m \
10 | %reldir%/fminbnd.m \
11 | %reldir%/fminsearch.m \
12 | %reldir%/fminunc.m \
13 | %reldir%/fsolve.m \
14 | %reldir%/fzero.m \
15 | %reldir%/glpk.m \
16 | %reldir%/humps.m \
17 | %reldir%/lsqnonneg.m \
18 | %reldir%/optimget.m \
19 | %reldir%/optimset.m \
20 | %reldir%/pqpnonneg.m \
21 | %reldir%/qp.m \
22 | %reldir%/sqp.m
23 |
24 | %canon_reldir%dir = $(fcnfiledir)/optimization
25 |
26 | %canon_reldir%_DATA = $(%canon_reldir%_FCN_FILES)
27 |
28 | %canon_reldir%_privatedir = $(fcnfiledir)/optimization/private
29 |
30 | %canon_reldir%_private_DATA = $(%canon_reldir%_PRIVATE_FCN_FILES)
31 |
32 | FCN_FILES += \
33 | $(%canon_reldir%_FCN_FILES) \
34 | $(%canon_reldir%_PRIVATE_FCN_FILES)
35 |
36 | PKG_ADD_FILES += %reldir%/PKG_ADD
37 |
38 | DIRSTAMP_FILES += %reldir%/$(octave_dirstamp)
39 |
--------------------------------------------------------------------------------
/examples/code/@polynomial/subsasgn.m:
--------------------------------------------------------------------------------
1 | function p = subsasgn (p, s, val)
2 |
3 | if (isempty (s))
4 | error ("@polynomial/subsasgn: needs index");
5 | endif
6 |
7 | switch (s(1).type)
8 |
9 | case "{}"
10 | ind = s(1).subs;
11 | if (numel (ind) != 1)
12 | error ("@polynomial/subsasgn: need exactly one index");
13 | elseif (numel (s) != 1)
14 | error ("@polynomial/subsasgn: chained subscripts not allowed for {}");
15 | endif
16 |
17 | if (isnumeric (ind{1}))
18 | p.poly(ind{1}+1) = val;
19 | else
20 | p.poly(ind{1}) = val;
21 | endif
22 |
23 | case "."
24 | fld = s(1).subs;
25 | if (! strcmp (fld, "poly"))
26 | error ('@polynomial/subsasgn: invalid property "%s"', fld);
27 | endif
28 | if (numel (s) == 1)
29 | p.poly = val;
30 | else
31 | p.poly = subsasgn (p.poly, s(2:end), val);
32 | endif
33 |
34 | otherwise
35 | error ("@polynomial/subsasgn: invalid subscript type");
36 |
37 | endswitch
38 |
39 | endfunction
40 |
--------------------------------------------------------------------------------
/examples/code/unwinddemo.cc:
--------------------------------------------------------------------------------
1 | #include
2 | #include
3 |
4 | void
5 | my_err_handler (const char *fmt, ...)
6 | {
7 | // Do nothing!!
8 | }
9 |
10 | void
11 | my_err_with_id_handler (const char *id, const char *fmt, ...)
12 | {
13 | // Do nothing!!
14 | }
15 |
16 | DEFUN_DLD (unwinddemo, args, nargout, "Unwind Demo")
17 | {
18 | if (args.length () < 2)
19 | print_usage ();
20 |
21 | NDArray a = args(0).array_value ();
22 | NDArray b = args(1).array_value ();
23 |
24 | // Declare unwind_protect frame which lasts as long as
25 | // the variable frame has scope.
26 | octave::unwind_protect frame;
27 | frame.add_fcn (set_liboctave_warning_handler,
28 | current_liboctave_warning_handler);
29 |
30 | frame.add_fcn (set_liboctave_warning_with_id_handler,
31 | current_liboctave_warning_with_id_handler);
32 |
33 | set_liboctave_warning_handler (my_err_handler);
34 | set_liboctave_warning_with_id_handler (my_err_with_id_handler);
35 |
36 | return octave_value (quotient (a, b));
37 | }
38 |
--------------------------------------------------------------------------------
/doc/refcard/refcard-a4.tex:
--------------------------------------------------------------------------------
1 | % refcard-a4.tex
2 | %
3 | % Make a reference card that will fit on A4 paper.
4 | %
5 | % Copyright (C) 1996-2020 The Octave Project Developers
6 | %
7 | % See the file COPYRIGHT.md in the top-level directory of this
8 | % distribution or .
9 | %
10 | % This file is part of Octave.
11 | %
12 | % Octave is free software: you can redistribute it and/or modify it
13 | % under the terms of the GNU General Public License as published by
14 | % the Free Software Foundation, either version 3 of the License, or
15 | % (at your option) any later version.
16 | %
17 | % Octave is distributed in the hope that it will be useful, but
18 | % WITHOUT ANY WARRANTY; without even the implied warranty of
19 | % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 | % GNU General Public License for more details.
21 | %
22 | % You should have received a copy of the GNU General Public License
23 | % along with Octave; see the file COPYING. If not, see
24 | % .
25 |
26 | \def\refcardsize{a4}
27 | \input refcard.tex
28 |
--------------------------------------------------------------------------------
/etc/icons/org.octave.Octave.desktop.in:
--------------------------------------------------------------------------------
1 | [Desktop Entry]
2 | Name=GNU Octave
3 | Comment=Interactive programming environment for numerical computations
4 | Comment[ca]=Entorn de programació interactiva per a càlculs numèrics
5 | Comment[de]=Interaktive Programmierumgebung für numerische Berechnungen
6 | Comment[es]=Entorno de programación interactiva para cálculos numéricos
7 | Comment[fr]=Environnement de programmation interactif pour le calcul numérique
8 | Comment[it]=Ambiente di programmazione interattivo per il calcolo numerico
9 | Comment[ja]=数値計算のための対話的なプログラミング環境
10 | Comment[nl]=Interactieve programmeeromgeving voor numerieke berekeningen
11 | Comment[pt]=Ambiente de programação interativo para computação numérica
12 | Comment[zh]=数值计算交互式编程环境
13 | TryExec=%OCTAVE_PREFIX%/bin/octave
14 | Exec=%OCTAVE_PREFIX%/bin/octave --gui %f
15 | Icon=octave
16 | Terminal=false
17 | Type=Application
18 | Categories=Education;Science;Math;
19 | StartupNotify=false
20 | StartupWMClass=GNU Octave
21 | MimeType=text/x-octave;text/x-matlab;
22 | Keywords=science;math;matrix;numerical computation;plotting;
23 |
--------------------------------------------------------------------------------
/liboctave/external/amos/zuchk.f:
--------------------------------------------------------------------------------
1 | SUBROUTINE ZUCHK(YR, YI, NZ, ASCLE, TOL)
2 | C***BEGIN PROLOGUE ZUCHK
3 | C***REFER TO ZSERI,ZUOIK,ZUNK1,ZUNK2,ZUNI1,ZUNI2,ZKSCL
4 | C
5 | C Y ENTERS AS A SCALED QUANTITY WHOSE MAGNITUDE IS GREATER THAN
6 | C EXP(-ALIM)=ASCLE=1.0E+3*D1MACH(1)/TOL. THE TEST IS MADE TO SEE
7 | C IF THE MAGNITUDE OF THE REAL OR IMAGINARY PART WOULD UNDERFLOW
8 | C WHEN Y IS SCALED (BY TOL) TO ITS PROPER VALUE. Y IS ACCEPTED
9 | C IF THE UNDERFLOW IS AT LEAST ONE PRECISION BELOW THE MAGNITUDE
10 | C OF THE LARGEST COMPONENT; OTHERWISE THE PHASE ANGLE DOES NOT HAVE
11 | C ABSOLUTE ACCURACY AND AN UNDERFLOW IS ASSUMED.
12 | C
13 | C***ROUTINES CALLED (NONE)
14 | C***END PROLOGUE ZUCHK
15 | C
16 | C COMPLEX Y
17 | DOUBLE PRECISION ASCLE, SS, ST, TOL, WR, WI, YR, YI
18 | INTEGER NZ
19 | NZ = 0
20 | WR = DABS(YR)
21 | WI = DABS(YI)
22 | ST = DMIN1(WR,WI)
23 | IF (ST.GT.ASCLE) RETURN
24 | SS = DMAX1(WR,WI)
25 | ST = ST/TOL
26 | IF (SS.LT.ST) NZ = 1
27 | RETURN
28 | END
29 |
--------------------------------------------------------------------------------