Overview
Comment:Removed operation form loop.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 74c9df0d75a4b7b92716331c8bf3a61072240f61f11c1041b37954d06e8f52f7
User & Date: geraint@users.sourceforge.net on 2001-02-19 06:33:19
Other Links: branch diff | manifest | tags
Context
2001-03-19
02:28:53
Branch merge: merging-ode2odes-exe back to MAIN. check-in: 62ceda890f user: geraint@users.sourceforge.net tags: origin/master, trunk
2001-02-19
06:33:20
Created branch merging-ode2odes-exe check-in: ce97158db9 user: gawthrop@users.sourceforge.net tags: origin/merging-ode2odes-exe, trunk
06:33:19
Removed operation form loop. check-in: 74c9df0d75 user: geraint@users.sourceforge.net tags: origin/master, trunk
06:32:02
Octave path change, remove libblas check-in: cdf1d3ec4d user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/make_ode2odes from [4e2c06f136] to [9dc2d47b21].

1
2
3
4
5
6
7
8
9
10
11



12
13
14
15
16
17
18
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21











+
+
+







#! /bin/sh

     ###################################### 
     ##### Model Transformation Tools #####
    ######################################

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.50  2001/02/18 09:18:49  geraint
## Removed temporary Matrices from mtt_implicit.cc
##
## Revision 1.49  2001/02/14 06:06:34  geraint
## Removed octave_value_list wrappers from standalone.exe - speed improvements
##
## Revision 1.48  2001/02/11 07:08:59  geraint
## Static declarations of octave_value_lists: small .exe speed improvement
##
## Revision 1.47  2001/02/11 05:25:52  geraint
298
299
300
301
302
303
304
305

306
307
308
309
310
311
312
301
302
303
304
305
306
307

308
309
310
311
312
313
314
315







-
+







	const int &nx,
	const ColumnVector &open_switches);
 
extern ColumnVector Fmtt_implicit (
	ColumnVector &x,
	ColumnVector &dx,
	Matrix &AA,
	const ColumnVector &AAx,
	ColumnVector &AAx,
	const double &ddt,
	const int &nx,
	const ColumnVector &open_switches);

extern ColumnVector F${sys}_${ode} (
	ColumnVector &x,
	ColumnVector &u,
392
393
394
395
396
397
398
399

400
401
402
403
404
405
406
395
396
397
398
399
400
401

402
403
404
405
406
407
408
409







-
+







#endif
}

inline ColumnVector
mtt_implicit (ColumnVector &x,
	      ColumnVector &dx,
	      Matrix &AA,
	      const ColumnVector &AAx,
	      ColumnVector &AAx,
	      const double &ddt,
	      const int &nx,
	      const ColumnVector &open_switches)
{
#ifdef STANDALONE
  return Fmtt_implicit (x, dx, AA, AAx, ddt, nx, open_switches);
#else

Modified mttroot/mtt/lib/cc/mtt_implicit.cc from [e5b126ad31] to [66ec9e6cff].

1
2
3
4
5
6
7
8

9
10
11
12
13
14
15
1
2
3
4
5
6
7

8
9
10
11
12
13
14
15







-
+







#include <octave/oct.h>
#include <octave/xdiv.h>

#ifdef STANDALONE
ColumnVector Fmtt_implicit (      ColumnVector	&x,
				  ColumnVector	&dx,
			          Matrix	&AA,
			    const ColumnVector	&AAx,
				  ColumnVector	&AAx,
			    const double	&t,
			    const int		&Nx,
			    const ColumnVector	&openx)
{
#else // !STANDALONE
DEFUN_DLD (mtt_implicit, args, ,
	   "implicit integration method")
35
36
37
38
39
40
41

42
43
44
45

46
47
48
49
50
51
52
35
36
37
38
39
40
41
42
43
44
45

46
47
48
49
50
51
52
53







+



-
+








  register int row, col;

  for (row = 0; row < Nx; row++)
    {
      if (0 != openx (row))
	{
	  AAx (row) = 0.0;
          dx (row) = 0.0;
	  for (col = 0; col < Nx; col++)
	    {
	      AA (row,col) = AA (col,row) = 0.0;
	      AA (row,col) = 0.0;
	    }
	}
    }

  x = static_cast<ColumnVector> (xleftdiv (AA, static_cast<Matrix>(AAx + dx * t)));
  
  for (row = 0; row < Nx; row++)


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]