9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## 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
# No longer writes out non-unique names - now done in rbg_fig2m
#
# Revision 1.1 1997/03/18 13:55:01 peterg
|
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## 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
# No longer writes out non-unique names - now done in rbg_fig2m
#
# Revision 1.1 1997/03/18 13:55:01 peterg
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#Write out non-unique names
#echo 'Non-unique names (if any):'
#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 ($1 ~ "SS") \
print "\t" $2 "\t\texternal\texternal";
else \
print "\t" $2"\t\tlin\tflow," $2} \
else {
if (Component !~ $1) print "\n% Component type", $1; \
print "\t" $2;
}
Component=$1\
}' \
>>$1_lbl.txt
|
|
<
>
|
>
|
|
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
<
|
|
65
66
67
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
|
#Write out non-unique names
#echo 'Non-unique names (if any):'
#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 ($1 ~ "SS")
print "\t" $2 "\t\texternal\texternal";
if ($1 ~ "R")
print "\t" $2"\t\tlin\tflow," $2;
if ($1 ~ "I")
print "\t" $2"\t\tlin\tflow," $2;
if ($1 ~ "C")
print "\t" $2"\t\tlin\teffort," $2;
if ($1 ~ "TF")
print "\t" $2"\t\tlin\tflow," $2;
if ($1 ~ "GY")
print "\t" $2"\t\tlin\tflow," $2;
}
else {
if (Component !~ $1) print "\n% Component type", $1;
print "\t" $2;
}
Component=$1
}' >>$1_lbl.txt
|