Overview
Comment:Now invokes mtt.m to create the representation.
Downloads: Tarball | ZIP 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.000
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
︙︙
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
      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);

    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);

  endif

  if exist(struc_name)!=2
    error("File %s.m does not exist: use <mtt %s struc m> to create it",\
	  struc_name,Name);

  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







|
|
>






|
|
>



|
|
>







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);
      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);
      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);
      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 ]