Overview
Comment:Initial revision
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 7dcb3be67aa9d08a6fe27e22fa55e7156c0f3ad1617c614ec2d5acdfee872853
User & Date: gawthrop@users.sourceforge.net on 2000-12-28 09:32:04
Other Links: branch diff | manifest | tags
Context
2000-12-28
09:37:45
put under RCS check-in: c70e9f5adf user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:32:04
Initial revision check-in: 7dcb3be67a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:19:07
put under RCS check-in: a4b2f7e9fd user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Added mttroot/mtt/bin/trans/m/fig3.m version [482caa1bd5]. 





































































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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

function first_line = fig3(object,thickness,colour)
% first_line = fig3(object,thickness,colour)
%
%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%     %%%%% Model Transformation Tools %%%%%
%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Matlab function fig3.m
% Provides the "first line" format for polyines and text objects
% See fig 3 documentation for details
%
% P.J.Gawthrop June 1996
% Copyright (c) P.J.Gawthrop, 1996.

red = 4;
blue = 1;

if (object==2)	%Polyline
  sub_type = 1;
  line_style = 0;

  if nargin<2
    thickness = 3;
  end;

  if nargin<3
    colour = red;
  end;
  
  fill_colour = -1;
  depth = 0;
  pen_style = 0;
  area_fill = -1;
  style_val = 0.0;
  join_style = 0;
  cap_style = 0;
  radius = -1;
  f_arrow = 0;
  b_arrow = 0;
  npoints = 2;
  first_line = [... 
    int2str(object), ' ', ... 
    int2str(sub_type), ' ', ... 
    int2str(line_style), ' ', ...
    int2str(thickness), ' ', ...
    int2str(colour), ' ', ...
    int2str(fill_colour), ' ', ...
    int2str(depth), ' ', ...
    int2str(pen_style), ' ', ...
    int2str(area_fill), ' ', ...
    num2str(style_val), ' ' ...
    int2str(join_style), ' ', ...
    int2str(cap_style), ' ', ...
    int2str(radius), ' ', ...
    int2str(f_arrow), ' ', ...
    int2str(b_arrow), ' ', ...
    int2str(npoints)];
 
elseif (object==4) %text


else
  error('Object must be 2 (polyline) or 4(text)');
end;











Added mttroot/mtt/bin/trans/mtt_mend_lines version [b94de50d4f].






















1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

#!/bin/sh

# Copyright (C) 2000 by Peter J. Gawthrop

# Fixes broken lines from reduce.

#sed 's/[^#]\(.*\)[^;]$/\1\\/' 

awk '{
  if ((match($1,"#")==0)&&(match($1,"global")==0)&&(match($1,"endfunction")==0)) {
    if(match($0,";")!=length($0))
      printf("%s \\\n",$0)
    else
      print $0
  }
  else print $0
   
}'








Added mttroot/mtt/bin/trans/rcs_header.m version [48ce935dee].













1
2
3
4
5
6
7
8
9

+
+
+
+
+
+
+
+
+


% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%










Added mttroot/mtt/bin/trans/struc2sspar_txt2r version [64274bba4e].















































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

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

#! /bin/sh

     ###################################### 
     ##### Model Transformation Tools #####
     ######################################

# Bourne shell script: struc2sspar_txt2txt
# Creates the deafault numerical parameters file for the system (txt)

# Copyright (c) P.J.Gawthrop 1998


# Inform user
echo Creating $1_sspar.r


#Write out the default ss values (0)
#Create the sspar file complete with headers.
echo "% Steady-state parameter file ($1_sspar.r)" > $1_sspar.r
echo "% Generated by MTT at `date`" >> $1_sspar.r
cat $MTTPATH/trans/rcs_header.m  >> $1_sspar.r

echo  >> $1_sspar.r

echo "% Steady-state states" >> $1_sspar.r
awk '{
  if ($1=="state") 
    print "MTTX" $2 " := \t0; \% " $4 " (" $3 ")"
}' \
 $1_struc.txt >> $1_sspar.r


echo "% Steady-state inputs" >> $1_sspar.r
awk '{
  if ($1=="input") 
    print "MTTU" $2 " := \t0; \% " $4 " (" $3 ")"
}' \
 $1_struc.txt >> $1_sspar.r


echo ";;END;" >> $1_sspar.r
























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