9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
+
+
+
+
+
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 1998/03/02 09:26:18 peterg
## Now does default CR and args for the basic components only
## SS,I,R,C,GY,TF
## C now has a default of effort input.
##
## Revision 1.4 1998/02/23 16:20:33 peterg
## Summary line just contains the model name
##
## Revision 1.3 1997/05/09 14:21:35 peterg
## Default to flow,component_name
##
# Revision 1.2 1997/03/19 12:08:01 peterg
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
-
|
#diff $1_unique_raw_list $1_raw_list | grep '>' | sed 's/>/ /'
#Write out the outline lbl file
grep -v '\[[0-9]*\]' $1_unique_raw_list | \
awk --field-separator ':' '
{
if (($1 !~ "0")&&($1 !~ "1"))
{
{ if (Component !~ $1) print "\n% Component type", $1
if (Component !~ $1) print "\n% Component type", $1
if ($1 ~ "SS")
print "\t" $2 "\t\texternal\texternal";
if ($1 ~ "R")
else if ($1 ~ "R")
print "\t" $2"\t\tlin\tflow," $2;
if ($1 ~ "I")
else if ($1 ~ "I")
print "\t" $2"\t\tlin\tflow," $2;
if ($1 ~ "C")
else if ($1 ~ "C")
print "\t" $2"\t\tlin\teffort," $2;
if ($1 ~ "TF")
else if ($1 ~ "TF")
print "\t" $2"\t\tlin\tflow," $2;
if ($1 ~ "GY")
else if ($1 ~ "GY")
print "\t" $2"\t\tlin\tflow," $2;
}
else {
if (Component !~ $1) print "\n% Component type", $1;
|