Overview
Comment:Parameter passing now enabled.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: a0161c78ec41b4c5ba966f7d372a310e5c40f23a0b4768c1e43e347b28752ec1
User & Date: gawthrop@users.sourceforge.net on 1996-08-11 19:08:08
Other Links: branch diff | manifest | tags
Context
1996-08-11
19:33:24
Replaced exp by expm - whoops! check-in: 3cfd3e5d96 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
19:08:08
Parameter passing now enabled. check-in: a0161c78ec user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:41:52
Fixed various bugs. check-in: 374eddf0e0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/dm2fr_m from [d12dfc7f81] to [d561b3e13c].

︙︙
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

# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



## Revision 1.1  1996/08/10 14:11:11  peter
## Initial revision
##
###############################################################

echo Creating $1_fr.dat











$MATRIX << EOF  | awk '$1 !~ /[A-Za-cf-z]/ && NF>0 {print} '  >$1_fr.dat


  W = logspace(-1,2,100);
  [A,B,C,D,E] = $1_dm($1_numpar);
  fr = dm2fr(A,B,C,D,E,W);

  rfr = real(fr);
  ifr = imag(fr);

  [Ny,Nu]=size(D);
  NN = Ny*Nu;









>
>
>






>
>
>
>
>
>
>
>
>
>



>
|

|








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
38
39
40
41
42
43
44
45
46
47
48
49
50

# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2  1996/08/11 09:32:12  peter
## Now takes the numpar parameters correctly
##
## Revision 1.1  1996/08/10 14:11:11  peter
## Initial revision
##
###############################################################

echo Creating $1_fr.dat

if [ "$2" = "" ]; 
then
  PARAMS='w=logspace(-1,2,100);'
  echo Using default parameter $PARAMS
else
  PARAMS=$2;
fi

 echo $PARAMS

$MATRIX << EOF  | awk '$1 !~ /[A-Za-cf-z]/ && NF>0 {print} '  >$1_fr.dat

  $PARAMS;

  [A,B,C,D,E] = $1_dm($1_numpar);
  fr = dm2fr(A,B,C,D,E,w);

  rfr = real(fr);
  ifr = imag(fr);

  [Ny,Nu]=size(D);
  NN = Ny*Nu;
︙︙

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