Overview
Comment:Now invokes mtt.m to create the representation.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: ae327c56550baad6e099360ff6a41c739f1e6a5c9a9841053dbab9f58b36f6c1
User & Date: gawthrop@users.sourceforge.net on 2000-07-31 19:58:56
Other Links: branch diff | manifest | tags
Context
2000-08-01
07:34:33
Replaced printf by echo check-in: ece6b23214 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-07-31
19:58:56
Now invokes mtt.m to create the representation. check-in: ae327c5655 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-07-20
07:46:07
Version 4.3 check-in: 25712e82bf user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/mtt2sys.m from [bd26c13dc7] to [83b5c5e7a0].

︙
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

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








-
-
+
+
+






-
-
+
+
+



-
-
+
+
+








      numpar_name = sprintf("%s_numpar",Name);
      sm_name = sprintf("%s_sm",Name);
      struc_name = sprintf("%s_struc",Name);
  endif

  if nargin<2			# Use predefined parameters
    if exist(numpar_name)!=2	# Check file exists
      error("File %s.m does not exist: use <mtt %s numpar m> to create it",\
	    numpar_name,Name);
#       error("File %s.m does not exist: use <mtt %s numpar m> to create it",\
# 	    numpar_name,Name);
      mtt(Name,"numpar");
    endif
    eval(sprintf("par=%s_numpar;", Name)); # Parameters
  endif
  
  ## Check files exist
  if exist(sm_name)!=2
    error("File %s.m does not exist: use <mtt %s sm m> to create it",\
	  sm_name,Name);
#     error("File %s.m does not exist: use <mtt %s sm m> to create it",\
# 	  sm_name,Name);
      mtt(Name,"sm");
  endif

  if exist(struc_name)!=2
    error("File %s.m does not exist: use <mtt %s struc m> to create it",\
	  struc_name,Name);
#     error("File %s.m does not exist: use <mtt %s struc m> to create it",\
# 	  struc_name,Name);
      mtt(Name,"struc");
  endif
  
  eval(sprintf("[A,B,C,D]=%s_sm(par);", Name)); # State matrices
  sys = ss2sys(A,B,C,D);	# Sys form
  eval(sprintf("[sys.inname,sys.outname,sys.stname]=%s_struc;", Name)); # Setup names
  
endfunction
︙

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