1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#! /bin/sh
# Shell script for running the large HeatedRod systems to compare
# four integration methods.
# Usage example: Run 100 0.25 runf the 100 segment example at interval 0.25
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
n=$1
DT=$2
if [ -z "$n" ]; then
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /bin/sh
# Shell script for running the large HeatedRod systems to compare
# four integration methods.
# Usage example: Run 100 0.25 runf the 100 segment example at interval 0.25
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 1998/08/15 13:58:27 peterg
## Initial revision
##
###############################################################
n=$1
DT=$2
if [ -z "$n" ]; then
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
MinSTEPFACTOR=`awk '{if ($1=="STEPFACTOR") print $3}' HR$1.tmp1`
SparseSTEPFACTOR=`awk '{if ($1=="SparseSTEPFACTOR") print $3}' HR$1.tmp1`
rm -f HR$1_table.txt
#Set the methods of interest
METHODS='ImplicitS Euler ImplicitL Implicit'
for METHOD in $METHODS; do
case $METHOD in
Euler)
STEPFACTOR=$MinSTEPFACTOR
;;
|
|
|
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
MinSTEPFACTOR=`awk '{if ($1=="STEPFACTOR") print $3}' HR$1.tmp1`
SparseSTEPFACTOR=`awk '{if ($1=="SparseSTEPFACTOR") print $3}' HR$1.tmp1`
rm -f HR$1_table.txt
#Set the methods of interest
METHODS='ImplicitS Euler Implicit'
for METHOD in $METHODS; do
case $METHOD in
Euler)
STEPFACTOR=$MinSTEPFACTOR
;;
|