12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
|
# Copyright (C) 2001 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Header$
## $Log$
## Revision 1.309 2001/04/28 03:15:03 geraint
## Fixed comment (interfered with "mtt help representations").
##
## Revision 1.308 2001/04/25 22:17:45 geraint
## Fixed icd.txt2 dependency.
##
## Revision 1.307 2001/04/15 21:15:41 geraint
## Added interface definition rep: _ICD.(txt|c|cc|m).
##
## Revision 1.305 2001/04/11 09:44:26 gawthrop
|
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
|
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
|
+
|
( \
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 'FOR ALL x,y LET pow(x,y) = x^y; %Readable pow function'; \
echo 'END;'; \
)> $1_simp.r
#SUMMARY subs algebraic substitution (r)
$Subsystem_subs.r:
mtt $mtt_switches -q -u $1 sympar txt;
makesubs $Subsystem;
|