11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Header$
## $Log$
## Revision 1.256 2000/09/02 14:24:06 peterg
## -sub switch introduced - works up to dae.r
##
## Revision 1.255 2000/08/30 11:43:04 peterg
## Put in the -opt switch for code optimisation
##
## Revision 1.254 2000/08/29 09:59:47 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Header$
## $Log$
## Revision 1.257 2000/09/02 15:53:53 peterg
## Now does partitioning up to dae.view
##
## Revision 1.256 2000/09/02 14:24:06 peterg
## -sub switch introduced - works up to dae.r
##
## Revision 1.255 2000/08/30 11:43:04 peterg
## Put in the -opt switch for code optimisation
##
## Revision 1.254 2000/08/29 09:59:47 peterg
|
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
|
start_at_abg='yes';;
-stdin )
mtt_switches="$mtt_switches $1";
stdin=stdin;;
-sub ) mtt_switches="$mtt_switches $1 $2";
sub='-sub';
subsystem="_"$2;
shift ;;
-oct )
mtt_switches="$mtt_switches $1";
m='oct';;
-opt ) mtt_switches="$mtt_switches $1";
optimise='-optimise';;
-partition ) mtt_switches="$mtt_switches $1";
partition='-partition';;
--version)
echo 'MTT version' $version; exit;;
--versions)
mtt_versions; exit;;
*)
echo "$1 is an invalid argument - ignoring" ;;
esac
|
|
|
|
|
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
|
start_at_abg='yes';;
-stdin )
mtt_switches="$mtt_switches $1";
stdin=stdin;;
-sub ) mtt_switches="$mtt_switches $1 $2";
sub='-sub';
subsystem="_"$2;
shift;;
-oct )
mtt_switches="$mtt_switches $1";
m='oct';;
-opt ) mtt_switches="$mtt_switches $1";
optimise='-optimise';;
-partition ) mtt_switches="$mtt_switches $1";
partition='-partition';;
--version)
echo 'MTT version' $version; exit;;
--versions)
mtt_versions; exit;;
*)
echo "$1 is an invalid argument - ignoring" ;;
esac
|
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
|
#SUMMARY simp simplification information (r)
$1_simp.r:
echo Creating $1_simp.r
( \
echo "%% Reduce commands to simplify output for system $1 ($1_simp.r)"; \
cat $MTTPATH/trans/m/rcs_header.txt; \
echo 'END;'; \
)> $1_simp.r
#SUMMARY subs algebraic substitution (r)
$Subsystem_subs.r:
mtt $mtt_switches -q -u $1 sympar txt;
makesubs $Subsystem;
|
>
>
>
>
|
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
|
#SUMMARY simp simplification information (r)
$1_simp.r:
echo Creating $1_simp.r
( \
echo "%% Reduce commands to simplify output for system $1 ($1_simp.r)"; \
cat $MTTPATH/trans/m/rcs_header.txt; \
echo 'ON ALLFAC; %Multiplicative factors'; \
echo 'OFF DIV; %Polynomial division'; \
echo 'OFF FACTOR; %Factorise polynomials'; \
echo 'OFF LIST; %Each term on a new line'; \
echo 'END;'; \
)> $1_simp.r
#SUMMARY subs algebraic substitution (r)
$Subsystem_subs.r:
mtt $mtt_switches -q -u $1 sympar txt;
makesubs $Subsystem;
|