Overview
Comment:Fixed [ 790467 ] -oct option broken
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: f9d31f9851b4ab6672fed38fa74cdc6619e11806e0a145f1117b49c06510f2bb
User & Date: geraint@users.sourceforge.net on 2003-09-07 20:25:09
Other Links: branch diff | manifest | tags
Context
2003-09-07
20:41:19
*** empty log message *** check-in: 679c4552bb user: geraint@users.sourceforge.net tags: origin/master, trunk
20:25:09
Fixed [ 790467 ] -oct option broken check-in: f9d31f9851 user: geraint@users.sourceforge.net tags: origin/master, trunk
2003-08-19
16:22:36
New defaults check-in: 69fde1b238 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/lib/cc/mtt_simpar.hh from [8e34c674fd] to [eda52e87c8]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


#include <octave/oct.h>
#include <octave/ov-struct.h>

static ColumnVector
mtt_simpar (Octave_map simpar)
{
  static ColumnVector retval (8);

  retval (0) = simpar ["first"     ].double_value ();
  retval (1) = simpar ["last"      ].double_value ();
  retval (2) = simpar ["dt"        ].double_value ();
  retval (3) = simpar ["stepfactor"].double_value ();
  retval (4) = simpar ["wmin"      ].double_value ();
  retval (5) = simpar ["wmax"      ].double_value ();
  retval (6) = simpar ["wsteps"    ].double_value ();
  retval (7) = simpar ["input"     ].double_value ();

  return retval;
}

static Octave_map
mtt_simpar (ColumnVector simpar)
{
  static Octave_map retval;

  retval ["first"     ] = simpar (0);
  retval ["last"      ] = simpar (1);
  retval ["dt"        ] = simpar (2);
  retval ["stepfactor"] = simpar (3);
  retval ["wmin"      ] = simpar (4);
  retval ["wmax"      ] = simpar (5);
  retval ["wsteps"    ] = simpar (6);
  retval ["input"     ] = simpar (7);

  return retval;
}










|
|
|
|
|
|
|
|









|
|
|
|
|
|
|
|




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


#include <octave/oct.h>
#include <octave/ov-struct.h>

static ColumnVector
mtt_simpar (Octave_map simpar)
{
  static ColumnVector retval (8);

  retval (0) = simpar ["first"     ](0).double_value ();
  retval (1) = simpar ["last"      ](0).double_value ();
  retval (2) = simpar ["dt"        ](0).double_value ();
  retval (3) = simpar ["stepfactor"](0).double_value ();
  retval (4) = simpar ["wmin"      ](0).double_value ();
  retval (5) = simpar ["wmax"      ](0).double_value ();
  retval (6) = simpar ["wsteps"    ](0).double_value ();
  retval (7) = simpar ["input"     ](0).double_value ();

  return retval;
}

static Octave_map
mtt_simpar (ColumnVector simpar)
{
  static Octave_map retval;

  retval ["first"     ](0) = simpar (0);
  retval ["last"      ](0) = simpar (1);
  retval ["dt"        ](0) = simpar (2);
  retval ["stepfactor"](0) = simpar (3);
  retval ["wmin"      ](0) = simpar (4);
  retval ["wmax"      ](0) = simpar (5);
  retval ["wsteps"    ](0) = simpar (6);
  retval ["input"     ](0) = simpar (7);

  return retval;
}

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