Overview
Comment:Added optional par argument
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 2161bb4a26ae7bf5f639e88bfffa5b6b380130caabc67811b9834302e030a2dd
User & Date: gawthrop@users.sourceforge.net on 2000-07-13 07:18:52
Other Links: branch diff | manifest | tags
Context
2000-07-13
07:21:12
Interface to Octave Control Systems Toolbox (OCST) - mtt2sys.m check-in: 457475f9b6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
07:18:52
Added optional par argument check-in: 2161bb4a26 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-07-05
15:20:55
Initial revision check-in: 01d992a01a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/mtt2sys.m from [25db5c7c1c] to [bd26c13dc7]. 

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
38
39
40
41
42
43

function sys = mtt2sys (Name)

  ## usage:  sys = mtt2sys (Name)
  ##
  ## Creates a sys structure for the Octave Control Systems Toolbox
  ## from an MTT system with name "Name"

  ## Assumes that Name_sm.m and Name_struc.m exist

  ## Copyright (C) 2000 by Peter J Gawthrop


  if nargin<1
    error("missing system name, usage:  sys = mtt2sys (Name)");
  endif
  
  ## Function names
  numpar_name = sprintf("%s_numpar",Name);
  sm_name = sprintf("%s_sm",Name);
  struc_name = sprintf("%s_struc",Name);


  ## Check files exist
  if exist(numpar_name)!=2
    error("File %s.m does not exist: use <mtt %s numpar m> to create it",\
	  numpar_name,Name);
  endif




  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("par=%s_numpar;", Name)); # Parameters
  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



|

|



>
|


>



<
|
|
|
|
|
>

|
|
|
|
|
>
>
|
>










<








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
38
39
40

41
42
43
44
45
46
47

function sys = mtt2sys (Name,par)

  ## usage:  sys = mtt2sys (Name[,par])
  ##
  ## Creates a sys structure for the Octave Control Systems Toolbox
  ## from an MTT system with name "Name"
  ## Optional second argument is system parameter list
  ## Assumes that Name_sm.m, Name_struc.m and Name_numpar.m exist

  ## Copyright (C) 2000 by Peter J Gawthrop


  if nargin<1
    error("missing system name, usage:  sys = mtt2sys (Name)");

    else
      ## Create function names
      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
︙︙

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