Overview
Comment:Now has optional initial condition.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 681ad2aea95400c153d278da69f2c5b12ee6e22e8f97d3ce1eba745eeca923b3
User & Date: gawthrop@users.sourceforge.net on 1996-08-15 11:54:32
Other Links: branch diff | manifest | tags
Context
1996-08-15
11:55:30
Checks for changed argument.
Handles frequency response. check-in: 6b06951768 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:54:32
Now has optional initial condition. check-in: 681ad2aea9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:53:44
Now has u0 input vector check-in: 30eb07fb39 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/sm2sr_m from [16a575cf2f] to [54a5f1a9b2].

︙︙
12
13
14
15
16
17
18




19
20
21
22
23
24
25

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

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




## Revision 1.5  1996/08/12 20:19:06  peter
## Fiddled about with parameter passing - still not right
##
## Revision 1.4  1996/08/11 19:48:04  peter
## Parameter passing added.
##
## Revision 1.3  1996/08/11 10:38:30  peter








>
>
>
>








12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6  1996/08/14 09:15:02  peter
## Now encapsulates the data into an m file
## Name changed
##
## Revision 1.5  1996/08/12 20:19:06  peter
## Fiddled about with parameter passing - still not right
##
## Revision 1.4  1996/08/11 19:48:04  peter
## Parameter passing added.
##
## Revision 1.3  1996/08/11 10:38:30  peter
︙︙
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

52















53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

###############################################################

echo Creating $1_sr.m
rm -f dm2sr_m.log

if [ "$2" = "" ]; 
then
  PARAMS='t=[0:0.1:10]'
  echo Using default parameter $PARAMS
else
  PARAMS=$2;
fi

PARAMS="$PARAMS ;"
echo $PARAMS

$MATRIX << EOF > dm2sr_m.log


  $PARAMS















  [n,m]=size(t);
  if m>n
    t=t';
  end;

  [A,B,C,D,E] = $1_dm($1_numpar);
  y = dm2sr(A,B,C,D,E,t);

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

  xy = [t y(:,1)];
  for i=2:NN
    xy = [xy y(:,i)];
  end;

xy

write_matrix(xy, '$1_sr');

EOF









|






<



>

>
>
>
>
>
>
>
>
>
>
>
>
>
>
>






|

<
<
<
<
<
<
<
<
<
<
|




38
39
40
41
42
43
44
45
46
47
48
49
50
51

52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79










80
81
82
83

###############################################################

echo Creating $1_sr.m
rm -f dm2sr_m.log

if [ "$2" = "" ]; 
then
  PARAMS='t=[0:0.1:10];u0=ones(nu,1);x0=zeros(nx,1);'
  echo Using default parameter $PARAMS
else
  PARAMS=$2;
fi

PARAMS="$PARAMS ;"


$MATRIX << EOF > dm2sr_m.log

  [nx,ny,nu,nz,nyz] = $1_def;
  $PARAMS

  %Defaults
  if exist('t')==0
    t=[0:0.1:10]
  end;

  if exist('u0')==0
    u0 = ones(nu,1);
  end;

  if exist('x0')==0
    x0 = zeros(nx,1);
  end;


  [n,m]=size(t);
  if m>n
    t=t';
  end;

  [A,B,C,D,E] = $1_dm($1_numpar);
  y = dm2sr(A,B,C,D,E,t,u0,x0);











  write_matrix([t y], '$1_sr');

EOF

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