59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
{
echo ''
echo '</sgw:Worksheet>'
}
write_column_headings ()
{
awk '{ printf (" <sgw:Column No=\"%d\" Width=\"80\" Title=\"%s\" Format=\"0\" Precision=\"3\">\n </sgw:Column>\n", NR-1,$0) }'
}
write_output_headings ()
{
sys=$1
${MATRIX} -q <<EOF | write_column_headings
[u_names,y_names,x_names] = ${sys}_struc;
|
|
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
{
echo ''
echo '</sgw:Worksheet>'
}
write_column_headings ()
{
gawk '{ printf (" <sgw:Column No=\"%d\" Width=\"80\" Title=\"%s\" Format=\"0\" Precision=\"3\">\n </sgw:Column>\n", NR-1,$0) }'
}
write_output_headings ()
{
sys=$1
${MATRIX} -q <<EOF | write_column_headings
[u_names,y_names,x_names] = ${sys}_struc;
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
EOF
}
file=${sys}_odes.sg
NX=`mtt_getsize ${sys} x`
NY=`mtt_getsize ${sys} y`
NTMP=`wc -l ${sys}_odes.dat2 | awk '{print $1}'`
NROW=`expr ${NTMP} - 4` # 4 comment lines in mtt_data
{
write_project_header
# states
write_worksheet_header "X_${sys}" ${NX} ${NROW}
write_state_headings ${sys}
|
|
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
EOF
}
file=${sys}_odes.sg
NX=`mtt_getsize ${sys} x`
NY=`mtt_getsize ${sys} y`
NTMP=`wc -l ${sys}_odes.dat2 | gawk '{print $1}'`
NROW=`expr ${NTMP} - 4` # 4 comment lines in mtt_data
{
write_project_header
# states
write_worksheet_header "X_${sys}" ${NX} ${NROW}
write_state_headings ${sys}
|