Mercurial > hg > octave-nkf
annotate liboctave/numeric/ODES.cc @ 20685:7fa1970a655d
pkg.m: drop check of nargout value, the interpreter already does that.
* scripts/pkg/pkg.m: the interpreter already checks if there was any variable
that got no value assigned, there's no need to make the code more
complicated to cover that. Also, there's no point in calling describe()
with different nargout since it doesn't check nargout.
| author | Carnë Draug <carandraug@octave.org> |
|---|---|
| date | Thu, 03 Sep 2015 16:21:08 +0100 |
| parents | a9574e3c6e9e |
| children |
| rev | line source |
|---|---|
| 3984 | 1 /* |
| 2 | |
|
19898
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
3 Copyright (C) 2002-2015 John W. Eaton |
| 3984 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 3984 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 3984 | 20 |
| 21 */ | |
| 22 | |
| 23 #ifdef HAVE_CONFIG_H | |
| 24 #include <config.h> | |
| 25 #endif | |
| 26 | |
| 27 #include "ODES.h" | |
| 28 #include "lo-error.h" | |
| 29 | |
| 30 void | |
| 4277 | 31 ODES::initialize (const ColumnVector& xx, double tt) |
| 3984 | 32 { |
| 4277 | 33 base_diff_eqn::initialize (xx, tt); |
|
20442
a9574e3c6e9e
Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
19898
diff
changeset
|
34 xdot = ColumnVector (xx.numel (), 0.0); |
| 3984 | 35 } |
| 36 | |
| 37 void | |
| 4277 | 38 ODES::initialize (const ColumnVector& xx, double tt, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
39 const ColumnVector& xtheta) |
| 3984 | 40 { |
| 4277 | 41 base_diff_eqn::initialize (xx, tt); |
|
20442
a9574e3c6e9e
Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
19898
diff
changeset
|
42 xdot = ColumnVector (xx.numel (), 0.0); |
| 3984 | 43 theta = xtheta; |
| 44 } |