reduce-historical: Artifact [2bf2c7c160]

Artifact 2bf2c7c160e31840ad47884becf54ef89f367c1ca941b750314ebb4a26f61d05:

Executable file r37/doc/util/r37.ps — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 2158170) [annotate] [blame] [check-ins using] [more...]
%!PS-Adobe-2.0
%%Creator: dvips 5.83 (MiKTeX 1.20b) Copyright 1998 Radical Eye Software
%%Title: r37.dvi
%%CreationDate: Wed Jun 16 08:30:00 1999
%%Pages: 698
%%PageOrder: Ascend
%%BoundingBox: 0 0 596 842
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: dvips r37
%DVIPSParameters: dpi=600, compressed
%DVIPSSource:  TeX output 1999.06.16:0829
%%BeginProcSet: texc.pro
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
1 add N}if}B/id 0 N/rw 0 N/rc 0 N/gp 0 N/cp 0 N/G 0 N/CharBuilder{save 3
1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx
0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx
sub Cy .1 sub]/id Ci N/rw Cw 7 add 8 idiv string N/rc 0 N/gp 0 N/cp 0 N{
rc 0 ne{rc 1 sub/rc X rw}{G}ifelse}imagemask restore}B/G{{id gp get/gp
gp 1 add N A 18 mod S 18 idiv pl S get exec}loop}B/adv{cp add/cp X}B
/chg{rw cp id gp 4 index getinterval putinterval A gp add/gp X adv}B/nd{
/cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{
A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy
get A 0 eq{pop 128}{A 255 eq{pop 127}{A 2 idiv S 128 and or}ifelse}
ifelse put 1 adv}B/clr{rw cp 2 index string putinterval adv}B/set{rw cp
fillstr 0 4 index getinterval putinterval adv}B/fillstr 18 string 0 1 17
{2 copy 255 put pop}for N/pl[{adv 1 chg}{adv 1 chg nd}{1 add chg}{1 add
chg nd}{adv lsh}{adv lsh nd}{adv rsh}{adv rsh nd}{1 add adv}{/rc X nd}{
1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]A{bind pop}
forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
(LaserWriter 16/600)]{A length product length le{A length product exch 0
exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end

%%EndProcSet
%%BeginProcSet: special.pro
%!
TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
{userdict/md get type/dicttype eq{userdict begin md length 10 add md
maxlength ge{/md md dup length 20 add dict copy def}if end md begin
/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
save N userdict maxlength dict begin/magscale true def normalscale
currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
begin/SpecialSave save N gsave normalscale currentpoint TR
@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
1 startangle endangle arc savematrix setmatrix}N end

%%EndProcSet
TeXDict begin 39158280 55380996 1000 600 600 (E:\r37\doc\util/r37.dvi)
@start
%DVIPSBitmapFont: Fa cmti7 6 1
/Fa 1 98 df<EB7C303801FF783803C3F8380701F0120EEA1C00123CEB01E01278A338F0
03C0A214C214C338700786130F131F38383B8C381FE3F83807C0F018157A941E>97
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fb cmti8 8 1
/Fb 1 98 df<EB07C0EB1FF090387C39C0EBF81FEA01F03803E00FEA07C0120FD81F8013
80A2EA3F00141F481400127EA25C00FE133E5AA2EC7E18EC7C385AA214FCD87801137839
7C03F870A2393C0F78E0381E1E3D390FF81FC03903E00F001D1F799D24>97
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fc cmmi12 24.88 1
/Fc 1 91 df[<057FBD12FE94BFFC5E22FEA25E0980C9000F13FC08E0CA4813F84FCB48
13F04C02F04E13E0078095B512C04ECB4814804C01F84E14004E4E5B18C04C494E5B95CC
485B4D4F5B4D4F5B4C4896B55A4D4E5C4D4E91C7FC047F614D624D4E5B04FF4F5B94CC48
5B4C4F5B9BB55A4B484E5C5391C8FC5E03034F5B4C4E5B535B03074F5B4C4E5B9AB55A4C
4D5C030F609CC9FC4C4D5B031F4E5B525B93CB485B6F4E5B92CCB55A515CA25191CAFC51
5B515B515B515B515B98B55A62655091CBFC505B505B505B505B505B97B55AA24F5C4F91
CCFC4F5B4F5B4F5B4F5B4F5B96B5FC634E5C4E91CDFC4E5B4E5B4E5B4E5B4E5BA295B55A
4D5C4D91CEFC4D5B4D49EF01C04D494D7E4D5B4D491707A294B548604C4A170F4C91CBFC
4C49614C49181F4C5B4C4996C8FC4C626093B548183E4B4A187E4B91CCFC4B4919FE4B49
614B4918014B5B674B49180392B55A4A4A4E5A4A91CCFC4A49190F4A494F5A4A5B4A1B3F
4C4F5A4A5B91B54819FF494A604991CC485B49496149496149494F90C9FC654949614949
4F5A90B5481803484A180F4891CC003F5B48494EB5FC4849180F4897B6FC4A057F5D4890
BDFC5A66A2BFFC6C65>136 141 117 268 138 90 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fd cmmi10 10 2
/Fd 2 63 df<EF0380EF0FC0173FEFFF80933803FE00EE0FF8EE3FE0EEFF80DB03FEC7FC
ED0FF8ED3FE0EDFF80DA03FEC8FCEC0FF8EC3FE0ECFF80D903FEC9FCEB0FF8EB3FE0EBFF
80D803FECAFCEA0FF8EA3FE0EA7F8000FECBFCA2EA7F80EA3FE0EA0FF8EA03FEC66C7EEB
3FE0EB0FF8EB03FE903800FF80EC3FE0EC0FF8EC03FE913800FF80ED3FE0ED0FF8ED03FE
923800FF80EE3FE0EE0FF8EE03FE933800FF80EF3FC0170FEF0380323279AD41>60
D<126012FCB4FCEA7FC0EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007F
C0EC1FF0EC07FCEC01FF9138007FC0ED1FF0ED07FCED01FF9238007FC0EE1FF0EE07FCEE
01FF9338007F80EF1FC0A2EF7F80933801FF00EE07FCEE1FF0EE7FC04B48C7FCED07FCED
1FF0ED7FC04A48C8FCEC07FCEC1FF0EC7FC04948C9FCEB07FCEB1FF0EB7FC04848CAFCEA
07FCEA3FF0EA7FC048CBFC12FC1270323279AD41>62 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fe cmtt12 14.4 12
/Fe 12 86 df<4AB4EB03C0020F9038F007E0023FEBFC0F91B512FE49ECFF9F010715DF
4915FF49138090393FFC001FD97FF07F4A7F49487F48497F4890C8FC5B4848157FA24848
153F5B121F49151FA2123F5BA2007FEE0FC04992C7FCA412FF90CBFCAD7F127FA47F003F
EE0FC0EF1FE07F121FA27F120F6D153F6C6C16C0A26C6C157F6D16806C6D14FF6C6D4913
006D6C495A6E1307D93FFCEB1FFC6DB46CB45A6D90B55A6D5D01015D6D92C7FC023F13FC
020F13F002011380334B7BC93E>67 D<007FB812F0A2B912F8A37EA2C690C81207A9EF03
F0A294C7FCA8167EA216FFA491B6FCA791C7FCA4167EA293C8FCA818FCA2EF01FEAB007F
90B7FCA2B9FCA36C17FCA237497DC83E>69 D<DA03FE131E91391FFF803F027FEBE07F49
B512F8496E5A4991B5FC5B49130390383FF800D97FE0133F49487F48497F91C7FC484880
484880A2485A825B121F4980123F5BA3007F167E4992C7FCA412FF90CBFCAA93B512F04B
14F85D7F127F816F14F0040013007F123F5EA27F121F7F000F5D7FA26C6C5CA26C6C5C6C
7E6E5B6C6D5B6D6C5BD93FF890B5FC90381FFE036DB7FC6D5C6D5C6D5C6D6C13E0021FEB
807EDA03FCC8FC354B7CC93E>71 D<003FB7FC481680B812C0A36C16806C1600C7D87F80
C7FCB3B3B3A5003FB7FC481680B812C0A36C16806C16002A4976C83E>73
D<D87FFEED3FFF6D5DB56C91B512806E5BA26C18006E5B000317E001FB15EF6E1307A301
F915CF6E130FA36E131F01F8158FA26E133FA2027E140FA2027F137FA26E137EED80FEA2
021F13FC15C1A2020F13F8A215E3A2020713F0A215F7020313E0A3913801FFC0A36E1380
A3ED7F00153E92C7FCB1267FFFC049B5FCA2B56C491480A36C496D1400A239497EC83E>
77 D<D87FFF91387FFFF0B56C90B512F88080A36C6D6D13F00001923801FC0013FD80A2
13FC80A3147EA3147F80A21580141F15C0A2140F15E0A2140715F0A2140315F8A2140115
FCA3140015FEA2157E157FA2153F1681A2151F16C1A2150F16E11507A216F11503A3ED01
F9A3150016FDA2167D167F387FFFF0B56C133FA3161F705A6C49130735497CC83E>I<01
03B57E013F14F848B7FC4816804816C04816E04816F0EC800301FCC7127FD83FF0EC1FF8
49140FA24848EC07FCA2491403A648C8EA01FEB3B06D1403007F16FCA56D1407A36C6CEC
0FF86D141F6D143F6C6CEC7FF09039FF8003FF91B6FC6C16E06C16C06C16806C1600D800
3F14F8010314802F4B79C93E>I<007FB612F016FEB87E17E017F86C8283C690C76C7E04
0F13801603040013C0EF7FE0173FA2EF1FF0170FA218F81707A7170F18F0A2171FEF3FE0
A2177FEFFFC004031380160F047F130091B65A5F5F17E017804CC7FC16F091CAFCB3A500
7F13FEA2B6FCA36C5BA235497DC83E>I<0103B57E013F14F848B7FC4816804816C04816
E04816F0EC800301FCC7127FD83FF0EC1FF849140FA24848EC07FCA3491403A500FF16FE
90C81201B3AF90398007F003007F02F813FC140FEC07FCA2EC03FE01C01407EC01FFA26C
6C6CEB8FF8A26DEB7FDFD81FFCECFFF09038FF803F91B6FC6C16E06C16C06C16806C1600
D8003F14FC01038090C71203828117808117C0167F17E0163F17F0161F17F8160FA21607
16032F5B79C93E>I<007FB512FCB77E16F016FC82826C822701FE000F7F03017F6F6C7E
163F707E160F707E1603A2831601A616035FA216074C5A161F4C5A167F4B485A030F5B90
B75A94C8FC5E5EA282829026FE00077F03017F81707E163F707EA2160FABF01F80F03FC0
A417F8187F1607267FFFF89138FCFF80B56C6DB5FC19008260705B6C49EC3FF8CAEA0FC0
3A4A7DC83E>I<DAFFF01378010701FE13FC011FEBFF81017F14E190B612F94815FF5A48
EBC03F390FFE0003D81FF87F4848EB007F49143F4848141F5B160F00FF150790C8FCA316
03A37F705A6C6C91C8FCA26C7E7F6C7E13FE380FFFE06C13FE6CEBFFE06C14FE6CECFFE0
013F14F8010F14FE010380D9007F14C0020380DA003F7F15039238007FF8EE1FFC160770
7EA2707E82A21880003E167F127F5AA56D15FF1800A26D5C6D5D6D14036D4A5A01FE4A5A
6D6C133F9139FC01FFF091B65A5F486C5D011F4AC7FC01075C48C614E00078010F90C8FC
314B7AC93E>I<267FFFFE0103B512F0A2B64914F8A36C496D14F0A2C690C83807F800B3
B3AA6E140FA2017F5E6E141FA2013F5E6E143FA26D6C4A5A6D6C4A5A6E5B6D6C4990C7FC
903A03FF800FFEEDE03F6D90B55A6D5D023F14E06E5C020791C8FC020113FC9138003FE0
3D4A80C83E>85 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Ff cmsltt10 10.95 7
/Ff 7 84 df<013FB7FC49168090B812C0A27F7FD903F8C7EA3F80A4177F13074A150083
171E94C7FCA2130F5CED01E04B7E821507131F91B55AA55B9138800FE0A46F5A017F90C9
FC91CAFCA417F0494A7E491403A416071201495DA2003FB7FC5AB8FCA26C5E6C5E32387E
B730>69 D<913907F80780DA1FFE13C091387FFF8F49B512DF4914FF5B90381FFE0FDAF8
031380EB3FE049487EEBFF804890C7FC5B484815005B12075B120F5B001F157E49147C00
3F92C7FC5BA3127F90CAFCA45A4891B5FC4A14805CA2806E1400ED07F0A2150F7E7E151F
5E6D133F123F157F7F6C6C13FF4A5B380FF803EBFC0F6CB6FC7E7E6CEC9F8090263FFE1F
C7FCD90FF0C8FC2A3A79B830>71 D<91B57E010714F8011F804980498090B7FC48EBC007
91C713804848147F5B5B120749143FA3485AEE7F00A3485AA5484814FEA648C7485AA648
4A5A5AA315075EA3150F5EA2151F4B5A7E6DEBFF80EBE00390B6C7FC7E5D6C14F8000F14
E0000191C8FC293A78B830>79 D<013FB512FC4914FF90B712C017E06D15F06D15F8903A
03F8003FFC160FEE03FE1601A20107EC00FF5CA2177FA3010F15FE5CA2160117FC160301
1FEC07F84A130FEE1FF0EE7FE0923801FFC091B612804915005E16F816E093C7FC0280C8
FC137F91C9FCA55B5BA512015BA2383FFFC0487FB57EA26C5B6C5B30387EB730>I<91B5
7E010714F8011F804980498090B7FC48EBE007DA0001138048487F49147F5B12075B163F
167F485A1700A3485AA5484814FEA648C7485AA600FE4A5AA4150702FC5BEB01FEA2150F
D900FF5BA2151F91387F9FC06C14BF0180EBFF80EBE03F90B6C7FC7E5D6C14F8000F14E0
000180C7120FA2811407A2811403A2811401A26E5A294678B830>I<017FB57E90B612F0
16FC82826D1580902607F00113C09238007FE0163F161FEE0FF0130F4A1307A5011FEC0F
E05CEE1FC0163FEE7F8016FF013F010313009138800FFE91B55A5E16E05E498082913800
1FF815076F7E15015B5BA500011403495CA2177817FCEEF9FE000316FC4914F1A2267FFF
8013FBB500C0EBFFF817F0816F13E06C49EB7FC0C9EA3F002F397EB730>I<913907FC01
E091393FFF81F091B512E3010314FB4914FF5B90381FFC0790263FF00113E0ECC0004948
137F49C7123F5BA24848EC1FC0A5EE0F806D91C7FCA27F6C7F14F86DB47E6D13F86D13FF
6D14C06D80010080021F7F02017FEC001FED03FE1501A26F7EA3D80F8080121F6D5C003F
5D5BA26D13015E1503486C495A6D495A6D133F9039FF80FFE091B55A5E00FE92C7FC486C
13FC011F13F0D8780113802C3A7BB830>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fg cmtt9 9 7
/Fg 7 91 df<007FB5FCB612C08115F87E3907E003FCEC00FE157E157F81A6157EA25D14
03EC0FF890B55A15C015F081819038E000FE157FED3F80151FA2ED0FC0A6151F1680153F
ED7F004A5A007FB55AB65A5D15E06C1480222E7FAD27>66 D<007FB61280B712C0A37E39
07E0000FA6ED078092C7FCA4EC07804A7EA390B5FCA5EBE00FA36E5A91C8FCA4ED03C0ED
07E0A7007FB6FCB7FCA36C15C0232E7FAD27>69 D<903807F03890381FFC7C90387FFFFC
90B5FC5A3803FC1F3807F00F380FE007EBC003001F13011380123F90C7FCA2127EA21578
92C7FC5AA8EC1FFF4A1380A3007E6D1300EC00FCA36C1301A21380121FEBC003120FEBE0
073807F00F3803FC1F6CB5FC7EEB7FFE90381FFC78D907F0C7FC21307DAE27>71
D<007FB512E0B612F0A36C14E039001F8000B3B2007FB512E0B612F0A36C14E01C2E7BAD
27>73 D<387FFFC080B5FC7E5CD803F0C8FCB3AAED0780ED0FC0A7007FB6FCA2B7FC7E16
80222E7FAD27>76 D<387FFFF0B512FE6E7E816C803907E01FF014076E7E1401811400A5
14015D14034A5A141F90B55A5D5DA281EBE01F6E7E14076E7EA816F0EDF1F8A4397FFE01
FBB5EBFFF08016E06C48EB7FC0C8EA1F00252F7FAD27>82 D<003FB512FE4814FFA4007E
C712FEEC01FCA2EC03F8EC07F0A2003CEB0FE0C7EA1FC0A2EC3F80EC7F00A214FE5C1301
495A5C1307495A5C131F495A91C7FC5B13FEA2485A4848131E153F485A485AA2485A485A
A248C7FCB7FCA46C14FE202E7DAD27>90 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fh cmbxsl10 14.4 1
/Fh 1 114 df<DB1FFE143E4AB500C0137E020F02F013FE023F9138F801FC91B6EAFC03
0103913803FE07499038F8007F4901E0EB3F8F4949EB1FDF494990380FFFF84990C7FC49
4880485B4882485B5C487013F05C5AA248495CA24818E05CA35FB5FC91C814C0A45FA219
80A45F7E4D13005F6C7F94B5FC6C6D5B16076C6D495B6C153F6C01F890B5FC6CD9FE0713
7F6C90B5EAFEFF013F14F86D02E05B010314809039003FF80091C8FC5EA260A45EA260A4
5EA2600307B612E0A25DA43F4D77B549>113 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fi cmbxsl10 24.88 1
/Fi 1 114 df<95263FFF80ED07FC050FB500F8150F94B7151F040716C0041F04F0143F
93B800FC147F030371ECFFF8030F715B033F725A4BDB003F13C04AB600F801076D5A4A03
C001016D5A4A92C86C6C4813F0021F02FC6F6C5A4A4A031F5B4A4AED0FFE91B600C06FB6
FC494B814992C916E0494A825B4C82495C494A835B4C1AC090B6845E5A5E5A93CB15805A
5D5A64485C1F00A2485CA299B6FC5A4B62A463B6FC4B62A463A266A35D63A266817EA263
A2666C62636C806398B6FC6C4F5D6F5E6C616F5E6C616C6E5E6C96B75A6F5D6D6E14076D
6E141F6D02F0147F010702FC903803FFFE6D9126FF803F01F892C7FC6D92B65A6D6C17C0
6E1700020FEEFC01020116F06E6C03805D0307ECFC00DB003F138093C9FC62A265A462A2
65A462A265A462A265A462A265A2060FB9FCA260A266A4609738E000036E8571DC7D>
113 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fj cmbx8 8 2
/Fj 2 118 df<EA03F012FFA4120FB3B3B5FCA4102E7CAD17>108
D<D803F0EB0FC000FFEB03FFA4000FEB003FB1157FA215FF00075BD9F80713FC6CB512BF
C6EBFE3FEB3FF0261E7C9D2D>117 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fk cmr10 10 49
/Fk 49 122 df<EC0FF8EC7FFE903901F80780903907E001C090391F8000E090383F0007
017E497EA25BA2485A6F5AED018092C8FCA9ED03F0B7FCA33901F8000F1503B3AA486C49
7E267FFFE0B512C0A32A3B7FBA2E>12 D<146014E0EB01C0EB0380EB0700130E131E5B5B
A25B485AA2485AA212075B120F90C7FCA25A121EA2123EA35AA65AB2127CA67EA3121EA2
121F7EA27F12077F1203A26C7EA26C7E1378A27F7F130E7FEB0380EB01C0EB00E0146013
5278BD20>40 D<12C07E12707E7E7E120F6C7E6C7EA26C7E6C7EA21378A2137C133C133E
131EA2131F7FA21480A3EB07C0A6EB03E0B2EB07C0A6EB0F80A31400A25B131EA2133E13
3C137C1378A25BA2485A485AA2485A48C7FC120E5A5A5A5A5A13527CBD20>I<121C127F
EAFF80A213C0A3127F121C1200A412011380A2120313005A1206120E5A5A5A12600A1979
8817>44 D<B512FCA516057F941C>I<EB01C013031307131F13FFB5FCA2131F1200B3B3
A8497E007FB512F0A31C3879B72A>49 D<EB0FF0EB7FFE48B57E3903E03FE0390F000FF0
000E6D7E486D7E486D7E123000706D7E126012FCB4EC7F807FA56CC7FC121CC8FCEDFF00
A34A5A5D14035D4A5A5D140F4A5A4A5A92C7FC147C5C495A495A495A495A91C8FC011EEB
01805B5B49130348481400485A485A000EC75A000FB6FC5A5A485CB6FCA321387CB72A>
I<EB07F8EB3FFF4913C03901F80FF03903C007F848486C7E380E0001000F80381FE0006D
7FA56C5A6C5AC85A1401A25D4A5AA24A5A5DEC0F80027EC7FCEB1FFCECFF809038000FE0
6E7EEC01FC816E7EED7F80A216C0A2153F16E0A2121EEA7F80487EA416C049137F007F15
80007EC7FC0070ECFF006C495A121E390F8003F83907F00FF00001B512C06C6C90C7FCEB
0FF8233A7DB72A>I<1538A2157815F8A2140114031407A2140F141F141B143314731463
14C313011483EB030313071306130C131C131813301370136013C01201EA038013005A12
0E120C5A123812305A12E0B712F8A3C73803F800AB4A7E0103B512F8A325397EB82A>I<
121C127FEAFF80A5EA7F00121CC7FCB2121C127FEAFF80A5EA7F00121C092479A317>58
D<007FB812F8B912FCA26C17F8CCFCAE007FB812F8B912FCA26C17F836167B9F41>61
D<913A01FF800180020FEBE003027F13F8903A01FF807E07903A03FC000F0FD90FF0EB03
9F4948EB01DFD93F80EB00FF49C8127F01FE153F12014848151F4848150FA248481507A2
485A1703123F5B007F1601A35B00FF93C7FCAD127F6DED0180A3123F7F001F160318006C
7E5F6C7E17066C6C150E6C6C5D00001618017F15386D6C5CD91FE05C6D6CEB03C0D903FC
EB0F80902701FF803FC7FC9039007FFFFC020F13F002011380313D7BBA3C>67
D<B812FCA30001903880000F6C90C71201EE007E173E171E170EA31706A317078316C0A3
94C7FCA31501A21503150F91B5FCA3EC000F15031501A21500A21860A318E093C712C0A4
1701A3EF0380A21707A2170F173F177F486D903807FF00B9FCA333397DB839>69
D<B812F8A30001903880001F6C90C71201EE00FC177C173C171CA2170CA4170E1706A2ED
0180A21700A41503A21507151F91B5FCA3EC001F15071503A21501A692C8FCAD4813C0B6
12C0A32F397DB836>I<B612C0A3C6EBC0006D5AB3B3AD497EB612C0A31A397EB81E>73
D<B5933807FFF86E5DA20001F0FC002600DFC0ED1BF8A2D9CFE01533A3D9C7F01563A3D9
C3F815C3A2D9C1FCEC0183A3D9C0FEEC0303A2027F1406A36E6C130CA36E6C1318A26E6C
1330A36E6C1360A26E6C13C0A3913901FC0180A3913900FE0300A2ED7F06A3ED3F8CA2ED
1FD8A3ED0FF0A3486C6D5A487ED80FFC6D48497EB500C00203B512F8A2ED018045397DB8
4C>77 D<B5913807FFFE8080C69238007FE06EEC1F80D9DFF0EC0F001706EBCFF8EBC7FC
A2EBC3FEEBC1FFA201C07F6E7EA26E7E6E7E81140F6E7E8114036E7E168080ED7FC016E0
153FED1FF0ED0FF8A2ED07FCED03FEA2ED01FF6F1386A2EE7FC6EE3FE6A2EE1FF6EE0FFE
A216071603A216011600A2177E486C153E487ED80FFC151EB500C0140EA2170637397DB8
3E>I<EC03FF021F13E09138FE01FC903901F8007ED907E0EB1F8049486D7ED93F80EB07
F049C76C7E01FE6E7E48486E7E49157E0003167F4848ED3F80A24848ED1FC0A2001F17E0
49150F003F17F0A3007F17F8491507A300FF17FCAC007F17F86D150FA3003F17F0A26C6C
ED1FE0A36C6CED3FC0000717806D157F000317006C6C15FEA26C6C4A5A017F4A5A6D6C49
5A6D6C495AD907E0EB1F80D903F8017FC7FC903900FE01FC91381FFFE0020390C8FC363D
7BBA41>I<B712C016F816FE000190398001FF806C90C7EA3FC0EE0FE0EE07F0EE03F817
FC17FE1601A217FFA717FEA2EE03FCA2EE07F817F0EE0FE0EE3FC0923801FF0091B512FC
16F091C9FCB3A5487FB6FCA330397DB839>I<B612FEEDFFE016F8000190388007FE6C90
C76C7EEE3FC0707E707E707EA2707EA283A65FA24C5AA24C5A4C5AEE3F8004FFC8FCED07
FC91B512E05E9138000FF0ED03F8ED00FE82707E707EA2161F83A583A6F00180A217F816
0F1803486D01071400B66D6C5A04011306933800FE0ECAEA3FFCEF07F0393B7DB83D>82
D<D90FF813C090383FFE0190B512813903F807E33907E000F74848137F4848133F48C712
1F003E140F007E1407A2007C140312FC1501A36C1400A37E6D14006C7E7F13F86CB47E6C
13F8ECFF806C14E06C14F86C14FEC680013F1480010714C0EB007F020713E0EC007FED3F
F0151F150FED07F8A200C01403A21501A37EA216F07E15036C15E06C14076C15C06C140F
6DEB1F80D8FBF0EB3F00D8F0FE13FE39E03FFFF8010F13E0D8C00190C7FC253D7CBA2E>
I<B6903807FFFEA3000101809038007FE06C90C8EA1F80EF0F001706B3B2170E6D150C80
171C133F17186D6C14385F6D6C14F06D6C5C6D6C495A6D6CEB07806D6C49C7FC91387F80
7E91381FFFF8020713E09138007F80373B7DB83E>85 D<EAFFF8A4EAF000B3B3B3B3A3EA
FFF8A40D5378BD17>91 D<EAFFF8A4EA0078B3B3B3B3A3EAFFF8A40D537FBD17>93
D<EB1FE0EBFFFC3803E03F3907000F80390F8007E0486C6C7E13E06E7EA26E7E6C5A6C5A
C8FCA4147FEB07FFEB3FE0EBFE00EA03F8EA0FF0EA1FC0123F485A90C7FC160C12FEA314
01A26C13036CEB077C903980063E18383FC01E3A0FE0781FF03A03FFF00FE03A007F8007
C026277DA52A>97 D<EA03F012FFA3120F1203B0EC1FE0EC7FF89038F1E03E9039F3801F
809039F7000FC001FEEB07E049EB03F049EB01F85BED00FCA216FEA2167E167FAA167E16
FEA216FC15016D14F8ED03F07F01EEEB07E001C6EB0FC09039C7801F00903881E07E9038
00FFF8C7EA1FC0283B7EB92E>I<EB03FC90381FFF8090387E03E03901F80070484813F8
3907E001FC380FC003A2EA1F80123F90380001F848EB00F01500A2127E12FEAA127E127F
A26C14067F001F140E6D130C000F141C6C6C13386C6C13706C6C13E039007C07C090381F
FF00EB07F81F277DA525>I<ED0FC0EC03FFA3EC003F150FB0EB03F8EB1FFF90387E078F
9038F801EF3903F0007F4848133F4848131FA24848130F123F90C7FC5AA2127E12FEAA12
7E127FA27EA26C6C131FA26C6C133F6C6C137F6C6CEBEFF03A01F801CFFF39007C078F90
381FFE0FD907F813C0283B7DB92E>I<EB07F8EB1FFF90387C0FC03901F803E03903F001
F0D807E013F8380FC0004848137CA248C7127E153E5A153F127E12FEA3B7FCA248C8FCA5
127EA2127FA26C14037F001F14076C6C13060007140E6D131CD801F013386C6C13709038
7E03E090381FFF80903803FC0020277EA525>I<147E903803FF8090380FC1E0EB1F8790
383F0FF0137EA213FCA23901F803C091C7FCADB512FCA3D801F8C7FCB3AB487E387FFFF8
A31C3B7FBA19>I<ED03F090390FF00FF890393FFC3C3C9039F81F707C3901F00FE03903
E007C03A07C003E010000FECF000A248486C7EA86C6C485AA200075C6C6C485A6D485A6D
48C7FC38073FFC38060FF0000EC9FCA4120FA213C06CB512C015F86C14FE6CECFF804815
C03A0F80007FE048C7EA0FF0003E140348140116F8481400A56C1401007C15F06CEC03E0
003F1407D80F80EB0F80D807E0EB3F003901FC01FC39007FFFF0010790C7FC26387EA52A
>I<EA03F012FFA3120F1203B0EC0FF0EC3FFCECF03F9039F1C01F809039F3800FC0EBF7
0013FE496D7EA25BA35BB3A3486C497EB500C1B51280A3293A7EB92E>I<EA0380EA0FE0
487EA56C5AEA0380C8FCAAEA03F012FFA312071203B3AA487EB512C0A312387EB717>I<
EB01C0EB07F0EB0FF8A5EB07F0EB01C090C7FCAAEB01F813FFA313071301B3B3A2123C12
7E00FF13F01303A214E038FE07C0127C383C0F00EA0FFEEA03F8154984B719>I<EA03F0
12FFA3120F1203B1913801FFFCA39138007FC01600157C15705D4A5A4A5A4AC7FC141E14
38147814FC13F1EBF3FEEBF73F01FE7FEBF81F496C7E8114076E7E6E7E811400157E157F
811680ED1FC0486CEB3FF0B500C0B5FCA3283A7EB92C>I<EA03F012FFA3120F1203B3B3
AD487EB512C0A3123A7EB917>I<2703F00FF0EB1FE000FFD93FFCEB7FF8913AF03F01E0
7E903BF1C01F83803F3D0FF3800FC7001F802603F70013CE01FE14DC49D907F8EB0FC0A2
495CA3495CB3A3486C496CEB1FE0B500C1B50083B5FCA340257EA445>I<3903F00FF000
FFEB3FFCECF03F9039F1C01F803A0FF3800FC03803F70013FE496D7EA25BA35BB3A3486C
497EB500C1B51280A329257EA42E>I<EB03FE90380FFF8090383E03E09038F800F84848
137C48487F48487F4848EB0F80001F15C090C712074815E0A2007EEC03F0A400FE15F8A9
007E15F0A2007F14076C15E0A26C6CEB0FC0000F15806D131F6C6CEB3F006C6C137EC66C
13F890387E03F090381FFFC0D903FEC7FC25277EA52A>I<3903F01FE000FFEB7FF89038
F1E07E9039F3801F803A07F7000FC0D803FEEB07E049EB03F04914F849130116FC150016
FEA3167FAA16FEA3ED01FCA26DEB03F816F06D13076DEB0FE001F614C09039F7803F0090
38F1E07E9038F0FFF8EC1FC091C8FCAB487EB512C0A328357EA42E>I<D903F813C09038
1FFE0190387E07819038FC01C33903F000E3000714774848133749133F001F141F485A15
0F48C7FCA312FEAA127FA37E6D131F121F6D133F120F6C6C137F6C6C13EF3901F801CF39
007E078F90381FFE0FEB07F890C7FCABED1FE00203B5FCA328357DA42C>I<3807E01F00
FFEB7FC09038E1E3E09038E387F0380FE707EA03E613EE9038EC03E09038FC0080491300
A45BB3A2487EB512F0A31C257EA421>I<EBFF03000313E7380F80FF381E003F487F487F
00707F12F0A2807EA27EB490C7FCEA7FE013FF6C13E06C13F86C7F00037FC67F01071380
EB007F141F00C0EB0FC01407A26C1303A37E15806C13077EEC0F00B4131E38F3C07C38E1
FFF038C03F801A277DA521>I<1318A51338A31378A313F8120112031207001FB5FCB6FC
A2D801F8C7FCB215C0A93800FC011580EB7C03017E13006D5AEB0FFEEB01F81A347FB220
>I<D803F0EB07E000FFEB01FFA3000FEB001F00031407B3A4150FA3151F12016D133F00
00EC77F86D9038E7FF8090383F03C790381FFF87903A03FC07E00029267EA42E>I<B538
803FFEA33A0FF8000FF06C48EB07E00003EC03C06D148000011500A26C6C1306A26D130E
017E130CA26D5BA2EC8038011F1330A26D6C5AA214E001075BA2903803F180A3D901FBC7
FCA214FF6D5AA2147CA31438A227257EA32C>I<B53A1FFFE03FFEA3260FF8009038000F
F86C48017EEB03E018C00003023EEB0180A26C6C013FEB0300A36C6CEC8006156FA2017E
9038EFC00C15C7A2D93F016D5A15830281EBF038D91F831430150102C3EBF87090260FC6
001360A2D907E66D5A02EC137CA2D903FCEB7F804A133FA2010192C7FC4A7FA20100141E
4A130E0260130C37257EA33C>I<B538807FFFA33A03FE003FF00001EC1F80000092C7FC
017E131C6D13186D6C5AECC070010F5B6D6C5AECF180EB03FB6DB4C8FC6D5AA2147F804A
7E8114CF903801C7E090380383F090380703F8EB0601496C7E011C137E49137F01787F49
6D7E486C80000FEC3FF0D8FFFE90B51280A329247FA32C>I<B538803FFEA33A0FF8000F
F06C48EB07C00003EC03806C7E16007F00001406A2017E5BA2137F6D5BA26D6C5AA2ECC0
70010F1360A26D6C5AA214F101035BA2D901FBC7FCA214FF6D5AA2147CA31438A21430A2
14701460A25CA2EA7C0100FE5B130391C8FC1306EAFC0EEA701C6C5AEA1FF0EA0FC02735
7EA32C>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fl cmbx9 9 11
/Fl 11 121 df<B600E090B512F8A4C601E0C8EAF800B3B0017F15016E5DA2013F4B5A6E
1407011F5E6D6C140F6D6CEC3F806D6C6C01FFC7FC6D9038F007FE6D6CB512F8021F5C02
0714C09126007FFCC8FC3D347DB244>85 D<EB7FFE0003B512E04814F8390FF00FFC391F
F803FF806E138016C0157F6C5A6C5AEA0180C8FCEC7FFF010FB5FC90B6FC0003EBF07F00
0F1300EA1FF8485A485A485A5BA315FF7F007F5B6D4813E03A3FF80FBFFF000FB5121F00
03EBFC0F39007FE00728217EA02B>97 D<903803FF80013F13F090B512FC48EB03FE3907
FC007F4848EB3F804848EB1FC05B003FEC0FE0127F5B16F012FF150790B6FCA301C0C8FC
A4127F7F123F16F06C7E000F14016C6CEB03E0D803FEEB0FC03A01FF807F806C6CB51200
011F13FC010313E024217EA029>101 D<16F890390FFC07FE90387FFF9F48B6127F3907
FC0FFC380FF003001F14FED9E001133E003FECFF1C1600A6001F5CEBF003000F5C3907FC
0FF890B512E0486C1380D90FFCC7FC48C9FCA37F7F90B512F015FE6CECFF8016E06C15F0
6C15F84815FC121F393F80001F48C7EA03FE481401481400A46C14016C6CEB03FC6C6CEB
07F86C6CEB0FF0D80FFCEB7FE00003B61280C6ECFE00010F13E028327EA12C>103
D<EA03F0487E487E487EA66C5A6C5A6C5AC8FCA8EA01FC12FFA4120F1207B3A5B512C0A4
12357DB418>105 D<EA01FC12FFA4120F1207B3B3A6B512E0A413347DB318>108
D<2703F803FEEB03FE00FF903B1FFFC01FFFC0027FD9E07F7F913BF81FF0F81FF0903CF9
E00FF9E00FF8260FFBC0EBFBC06CB4486CB4486C7E02001400495CA3495CB2B500E0B500
E0B512E0A443217CA04A>I<3901F803FF00FF010F13C0023F13F09138FC0FF89039F9E0
07FC380FFBC06CB4486C7E1400A25BA25BB2B539E07FFFF0A42C217DA031>I<3901FC07
FC00FF90387FFF8001FDB512E09039FFF01FF89138C007FC000790380003FE4980496D13
80A26F13C0A3EE7FE0A9EEFFC0A34B1380A26D4913006D495A9138C00FFC9138F03FF801
FDB512E0D9FC7F1380DA0FF8C7FC91C9FCABB512E0A42B307EA031>112
D<9038FFE1C0000713FF5A383F803F387E000F14075A14037EA26C6CC7FC13FCEBFFE06C
13FC806CEBFF80000F14C06C14E0C6FC010F13F0EB007F140F00F0130714037EA26C14E0
6C13076CEB0FC09038C01F8090B5120000F913FC38E03FE01C217DA023>115
D<B539C03FFF80A400039039000FC0006C01805B6C4AC7FC90387FC03E6D6C5A6E5A9038
1FF9F0EB0FFF6D5B6D5B6D5B7F816E7E4A7E497FEB03EF903807C7FC90380FC3FE90381F
83FFD93F017FD97E007F496D7E496D7E4848131FD8FFFE90387FFFC0A42A217EA02F>
120 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fm cmtt8 8 5
/Fm 5 106 df<EB1F80EB7FE03801FFF8487F487F13F0380FC03F391F801F80EB000F48
14C0003E1307A248EB03E0A30078130100F814F0AB007CEB03E0A3007E1307003E14C0A2
003F130F391F801F80A2390FC03F003807F0FE13FF6C5B6C5B38007FE0EB1F801C2B7DA9
23>48 D<1318133C137CA213FC120112031207127F12FFA2137C127C1200B3A6387FFFFC
14FEA314FC172A7AA923>I<EB7FC03803FFF04813FC001F7F48EBFF80EA7F80397E003F
C000FEEB0FE04813076CEB03F0A31401127C1238C7FC1403A2EC07E0A2EC0FC0141FEC3F
80150014FE1301EB03F8495A495AEB3FC0495A01FEC7FC485A485AD80FF013E0391FE001
F0EA3F8048B5FCB6FCA36C14E01C2A7DA923>I<EB7FC03801FFF0000713FC487F487F39
3FE07F809038801FC0140F1407A3EA0E00C7120FA2EC1F80143F903801FF00EB7FFE495A
5C806DB4FC9038007F80EC1FC0EC0FE01407EC03F0A21401A2127C12FE1403A2EC07E048
130F6CEB1FC0387FC07F6CB512806C14006C13FC00035B38007FC01C2B7DA923>I<1338
13FEA5133890C7FCA6EA7FFC487EA3127FEA003EB3387FFFFEB6FCA36C13FE182A7AA923
>105 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fn cmitt10 10.95 18
/Fn 18 120 df<14FE903803FF80010F13C749EBFF804914C05BEBFFC748010313804848
7E13FCEA07F848486C13005B121F5B003F5C5B1401127F01005BA214035A485C02071370
16FC15F9EC0FF1141FA2EC3FF36C90387FE3F86C13FF018113E7D83F87EBF7F090B6FC6C
15E014F36C01C313C00003018013803A00FC007E00262975A730>97
D<EA7FFEB5FCA47EC6FC5BA21201A25BA21203A25B147F3907F9FFC090B512F081815AEC
C1FE1400497F48487F5B5BED3F80485A5BA25B007F147F160090C7FCA25D485C5A14015D
14035D14074A5A7E6C495A4A5AEB80FFD83FC35B90B5C7FC6C5B6C13F86C5B6C13C0C690
C8FC213974B730>I<EC1FE0ECFFF8010313FE497F131F49148090387FF07F9039FFC03F
C0481300485A4848EB7F805B4848133F48481400150C484890C7FC5BA2127F90C9FCA35A
5AA57E7E15076DEB0F80003FEC1FC06DEB7FE03A1FF007FFC090B6FC6C15806CECFE006C
5CC614E0013F90C7FC232974A730>I<EDFFF84A13FCA480150316F8A21507A216F0A215
0FA216E014FE903803FF9F010F13DF49EBFFC05B5BEBFFC7480103138048487E13FCEA07
F848486C13005B121F5B003F5C5B1401127F01005BA214035A485C0207137016FC15F9EC
0FF1141FA2EC3FF36C90387FE3F86C13FF018113E7D83F87EBF7F090B6FC6C15E014F36C
01C313C00003018013803A00FC007E00263975B730>I<EC1FE0ECFFF8010313FE010F7F
4914805B90397FF07FC09038FFC01F481300485A485A5B485A4848133FED7F80393FC001
FFD9803F130090B55A485C5D15E092C7FCB512F048C9FCA57E7E15076DEB0F80003FEC1F
C06DEB7FE03A1FF007FFC090B6FC6C15806CECFE006C5CC614E0013F90C7FC232974A730
>I<16FF030313C0030F13E04B13F017F85D1683ED7F871607A2EE03F09238FF01E04BC7
FCA414015D0103B6FC491580A46D150090260003F8C7FCA314075DA5140F5DA4141FA25D
A4143F5DA5147F92C8FCA45C5CA31301A25CA21303A25C123CEA7E0700FF5B130F5CEAFE
1FB55A5C6C90C9FC6C5A6C5AEA07F02D4E7BB830>I<EC01FCEC07FF021F13C7027FEBFF
8091B612C05B491307902607FC03138049487E14F0EB1FE0D93FC0140081495A91C7FC49
5C5B15011201495CA215031203495C1507A2150F4B5A7F0001143F157F4B5A6C6C5AEBFF
076DB5FC5E7F7F0107133FD901FC5B90C7FC157FA293C7FCA25DA25D1401A2001E495A00
3F495A48130F9038803FF000FFEBFFE090B55A6C5C92C8FC6C13FC6C13F0000713802A3D
7AA730>I<EC03C0EC07E0EC0FF0A315E0A2EC038091C7FCA9EB1FC0EB7FF048487E487F
5A487F13F0EA1FE013C0123F1380EA7F015CEAFF035C127EEA00075C130F5CA2131F5CA2
013F1370EC80FCEB7F811401A2EBFF0301FE13F8140715F0140FEC3FE090B512C015806D
13006D5A6D5AEB07F01E3A73B830>105 D<383FFFC04813E0B5FCA27E7EEA001F14C0A2
133FA21480A2137FA21400A25BA25BA21201A25BA21203A25BA21207A25BA2120FA25BA2
121FA25B141C003F133F147F1380A2007F13FF14FE13001301EB81FCEA3FC3EBFFF86C13
F014E06C13C0000313803800FE0018396EB730>108 D<91390FC007E0903A3C7FF01FF8
903A7EFFF87FFC017F9038FCFFFE15FD90B8FC02F8EBFC3F9138E07FF802C013F0480180
13E016C01400491480000302FF137F49EC007EA25D2607F80114FE17FC01F05B1601000F
010314F801E013F81603001F010714F001C013F0160717E0003F130F018013E0160F17C0
007F131F010013C017F017F848013F1307481480EE03F016000038010EC8FC30297CA730
>I<01F813FE3A03FE07FF80486C487F48013F7F4890B57EA2ED87F8393F9FFE0314FC38
7FBFF8EB3FF0A214E0D8FF7F130702C05B127E0000138001FF130F02005BA34848131F5E
A249EB3FC70003ED8FC0169F49137F161F0007153F03FF13804913FE167F000F16005E49
6D5A5E157F495CED3FE06C48EB0FC02A2979A730>I<EC3FC0903801FFF001077F497F49
7F017F7FD9FFE0138048EB807F9138003FC0D803FC131F485AA2485A4848EB0FE05B123F
5BED1FC0127F90C7FCA2153F4815805A157F16005D5D14016C495A6C13074A5A6D485A00
3F495A9038E0FFC06CB55A92C7FC6C5B6C13F8000113E038007F80232975A730>I<017E
EB1FF03A01FF80FFFE4801C3EBFF804801E714C04890B612E0A2D81FC79038F03FF0EDC0
0FD83F83EB800701871300007F49130F13075C484848EB07E0EE03C0007E92C7FC00005B
131F5CA3495AA35C137FA291C9FCA25BA25BA21201A25BA35BA26C5A2C2978A730>114
D<EC1FF8ECFFFE0103EBFF804914C04914E05B90393FF01FF090387F800F1400137E01FE
14E05BED07C0ED03006D90C7FCEB7FC014FE90383FFFE015F8010F7F6D7F01007F020713
80EC007FED1FC0150F121C123F5A151F481580153FED7F004A5A397FE00FFE90B55A6C5C
6C5C6C14C0000391C7FC38007FF8242977A730>I<147814FCA21301A413035CA313075C
A3130F5CA2003FB512F04814F8B6FCA36C14F039003F8000A3137F91C7FCA35B5BA31201
5BA312035B157015FC0007130113F0140315F8000F13079038E00FF0141FEC3FE09038F0
FFC06CB5128015006C5B6C5B6C13F0EB3F801E3A72B830>I<133ED9FF801370486D13F8
486D487E5A48EBF003D81FE75C13C7123F01871307D87F8F5CEB0FE0A2D8FF1F130F02C0
5BEA7E3F00001380151F017F5C1400A2153F495C5B168792387F8FC00001151F5B15FF16
3FDA01FE1380A21403D9FE07EB7F000000131F90B7FC6D5CEDBFFC6D133F90391FFE1FF0
903903F007E02A2979A730>I<D91F80131ED97FE0133F48486C5B486D14805A486D133F
13F1EA1FE1EA3FC113811383387F03F8A2D8FF07147F4A1400127EEA000F4A5B5E131F5C
1501013F5C1480A24B5A137F4A485AA34B5AEC801F013F5C6E485AECE0FF6DB5C7FC5D6D
5B6D5B010113E09038007F80292979A730>I<EE01E0001E91387803F0D83F80EBFC077F
17F8EBE001001FECF8031207A2020314F015F0A302071307000F02E013E013C0121FD980
0F130F17C0003F14C01300021F131F481680007E1480A2023F133F00FE16004814004A5B
167E5C6C15FE49EB81FC127F0187EBC3F86CB6FC5E6C01EF5B6C01C75B6C01815B2700FE
007EC7FC2D2978A730>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fo cmbxti10 10.95 5
/Fo 5 121 df<EA07E0EA1FF0EA3FF8EA7FFCA212FFA313F8A213F013E0EA7FC0EA1F00
0E0E758D20>46 D<EC07FE91383FFFC049B512E04914F0010FEB07F890381FF80390393F
F007FC9038FFC00F48EB801FA2481300484814F8120F4914F0001FEC0FE0ED0780484890
C7FCA3127F5BA312FF5BA55B007F153016786D14FC1501003FEC03F86C6CEB0FF06DEB7F
E03A0FFE03FFC00003B612006C14FC6C6C13F0010F90C7FC262A77A830>99
D<EC07FE91387FFF8049B512E0010714F049EB07F890383FF801D97FE013FC9038FFC000
485B4890C7FC4814014914F8120F491303001FEC07F0ED1FE04848EBFFC001F9B5128090
B612004814FC15C091C8FC13F0A25B12FFA2127FA31630167816FC003F1401ED03F86C6C
EB0FF06C6CEB7FE03A07FE03FFC06CB612006C14FC6C6C13F0010F90C7FC262A77A830>
101 D<147C14FE1301497E5BA25CA2130FA25CA2131FA25CA2133FA25C007FB512F0B612
F815F0A27EC6EBE000A25CA25AA25CA25AA291C7FCA25AA25BA2120FA25BA2001F14F014
0113F8140315E0003F130701F013C0140FEC1F80001FEB3F00147EEBF1FC6CB45A6C5B00
015B6C6CC7FC1D3C78BA23>116 D<D903FEEB1FC0903A0FFFC07FF0013F9038E0FFF849
01F113FC903AFE0FFBF0FE3A01F807FFE048486CEBC1FFD807E05CD80FC01487D81F8014
07495A48ED0FFE003E14FEEE07FC020FEB03F8003C9138FC01F0C791C7FCA2141F5DA314
3F5DA3260F807F143CD81FC049137CEA3FE0EA7FF002FF14FC484815F8EDC00101E1EC03
F001C1EC07E049EC0FC06C489038E01F80903A0FDFF07F003A3FFF8FFFFE6C01075B6C48
6C13F03A03F8007FC0302A7AA833>120 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fp cmmi6 6 9
/Fp 9 123 df<EC0FC0EC7FE0ECF0709038018038EB0700010E133C130C5B5B13700160
13785B157015F0484813E0903881FFC00183138015C0390301F9E090C712F0A3000614F8
A448EB01F0A3EC03E0001C14C0001E13071580001BEB0F003831C03E3830FFF8EB7FE090
C8FC5AA45AA41E2E7EA323>12 D<127812FCA4127806067A8513>58
D<131FEBFF8C3801E0DE3803807E3807007C48133C121E123E003C5B127CA3485BA21540
1560903801E0C012781303393807E180391C1CF300380FF87F3807E03C1B177E9522>97
D<EA03E0EA3FC0A21203A2485AA448C7FCA4EA1E1FEB7FC0381FC1E0EB80F0EA3E0014F8
003C137814F85AA438F001F0A3EB03E014C0EA7007148038380F00EA3C3CEA1FF8EA07E0
15247DA21B>I<1338137CA2137813701300A7EA0780EA1FC0EA38E01230EA60F0EAC1E0
A3EA03C0A3EA0780A2EA0F0013041306EA1E0CA21318121CEA1E70EA0FE0EA07800F237D
A116>105 D<13F8EA0FF0A21200A2485AA4485AA43807801E147FEB81C3EB8387380F06
0F495A1318EB700E4848C7FCA213FCEA1E7EEA3C0F80EB0781158039780F0300A21402EB
070600F0138CEB03F8386000F019247CA221>107 D<000F017E13FC3A1F81FF83FF3B31
C383C707803A61EE03CC039026EC01F813C0D8C1F813F013F001E013E00003903903C007
8013C0A2EE0F003907800780A2EE1E041706270F000F00130C163C1718A2001E011EEB1C
70EE1FE0000C010CEB07802F177D9536>109 D<000F13FC381FC3FF3931C707803861EC
0301F813C0EAC1F0A213E03903C00780A3EC0F00EA0780A2EC1E041506D80F00130C143C
15181538001EEB1C70EC1FE0000CEB07801F177D9526>I<EB780CEA01FC3803FE183807
FF30EB07E0EA0C0014C038000180EB0700130C5B5B5B5B380180083803000C0006131800
0F1338381FE0F03839FFE038607FC0EB3F8038C01E0016177D951E>122
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fq cmcsc10 10.95 24
/Fq 24 122 df<B6FCA618067E9622>45 D<ED03C0A34B7EA24B7EA34B7EA3ED3BFCA3ED
71FEA2EDF1FF15E0A2020180EDC07FA2DA03807F163FA24A486C7EA24A80020E130FA202
1E80021C1307A2023C8002381303A24A6D7EA34A6D7EA249B77EA3D903C0C76C7E4A143F
A249C87F171FA2010E6F7EA2011E82011C1507A2013C820138150313788401FC1501486C
4B7ED80FFF030F1380B500F049B6FCA340417CC04A>65 D<DB1FF8EB01804AB5EA800302
0FECE007913A3FF803F80F9139FF80007C4948C7EA1E1FD907FCEC0FBFD90FF0EC07FF49
488049488049488049C9127F4848163F120349161F12074848160FA2485A1807123F5B18
03127FA34993C7FC12FFAC127F7FF00380A2123FA27F001F170719006C7EA26C6C5E0003
170E6D161E0001171C6C6C163C6D6C5D6D6C5D6D6C4A5A6D6C4A5AD907FC4A5AD901FE02
1FC7FC902600FFC0137E91393FF803F8020FB512E0020114809126001FFCC8FC39427ABF
47>67 D<B712FCEEFFC017F000019039C0001FFC6C6C48EB01FF706C7EEF3FE0EF0FF071
7E717E717E170084F07F80A2F03FC019E0181FA219F0A2F00FF8A519FCAB19F8A4F01FF0
A319E0183F19C0A2F07F801900604D5A4D5A4D5A4D5A4D5AEF7FC04C48C7FC48486CEB0F
FEB812F817C004FCC8FC3E3E7BBD4B>I<B912F0A3000101C0C7FC6C6C48141FEF07F817
03170117001878A31838A4181C161CA41800A2163CA2167C16FC150391B5FCA3EC800315
00167C163CA2161CA21807A3180E93C7FCA4181E181CA2183CA2187CA218F81701170317
07171F48486CEB01FFB912F0A3383E7BBD43>I<B912E0A300019038C000016C6C48EB00
1FEF0FF01703A217011700A31870A41838A2161CA31800A3163CA2167C16FC150391B5FC
A3EC80031500167C163CA2161CA693C8FCAF3801FFE0B612F0A3353E7BBD41>I<DB1FF8
EB01804AB5EA8003020FECE007913A3FF803F80F9139FF80007C4948C7EA1E1FD907FCEC
0FBFD90FF0EC07FF49488049488049488049C9127F4848163F120349161F12074848160F
A2485A1807123F5B1803127FA34993C7FC12FFAB0407B512FE127F7FDC000113C0943800
7F80123FA27F121FA26C7EA26C7E12037F6C7E7E6D6C15FF6D7E6D6C5C6D7ED907FCEC03
DFD901FFEC0F8F6D01C0EB3F07913A3FF801FC03020FB5EAF001020102C0C7FC9126001F
FCC8FC3F427ABF4D>I<B612F0A3000101E0C9FC38007F80B3B0EF01C0A517031880A417
07A3170FA2171F173F177FEFFF00160348486C133FB9FCA3323E7BBD3E>76
D<B56C91387FFFFC8080D8007F030313806E913800FE006E157C1838EB77FCEB73FE8013
7101707F6E7EA26E7E6E7EA26E7E6E7EA26E7E6E7EA26E7F6F7EA26F7E6F7EA26F7E6F7E
8215036F7E6F1380A2EE7FC0EE3FE0A2EE1FF0EE0FF8A2EE07FCEE03FEA2EE01FF7013B8
A2EF7FF8173FA2171F170F1707A2170301F81501487ED807FF1500B500F81578A218383E
3E7BBD4A>78 D<ED3FF80203B57E91390FE00FE091397F0001FC02FCEB007ED903F86E7E
49486E7ED90FC0EC07E0D93F80EC03F8017F8291C8120101FE6F7E4848167F0003188048
48EE3FC0A2000F18E049161F001F18F0A24848EE0FF8A3007F18FC491607A300FF18FEAC
007F18FC6D160FA3003F18F8A26D161F001F18F0A26C6CEE3FE0A2000718C06D167F0003
18806C6CEEFF006C6C4B5AA26D6C4A5A6D6C4A5A6D6C4A5AD907F0EC1FC06D6C4A5AD900
FE02FEC7FC91397F8003FC91391FE00FF00203B512809126003FF8C8FC3F427ABF4D>I<
B712E016FE707E00019039C0007FF06C6C48EB0FF8EE03FE707E707F717E717EA284171F
84A760173F60604D5A4DC8FC4C5A4C5AEE0FF0EE7FC091B500FEC9FC16F891388000FEEE
3F80EE0FE0707E707E83160183160083A384A484A4725AF10380A2177F18F0053FEB0700
2601FFE015F8B600C0011F5B94380FFC0E943803FE1CCBEAFFF8F01FE041407BBD49>82
D<D903FE130690391FFFC00E017FEBF81E3901FE01FC3A03F0003F3E4848EB0FFE484813
074848130390C71201003E1400007E157EA2007C153E12FCA2161EA36C150EA27E7F007F
92C7FC7F13F0EA3FFCEBFFC06C13FC6CEBFFC06C14FC6C14FF6C15C06C6C80011F800103
80D9003F7F02037F9138003FFF15070301138081167F17C0163F00E0151FA3160FA27EA3
6C1680161F7E17006C5D6C153E6D5C6D14FCD8FDF0495AD8F8FC495A3AF07FC01FC0011F
B55AD8E00349C7FC39C0003FF02A427ABF38>I<B64AB512C0A3000301E09139003FFC00
C60180ED0FF0725A017F5F616D7E96C7FC6E5D011F160EA26D6C5DA26E153C01071638A2
6E1578010316706E15F001015EA26E14016D5E81027F4A5AA26F1307023F92C8FC81021F
140EA26F131E020F141C8102075CA26F137802031470A26E6C5BA2EDFF016E5CA292387F
8380A216C7033F90C9FCA216EFED1FEE16FE6F5AA36F5AA26F5AA36F5AA242407DBD4A>
86 D<B612FEEDFFC016F03A03FC0007F86C48EB01FE1500167F1780163F17C0A6178016
7F170016FE4B5AED07F0ED7FE090B6128016F09039F80001FC6F7EEE7F80163FEE1FC017
E0160F17F0A617E0161FA2EE3FC0EE7F80923801FF00486CEB07FEB712F85E93C7FC2C2F
7CAE35>98 D<DA0FF81330DA7FFF13700103B5EAC0F090390FFC03F190391FE000F9D97F
80133F01FEC7121F4848140F48481407485A000F1503491401121F491400123F5B127F17
70A248C9FC1700AA6C6C1570A3123F6D15F0121F6D15E0000F15016D15C0000715036C6C
15806C6C14076C6CEC0F00D97F80133ED91FE05B90390FFC03F00103B55AD9007F1380DA
0FF8C7FC2C317BAF36>I<B612FEEDFFE016F83A03FE0007FC6C48EB00FFEE3F80707E70
7E707E707E160183160083A2177FA41880AA1800A317FEA34C5A5F16034C5A5FEE1FC04C
5A04FFC7FC486CEB07FEB712F816E093C8FC312F7DAE39>I<B81280A3D803FEC7FC6C48
EC1FC0160F16071603A21601A317E0ED0E00A31700A2151E153E157E90B512FEA39038FC
007E153E151E150EA21738A392C71270A417F0A2EE01E0A216031607161F486C14FFB812
C0A32D2F7DAE33>I<DA0FF81360DAFFFE13E00103EBFF8190390FF807E390393FC000F3
4948137F01FEC7123F4848141F4848140F48481407120F491403485A003F1501A25B007F
1500A348C9FC1700A8031FB5FCA26C7E9238001FF0EE0FE0123F7FA26C7E120F7F12076C
7E6C7E6C6C141FD97F80133FD93FE0137B90390FFC03F10103B512E00100EC8060DA0FFC
C7FC30317BAF3A>103 D<D8FFFE923807FFF0A3D803FF92380FFC006C5FD9DF80141DA3
D9CFC01439A2D9C7E01471A3D9C3F014E1A2D9C1F8EB01C1A3D9C0FCEB0381A2027EEB07
01A36E130EA291381F801CA391380FC038A2913807E070A3913803F0E0A3913801F9C0A2
913800FF80A3486CEB7F00487E486C013E497EB5008091B512F0A2151C3C2F7CAE44>
109 D<EC1FF891B5FC903907F00FE090390FC003F0013FC712FC017E147E49804848EC1F
804848EC0FC04848EC07E0000F16F0491403001F16F8491401003F16FCA2007F16FE90C9
FCA34816FFAA6C6CEC01FEA3003F16FCA26D1403001F16F86C6CEC07F0A26C6CEC0FE000
0316C06C6CEC1F806C6CEC3F00017E147E6D5C90390FC003F0903907F00FE00100B5C7FC
EC1FF830317BAF3A>111 D<B612F015FF16C03A03FE001FF06C48EB03FCED00FE167FA2
83163F83A55F167F94C7FC16FE4B5A4B5AED1FE090B6C8FC5D9039FC003F80ED0FC06F7E
826F7EA26F7EA582A418E082A281486CED01C0B500F8EB7F8193381FC38093380FFF00C9
EA01FC33307DAE37>114 D<007FB712F8A39039801FF0073A7E000FE00000781678A200
70163800F0163CA348161CA5C71500B3A8EC3FF8011FB512F0A32E2E7CAD36>116
D<B500F890387FFFC0A3D803FEC73807FC006C486E5A705A705AB3AB000015016D5D1603
017E5D017F14076D6C49C7FC131F6D6C133ED907F05B903903FC03F00100B55A023F1380
DA07FCC8FC32307DAE38>I<B500E0903807FFF0A3000790C7000113800001923800FE00
6C16F86E5C017F4A5A6D7E6E495A011F5D6D6C13076E49C7FC0107140E6D6C131E6E5B01
0114386D6C13786F5A027F5BEC3FC191381FE3C05EEC0FF76EB4C8FC5D14036E5AB04A7E
91B512F0A3342F7EAE38>121 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fr cmtt12 12 15
/Fr 15 86 df<EC1F804A7E4A7EA34A7EA314F901017FA501037FA214F0A201077FA4EC
E07E010F137FA449486C7EA549486C7EA4017F80EC000FA291B5FCA290B67EA43A01FE00
07F8491303A4000381491301A3000781491300D87FFF90380FFFE0B56C4813F06E5AA24A
7E6C496C13E02C3E7DBD33>65 D<007FB512F8B7FC16C082826C813A03F8000FFCED03FE
15016F7E82A2EE3F80A7EE7F00A25E4B5AA2ED07FCED1FF890B65A5E1680828216F89039
F8000FFCED01FE6F7EEE7F80163F17C0161FA2EE0FE0A7161F17C0A2163FEE7F8016FF4B
1300150F007FB65AB75A5E16E05E6C4AC7FC2B3D7DBC33>I<91391FE00780DAFFFC13C0
0103EBFF0F010F148F4914FF5B90387FF81F9038FFC00748497E4848487E497F485A167F
485A49143F121F5B003F151F5BA2127F90C8EA0F8093C7FCA25A5AAD7E7EA36DEC0F8000
3FED1FC0A27F121F7F000F153F6D15806C7E167F6C6CECFF007F3A01FF8003FE6C6D485A
90397FF81FF86DB55A6D5C6D5C010391C7FC010013FCEC1FE02A3F7CBD33>I<003FB512
F04814FCB7FC826C816C813A03F8007FF0ED1FF8ED07FC15036F7E8281EE7F80A2163F17
C0161FA217E0160FA4EE07F0AD160F17E0A4161F17C0163FA21780167FEEFF00A24B5A15
034B5AED1FF8ED7FF0003FB6FC4815C0B75A93C7FC6C14FC6C14F02C3D7EBC33>I<003F
B712E04816F0B8FCA27E7ED801FCC71207A8EE03E093C7FCA6151F4B7EA490B6FCA69038
FC003FA46FC7FC92C8FCA817F8EE01FCA9003FB7FC5AB8FCA27E6C16F82E3D7EBC33>I<
003FB712E04816F0B8FCA27E7ED801FCC71207A8EE03E093C7FCA7151F4B7EA490B6FCA6
9038FC003FA46FC7FC92C8FCB1383FFFF8487FB57EA26C5B6C5B2C3D7DBC33>I<3B7FFF
C00FFFF8B56C4813FCA46C496C13F8D803F8C7EA7F00B3A290B7FCA601F8C77EB3A53B7F
FFC00FFFF8B56C4813FCA46C496C13F82E3D7EBC33>72 D<003FB612804815C0B712E0A2
6C15C06C1580260003F8C7FCB3B3AD003FB612804815C0B712E0A26C15C06C1580233D78
BC33>I<D83FF8EC1FFC486CEC3FFE486CEC7FFFA2007F16FE6C6CECFFFC000716E001EF
14F7EC8001A39039E7C003E7A3ECE007A201E314C7A2ECF00FA201E11487ECF81FA201E0
1407A2ECFC3FA2EC7C3E157E147EEC3E7CA3EC1E78EC1FF8A2EC0FF0A3EC07E0EC03C091
C7FCAED83FFCEC3FFC486CEC7FFEB591B5FCA26C48EC7FFE6C48EC3FFC303D7FBC33>77
D<D87FFC90381FFFE0486C4913F07FA36C6D6C13E00003913800FC0013F780A213F380A3
EBF1F0A38013F0A280A2147C147EA2143E143FA2801580A3140F15C0A2140715E0A21403
15F0A21401A215F81400A3157CA3153C153EA2151E151F387FFF80B5EAC00FA315076C49
6C5A2C3D7DBC33>I<90381FFFF890B6FC000315C0000F15F0A24815F83A3FFC003FFC01
E013074913034848EB01FEA290C8FCA500FE157FB3AC6C15FF6C15FEA46D1301A36C6CEB
03FC01F0130F01FC133F6CB612F86C15F0A2000315C0C61500011F13F8283F7BBD33>I<
007FB57EB612F815FE81826C812603F8007FED3FF0ED0FF815076F7E1501A26F7EA74B5A
A215034B5A150FED3FF0EDFFE090B65A5E93C7FC5D8182D9F8007F153F6F7E150F821507
AA173E177FA416F8030313FF267FFFC014FEB538E001FF17FC81EE7FF86C49EB3FF0C9EA
0FC0303E7EBC33>82 D<D907FE137890393FFFC07C90B5EAF0FC4814FC000714FF5AEBFC
03391FF0007F4848133F0180131F007F140F90C712074814035AA21501A46CEC00F86C15
007F7F6C7E7FEA1FFE380FFFE06C13FF6C14F06C14FC6C6C13FF011F1480010314C0D900
3F13E0020313F09138003FF8ED0FFC1507ED03FE1501150016FFA2007C157F12FEA56C15
FF16FE7FED01FC6D130301F0EB07F801FC130F9039FF807FF091B512E016C000FC158001
3FEBFE00D8F80F5BD8780013E0283F7BBD33>I<003FB712F84816FCB8FCA43AFE000FE0
01A8007CED00F8C71500B3B3A40107B512C049804980A26D5C6D5C2E3D7EBC33>I<273F
FFE001B5FC486D481480B56C4814C0A26C496C14806C496C1400D801FCC7EA0FE0B3B3A3
6D141F00005EA26D143F6D5DA26D6C49C7FC6E5B6D6C485AECF00390390FFC0FFC6DB55A
6D5C6D5C6D6C1380DA1FFEC8FCEC07F8323E80BC33>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fs cmsy6 6 1
/Fs 1 49 df<EA01E0EA03F0A4EA07E0A213C0120FA21380A2EA1F00A2121EA2123E123C
A25AA3127012F05A12600C1A7E9B12>48 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Ft cmr12 12 20
/Ft 20 118 df<14FF010713E090381F81F890383E007C01FC133F4848EB1F8049130F48
48EB07C04848EB03E0A2000F15F0491301001F15F8A2003F15FCA390C8FC4815FEA54815
FFB3A46C15FEA56D1301003F15FCA3001F15F8A26C6CEB03F0A36C6CEB07E0000315C06D
130F6C6CEB1F806C6CEB3F00013E137C90381F81F8903807FFE0010090C7FC28447CC131
>48 D<007FBAFCBB1280A26C1900CEFCB0007FBAFCBB1280A26C190041187BA44C>61
D<DB0FFE146092B500C013E0020314F0913A0FFC01FC0191393FC0003E02FFC7EA0F83D9
03FCEC03C74948EC01E74948EC00FF4948157F4948153F4948151F49C9120F485A491607
120348481603A248481601A248481600A2123FA2491760127FA31900485AAE6C7EA21960
A2123F7FA2001F18E07F000F18C0A26C6C160119806C6C160312016DEE07006C6C16066D
6C150E6D6C5D6D6C5D6D6C15786D6C5D6D6C4A5AD900FFEC0780DA3FC0011FC7FCDA0FFC
13FC0203B512F0020014C0DB0FFEC8FC3B487BC546>67 D<B8FC17F017FC00019039C000
07FF6C499038007FC0017FED1FE0EF07F0EF03FC717E717E84727E727E727EA2727E8518
0385A2180185A38584A31A80AD1A00A36061A361180361180761180F614E5A183F614EC7
FC18FEEF03FC4D5AEF1FE001FFED7FC0486DD907FFC8FCB812FC17F094C9FC41447CC34B
>I<B912F8A3000101C0C7127F6C6C48EC07FC17011700187C183C181CA284A31806A418
0704067FA395C7FCA4160EA2161E163E16FE91B5FCA3EC8000163E161E160EA21606A319
C0A3F0018093C7FCA41803A21900A260A260A2181EA2183E187EEF01FE170748486C147F
B95AA33A447CC342>I<B712E016FF17C000019039C0003FF86C6C48EB03FCEE00FF717E
717E717E717E717EA284170384A760A21707604D5AA24D5A4D5A4DC8FCEE01FEEE07F8EE
3FE091B6C9FC16FC913980007F80EE0FE0707EEE03FC707E160083717EA2717EA784A71A
6084171FA21AE0716C13C02601FFE002071301B600C01680943801FC03943900FE0700CB
EA3FFEF007F843467CC348>82 D<49B41303010FEBE007013F13F89039FE00FE0FD801F8
131FD807E0EB079F49EB03DF48486DB4FC48C8FC4881003E81127E82127C00FC81A282A3
7E82A27EA26C6C91C7FC7F7FEA3FF813FE381FFFE06C13FE6CEBFFE06C14FC6C14FF6C15
C0013F14F0010F80010180D9001F7F14019138001FFF03031380816F13C0167F163F161F
17E000C0150FA31607A37EA36C16C0160F7E17806C151F6C16006C5D6D147ED8FBC05CD8
F9F0495AD8F07C495A90393FC00FE0D8E00FB51280010149C7FC39C0003FF02B487BC536
>I<B600C0010FB5FCA3000101E0C813F026007F80ED1F80F00F00A21806B3B3A7180E6D
6C150CA2181C131F6E1518010F163818306D6C1570606D6C14016D6C5D6D6CEC0780027F
4AC7FC6E6C131EDA1FE0137C913907FC03F00201B55A6E6C1380DB07FCC8FC40467CC349
>85 D<EC7F80903803FFF090380FC07C90383F000F01FCEB03804848EB01C00003140F48
48EB1FE049133F120F485AA2485AED1FC0007FEC070092C7FCA290C9FC5AAB7E7FA2123F
16307F001F15706C6C146016E06C6C14C06C6C13010001EC03806C6CEB0700013F131E90
381FC078903807FFF001001380242E7DAC2B>99 D<167FED3FFFA315018182B3EC7F8090
3803FFF090380FC07C90383F000E017E1307496D5AD803F87F48487F5B000F81485AA248
5AA2127FA290C8FC5AAB7E7FA2123FA26C7EA2000F5D7F6C6C5B00035C6C6C9038077F80
6C6C010E13C0013F011C13FE90380FC0F8903803FFE09026007F0013002F467DC436>I<
EB01FE903807FFC090381F03F090387E00FC49137E48487F485A4848EB1F80000F15C049
130F121F484814E01507A2007F15F090C7FCA25AA390B6FCA290C9FCA67EA27FA2123F16
306C7E1670000F15606D14E06C6C14C0000314016C6CEB03806C6CEB0700013E131E9038
1F80F8903803FFE0010090C7FC242E7DAC2B>I<EA01E0EA07F8A2487EA46C5AA2EA01E0
C8FCADEA01FC12FFA3120712031201B3B0487EB512F8A315437DC21C>105
D<EA01FC12FFA3120712031201B3B3B3A5487EB512F8A315457DC41C>108
D<D801FC01FFEC1FE000FF010701E0EBFFFC913B0F03F801E07F913C3C01FC07803F8000
07903C7000FE0E001FC0000349D97E1C130F2601FDC0D97F38804A143001FFDA3FF06D7E
91C75BA2495DA3495DB3A8486C4A6C497EB5D8F81FB50003B512E0A34B2C7DAB52>I<39
01FC01FE00FF903807FFC091381E07F091383801F8000701707F0003EBE0002601FDC07F
5C01FF147F91C7FCA25BA35BB3A8486CECFF80B5D8F83F13FEA32F2C7DAB36>I<EC7F80
903803FFF090380FC0FC90383E001F496D7E496D7E48486D7E48486D7E48486D7E000F81
A24848147E003F157FA290C87E481680A44816C0AA6C1680A26D147F003F1600A2001F15
7E6D14FE000F5D6D130100075D6C6C495A6C6C495A6C6C495A013E49C7FC90381FC0FE90
3807FFF89038007F802A2E7DAC31>I<3903F803F000FFEB1FFCEC3C3EEC707F0007EBE0
FF3803F9C000015B13FBEC007E153C01FF13005BA45BB3A748B4FCB512FEA3202C7DAB26
>114 D<90383FE0183901FFFC383907E01F78390F0003F8001E1301481300007C147812
7800F81438A21518A27EA27E6C6C13006C7E13FC383FFFE06C13FC6C13FF6C14C06C14E0
C614F0011F13F81300EC0FFC140300C0EB01FE1400157E7E153EA27EA36C143C6C147C15
786C14F86CEB01F039F38003E039F1F00F8039E07FFE0038C00FF01F2E7DAC26>I<1306
A5130EA4131EA3133E137EA213FE12011207001FB512F0B6FCA2C648C7FCB3A4150CAA01
7E131C017F1318A26D133890381F8030ECC070903807E0E0903801FFC09038007F001E3E
7EBC26>I<D801FC147F00FFEC3FFFA300071401000380000181B3A85EA35DA212006D5B
017E9038077F80017F010E13C06D011C13FE90380FC078903803FFF09026007F8013002F
2D7DAB36>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fu cmsy8 8 8
/Fu 8 113 df<B812C0A32A037A9137>0 D<130C131EA50060EB01800078130739FC0C0F
C0007FEB3F80393F8C7F003807CCF83801FFE038007F80011EC7FCEB7F803801FFE03807
CCF8383F8C7F397F0C3F8000FCEB0FC039781E078000601301000090C7FCA5130C1A1D7C
9E23>3 D<170EA3170F8384170384170184717E1878187C84180FF007C0BA12F819FC19
F8CBEA07C0F00F00183E601878604D5A60170360170795C7FC5F170EA33E237CA147>33
D<137813FE1201A3120313FCA3EA07F8A313F0A2EA0FE0A313C0121F1380A3EA3F00A312
3E127E127CA35AA35A0F227EA413>48 D<D93F80EC07F0D9FFF0EC3FFC000301FC91B5FC
4801FF903901F80780D80F80903A8007C001C03D1E003FC00F8000E0486D6C48C7127000
3890260FF03E143048902607F83C14386E6C48141800606D6C5A00E06D6C48141C48027F
150C5E153F6F7E6F7E82151F6C6F141C0060DA3DFE1418DB78FF143800704A6C7E003001
016D6C1370003849486C6C13F06C903B07C00FF001E06C903B0F8007FC07C02807807E00
03B512806CB44801001400C601F0EC3FFCD93F80EC07F03E1F7C9D47>I<ED01C0A21503
1680150716005D150E151E5D15381578157015F05D14015D14035D140792C7FC5C140E14
1E5C14381478147014F05C13015C13035C130791C8FC5B131E131C133C13381378137013
F05B12015B12035B120790C9FC5A121E121C123C12381278127012F05A1260223D76AE00
>54 D<4A7E1403B3B3A6007FB712FEB8FC7E2F2E7CAD38>63 D<18031807180F180E181E
181C183C18381878187018F018E01701EF03C01880170718005F170E171E171C173C1738
1778177017F05F16015F16035F160701C092C7FC486C5C0007151E486C141C003F153CD8
73F8143800E31578D801FC147016F06C6C5C1501017F5C1503D93F805B1507D91FC090C8
FC5D90380FE00E151E903807F01C153C903803F83815786D6C5A5DEB00FF5D147F5D143F
92C9FC80141E140E38427C823B>112 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fv cmsy9 9 3
/Fv 3 104 df<007FB712FCB812FEA26C16FC2F047A943C>0 D<EC07E0143FECFE00EB03
F8495A495A5C131F5CB3A5133F91C7FC137E5BEA03F8EA7FE048C8FCEA7FE0EA03F8C67E
137E7F80131FB3A580130F806D7E6D7EEB00FEEC3FE014071B4B7BB726>102
D<12FCEAFFC0EA07F0EA01FC6C7E137F7F80131FB3A580130F6D7E6D7EEB01FC9038007F
C0EC1FE0EC7FC0903801FC00EB03F0495A495A131F5CB3A5133F91C7FC5B13FE485AEA07
F0EAFFC000FCC8FC1B4B7BB726>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fw cmmi9 9 12
/Fw 12 122 df<123C127EB4FCA21380A2127F123D1201A412031300A25A1206120E120C
121C5A5A126009177A8715>59 D<EB01F8EB07FE90381F071C90387C03FEEBF801EA01F0
0003130048485B5B120F381F80015DEA3F00A21403485C127EA2140700FE5C5A1640020F
1360EDC0E016C0127CEC1FC1023F1380003CEB7F81003EEBEF833A1E01C7C300390F0787
C73907FE03FE3900F800F823227EA029>97 D<133FEA1FFFA25B1200A35BA21201A25BA2
1203A25BA21207A2EBE0F8EBE3FF390FEF07809038FC03C001F813E0EBF001D81FE013F0
13C0138015F8123FA21300A248130315F0127EA2140700FE14E05AA2EC0FC0A2EC1F8000
7C14005C147E003C137C003E5B381E01F0380F07C06CB4C7FCEA00FC1D357EB321>I<14
7F903803FFC090380FC0F090383F0038137C4913F83801F0013803E0031207EA0FC09038
8001F0001F90C7FC123F90C8FCA25A127EA45AA3127C150C151C15386C147015E06CEB03
C0390F800F003807C07E3801FFF038007F801E227EA021>I<ED01F815FFA216F01507A3
16E0A2150FA216C0A2151FA21680A2153FA2D901F81300EB07FE90381F077F90387C03FF
496C5AEA01F000031300485A495B120F381F8001A2D83F005BA214035A007E5CA2140712
FE485C1640020F136016E0EDC0C0127CEC1FC1023F1380003CEB7F81003EEBEF833A1E01
C7C300390F0787C73907FE03FE3900F800F825357EB328>I<14FE903807FF8090381F03
C090387C01E03801F800485A485A485A485A1401D83F0013C01403007EEB0F80ECFE0038
7FFFF8B5128000FCC8FCA45AA415186C1438007C147015E0003CEB01C0003EEB07806CEB
1E00380F80FC3803FFE0C690C7FC1D227DA024>I<EB1F80EA07FF5A1400C67EA3137EA2
13FEA25BA21201A25BA21203A25BA21207A25BA2120FA25BA2121FA25BA2123FA290C7FC
A25AA2127E1304EAFE0E130C12FCA2131C131812F81338EA7C701360EA3FE0EA0F801135
7DB317>108 D<147F903803FFC090380FC1F090383F00F8017C137C497F485A48487F12
07485A5B001F1580123F90C7FCED3F005A127EA25D157E5A15FE5D007C5C14014A5A5D6C
495A4A5A6C49C7FC380F807E3807C1F83801FFE06C6CC8FC21227EA025>111
D<EB01FCEB0FFF90383E03C090387800E04913603901E001E014030003130713C013E0EC
03806DC7FC13FF14F014FC6C7F6C7F6D1380130F9038007FC0141F140F007E130700FE14
80A3EC0F005A00C0131E6C5B00705B383C01F0380FFFC0D803FEC7FC1B227CA024>115
D<01F0130ED803FC131FD8071EEB3F80EA0E1F121C0038EB801F0030140F013F13070070
1300006014035BD8E07E14001240EA00FE495B000114065BA2150E0003140C5B151C1518
1538491330157015606D13E04A5A0001495A6D48C7FC3800FC1EEB3FF8EB07E021227EA0
25>118 D<90391F801F8090397FE07FE09039E0F0E0703A01C0F9C0F83903807D833807
007F000E1403000C15F0001C137E0018EC01C002FEC7FC00385B1210C7FC13015CA31303
A25C1640010714E016C0001C5B007E1401010F148000FE1403011FEB0700011B130E39F8
39F01C397070F878393FE07FE0390F801F8025227EA02C>120 D<13F0D803FCEB01C0D8
071EEB03E0D80E1F1307121C003813800030140F013F14C000701300126049131FD8E07E
14801240EA00FE49133F000115005BA25D0003147E5BA215FE5D5BA214015DEBF0031407
0001130F3900F83FF0EB3FFBEB0FC3EB00075DA20007130FD81F805B003F495AA24AC7FC
EB007E003E137C00385B381803F0381E07C0D807FFC8FCEA01F823317EA026>I
E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fx cmr9 9 84
/Fx 84 128 df<91393FE00FE0903A01FFF83FF8903A07E01EF83C903A1F800FF07E903A
3F001FE0FE017E133F4914C0485A1738484890381F8000ACB812C0A33B03F0001F8000B3
A7486C497EB50083B5FCA32F357FB42D>11 D<EC1FE0ECFFFC903803F01E90390FC00780
EB1F8090393F000FC0017E131F5BA2485AED0F8092C7FCA9ED0FC0B7FCA33901F8001F15
0FB3A6486CEB1FE0267FFFC1B5FCA328357FB42B>I<137813FCA212011203EA07F813E0
EA0FC0EA1F801300123C5A5A12400E0E71B326>19 D<EA01F8A313FF38003F80EB0FC014
E01307A2130FEB1FC0EB7F8038FFFE0013E0130E777D22>24 D<EB01FE903807FF809038
1F07E090387E03F09038FC01FCEBF800000180157E4848137FA6157E15FE5D14014A5A4A
5AEC0FC000FF01FFC7FC5CEC0F800003EB07E06E7E6E7E6E7E81157E157F811680A3ED1F
C0A91680EC403FEBF1F002F813005D0007EBF07E00FF495A9038F0E1F8EC7FE0C7001FC7
FC22367FB426>I<003C13F0387E01F838FF03FCA2EB83FEA2EA7F81383D80F600011306
A40003130EEB000CA248131C00061318000E1338000C1330001C13704813E0387001C000
60138017177EB326>34 D<147CEB01FEEB07C790380F8380EB1F0181EB3E00A2137EA213
7C137EA214015D140392C9FC5C140E6D5A1418143802F090380FFFF05C6D5A04011300EE
00FC6D6C1470011F1560013F15E0D977F0495AD9E3F85CD801C31403260381FC91C7FC00
075D48C66C130E486D130C486D131C003E6D6C5A007EECC03091381FE07000FE010F5B6F
5AEC07F96EB45A6C6D90C712306E5A157F6C6C6D6C13604B6C13E03A3FC001EFE03C1FE0
03C7F803C03C0FF01F83FE0F802707FFFE00B51200000101F8EB3FFE26003FC0EB07F034
387DB53C>38 D<123C127EB4FCA21380A2127F123D1201A412031300A25A1206120E120C
121C5A5A126009177AB315>I<14C01301EB0380EB0F00130E5B133C5B5BA2485A485AA2
12075B120F90C7FC5AA2121E123EA3123C127CA55AB0127CA5123C123EA3121E121FA27E
7F12077F1203A26C7E6C7EA213787F131C7F130FEB0380EB01C01300124A79B71E>I<12
C07E1270123C121C7E120F6C7E6C7EA26C7E6C7EA27F1378137C133C133EA2131E131FA3
7F1480A5EB07C0B0EB0F80A514005BA3131E133EA2133C137C137813F85BA2485A485AA2
485A48C7FC120E5A123C12705A5A124A7CB71E>I<123C127EB4FCA21380A2127F123D12
01A412031300A25A1206120E120C121C5A5A126009177A8715>44
D<B512F0A514057F921A>I<123C127E12FFA4127E123C08087A8715>I<1530157815F8A2
15F01401A215E01403A215C01407A21580140FA215005CA2143EA2143C147CA2147814F8
A25C1301A25C1303A25C1307A2495AA291C7FC5BA2131E133EA2133C137CA2137813F8A2
5B1201A25B1203A2485AA25B120FA290C8FC5AA2121E123EA2123C127CA2127812F8A25A
12601D4B7CB726>I<EB0FE0EB7FFCEBF83E3903E00F803907C007C0EB8003000F14E039
1F0001F0A24814F8A2003E1300007E14FCA500FE14FEB2007E14FCA56CEB01F8A36C14F0
A2390F8003E03907C007C0A23903E00F803900F83E00EB7FFCEB0FE01F347DB126>I<13
075B5B137FEA07FFB5FC13BFEAF83F1200B3B3A2497E007FB51280A319327AB126>I<EB
3FC0EBFFF0000313FC380F80FF391E007F80001CEB3FC048EB1FE048130F15F000601307
12FC6C14F87E1403A3007E1307123CC7FC15F0A2140F15E0EC1FC0A2EC3F801500147E5C
495A5C495A495A495A49C7FC133E133C4913185B485A48481330485A48C7FC001C147000
1FB512F05A5AB612E0A31D327CB126>I<EB1FE0EBFFFC4813FF3907E03F80390F001FC0
001EEB0FE0001CEB07F0123F018013F8140313C01380A2381F0007C7FC15F0A2EC0FE015
C0141FEC3F80EC7E00EB01F8EB7FE014FCEB003FEC1FC0EC0FE0EC07F015F8140315FC14
0115FEA3127EB4FCA415FC48130312780070EB07F86C14F0003C130F001FEB1FE0390FE0
3F800003B51200C613FCEB1FE01F347DB126>I<EC01C0A214031407A2140F141FA2143F
147F146F14CF1301EB038F140F1307130E130C131C13381330137013E013C0EA01801203
13001206120E120C5A123812305A12E0B71280A3C7380FC000A94A7E0107B51280A32133
7EB226>I<000C14C0380FC00F90B5128015005C5C14F014C0D80C18C7FC90C8FCA9EB0F
C0EB7FF8EBF07C380FC03F9038001F80EC0FC0120E000CEB07E0A2C713F01403A215F8A4
1218127E12FEA315F0140712F8006014E01270EC0FC06C131F003C14806CEB7F00380F80
FE3807FFF8000113E038003F801D347CB126>I<14FE903807FF80011F13E090383F00F0
017C13703901F801F8EBF003EA03E01207EA0FC0EC01F04848C7FCA248C8FCA35A127EEB
07F0EB1FFC38FE381F9038700F809038E007C039FFC003E0018013F0EC01F8130015FC14
00A24814FEA5127EA4127F6C14FCA26C1301018013F8000F14F0EBC0030007EB07E03903
E00FC03901F81F806CB51200EB3FFCEB0FE01F347DB126>I<1230123C003FB6FCA34814
FEA215FC0070C7123800601430157015E04814C01401EC0380C7EA07001406140E5C1418
14385CA25CA2495A1303A3495AA2130FA3131F91C7FCA25BA55BA9131C20347CB126>I<
EB0FE0EB7FFC90B5FC3903F01F803907C007C0390F0003E0000EEB01F0001E1300001C14
F8003C1478A3123EA2003F14F86D13F0EBC001D81FF013E09038F803C0390FFE07803907
FF0F006C13DE6C13F87EEB3FFE8001F713C0D803E313E0D8078013F0390F007FF8001E13
1F003EEB07FC003C1303481301EC007E12F848143EA2151EA37E153C1278007C14787E6C
14F0390F8003E03907F01FC00001B5120038007FFCEB1FE01F347DB126>I<EB0FE0EB7F
F8EBFFFE3803F83F3907E00F80390FC007C0D81F8013E0EC03F0EA3F0048EB01F8127EA2
00FE14FC1400A415FEA5007E1301A2127F7E1403EA1F80000F13073807C00E3803E01C38
01F03838007FF090381FC0FC90C7FC1401A215F8A215F01403001F14E0383F800715C014
0FEC1F809038003F00001C137E381F01FC380FFFF0000313C0C690C7FC1F347DB126>I<
123C127E12FFA4127E123C1200B0123C127E12FFA4127E123C08207A9F15>I<123C127E
12FFA4127E123C1200B0123C127E12FE12FFA3127F123F1203A412071206A3120E120C12
1C1238123012701260082F7A9F15>I<007FB812C0B912E0A26C17C0CCFCAC007FB812C0
B912E0A26C17C033147C9C3C>61 D<EC07FC91387FFFC0903901F803F090390780003C01
1EC7120F0138EC0380496E7E496E7E4848157048488127070003F87F000ED91FFE7F000C
90397E078006001C9039F801C0073B1801F000E003D8380302701380263007E0EB3F014A
1481D8700F021F13C026601F801480A200E017E0D8C03F166091C7FCA880EAE01F1260A2
26700FC015E0D83007023F13C080263803F0137FD81801ECFF813C1C00F801CFC180000C
90397E0787C3000E903A1FFE03FF006C903903F800FC6C6CCAFC6C7E6C7E0170ED03E06D
150F011EED7F80D90780903803FC00D901F8EB7FE09027007FFFFEC7FC0207138033367C
B43C>64 D<15E0A34A7EA24A7EA34A7EA3EC0DFE140CA2EC187FA34A6C7EA202707FEC60
1FA202E07FECC00FA2D901807F1507A249486C7EA301066D7EA2010E80010FB5FCA24980
0118C77EA24981163FA2496E7EA3496E7EA20001821607487ED81FF04A7ED8FFFE49B512
E0A333367DB53A>I<B7FC16E016F83A03FC0003FE0001EC00FFEE7F80EE3FC0161F17E0
160F17F0A617E0161F17C0EE3F80EE7F0016FEED03FC90B612F05E9039FC0007FCED00FE
EE3F80EE1FC0EE0FE017F0160717F8160317FCA617F81607A2EE0FF0EE1FE0163FEE7FC0
0003913803FF00B75A16F816C02E337DB236>I<DA03FE130C91393FFF801C91B512E090
3A03FE01F83C903A0FF0003C7CD91FC0EB0EFCD97F80130701FEC7120348481401000315
005B4848157C485A173C485A171C123F5B007F160CA390C9FC481600AB7E6D150CA3123F
7F001F161C17186C7E17386C6C15306C6C15706D15E012016C6CEC01C0D97F80EB0380D9
1FC0EB0F00D90FF0131ED903FE13FC0100B512F0023F13C0DA03FEC7FC2E377CB437>I<
B77E16F016FE3A01FE0001FF00009138003FC0EE0FE0707E707E707E707E177E177FEF3F
80A2EF1FC0A3EF0FE0A418F0AA18E0A3171F18C0A21880173F18005F17FE5F4C5AEE07F0
4C5AEE3FC000014AB45AB748C7FC16F8168034337EB23B>I<B812C0A3D803FCC7127F00
01150FEE03E01601A21600A21760A403061330A41700150EA2151E157E90B512FEA39038
FC007E151E150EA21506170CA3171892C7FCA41738A21770A217F0160116031607000315
7FB812E0A32E337DB234>I<B81280A3D803FCC7FC0001151FEE07C01603A21601A21600
A41760150CA31700A2151CA2153C15FC90B5FCA3EBFC00153C151CA2150CA592C8FCAB48
7EB512FEA32B337DB232>I<DA03FE130C91393FFF801C91B512E0903A03FE01F83C903A
0FF0003C7CD91FC0EB0EFCD97F80130701FEC7120348481401000315005B4848157C485A
173C485A171C123F5B007F160CA390C9FC4893C7FCAA0303B512E07E7F92390003FE0070
5A123F7F121FA26C7E7F12076C7E7F6C6C14036C7E6D6C1307D91FC0EB0E7CD90FF0EB1C
3CD903FEEBF81C0100B5EAF00C023F01C0C7FCDA03FEC8FC33377CB43C>I<B5D8FE03B5
12F8A3000190C73807FC006C486E5AB390B7FCA349C71203B3A3486C4A7EB5D8FE03B512
F8A335337EB23A>I<B512FEA3000113006C5AB3B3A7487EB512FEA317337EB21C>I<017F
B5FCA39038003FE0EC1FC0B3B1127EB4FCA4EC3F805A0060140000705B6C13FE6C485A38
0F03F03803FFC0C690C7FC20357DB227>I<B500FE903807FFF8A3000190C7000113006C
48EC00FC17F04C5A4C5A4CC7FC160E5E5E5E5E4B5A4B5A4BC8FC150E5D5D15F84A7E1403
4A7EEC0EFF5C4A6C7E4A6C7EECE01FD9FFC07F4A6C7E4A6C7E5B6F7E6F7EA26F7E707EA2
707E707E160F83707E707EA283486C913807FF80B500FE013F13FCA336337EB23C>I<B5
12FEA3D803FEC9FC6C5AB3A9EE0180A416031700A45EA25E5E5E5E16FE00031407B7FCA3
29337DB230>I<D8FFFC923801FFF86D5DA20003EFFE00D801BFED06FCA3D99F80140CA2
D98FC01418A3D987E01430A2D983F01460A3D981F814C0A3D980FCEB0180A2027EEB0300
A36E1306A26E6C5AA36E6C5AA36E6C5AA26E6C5AA36E6C5AA3913800FD80A2037FC7FCA3
486C133ED80FF04B7EB5011C90387FFFF8A33D337CB246>I<D8FFFE91381FFFF87F80C6
030013006E143CD9DFE01418EBCFF0A2EBC7F8EBC3FCA2EBC1FEEBC0FF6E7EA26E7E6E7E
A26E7E6E7E6E7EA26E7E6E7EA2ED7F80ED3FC0ED1FE0A2ED0FF0ED07F8A2ED03FCED01FE
ED00FFA2EE7F98EE3FD8A2EE1FF8160F1607A216031601A2486C1400D807F81578B500C0
1438A2171835337EB23A>I<EC07FC91387FFFC0903901FC07F0903907E000FCD90F8013
3E013FC76C7E017E6E7E496E7E48486E7E48486E7EA248486E7E000F8249157E001F167F
A24848ED3F80A2007F17C0A290C9121FA24817E0AB6C17C06D153FA3003F17806D157FA2
001F17006D5D000F5E6C6C4A5AA26C6C4A5A00015E6C6C4A5A017E4A5A6D4A5AD91FC001
7FC7FCD907E013FC903901FC07F09039007FFFC0DA07FCC8FC33377CB43C>I<B612FEED
FFC016F03A03FC0007FC0001EC00FE167FEE3F80EE1FC017E0160FA217F0A617E0A2EE1F
C0A2EE3F80EE7F0016FEED07F890B65A168001FCC9FCB3A2487EB512F8A32C337DB234>
I<EC07FC91387FFFC0903901FC07F0903907E000FC4948137E013FC7EA1F80017E6E7E49
6E7E48486E7E00038249140148486E7E000F8249157E001F167FA24848ED3F80A2007F17
C0A390C9121F4817E0AB6C17C0A26D153FA2003F1780A26D157F001F1700A2270FE001F0
13FE0007D907FC5B9039F00E0E013B03F80C0703F8000190391C0383F03B00FC180187E0
017EECCFC0013FECDF8090271F9C00FFC7FCD907EC13FC902701FE07F013609038007FFF
913807FC7091C7007813E0A2EE7C01EE7E0393387F07C0EE3FFFA21880821800705A705A
EE01F033447CB43C>I<B612FCEDFF8016F03A01FE0007FC0000EC01FEED007F707E707E
83160F83A65FA24C5AA24C5A047EC7FC4B5AED0FF090B612C093C8FC9039FE001FC0ED07
F06F7E6F7E150082167E167FA583A5180C17C0A2043F131C486C1618B500FEEB1FE0040F
1338933807F070C93801FFE09338003F8036357EB239>I<90381FE00390387FFC0748B5
FC3907F01FCF390F8003FF48C7FC003E80814880A200788000F880A46C80A27E92C7FC12
7F13C0EA3FF013FF6C13F06C13FF6C14C06C14F0C680013F7F01037F9038003FFF140302
001380157F153FED1FC0150F12C0A21507A37EA26CEC0F80A26C15006C5C6C143E6C147E
01C05B39F1FC03F800E0B512E0011F138026C003FEC7FC22377CB42B>I<007FB712FEA3
90398007F001D87C00EC003E0078161E0070160EA20060160600E01607A3481603A6C715
00B3AB4A7E011FB512FCA330337DB237>I<B500FE90381FFFF8A3000190C813006C4815
3C1718B3AF1738017F1530A217706D6C1460011F15E06E495A010F14036D6C495A6D6C49
C7FCD901FC131E6DB413FC91383FFFF0020F13C0020190C8FC35357EB23A>I<B500F090
3803FFF8A3D807FEC8EA7FC06C48ED1F000001161E6D151C00001618A26D15386D1530A2
6D6C5CA26E14E0011F5DA26D6C495AA28001074AC7FCA26D6C1306A28001015CA26E131C
01001418806E5BA2ED8070023F1360A26E6C5AA215E1020F5BA2DA07F3C8FCA215FBEC03
FEA36E5AA26E5AA31570A235357EB23A>I<B5D8F007B539800FFFF0A3000390C7273FF0
00011300D801FC6E48EB007C1A386D140F00001930836D020715706D1860A26E496C14E0
013F60A26ED919FC1301011F60A26ED930FE1303010F95C7FCA26ED9607F5B01071706A2
6E9039C03F800E0103170CA2913BFC01801FC01C01011718A2913BFE03000FE038010017
30A2DAFF06EB07F0027F5EA2038CEB03F8023F5EA203D8EB01FC021FEDFD80A203F0EB00
FF020F93C8FCA24B800207157EA24B143E0203153CA24B141C020115184C357FB24F>I<
267FFFFC90B512C0A3000101E090381FF80026007F80EB0FC0013F6E5A6E91C7FC6D6C13
0E010F140C6E5B6D6C133801035C6E13606D6C13E06D6C485A5EDA7F83C8FCEC3FC715C6
EC1FECEC0FFC5D14076E7EA26E7E815C6F7E9138063FC0140E4A6C7E9138180FF0EC3807
02707F91386003FCECC0010101804A6C7E49C77E4981010E6E7E010C6E7E131C496E7E01
786E7E13FCD807FEEC1FFEB56C90B512F8A335337EB23A>I<B500F8ECFFFEA300030180
EC3FE06C90C8EA1F806CEE0E006D6C5C6D6C141817386D6C14305F6D6C14E06D6C5C1601
6D6C5C6D6C49C7FC5E6D6C13065E91387F801C91383FC018163891381FE0306E6C5A16E0
6E6C5AEDF980EC03FF6E90C8FC5D1400B14A7E91B512FCA337337FB23A>I<003FB612FC
A39039F80007F813C090C7EA0FF0003EEC1FE0123C0038EC3FC00078EC7F801270EDFF00
4A5AA20060495AA24A5A4A5AC7FC4A5A4A5AA24A5A4AC7FCA2495A495AA2495A495AA249
48130C495AA2495A49C7FCA24848141CA2485A485A1638485A4848147816F84848130148
481307153FB7FCA326337CB22F>I<EAFFF0A4EAF000B3B3B3ADEAFFF0A40C4B79B715>I<
EAFFF0A41200B3B3B3AD12FFA40C4B7FB715>93 D<EB7F803803FFF0380F80FC381C003E
003F133F6D6C7E6E7EA26E7EEA1F00C7FCA4EB01FF131FEBFF873803FC07EA0FF0EA1FC0
EA3F80127F13004815C05AA3140FA26C131F6C133B3A3F8071F180391FC1E1FF2607FFC0
13003900FE003C22237DA126>97 D<EA03F012FFA312071203AEEC3F80ECFFE09038F3C0
F89038F7007E01FE7F49EB1F8049EB0FC05BED07E016F0A2150316F8AA16F0150716E0A2
ED0FC07F6DEB1F8001ECEB3F0001CF137C90388381F8903801FFE0C76CC7FC25357EB32B
>I<EB07F8EB3FFF9038FC07C03901F000E03903E003F03807C007120FEA1F80123F9038
0003E04890C7FCA2127E12FEAA127FA26C14187F001F14386D1330000F14706C6C13E039
03F001C03900FC0F8090383FFE00EB07F01D237EA122>I<153FEC0FFFA3EC007F81AEEB
07F0EB3FFCEBFC0F3901F003BF3907E001FF48487E48487F8148C7FCA25A127E12FEAA12
7E127FA27E6C6C5BA26C6C5B6C6C4813803A03F007BFFC3900F81E3FEB3FFCD90FE01300
26357DB32B>I<EB0FE0EB7FFCEBF83F3903F00F80D807E013C0390FC007E0381F800315
F0EA3F0014014814F8127EA212FEA2B6FCA248C8FCA5127E127FA26C1418A26C6C133800
0F14306D13706C6C13E03901F003C03900FC0F00EB3FFEEB07F01D237EA122>I<EB01FC
EB07FF90381F078090383E0FC0EB7C1F13FCEA01F8A20003EB070049C7FCACB512F0A3D8
03F0C7FCB3A7487E387FFFE0A31A357FB417>I<151F90391FC07F809039FFF8E3C03901
F07FC73907E03F033A0FC01F83809039800F8000001F80EB00074880A66C5CEB800F000F
5CEBC01F6C6C48C7FCEBF07C380EFFF8380C1FC0001CC9FCA3121EA2121F380FFFFEECFF
C06C14F06C14FC4880381F0001003EEB007F4880ED1F8048140FA56C141F007C15006C14
3E6C5C390FC001F83903F007E0C6B51280D91FFCC7FC22337EA126>I<EA03F012FFA312
071203AEEC1FC0EC7FF09038F1E0FC9038F3807C9038F7007E13FE497FA25BA25BB3486C
EB7F80B538C7FFFCA326347EB32B>I<EA0780EA0FC0EA1FE0A4EA0FC0EA0780C7FCAAEA
07E012FFA3120F1207B3A6EA0FF0B5FCA310337EB215>I<EB03C0EB07E0EB0FF0A4EB07
E0EB03C090C7FCAAEB03F013FFA313071303B3B01238127C00FE13E0130714C0130F007C
138038381F00EA1FFCEA07F0144384B217>I<EA03F012FFA312071203AF913803FFE0A3
6E1300EC00F8EC01E05D4A5A020FC7FC141C5C5C14F0EBF3F8EBF7FC13FEEBFC7EEBF87F
496C7E141F6E7E8114076E7E8114016E7E81486CEBFF80B500C313F0A324347EB329>I<
EA07E012FFA3120F1207B3B3A7EA0FF0B5FCA310347EB315>I<2703F01FE013FF00FF90
267FF80313C0903BF1E07C0F03E0903BF3803E1C01F02807F7003F387FD803FE1470496D
486C7EA2495CA2495CB3486C496C487EB53BC7FFFE3FFFF0A33C217EA041>I<3903F01F
C000FFEB7FF09038F1E0FC9038F3807C3907F7007EEA03FE497FA25BA25BB3486CEB7F80
B538C7FFFCA326217EA02B>I<EB07F0EB3FFE9038FC1F803901F007C03903C001E00007
8048486C7E48C7127CA248147E003E143E007E143FA300FE1580A8007E1500A36C147EA2
6C147C6D13FC6C6C485A00075C3903F007E03900FC1F80D93FFEC7FCEB07F021237EA126
>I<3903F03F8000FFEBFFE09038F3C0F89038F7007ED807FE7F6C48EB1F804914C04913
0F16E0ED07F0A3ED03F8A9150716F0A216E0150F16C06D131F6DEB3F80160001FF13FC90
38F381F89038F1FFE0D9F07FC7FC91C8FCAA487EB512C0A325307EA02B>I<903807F003
90383FFC07EBFC0F3901F8038F3807E001000F14DF48486CB4FC497F123F90C77E5AA25A
5AA9127FA36C6C5B121F6D5B000F5B3907E003BF3903F0073F3800F81EEB3FF8EB0FE090
C7FCAAED7F8091380FFFFCA326307DA029>I<3803E07C38FFE1FF9038E38F809038E71F
C0EA07EEEA03ECA29038FC0F8049C7FCA35BB2487EB512E0A31A217FA01E>I<EBFF0600
0713CE381F00FE003C133E48131E140E5A1406A27EA200FE90C7FC6C7EEA7FFC383FFFC0
14F0000F7F6C7FC67FEB0FFF1300EC3F8000C0131F140F6C1307A37E15006C5B6C130E6C
5B38F7807838E1FFE038C07F8019237EA11E>I<1330A51370A313F0A21201A212031207
381FFFFEB5FCA23803F000AF1403A814073801F806A23800FC0EEB7E1CEB1FF8EB07E018
2F7FAD1E>I<D803F0133F00FFEB0FFFA30007EB007F000380B35DA35D12016D48138000
00903803BFFC90387E073FEB1FFED907F8130026227EA02B>I<B5EBFFF0A3D80FF0EB3F
800007EC1F000003140E150C6D131C00011418A26C6C5BA26D1370017E1360137F6D5BA2
90381F8180A214C3010F90C7FCA2EB07E6A214FE6D5AA26D5AA36D5AA2146024217E9F29
>I<B53A1FFF81FFF0A33C07F801FC003F8001F049EB1E0000030100141C816C6C017C13
18A26D017E1338000002FE1330A290267E01FF5B159F168090263F030F5BA216C0903A1F
8607C180A202C613E390260FCC0390C7FCA2D907FC13F6ECF80116FE6D486C5AA36D4813
78A36D48133034217F9F37>I<B53801FFF8A32603FE0013806C48EB7C0000001478017E
1370017F5B90383F81C090381F8380D90FC3C7FCEB07E614FE6D5A6D5A6D7E80805B9038
039F809038071FC09038060FE0EB0C0790381C03F0496C7E01707FEBF000000180000FEC
FF8026FFFC0313FCA326207F9F29>I<3A7FFF807FF8A33A07F8001FC00003EC0F800001
EC070015066C6C5BA26D131C017E1318A26D5BA2EC8070011F1360ECC0E0010F5BA29038
07E180A214F3010390C7FC14FBEB01FEA26D5AA31478A21430A25CA214E05CA2495A1278
D8FC03C8FCA21306130EEA701CEA7838EA1FF0EA0FC025307F9F29>I<003FB512F0A2EB
000F003C14E00038EB1FC00030EB3F800070137F1500006013FE495A13035CC6485A495A
A2495A495A49C7FC153013FE485A12035B48481370485A001F14604913E0485A387F0003
48130F90B5FCA21C207E9F22>I<B712F8A22502809426>I<001C1370387F01FC00FF13FE
A4007F13FC381C0070170879B226>127 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fy cmr6 6 10
/Fy 10 116 df<130C1338137013E0EA01C0EA038013005A120EA25AA25AA312781270A3
12F0AB1270A312781238A37EA27EA27E7E1380EA01C0EA00E013701338130C0E317AA418
>40 D<12C012707E7E7E7E7E1380EA01C0A2EA00E0A21370A313781338A3133CAB1338A3
13781370A313E0A2EA01C0A2EA038013005A120E5A5A5A12C00E317CA418>I<1438B2B7
12FEA3C70038C7FCB227277C9F2F>43 D<13FF000313C0380781E0380F00F0001E137848
133CA248131EA400F8131FAD0078131EA2007C133E003C133CA26C13786C13F0380781E0
3803FFC0C6130018227DA01E>48 D<13E01201120712FF12F91201B3A7487EB512C0A212
217AA01E>I<EA01FC3807FF80381C0FC0383003E0386001F0EB00F812F86C13FCA2147C
1278003013FCC7FC14F8A2EB01F0EB03E014C0EB0780EB0F00131E13385B5B3801C00CEA
0380380600185A5A383FFFF85AB512F0A216217CA01E>I<13FF000313C0380F03E0381C
00F014F8003E13FC147CA2001E13FC120CC712F8A2EB01F0EB03E0EB0FC03801FF00A238
0003E0EB00F01478147C143E143F1230127812FCA2143E48137E0060137C003813F8381E
03F0380FFFC00001130018227DA01E>I<137F3803FFE03807C0F0380F0078001E13F85A
A2007C13700078130012F8A7127C1418123C6C13306C13603807C0E03803FF8038007E00
15187D961B>99 D<137E3803FFC0380781E0380F00F0001E137848133CA248131EA200F8
131FA70078131E007C133E003C133C003E137C6C13F8380F81F03803FFC0C6130018187D
961E>111 D<3807F080EA1FFFEA380FEA700312E01301A212F06CC7FCEA7FC0EA3FF8EA
1FFEEA07FF38001F80EB07C0EAC003130112E0A200F01380130338FC0F00EACFFEEA83F8
12187D9618>115 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fz cmti10 10 16
/Fz 16 121 df<14F8EB07FE90381F871C90383E03FE137CEBF801120148486C5A485A12
0FEBC001001F5CA2EA3F801403007F5C1300A21407485C5AA2140F5D48ECC1C0A2141F15
831680143F1587007C017F1300ECFF076C485B9038038F8E391F0F079E3907FE03FC3901
F000F0222677A42A>97 D<133FEA1FFFA3C67E137EA313FE5BA312015BA312035BA31207
EBE0F8EBE7FE9038EF0F80390FFC07C013F89038F003E013E0D81FC013F0A21380A2123F
1300A214075A127EA2140F12FE4814E0A2141F15C05AEC3F80A215005C147E5C387801F8
007C5B383C03E0383E07C0381E1F80D80FFEC7FCEA01F01C3B77B926>I<147F903803FF
C090380FC1E090381F0070017E13784913383901F801F83803F003120713E0120FD81FC0
13F091C7FC485AA2127F90C8FCA35A5AA45AA3153015381578007C14F0007EEB01E0003E
EB03C0EC0F806CEB3E00380F81F83803FFE0C690C7FC1D2677A426>I<147F903803FFC0
90380FC1E090383F00F0017E13785B485A485A485A120F4913F8001F14F0383F8001EC07
E0EC1F80397F81FF00EBFFF891C7FC90C8FC5A5AA55AA21530007C14381578007E14F000
3EEB01E0EC03C06CEB0F806CEB3E00380781F83803FFE0C690C7FC1D2677A426>101
D<EB01C0EB07E014F0130F14E01307EB038090C7FCAB13F0EA03FCEA071EEA0E1F121CA2
12385B1270A25BEAF07E12E013FEC65AA212015B1203A25B12075BA2000F13E013C013C1
001F13C01381A2EB83801303EB0700A2130E6C5AEA07F8EA01E0143879B619>105
D<EB0FC0EA07FFA3EA001F1480A2133FA21400A25BA2137EA213FEA25BA21201A25BA212
03A25BA21207A25BA2120FA25BA2121FA25BA2123FA290C7FCA25AA2EA7E0EA212FE131E
EAFC1CA2133C133812F81378EA7870EA7CE0121FEA0F80123B79B915>108
D<D801E001FEEB07F03C07F803FF801FFC3C0E3C0F07C0783E3C1E3E3C03E1E01F261C1F
78D9F3C013803C383FF001F7800F02E01400007801C013FE007018C002805B4A4848EB1F
80EAF07FD8E07E5CA200000207143F01FE1700495CA2030F5C0001177E495C18FE031F5C
120349DA8001131C18F8033F153C00070403133849020013F0A24B1570000F17E049017E
15F019E003FEECE1C0001FEE01E34949903800FF000007C70038143C3E2679A444>I<D8
01E013FE3A07F803FF803A0E3C0F07C03A1E3E3C03E0261C1F787F39383FF00114E00078
13C000708114804A485AEAF07FEAE07EA20000140701FE5C5BA2150F00015D5B151F5E12
034990383F8380160316070007027F130049137EA2160E000F147C49141E161C5E001FEC
3C7849EB1FE00007C7EA0780292679A42F>I<147F903803FFC090380FC1F090381F00F8
017E137C5B4848137E4848133E0007143F5B120F485AA2485A157F127F90C7FCA215FF5A
4814FEA2140115FC5AEC03F8A2EC07F015E0140F007C14C0007EEB1F80003EEB3F00147E
6C13F8380F83F03803FFC0C648C7FC202677A42A>I<9039078007C090391FE03FF09039
3CF0787C903938F8E03E9038787FC00170497EECFF00D9F0FE148013E05CEA01E113C15C
A2D80003143FA25CA20107147FA24A1400A2010F5C5E5C4B5A131F5EEC80035E013F495A
6E485A5E6E48C7FC017F133EEC70FC90387E3FF0EC0F8001FEC9FCA25BA21201A25BA212
03A25B1207B512C0A3293580A42A>I<3903C003F0390FF01FFC391E783C0F381C7C703A
3C3EE03F8038383FC0EB7F800078150000701300151CD8F07E90C7FCEAE0FE5BA2120012
015BA312035BA312075BA3120F5BA3121F5BA3123F90C9FC120E212679A423>114
D<14FE903807FF8090380F83C090383E00E04913F00178137001F813F00001130313F0A2
15E00003EB01C06DC7FC7FEBFFC06C13F814FE6C7F6D13807F010F13C01300143F141F14
0F123E127E00FE1480A348EB1F0012E06C133E00705B6C5B381E03E06CB45AD801FEC7FC
1C267AA422>I<EB0380EB07C0130FA4131F1480A3133F1400A35B137E007FB5FCA2B6FC
3800FC00A312015BA312035BA312075BA3120F5BA3121FEB801CA2143C003F1338EB0078
147014F014E0EB01C0EA3E03381F0780380F0F00EA07FCEA01F0183579B31C>I<13F8D8
03FEEB01C0D8078FEB03E0390E0F8007121E121C0038140F131F007815C01270013F131F
00F0130000E015805BD8007E133FA201FE14005B5D120149137EA215FE120349EBFC0EA2
0201131E161C15F813E0163CD9F003133814070001ECF07091381EF8F03A00F83C78E090
393FF03FC090390FC00F00272679A42D>I<01F0130ED803FC133FD8071EEB7F80EA0E1F
121C123C0038143F49131F0070140FA25BD8F07E140000E08013FEC6485B150E12015B15
1E0003141C5BA2153C000714385B5DA35DA24A5A140300035C6D48C7FC0001130E3800F8
3CEB7FF8EB0FC0212679A426>I<903907E007C090391FF81FF89039787C383C9038F03E
703A01E01EE0FE3803C01F018013C0D8070014FC481480000E1570023F1300001E91C7FC
121CA2C75AA2147EA214FEA25CA21301A24A1370A2010314F016E0001C5B007E14010107
14C000FEEC0380010F1307010EEB0F0039781CF81E9038387C3C393FF03FF03907C00FC0
27267CA427>120 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FA cmsy10 10 6
/FA 6 107 df<173CA2173E171E171F8384717E170384717E717E187C007FB812FEBAFC
856C84CBEA03F0727EF000FEF13F80F11FE0F107F8F101FFA2F107F8F11FE0F13F80F1FE
00F001F84E5A007FB912C0BA5A96C7FC6C5FCB127C604D5A4D5A6017074D5A95C8FC5F17
1E173E173CA248307BAC53>41 D<EC01F8140FEC3F80ECFC00495A495A495AA2130F5CB3
A7131F5C133F49C7FC13FEEA03F8EA7FE048C8FCEA7FE0EA03F8EA00FE137F6D7E131F80
130FB3A7801307A26D7E6D7E6D7EEC3F80EC0FF814011D537ABD2A>102
D<12FCEAFFC0EA07F0EA01FCEA007E7F80131F80130FB3A7801307806D7E6D7EEB007EEC
1FF0EC07F8EC1FF0EC7E00495A495A495A5C130F5CB3A7131F5C133F91C7FC137E485AEA
07F0EAFFC000FCC8FC1D537ABD2A>I<14C0EB01E01303A214C01307A21480130FA2EB1F
00A2131E133EA25BA2137813F8A2485AA25B1203A25B1207A2485AA290C7FC5AA2123EA2
123C127CA2127812F8A41278127CA2123C123EA27EA27E7FA26C7EA212037FA212017FA2
6C7EA21378137CA27FA2131E131FA2EB0F80A2130714C0A2130314E0A21301EB00C01352
78BD20>I<126012F07EA21278127CA2123C123EA27EA27E7FA26C7EA212037FA26C7EA2
12007FA21378137CA27FA2131E131FA2EB0F80A2130714C0A2130314E0A414C01307A214
80130FA2EB1F00A2131E133EA25BA2137813F8A25B1201A2485AA25B1207A2485AA290C7
FC5AA2123EA2123C127CA2127812F8A25A126013527CBD20>I<126012F0B3B3B3B3A912
60045377BD17>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FB cmex10 10 41
/FB 41 114 df<1430147014E0EB01C01303EB0780EB0F00A2131E5BA25B13F85B12015B
1203A2485AA3485AA3121F90C7FCA25AA3123EA2127EA6127C12FCB3A2127C127EA6123E
A2123FA37EA27F120FA36C7EA36C7EA212017F12007F13787FA27F7FA2EB0780EB03C013
01EB00E0147014301462738226>0 D<12C07E12707E123C7E7EA26C7E6C7EA26C7E7F12
007F1378137CA27FA37FA31480130FA214C0A31307A214E0A6130314F0B3A214E01307A6
14C0A2130FA31480A2131F1400A3133EA35BA2137813F85B12015B485AA2485A48C7FCA2
121E5A12385A5A5A14627C8226>I<12F0B3B3B2043674811C>12
D<151E153E157C15F8EC01F0EC03E01407EC0FC0EC1F8015005C147E5CA2495A495AA249
5AA2495AA2495AA249C7FCA2137EA213FE5B12015BA212035BA21207A25B120FA35B121F
A45B123FA548C8FCA912FEB3A8127FA96C7EA5121F7FA4120F7FA312077FA21203A27F12
01A27F12007F137EA27FA26D7EA26D7EA26D7EA26D7EA26D7E6D7EA2147E80801580EC0F
C0EC07E01403EC01F0EC00F8157C153E151E1F94718232>16 D<12F07E127C7E7E6C7E7F
6C7E6C7E12017F6C7E137EA27F6D7EA26D7EA26D7EA26D7EA26D7EA26D7EA280147E147F
80A21580141FA215C0A2140F15E0A3140715F0A4140315F8A5EC01FCA9EC00FEB3A8EC01
FCA9EC03F8A515F01407A415E0140FA315C0141FA21580A2143F1500A25C147E14FE5CA2
495AA2495AA2495AA2495AA2495AA249C7FC137EA25B485A5B1203485A485A5B48C8FC12
3E5A5A5A1F947D8232>I<160F161F163E167C16F8ED01F0ED03E0ED07C0150FED1F8016
00153E157E5D4A5A5D14034A5A5D140F4A5AA24AC7FC143E147E5CA2495AA2495AA2495A
A2130F5CA2495AA2133F91C8FCA25B137E13FEA25B1201A25B1203A35B1207A35B120FA3
5BA2121FA45B123FA690C9FC5AAA12FEB3AC127FAA7E7FA6121F7FA4120FA27FA312077F
A312037FA312017FA212007FA2137E137F7FA280131FA26D7EA2801307A26D7EA26D7EA2
6D7EA2147E143E143F6E7EA26E7E1407816E7E1401816E7E157E153E811680ED0FC01507
ED03E0ED01F0ED00F8167C163E161F160F28C66E823D>I<12F07E127C7E7E6C7E6C7E6C
7E7F6C7E1200137C137E7F6D7E130F806D7E1303806D7EA26D7E147C147E80A26E7EA26E
7EA26E7EA2811403A26E7EA2811400A281157E157FA2811680A2151F16C0A3150F16E0A3
150716F0A31503A216F8A4150116FCA6150016FEAA167FB3AC16FEAA16FC1501A616F815
03A416F0A21507A316E0150FA316C0151FA31680153FA216005DA2157E15FE5DA214015D
A24A5AA214075DA24A5AA24A5AA24AC7FCA2147E147C14FC495AA2495A5C1307495A5C13
1F49C8FC137E137C5B1201485A5B485A485A48C9FC123E5A5A5A28C67E823D>I<161E16
7EED01FE1507ED0FF8ED3FE0ED7FC0EDFF80913801FE004A5A4A5A5D140F4A5A5D143F5D
147F92C7FCA25C5CB3B3B3A313015CA3495AA213075C495AA2495A495A137F49C8FC485A
485AEA07F0EA1FE0485AB4C9FC12FCA2B4FCEA3FC06C7EEA07F0EA03FC6C7E6C7E6D7E13
3F6D7E6D7EA26D7E801303A26D7EA3801300B3B3B3A38080A281143F81141F816E7E1407
816E7E6E7E913800FF80ED7FC0ED3FE0ED0FF8ED07FE1501ED007E161E27C675823E>26
D<12F012FCB4FC13C0EA3FE0EA0FF86C7E6C7EC67E6D7E6D7E131F806D7E130780130380
1301A2801300B3B3B3A38080A36E7EA281141F6E7EA26E7E6E7E816E7E6E7EED7F80ED1F
C0ED0FF0ED07F8ED01FEED007EA2ED01FEED07F8ED0FF0ED1FC0ED7F80EDFF004A5A4A5A
5D4A5A4A5AA24A5A143F5DA24AC7FCA35C5CB3B3B3A313015CA213035C13075C130F495A
5C133F495A49C8FCEA03FE485A485AEA3FE0B45A90C9FC12FC12F027C675823E>I<EE01
E01603EE07C0EE0F80161F1700163E5E5E15015E4B5A15074B5A5E151F4BC7FC153E157E
5DA24A5A14035D14075D140F5D141F5D143F92C8FC5C147E14FE5C1301A25C13035C1307
A25C130FA2495AA3495AA3137F91C9FCA25B5BA312015BA31203A25BA21207A35BA2120F
A35BA3121FA45BA2123FA75B127FAC90CAFC5AB3B3A27E7FAC123F7FA7121FA27FA4120F
A37FA31207A27FA31203A27FA21201A37F1200A37F7FA280133FA36D7EA36D7EA2130780
A2130380130180A2130080147E147F8081141F81140F8114078114038114016E7EA2157E
153E153F6F7E150F826F7E15036F7E821500167C82821780160FEE07C0EE03E016012BF8
6C8242>32 D<12F07E127C7E123F7E6C7E6C7E6C7E7F12016C7E7F137E133E133F6D7E13
0F806D7EA26D7E80130180130080147E147F8081141F81140F81140781A2140381140181
A2140081A2157FA36F7EA382151FA282150FA3821507A382A21503A282A31501A282A315
00A382A482A21780A7163F17C0AC161F17E0B3B3A217C0163FAC1780167FA71700A25EA4
5EA31501A35EA21503A35EA21507A25EA3150F5EA3151F5EA2153F5EA34BC7FCA315FEA2
5D1401A25D14035D1407A25D140F5D141F5D143F92C8FC5C147E14FE5C13015C13035C49
5AA2495A5C131F49C9FC133E137E5B5B485A12035B485A485A48CAFC5A123E5A5A5A2BF8
7E8242>I<B61280A600FCC8FCB3B3B3B3B3B3B3B3B3B3B3B3B3A2B61280A619F86A8230>
I<B61280A6C7121FB3B3B3B3B3B3B3B3B3B3B3B3B3A2B6FCA619F8808230>I<EE03C016
0F163F167F923801FF004B5A4B5AED0FF04B5A4B5A4B5A4BC7FC5C5D4A5A14075D4A5AA2
141F5DA24A5AA44A5AB3B3B3B214FF92C8FCA35B5CA2495AA25C13075C130F495A5C133F
495A49C9FC485A485A485A485AEA1FC0485AB4CAFC12FCA2B4FCEA3F806C7EEA0FF06C7E
6C7E6C7E6C7E6D7E6D7E131F806D7E130780130380A26D7EA2807FA381147FB3B3B3B26E
7EA46E7EA281140FA26E7E8114036E7E81806F7E6F7E6F7E6F7EED07FC6F7E6F7E923800
7FC0163F160F16032AF8748243>40 D<12F012FCB4FC7FEA3FE06C7E6C7EEA03FC6C7E6C
7E6D7E6D7E80131F6D7E8013076D7EA2801301A26D7EA46E7EB3B3B3B281143FA381141F
A26E7EA21407811403816E7E1400816F7E6F7E6F7E6F7E6F7E6F7EED00FE167FEE3FC016
0FA2163FEE7F0016FEED03FC4B5A4B5A4B5A4B5A4B5A4BC7FC5D14014A5A5D14075D140F
A24A5AA2143F5DA3147F5DB3B3B3B24AC8FCA4495AA213035CA2495A130F5C495A133F5C
495A49C9FC485A485AEA0FF8485A485AEAFF8090CAFC12FC12F02AF8748243>I<177C17
FCEE01F8A2EE03F0EE07E0EE0FC0A2EE1F80EE3F005E167E5E15015E15034B5A5E150F5E
151F4B5AA24BC7FCA215FEA24A5AA24A5AA24A5AA2140F5D141F5D143F5DA2147F92C8FC
5CA25C13015C1303A25C1307A3495AA3495AA3133F5CA3137F5CA313FF91C9FCA35A5BA3
1203A25BA31207A35BA3120FA45BA2121FA65BA2123FA85BA2127FAE5B12FFB3A62E9568
8149>48 D<12F87E127EA27E6C7E6C7EA26C7E6C7E7F12016C7E7F137E137F6D7E131F80
130F806D7EA26D7EA26D7EA26D7EA2147FA26E7EA281141F81140F811407A281140381A2
140181140081A28182A36F7EA36F7EA382150FA3821507A3821503A3821501A382A281A3
1780A3167FA317C0A4163FA217E0A6161FA217F0A8160FA217F8AE160717FCB3A62E957E
8149>I<EC01F01407140F143F147F903801FFC0491380491300495A495A495A495A5C49
5A485B5A91C7FC485AA2485AA2485AA2123F5BA2127F5BA412FF5BB3B3A71C4B607E4A>
56 D<12F812FE6C7E7F13F0EA3FF86C7E6C7EEA03FF6C7F6C7F6D7E6D7E806D7E130F6D
7E807F15807F15C07FA2EC7FE0A3EC3FF0A415F8141FB3B3A71D4B737E4A>I<EAFFC0B3
B3A77F127FA47F123FA27F121FA26C7EA26C7EA26C7E807E6C7F6D7E806D7E6D7E6D7E6D
7E6D13806D13C09038007FF0143F140F140714011C4B60804A>I<EC1FF8B3B3A7143F15
F0A4EC7FE0A3ECFFC0A25B15805B15005B5C495A131F495A5C495A495A485B4890C7FCEA
0FFE485A485AB45A13C05B48C8FC12F81D4B73804A>I<EC1FF8B3B3A7143F15F0A4EC7F
E0A315C014FFA2491380A215005B5C1307495A5C131F495A5C495A495A4890C7FC485A48
5A485A485AEA7FE0EAFF8090C8FC12FCB4FC7FEA7FE0EA1FF06C7E6C7E6C7E6C7E6C7F6D
7E6D7E806D7E130F806D7E1303807F1580A26D13C0A2147F15E0A3EC3FF0A415F8141FB3
B3A71D9773804A>I<EAFFC0B3B3A86C7EA56C7EA36C7EA2120F7FA26C7E12037F7E807E
6D7E6D7E80131F6D7E6D7E6D7E6D7E6D1380EC3FE0EC1FF0140714031407141FEC3FE0EC
FF80491300495A495A495A495A133F5C495A495A5A91C7FC5A5B1207485AA25B121FA248
5AA3485AA5485AB3B3A81C9760804A>I<EAFFC0B3A90A1B60804A>I<B47EB3A6127F7FAE
123FA27FA8121FA27FA6120FA27FA41207A37FA31203A37FA21201A37F7EA380137FA380
133FA380131FA36D7EA36D7EA3130380A2130180130080A28081143FA281141F81140F81
1407A26E7EA26E7EA26E7EA2157FA26F7EA26F7E150F821507826F7E1501821500167E16
7F82EE1F80EE0FC0A2EE07E0EE03F0EE01F8A2EE00FC177C2E95688349>64
D<EE07FCB3A617F8160FAE17F0A2161FA817E0A2163FA617C0A2167FA41780A316FFA317
00A35DA25EA315035EA315075EA3150F5EA3151F5EA34B5AA34B5AA393C7FC5DA25D1401
5D1403A25D14075DA2140F5D141F5D143F5DA24AC8FCA214FEA2495AA2495AA2495AA249
5A5C131F5C133F49C9FC137E13FE5B485A12035B485A485AA2485A48CAFC127EA25A5A2E
957E8349>I<EAFF80B3B3B00934688049>I<EAFF80B3B3B00934598049>I<F107C0F11F
F0F17C3CF1F80E0601133EF1F07F953803E0FF1807A24E5A1A7E95381F803C1A00A24EC7
FCA260A2187E18FEA3601701A34D5AA4170760A3170FA260A2171FA260A3173FA360177F
A44DC8FCA55E5FA31603A35FA21607A35F16FF1507031F7F037F13FFDBFF8F7F912603FC
1F13E0DA07F0EBF7F0DA0FC0EBF1F8DA1F80EBF0FCDA3F00147E023E013F133E4A4A7E02
FC824A150F49486F7E167F4AECC003010383A24A150116FF1780A45D02E0EC0003A20101
5F02F015075DD900F849495A02FC151F027C93C7FC023E153E023F157E91261F87FC5BDA
0FC7495ADA07F7EB07F0DA03FFEB1FE00200ECFF806FB5C8FC031F13FC6F13F0178004F0
C9FCA2151FA35EA2153FA35EA3157F5EA54BCAFCA45D1401A35DA31403A25DA21407A25D
A3140F5DA44A5AA35D143FA392CBFC5CA2147E14FE5CA2383C01F8127E12FF495A5C1307
00FE5B387C0F80D8701FCCFCEA3C3EEA0FFCEA03F048B87B7F2E>73
D<BB12FC86A3D87FC0C9001F7FF0007F6C6C17076C6C050113806C6CEF007F1A1F6C6CF0
0FC06C6C18076C6C1803F201E06C6D17006D6C1860013F19706E18306D7E6D6C18181B00
6D7E6D7E6D7EA26D7F6E7E6E7EA26E7E6E7E6E7EA26E7E6E7E80826F7E6F7EA26F7E6F7E
6F5A5EA24B5A5E4BCBFC153E157E5D5D4A5A4A5A14075D4A5A4ACCFC143E147E147C5C49
48181801031930495A4A18704948186049CC12E0491801017EF003C0017C180749180F48
48F01F800003197F49EF01FF4848050713004848173F48CA000FB5FC48BA5AA25ABB5AA2
4D537B7F58>80 D<BB12E0A4000F90C9381FFE00000318F86C606C60B3B3B3AF486D4B7E
486D4B7E000F01F0913801FFFEB6021FEBFFE0A443537B7F4E>I<167F923801FFC09238
03C0F0923807803892380F007892381F01FC151E153EA2157E92387C0070170015FCA44A
5AA81403A45DA41407A94A5AAA4A5AA95DA4143FA492C8FCA7143E147EA4147C123800FE
13FC5CA2495A5CEA7803387007C0383C0F80D80FFEC9FCEA03F82E5C7C7F27>I<BF12E0
8AA38A6C90CCFC0900806C6D19076C6D07007F6C6D1A1F1D076C6DF201FF6C6D747E6C6D
F33F801E0F6C6D1B076D6CF303C06D6D1A01F600E06D7F6D6D1B706D1D30816D6D1B186D
6D1B007F816E7E6E7FA26E7F6E7F6E7FA26E7F6E7F6E7FA26F7E6F7F6F7FA26F7F6F7F81
836F7F6F7F167F83707F707F8284707F707FA2707F82715A60173F715A604D5A4DCDFC17
FEA24C5A4C5A4C5A4C5A4C5A5F163F4CCEFC16FE4B5A4B5A4B5AA24B5A4B5A4B5A4BCFFC
15FEA24A5A4A5A4A481B184A481B304A5A4B1B70023F1C604ACF12E002FE1B014948F303
C049481B074948F30F801E1F49481B7F4948F3FF0049481A0349CE120F01FEF37FFEF403
FF48481A7F4848077FB55A48BEFC48655AA248655ABFFC666D747B7F78>88
D<BE12FEA5000302E0C9000F1480C66CF2FC00011F1AF06D626D62A26D62B3B3B3B3B3A4
496D4C7FA2496D4C7F496D4C7F017F01FF4BB512FC0003B600E0020FECFF80B8D88003B7
12FEA55F747B7F6A>I<F107C0F11FF0F17C3CF1F80E0601133EF1F07F953803E0FF1807
A24E5A1A7E95381F803C1A00A24EC7FCA260A2187E18FEA3601701A34D5AA4170760A317
0FA260A2171FA260A3173FA360177FA44DC8FCA55E5FA31603A35FA21607A35FA2160FA4
4C5AA5163F5FA4167F5FA416FF5FA45D94C9FCA45D5EA54B5AA54B5AA45EA2151FA35EA2
153FA35EA3157F5EA54BCAFCA45D1401A35DA31403A25DA21407A25DA3140F5DA44A5AA3
5D143FA392CBFC5CA2147E14FE5CA2383C01F8127E12FF495A5C130700FE5B387C0F80D8
701FCCFCEA3C3EEA0FFCEA03F048B87B7F2E>I<B512E0A500F8C7FCB3B3B3B3B3B3B3AC
B512E0A513946E8227>104 D<B512E0A5EA0003B3B3B3B3B3B3B3ACB5FCA513947F8227>
I<ED03C0150F153F15FF02031300EC07FC4A5AEC1FE04A5A4A5A4AC7FCA2495A5CA21303
5CB3B3A613075CA2130F5C131F5C495A137F49C8FCEA01FCEA07F8485AEA3FC0B45A48C9
FCA26C7EEA3FC0EA0FF06C7EEA01FC6CB4FC6D7E133F6D7E80130F801307A2801303B3B3
A6801301A2806D7EA26E7E6E7E6E7EEC0FF86E7E6EB4FC020013C0153F150F1503229476
8237>110 D<12F012FE6C7E13E0EA3FF0EA0FFCEA03FE6C7E6C6C7E6D7E6D7EA26D7E13
07A2801303B3B3A76D7EA28013008080816E7E6E7E6E7E6E7EEC01FC6EB4FCED3FC0150F
A2153FEDFF00EC01FCEC07F84A5A4A5A4A5A4A5A92C7FC5C5C13015CA2495AB3B3A71307
5CA2130F495AA2495A495A4848C8FC485AEA0FFCEA3FF0B45A138048C9FC12F022947682
37>I<1B301B781BF8A2F201F0A2F203E0A2F207C0A2F20F80A2F21F00A21A3EA262A262
A24F5AA24F5AA24F5AA262190FA24FC7FCA2193EA261A261A24E5AA24E5AA24E5AA24E5A
A24EC8FCA2183EA260131001305E13F800014C5A1203D80FFC4B5A121DD838FE4B5A12F0
D8407F4B5A12004DC9FC6D7E173E6D7E5F6D7E5FA26D6C495AA26D6C495AA26D6C5C1607
A26D6C495AA2027F49CAFCA291383F803EA25EEC1FC05EEC0FE0EDE1F0EC07F1EDF3E0A2
6EB45AA26E5BA26E90CBFCA25D157E157C15384D64788353>I<1B301B78A21BF8A21BF0
1A01A21BE01A03A21BC01A07A21B801A0FA21B0062A21A1E1A3EA21A3C1A7CA21A781AF8
A262A21901A2621903A2621907A262190FA297C7FC61A2191E193EA2193C197CA2197819
F8A2611801A2611803A261A21807A261180FA296C8FC60A2181E183EA2183C187C131001
301678017016F813F860000116011203486C5E000F1603121DD838FE5E00701607126000
C05FEA407F0000160FA26D6C92C9FC5FA2171E6D6C143EA2173C6D6C147CA2177817F86D
7E5F16016D7E5F1603A26D6C5C1607A26D6C5C160FA294CAFC027F5BA2161EEC3F80163E
A2163C91381FC07CA2167891380FE0F8A25E15E1EC07F15E15F3EC03FB5E15FFA26E5BA3
6E90CBFCA35D157EA2157C153C15384D96788353>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FC cmmi12 12 1
/FC 1 59 df<121EEA7F80A2EAFFC0A4EA7F80A2EA1E000A0A78891B>58
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FD cmti10 10.95 73
/FD 73 128 df<DC0FF0EB0F80DC7FFEEB3FE0922601FC0FEBF878923B03F00381F03C92
3B07C007C3E07C923B0F801FC7E1FC031F013F13C318CFED3F001983069F13F8037E9039
0E1F80E005001400183F03FE92C7FC5DA3600201157E5DA318FE02035D0103B9FCA26190
290003F00001FCC7FC14074B5CA41703020F5D5DA31707021F5D5DA3170F023F5D92C7FC
A3171F4A5D147EA3173F02FE92C8FC5CA35F0101157E5CA35F495AA34C5A495AA2001E02
F05B007F9038C3F803010F5D00FF018713075F0207495AD8FE1F4948C9FCD8F81EEBC01E
3A703C03803C3A787801E0F83A1FF000FFE0D807C0EB3F80465383BF38>11
D<933807FF80043F13E09338FE00F8DB01F0133EDB07E0130E4B48131F4C137F031F14FF
4BC7FCA218FE157E1878180015FE5DA31401A25DA414030103B712F0A218E0903A0003F0
00070207140F4B14C0A3171F020F15805DA2173F1800141F5D5F177EA2143F92C712FE5F
A34A1301027EECF81CA3160302FEECF03C4A1538A21878187013014A010113F018E09338
00F1C0EF7F804948EC1F0094C7FCA35C1307A2001E5B127F130F00FF5BA249CAFC12FEEA
F81EEA703CEA7878EA1FF0EA07C0385383BF33>I<EE07FC93393FFF87F09338FC07C792
3A03F001E7E0DB07C013F792390F8007FF031F4913C016005DA2037E1580EF039FEF001F
183F4B1500A3600201157E5DA218FE6014035D0103B7FC60A2903A0007F000014B130360
A31707020F5D5DA2170F60141F5D171F60A2143F92C7123F95C7FCA34A5C027EEC7E07A3
17FE02FE4A5A4A150EA2181E181C13014AEC7C3C1838EF3C70EF1FE04948EC07C094C8FC
A3495AA3001E5BEA7F0FA200FF5BA249CBFC12FEEAF83EEA703CEA7878EA1FF0EA07C03C
5383BF35>I<EB0380EB07C0130F131F133FEB7F0013FE485A485AEA07E0485A485A48C7
FC127C5A5A5A121162BE2E>19 D<EA01E0EA07F8120F13FC121FA4120FEA03D8EA0018A2
133813301370136013E013C01201EA038013005A120E5A5A5A5A5A0E1C6DBE1C>39
D<ED01801507ED0F00151C5D5D5D14014A5A4A5A4AC7FC141E143E5C14785C1301495AA2
495A5C130F49C8FCA2133EA25BA213FC5B12015BA212035B1207A25B120FA25BA2121FA2
90C9FCA25AA2123EA2127EA2127CA65AAB1278A67EA47EA2120E120F7EA26C7EA26C7E6C
7E1360215A73C325>I<14031580A2EC01C0EC00E0A21570A215781538153CA3151EA415
1FA2150FA7151FA9153FA2153EA3157EA2157CA215FCA215F8A21401A215F0A2140315E0
A2140715C0A2EC0F80A2141F15005C143EA25CA25CA2495A5C1303495A5C130F49C7FC13
1E5B137C5B5B485A485A485A48C8FC121E5A12705A5A205A7FC325>I<140E141FA3141E
143EA2143CA2D80780EB03C09038C03807390FE0781F9039F0703F80D807F8EBFF003901
FC71FC39007E67F090383F6FC0D90FFEC7FCEB07F8EB01E0EB07F8EB1FFCEB7DFF3901F9
9FC0390FE38FE0393FC387F8397F8383FC38FE078100FC138000F01478C648C8FCA35BA3
133EA2131C22276FC32E>I<EA01E0EA07F8120FA2EA1FFCA4EA0FF8EA0798EA00181338
1330A21370136013E013C01201EA0380EA07001206120E5A5A5A5A5A0E1C7A891C>44
D<387FFFFEA3B5FCA21705799521>I<120FEA3FC0127FA212FFA31380EA7F00123C0A0A
77891C>I<1838187CA218F8170118F0EF03E0A2EF07C0A2EF0F80171F1800173EA25FA2
5F16015F4C5AA24C5AA24C5A161F94C7FC163EA25EA25E15015E4B5AA24B5AA24B5A151F
93C8FC153EA25DA25D14015D4A5AA24A5AA24A5A141F92C9FC143EA25CA25C13015C495A
A2495AA2495A131F91CAFC133EA25BA25B12015B485AA2485AA2485A121F90CBFC123EA2
5AA25AA25A5A365B7FC32E>I<15FE913807FF8091381F07C091387C01F0ECF000494813
F8494813780107147C495A49C7FC167E133E137EA25BA2485AA2000315FEA25B000715FC
A2491301120FA34848EB03F8A44848EB07F0A448C7EA0FE0A316C0007E141F12FE168015
3FA2481500A2157EA25DA25D4813015D6C495A127C4A5A4A5A6C49C7FC143E6C5B380FC1
F03803FFC0C648C8FC273F76BC2E>I<15031507150F151F151E153E157EEC01FEEC03FC
1407141FEB01FF90380FFBF8EB1FC3EB0E07130015F0A2140FA215E0A2141FA215C0A214
3FA21580A2147FA21500A25CA25CA21301A25CA21303A25CA21307A25CA2130FA25CA213
1FA25CEB7FE0B612F0A215E0203D77BC2E>I<15FE913803FFC091380F01F091383C00F8
4A137C4A7F4948133F49487F4A148049C7FC5BEB0E0C011E15C0EB1C0EEB3C0613381378
1370020E133FD9F00C148013E0141C0218137F00011600EBC0384A13FEEC600102E05B3A
00E3C003F89039FF0007F0013C495A90C7485A5E037FC7FC15FC4A5A4A5AEC0FC04AC8FC
147E14F8EB03E0495A011FC9FC133E49141801F0143C48481438485A1678485A48C85A12
0E001E4A5AD83FE0130301FF495A397C3FF01FD8780FB55AD8700391C7FCD8F0015B486C
6C5A6E5AEC07C02A3F79BC2E>I<ED7F80913803FFE091380F80F891383C007C02F87FD9
01E07F494814804948130F49C7FC010E15C0131EEB1C18EB3C1CEB380C0178141F178013
70A2021C133F6D4814004A5BD91FE0137ED90F805B90C8FC4B5A4B5A4B5AED1F8003FFC7
FCECFFFC15F0A2EC00FC153E153F8182150F82A4151FA2121E127F153F485DA3484AC7FC
12F800E014FE5D14016C495A0070495A0078EB0FC00038495A6C017EC8FC380F01F83803
FFE0C690C9FC2A3F78BC2E>I<02C0EB018002F0130FD901FEEB7F0091B512FE5E5E4914
E016804BC7FCECBFF8D90780C8FC91C9FCA35B130EA3131E131CA3133C9038381FC0ECFF
F090383BE07C90387F003E017E133F017C7F0178805B498090C7FCA6153FA4001F147F48
6C5C487EA24913FF00FF92C7FC90C7FC48495A12E04A5A5D6C495A140F00705C0078495A
6C495A003E01FEC8FC381F03FC380FFFF0000313C0C648C9FC293F77BC2E>53
D<ED0FE0ED7FF8913801F01C913807C00E91381F800F91383E00074A131F4A137F494813
FF1303495A494813FE131F4948137891C8FC5B13FEA2485AA212035B0007EB1FC0EC7FF0
390FF1E07C9038F3803EEBF700D81FFE7F4914805B49EB0FC0123F5B151F4914E0127FA2
5BED3FC0A248C7FCA2157F16805AA215FF1600A24A5AA2485C007C495AA2007E495A4A5A
003E495A003F495A261F807EC7FC380FC1FC6CB45A6C13E0C66CC8FC283F76BC2E>I<15
FF020713C091381F81E091383E00F002FC13F84948137C495A4948137E010F143E495A13
3F4A133F017F147F91C7FC5BA2485AA216FF12035B16FE150112075B1503A216FC491307
A20003140F16F8151F12016D133F0000EC7FF015EF90387C01CF90393E079FE090380FFE
1FD903F813C090C7123FA21680157F160015FEA24A5A001C5C007F1303485C4A5A4A5A4A
5A4849C7FC00F8137E00E05B6C485A387C07E0383FFFC06C90C8FCEA03F8283F77BC2E>
57 D<131EEB3F80137FEBFFC05AA214806C13005B133C90C7FCB3120FEA3FC0127FA212
FFA35B6CC7FC123C122777A61C>I<EB03C0EB07F0130FEB1FF8133FA214F0EB1FE014C0
EB078090C7FCB3EA01E0EA07F0487EA2121FA46C5AEA07B0EA003013701360A213E05B12
015B120348C7FC1206120E5A5A123012705A5A15397AA61C>I<0003B912C04818E0A26C
18C0CDFCAE007FB812FCB97EA26C5F3B1676A146>61 D<4BB4FC031F13E092387E00F8DA
01F0131EDA07801307021FC7EA03C0023CEC01E04A1400D901E015704948157849481538
49C9121C131E49D907E0131E0138D93FFC130E49EBFC1E9039F001F0073C01E007E00380
079038C00FC0000390391F8001C09026803F0013FC2607007EEB00FE484914FC120E381E
01F8D81C0314014A14F8EA3C0700385B0403130FD8780FEDF00E00705BA20407131ED8F0
1FEDE01C00E05BA2040F133CEFC038A3041F1370010F1580043F13F06E017F13E00107EC
FF814B14C0903B03E003DF0380903A01F00F1F073C7000F83E0F8F0091393FF807FC9139
0FC001F06C90CAFCA2123C121C7E000FEE1F806C6C157F6C6C913801FC006C6CEC0FF0D8
0078ECFF80013FD91FFCC7FC010FB512C0010001F0C8FC384172BF46>64
D<171C173C177CA217FCA216011603A21607A24C7EA2161DA216391679167116E1A2ED01
C1A2ED038115071601150EA2031C7FA24B7EA25D15F05D4A5AA24A5AA24AC7FC5C140E5C
021FB6FC4A81A20270C7127FA25C13015C495AA249C8FCA2130E131E131C133C5B01F882
487ED807FEEC01FFB500E0017FEBFF80A25C39417BC044>I<49B712C018F818FE903B00
03FC0001FF9438007F804BEC3FC0A2F01FE014074B15F0180FA2140F5D181FA2021F16E0
5D183F19C0023FED7F804B14FF19004D5A027F4A5A92C7EA07F0EF1FE0EF7F804AD903FE
C7FC92B512F017FE4AC7EA3F800101ED1FE04A6E7E17078401036F7E5CA30107825CA301
0F5E4A1407A260011F150F5C4D5A60013F153F4A4A5A4D5A017F4A90C7FC4C5A91C7EA0F
F849EC3FF0B812C094C8FC16F83C3E7BBD40>I<9339FF8001C0030F13E0033F9038F803
809239FF807E07913A03FC001F0FDA0FF0EB071FDA1FC0ECBF00DA7F806DB4FC4AC77E49
5AD903F86E5A495A130F4948157E4948157C495A13FF91C9FC4848167812035B12074916
70120FA2485A95C7FC485AA3127F5BA312FF5BA490CCFCA2170FA2170EA2171E171C173C
173817786C16706D15F04C5A003F5E6D1403001F4B5A6D4AC8FC000F151E6C6C5C6C6C14
F86C6C495A6C6CEB07C090397FC03F8090261FFFFEC9FC010713F0010013803A4272BF41
>I<49B712C018F818FE903B0003FE0003FF9438007F804BEC1FC0F00FE0F007F014074B
EC03F8F001FCA2140F4BEC00FEA3141F4B15FFA3143F5DA3027F5D5DA219FE14FF92C812
03A34917FC4A1507A219F813034A150F19F0A20107EE1FE05CF03FC0A2010FEE7F804A16
006060011F4B5A4A4A5A4D5AA2013F4B5A4AEC3FC04DC7FC017F15FEEE03FC4AEB0FF001
FFEC7FE0B8128004FCC8FC16E0403E7BBD45>I<49B812F8A390260003FEC7121F18074B
14031801F000F014075DA3140F5D19E0A2141F4B1338A2EF7801023F027013C04B91C7FC
A217F0027F5CED80011603160F91B65AA3ED001F49EC07805CA3010392C8FC5CF003804C
13070107020E14005C93C75A180E010F161E4A151C183CA2011F5E5C60A2013F15014A4A
5A1707017F150F4D5A4A147F01FF913807FF80B9FCA295C7FC3D3E7BBD3E>I<49B812F0
A390260003FEC7123F180F4B1403A2F001E014075DA3140F5D19C0A2141F5D1770EFF003
023F02E013804B91C7FCA21601027F5CED8003A2160702FFEB1F8092B5FCA349D9003FC8
FC4A7F82A20103140E5CA2161E0107141C5CA293C9FC130F5CA3131F5CA3133F5CA2137F
A25C497EB612E0A33C3E7BBD3B>I<DCFF8013E0030713F0033F9038FC01C09239FFC03E
03913A03FC000F07DA0FF0EB078F4A48903803DF80DA7F80EB01FF4AC8FC495A4948ED7F
00495A495A4948814948153E495A13FF91C9FC4848163C12035B1207491638120FA2485A
95C7FC485AA3127F5BA312FF5BA34BB512FE90C7FCA292C71380A295C7FCA25EA25FA216
037E6D5DA2003F15077F001F5E6D140F6C6C141F0007153F6C6CEC7BF0D801FE14F16C6C
EB03E090393FE01F806DB5EA0060010701F890C8FC9038007FC03B4273BF46>I<49B6FC
5BA2D9000313005D5DA314075DA3140F5DA3141F5DA3143F5DA3147F5DA314FF92C7FCA3
5B5CA313035CA313075CA3130F5CA3131F5CA3133F5CA2137FA25C497EB67EA3283E7BBD
23>73 D<4AB61280A2180091C713C0167F5FA216FF94C7FCA35D5EA315035EA315075EA3
150F5EA3151F5EA3153F5EA3157FA25EA215FFA293C8FCA25CA25DA2380F8003EA3FC0D8
7FE05BA21407D8FFC05B140F01805B49485A12FC0070495A4A5A6C01FEC9FC383C01FC38
0F07F03807FFC0C648CAFC314079BD30>I<49B612C0A25FD9000390C8FC5D5DA314075D
A3140F5DA3141F5DA3143F5DA3147F5DA314FF92C9FCA35B5CA313035C18C0EF01E00107
16C05C17031880130F4A140718005F131F4A141EA2173E013F5D4A14FC1601017F4A5A16
074A131F01FFECFFF0B8FCA25F333E7BBD39>76 D<49B5933807FFFC496062D90003F0FC
00505ADBBF805E1A771AEF1407033F923801CFE0A2F1039F020FEE071F020E606F6C140E
1A3F021E161C021C04385BA2F1707F143C023804E090C7FCF001C0629126780FE0495A02
705FF00700F00E0114F002E0031C5BA2F03803010116704A6C6C5D18E019070103ED01C0
0280DA03805BA2943807000F13070200020E5C5FDB03F8141F495D010E4B5CA24D133F13
1E011CDAF9C05CEEFB80197F013C6DB4C7FC013895C8FC5E01784A5C13F8486C4A5CD807
FE4C7EB500F04948B512FE16E01500563E7BBD52>I<902601FFFE020FB5FC496D5CA2D9
00016D010013C04AEE3F00193E70141C193CEC07BFDB3FE01438151F1978020F7FDA0E0F
15708219F0EC1E07021C6D5CA203031401023C7FDA38015DA2701303EC7800027002805B
A2047F130702F014C04A013F91C7FCA2715A0101141F4AECF00EA2040F131E010315F84A
151C1607EFFC3C0107140391C7143817FE040113784915FF010E16708218F0131E011C6F
5AA2173F133C01385E171F137813F8486C6F5AEA07FEB500F01407A295C8FC483E7BBD44
>I<EEFFC0030713F892383F80FE9238FC003FDA03F0EB0F804A486D7EDA1F80804AC76C
7E027E6E7E4A81494814004948811307495A4948157F133F5C49C9FC4917805B1201485A
A212075B000F17FFA25B121F190048485DA448484B5AA34D5AA25B4D5A12FF60171F6000
7F163F604D5AA24DC7FC5F003F15014C5A6D5D001F4B5A4C5A6C6C4A5A4C5A6C6C4AC8FC
000315FC6C6C495A6C6CEB07E0017FEB1F8090261FC07EC9FC903807FFF8010013803942
73BF46>I<49B77E18F018FC903B0003FE0003FEEF00FF4BEC7F80F03FC00207151F19E0
5DA2020F16F0A25DA2141FF03FE05DA2023F16C0187F4B1580A2027FEDFF00604B495A4D
5A02FF4A5A4D5A92C7EA3FC04CB4C7FC4990B512FC17E04ACAFCA21303A25CA21307A25C
A2130FA25CA2131FA25CA2133FA25CA2137FA25C497EB67EA33C3E7BBD3E>I<EEFFC003
0713F892383F80FE9238FC003FDA03F06D7E4A486D7EDA1FC06D7E4AC76C7E027E814A6E
7E495A01036F7E495A495A494881133F4A81137F49C91380A2485A12035B000717FF5B12
0FA25B121F190048485DA448484B5AA36017075B6000FF160F60171F60127F4D5A60177F
4DC7FC5F003F903803E00191390FF003FCDA3C185B3B1FC0700C07F002E0495A000F496C
485A01E04A5AD807F14AC8FC0003018013FCD801F9EB07F8D800FD14E090397FC01F8090
3A1FE07E0003903807FFFE0100018E5BDA000E1306030F130EA24B131E5FEE807CEEC1F8
16FF5FA25F5F8194C8FC6F5AED01F8395273BF46>I<49B612FCEFFF8018F0903B0003FE
000FF8EF03FE4BEB00FF8419800207ED3FC05DA219E0140F5DA3021FED7FC05DA2F0FF80
143F4B15004D5A60027F4A5A4B495A4D5AEF3F8002FF02FEC7FC92380007F892B512E017
80499038000FE04A6D7E707E707E0103814A130083A213075CA25E130F5C5F1603131F5C
A3013F020714404A16E05F017F160119C04A01031303496C1680B6D8800113079438FE0F
009338007E1ECAEA3FFCEF07F03B407BBD42>I<92390FF001C0ED7FFE4AB5EA03809139
07F80FC791390FC003EF91391F8001FF4AC71300027E805C495A4948143EA2495AA2010F
153C5CA3011F1538A38094C7FC80A214FC6DB4FC15F015FE6DEBFFC06D14F06D14FC6D80
143F020F7F020180EC001F150303007F167F163FA2161FA212075A5F120EA2001E153F94
C7FCA2163E003E157E167C003F15FC4B5A486C5C4B5A6D495AD87DE0EB1F80D8F8F849C8
FC017F13FE39F03FFFF8D8E00F13E048C690C9FC32427ABF33>I<48B9FCA25A903AFE00
1FF00101F89138E0007FD807E0163E49013F141E5B48C75BA2001E147FA2001C4B131C12
3C003814FFA2007892C7FC12704A153C00F01738485CC716001403A25DA21407A25DA214
0FA25DA2141FA25DA2143FA25DA2147FA25DA214FFA292C9FCA25BA25CA21303A25CEB0F
FE003FB67E5AA2383D71BC41>I<001FB500F090B512F0485DA226003FF0C7380FFC004A
EC03F04A5D715A017F1503A24A5DA201FF150795C7FC91C8FCA2485E170E5BA20003161E
171C5BA20007163C17385BA2000F167817705BA2001F16F05F5BA2003F1501A2495DA200
7F1503A2495DA2160794C8FC48C8FC5E160E161E6C151C163C5E5E5E6C6C13014B5A001F
4A5A6C6C011FC9FC6D133E6C6C13F83903FC07F0C6B512C0013F90CAFCEB07F83C406FBD
44>I<B500FE91387FFFE094B5FC19C00003018091380FFC0049C8EA07F000015F606095
C7FC170EA25F173C17386D5DA26C5E16015F4C5AA24CC8FC5E160E5E805E137F5E5EA24B
5AA24B5A150793C9FCECC00EA2013F5B153C15385DA25D14C15DECC38014E302E7CAFCEB
1FEF14EE14FCA25CA25CA25C5C130F5CA291CBFC130E3B406DBD44>I<91B690383FFFFC
605E020101E0010F13006E49EB07F84C6D5A19C06F6C495A96C7FC033F140E705B183C03
1F5C705B4D5A030F5C70485A4DC8FC0307130EEEFC1E5F03035BEEFE705F6F6C5A5FA26F
90C9FC83A2707EA216FF4B7F5DED079FEE1FF0150EED1C0F03387F1578EDF007DA01E07F
15C09138038003DA07007F140E021E13014A805C02707F4A81495A4948147F01078249C8
FC013F6F7E496C147F2603FFC049487EB500F8011FEBFFE0A261463E7CBD44>88
D<027FB612FEA3913AFFF80007FC03C014F892C7EA0FF0D901FC141F4AEC3FE04AEC7FC0
4A15800103EDFF004A5B4C5A4948495A5F91C7485A49141F010E4A5A4C5A5F011E4AC7FC
90C75A4B5A4B5A5E4B5A151F4B5A4B5A5E15FF4A90C8FC4A5A4A5A5D140F4A5A4A5A4A48
130E4B131E02FF141C4990C7FC495A4948143C4A1438010F1578495A49481470494814F0
5C01FF4A5A4890C7FC4848140348481407494A5A000F151F4848143F4848ECFF80484813
0F90B7FCB8FC94C7FC373E79BD38>90 D<147E49B47E903907C1C38090391F80EFC09038
3F00FF017E137F4914804848133F485AA248481400120F5B001F5C157E485AA215FE007F
5C90C7FCA21401485C5AA21403EDF0385AA21407EDE078020F1370127C021F13F0007E01
3F13E0003E137FECF3E1261F01E313C03A0F8781E3803A03FF00FF00D800FC133E252977
A72E>97 D<EB1FC0EA0FFF5CA2EA003FA291C7FCA25BA2137EA213FEA25BA21201A25BA2
1203A25B147E3907F1FF809038F783E09038EF01F013FE390FF800F8A24913FC49137C48
5A157E5B15FE123FA290C7FCA248130115FC127EA2140300FE14F85AA2EC07F0A215E048
130F15C0141F15800078EB3F00127C147E003C5B383E01F8381E03E06C485A6CB4C7FCEA
01F81F4076BE2A>I<EC1FE0ECFFF8903803F03E903807C00F90381F8007D93F00138001
7E131F49137F485A485A000715005B000F147E484890C7FCA2485AA3127F90C9FCA35A5A
A6481403007E5C5D151E003E5C5D6C5CEC03E0390F800F802603E07EC7FC3801FFF83800
3FC0212977A72A>I<EE3F80ED1FFF1700A2ED007FA2167EA216FEA25EA21501A25EA215
03A25EA21507A25E147E903801FF8F903807C1CF90391F80EFC090383F00FF017E137F5B
48486D5A485AA2485A000F92C7FC5B001F5CA24848137EA215FE127F90C75AA214015A48
5CA2140316384814F0A21407167891380FE070127C021F13F0007E013F5B003E137FECF3
E1261F01E35B3A0F8781E3802703FF00FFC7FCD800FC133E294077BE2E>I<EC3F809038
01FFE0903807E0F890381F803CEB3E0001FC131E485A485A12074848133E49133C121F48
48137C15F8EC03F0397F000FE0ECFF80B5EAFC0014C048C8FCA45AA61506150E151E007C
143C15786C14F0EC01E06CEB07C0390F801F003807C0FC3801FFF038007F801F2976A72A
>I<167C4BB4FC923807C78092380F83C0ED1F87161FED3F3FA2157EA21780EE0E004BC7
FCA414015DA414035DA30103B512F8A390260007E0C7FCA3140F5DA5141F5DA4143F92C8
FCA45C147EA414FE5CA413015CA4495AA4495AA4495A121E127F5C12FF49C9FCA2EAFE1E
EAF83C1270EA7878EA3FE0EA0F802A5383BF1C>I<EC03F0EC0FFC91383E0E1C9138FC07
7E903901F003FE1303903807E001D90FC013FCEB1F80A2EB3F004914F8137E01FE1303A2
484814F0A2150712034914E0A2150F12074914C0A2151FA216805B153F1203ED7F006D5B
A200015B0000495A9038F80F7E90387C1EFEEB1FF8903807E0FC90C7FC1401A25DA21403
A25D001C1307007F5C48130F5D4A5A4AC7FC48137E00F85B387C03F0381FFFC0D803FEC8
FC273B7CA72A>I<EB01FC13FF5CA21303A25CA21307A25CA2130FA25CA2131FA25CA213
3FA291C8FCEC03F890387F0FFE91383E0F80D97E7813C0ECE007D9FFC013E014801400A2
485A5BA25B0003140F16C05BA20007141F16805BA2000F143F16005B5D001F147EEDFE07
4913FCA2003F0101130FEDF80E1300161E48ECF01CA2007E1538A200FE1570020013E048
EC7FC00038EC1F0028407ABE2E>I<1478EB01FCA21303A314F8EB00E01400AD137C48B4
FC38038F80EA0707000E13C0121E121CEA3C0F1238A2EA781F00701380A2EAF03F140012
005B137E13FE5BA212015BA212035B1438120713E0000F1378EBC070A214F0EB80E0A2EB
81C01383148038078700EA03FEEA00F8163E79BC1C>I<1507ED1FC0A2153FA31680ED0E
0092C7FCADEC07C0EC3FF0EC78F8ECE07CEB01C01303EC807EEB0700A2010E13FE5D131E
131CEB3C01A201005BA21403A25DA21407A25DA2140FA25DA2141FA25DA2143FA292C7FC
A25CA2147EA214FEA25CA213015CA2121C387F03F012FF495A5C495A4848C8FCEAF83EEA
707CEA3FF0EA0FC0225083BC1C>I<EB01FC13FF5CA21303A25CA21307A25CA2130FA25C
A2131FA25CA2133FA291C8FCED03E049EB0FF8ED3C3C017EEB707CEDE1FC9038FE01C1EC
03839038FC0703140E0001011C13F891383800E0494813001460000313E0EBF9C0EBF780
01FEC8FC1207EBFFE0EBE7F8EBE0FE000F137F6E7EEBC01F6E7E121F16701380A2003F15
F0021F13E001001380A248148116C0007EEB0F83168000FE14879138078F0048EB03FE00
38EB00F826407ABE2A>I<EB07F0EA03FF14E0A2EA000FA214C0A2131FA21480A2133FA2
1400A25BA2137EA213FEA25BA21201A25BA21203A25BA21207A25BA2120FA25BA2121FA2
5BA2123FA290C7FCA25A1307127EA2EAFE0F130E12FCA2131E131CA2EA7C381378EA3C70
EA1FE0EA0780144079BE17>I<D801F0D93F80137F3D07FC01FFE003FFC03D0F3E07C1F8
0F83F03D0E1F0F00FC1E01F8001E011C90387C3800001C49D97E707F003C01F05C003815
7F4A5C26783FC05C12704A91C7FC91C7127E00F003FE1301494A5CEA007EA20301140301
FE5F495CA203031407000160495C180F03075D0003051F13E0494A1480A2030FEC3F8100
07F001C0495CA2031F91383E0380120F494AEC0700A2033F150E001FEF1E1C4991C7EA0F
F80007C7000EEC03E0432979A74A>I<D801F0EB3F803A07FC01FFE03A0F3E07C1F83A0E
1F0F00FC001E011C137C001C49137E003C13F012385C38783FC012705C91C7FC00F015FE
495CEA007EA2150101FE5C5BA2150300015D5B15075E0003020F13704914C0A2031F13F0
0007ED80E05B1681EE01C0120F49EC0380A2EE0700001FEC0F0E49EB07FC0007C7EA01F0
2C2979A733>I<EC1FC0ECFFF8903803F07C90380FC01FEB1F8090393F000F80017E14C0
491307484814E0485A12075B000F15F0485AA2485AA2ED0FE0127F90C7FCA2151F4815C0
5AA2ED3F80A2ED7F00A248147E007C5C007E13015D4A5A003E495A6C495A4A5A260F803E
C7FC3807C0FC3801FFF038003F80242977A72E>I<903903E001F890390FF807FE903A1E
7C1E0F80903A1C3E3C07C0013C137801389038E003E0EB783F017001C013F0ED80019038
F07F0001E015F8147E1603000113FEA2C75AA20101140717F05CA20103140F17E05CA201
07EC1FC0A24A1480163F010F15005E167E5E131F4B5A6E485A4B5A90393FB80F80DA9C1F
C7FCEC0FFCEC03E049C9FCA2137EA213FEA25BA21201A25BA21203A2387FFFE0B5FCA22D
3A80A72E>I<027E1360903901FF81E0903807C1C390391F80E7C090383F00F7017E137F
5B4848EB3F80485AA2485A000F15005B121F5D4848137EA3007F14FE90C75AA348130148
5CA31403485CA314074A5A127C141F007E133F003E495A14FF381F01EF380F879F3903FF
1F80EA00FC1300143F92C7FCA35C147EA314FE5CA21301130390B512F05AA2233A77A72A
>I<D801F013FC3A07FC07FF803A0F3E0F03C0260E1F1C13E0001EEB380F001C1370003C
EBE01F123814C0D8783F14C00070903880070092C7FC91C8FC12F05BEA007EA313FE5BA3
12015BA312035BA312075BA3120F5BA3121F5B0007C9FC232979A726>I<EC7F80903801
FFE0903807C0F890381F003C013E131C013C131E017C133E49137E15FEA2000114FCA215
706D13007FEBFFC014FC6C13FF15806D13C06D13E0010F13F01300140F14071403120C12
3F387F80011403D8FF0013E0A300FCEB07C000F0EB0F8012700078EB1F006C133C381F01
F83807FFE0C690C7FC1F297AA725>I<EB01C0EB03F01307A25CA2130FA25CA2131FA25C
A2133FA291C7FCA2007FB51280B6FC1500D8007EC7FC13FEA25BA21201A25BA21203A25B
A21207A25BA2120FA25BA2121F141C1380A2003F133C1438EB0078147014F05C495AEA1F
03495A6C48C7FCEA07FCEA01F0193A78B81E>I<137C48B4141C26038F80137EEA070700
0E7F001E15FE121CD83C0F5C12381501EA781F007001805BA2D8F03F1303140000005D5B
017E1307A201FE5C5B150F1201495CA2151F0003EDC1C0491481A2153F1683EE0380A2ED
7F07000102FF13005C01F8EBDF0F00009038079F0E90397C0F0F1C90391FFC07F8903907
F001F02A2979A731>I<017CEB01C048B4EB07F038038F80EA0707000E01C013F8121E00
1C1403EA3C0F0038EC01F0A2D8781F130000705BA2EAF03F91C712E012005B017E130116
C013FE5B1503000115805BA2ED07001203495B150EA25DA25D1578000114706D5B000049
5A6D485AD97E0FC7FCEB1FFEEB03F0252979A72A>I<017C167048B491387001FC3A038F
8001F8EA0707000E01C015FE001E1403001CEDF000EA3C0F0038177C1507D8781F4A133C
00701380A2D8F03F130F020049133812005B017E011F14784C137013FE5B033F14F00001
92C712E05BA2170100034A14C049137E17031880A2EF070015FE170E00010101141E01F8
6D131C0000D9039F5BD9FC076D5A903A3E0F07C1E0903A1FFC03FFC0902703F0007FC7FC
372979A73C>I<903903F001F890390FFC07FE90393C1E0E0F9026780F1C138001F0EBB8
3FD801E013F89039C007F07FEA0380000714E0D9000F140048151C000E4AC7FCA2001E13
1FA2C75BA2143F92C8FCA35C147EA314FE4A131CA30101143C001E1538003F491378D87F
811470018314F000FF5D9039077801C039FE0F7C033A7C0E3C078027783C1E1EC7FC391F
F80FFC3907E003F029297CA72A>I<137C48B4143826038F8013FCEA0707000E7F001E14
01001C15F8EA3C0F12381503D8781F14F000701380A2D8F03F1307020013E012005B017E
130F16C013FE5B151F1201491480A2153F000315005BA25D157EA315FE5D00011301EBF8
030000130790387C1FF8EB3FF9EB07E1EB00035DA21407000E5CEA3F80007F495AA24A5A
D8FF0090C7FC143E007C137E00705B387801F0383803E0381E0FC06CB4C8FCEA03F8263B
79A72C>I<D901F01370D907FC13F0010F14E090381FFE0190393FFF03C049EB83809038
7C0FCF9039F803FF009038F0007E49133C000114386C48137890C75A4A5A4A5A4A5A4AC7
FC141E5C5C5C495A495A495A49C8FC131E4913075B5B48485B4848131E485A01F05BD80F
FE137C391F1F81F8383E0FFFD83C075B486C5B00705CD8F00190C7FC38E0007C24297BA7
25>I<BD12E0A2530276985D>124 D<000E131E383F807F007FEBFF8012FFA215005B007E
5B003C1338190968BD2E>127 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FE cmbx12 14.4 74
/FE 74 128 df<922601FFFC903801FFE0033F9026FF801F13F84AB6D8E07F13FE020F03
F9B6FC023FD9C00FB500C0138091277FFC0003D9FE0113C0902601FFE049495A49494949
4813E04990C714F049484A13E0495A19C0495A7413C0017F17804A6E6E1380719138007E
007192C7FCAEBCFCA526007FF8C7000301C0C8FCB3B3A7007FB5D8F803B612F0A553547D
D34E>11 D<EEFFFC031FEBFF804AB612E0020781021F9038C00FF8913A7FFE0003FCDAFF
F0EB00FE4949EB03FF4901805B4990C7487F49485CA2495A4D7F013F6F5B5CA37190C7FC
715AEF01F894C9FCA90403B512C0BAFCA526003FFCC7120783B3B3A6003FB5D8FC03B612
C0A542547DD34B>I<DCFFFC913807FFE0031FD9FF8090B512FC92B6D8E00F14FF0207DB
F83F81021F903DE00FFCFFFE007FC091273FFE0001B500F0EB1FE0DAFFF06D0280EB07F0
4949010391C7EA1FF84901804901FC143F4990C748494A7E49484A4914FFA249485E517F
013F735B4A5EA28371705A71705A71EE0FC099C8FCA998381FFFFEBEFCA526003FFCC700
0101E0C7123F1C1FB3B3A6003FB5D8FC01B6D8E01FB512FEA567547DD370>14
D<ED03FCED1FFF037F13C04AB57E4AEB07F091390FFC03F891381FF801023F6D7E5D4A48
137C02FF147EA24949133EA35BA3177EA25FA24C5A15E04C5A4C5A5F160F6D6D485A4CCC
FC167E4C037FB512E0EDF9F8EDFBF06DEBFFE05E4C0301EBE0006E90CAEA3F804B4DC7FC
6F177E6E60701501636E6D4B5A4A17074A6D5E91B56C4B5A49181FD903F76D5ED907E36D
4BC8FCD91FC35FD93FC16D157ED97F816D5DD9FF80160148496C6D5C4870495A486E6D13
07486E6D495A48486F5C003F6E4B5A6F6D133F007F6E6D49C9FC6F6D13FE00FFEF81FC6F
ECC3F870EBC7F070EBE7E07013FF6D6E5C705C7091C8EA03E0826C6D6D80053F6DEC07C0
6C7013F06E027F6D140F6C6D49B56CEC1F806C030702FF147F6C6D90263FF87F01C0EBFF
006C9028FC03FFF01F9038F80FFEC690B6D8C00790B55A6DDB000115F0011F02F86D6C5C
010302E0020791C7FC9026003FFCC9EA7FF85B557AD369>38 D<EA07F0EA1FF8EA3FFE48
7EA2B5128014C0A314E0A37EA27EEA1FFDEA07F1EA0001A2130314C0A313071480130FA2
14005B133EA25B5B485A1203485A485A485A90C7FC120C132876D225>I<EC01E0EC07F8
4A7EA66E5AA200041608001F163ED83FC015FFD87FE04A13806D6C485AD8FFF84A13C0D8
7FFE021F138001FF5C02835B6C01C390B51200000FD9F1E313FC0001D9F9E713E027003F
FDEF90C7FC0107B512F8010114E0D9003F90C8FCEC07F8EC3FFF49B512E0010714F89039
3FFDEFFF2701FFF9E713E0000FD9F1E313FC003FD9C3F013FF4801836D138002037F01FE
80D8FFF8020713C0D87FF06E138049486C7ED83FC06E1300D81F00153E00041608C792C7
FCA24A7EA66E5AEC01E0323578D943>42 D<EA07F0EA1FF8487E487E7FB5FC1480A314C0
A37EA27E7EEA07F3EA0003A213071480A3130F1400A25B131E133E133C137C5BA2485A48
5A485A485A48C7FC121E120C1228769025>44 D<B712F0AB240B7F9F2D>I<EA07F0487E
487E487E487EB51280A76C13006C5A6C5A6C5A6C5A1111769025>I<EF01E01703EF07F0
A2170FA2EF1FE0A218C0173FA2EF7F80A218005FA24C5AA25F1603A24C5AA25F160FA24C
5AA25F163FA24C5AA294C7FC5EA24B5AA25E1503A24B5AA25E150FA24B5AA25E153FA24B
5AA293C8FC5DA24A5AA25D1403A25D1407A24A5AA25D141FA24A5AA25D147FA24AC9FCA2
5C1301A2495AA25C1307A2495AA25C131FA2495AA25C137FA249CAFCA25B1201A2485AA2
5B1207A2485AA25B121FA2485AA25B127FA248CBFCA25AA2127CA2347879D943>I<9138
03FFC0023F13FC91B6FC010315C0010F018113F0903A1FFC003FF849486D7E49486D7E49
486D7E48496D138048496D13C0A24817E04890C813F0A34817F8A24817FC49157FA3007F
17FEA600FF17FFB3A5007F17FEA6003F17FCA26D15FFA26C17F8A36C17F0A26C6D4913E0
A26C6D4913C06C17806E5B6C6D4913006D6C495AD91FFCEB3FF8903A0FFF81FFF06D90B5
5A01011580D9003F01FCC7FC020313C0384F7BCD43>I<157815FC14031407141F14FF13
0F0007B5FCB6FCA2147F13F0EAF800C7FCB3B3B3A6007FB712FEA52F4E76CD43>I<EC3F
FE0103B512E0010F14FC013F14FF90B712C048D9C07F7F2703FE000F13F8D807F801037F
D80FE06D7F48486D7F48488001F01680486C6E13C07F486C6E13E07FA27013F0A56C5AA2
6C5AEA0FF0EA03C0C914E05EA218C05E1880A24C13005F4C5A4B5B5F4B5B5F4B5B4B90C7
FC4B5A5E4B5AED7FE04B5A4A5B4A48C8FC4A5A5D4A48EB01F04A5AEC3F804AC7FC02FEEC
03E0495A495A495A495AD91F80140749C8FC013E150F017FB7FC90B812C05A5A5A5A5A5A
5AB9FC1880A4344E79CD43>I<91380FFFC091B512FC0107ECFF80011F15E090263FF807
7F9026FF800113FC4848C76C7ED803F86E7E491680D807FC8048B416C080486D15E0A480
5CA36C17C06C5B6C90C75AD801FC1680C9FC4C13005FA24C5A4B5B4B5B4B13C04B5BDBFF
FEC7FC91B512F816E016FCEEFF80DA000713E0030113F89238007FFE707E7013807013C0
18E07013F0A218F8A27013FCA218FEA2EA03E0EA0FF8487E487E487EB57EA318FCA25E18
F891C7FC6C17F0495C6C4816E001F04A13C06C484A1380D80FF84A13006CB44A5A6CD9F0
075BC690B612F06D5D011F1580010302FCC7FCD9001F1380374F7ACD43>I<177C17FEA2
160116031607160FA2161F163F167FA216FF5D5DA25D5DED1FBFED3F3F153E157C15FCEC
01F815F0EC03E01407EC0FC01580EC1F005C147E147C5C1301495A495A5C495A131F49C7
FC133E5B13FC485A5B485A1207485A485A90C8FC123E127E5ABA12C0A5C96C48C7FCAF02
0FB712C0A53A4F7CCE43>I<D80380150ED807E0157E01FEEC03FED9FFF0137F91B65A5F
5F5F5F5F94C7FC5E5E16F016C093C8FC15F801E190C9FC01E0CAFCABEC0FFF027F13F001
E3B512FE01E76E7E9026FFF8077FDAC0017F49C713F8496E7E49143F4981496E7E6C4816
80C9FC18C08218E0A418F0A3EA0FE0487E487E487E487EA418E0A35B6C484A13C05B4916
80003EC85A003F17006C6C4A5A6D5D6C6C4A5AD807F8495BD803FE01075B2701FFC03F5B
6C90B65A013F4AC7FC6D14F8010314C09026007FF8C8FC344F79CD43>I<ED0FFF92B512
E0020780021F14FC91397FFE03FE903A01FFF0007F4901C0EB3F804990C7121F4948EC7F
C0494814FF49484913E049485B01FF5C485BA2485B5AA2486F13C04A6D1380486F130017
7E94C7FC5AA291CAFC5AA21508913801FFF8020713FFB54814C04A14F04AC66C7E023C6D
7E4A6D7E4A6D7E7013804A15C0A24A15E07013F05C18F8A491C714FCA37EA67EA46C17F8
80A27E18F06C5D18E06C6D15C07E6E4913806C6D15006D6C495A6D6CEB7FFC6DB448485A
6D90B55A010315C0010092C7FC023F13FC020713C0364F7ACD43>I<121F7F7FEBFF8091
B81280A45A1900606060A2606060485F0180C86CC7FC007EC95A4C5A007C4B5A5F4C5A16
0F4C5A484B5A4C5A94C8FC16FEC812014B5A5E4B5A150F4B5AA24B5AA24B5A15FFA24A90
C9FCA25C5D1407A2140FA25D141FA2143FA4147F5DA314FFA55BAC6D5BA2EC3FC06E5A39
5279D043>I<913807FFC0027F13FC0103B67E010F15E090261FFC0113F8903A3FE0003F
FCD97F80EB0FFE49C76C7E48488048486E1380000717C04980120F18E0177FA2121F7FA2
7F7F6E14FF02E015C014F802FE4913806C7FDBC00313009238F007FE6C02F85B9238FE1F
F86C9138FFBFF06CEDFFE017806C4BC7FC6D806D81010F15E06D81010115FC010781011F
81491680EBFFE748018115C048D9007F14E04848011F14F048487F48481303030014F848
4880161F4848020713FC1601824848157F173FA2171FA2170FA218F8A27F007F17F06D15
1FA26C6CED3FE0001F17C06D157F6C6CEDFF806C6C6C010313006C01E0EB0FFE6C01FCEB
FFFC6C6CB612F06D5D010F1580010102FCC7FCD9000F13C0364F7ACD43>I<91380FFF80
91B512F8010314FE010F6E7E4901037F90267FF8007F4948EB3FF048496D7E484980486F
7E484980824817805A91C714C05A7013E0A218F0B5FCA318F8A618FCA46C5DA37EA25E6C
7F6C5DA26C5D6C7F6C6D137B6C6D13F390387FF803011FB512E36D14C30103028313F890
39007FFE03EC00401500A218F05EA3D801F816E0487E486C16C0487E486D491380A21800
5E5F4C5A91C7FC6C484A5A494A5A49495B6C48495BD803FC010F5B9027FF807FFEC7FC6C
90B55A6C6C14F06D14C0010F49C8FC010013F0364F7ACD43>I<EA07F0487E487E487E48
7EB51280A76C13006C5A6C5A6C5A6C5AC8FCB3EA07F0487E487E487E487EB51280A76C13
006C5A6C5A6C5A6C5A113576B425>I<171F4D7E4D7EA24D7EA34C7FA24C7FA34C7FA34C
7FA24C7FA34C8083047F80167E8304FE804C7E03018116F8830303814C7E03078116E083
030F814C7E031F81168083033F8293C77E4B82157E8403FE824B800201835D840203834B
800207835D844AB87EA24A83A3DA3F80C88092C97E4A84A2027E8202FE844A82010185A2
4A820103854A82010785A24A82010F855C011F717FEBFFFCB600F8020FB712E0A55B547B
D366>65 D<BA12C019FEF1FFC01AF01AFCD8000701F0C7000313FFDE007F7F737F070F7F
737F878587858785A287A84F5BA263616361634F5B4F5B077F90C7FC4E485A060713F892
B812E097C8FC861AF003F0C7000313FE9539003FFF80070F13E0737F07017F87737F747E
1C807413C0A27413E0A31CF0A386A362A31CE0A2621CC0A250138097B5FC1C004F5B1907
4F5B073F13F04EB55ABC128098C7FC1AF81AC007F8C8FC54527CD160>I<932601FFFCEC
01C0047FD9FFC013030307B600F81307033F03FE131F92B8EA803F0203DAE003EBC07F02
0F01FCC7383FF0FF023F01E0EC0FF94A01800203B5FC494848C9FC4901F8824949824949
824949824949824990CA7E494883A2484983485B1B7F485B481A3FA24849181FA3485B1B
0FA25AA298C7FC5CA2B5FCAE7EA280A2F307C07EA36C7FA21B0F6C6D1980A26C1A1F6C7F
1C006C6D606C6D187EA26D6C606D6D4C5A6D6D16036D6D4C5A6D6D4C5A6D01FC4C5A6D6D
EE7F806D6C6C6C4BC7FC6E01E0EC07FE020F01FEEC1FF80203903AFFE001FFF0020091B6
12C0033F93C8FC030715FCDB007F14E0040101FCC9FC525479D261>I<BA7E19FCF1FF80
1AF01AFCD8000701F0C7000F13FF060014C0071F7F070713F807017F737F747E747F747F
86747F747F8886888688A2757EA31D8087A21DC0A51DE0A387A963A31DC0A51D80A2631D
00A3515AA2646264505B6264505B505B5090C7FCF2FFFE4F5B07075B071F5B96B512C006
0F91C8FCBB5A1AF01AC007FCC9FC19805B527CD167>I<BC1280A5D8000701F8C7000114
C0F0001F19071901851A7F1A3F1A1FA2F20FE0A21A07A31A03A318F81BF01A01A497C7FC
1701A317031707170F177F92B6FCA59238F8007F170F170717031701A317001B3EA31B7C
A395C8FCA21BFCA21BF8A21A01A31A031BF01A071A0FA21A1F1A3FF27FE0F101FF190719
1F0603B5FCBCFCA21BC0A34F517CD058>I<BB12FEA5D8000701F8C700077FF0007F191F
190785858586861B80A21A1FA31A0FA41BC006F81307A497C7FCA31701A317031707170F
177F92B6FCA59238F8007F170F170717031701A31700A795C9FCB3B812F8A54A517CD055
>I<932601FFFCEC01C0047FD9FFC013030307B600F81307033F03FE131F92B8EA803F02
03DAE003EBC07F020F01FCC7383FF0FF023F01E0EC0FF94A01800203B5FC494848C9FC49
01F8824949824949824949824949824990CA7E494883A2484983485B1B7F485B481A3FA2
4849181FA3485B1B0FA25AA298C8FC5CA2B5FCAE6C057FB712E0A280A36C94C7003FEBC0
00A36C7FA36C7FA27E6C7FA26C7F6C7FA26D7E6D7F6D7F6D6D5E6D7F6D01FC93B5FC6D13
FF6D6C6D5C6E01F0EC07FB020F01FEEC1FF10203903AFFF001FFE0020091B6EAC07F033F
EE001F030703FC1307DB007F02E01301040149CAFC5B5479D26A>I<B8D8C003B8FCA5D8
000701F8C9001FEBE000B3AE92BAFCA503F8C9121FB3B1B8D8C003B8FCA560527CD169>
I<B812C0A5D8000701F8C7FCB3B3B3B2B812C0A52A527CD132>I<027FB71280A591C76C
90C7FCB3B3B3EA07F0EA1FFC487E487EA2B57EA44C5AA34A485B7E49495BD83FF8495BD8
1FE05DD80FFC011F5B2707FF807F90C8FC000190B512FC6C6C14F0011F14C0010101F8C9
FC39537DD145>I<B800C091B612F8A5D8000701F8C90003EBF8009738007F8051C7FC50
5AF203F8F20FF0505A505A505A50C8FCF101FCF107F84F5A4F5A4F5A4F5A07FEC9FCF003
FC4E5A4E5A4E5A4E5A4E5ADD01FECAFC4D5A4D5A4D5A4D7E173F4D7E4C487E4C7F5E4C80
4C804C80EEFF7F9226F9FE3F7FDBFBFC809226FFF81F7F4C7EDCC0077F0480804C7E4B6D
804B6D804B8284727F727F8684727F727F8784728087737F85737F87737F85737F888573
80747F888697B512FCB800C0013FECFFFEA55F527CD169>I<B812F8A5D8000701F8CAFC
B3B3A91A7CA41AFC1AF8A51901A31903A219071AF0190FA2191F193F197F19FF18036018
3F4DB5FCBB12E0A546527CD151>I<B600FC073FB512FE6F61A26F96B6FCA2D80007F5C0
0070EF01EFA202EF6DEF03CFA202E76DEF078FA202E36DEF0F0FA202E16D171EA302E06D
173CA26F6C1778A26F6C17F0A26F6DED01E0A26F6DED03C0A36F6DED0780A26F6DED0F00
A26F6D151EA26F6D5DA3706C5DA2706C5DA2706D495AA2706D495AA2706D495AA3706D49
C7FCA2706D131EA2706D5BA2716C5BA3716C5BA271EB81E0A271EBC3C0A271EBE780A271
01FFC8FCA3715BA2715BA2725AA2725AA2D93FFC6F5AB74DB712FEA2725AA2725A77527C
D180>I<B600FC93B7FC8181A282D800076E9239003FFC0070EE07E08282A28202EF7F02
E77F02E380A202E18002E0806F7F6F7F6F7FA26F7F6F7F6F806F80A26F80707F707F707F
707FA2707F7080708070808583717F717F717F717FA27114807114C07114E07213F07213
F8A27213FC7213FE7213FF721487A27214C77214E77313F77313FF85A285858585A28586
868686A286868686A2D93FFC187FB7173F1B1F1B0F1B07755A60527CD169>I<93380FFF
C00303B6FC031F15E092B712FC0203D9FC0013FF020F01C0010F13C0023F90C7000313F0
DA7FFC02007F494848ED7FFE4901E0ED1FFF49496F7F49496F7F4990C96C7F4985494870
7F4948707FA24849717E48864A83481B804A83481BC0A2481BE04A83A2481BF0A3484971
13F8A5B51AFCAF6C1BF86E5FA46C1BF0A26E5F6C1BE0A36C6D4D13C0A26C6D4D1380A26C
1B006C6D4D5A6E5E6C626D6C4C5B6D6D4B5B6D6D4B5B6D6D4B5B6D6D4B5B6D6D4B90C7FC
6D6D4B5A6D01FF02035B023F01E0011F13F0020F01FC90B512C0020390B7C8FC020016FC
031F15E0030392C9FCDB001F13E0565479D265>I<BAFC19F819FF1AE086D8000701F0C7
001F13FC060113FF726C13807313C0070F13E01BF0857313F81BFCA27313FEA41BFFA81B
FEA31BFC61A21BF84F13F04F13E0614F13C04F13004E485A061F5B92B812F01AC04FC7FC
19E003F8CBFCB3AEB812C0A550527CD15C>I<93380FFFC00303B6FC031F15E092B712FC
0203D9FC0013FF020F01C0010F13C0023F90C7000313F0DA7FFC02007F902601FFF0ED3F
FE49496F7E49496F7F49496F7F4990C96C7F4948707F4948707F01FF854A177F48864849
717EA24849711380A2481BC04A83481BE0A24A83481BF0A3481BF8A291CB7EA3B51AFCAF
6C1BF8A26E5FA36C1BF0A36C6D4D13E0A36C1BC06E5F6C1B806E5F6CDB01FE16006C6D90
2607FF80495A4C13E06C6D013F6D495A017F91267F03F85C6D6C90277C00FC015B6D6C49
D97E035B6D01806E485B6D6D48D91F8F5B6D01E0039F90C7FC6D01F06EB45A6DD9FCF85D
DA3FFF6E13F0020F6D4913C0020301FF90B5C8FC020091B512FC031F180C0303181EDB00
1FEBE3FE93C7EA01FF74133E74137E7413FEF2F8077290B5FC1CFCA285A21CF8A2851CF0
7314E0A27314C0731480731400735B9638007FF8F21FE0576A79D265>I<B912F0F0FF80
19F819FF1AC0D8000701F0C714F0060F7F060113FE727F737F737F85737F87A2737FA387
A863A2616363A24F5B4F5B4F90C8FC4F5A06035B060F13F095B512C092B8C9FC19F819E0
19F89226F0000313FE9439007FFF80727F727F727F727F727F8684A28684A787A71D1C75
133EA38575137E73157C7513FC731401B86C6D9038F803F807039038FE07F07390B512E0
736C14C0080F1400CEEA7FFC5F537CD164>I<91260FFF80130791B500F85B010702FF5B
011FEDC03F49EDF07F9026FFFC006D5A4801E0EB0FFD4801800101B5FC4848C87E484881
49150F001F824981123F4981007F82A28412FF84A27FA26D82A27F7F6D93C7FC14C06C13
F014FF15F86CECFF8016FC6CEDFFC017F06C16FC6C16FF6C17C06C836C836D826D82010F
821303010082021F16801400030F15C0ED007F040714E01600173F050F13F08383A20078
8200F882A3187FA27EA219E07EA26CEFFFC0A27F6D4B13806D17006D5D01FC4B5A01FF4B
5A02C04A5A02F8EC7FF0903B1FFFC003FFE0486C90B65AD8FC0393C7FC48C66C14FC4801
0F14F048D9007F90C8FC3C5479D24B>I<003FBC1280A59126C0003F9038C0007F49C716
07D87FF8060113C001E08449197F49193F90C8171FA2007E1A0FA3007C1A07A500FC1BE0
481A03A6C994C7FCB3B3AC91B912F0A553517BD05E>I<B800C00103B612FCA5D8000701
F8CAEBF000F31F80B3B3B11B3FA26D97C7FC81637F1B7E6D6D17FE505A6E7E505A6E6D15
076E4D5A6E6D4B5A6E6D4B5A6E01F84B5A6E6DDA03FFC8FC6E6CB46CEB0FFE6F9039F001
FFF8030F90B65A030316C0DB007F92C9FC040F14F8DC007F13805E537CD167>I<B700FE
031FB512FEA5D8001F01F0CA383FFE00F307F06D626F170F6D62811B1F6D6D601B3F6D97
C7FC6F5F6D197E821BFE6E6D5E1A016E6D5E1A036E60701507A26E6D5E1A0F6E6D5E1A1F
6E6070153FA26E6D93C8FC626E6E147E1AFE6F5E711301A26F6D5C19036F6D5C19076F5E
71130FA26F6D5C191F6F6D5C193F6F93C9FC715BA26FEC807E19FE706D5A18C1705C18E3
705C18F318F770EBFFE0A2705CA2705CA37091CAFCA2705BA2715AA3715AA2715AA2715A
715A5F537DD166>I<B700FC017FB600FE91B612F0A5D8003F01C0C8001F01E0C9EBF800
6F71EE0FC06D7161876F1C1F6D7196C7FC6F8373606D1E3E6F836D7160876F1CFC6D666F
4B801F016D66704A806E525A88704A17076E059F5F70021F80080F160F6E6570023F806E
DC3E074CC8FC8870027E5F6EDC7C03163E7002FC804F6C167E6E1C7C700101814F6C16FC
6E745B70010317016E4C6D5D060716C00580496D14036F63DDC00F16E04F6D14076F07F0
5BDDE01F170F6F92C76C5D1DF8DDF03E6E141F6F98C9FCDDF87E16FC067C6E5C6FF1FE3E
DDFCFC177E6F4A6E147C1DFFDDFFF06E14FC6F62A24E816F62A270496F5BA24E817061A2
95C97E7061A270487090CAFCA37048705AA24D1601040360A27048705A84537DD18B>I<
003FB7D88003B7FCA5D8000749C8000701F8C7FC6D6D9238007F806D6E93C8FC7015FE6D
17016E6D5D704A5A6E16076E6D4A5A6E6D5D4F5A6E6D143F6E6D4A5A7191C9FC6E16FE6E
ECC00171485A6F5D6F6D485A6FEBF80F71485A6F5D6F6D485AEFFF7F6F4ACAFC6F5C6F5C
A2705B705B8482707F707FA2707F7080855E4C80855E4C80DC3FCF7F058F7FEE7F074C6C
7FDB01FE814C7E4B486C8003076E7F4B48814C7F4B486D7F033F824C7F4BC76C7F4B6E7F
4A5A4B6E804A486E800207844A48814B6F7F4A4883023F824A486F7F92C96C7F02FE8401
01830103718090263FFFC084B76C0103B712F8A55D527CD166>I<B8030FB61280A5D800
0F01FCCA003F90C7FC6FEF07F86D6D606D4F5A826D6E4C5A6D4F5A826E6D4CC8FC6E18FE
826E6D4B5A6E4D5A826E6D4B5A6E4D5A836E6E4A5A6E4D5A836F6D4AC9FC6F5E715C6F6D
495A6F1503715C6F6D495A6F150F06805B6F6E485A6F153F06E05B706D48CAFC705C725A
70EBFDFC7013FF61705C82705C6182715B96CBFCB3AA030FB712F8A561527ED166>I<EC
7FFF0107B512F0013F14FE90B77E48D9E00F7F2703FE000113F0486C6D7F6EEB3FFC4882
6E131F83707FA36C496D7FA26C90C7FC6C5AC9FCA6037FB5FC020FB6FC91B7FC01071487
013FEBF0074913803901FFFC004813F0485B485B485B4890C7FC5A5BA2485AA45EA26D5C
007F151D163D6C6C02797F6C6D01F113F86C9026C003E1EBFFE06C9026F81FC014F06C90
B5487EC6ED001F011F01FC010713E0010101E090C8FC3C387CB641>97
D<EB3FF0B5FCA51203C6FCB3A4923801FFE0030F13FE033FEBFFC092B612F002F301017F
913AF7F8003FFEDAFFE0EB0FFF03806D7F92C76C7F4A6E7F4A824A6E7FA2727EA285A285
84A31A80AC1A00A44E5AA36118FF616E4A5BA26E4A5B6E4A5B6F495BDACFC04990C7FCDA
87F0EB7FFC913A03FE03FFF849C6B612E0496D148049011F01FCC8FC90C7000313C04154
7BD24B>I<913801FFF8021FEBFF8091B612F0010315FC010F9038C00FFE903A1FFE0001
FFD97FFC491380D9FFF05B4817C048495B5C5A485BA2486F138091C7FC486F1300705A48
92C8FC5BA312FFAD127F7FA27EA2EF03E06C7F17076C6D15C07E6E140F6CEE1F806C6DEC
3F006C6D147ED97FFE5C6D6CEB03F8010F9038E01FF0010390B55A01001580023F49C7FC
020113E033387CB63C>I<4DB47E0407B5FCA5EE001F1707B3A4913801FFE0021F13FC91
B6FC010315C7010F9038E03FE74990380007F7D97FFC0101B5FC49487F4849143F484980
485B83485B5A91C8FC5AA3485AA412FFAC127FA36C7EA37EA26C7F5F6C6D5C7E6C6D5C6C
6D49B5FC6D6C4914E0D93FFED90FEFEBFF80903A0FFFC07FCF6D90B5128F0101ECFE0FD9
003F13F8020301C049C7FC41547CD24B>I<913803FFC0023F13FC49B6FC010715C04901
817F903A3FFC007FF849486D7E49486D7E4849130F48496D7E48178048497F18C0488191
C7FC4817E0A248815B18F0A212FFA490B8FCA318E049CAFCA6127FA27F7EA218E06CEE01
F06E14037E6C6DEC07E0A26C6DEC0FC06C6D141F6C6DEC3F806D6CECFF00D91FFEEB03FE
903A0FFFC03FF8010390B55A010015C0021F49C7FC020113F034387CB63D>I<ED3FFC02
03B5FC020F14C0023F14E09139FFF81FF0499038C03FF849EB807F49903800FFFC495A49
5AA2495AA2EE7FF8495AEE3FF0EE0FC093C7FCAEB712E0A526007FF8C8FCB3B3A7007FB5
12FEA52E547CD329>I<DA3FFF14FF0103B5D8F00713C0010FDAFC1F13E0013FECFF7F90
267FFC0F9038FF9FF09026FFE001EBF83F48496C13E0484990387FF01F4890C7D83FF813
E0489338FC0FC0F0078048486E6CC7FCA2003F82A9001F5EA26C6C4A5AA26C5E6C6D495A
6C6D495A6C6D485BDAFC0F5B4890B6C8FCD803EF14FC01C314F02607C03F90C9FC91CBFC
A2120FA37FA213F813FE90B7FC6C16F817FF18C06C836C836C836D828448B9FC12074848
C700031480D81FF8EC003F4848150748486F13C083485A83A56D5D007F18806D5D003F18
006C6C4B5AD80FFEED1FFC6C6C6CEC7FF86C01E049485A6C01FE011F5B6C6CB71280010F
03FCC7FC010115E0D9000F01FCC8FC3C4F7CB543>I<EB3FF0B5FCA51203C6FCB3A4EE1F
FC93B512C0030314F0030F8092391FE07FFC92393F001FFE037C8003F07FDAF1E081ECF3
C0DAF7807F8502FFC7FC5CA25CA45CB3ACB6D8F807B612C0A542537BD24B>I<137F497E
000313E0487FA2487FA76C5BA26C5BC613806DC7FC90C8FCADEB3FF0B5FCA512017EB3B3
A6B612E0A51B547BD325>I<157FEDFF80020313E04A13F0A24A13F8A76E13F0A26E13E0
02001380ED7F0092C7FCADED1FF891B5FCA51401EC007FB3B3B1EA0780EA1FE0487E487E
486C13FF16F0A216E05C16C04A13806C4848130049485A003F495A000FB512F06C5C0001
148026001FFCC7FC256C87D329>I<EB3FF0B5FCA51203C6FCB3A54CB512F8A59339003F
FE00EF1FF0EF3FC04D5A4DC7FCEE03FEEE07F84C5A4C5AEE7FC04CC8FC4B5A4B5AED0FF8
ED1FE04B7E4B7EECF1FF02F37F02F77F91B6FC83159F030F7F02FE80DAF8077F4A7E6F7F
6F7F83707E82707F84707F707F82707F84707F177F717E4D13C0B6D8F003B6FCA540537C
D247>I<EB3FF0B5FCA512017EB3B3B3B1B612F0A51C537BD225>I<D93FF0D91FFCEDFFE0
B591B500C0010713FE030302F0011F6D7E030F6E017F8092271FE07FFCD9FF037F922A3F
001FFE01F8007F0003027C9126FF03E080C602F06DD90780137FDAF1E0038FC77FDAF3C0
159EDAF7806D01BC143F07FC8102FFC75C4A5EA24A5EA44A5EB3ACB6D8F807B6D8C03FB5
12FEA567367BB570>I<D93FF0EB1FFCB591B512C0030314F0030F8092391FE07FFC9239
3F001FFE0003027C80C602F07FDAF1E081ECF3C0DAF7807F8502FFC7FC5CA25CA45CB3AC
B6D8F807B612C0A542367BB54B>I<913801FFE0021F13FE91B612C0010315F0010F9038
807FFC903A1FFC000FFED97FF86D6C7E49486D7F48496D7F48496D7F4A147F48834890C8
6C7EA24883A248486F7EA3007F1880A400FF18C0AC007F1880A3003F18006D5DA26C5FA2
6C5F6E147F6C5F6C6D4A5A6C6D495B6C6D495B6D6C495BD93FFE011F90C7FC903A0FFF80
7FFC6D90B55A010015C0023F91C8FC020113E03A387CB643>I<903A3FF001FFE0B5010F
13FE033FEBFFC092B612F002F301017F913AF7F8007FFE0003D9FFE0EB1FFFC602806D7F
92C76C7F4A824A6E7F4A6E7FA2717FA285187F85A4721380AC1A0060A36118FFA2615F61
6E4A5BA26E4A5B6E4A5B6F495B6F4990C7FC03F0EBFFFC9126FBFE075B02F8B612E06F14
80031F01FCC8FC030313C092CBFCB1B612F8A5414D7BB54B>I<912601FFE0EB0780021F
01F8130F91B500FE131F0103ECFF80010F9039F03FC03F499039800FE07F903A7FFE0003
F04948903801F8FF4849EB00FD4849147F4A805A4849805A4A805AA291C87E5AA35B12FF
AC6C7EA37EA2806C5EA26C6D5CA26C6D5C6C6D5C6C93B5FC6C6D5B6D6C5B6DB4EB0FEF01
0F9038C07FCF6D90B5120F010114FED9003F13F80203138091C8FCB1040FB61280A5414D
7CB547>I<90397FE003FEB590380FFF80033F13E04B13F09238FE1FF89139E1F83FFC00
03D9E3E013FEC6ECC07FECE78014EF150014EE02FEEB3FFC5CEE1FF8EE0FF04A90C7FCA5
5CB3AAB612FCA52F367CB537>I<903903FFF00F013FEBFE1F90B7FC120348EB003FD80F
F81307D81FE0130148487F4980127F90C87EA24881A27FA27F01F091C7FC13FCEBFFC06C
13FF15F86C14FF16C06C15F06C816C816C81C681013F1580010F15C01300020714E0EC00
3F030713F015010078EC007F00F8153F161F7E160FA27E17E07E6D141F17C07F6DEC3F80
01F8EC7F0001FEEB01FE9039FFC00FFC6DB55AD8FC1F14E0D8F807148048C601F8C7FC2C
387CB635>I<143EA6147EA414FEA21301A313031307A2130F131F133F13FF5A000F90B6
FCB8FCA426003FFEC8FCB3A9EE07C0AB011FEC0F8080A26DEC1F0015806DEBC03E6DEBF0
FC6DEBFFF86D6C5B021F5B020313802A4D7ECB34>I<D93FF8913801FFC0B50207B5FCA5
0003ED001FC61607B3AE5FA35FA2017F5D173B177B6D6C14F3DC01E313F06D6CD907C3EB
FFC0903A0FFFC03F836D90B51203010114FE6D6C13F8020701E091C7FC42377BB54B>I<
B600F00107B5FCA5000101F8C8EA7FE06C6DED3F00A2017F163E6E157E013F167C6E15FC
6D5E6F13016D5E8117036D5E6F13076D5E6F130F6D5E6F131F6D93C7FC815F6E6C133E17
7E023F147C6F13FC6E5C16816E5C16C3A26EEBE3E016E76E5C16FF6E5CA26E91C8FCA26F
5AA36F5AA26F5AA26F5AA26F5A6F5A40367DB447>I<B6D8E07FB5D8C003B512C0A50001
01F0C701F0C7381FF8006E027FED07E06C715DA26E023F150F017F705DA26E181F013F4B
6C92C7FC6E606D70143E94B5FC6F177E6D4A6E137C03C001F315FC6D715B160303E001E1
14016D020702E05B03F013C06D71485A160F03F8D9807F13076D05F85B93381F003F03FC
160F027F4902FC5BDBFE3E011F131F023F04FE90C8FC167EDBFF7C010F5B6E01FCECFF3E
4C6D137E6E5FA24C7F6E5F4C7F6E5FA24C7F6E5F4C147FA26E5F93C8123F6F5EA2033E6F
C9FC5A367DB461>I<007FB500F090387FFFFEA5C66C48C7000F90C7FC6D6CEC07F86D6D
5C6D6D495A6D4B5A6F495A6D6D91C8FC6D6D137E6D6D5B91387FFE014C5A6E6C485A6EEB
8FE06EEBCFC06EEBFF806E91C9FCA26E5B6E5B6F7E6F7EA26F7F834B7F4B7F92B5FCDA01
FD7F03F87F4A486C7E4A486C7E020F7FDA1FC0804A486C7F4A486C7F02FE6D7F4A6D7F49
5A49486D7F01076F7E49486E7E49486E7FEBFFF0B500FE49B612C0A542357EB447>I<B6
00F00107B5FCA5C601F8C8EA7FE06EED3F00A26D6C153E187E013F167C6E15FC6D5E6F13
016D5E6F13036D5E8117076D6D5C170F6D6D5C171F6D93C7FC6F5B027F143E6F137E023F
147C6F13FCA26E6D5A16816EEBC1F016C36E5C16E76E5C16FF6E5CA26E91C8FCA36F5AA2
6F5AA26F5AA26F5AA26F5AA35E150F5E151F93C9FC5DD81FC0133E486C137E486C137C48
6C13FC5D14015D14034A5A6C48485A49485A263FC07FCAFCEB81FE6CB45A6C13F000035B
C690CBFC404D7DB447>I<001FB8FC1880A3912680007F130001FCC7B5FC01F0495B495D
49495B495B4B5B48C75C5D4B5B5F003E4A90C7FC92B5FC4A5B5E4A5B5CC7485B5E4A5B5C
4A5B93C8FC91B5FC495B5D4949EB0F805B495B5D495B49151F4949140092C7FC495A485E
485B5C485E485B4A5C48495B4815074849495A91C712FFB8FCA37E31357CB43C>I<BB12
C0A4420480A243>I<D807E0EB01F8D80FF8EB07FCD83FFC49B4FC486C4913806D5BB515
C0A66C1680497F6C486D1300D80FF8EB07FCD807E0EB01F82A1074D343>127
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FF cmmi8 8 38
/FF 38 123 df<EB01FCEB0FFF90383F07C090387C03E03A01F801F00CEA03F03907E000
F84848141C49EBFC18001F147C48C713381630481570007E156016E016C000FE147D48EC
7F801600157EA2157CA2127C15FE0203130C6CEB073E6C011E131C3A0F81F81F383A03FF
E00FF03A00FE0003C0261F7D9D2D>11 D<157E913801FFC091380781E091381E00F01438
4A13F84A1378495A494813F891C7FC5B1306010E1301010C14F0131C0118EB03E0ED07C0
013814809039301FEF00EC3FFE13709038601FEF9138000F80ED07C013E04914E0A31201
5BA30003140F90C713C0A348EC1F80A2ED3F00A2486C137E000D147C6D5B390CE001F039
1C7003E039183C0F80D91FFEC7FCEB03F80038C9FC1230A312701260A312E05AA3253C7E
AE28>I<13E0486C133C15FF00031303EC0F7F9038E01C7EEC381C000749C7FC5CEBC3C0
01C7C8FCEA0FDE13F8EBFF8014F8381F83FEEB803F496C7E140F48154016C0123EA2007E
14811680007C1403ED830000FC1487EC078E48EB03FC0070EB00F0221F7D9D29>20
D<13FC13FFEB1FC0130F6D7EA36D7EA2130180A26D7EA3147EA280A36E7EA2140F81A24A
7E143F147FECF3F0EB01E3EB03C190380781F8130F49C67E133E5B49137E485A48487F12
07485A4848EB1F8048C7FC127E48EC0FC048EC07E000701403232F7DAD29>I<131C013E
EB0380ED07C0017E130F1680137CA201FC131F16005BA200015C153E5BA20003147E157C
5BA20007ECFC08EDF8185BA2000F0101133816309038E003F002071370001F90380EF860
9039F83C78E090397FF03FC090391FC00F0048C9FCA2123EA2127EA2127CA212FCA25AA2
1270252C7E9D2A>I<D801F01307003FEC0F80A20003141F16005B5D0007143EA2495BA2
000F5C140101805B4A5A001F13075D49485A4AC7FC48133E5C003E13F0EB03E0387E07C0
49C8FCEA7C3E13F8EAFFE090C9FC12F8211E7D9D23>I<14C0A5ECFFE04913F813079038
1F9FE0017FC7FC13FE5B485A12035B1207A25BA312037FA23801FBFE38007FFFA2EBF7FE
D803C0C7FC485A48C8FC121EA25A127C1278A212F85A7EA37EB4FCEA7FC0EA3FF8EA1FFE
380FFFC0000313F038007FFCEB1FFEEB03FF1300141F80A3EB701EEB3C1CEB1FF8EB03E0
1D3C7EAD1F>I<123C127EB4FCA21380A2127F123D1201A312031300A25A1206120E5A5A
5A126009157A8714>59 D<15C0140114031580A214071500A25C140EA2141E141CA2143C
143814781470A214F05CA213015CA213035C130791C7FCA25B130EA2131E131CA2133C13
38A21378137013F05BA212015BA212035BA2120790C8FC5A120EA2121E121CA2123C1238
A212781270A212F05AA21A437CB123>61 D<147F903801FFE090380780F890380E003C49
7F497F49148001781307017C14C001FC130316E0A2137090C7FC16F0A314FE903807FF83
90381F01C390397C00E7E049137748481337D807E0133F49131F484814C0121F48C7FCA2
481580127EA2ED3F0012FE48147EA2157C15FC5D4A5A007C495AA26C495A001E49C7FC6C
133E3807C0F83803FFE038007F8024307DAE25>64 D<1670A216F01501A24B7EA2150715
0DA2151915391531ED61FC156015C0EC0180A2EC03005C14064A7F167E5C5CA25C14E05C
4948137F91B6FC5B0106C7123FA25B131C1318491580161F5B5B120112031207000FED3F
C0D8FFF8903807FFFEA22F2F7DAE35>I<013FB6FC17C0903A00FE0007F0EE01F84AEB00
FC177E1301177F5CA21303177E4A14FEA20107EC01FC17F84AEB03F0EE07E0010FEC1FC0
EE7F009138C003FC91B55A4914FE9139C0003F804AEB0FC017E0013F140717F091C7FC16
035BA2017E1407A201FE15E0160F4915C0161F0001ED3F80EE7F004914FEED03F80003EC
0FF0B712C003FCC7FC302D7CAC35>I<000FB8FCA23B1FC003F8003F0100151F001C4A13
0E123C003801071406123000704A130EA20060010F140C12E0485CA2141FC715005DA214
3FA292C8FCA25CA2147EA214FEA25CA21301A25CA21303A25CA21307A25C130F131F001F
B512F0A2302D7FAC29>84 D<EB07E0EB1FF890387C1CE0EBF80D3801F00F3803E007EA07
C0120FD81F8013C0A2EA3F00140F481480127EA2141F00FE14005AA2EC3F02EC3E06A25A
EC7E0E007CEBFE0C14FC0101131C393E07BE18391F0E1E38390FFC0FF03903F003C01F1F
7D9D25>97 D<13F8121FA21201A25BA21203A25BA21207A25BA2120FEBC7E0EB9FF8EBB8
3C381FF01EEBE01F13C09038800F80EA3F00A2123EA2007E131FA2127CA2143F00FC1400
5AA2147EA2147C14FC5C387801F01303495A383C0F806C48C7FCEA0FFCEA03F0192F7DAD
1E>I<EB01F8EB0FFE90383E0780EB7C01D801F813C03803F0073807E00FEA0FC0018013
80121F48C8FCA25A127EA312FE5AA51560007C14E0EC01C0EC03806CEB0F00001E131C38
0F81F83807FFE0C648C7FC1B1F7D9D1F>I<151FEC03FFA2EC003FA2153EA2157EA2157C
A215FCA215F8A21401EB07E190381FF9F0EB7C1DEBF80FEA01F03903E007E0EA07C0120F
EA1F8015C0EA3F00140F5A007E1480A2141F12FE481400A2EC3F021506143E5AEC7E0E00
7CEBFE0C14FC0101131C393E07BE18391F0E1E38390FFC0FF03903F003C0202F7DAD24>
I<EB03F8EB0FFE90383E0780EBF803D801F013C03803E001EA07C0000F1303D81F801380
1407393F000F00141E387F01FCEBFFF091C7FC007EC8FC12FE5AA4127C156015E0EC01C0
6CEB0380EC0F006C131C380F81F83803FFE0C648C7FC1B1F7D9D21>I<157C4AB4FC9138
07C380EC0F87150FEC1F1FA391383E0E0092C7FCA3147E147CA414FC90383FFFF8A2D900
F8C7FCA313015CA413035CA413075CA5130F5CA4131F91C8FCA4133EA3EA383C12FC5BA2
5B12F0EAE1E0EA7FC0001FC9FC213D7CAE22>I<14FCEB03FF90380F839C90381F01BC01
3E13FCEB7C005B1201485A15F8485A1401120F01C013F0A21403121F018013E0A21407A2
15C0A2000F130F141F0007EB3F80EBC07F3803E1FF3800FF9F90383E1F0013005CA2143E
A2147E0038137C00FC13FC5C495A38F807E038F00F80D87FFEC7FCEA1FF81E2C7E9D22>
I<131FEA03FFA2EA003FA2133EA2137EA2137CA213FCA25BA21201143F9038F1FFC09038
F3C1F03803FF0001FC7F5BA2485A5BA25B000F13015D1380A2001F13035D1300140748EC
C04016C0003E130F1580007E148191381F0180007C1403ED070000FCEB0F06151E48EB07
F80070EB01E0222F7DAD29>I<1307EB0F80EB1FC0A2EB0F80EB070090C7FCA9EA01E0EA
07F8EA0E3CEA1C3E123812301270EA607EEAE07C12C013FC485A120012015B12035BA212
07EBC04014C0120F13801381381F01801303EB0700EA0F06131EEA07F8EA01F0122E7EAC
18>I<15E0EC01F01403A3EC01C091C7FCA9147CEB03FE9038078F80EB0E07131C013813
C01330EB700F0160138013E013C0EB801F13001500A25CA2143EA2147EA2147CA214FCA2
5CA21301A25CA21303A25CA2130700385BEAFC0F5C49C7FCEAF83EEAF0F8EA7FF0EA1F80
1C3B81AC1D>I<131FEA03FFA2EA003FA2133EA2137EA2137CA213FCA25BA2120115F890
38F003FCEC0F0E0003EB1C1EEC387EEBE07014E03807E1C09038E3803849C7FC13CEEA0F
DC13F8A2EBFF80381F9FE0EB83F0EB01F81300481404150C123EA2007E141C1518007CEB
F038ECF83000FC1470EC78E048EB3FC00070EB0F801F2F7DAD25>I<137CEA0FFCA21200
A213F8A21201A213F0A21203A213E0A21207A213C0A2120FA21380A2121FA21300A25AA2
123EA2127EA2127CA2EAFC08131812F8A21338133012F01370EAF860EA78E0EA3FC0EA0F
000E2F7DAD15>I<27078007F0137E3C1FE01FFC03FF803C18F0781F0783E03B3878E00F
1E01263079C001B87F26707F8013B00060010013F001FE14E000E015C0485A4914800081
021F130300015F491400A200034A13076049133E170F0007027EEC8080188149017C131F
1801000F02FCEB3F03053E130049495C180E001F0101EC1E0C183C010049EB0FF0000E6D
48EB03E0391F7E9D3E>I<3907C007E0391FE03FF83918F8783E393879E01E39307B801F
38707F00126013FEEAE0FC12C05B00815C0001143E5BA20003147E157C5B15FC0007ECF8
081618EBC00115F0000F1538913803E0300180147016E0001F010113C015E390C7EAFF00
000E143E251F7E9D2B>I<90387C01F89038FE07FE3901CF8E0F3A03879C0780D907B813
C0000713F000069038E003E0EB0FC0000E1380120CA2D8081F130712001400A249130F16
C0133EA2017EEB1F80A2017C14005D01FC133E5D15FC6D485A3901FF03E09038FB87C0D9
F1FFC7FCEBF0FC000390C8FCA25BA21207A25BA2120FA2EAFFFCA2232B829D24>112
D<903807E03090381FF87090387C1CF0EBF80D3801F00F3903E007E0EA07C0000F130338
1F800715C0EA3F00A248130F007E1480A300FE131F481400A35C143E5A147E007C13FE5C
1301EA3E07EA1F0E380FFCF8EA03F0C7FC13015CA313035CA21307A2EBFFFEA21C2B7D9D
20>I<3807C01F390FF07FC0391CF8E0E0383879C138307B8738707F07EA607E13FC00E0
EB03804848C7FCA2128112015BA21203A25BA21207A25BA2120FA25BA2121FA290C8FC12
0E1B1F7E9D20>I<EB07E0EB3FF8EB781EEBF0063801E0073803C00F141FA20007131E14
0CEBE00013F8EBFF806C13E06C13F06C13F8EB3FFC13011300147C0078133C12FCA2147C
48137800E013F814F0386001E0387807C0381FFF00EA07F8181F7C9D21>I<130E131FA2
5BA2133EA2137EA2137CA213FCA2B512F8A23801F800A25BA21203A25BA21207A25BA212
0FA25BA2001F1310143013001470146014E0381E01C0EB0380381F0700EA0F0EEA07FCEA
01F0152B7EA919>I<EA01E0D807F8130ED80E3C131FD81C3E5B0038143E12301270D860
7E137ED8E07C137C12C013FC484813FC00005C12015B140100035C13E0A2020313200007
ECE06013C0A216E0020713C00003EB0FC09038E01FC191383BE1803901F071E33A007FE0
FF0090381F803C231F7E9D29>I<D801E01370D807F813F8380E3C01D81C3E13FC123800
3013000070147CEA607ED8E07C133812C013FC485A0000143012015B1570000314605B15
E015C01207EBC00115801403EC070000031306EBE00E00015BEBF07838007FE0EB1F801E
1F7E9D22>I<D801E01570D807F890381C01F8D80E3C133ED81C3E017E13FC0038147C00
3015000070167CD8607E01FC1378D8E07C49133812C013FC3880F8010000163000015C13
F0020314700003166001E05BA217E00007010714C001C0EBC00117801603000316006D48
6C5A160E3A01F01DF01C3A00F838F83890397FF07FF090390FC00FC02E1F7E9D33>I<01
3F137C9038FFC1FF3A01C1E383803A0380F703C0390700F60F000E13FE4813FC12180038
EC0700003049C7FCA2EA200100005BA313035CA301075B5D14C000385CD87C0F130600FC
140E011F130C011B131C39F03BE038D8707113F0393FE0FFC0260F803FC7FC221F7E9D28
>I<EA01E0D807F8130ED80E3C131FD81C3E133F0038143E12301270D8607E137ED8E07C
137C12C013FC484813FC000014F812015B1401000314F013E0A21403000714E013C0A214
0715C00003130FEBE01F143F3901F07F8038007FEFEB1F8FEB001F1500A2003E133EA200
7E5B5C387C01F0387003E0383007C0383C0F80D80FFEC7FCEA03F0202C7E9D23>I<011E
1330EB3F809038FFC07048EBE0E0ECF1C03803C0FF9038803F80903800070048130EC75A
5C5C5C495A495A49C7FC131E13385B491340484813C0485A38070001000EEB0380380FE0
07391FF81F0038387FFF486C5A38601FFC38E00FF038C003C01C1F7D9D21>I
E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FG cmss10 10.95 6
/FG 6 118 df<B612F015FF16C016F016FC90C7EA3FFEED03FF03001380EE3FC0EE1FE0
160F17F0160717F81603A5160717F0160FA2EE1FE0EE3FC016FF03031380031F130090B6
5A16F85E16C04BC7FC5DEB0001811400816F7E153F82151F826F7EA26F7E1503826F7EA2
6F7EA2EE7F80163F17C0EE1FE0A2EE0FF0A2EE07F8EE03FCA2EE01FE2F3F78BE3B>82
D<EB03F8EB1FFF017F13C090B57E488048803807FE07390FF801FC9038E000FE4848137E
003F143E49133F90C77E5A127EED0F80B7FCA600FCC9FCA37E127EA2127FA26C7EA26C7E
6D14806C6C1303D807FC131F01FF13FF6C90B5FC7E6C6C14006D13FC010F13E0010190C7
FC212B7DA928>101 D<38FC01FF010713C0011F13F0017F13F890B512FC12FD39FFF80F
FEEBE003EBC00190388000FFA290C7127FA35AB3A9202979A82F>110
D<00FC137CEB03FC130F131F133F137FEBFFC038FDFE00EAFFF85B5B5BA25BA290C7FCA2
5AB3A6162979A81F>114 D<EA01F8ACB612E0A6D801F8C7FCB3A77F152015E03800FE07
90B512F0A27F6D13C06D1300EB0FF01C357EB321>116 D<00FE147FB3AC15FFA25C6C5B
6C130FEBC03F90B6FC6CEBFE7F6C13FC6C13E0000390C7FC202979A72F>I
E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FH cmtt10 10 93
/FH 93 127 df<121C127FEAFF80B1EA7F00AF123EC7FCA8121C127FA2EAFF80A3EA7F00
A2121C09346FB32C>33 D<003C131E007F137F481480A66C1400A6007E7FA6003E133EA3
003C131E001C131C191977B32C>I<010F133C90381F807EA8013F13FE4A5AA4007FB612
F0B712F8A4003F15F03A007E01F800A5EBFE0301FC5BA6003FB612F0B712F8A46C15F03A
01F807E000A30003130F01F05BA86C486C5A25337DB22C>I<EB01C0497EA6EB0FFC9038
7FFF8048B512E00007804880391FFBEFFC393FC3E1FE903803E07F007E80127C00FC1580
12F8157FA300FCEC3F00A2007E91C7FC127FEA3FC313FBEA1FFF6C13FC6C13FF000114C0
6C6C7F011F13F801037F14E7ECE1FEECE07F81001880007E1580150F12FFA312FE151F16
00007E5C007F143ED83F8313FE9038C3E1FC391FFBEFF86CB55A6C5C6C5CC691C7FCEB1F
F8EB03E0A66D5A21417BB92C>I<D807801307D81FE0EB0F80151F487E486C133F160000
7C5CD8FCFC137EEAF87C15FE5D14015DA21403D8FCFC5BEA7CF8007F13075D383FF00FD8
1FE05BA23807801FC75B143F92C7FCA25C147E14FE5CA213015CA213035C13075CA2130F
5C131FEC800FED3FC0013FEB7FE0140049EBFFF0017E13F9A2D9FE0113F801FC13F0A212
0113F8120313F015F90007010013F05B000F14FF49EB7FE0A20007EC3FC06C48EB0F0025
417DB92C>I<EB0FC0EB3FE0497E497E80EA01F8EBF07C147E0003133E13E0A5147E147C
9138FC3FF89039F0F87FFCEA01F1EBF3F001F7EB3FF89138E01F009038FFC03F6CEB803E
A2EC007E49137C485A486C13FC00075CEBFF01D80FDF5B381F9F81383F8F8390380FC3E0
387E07E75D38FC03F7EB01FF5D6D1410ED007C80A26CEBFF80D87E0113C0D87F03EBE0FC
3A3F87F7F1F89038FFE3FF6C01C113F06C13806C9038007FC0D801FCEB1F8026357EB32C
>I<EA0F80EA1FC0EA3FE013F0A213F8A2121F120F1200A4120113F0A2120313E01207EA
0FC0121FEA3F80EA7F0012FE5A5A12700D1B71B22C>I<143814FC13011303EB07F8EB0F
F0EB1FC0EB3F80EB7F0013FE485A485A5B12075B120F5B485AA2123F90C7FCA25A127EA3
12FE5AAC7E127EA3127F7EA27F121FA26C7E7F12077F12037F6C7E6C7E137FEB3F80EB1F
C0EB0FF0EB07F8EB03FC130113001438164272B92C>I<127012FC7E7E6C7E6C7EEA0FE0
6C7E6C7E6C7E6C7E137F7F1480131F14C0130FEB07E0A214F01303A214F81301A314FC13
00AC130114F8A3130314F0A2130714E0A2EB0FC0131F1480133F14005B13FE485A485A48
5A485AEA3FC0485A48C7FC5A5A1270164279B92C>I<EB0380497EA60020140800F8143E
00FE14FE00FF13C1EBC7C7EBE7CF003FB512F8000F14E0000314806C140038007FFCA248
B5FC481480000F14E0003F14F839FFE7CFFEEBC7C7EB07C100FE13C000F8143E00201408
00001400A66D5A1F247AAA2C>I<147814FCAF007FB612F0B712F8A46C15F0C700FCC7FC
AF147825267DAB2C>I<EA0F80EA1FE0EA3FF0EA7FF8A213FCA3123F121F120F120013F8
A21201EA03F01207EA1FE0EA7FC0EAFF80130012FC12700E17718A2C>I<007FB6FCB712
80A46C150021067B9B2C>I<121FEA3F80EA7FC0EAFFE0A5EA7FC0EA3F80EA1F000B0B70
8A2C>I<1507ED0F80151FA2153F16005D157E15FE5D14015D14035DA214075D140F5D14
1F5D143F92C7FC5C147E14FE5CA213015C13035C13075C130F5C131F5CA2133F91C8FC5B
137E13FE5B12015B12035B12075BA2120F5B121F5B123F90C9FC5A127E12FE5AA25A1278
21417BB92C>I<EB03F8EB0FFE90383FFF80497F90B57E3901FE0FF03903F803F848486C
7EEBE0004848137EA248487FA248C7EA1F80A2003E140F007E15C0A3007C140700FC15E0
AC6C140F007E15C0A46CEC1F80A36C6CEB3F00A26C6C137E6D13FE00075CEBF0016C6C48
5A3901FE0FF06CB55A6D5B6D5BD90FFEC7FCEB03F823357CB32C>I<1307497EA2131FA2
133F137F13FF5A1207127FB5FC13DF139FEA7C1F1200B3AE007FB512E0B612F0A36C14E0
1C3477B32C>I<EB0FF890387FFF8048B512E00007804814FC391FF80FFE393FE001FF90
3880007F48C7EA3F80007E141F00FE15C0150F6C15E01507A3127E123CC8FCA2150F16C0
151F1680153F16005D15FE4A5A14034A5A4A5A4A5A4A5AECFF804948C7FC495A495A495A
EB3FE0EB7F8049C8FC485A4848EB03C04848EB07E0EA1FE0485A48B6FCB7FCA36C15C023
347CB32C>I<EB0FFC90387FFF8048B512E0000714F84880391FF807FEEBC0004848137F
6D7F1680151FA26C5A6CC7FCC8FC153F16005D15FE14014A5AEC1FF890381FFFF0495BA2
15F86D7F90380007FEEC00FF81ED3F80ED1FC0150FA216E01507A2123C127EB4FC150F16
C0A248141F007FEC3F806DEB7F006C6C5B391FF807FE6CB55A6C5C6C14E0C66C1380D90F
FCC7FC23357CB32C>I<EC07F04A7E141F143FA2147EA214FCEB01F8A2EB03F0EB07E0A2
EB0FC0EB1F80A2EB3F00137EA25B485AA2485A5B1207485AA2485A48C7FCA2127E5AB712
FC16FEA36C15FCC8EAF800AA91387FFFF091B512F8A36E13F027347EB32C>I<000FB512
FE4880A35D0180C8FCADEB83FE90389FFF8090B512E015F8819038FE03FE9038F000FF01
C07F49EB3F8090C7121F6C15C0C8120FA2ED07E0A4123C127EB4FC150F16C0A248141F00
7EEC3F80007FEC7F006C6C5B6D485A391FF80FFC6CB55A6C5C000114C06C6C90C7FCEB0F
F823347CB22C>I<EC3FC0903801FFF801077F011F7F497F90387FE07F9039FF003F8048
48137FEA03F8485A5B000FEC3F004848131E4990C7FC123F90C9FCA25A127EEB03FE9038
1FFF80D8FC7F13E000FDB57EB67E9038FE07FC9038F001FE9038C0007F49EB3F8090C712
1F16C048140F16E01507A3127EA47E150F6D14C0001F141F6D1480000F143F6DEB7F0039
07F801FE3903FE07FC6CB55A6C5C6D5B011F1380D907FCC7FC23357CB32C>I<1278B712
C016E0A316C000FCC7EA3F80ED7F0015FE00785CC712014A5A4A5A5D140F5D4A5A143F92
C7FC5C147E14FE5C13015CA2495AA213075CA3495AA4495AA5133F91C8FCAA131E23357C
B32C>I<EB07FC90383FFF8090B512E0000314F84880390FFC07FE391FF001FF9038C000
7F4848EB3F8090C7121F4815C0007E140FA56CEC1F80A26C6CEB3F006D5B390FF001FE39
03FC07F86CB55A6C6C13C0D907FCC7FC90387FFFC048B512F03903FC07F8390FF001FE39
1FC0007F497F48C7EA1F80007EEC0FC0A248EC07E0A7007EEC0FC0A2007F141F6C6CEB3F
806C6CEB7F009038F001FF390FFC07FE6CB55A6C5CC614E0013F1380D907FCC7FC23357C
B32C>I<EB07FCEB3FFF90B512C0488048803907FC07F8390FF001FC48486C7ED83F8013
7E157F48C77E007EEC1F8012FE5AED0FC0A416E0A37E127E007F141F7E6D133F6C6C137F
390FF001FF3807FC0F6CB6FC6C14F76C14C7013F130FD90FF813C090C7FCA2151F168015
3F1600000F5C486C137E486C13FE4A5A4A5A14079038801FF0391FE07FE090B55A6C91C7
FC6C5B000113F838007FC023357CB32C>I<121FEA3F80EA7FC0EAFFE0A5EA7FC0EA3F80
EA1F00C7FCAE121FEA3F80EA7FC0EAFFE0A5EA7FC0EA3F80EA1F000B2470A32C>I<EA0F
80EA1FC0EA3FE0EA7FF0A5EA3FE0EA1FC0EA0F80C7FCAEEA0F80EA1FC0EA3FE0127F13F0
A4123F121F120F1201120313E01207EA0FC0A2EA3F80EA7F005A5A12F812700C3071A32C
>I<1507ED1F80153F15FF14034A1300EC1FFC4A5AECFFE0491380010790C7FCEB0FFCEB
3FF8EB7FE048485A4890C8FCEA0FFEEA1FF8EA7FF0EAFFC05BA27FEA7FF0EA1FF8EA0FFE
EA03FF6C13C06C6C7EEB3FF8EB0FFC6DB4FC01017F6D13E0EC3FF86E7EEC07FF6E138014
00153F151FED0700212A7BAD2C>I<007FB612F0B712F8A4003F15F0CAFCA8003FB612F0
B712F8A46C15F025147DA22C>I<127012FC7E6C7E13E06C7EEA1FFC6C7E3803FF80C67F
EB7FF0EB1FF8EB0FFEEB03FF6D13C06D6C7EEC3FF8EC0FFC6EB4FC0201138080A25C0207
1300EC0FFCEC3FF8EC7FE049485A4990C7FCEB0FFEEB1FF8EB7FF0EBFFC000035BD80FFE
C8FC485AEA7FF0485A138048C9FC5A1270212A7BAD2C>I<EB3FFE0003B512C0000F14F0
4814FC4880397FE007FF90C7FC00FEEC3F806C141FA3153F007EEC7F00003C5CC7EA03FE
EC0FFC4A5AEC3FE04A5A4AC7FC495A495A5C13075C130F5CA76D5A90C9FCA8EB0380EB0F
E0A2497EA36D5AA2EB038021337BB22C>I<EC7F80903803FFE0010F7F013F7F497F9038
FFC0FE3901FE007FD803F87F4848EB1F809038E00FCF390FC03FFF48484813C091B5FCEA
3F01393E03F87F903907F03FE0007EEBE01F397C0FC00FEC8007A2EAFC1F00F8EB0003A9
00FCEB8007D87C0F14C0A2ECC00F3A7E07E01F80003EEBF03F903903F87F00393F01FFFE
D81F805B6E5A6C6C6C5A3907E00FC09039F00007C06C6CEB0FE0D801FE131F3900FFC0FF
6DB512C06D1480010FEBFE00010313F89038007FC023337CB22C>I<14FE497EA4497FA2
14EFA2130781A214C7A2010F7FA314C390381F83F0A590383F01F8A490387E00FCA54913
7E90B512FEA34880A29038F8003FA34848EB1F80A4000715C049130FD87FFEEBFFFC6D5A
B514FE6C15FC497E27347EB32C>I<007FB512E015F8B612FE6C8016C03903F0003FED0F
E0ED07F01503A2ED01F8A6ED03F0A21507ED0FE0ED1FC0EDFF8090B612005D5D15FF16C0
9039F0001FE0ED07F0ED03F81501ED00FCA216FE167EA616FE16FC1501ED03F8150FED3F
F0007FB612E016C0B712806CECFE0015F027337FB22C>I<02FF13700107EBE0F84913F9
013F13FD4913FFEBFF813901FE007F4848131FD807F0130F1507485A491303485A150148
C7FCA25A007EEC00F01600A212FE5AAB7E127EA3007F15F06CEC01F8A26C7EA26C6C1303
6D14F06C6C130716E0D803FC131F6C6CEB3FC03A00FF81FF806DB512006D5B010F5B6D13
F00100138025357DB32C>I<007FB5FCB612C015F0816C803907E003FEEC00FFED7F8015
3FED1FC0ED0FE0A2150716F0150316F81501A4ED00FCACED01F8A3150316F0A2150716E0
150FED1FC0153FED7F80EDFF00EC03FE007FB55AB65A5D15C06C91C7FC26337EB22C>I<
007FB612F0B712F8A37E3903F00001A7ED00F01600A4EC01E04A7EA490B5FCA5EBF003A4
6E5A91C8FCA5163C167EA8007FB612FEB7FCA36C15FC27337EB22C>I<007FB612F8B712
FCA37ED803F0C7FCA716781600A515F04A7EA490B5FCA5EBF001A46E5A92C7FCAD387FFF
E0B5FC805C7E26337EB22C>I<903901FC038090390FFF87C04913EF017F13FF90B6FC48
13073803FC01497E4848137F4848133F49131F121F5B003F140F90C7FCA2127EED078092
C7FCA212FE5AA8913803FFF84A13FCA27E007E6D13F89138000FC0A36C141FA27F121F6D
133F120F6D137F6C7E6C6C13FF6D5A3801FF076C90B5FC6D13EF011F13CF6DEB0780D901
FCC7FC26357DB32C>I<D87FFEEBFFFCB54813FEA36C486C13FCD807E0EB0FC0B190B6FC
A59038E0000FB3D87FFEEBFFFCB54813FEA36C486C13FC27337EB22C>I<007FB512F8B6
12FCA36C14F839000FC000B3B3A5007FB512F8B612FCA36C14F81E3379B22C>I<0107B5
12804914C0A36D148090390003F000B3AF1218127EA2B4FCA24A5A48130F007F131F9038
C07FC06CB55A6C91C7FC6C5B000313F838007FC022347BB22C>I<D87FFCEB7FF8486CEB
FFFCA36C48EB7FF8D807C0EB1F80153FED7F00157E5D4A5A14034A5A5D4A5A4A5A143F4A
C7FC147E5CEBC1F813C3EBC7FCA2EBCFFEEBDFBEEBFFBF141F01FE7F496C7E13F86E7EEB
F00301E07FEBC001816E7EA2157E153E153F811680ED0FC0A2ED07E0D87FFCEB1FFC486C
EB3FFEA36C48EB1FFC27337EB22C>I<387FFFE0B57EA36C5BD803F0C8FCB3AE16F0ED01
F8A8007FB6FCB7FCA36C15F025337DB22C>I<D87FE0EB0FFC486CEB1FFEA26D133F007F
15FC000F15E001BC137BA4019E13F3A3EB9F01A2018F13E3A21483A2018713C314C7A201
831383A214EFA201811303A214FFEB80FEA3147C14381400ACD87FF0EB1FFC486CEB3FFE
A36C48EB1FFC27337EB22C>I<D87FF0EB7FFC486CEBFFFEA27F007FEC7FFCD807FEEB07
C013DEA213DF13CFA2148013C714C0A213C314E0A213C114F0A213C014F8A2147CA3143E
A2141E141FA2140F1587A2140715C7A2140315E71401A215F71400A215FFD87FFC137F48
7E153FA26C48EB1F8027337EB22C>I<EB7FFF0003B512E0000F14F848804880EBE003EB
800048C7127FA2007E80A300FE158048141FB3A86C143FA2007E1500A3007F5CA26C6C13
FEEBF00790B5FC6C5C6C5C000314E0C66C90C7FC21357BB32C>I<007FB512C0B612F881
15FF6C15802603F00013C0153FED0FE0ED07F0A2150316F81501A6150316F01507A2ED0F
E0ED3FC015FF90B61280160015FC5D15C001F0C8FCB0387FFF80B57EA36C5B25337EB22C
>I<EB7FFF0003B512E0000F14F848804880EBF007EB800048C7127FA2007E80A300FE15
8048141FB3A7EB01F0EB03F800FE143F267E01FC1300A2EB00FE007F5C147FD83F8013FE
EBF03F90B5FC6C5C6C5C000314E0C67E90380007F0A26E7EA26E7EA26E7EA2157FA2153E
21407BB32C>I<387FFFFCB67E15E015F86C803907E007FE1401EC007F6F7E151FA26F7E
A64B5AA2153F4BC7FCEC01FE140790B55A5D15E081819038E007FCEC01FE1400157F81A8
160FEE1F80A5D87FFEEB1FBFB5ECFF00815E6C486D5AC8EA01F029347EB22C>I<90381F
F80790B5EA0F804814CF000714FF5A381FF01F383FC003497E48C7FC007E147F00FE143F
5A151FA46CEC0F00007E91C7FC127F7FEA3FE0EA1FFCEBFFC06C13FC0003EBFFC06C14F0
6C6C7F01077F9038007FFEEC07FF02001380153FED1FC0A2ED0FE0A20078140712FCA56C
EC0FC0A26CEC1F806D133F01E0EB7F009038FE01FF90B55A5D00F914F0D8F83F13C0D870
0790C7FC23357CB32C>I<007FB612FCB712FEA43AFC007E007EA70078153CC71400B3AF
90383FFFFCA2497F6D5BA227337EB22C>I<3B7FFF803FFFC0B56C4813E0A36C496C13C0
3B03F00001F800B3AF6D130300015DA26D130700005D6D130F017F495A6D6C485AECE0FF
6DB5C7FC6D5B010313F86D5B9038003F802B3480B22C>I<D87FFCEB7FFC486CEBFFFEA3
6C48EB7FFCD80FC0EB07E06D130F000715C0A36D131F00031580A36D133F00011500A36D
5B0000147EA4017E5BA46D485AA490381F83F0A4010F5B14C7A301075BA214EFA201035B
A214FFA26D90C7FCA46D5A27347EB22C>I<D87FF0EB07FF486C491380A36C486D130000
1FC8127CA46C6C5CA76C6C495AA4143E147FA33A03E0FF83E0A214F7A201E113C3A30001
01E35BA201F113C701F313E7A314C1A200005DA201F713F71480A301FF13FF017F91C7FC
4A7EA4013E133E29347FB22C>I<3A3FFF03FFE0484913F0148714076C6D13E03A01F800
FE007F0000495A13FE017E5BEB7F03013F5B1487011F5B14CF010F5B14FF6D5BA26D90C7
FCA26D5AA26D5AA2497EA2497EA2497F81EB0FCF81EB1FC7EC87F0EB3F83EC03F8EB7F01
017E7FEBFE00497F0001147E49137F000380491480151FD87FFEEBFFFC6D5AB514FE6C15
FC497E27337EB22C>I<D87FFCEB7FFC486CEBFFFEA36C48EB7FFCD807F0EB0FC0151F00
0315806D133F12016DEB7F0012006D137E017E13FE017F5BEB3F01EC81F8131FEC83F0EB
0FC314C7903807E7E0A201035B14EF6DB45AA292C7FC7F5C147EB0903807FFE0497FA36D
5B27337EB22C>I<003FB612C04815E0A4007EC7EA1FC0ED3F80A2ED7F00157E15FE4A5A
003C5CC712034A5AA24A5A4A5AA24A5A4AC7FCA214FE495AA2495A495AA2495A495AA249
5A49C8FCA213FE485AA24848EB03C049EB07E01207485A5B121F485AA248C7FCB7FCA46C
15C023337CB22C>I<387FFFFCB512FEA314FC00FCC7FCB3B3B3B512FC14FEA36C13FC17
416FB92C>I<127812F87EA27E127E127F7E7F121F7F120F7F1207A27F12037F12017F12
007F137E137F7F80131FA280130F801307801303801301801300A280147E147F8081141F
81140F811407811403A281140181140081157E157F811680151FA2150FED070021417BB9
2C>I<387FFFFCB512FEA37EC7127EB3B3B3387FFFFEB5FCA36C13FC17417DB92C>I<130E
EB3F80EBFFE0000313F8000F13FE487FD87FF113C0D8FFE013E0EB803F38FE000F007CEB
07C00030EB01801B0C78B22C>I<007FB6FCB71280A46C150021067B7D2C>I<3801FFF000
0713FE001F6D7E15E048809038C01FF81407EC01FC381F80000006C77EC8127EA3ECFFFE
131F90B5FC1203120F48EB807E383FF800EA7FC090C7FC12FE5AA47E007F14FEEB800338
3FE01F6CB612FC6C15FE6C14BF0001EBFE1F3A003FF007FC27247CA32C>97
D<EA7FF0487EA3127F1201AAEC1FE0ECFFF801FB13FE90B6FC16809138F07FC09138801F
E091380007F049EB03F85BED01FC491300A216FE167EA816FE6D14FCA2ED01F86D13036D
EB07F0150F9138801FE09138E07FC091B51280160001FB5B01F813F83900F03FC027337F
B22C>I<903803FFE0011F13F8017F13FE48B5FC48804848C6FCEA0FF0485A49137E4848
131890C9FC5A127EA25AA8127EA2127F6C140F6DEB1F806C7E6D133F6C6CEB7F003907FE
03FF6CB55A6C5C6C6C5B011F13E0010390C7FC21247AA32C>I<EC0FFE4A7EA380EC003F
AAEB07F8EB3FFE90B512BF4814FF5A3807FC0F380FF00348487E497E48487F90C7FC007E
80A212FE5AA87E007E5CA2007F5C6C7E5C6C6C5A380FF0073807FC1F6CB612FC6CECBFFE
6C143FEB3FFC90390FF01FFC27337DB22C>I<EB03FE90381FFFC0017F13F048B57E4880
3907FE03FE390FF800FFD81FE0EB3F805B4848EB1FC090C7120F5A007E15E015075AB7FC
A416C000FCC9FC7E127EA2127F6CEC03C06DEB07E06C7ED80FF0130F6C6CEB3FC001FF13
FF000190B512806C1500013F13FC010F13F00101138023247CA32C>I<EC0FF8EC3FFE91
B5FC4914805B903807FC7F14F090390FE03F0014C092C7FCA6007FB512FEB7FCA36C5C26
000FC0C7FCB3A8003FB512F04880A36C5C21337DB22C>I<ED03F8903907F80FFC90391F
FE3FFE017FB6FC48B7FC48ECFE7F9038FC0FF82607F003133E3A0FE001FC1CD9C0001300
001F8049137EA66D13FE000F5CEBE0016C6C485A3903FC0FF048B5FC5D481480D99FFEC7
FCEB87F80180C8FCA37F6C7E90B512F06C14FE48ECFF804815E04815F03A3FC0001FF848
C7EA03FC007E1400007C157C00FC157E48153EA46C157E007E15FCD87F801303D83FE0EB
0FF8D81FFCEB7FF06CB612E0000315806C1500D8003F13F8010713C028387EA42C>I<EA
7FF0487EA3127F1201AAEC1FE0EC7FFC9038F9FFFE01FB7F90B6FC9138F03F80ECC01F02
807FEC000F5B5BA25BB3267FFFE0B5FCB500F11480A36C01E0140029337FB22C>I<1307
EB1FC0A2497EA36D5AA20107C7FC90C8FCA7387FFFC080B5FC7EA2EA0007B3A8007FB512
FCB612FEA36C14FC1F3479B32C>I<140EEC3F80A2EC7FC0A3EC3F80A2EC0E0091C7FCA7
48B512804814C0A37EC7120FB3B3A2141F003C1480007E133FB414005CEB01FEEBFFFC6C
5B5C001F5B000790C7FC1A467CB32C>I<EA7FE0487EA3127F1201AA91381FFFF04A13F8
A36E13F0913800FE004A5A4A5A4A5A4A5A4A5A4A5A4AC7FC14FEEBF1FC13F3EBF7FE90B5
FCA2EC9F80EC0FC001FE7FEBFC07496C7E496C7E811400157E811680151F3A7FFFC0FFFC
B500E113FEA36C01C013FC27337EB22C>I<387FFFE0B57EA37EEA0003B3B3A5007FB612
80B712C0A36C158022337BB22C>I<3A7F83F007E09039CFFC1FF83AFFDFFE3FFCD87FFF
13FF91B57E3A07FE1FFC3E01FCEBF83F496C487E01F013E001E013C0A301C01380B33B7F
FC3FF87FF0027F13FFD8FFFE6D13F8D87FFC4913F0023F137F2D2481A32C>I<397FF01F
E039FFF87FFC9038F9FFFE01FB7F6CB6FC00019038F03F80ECC01F02807FEC000F5B5BA2
5BB3267FFFE0B5FCB500F11480A36C01E0140029247FA32C>I<EB07FCEB1FFF017F13C0
48B512F048803907FC07FC390FF001FE48486C7E0180133F003F158090C7121F007EEC0F
C0A348EC07E0A76C140F007E15C0A2007F141F6C15806D133F6C6CEB7F006D5B6C6C485A
3907FC07FC6CB55A6C5C6C6C13C0011F90C7FCEB07FC23247CA32C>I<397FF01FE039FF
F8FFF801FB13FE90B6FC6C158000019038F07FC09138801FE091380007F049EB03F85BED
01FC491300A216FE167EA816FE6D14FCA2ED01F86D13036DEB07F0150F9138801FE09138
E07FC091B51280160001FB5B01F813F8EC3FC091C8FCAD387FFFE0B57EA36C5B27367FA3
2C>I<903903FC078090391FFF0FC0017F13CF48B512EF4814FF3807FE07380FF0014848
7E49137F4848133F90C7FC48141F127E150F5AA87E007E141FA26C143F7F6C6C137F6D13
FF380FF0033807FC0F6CB6FC6C14EF6C6C138F6D130FEB07F890C7FCAD0203B5FC4A1480
A36E140029367DA32C>I<D87FFEEB3FC0B53801FFF0020713F8021F13FC6C5B39003F7F
E1ECFF019138FC00F84A13704A13005CA25C5CA391C8FCAF007FB512E0B67EA36C5C2624
7EA32C>I<90387FF8700003B512F8120F5A5A387FC00F387E00034813015AA36CEB00F0
007F140013F0383FFFC06C13FE6CEBFF80000314E0C66C13F8010113FCEB0007EC00FE00
78147F00FC143F151F7EA26C143F6D133E6D13FE9038F007FC90B5FC15F815E000F81480
39701FFC0020247AA32C>I<131E133FA9007FB6FCB71280A36C1500D8003FC8FCB1ED03
C0ED07E0A5EC800F011FEB1FC0ECE07F6DB51280160001035B6D13F89038003FE0232E7E
AD2C>I<3A7FF003FF80486C487FA3007F7F0001EB000FB3A3151FA2153F6D137F3900FE
03FF90B7FC6D15807F6D13CF902603FE07130029247FA32C>I<3A7FFF01FFFCB514FE14
8314016C15FC3A03E0000F80A26D131F00011500A26D5B0000143EA26D137E017C137CA2
017E13FC013E5BA2EB3F01011F5BA21483010F5BA214C701075BA214EF01035BA214FF6D
90C7FCA26D5A147C27247EA32C>I<D87FFFEB7FFF6EB5FCB515806C16004A7ED807C0EB
01F0A66C6C495AA3143E147FA2D801F0495AECFF87A214F7A201F113C700005D9038F9E3
CFA201FB13EFA3D97BC190C7FC017F13FFA21480A2013F5B90381F007C29247FA32C>I<
3A3FFF03FFF048018713F8A36C010313F03A00FC007E005D90387E01F8013F5BEB1F83EC
87E090380FCFC0903807EF80EB03FF6D90C7FC5C6D5A147C14FE130180903803EF809038
07CFC0EB0FC7EC83E090381F01F0013F7FEB7E00017C137C49137E0001803A7FFF01FFFC
1483B514FE6C15FC140127247EA32C>I<3A7FFF01FFFCB5008113FE148314816C010113
FC3A03E0000F806C7E151F6D140012005D6D133E137C017E137E013E137CA2013F13FC6D
5BA2EB0F815DA2EB07C1ECC3E0A2EB03E3ECE7C0130114F75DEB00FFA292C7FC80A2143E
A2147E147CA214FC5CA2EA0C01003F5BEA7F83EB87E0EA7E0F495A387FFF806C90C8FC6C
5A6C5AEA07E027367EA32C>I<003FB612E04815F0A4007EC7EA1FE0ED3FC0ED7F80EDFF
004A5A003C495AC7485A4A5A4A5A4A5A4A5A4AC7FCEB01FC495AEB0FF0495A495A495A49
C8FC4848EB01E04848EB03F0485A485A485A485A485AB7FCA46C15E024247DA32C>I<15
FF02071380141F147F91B512004913C04AC7FCEB03F85CB31307EB1FE013FF007F5BB55A
49C8FC6D7E6C7FC67F131FEB07F01303B380EB01FEECFFC06D13FF6E1380141F14070200
130021417BB92C>I<127812FCB3B3B3A9127806416DB92C>I<EA7FC0EAFFF813FE6D7E6C
7FC67F131FEB07F01303B380EB01FEECFFC06D13FF6E1380141F147F91B512004913C04A
C7FCEB03F85CB31307EB1FE013FF007F5BB55A49C8FC13F8EA7FC021417BB92C>I<01F8
1370D803FE13F8380FFF0148138748EBCFF0397F9FFFE0D8FF0F13C0D8FC07138039F803
FE00387000F81D0A79B22C>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FI cmbx12 20.74 25
/FI 25 121 df<EE3FFF0307B512F8033F14FF4AB712E0020716F8021F16FE4AD9F8077F
91B5D8C00014C04991C7003F7F4901FC020F7F49496E7F49496E7F49496E7F49496E7F4B
81498590B5C96C7FA24849707FA24886A248864A824886A34886A448864A82A4481B80A8
B51AC0B3AA6C1B80A86C1B006E5EA46C62A36C62A36C6D4C5BA36C62A26C6D4C5BA26C6E
4B5B6D616F92B5FC6D96C7FC6D6D4A5B6D6D4A5B6D6D4A5B6D6D4A5B6D01FF023F5B6D02
C090B55A6ED9F8075C021F90B648C8FC020716F8020116E06E6C1580030702F8C9FCDB00
3F90CAFC527379F061>48 D<EE01F0EE07F8160F163F167FED01FF150F153F4AB5FC143F
010FB6FCB8FCA54A7E14C0EBF000C8FCB3B3B3B3AE007FBA12F0A8447171F061>I<9238
0FFFE04AB67E020F15F0027F15FE49B87E4917E0010F17F8013F8349D9C01F14FF9027FF
FC0001814801E06D6C80480180021F804890C86C8048486F8048486F8001FF6F804801C0
6E8002F081486D18806E816E18C0B5821BE06E81A37214F0A56C5BA36C5B6C5B6C5B0003
13C0C690C9FC90CA15E060A34E14C0A21B80601B0060626295B55A5F624D5C624D5C4D91
C7FC614D5B4D13F04D5B6194B55A4C49C8FC4C5B4C5B4C13E04C5B604C90C9FCEE7FFC4C
5A4B5B4B5B4B0180EC0FF04B90C8FC4B5A4B5A4B48ED1FE0EDFFE04A5B4A5B4A90C9FC4A
48163F4A5ADA3FF017C05D4A48167F4A5A4990CA12FFD903FC160749BAFC5B4919805B5B
90BBFC5A5A5A5A481A005A5ABCFCA462A44C7176F061>I<923801FFFE033FEBFFF84AB7
FC020F16E0023F16F84A16FE49B97E49DA003F80010F01F0010714F04901800101804948
C880D97FF86F7F02E081496C834801FC6F148014FF486E6E14C08181481AE081A96C5C1B
C06C4A5C6C5C6D90C815806D5AD90FF85D90CA150062606295B55A4D5C624D5C4D5C4D91
C7FC4D13FC4D5B4CB512E0047F1480037FB548C8FC92B612F818C018F8F0FF806F15F092
C7003F13FC050713FF050114C071807213F8727F727F867214801BC07214E01BF0A27214
F81BFCA37214FEA31BFFEBFF80000313E0487F001F13FC487FA2487FA2B67EA31BFEA360
1BFCA292C8FC6C1AF84A5D4A18F06C494B14E05C6C01C04B14C06C90C915804E14006C6D
4B5B6C01F092B55A6C01FC4A5C27007FFFC001075C6D01FE013F14C0010F90B85A6D4DC7
FC010117F8D9003F16E0020F93C8FC020015F0030749C9FC507378F061>I<F10FF04F7E
193FA2197F19FF60A260606060A2606095B5FCA25F5F5FA25F5F5F5F18BFEFFF3F5EEE03
FE17FCEE07F8160FEE1FF0EE3FE017C0167FEEFF804B13005E4B5A15074B5A4B5A5E153F
4B5A4B5A93C7FC4A5A14034A5A5D4A5A141F4A5A4A5A5D4AC8FC5B495A5C495A130F495A
495A5C137F495A4890C9FC5B485A1207485A485A5B123F485A485A90BC12FCA8CB02F8C7
FCB3A20307B912FCA856727BF161>I<0170187001FEEF01F86D6C160F02F8167FDAFF80
EC07FF03FE49B5FC92B85A6262A26297C7FC61616119E061614EC8FC18F86018C095C9FC
17F817C0020701F8CAFC91CDFCB0923801FFFC031FEBFFE092B612FC020315FF020F16C0
4A16F0027FD9003F7FDAFFF0010F13FE038001037F4AC76C8002F86E804A6F7F4A6F7F4A
834A6F7F91C980137E017C707F90CAFC1B80A21BC0A2841BE0A51BF0A313FE3803FF8000
0F7F4813F0487F5A80B5FCA41BE0A44E14C05C7E4A18805C4A5D6C90C9150001E0606C6C
5E6D606C6C4C5B7F000794B55A6C6C6C4A5C6C6D4A5C6E4A5C26007FF8021F49C7FC6DB4
027F5B6DD9F007B55A6D90B712E0010317806D4CC8FC6D6C15F8021F15C002034AC9FCDA
003F13804C7376F061>I<94381FFF800403B512F8043F14FE4BB77E030782031F16F003
7F8292B5D8FC017F02039139C0001FFE4A49C7EA07FF021F01F8804A496E13804A01C014
0F91B548023F13C04991C85A494992B5FC49494A14E0495B495E5D5B495BA290B55A5A5D
487114C0A24891C91480731300735A48F00FF896C8FC485BA45AA44849903807FFE0041F
13FE047FEBFFC04BB612F84B81030F15FFB590261FF8038092273FC0007F13E04C011F7F
037EC76C7F4B6E7F02FD6F7F4B6E7FDAFFF017804B6E14C01BE05D7313F05D1BF8A292C9
14FC85A24A18FEA41BFFA26C5BA87EA4807EA21BFE7EA37E1BFC6E5E6C1AF8A27E6F17F0
6C95B512E06D7F1BC06D6D4A14806D4C1400816D6D4A5B6D6D4A5B6D01FF4A13F001006E
017F5B6ED9F007B55A6E90B7C7FC020F5E020316F86E16E0DA003F1580030702FCC8FCDB
007F1380507378F061>I<EA03FCA2487E7F14C0ECFFF092BA12C0A45AA31C801C0063A2
486263636363A26398C7FC48616249CAEA0FF801F0171F494D5A4F5A49604F5A007F4D90
C8FC60494C5A4E5A614E5A4E5A48CA127F4E5A4D5B96C9FCCA485A4D5A170F4D5A60173F
4D5A6017FF4C5BA25E4C90CAFCA24C5A161FA24C5AA2167FA24C5AA25DA24B5BA25DA25D
A25F5DA25DA35DA392B5FCA25FA25CA45CA75CAD6E5CA26E91CBFCA26E5BED3FF8ED0FE0
527775F461>I<93B57E031F14FC92B77E020316F0020F16FC023F16FF4A8349B5D88003
14E04901F8C7003F7F4901C0020F7F4990C800037FD91FFC6F7F49486F6C7E137F4A7013
804948827313C05A4A821BE05AA285487FA38080806E5E8003C017C08103F85D03FE1780
6F6C5C6C6F160004F05C04FC4A5A6C6F5D706C13FFDDE0015B6CDCF8035BDDFC0F13C06D
DBFF1F5B6D93B5C7FC19FC6D17F06D5F6D17806D17E06D836D6C16FC6E16FF020F836E17
E06E83020F83023F8391B97E4984010701F0178049D9C07F16C0013FD9801F16E049EB00
074948010116F048497F4849023F15F84849140F4A6E15FC48160148496E6C14FE4A151F
488391C9120348050014FF193F49838500FF84854983A28586A3861BFEA27FA2007F1AFC
7F1A7F1BF86C7FF2FFF06C7F6E4C13E06C6D4C13C06C6D5E6E4C13806C6D4C13006C6D6C
ED7FFE6C02E04A485A013F01FC020F13F06D9026FFC001B55A010791B712806D95C7FC01
0017FC021F16F002071680DA007F02FCC8FC030191C9FC507378F061>I<93B5FC031F14
F092B612FE02076F7E021F16E04A16F891B87E49DAF00713FF0107DA0001804901FC6D6C
7F49496E7F49496E7F49496E7F90B5486E7F484A8048854891C86C7FA2487114805C481A
C0A2487213E0A2484918F0A31BF8A2B5FCA27313FCA51BFEA71BFF61A27EA46C95B6FCA2
806C5FA27E606C7F607E6C6E5C6CEF1FBF6D6DEC3F3F6D7F6D6D14FE6D6DEB01FC6D01FE
130701019039FFC01FF86D91B500F014FE023F15C06E15800203ECFE00DA007F13F80307
13C092C9FC4F13FCA41BF8A31BF0D91FF093B5FCEB7FFC496C18E0487F486E17C0604880
1B804E1400A26260624E5B4B5C626C91C8485B4A4B5B4A92B55A6C01F04A91C7FC02804A
5B6C01E0020F5B6D6C023F13F002FE91B55A90273FFFE00F5C6D90B7C8FC010716FC6D16
F0010016C0023F92C9FC020714F09126007FFECAFC507378F061>I<F103F84F7E4F7EA2
4F7EA34F7FA24F7FA396B57EA24E80A34E80A24E80A34E80A24E80A34E81A24E81A219BF
DEFF9F80191F4D6D80A218FE05036D8018FC05076D80A218F8050F6D8018F0051F6D80A2
60053F6E8060057F6E80A26005FF6E8095C7FC4C6F80A25F04036F805F04076F80A25F04
0F6F805F041F6F80A25F043F70805F047F7080A25F04FF708094C9FC4B7180A25E030371
805E4BBB7EA34B86A24B86A3DB3FE0CA6C805E037F7280A25E03FF7280A24A90CB6C80A2
5D02037380A24A487280A25D020F7380A24B84021F885D023F7480A24B85027F895D9026
07FFFC7380B86C031FB912E0A8837979F892>65 D<96267FFFE01670063FB6ED01F80503
B700F01403053F04FC14074CB96C130F040706E0131F043F72133F93BA00FC137F0303DC
00076D13FF030F03C09039003FFF814B02FCC8000713C3037F02E0030113F792B600806F
6CB5FC02034ACA121F4A02F8834A02E0834A4A1701027F4A8391B548CC7E494A85495C4C
854988494A85494A85495C8A4991CDFC90B54886A2484A1B7FA2481E3F5D481E1F5D5A1F
0FA2485CA3481E075DA2F703F0489BC7FCA45DA2B6FCB27EA281A47EA2F703F06FF307F8
7EA36C80A21F0F7E6F1CF07E6F1B1F7E20E06C6E1B3F816DF57FC06D80F7FF806D806D6E
4F13006D6E616D525A826D6E4F5A6D6E4F5A6E6D6C4E5A021F6EF0FFE06E6E4D5B6E02F8
4D5B6E02FE050F90C7FC02006E6CEE3FFE6F02F0EEFFFC031F02FE03035B6FDAFFC0021F
13E0030303FF0103B55A030093B7C8FC043F18FC040718F0040118C0DC003F94C9FC0503
16F8DD003F1580DE007F01F0CAFC757A75F78C>67 D<BA12F8A8C7001F02C0C7FCB3B3B3
B3B3ACBA12F8A83D767BF548>73 D<BC12FCF3FFF01CFF1DE01DFC1DFF1EC08AC7003F91
C8000115F8E0000F80090180756C6D7E76801C0F76808B7680888B7680A28BA2892080A4
20C0AB2080A49AB61200A267A2676467525C64670A1F5C525C5291C7FC51B55A090F14F8
50B65A94BA12C09BC8FC1DFC1DF09AC9FC1CF809FCCAFC0580CEFCB3B3A8BA12E0A87276
7AF584>80 D<BA057FB71280A8C792CD000F01F0C7FC71070013806E5290C8FCA26E6E62
1F036E6E621F07836E525A836E651F1F6E6E621F3F836E525A836E651FFF6F6E96C9FC66
6F6E601E03846F505AA26F6E601E0F6F6E601E1F846F505AA26F6E601E7F6F6E601EFF85
704E90CAFCA2706E5E1D03706E5E1D0785704E5AA2706E5E1D1F706E5E1D3F85704E5A85
70611DFF716E92CBFC6486714C5A86715F1C07716E5C1C0F86714C5A86714C5AA2716E5C
1C7F716E5C1CFF8772028190CCFCA272ECC1FE1BC372ECE3FC1BE71BF772ECFFF8A2725D
A2725DA3725DA2725DA27391CDFCA3735BA2735BA2735BA3735BA2735BA2735BA2735B74
CEFC89787CF592>86 D<92383FFFF80207B612E0027F15FC49B87E010717E0011F834990
26F0007F13FC4948C7000F7F90B502036D7E486E6D806F6D80727F486E6E7F8486727FA2
8684A26C5C72806C5C6D90C8FC6D5AEB0FF8EB03E090CAFCA70507B6FC041FB7FC0303B8
FC157F0203B9FC021FECFE0391B612800103ECF800010F14C04991C7FC017F13FC90B512
F04814C0485C4891C8FC485B5A485B5C5A5CA2B5FC5CA360A36E5DA26C5F6E5D187E6C6D
846E4A48806C6D4A4814FC6C6ED90FF0ECFFFC6C02E090263FE07F14FE00019139FC03FF
C06C91B6487E013F4B487E010F4B1307010303F01301D9003F0280D9003F13FC020101F8
CBFC57507ACE5E>97 D<97380FFFE00607B6FCA8F00003190086B3AD93383FFF800307B5
12F8033F14FF4AB712C0020716F0021F16FC027F9039FE007FFE91B500F0EB0FFF010302
80010190B5FC4949C87E49498149498149498149498190B548814884484A8192CAFC5AA2
485BA25A5C5AA35A5CA4B5FCAF7EA4807EA37EA2807EA26C7F616C6E5D6C606C80616D6D
5D6D6D5D6D6D92B67E6D6D4A15FC010301FF0207EDFFFE6D02C0EB3FFE6D6C9039FC01FF
F86E90B65A020F16C002031600DA007F14FC030F14E09226007FFEC749C7FC5F797AF76C
>100 D<93387FFF80030FB512FC037FECFF804AB712E0020716F8021F16FE027FD9F807
7F49B5D8C000804991C7003F13E04901FC020F7F49496E7F49498049496E7F49496E7F90
B55A48727E92C914804884485B1BC048841BE0485BA27313F05AA25C5AA21BF885A2B5FC
A391BAFCA41BF002F8CCFCA67EA3807EA47E806CF103F0F207F86C7F1A0F6C6E17F06C19
1F6F17E06C6E163F6D6DEE7FC06D6D16FF6D6D4B13806D6D4B13006D6D6CEC0FFE6D02E0
EC3FFC6D02F8ECFFF86D9126FFC00F5B023F91B65A020F178002034CC7FC020016F8031F
15E0030392C8FCDB000F13E04D507BCE58>I<903801FFFCB6FCA8C67E131F7FB3AD9538
0FFFE095B512FE05036E7E050F15E0053F15F84D81932701FFF01F7F4CD900077FDC07FC
6D80DC0FF06D80DC1FC07F4C48824CC8FC047E6F7F5EEDFDF85E03FF707F5EA25EA25EA2
93C9FCA45DB3B3A6B8D8E003B81280A8617879F76C>104 D<EB01FCEB07FF011F13C049
7F497F90B57EA24880A24880A76C5CA26C5CA26D5B6D5B6D5B010790C8FCEB01FC90CAFC
B2903801FFFC007FB5FCA8C67E131F7FB3B3B3A5B81280A8297979F835>I<902601FFF8
91380FFFE0B692B512FE05036E7E050F15E0053F15F84D81932701FFF01F7F4CD900077F
DC07FC6D80C66CDA0FF06D80011FDA1FC07F6D4A48824CC8FC047E6F7F5EEDF9F85E03FB
707F5E15FF5EA25EA293C9FCA45DB3B3A6B8D8E003B81280A8614E79CD6C>110
D<902601FFFCEC7FFEB6020FB512F0057F14FE4CB712C0040716F0041F82047F16FE93B5
C66C7F92B500F0010F14C0C66C0380010380011F4AC76C806D4A6E8004F06F7F4C6F7F4C
6F7F4C8193C915804B7014C0861DE0A27414F0A27414F8A47513FCA57513FEAF5113FCA5
98B512F8A31DF0621DE0621DC0621D806F5E701800704B5B505B704B5B7092B55A04FC4A
5C704A5C706C010F5C05E0013F49C7FC9227FE7FFC01B55A70B712F0040F16C0040393C8
FC040015F8053F14C0050301F0C9FC94CCFCB3A6B812E0A85F6F7ACD6C>112
D<902601FFF8EB07FEB691383FFFC094B512F00403804C14FE4C8093261FFC3F13809326
3FE07F13C0DC7F80B5FCC66C5D011FDAFE0114E06DEBF9FC16F815FB16F016E015FF16C0
7114C05E72138095381FFE0093C76C5AF001E095C8FCA25DA65DB3B3A2B812F8A8434E7A
CD4F>114 D<15FFA75CA55CA45CA25CA25CA25CA25C91B5FCA25B5B5B131F5B90B9FC12
0FBAFCA6D8000791C9FCB3B3A3F01FE0AE183F7014C07F187F7014806D16FF826D4B1300
6E6D485AEEFE0F6E90B55A020F5D6E5D020115C06E6C5C031F49C7FC030113F03B6E7CEC
4B>116 D<007FB7023FB612F0A8D8000302C0020191C7FC6D6E9138007FF0705E6D4E5A
6E6D4A5B6E6D4A90C8FC6E6D5C704A5A6E4C5A6E6E5C6E6E495A6E6E495A7113FF6E6E48
5B6F4A5B6F6D4890C9FC6F01FE5B71485A6FEC9FF86F14BF6FECFFF06F5D616F5D7091CA
FC705B828470808270807080854C805E4C80854C804C81EE7FE7DCFFE3804B01C1804B01
80804D804B487F4B486D7F031F6E7F4B486D7F4B48824B487F4C6D804A496D804A90C880
4A844A48814A486F7F4A486F7F4B6F7F4A48844A486F80010F01F881B76C91B712FEA85F
4D7DCC66>120 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FJ cmtt10 10.95 95
/FJ 95 127 df<EB01C0EB0FE0EB3FF0EA01FF1207001F13E0007F13C0B5120013F813E0
EA7F80007CC7FC140C6FB730>19 D<121C127FEAFF80B3EA7F00B2123EC7FCA8121C127F
A2EAFF80A3EA7F00A2121C09396DB830>33 D<00101304007C131F00FEEB3F80A26C137F
A248133FB2007E1400007C7F003C131E00101304191C75B830>I<903907C007C0A2496C
487EA8011F131FA202C05BA3007FB7FCA2B81280A36C16006C5D3A007F807F80A2020090
C7FCA9495BA2003F90B512FE4881B81280A36C1600A22701FC01FCC7FCA300031303A201
F85BA76C486C5AA229387DB730>I<1438147C14FCA4EB03FF011F13E090B512FC488000
0780481580261FFEFD13C09039F0FC3FE0D83FC0131FD87F80EB0FF001001307007E15F8
00FE14035A1507A36CEC03F0A2007F91C7FC138013C0EA3FF0EA1FFE13FF6C13FF6C14E0
000114F86C6C7F011F7F01037F0100148002FD13C09138FC7FE0151FED0FF015070018EC
03F8127E1501B4FCA35AA26CEC03F07E01801307ED0FE0D83FC0131F01F0EB7FC0D81FFE
B512806CB612006C5C6C5CC614F0013F13C0D907FEC7FCEB00FCA5147C143825477BBE30
>I<D803C0EB01E0D80FF01303486C497E487E150F487ED87E7E495AEAFE7F5E486C133F
A25E157FA24BC7FC6C5A5D387E7E01EA7FFED83FFC5B1403EA1FF86C48485AEA03C0C75B
140FA25D141FA24A5AA25D147FA292C8FC5CA2495AA25C1303A25C1307A290390FF001E0
ED07F84A487E011F497EA24A487E133F163F90267F807F1380ED7E1F14005BA25B1201A2
4848EB7F3F033F13004914FF12076F5A5B6F5A6C486D5A0001EC01E029477DBE30>I<EB
07E0EB1FF8497E137F497E803801FC7F497E810003131F13F0A6143F92C8FC91387F0FFF
9026F87E1F1380000113FEEBF9FC13FB4A6C1300D9FFF013C06C13E0151F02C05BEB7F80
9038FF003F4892C7FC485C48EB807E5A15FE391FDFC0FC383F8FE014E1397F07F1F8EB03
F300FEEBFBF0EB01FF5D7FEDC006027F130F91393F801F8015C06C137F6CEBFFE049EBF8
3F018701FC1300263FFFFBB5FC6C01F15B14E06C9038C03FFC00039038001FF8D801FCEB
07E0293A7DB830>I<EA07C0EA0FF0EA1FF8A213FCA213FE120F1207EA007EA513FE13FC
A2120113F81203EA07F0120FEA1FE0127FEAFFC013801300127C12380F1D70B730>I<14
1E147F14FF5BEB03FEEB07FCEB0FF0EB1FE0EB3FC0EB7F80EBFF00485A5B12035B485A12
0F5BA2485AA2123F5BA2127F90C7FCA412FEAD127FA47F123FA27F121FA26C7EA27F1207
6C7E7F12017F6C7EEB7F80EB3FC0EB1FE0EB0FF0EB07FCEB03FEEB01FF7F147F141E1847
71BE30>I<127812FE7E7F6C7E6C7EEA0FF06C7E6C7E6C7E6C7EEB7F80133F14C0131FEB
0FE014F01307A2EB03F8A214FC1301A214FE1300A4147FAD14FEA4130114FCA2130314F8
A2EB07F0A2130F14E0EB1FC0133F1480137FEBFF00485A485A485A485AEA3FE0485A485A
90C7FC5A1278184778BE30>I<14E0497E497EA60038EC0380007EEC0FC0D8FF83EB3FE0
01C3137F9038F3F9FF267FFBFB13C06CB61280000FECFE00000314F86C5C6C6C13C0011F
90C7FC017F13C048B512F04880000F14FE003FECFF80267FFBFB13C026FFF3F913E09038
C3F87F0183133FD87E03EB0FC00038EC0380000091C7FCA66D5A6D5A23277AAE30>I<14
3EA2147FAF007FB7FCA2B81280A36C1600A2C76CC8FCAF143EA229297DAF30>I<EA03E0
EA0FF0EA1FF813FCEA3FFEA213FFA27EA27E1203EA007FA2137E13FEEA01FC1203EA07F8
EA3FF0127FEAFFE0EA7F801300123C1019708B30>I<007FB612F0A2B712F8A36C15F0A2
25077B9E30>I<120FEA3FC0EA7FE0A2EAFFF0A4EA7FE0A2EA3FC0EA0F000C0C6E8B30>I<
16F01501ED03F8A21507A2ED0FF0A2ED1FE0A2ED3FC0A2ED7F80A2EDFF00A24A5AA25D14
03A24A5AA24A5AA24A5AA24A5AA24A5AA24AC7FCA2495AA25C1303A2495AA2495AA2495A
A2495AA2495AA249C8FCA2485AA25B1203A2485AA2485AA2485AA2485AA2485AA248C9FC
A25AA2127CA225477BBE30>I<14FE903807FFC0497F013F13F8497F90B57E48EB83FF48
48C6138049137F4848EB3FC04848EB1FE049130F001F15F0491307A24848EB03F8A290C7
12014815FCA400FEEC00FEAD6C14016C15FCA36D1303003F15F8A26D1307001F15F0A26D
130F6C6CEB1FE0A26C6CEB3FC06C6CEB7F806D13FF2601FF8313006CEBFFFE6D5B6D5B01
0F13E06D5BD900FEC7FC273A7CB830>I<EB03C0497EA2130FA2131FA2133F137F13FF12
03123FB5FCA213EF138FEA7E0F1200B3B0003FB512F84814FCB612FEA26C14FC6C14F81F
3977B830>I<EB07FC90383FFFC090B512F00003804814FE4880261FF80F1380263FE001
13C09038C0007F4848EB3FE090C7121FED0FF04814075A6C15F81503A3127E1218C8FCA2
150716F0150F16E0151F16C0153FED7F8015FF4A13005DEC07FC4A5A4A5A4A5A4A5A4A5A
4990C7FC495A495AEB0FF0EB3FE0495A495A4890C8FC4848EB01F04848EB03F8485AEA1F
E048B6FCB7FCA37E6C15F025397BB830>I<EB03FF013F13E090B512F84814FE48804815
80260FFE0113C09038F0007F4848EB1FE0150F16F01507A26C5A6C5AC8FC150F16E0A215
1FED3FC0157FEDFF8002071300903807FFFE495B5D8115FF6D1480D9000113C09138003F
E0ED1FF0ED07F8150316FC150116FE1500A21218127EB4FCA2150116FC4814036C15F86C
6C13076DEB1FF0D83FF0133F3A1FFE01FFE06CB612C06C15806CECFE00C65C013F13F001
031380273A7CB830>I<EC03FC4A7E140F141FA2143F147F157E14FEA2EB01FCEB03F8A2
EB07F0A2EB0FE0EB1FC0A2EB3F80A2EB7F0013FEA2485A485AA2485AA2485A485AA2485A
A248C7FC12FEB8FC1780A46C1600C8007EC7FCAA91387FFFFE91B6FCA46E5B29397DB830
>I<000FB612804815C05AA316800180C8FCAEEB83FF019F13C090B512F015FC8181D9FE
0313809039F0007FC049133F0180EB1FE06CC7120F000E15F0C81207A216F81503A31218
127EA2B4FC150716F048140F6C15E06C141F6DEB3FC06D137F3A3FE001FF80261FFC0F13
006CB55A6C5C6C5C6C14E06C6C1380D90FFCC7FC25397BB730>I<EC0FF8EC7FFF49B512
80010714E0131F4914F090387FF80F9039FFC007F84813803803FE005B485A4848EB03F0
ED01E0484890C7FC5B123F5BA2127FEB000C903803FFE0010F13F8D8FF3F13FE48B6FCB7
128016C09039FE007FE001F8EB1FF001E0130F49EB07F8ED03FC5B90C7120116FE1500A3
7EA46C7E15016D14FC121F6D1303000FEC07F86D130F6C6CEB1FF06DEB3FE03A03FF81FF
C06C90B512806C15006D5B011F13F8010713E001011380273A7CB830>I<127CB712FC16
FEA416FC48C7EA0FF816F0ED1FE0007CEC3FC0C8EA7F80EDFF00A24A5A4A5A5D14075D14
0F5D4A5AA24A5AA24AC7FCA25C5C13015CA213035CA213075CA4495AA6131F5CA96D5A6D
C8FC273A7CB830>I<49B4FC011F13F0017F13FC90B57E0003ECFF804815C048010113E0
3A1FF8003FF049131FD83FC0EB07F8A24848EB03FC90C71201A56D1303003F15F86D1307
6C6CEB0FF06C6CEB1FE0D807FCEB7FC03A03FF83FF806C90B512006C6C13FC011F13F049
7F90B512FE48802607FE0013C0D80FF8EB3FE0D81FE0EB0FF04848EB07F8491303007F15
FC90C712014815FE481400A66C14016C15FC6D1303003F15F86D1307D81FF0EB1FF06D13
3F3A0FFF01FFE06C90B512C06C1580C6ECFE006D5B011F13F0010190C7FC273A7CB830>
I<49B4FC010F13E0013F13F890B57E4880488048010113803A0FFC007FC0D81FF0EB3FE0
4848131F49EB0FF048481307A290C7EA03F85A4815FC1501A416FEA37E7E6D130315076C
7E6C6C130F6D133FD80FFC13FF6CB6FC7E6C14FE6C14F9013FEBE1FC010F138190380060
011400ED03F8A2150716F0150F000F15E0486C131F486CEB3FC0157FEDFF804A1300EC07
FE391FF01FFC90B55A6C5C6C5C6C1480C649C7FCEB3FF0273A7CB830>I<120FEA3FC0EA
7FE0A2EAFFF0A4EA7FE0A2EA3FC0EA0F00C7FCAF120FEA3FC0EA7FE0A2EAFFF0A4EA7FE0
A2EA3FC0EA0F000C276EA630>I<EA03C0EA0FF0EA1FF8A2EA3FFCA4EA1FF8A2EA0FF0EA
03C0C7FCAFEA03C0EA0FF0121F13F8123F13FCA3121FA2120F12031200120113F8120313
F01207EA1FE0123FEA7FC0EAFF80EA7F00127E12380E3470A630>I<16F01503ED07F815
1F157FEDFFF014034A13C0021F138091383FFE00ECFFF8495B010713C0495BD93FFEC7FC
495A3801FFF0485B000F13804890C8FCEA7FFC5BEAFFE05B7FEA7FF87FEA1FFF6C7F0003
13E06C7F38007FFC6D7E90380FFF806D7F010113F06D7FEC3FFE91381FFF80020713C06E
13F01400ED7FF8151F1507ED03F01500252F7BB230>I<007FB7FCA2B81280A36C16006C
5DCBFCA7003FB612FE4881B81280A36C1600A229157DA530>I<1278127EB4FC13C07FEA
7FF813FEEA1FFF6C13C000037F6C13F86C6C7EEB1FFF6D7F010313E06D7F9038007FFC6E
7E91380FFF806E13C0020113F080ED3FF8151F153FEDFFF05C020713C04A138091383FFE
004A5A903801FFF0495B010F13804990C7FCEB7FFC48485A4813E0000F5B4890C8FCEA7F
FE13F8EAFFE05B90C9FC127E1278252F7BB230>I<EB1FFE90B512E0000314F8000F14FE
4880481580267FF80313C09038C0007F48C7121F16E0150FA3127E151F0018EC7FC0C812
FF020313804A13004A5AEC1FF84A5AEC7FC04A5A92C7FC495AA2495A5CA213075CA86D5A
90C9FCA8EB01C0EB07F0A2497EA36D5AA2EB01C023397AB830>I<EC1FE0ECFFF8010313
FE010F7F4914804914C090397FF03FE09038FF800F4890380007F0D803FC13033A07F801
FBF89038F007FF380FE01F4A13FCEA1FC0495A003FEBFF0F903800FE07903901FC03FE00
7FEBF801EA7E03ECF000A2EAFE0700FC49137EAA00FE6D13FED87E0314FCA2ECF801D87F
0114F8003FEBFC03903900FE07F0903880FF0F001F90387FFFE06D6C13C0EA0FE06E1380
3A07F007FE009038F801F86C6CC7127C6CB414FE6CEB800390387FF01F6DB512FC6D14F8
6D14E0010314C00100EBFE00EC1FF0273A7CB830>I<147F4A7EA2497FA4497F14F7A401
077F14E3A3010F7FA314C1A2011F7FA490383F80FEA590387F007FA4498049133F90B6FC
A34881A39038FC001F00038149130FA4000781491307A2D87FFFEB7FFFB56CB51280A46C
496C130029397DB830>I<007FB512F0B612FE6F7E82826C813A03F8001FF815076F7E15
01A26F7EA615015EA24B5A1507ED1FF0ED7FE090B65A5E4BC7FC6F7E16E0829039F8000F
F8ED03FC6F7E1500167FA3EE3F80A6167F1700A25E4B5A1503ED1FFC007FB6FCB75A5E16
C05E6C02FCC7FC29387EB730>I<91387F803C903903FFF03E49EBFC7E011F13FE49EBFF
FE5B9038FFE07F48EB801F3903FE000F484813075B48481303A2484813015B123F491300
A2127F90C8FC167C16005A5AAC7E7EA2167C6D14FE123FA27F121F6D13016C6C14FCA26C
6CEB03F86D13076C6CEB0FF03901FF801F6C9038E07FE06DB512C06D14806D1400010713
FC6D13F09038007FC0273A7CB830>I<003FB512E04814FCB67E6F7E6C816C813A03F800
7FF0ED1FF8150F6F7E6F7E15016F7EA2EE7F80A2163F17C0161FA4EE0FE0AC161F17C0A3
163F1780A2167F17005E4B5A15034B5A150F4B5AED7FF0003FB65A485DB75A93C7FC6C14
FC6C14E02B387FB730>I<007FB7FCB81280A47ED803F8C7123FA8EE1F0093C7FCA4157C
15FEA490B5FCA6EBF800A4157C92C8FCA5EE07C0EE0FE0A9007FB7FCB8FCA46C16C02B38
7EB730>I<003FB712804816C0B8FCA27E7ED801FCC7121FA8EE0F8093C7FCA5153E157F
A490B6FCA69038FC007FA4153E92C8FCAE383FFFF8487FB5FCA27E6C5B2A387EB730>I<
02FF13F00103EBC0F8010F13F1013F13FD4913FF90B6FC4813C1EC007F4848133F484813
1F49130F485A491307121F5B123F491303A2127F90C7FC6F5A92C8FC5A5AA892B5FC4A14
805CA26C7F6C6D1400ED03F8A27F003F1407A27F121F6D130F120F7F6C6C131FA2D803FE
133F6C6C137FECC1FF6C90B5FC7F6D13FB010F13F30103EBC1F0010090C8FC293A7DB830
>I<3B3FFF800FFFE0486D4813F0B56C4813F8A26C496C13F06C496C13E0D803F8C7EAFE
00B290B6FCA601F8C7FCB3A23B3FFF800FFFE0486D4813F0B56C4813F8A26C496C13F06C
496C13E02D387FB730>I<007FB6FCB71280A46C1500260007F0C7FCB3B3A8007FB6FCB7
1280A46C1500213879B730>I<49B512F04914F85BA27F6D14F090C7EAFE00B3B3123C12
7EB4FCA24A5A1403EB8007397FF01FF86CB55A5D6C5C00075C000149C7FC38003FF02539
7AB730>I<D83FFF90380FFF80486D4813C0B56C5AA26C497E6C496C1380D803F0903803
F8004B5A4B5A151F4B5A5E4BC7FC15FE14014A5A5D4A5A4A5A141F5D4A5A4AC8FC5C13F1
8101F37F13F790B57E14EFECC7F01483EC03F8140101FE7F496C7E5B157F497F82151F82
150F826F7EA26F7E1501821500D83FFF903803FFC0486D4813E0B56C5AA26C497E6C496C
13C02B387FB730>I<383FFFF8487FB57EA26C5B6C5BD801FCC9FCB3B0EE0F80EE1FC0A9
003FB7FC5AB8FCA27E6C16802A387EB730>I<D83FF8ECFFE0486C4913F0486C4913F8A2
007F16F06C6C4913E00007160001EF14BFEC800FA39039E7C01F3FA4ECE03F01E3133EA2
ECF07EA201E1137CA2ECF8FCA201E013F8A214FDEC7DF0A3147FEC3FE0A3EC1FC0A2EC07
0091C7FCADD83FFC903801FFE0486C4913F0B54913F8A26C486D13F06C486D13E02D387F
B730>I<D83FFC90381FFF80486C4913C0B54913E0A26C6D6C13C06C6E13800003913801
F800EBF7C0A3EBF3E0A314F013F1A214F8A213F014FCA2147C147EA2143E143FA2141FA2
1581A2140F15C1A2140715E1A2140315F1A21401A215F91400A3157DA3153FEA3FFF4813
80B5EAC01FA26CEB800F6C496C5A2B387EB730>I<90383FFFE048B512FC000714FF4815
804815C04815E0EBF80001E0133FD87F80EB0FF0A290C71207A44815F8481403B3A96C14
07A26C15F0A36D130FA26D131F6C6CEB3FE001F813FF90B6FC6C15C06C15806C15000001
14FCD8003F13E0253A7BB830>I<007FB512F0B612FE6F7E16E0826C813903F8003FED0F
FCED03FE15016F7EA2821780163FA6167F17005EA24B5A1503ED0FFCED3FF890B6FC5E5E
16804BC7FC15F001F8C9FCB0387FFFC0B57EA46C5B29387EB730>I<90383FFFE048B512
FC000714FF4815804815C04815E0EBF80001E0133F4848EB1FF049130F90C71207A44815
F8481403B3A8147E14FE6CEBFF076C15F0EC7F87A2EC3FC7018013CF9038C01FFFD83FE0
14E0EBF80F90B6FC6C15C06C15806C1500000114FCD8003F7FEB00016E7EA21680157F16
C0153F16E0151F16F0150FED07E025467BB830>I<003FB57E4814F0B612FC15FF6C816C
812603F8017F9138003FF0151F6F7E15071503821501A515035E1507150F4B5A153F4AB4
5A90B65A5E93C7FC5D8182D9F8007FED3FE0151F150F821507A817F8EEF1FCA53A3FFF80
03FB4801C0EBFFF8B56C7E17F06C496C13E06C49EB7FC0C9EA1F002E397FB730>I<9039
0FF803C0D97FFF13E048B512C74814F74814FF5A381FF80F383FE001497E4848137F90C7
123F5A48141FA2150FA37EED07C06C91C7FC7F7FEA3FF0EA1FFEEBFFF06C13FF6C14E000
0114F86C80011F13FF01031480D9003F13C014019138007FE0151FED0FF0A2ED07F8A200
7C140312FEA56C140716F07F6DEB0FE06D131F01F8EB3FC001FF13FF91B51280160000FD
5CD8FC7F13F8D8F81F5BD878011380253A7BB830>I<003FB712C04816E0B8FCA43AFE00
3F800FA8007CED07C0C791C7FCB3B1011FB5FC4980A46D91C7FC2B387EB730>I<3B7FFF
C007FFFCB56C4813FEA46C496C13FCD803F8C7EA3F80B3B16D147F00011600A36C6C14FE
6D13016D5CEC800390393FE00FF890391FF83FF06DB55A6D5C6D5C6D91C7FC9038007FFC
EC1FF02F3980B730>I<D87FFE90380FFFC0B54913E06E5AA24A7E6C486D13C0D807F090
3801FC00A26D130300035DA46C6C495AA46C6C495AA46D131F6D5CA3EC803F013F5CA46D
6C48C7FCA490380FE0FEA401075B14F1A301035BA314FB01015BA314FFA26D5BA46E5A6E
5A2B397EB730>I<D83FFC903801FFE0486C4913F000FF16F8A2007F16F06C486D13E0D8
1FC09038001FC0000F1680A76D143F00071600A7000390380F803E9039F01FC07EEC3FE0
A3EC7FF0A2147D0001157CA29039F8FDF8FCA314F8A300005D01F913FCA2ECF07CA201FD
137DA2017D5CECE03DA3017F133FA2ECC01FA2013F5CA2EC800F6D486C5A2D397FB730>
I<3A3FFF01FFF84801837F02C77FA202835B6C01015B3A01FC007F806D91C7FC00005C6D
5BEB7F01EC81FCEB3F8314C3011F5B14E7010F5B14FF6D5BA26D5BA26D5BA26D90C8FCA4
497FA2497FA2815B81EB0FE781EB1FC381EB3F8181EB7F0081497F49800001143F498000
03141F49800007140FD87FFEEB7FFFB590B5128080A25C6C486D130029387DB730>I<D8
7FFF90381FFFC0B56C4813E0A46C496C13C0D803F8903803F8006D1307A26C6C495AA26C
6C5C151F6D5CEC803F013F5CECC07F011F91C7FCA290380FE0FEA214F101075BA2903803
FBF8A201015B14FF6D5BA26E5AA36E5AB1903803FFF8497F497FA26D5B6D5B2B387EB730
>I<001FB612FC4815FE5AA490C7EA03FCED07F816F0150FED1FE016C0153FED7F80003E
1500C85A4A5A5D14034A5A5D140F4A5A5D143F4A5A92C7FC5C495A5C1303495A5C130F49
5A5C133F495A91C8FC5B4848147C4914FE1203485A5B120F485A5B123F485A90B6FCB7FC
A46C15FC27387CB730>I<007FB5FCB61280A4150048C8FCB3B3B3A5B6FC1580A46C1400
19476DBE30>I<127CA212FEA27EA26C7EA26C7EA26C7EA26C7EA26C7EA26C7EA212017F
A26C7EA26D7EA26D7EA26D7EA26D7EA26D7EA26D7EA2130180A26D7EA26E7EA26E7EA26E
7EA26E7EA26E7EA26E7EA2140181A26E7EA2ED7F80A2ED3FC0A2ED1FE0A2ED0FF0A2ED07
F8A21503A2ED01F0150025477BBE30>I<007FB5FCB61280A47EC7123FB3B3B3A5007FB5
FCB6FCA46C140019477DBE30>I<1307EB1FC0EB7FF0497E000313FE000FEBFF80003F14
E0D87FFD13F039FFF07FF8EBC01FEB800F38FE0003007CEB01F00010EB00401D0E77B730
>I<007FB612F0A2B712F8A36C15F0A225077B7D30>I<1338137CEA01FE12031207EA0FFC
13F0EA1FE013C0EA3F8013005A127EA212FE5AA5EAFFC013E013F0127FA2123FA2EA1FE0
EA07C00F1D70BE30>I<EB3FFC48B57E4814E04880488048809038F00FFE9038E001FF80
6F7E6C48133F6C4880C8121FA491B5FC130F137F48B6FC12075A48EBC01F383FFC00EA7F
E0138048C7FC5AA46C143FA26C6C137F9038C001FF263FF80FEBFFC06CB712E0A2000714
F76C14C3C6020013C0D93FF090C7FC2B2A7CA830>I<EA3FFC487E12FFA2127F123F1200
AAEC03FE91381FFF80027F13E091B57E90B612FC82ECFE079138F001FF4A6C13804A137F
4AEB3FC091C7121F4915E0160FA217F01607A8160FA217E07F161F6EEB3FC0A26EEB7F80
6E13FFDAF00313009138FC0FFE91B55A5E495CD97E7F13C0D93C1F90C7FC90380003FC2C
3980B730>I<ECFFE0010713FC011F7F017F7F90B612804815C048EB807F3907FC003F48
5A485A49EB1F804848EB0F004990C7FC127F90C9FCA25A5AA87E7EA27F003FEC07C06DEB
0FE06C7E6D131F6C6C14C0D807FE133F9039FFC0FF806C90B5FCC615006D5B011F13F801
075B01011380232A7AA830>I<913801FFE04A7F5CA28080EC0007AAEB03FE90381FFF87
4913E790B6FC5A5A481303380FFC00D81FF0133F49131F485A150F4848130790C7FCA25A
A25AA87E6C140FA27F003F141F6D133F6C7E6D137F390FF801FF2607FE07EBFFC06CB712
E06C16F06C14F76D01C713E0011F010313C0D907FCC8FC2C397DB730>I<49B4FC010713
E0011F13F8017F7F90B57E488048018113803A07FC007FC04848133FD81FE0EB1FE0150F
484814F0491307127F90C7FCED03F85A5AB7FCA516F048C9FC7E7EA27F003FEC01F06DEB
03F86C7E6C7E6D1307D807FEEB1FF03A03FFC07FE06C90B5FC6C15C0013F14806DEBFE00
010713F8010013C0252A7CA830>I<EDFF80020713E0021F13F05C4A13F891B5FC491387
903803FE079138FC03F0903907F800C04A1300A8003FB612C04815E0B7FCA36C15C02600
07F0C7FCB3A9003FB512FE4880B71280A26C15006C5C25397DB830>I<D903FC13FF9026
1FFF8713C04913DF90B712E05A5A2607FE07138F903AF801FE07C048486C6CC7FCA2497F
001F8149133FA56D137F000F92C7FC6D5BA26C6C485AEBFE0790B55A5D485C15C001DF5B
D9C3FCC8FC01C0C9FCA37F7F6CB512F015FF6C15C04815F0488148813A3FE0001FFE0180
130148C8127F007E8100FE168048151FA56C153F007FED7F006D5C6C6C495A01F013076C
B4EB7FFC6C90B55A6C5D000115C06C6C91C7FC011F13FC010113C02B3E7DA730>I<EA3F
FC487E12FFA2127F123F1200AAEC01FE91380FFF80023F13E091B57E90B67EA29138FE07
FCECF8039138E001FE14C0EC8000A291C7FCA25BB3A23B3FFFF81FFFF8486D4813FCB500
FE14FEA26C01FC14FC6C496C13F82F3880B730>I<14E0EB03F8A2497EA36D5AA2EB00E0
91C8FCA9381FFFF8487F5AA27E7EEA0001B3A9003FB612C04815E0B7FCA27E6C15C02339
7AB830>I<EC01C0EC07F0A2EC0FF8A3EC07F0A2EC01C091C7FCA990B512F04814F8A47E
EB0003B3B3A5EC07F0A2123C007EEB0FE0B4131FEC3FC0147F90B512806C14005C6C5B00
0F13F0000313C01D4E7CB830>I<EA7FF8487EA4127F1200AB0203B512804A14C017E0A2
17C06E14809139001FE0004B5A4B5A4BC7FC4A5A4A5AEC0FF84A5A4A5A4A5A4A5A01FD7F
90B57E8114F7ECE3F8ECC1FCEC81FEEC00FF497F496D7E6F7E826F7E15076F7E6F7E3B7F
FFF81FFFE0B56C4813F017F8A217F06C496C13E02D387FB730>I<387FFFF8B57EA47EEA
0001B3B3A8007FB612F0B712F8A46C15F025387BB730>I<02FC137E3B7FC3FF01FF80D8
FFEF01877F90B500CF7F15DF92B57E6C010F13872607FE07EB03F801FC13FE9039F803FC
01A201F013F8A301E013F0B3A23C7FFE0FFF07FF80B548018F13C0A46C486C0107138032
2881A730>I<EC01FE3A3FFC0FFF80267FFE3F13E000FF90B57E90B67E7E6C9038FE07FC
C6EBF8039138E001FE14C0EC8000A291C7FCA25BB3A23B3FFFF81FFFF8486D4813FCB500
FE14FEA26C01FC14FC6C496C13F82F2880A730>I<49B4FC010F13E0013F13F8497F90B5
7E0003ECFF8014013A07FC007FC04848EB3FE0D81FE0EB0FF0A24848EB07F8491303007F
15FC90C71201A300FEEC00FEA86C14016C15FCA26D1303003F15F86D13076D130F6C6CEB
1FF06C6CEB3FE06D137F3A07FF01FFC06C90B512806C15006C6C13FC6D5B010F13E00101
90C7FC272A7CA830>I<EC03FE3A3FFC1FFF80267FFE7F13E000FF90B57E90B612FC6C81
6CEBFE07C69038F001FF4A6C13804A137F4AEB3FC091C7121F4915E0160FA217F01607A8
160FA217E07F161F6EEB3FC0A26EEB7F806E13FFDAF00313009138FC0FFE91B55A5E495C
6E13C0021F90C7FCEC03FC91C9FCAD383FFFF8487FB57EA26C5B6C5B2C3C80A730>I<49
B413F8010FEBC1FC013F13F14913FD48B6FC5A481381390FFC007F49131F4848130F4913
07485A491303127F90C7FC15015A5AA77E7E15037FA26C6C1307150F6C6C131F6C6C133F
01FC137F3907FF01FF6C90B5FC6C14FD6C14F9013F13F1010F13C1903803FE0190C7FCAD
92B512F84A14FCA46E14F82E3C7DA730>I<ED07F83A3FFF803FFF486DB51280B512C302
CF14C06C13DF6C9038FFFC3FD8001F13E09238801F809238000F004A90C7FC5C5C5CA25C
A45CAF003FB512FC4880B7FCA26C5C6C5C2A287EA730>I<90381FFC1E48B5129F000714
FF5A5A5A387FF007EB800100FEC7FC4880A46C143E007F91C7FC13E06CB4FC6C13FC6CEB
FF806C14E0000114F86C6C7F01037F9038000FFF02001380007C147F00FEEC1FC0A2150F
7EA27F151F6DEB3F806D137F9039FC03FF0090B6FC5D5D00FC14F0D8F83F13C026780FFE
C7FC222A79A830>I<EB0780497E131FA9003FB612E04815F0B7FCA36C15E026001FC0C7
FCB216F8ED01FCA5ECE003010FEB07F814F09138FC1FF06DB512E06D14C016806D140090
38007FFCEC1FF026337EB130>I<D83FFCEB3FFC486C497E00FF14FFA2007F147F003F14
3F00001400B3A41501A2150315076D130F903A7FC07FFFF891B612FC6D15FE7F6D4913FC
6D9038F87FF8010001C0C7FC2F2880A630>I<3B3FFFC07FFF80486DB512C0B515E0A26C
16C06C496C13803B01F80003F000A26D130700005DA26D130F017E5CA2017F131F6D5CA2
EC803F011F91C7FCA26E5A010F137EA2ECE0FE01075BA214F101035BA3903801FBF0A314
FF6D5BA36E5A6E5A2B277EA630>I<3B3FFFC01FFFE0486D4813F0B515F8A26C16F06C49
6C13E0D807E0C7EA3F00A26D5C0003157EA56D14FE00015DEC0F80EC1FC0EC3FE0A33A00
FC7FF1F8A2147DA2ECFDF9017C5C14F8A3017E13FBA290393FF07FE0A3ECE03FA2011F5C
90390F800F802D277FA630>I<3A3FFF81FFFC4801C37FB580A26C5D6C01815BC648C66C
C7FC137FEC80FE90383F81FC90381FC3F8EB0FE3ECE7F06DB45A6D5B7F6D5B92C8FC147E
147F5C497F81903803F7E0EB07E790380FE3F0ECC1F890381F81FC90383F80FE90387F00
7E017E137F01FE6D7E48486D7E267FFF80B5FCB500C1148014E3A214C16C018014002927
7DA630>I<3B3FFFC07FFF80486DB512C0B515E0A26C16C06C496C13803B01FC0003F000
A2000014076D5C137E150F017F5C7F151FD91F805BA214C0010F49C7FCA214E00107137E
A2EB03F0157C15FCEB01F85DA2EB00F9ECFDF0147D147FA26E5AA36E5AA35DA2143F92C8
FCA25C147EA2000F13FE486C5AEA3FC1EBC3F81387EB8FF0EBFFE06C5B5C6C90C9FC6C5A
EA01F02B3C7EA630>I<001FB612FC4815FE5AA316FC90C7EA0FF8ED1FF0ED3FE0ED7FC0
EDFF80003E491300C7485A4A5A4A5A4A5A4A5A4A5A4A5A4990C7FC495A495A495A495A49
5A495A4948133E4890C7127F485A485A485A485A485A48B7FCB8FCA46C15FE28277DA630
>I<ED3FF0913803FFF8140F5C147F16F09138FFF00092C7FC495A5CB3A21303495A133F
383FFFF0B55A5C91C8FC14C080003F7F38003FF813076D7E1301B3A2806D7E15F091387F
FFF016F8141F8014039138003FF025477BBE30>I<127CA212FEB3B3B3AD127CA207476C
BE30>I<EA7FE0EAFFFE6D7E8014F07EC66C7E13076D7E1301B3A2806D7E15E091387FFF
E06E13F8801407141F5C4A13E09138FFE00092C7FC495A5CB3A21303495A137F387FFFF0
B5FC14C05C49C8FCEA7FE025477BBE30>I<017C133848B4137C48EB80FE4813C14813C3
48EBEFFC397FEFFFF0D8FF8713E0010713C0486C1380D87C0113003838007C1F0C78B730
>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FK cmbxsl10 10.95 1
/FK 1 114 df<DA07FEEB0F8091387FFF800103B538E01F00010F6E5A49903803F87F90
3A7FFC00FCFFD9FFF0137F48497F48496D5A485B91C7FC48150F485AA2485A5F127F5BA2
161F12FF495DA4163FA25FA2167F127F16FF6D5B003F4A5B6C6C5B5D6C6C133F2607FF81
B5FC6CEBFFFDC602F95B013F13E10107130190C7FC5D5FA55D94C7FCA44AB512FC5CA25F
A2313B7AA837>113 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FL cmmi10 10.95 74
/FL 74 127 df<EC07F8EC3FFF9138FC0F80903903F003E090270FC001F01370D91F806D
13F0017FC714E001FE804848147E000316014916C04848143F000FEE03805B001F160700
3F1700495D170E007F161E49151C173C5F00FF167090C813F05F5F5FA294C7FC7EA25E6C
5D4B7F6C6C9039079F81C0ED0F1F6C6C90383C0F836C6C01F014803C01F80FC007C7003B
007FFF0003FED91FF0EB00F834297DA73A>11 D<EE1FE0EEFFFC923803F03E92390F800F
8092381E0007033814C003F0EB03E04A5A4A5A4A4814F092C7FC140E141E021C14074A15
E01478147002F0140F4A15C013014AEC1F80EF3F0013034A147E5F010790381FF9F09139
007FFFE09238700FC092387FFFE04990381FF1F0010E90380001F8707E83011E157E011C
157FA3133C1338A301785D1370A301F05C5F5BA200014B5AA25F1607486C5D4C5A161F6D
5DD807B84A5A011C4AC7FC011E14FC6D495A3A0F078007E03A0E01F01F809026007FFEC8
FCEC0FF0001E90CAFC121CA3123C1238A312781270A312F05AA434527EBF33>I<EB03F8
D90FFE140F90383FFF8090B56C131E4880486E131C2607FC1F143C270FE003F81338261F
8000147890C7007C1370003E023C13F0003C023E13E048EC1E010070020E13C000F0EC0F
034816801507C81307EE8700168FED038E169E169CA216BC16B8A216F85EA25EA35EA35E
A31507A293C7FC5DA4151EA3153E153CA45DA31570A21560303C7FA72F>I<EC1FF89038
01FFFC010713F890381FF000EB3F8001FEC7FC485A485A485A120F485AA2485AA2485AA2
90B512C0B6FC150090C8FCA35AA7127E127F7EA26C7E000F14703907C001F03903E003E0
3901F81F8039007FFE00EB0FF01E287CA625>15 D<EC01C014035DA5EDBFF0913801FFF8
913803E03891380FFFF891381E3FE00238C7FC14F0495A495A495A49C8FC130E131E5B5B
137013F0485AA2485A485AA248C9FCA25A121EA25AA3127C1278A312F8A25AA57EA47EA2
7E127F7F6C7E13F86CB4FC6C13C06C13F8000113FF6C6C13C0011F7F01037F9038007FF8
140F14036E7E1400A2157C1578A35D131C6D485A90380783C06DB4C7FCEB007C25527CBE
28>I<15FCEC03FF91380F87C091383E03E0EC7C0102F813F01301903903F000F8495A01
0F14FC5C495A133F91C7FC4914FE13FEA212015B12034913011207A25B000F15FC150312
1F5BA21507003F15F890B6FCA33A7FC0000FF05BA2151F16E048C7FCA2ED3FC0A2481580
157F1600A215FEA24A5AA24A5A007E5C14075D4A5A003E5C141F4AC7FC6C137E5C380F81
F03807C3E03801FF80D8007EC8FC27417DBF2B>18 D<133F14E0EB07F0EB03FC13016D7E
A3147FA26E7EA36E7EA36E7EA36E7EA36E7EA26E7EA36E7EA3157FA36F7E157F15FF4A7F
5C913807CFE0EC0F8FEC1F0F91383E07F0147C14FC49486C7EEB03F0EB07E049486C7EEB
1F80EB3F00496D7E13FE4848147F485A485A4848EC3F80485A123F4848EC1FC048C8FC48
16E048150F48ED07F0007015032C407BBE35>21 D<EC01C014035DA5EDFFF04A13F89138
3FE03891B512F8903901FC3FE0D907F8C7FC495A495A495A137F5C13FF91C8FCA25A5BA6
12007F7F90383F9FFC6DB47E903807E00E90380FFFFE90383E3FF80178C8FC5B485A485A
485A48C9FCA2121E5AA25AA312F85AA37EA27E7E7E6C7E13E0EA3FF86CB4FC6C13C06C13
F8000113FE39007FFFC0010F13F001037F9038007FFCEC1FFE14031400157E153EA3153C
010C137C010F1378903803C0F0903800FFC0023FC7FC25527EBE28>24
D<011FB612FE017F15FF48B8FC5A4816FE3B0FC03801C000EA1F00003E1403003C01785B
4813705AECF0075AC712E0010191C7FCA25DEB03C0A313071480A2010F5BA2EB1F0082A2
133EA2137E825B150F0001815B120315075BC648EB038030287DA634>I<ED1FC0EDFFF0
913803E07C91380F803E4A487E023E14804AEB0FC05C494814E01303495A5C130F494814
F0A2133F91C7FCEE1FE05B137EA201FE143F17C05BA20001ED7F80A24915005E00035D4B
5AA24B5A486C495A4B5A6D5C01EEEB3F80D80FE7017EC7FC9038E3C1F89038C1FFE0D9C0
7FC8FC001F90C9FCA25BA2123FA290CAFCA25AA2127EA212FEA25AA35A12702C3C7EA72F
>I<020FB512FE027F14FF49B7FC1307011F15FE903A3FE03FE00090387F000F01FE6D7E
4848130348488048481301485A5B121F5B123F90C7FC5A127EA2150300FE5D5AA24B5AA2
150F5E4B5AA2007C4AC7FC157E157C6C5C001E495A001FEB07E0390F800F802603E07EC8
FC3800FFF8EB3FC030287DA634>I<011FB612C090B7FC5A5A481680260FC007C8FC48C6
5A123E003C130E48131E5A5AA2C75AA3147CA2147814F8A4495AA31303A25CA21307A349
5AA3131FA25C6DC9FC2A287DA628>I<1678A21670A216F0A25EA21501A25EA21503A25E
A21507A293C7FCA25DA2150EEDFFC0020F13FC91383F9E3F903A01F81C0FC0D903E0EB03
E0903A0FC03C01F0D91F00EB00F8017E0138137C5B48480178133E485A48480170133F12
0F4901F0131F485A5D48C7FC0201143F5A007E5CA20203147F00FE167E485C17FE020714
FC1601007C020013F8EE03F0007E49EB07E0A2003E010EEB0FC0003FED1F806C011EEB3F
00D80F80147C3A07C01C01F8D803E0EB03E03A01F03C1F80D8007E01FEC7FC90381FFFF8
01011380D90078C8FCA21470A214F0A25CA21301A25CA21303A25CA21307A230527CBE36
>30 D<EE01C0A21603A25FA21607A294C7FCA25EA2160EA2161EA2161CA2163CA21638A2
1678017C167048B491387001FC2603C7C0EC03FED8070314F0000F7F000E15E0121C0107
01011301003816004C137ED8780F163E0070EBC003181ED8F01F5C0280151C0000140713
3F020090C7123C1838495B137E030E147801FE167049011E14F018E0031C13010001EE03
C049013C148017070338EB0F006C6C151E03785B5F017E01705B4C5A6D9038F003C0D91F
80010FC7FC90390FE0E03E903903FCE1F89039007FFFE0020790C8FCEC01C0A21403A25D
A21407A292C9FCA25CA2140EA2141EA2141CA237527EBE3B>32 D<18E00130ED03F80170
ED07FC13F0485A5B12034915030007160148CAFC187C120E121E001C173C003C021C1438
0038147EA20078177803FE147000705CA218F04A4814E000F01601A24BEB03C0A24BEB07
800203140F6C0107EC1F00173E6CD91FF0137E007C013F5C007E90397FF803F83B7F83FF
FE1FF0263FFFFCB5FC4A14C06C496C5B6C01C091C7FC6C9038001FFCD801FCEB07E03629
7FA739>I<121EEA7F80A2EAFFC0A4EA7F80A2EA1E000A0A798919>58
D<121EEA7F8012FF13C0A213E0A3127FEA1E601200A413E013C0A312011380120313005A
120E5A1218123812300B1C798919>I<180E183F18FFEF03FEEF0FF8EF3FE0EFFF809338
03FE00EE0FF8EE3FE0EEFF80DB03FEC7FCED1FF8ED7FE0913801FF80DA07FEC8FCEC1FF0
EC7FC04948C9FCEB07FCEB1FF0EB7FC04848CAFCEA07FCEA1FF0EA7FC048CBFCA2EA7FC0
EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007FC0EC1FF0EC07FE913801
FF809138007FE0ED1FF8ED03FE923800FF80EE3FE0EE0FF8EE03FE933800FF80EF3FE0EF
0FF8EF03FEEF00FF183F180E383679B147>I<ED0180ED03C01507A21680150FA216005D
A2151E153EA2153C157CA2157815F8A25D1401A25D1403A25D1407A25D140FA24AC7FCA2
141E143EA2143C147CA2147814F8A25C1301A25C1303A25C1307A25C130FA291C8FC5BA2
131E133EA25BA2137813F8A25B1201A25B1203A25B1207A25B120FA290C9FC5AA2121E12
3EA2123C127CA2127812F8A25A1260225B7BC32D>I<127012FCB4FCEA7FC0EA1FF0EA07
FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007FC0EC1FF8EC07FE913801FF80913800
7FE0ED0FF8ED03FE923800FF80EE3FE0EE0FF8EE03FE933800FF80EF3FE0EF0FF8EF03FE
EF00FFA2EF03FEEF0FF8EF3FE0EFFF80933803FE00EE0FF8EE3FE0EEFF80DB03FEC7FCED
0FF8ED7FE0913801FF80DA07FEC8FCEC1FF8EC7FC04948C9FCEB07FCEB1FF0EB7FC04848
CAFCEA07FCEA1FF0EA7FC048CBFC12FC1270383679B147>I<15FF020713E091381F00F8
0278133E4A7F4948EB0F804948EB07C04948EB03E091C7FC496CEB01F002E014F8131F16
0017FCA25C0107C812FE90C9FCA7EC03FCEC3FFF9138FE03C1903903F000E149481371D9
1F80133149C7123B017EEC1BFC5B0001151F4848140F484815F8A2485A121F17F0485A16
1F17E0127F5BEE3FC0A200FF168090C8127F1700A216FEA2484A5A5E007E1403007F4A5A
5E6C4A5A6C6C495A4BC7FC6C6C13FE6C6C485A3903F80FF06CB512C06C6C90C8FCEB0FF8
2F437CC030>64 D<17075F84171FA2173F177FA217FFA25E5EA24C6C7EA2EE0E3F161E16
1C1638A21670A216E0ED01C084ED0380171FED07005D150E5DA25D157815705D844A5A17
0F4A5A4AC7FC92B6FC5CA2021CC7120F143C14384A81A24A140713015C495AA249C8FC5B
130E131E4982137C13FED807FFED1FFEB500F00107B512FCA219F83E417DC044>I<49B7
12F818FF19E090260001FEC7EA3FF0F007F84B6E7E727E850203815D1A80A20207167F4B
15FFA3020F17004B5C611803021F5E4B4A5A180FF01FE0023F4B5A4B4A5ADD01FEC7FCEF
07F8027FEC7FE092B6C8FC18E092C7EA07F84AEC01FE4A6E7E727E727E13014A82181FA2
13034A82A301075F4A153FA261010F167F4A5E18FF4D90C7FC011F5E4A14034D5A013FED
1FF04D5A4AECFFC0017F020790C8FCB812FC17F094C9FC413E7DBD45>I<DC1FF8130792
3801FFFE030F9038FF800E923A7FF007E01E4A48C7EAF03EDA03FCEC787EDA0FF0EC3CFC
DA3FC0141F4A48140F4AC8FC4948ED07F8EB07F849481503131F4A16F049481501495A13
FF4890C913E05B1203485A19C0485AA2485A95C7FC123F5BA2127F5BA312FF5BA590CCFC
183CA21838A21878187018F06C6C5E17014D5A003F5F6D15074DC7FC001F161E6C6C5D6D
5D6C6C5D00034B5AD801FEEC07C06C6C4AC8FCD97FC0137E90391FF803F80107B512E001
0114809026001FF8C9FC40427BBF41>I<49B712F818FF19C0D9000190C7EA3FF0F00FF8
4BEC03FCF000FE197F0203EE3F805DF11FC0A20207EE0FE05D1AF0A2020F16075DA21AF8
141F5DA2190F143F5DA21AF0147F4B151FA302FF17E092C9123FA21AC049177F5C1A8019
FF010318005C4E5A61010716034A5E4E5A180F010F4C5A4A5E4E5A4EC7FC011F16FE4A4A
5AEF07F8013FED0FE0EF3FC04A49B4C8FC017FEC0FFCB812F017C004FCC9FC453E7DBD4B
>I<49B912C0A3D9000190C71201F0003F4B151F190F1A80020316075DA314075D1A00A2
140F4BEB0380A205075B021FED000E4B92C7FC5FA2023F141E5D173EEE01FE4AB55AA3ED
800102FF6D5A92C71278A34915705C191C05F0133C01034B13384A167894C71270A20107
17F04A5E180161010F16034A4B5AA2180F011F4CC7FC4A5D187E013F16FE4D5A4A140F01
7F15FFB95AA260423E7DBD43>I<49B9FCA3D9000190C7120718004B157F193F191E1403
5DA314075D191CA2140F5D17074D133C021F020E13384B1500A2171E023F141C4B133C17
7C17FC027FEB03F892B5FCA39139FF8003F0ED00011600A2495D5CA2160101035D5CA293
C9FC13075CA3130F5CA3131F5CA2133FA25C497EB612F8A3403E7DBD3A>I<DC3FF0130E
923803FFFE031F9038FF801C923A7FF00FC03C913B01FF0001E07CDA07FC903800F0FCDA
0FF0EC79F8DA3FC0143F4A48141F4AC8120FD903FC16F0495A49481507495A013F17E04A
1503495A49C9FC4818C05B1203485A1980485AA2485A95C7FC123F5BA2127F5BA312FF5B
A3043FB512E0A290C8FC9339001FF800170F60A2171FA260A26C6C153FA2606C7E177F12
1F6D5E6C6C15FF00075D6C6C5C6C6CDA07BFC7FC6CB4EC1F1FD97FC0EB7E0F90391FF803
F80107B5EAE00601010280C8FC9026001FF8C9FC3F427BBF48>I<49B6D8C03FB512F81B
F01780D900010180C7383FF00093C85B4B5EA2197F14034B5EA219FF14074B93C7FCA260
140F4B5DA21803141F4B5DA21807143F4B5DA2180F4AB7FC61A20380C7121F14FF92C85B
A2183F5B4A5EA2187F13034A5EA218FF13074A93C8FCA25F130F4A5DA21703131F4A5DA2
013F1507A24A5D496C4A7EB6D8E01FB512FCA2614D3E7DBD4C>I<49B612C05BA2D90001
EB800093C7FC5DA314035DA314075DA3140F5DA3141F5DA3143F5DA3147F5DA314FF92C8
FCA35B5CA313035CA313075CA3130F5CA3131F5CA2133FA25CEBFFE0B612E0A32A3E7DBD
28>I<92B612E0A39239003FF000161F5FA2163F5FA3167F5FA316FF94C7FCA35D5EA315
035EA315075EA3150F5EA3151FA25EA2153FA25EA2157FA25EA2D80F8013FFEA3FC0486C
91C8FCA25CD8FFC05B140301805B49485A00FC5C0070495A0078495A0038495A001E017E
C9FC380F81FC3803FFE0C690CAFC33407ABD32>I<49B600C090387FFFF896B5FC5FD900
010180C7000F130093C813F84B16E01A804FC7FC0203163C4B15F84E5AF003C002074B5A
4B021FC8FC183E1878020F5D4BEB03E0EF07804DC9FC021F143E4B5B17F04C5A023F1307
EDC00F4C7E163F027FEBFFF8ED81EFED83CF92388F87FC9138FF9F0792383C03FE15784B
6C7E4913E0158092C77F5C01036F7E5C717EA213074A6E7EA2717E130F4A6E7EA284011F
15035C717E133F855C496C4A13E0B600E0017F13FFA34D3E7DBD4D>I<49B612F0A3D900
010180C7FC93C8FC5DA314035DA314075DA3140F5DA3141F5DA3143F5DA3147F5DA314FF
92C9FCA35B5C180C181E0103161C5C183C183813074A1578187018F0130F4AEC01E0A217
03011FED07C04A140F171F013FED3F8017FF4A1303017F021F1300B9FCA25F373E7DBD3E
>I<49B56C93383FFFF05113E098B5FCD90001F1E000704B5B03DF933803BF80A2F2077F
1403039F040E90C7FC1A1CDB8FE05E02075F030F4C5AA21AE1020FEE01C1020E606F6CEC
03811A83021EEE0703021C040E5BA2F11C07023C16380238606F6C1470F1E00F14780270
DB01C05BA2953803801F02F0ED07004A6C6C5E180E4E133F130102C04B5C601A7F01036D
6C5B4A95C8FC4D5A4D485B130791C749C75A170E047F1401495D010E4B5CA24D1303131E
011C4B5C5F013C023F1407017C5D01FE92C75BD803FF4D7EB500FC013E011FB512F8163C
041C5E5C3E7DBD58>I<49B56C49B512F81BF0A290C76D9039000FFE004AEE03F0705D73
5A03DF150302037F038F5E82190791380787FC030793C7FC1503705C140F91260E01FF14
0EA26F151E021E80021C017F141C83193C023C6D7E02381638161F711378147802706D6C
1370A2040714F002F0804A01035C8318010101EC01FF4A5E82188313034A91387FC380A2
EF3FC7010716E791C8001F90C8FC18F718FF4981010E5E1707A2131E011C6F5AA2013C15
01137C01FE6F5AEA03FFB512FC187818704D3E7DBD49>I<EE3FF00303B5FC92391FC03F
C092397E0007E0DA01F8EB01F8DA07E06D7E4A48147E023FC87E027EED1F804A16C0D903
F8150F494816E0495A4948ED07F0A2494816F849C9FC5B48481603A2484817FCA2485A00
0F17075B121FA25B123F19F84848160FA44848EE1FF0A3F03FE0A390CAEA7FC0A2F0FF80
A219004D5A1703604D5A6C7E4D5A4D5A003F5F4D5A6C6C4BC7FC17FE6C6C4A5A4C5A6C6C
EC07E06C6CEC1FC06C6C4A5A6C6C02FEC8FC90393F8003F890390FE01FE00103B5C9FC90
38007FF03E427BBF45>I<49B712F018FF19C0D9000190C76C7EF00FF84BEC03FC180102
0382727E5DA214071A805DA2140F4E13005DA2021F5E18034B5D1807023F5E4E5A4B4A5A
4E5A027F4B5A06FEC7FC4BEB03FCEF3FF091B712C005FCC8FC92CBFCA25BA25CA21303A2
5CA21307A25CA2130FA25CA2131FA25CA2133FA25C497EB612E0A3413E7DBD3A>I<EE3F
F00303B5FC92391FC03FC092397E0007E0DA01F8EB01F8DA07E06D7E4A48147EDA3F8080
027EC813804AED1FC0EB03F84948ED0FE0130F494816F04A1507494816F8137F49C9FC48
5AA2484817FCA2485A120FA2485AA25B123F19F84848160FA44848EE1FF0A3F03FE0A290
CAFCF07FC0A2198018FF19004D5AA24D5A606C16074D5A6D01F85C003FD903FE495ADA0F
07495A271FC01C0349C7FC9139380180FE260FE030EB81FCEEC3F82607F070EBC7E03B03
F86000CFC0D801FCECFF80D800FE4AC8FC90393FF003F890270FF81FE0130C0103B5FC90
26007FF1141CDA00011418183882607013F017039338FC0FE093B5FC6060A26F91C7FC5F
705AEE3FF0EE0FC03E527BBF48>I<49B77E18F818FFD90001D900017F9438003FE04BEC
0FF0727E727E14034B6E7EA30207825DA3020F4B5A5DA24E5A141F4B4A5A614E5A023F4B
5A4B4A5A06FEC7FCEF03FC027FEC0FF04BEBFF8092B500FCC8FC5F9139FF8001FE92C7EA
7F80EF1FC084496F7E4A1407A28413035CA2170F13075C60171F130F5CA3011F033F5B4A
EE038018E0013F17071A004A021F5B496C160EB600E090380FF01E05075B716C5ACBEAFF
E0F03F8041407DBD45>I<DB07FC131C92383FFF8092B5EAE038913A03F803F078913A0F
E000F8F8DA1F80133D4AC7EA1FF0027E140F5C494814074A15E0130349481403A2010F16
C05CA3011F1680A38094C7FC808014FE90380FFFC015FC6DEBFFC016F86D14FE6D806D81
023F800207801400030F7F1500163F707E160F1607A2160312075A5F120EA2001E15075F
A24C5A123E003F4B5AA26D4AC7FC007F157E6D5C6D495AD87DF0495AD8F8FCEB0FE09039
3F803F8027F01FFFFEC8FCD8E00713F839C0007FC036427BBF38>I<48B912FCA25A913A
0003FE000F01F84A1301D807E0EE00F8491307491778000F5D90C7FC001E140FA2001C4B
1470123C0038141FA200785D1270033F15F000F018E0485DC81600157FA25EA215FFA293
C9FCA25CA25DA21403A25DA21407A25DA2140FA25DA2141FA25DA2143FA25DA2147FA214
FF497F001FB612FCA25E3E3D7FBC35>I<007FB500F090387FFFFE19FC5D26007FE0C700
0313804A913800FC004A5D187001FF16F0A291C95AA2481601605BA200031603605BA200
07160795C7FC5BA2000F5E170E5BA2001F161E171C5BA2003F163C17385BA2007F1678A2
491570A200FF16F0A290C95AA216015F5A16035F16074CC8FC160E161E5E007F5D5E6C4A
5A6D495A6C6C495A6C6C011FC9FC6C6C137E3903FC03F8C6B512E0013F1380D907FCCAFC
3F407ABD3E>I<B6020FB5FCA219FE000301C0020013E06C90C9EA7F00183E183C6C5F18
7060A24D5A17036E5D4DC7FC017F5D170E5FA25F17786E14705F133F4C5A4C5AA24CC8FC
5E6E130E5EA2011F5C167816705E15015E6E485AA2010F49C9FC5D150E5DA25D6E5AA201
075B14F95DECFB80A202FFCAFC5CA25C13035C5CA25CA25C40407BBD35>I<B6017FB5D8
8007B51280A24A1A0000030180010101E0C7EA7FF049C80180EC1FC0000194C85B99C7FC
1B1E1B1C63A2634C7F634C150163DC077F4A5A160F6D020E4BC8FC161C6C190E16386204
70153C04F0153804E05DED01C062DB03807F4F5A922607003F130362030E4BC9FC151EDA
801C150E5D017F5F5D614B1578028116704B5DEC8380F0C1C00287C713E1F0E380028EEC
1FE796CAFC029C15EE14BC02F815FC5C013F5E5C605C604A5D91C8FC60133E95CBFC013C
81170E59407BBD56>I<027FB5D88007B512C091B6FCA2020101F8C7EBF8009126007FE0
EC7F804C92C7FC033F157C701478616F6C495A4E5A6F6C495A4EC8FC180E6F6C5B606F6C
5B6017016F6C485A4D5A6F018FC9FC179E17BCEE7FF85F705AA3707EA283163F167FEEF7
FCED01E7EEC3FEED0383ED070392380E01FF151E4B6C7F5D5D4A486D7E4A5A4A486D7E92
C7FC140E4A6E7E5C4A6E7E14F0495A49486E7E1307D91F806E7ED97FC014072603FFE0EC
1FFF007F01FC49B512FEB55CA24A3E7EBD4B>I<B66C0103B51280A3000101E0C8387FF0
006C49ED3F80017F94C7FC183C606D6C1570606D6C4A5A17034D5A6D6C4AC8FC170E5F6D
6C5C17785F6D6C495A5F6E495A6D4AC9FC160E6DEB801E5E5E91387FC0705EEDC1C0EC3F
E3EDE78003FFCAFC6E5A5D6E5AA25DA25D141FA35D143FA35D147FA392CBFC5CA3495AA3
497E0007B512FEA3413E7DBD35>I<027FB712F0A3DAFFFCC7EA3FE003E0EC7FC092C8EA
FF8049484A13004A4A5A5C4A4A5A49484A5A4A4A5A4D5A49484A5A4D5A91C74890C7FC5B
010E4A5A4C5A4C5A011E4A5A90C8485A4C5A4C5A4B90C8FCA24B5A4B5A4B5A4B5A4B5A4B
5A4B5AA24A90C9FC4A5A4A5A4A5A4A4814704A4814F04A485C14FF5D4990C7120149485D
49481403495A49485D49481407495A4DC7FC49485C4890C8FC48485D4848157E484815FE
484814034848EC0FFC16FF48B7FCB8FC5F3C3E7BBD3E>I<EC1F80ECFFE0903903F07070
90390FC039F890381F801D90383F000F017E5C5B00011407485A48485CA2485A001F140F
5E485AA2151F007F5D5BA2153F00FF92C7FC90C7FCA25D92387E03805AA215FEEDFC0700
7E0101140014035E6C0107130E140E3A1F801C7C1C000F13783A07C1F03E383A01FFC01F
F03A007F0007C029297DA730>97 D<EB1FC0EA0FFF5CA2EA003FA291C8FCA25BA2137EA2
13FEA25BA21201A25BA21203A25BEC3F800007EBFFE09038F3C1F849C67E01FE137E4848
133E49133F5B491480001F141F5B5BED3FC0123FA290C7FCA248147F1680127EA215FF00
FE15005AA24A5AA25D1403485C1407007C5C4A5A5D003C495A003E49C7FC001E137E6C13
F8380783F03803FFC0C648C8FC22407CBE27>I<EC07F0EC7FFE903801FC0F903907E003
8090390FC001C0D93F8013E090387F000701FE131F485A485A16C0485A000F15804990C7
FC121F485AA3127F5BA312FF90C9FCA6007E1560007F15E01501ED03C06CEC07806DEB0F
00001F141E6C6C137C3907E001F03901F01FC06CB5C7FCEB1FF023297DA727>I<EE07F0
ED03FF17E0A2ED000FA217C0A2161FA21780A2163FA21700A25EA2167EA216FEA25EEC1F
80ECFFE1903803F07190390FC039F890381F801D90383F000F137E495C00011407485A48
5A5E485A001F140FA248485CA2151F127F495CA2153F12FF90C790C7FCA25DEE03804814
7EA215FE1607007ED901FC130014035E6C0107130E140E3A1F801C7C1C000F13783A07C1
F03E383A01FFC01FF03A007F0007C02C407DBE2F>I<EC1FE0ECFFFC903803F01E90380F
C00F90393F800780D97E0013C0491303EA03F8120749130748481480121F49130F003FEC
1F00153E397F8001FCEC1FF0B6128002F8C7FC90C9FCA45AA616C01501007E1403ED0780
6CEC0F00151E6C5C6C6C13F83907C003E03903E03F802600FFFEC7FCEB3FE022297CA72A
>I<163EEEFFC0923803E1E0923807C0F0ED0F811687ED1F8F160F153FA217E092387E03
8093C7FCA45DA514015DA30103B512FCA390260003F0C7FCA314075DA4140F5DA5141F5D
A4143F92C8FCA45C147EA414FE5CA413015CA4495AA35CEA1E07127F5C12FF495AA200FE
90C9FCEAF81EEA703EEA7878EA1FF0EA07C02C537CBF2D>I<EC01F8EC0FFE91383F0787
9139FC03DF80903801F801903903F000FFEB0FE04948EB7F005C133F49C7FC49147E5B00
0115FEA248485CA215011207495CA21503120F495CA21507A25E5B0007140FA24B5A6D13
3F0003147F000114FF6D485B0000EB03DF90387E0F3FEB1FFCD907F090C7FC90C7FC5DA2
157EA215FEA25D001C1301007F5C4813035D4A5A4A5A48495A00F8017EC8FC387E01FC38
1FFFE0000390C9FC293B7FA72B>I<EB01FC13FF5CA21303A25CA21307A25CA2130FA25C
A2131FA25CA2133FA291C9FC15FE90397F07FFC091381F03E090397E3801F09138F000F8
EBFFE04A7F5C91C7FC485AA25BA2484813015E5BA2000714035E5B1507120F5E49130F5E
121F031F1370491480A2003F023F13F0EE00E090C7FC160148023E13C01603007E1680EE
070000FE5DED1F1E48EC0FF80038EC03E02C407CBE34>I<143C14FEA21301A314FCEB00
701400AD137E3801FF803803C7C0EA0703000F13E0120E121C13071238A2EA780F007013
C0A2EAF01F14801200133F14005B137EA213FE5BA212015B0003130E13F0A20007131EEB
E01CA2143CEBC0381478147014E013C13803E3C03801FF00EA007C173E7EBC1F>I<ED01
C0ED07F0A2150FA316E0ED038092C7FCADEC03E0EC0FF8EC3C3EEC701EECE01FEB01C001
031480EB0780140049133F010E1400131E131C013C5BA290C7127EA215FEA25DA21401A2
5DA21403A25DA21407A25DA2140FA25DA2141FA25DA2143FA292C7FCA25C147EA2001C13
FE007F5BEAFF015C495A495A48485A38F81F80D8783EC8FCEA3FF8EA0FE0245081BC25>
I<EB01FC13FF5CA21303A25CA21307A25CA2130FA25CA2131FA25CA2133FA291C9FC16FC
49EB03FE92380F0780017EEB3C0FED703F01FE13E0913801C07F9038FC0380EC07000001
010E14004A131C494890C7FC5C00035BEBF9C0495A01FFC9FC5A14F0EBE3FE9038E07F80
000FEB1FC06E7EEBC00781001F1303160E1380A2003F151E0207131C010013E0A2485DA2
007E01031378167000FE01015B15F1489038007F800038023EC7FC29407CBE2F>I<EB07
F0EA03FF14E0A2EA000FA214C0A2131FA21480A2133FA21400A25BA2137EA213FEA25BA2
1201A25BA21203A25BA21207A25BA2120FA25BA2121FA25BA2123FA290C7FCA25AEB0380
127EA212FE130700FC1300A25B130EA2EA7C1C133CEA3E38EA1FF0EA07C014407DBE1B>
I<D801F0D90FF0EB03F8D807FCD93FFEEB1FFFD80F1FD9F01F90387C0F80000E903C03C0
0F80E007C0271E0F87009039C3C003E0001C018E903807C780003C01DCDAEF007F003801
F814EE4A14FCD8781F5D00705B4A5CA200F04949481307013F60000090C75BA2041F140F
4960017E5D191F043F5D13FE4992C7123F97C7FC5E000195387F01C049027E147EA204FE
ECFE03000306FC1380495C1A07030103F81300000761494A150E620303163C000FF07C78
494AEC3FE0D80380D900E0EC0F804A297EA750>I<D801F0EB0FF0D807FCEB3FFED80F1F
EBF01F000E903903C00F80271E0F87007F001C018E1307003C01DC80003813F85CEA781F
00705B5CA200F049130F013F5D000090C7FCA2161F495D137E163F94C7FC13FE495C167E
A200019238FE03804914FCA203011307000303F813005B5FEEF00E0007161E49151C5F17
78000F6E6C5A49EC7FC0D80380021FC7FC31297EA737>I<EC07F8EC7FFE903901FC0F80
903907E007E090390FC003F090393F8001F8EB7F0001FEEB00FC485A484814FEA2485A12
0F5B001F15FF485AA2ED01FE127F5BA2150300FF15FC90C7FCA2ED07F8A2ED0FF0A2007E
15E0007FEC1FC0ED3F80A26CEC7F006C6C13FC4A5A6C6C485A3907E00FC02601F03FC7FC
3800FFFCEB1FE028297DA72C>I<D907C013FE903A0FF003FF80903A1C7C0F07E0903A38
3C1C03F0903A783E7801F80170EBF0009026F03FE013FC01E05B4B13FE0001017F147E01
C090C7FC147E17FF000313FEA2C75AA201015C17FE5CA20103140317FC5CA20107EC07F8
A24A14F0160F010F15E0161F17C0EE3F80011F15006E137E5E9138B801F890393FBC03E0
91389E0FC0DA07FFC7FCEC01F849C9FCA2137EA213FEA25BA21201A25BA21203A2B512E0
A3303A84A72E>I<91381F800C9138FFE01C903903F0707C90390FC0387890391F801CF8
90383F000F137E4914F000011407485A485A16E0485A121F150F484814C0A3007F141F49
1480A300FF143F90C71300A35D48147EA315FE007E495A1403A26C13074A5A381F801D00
0F13793807C1F33901FFC3F038007F03130014075DA3140F5DA3141F5DA2143F147F9038
1FFFFE5BA2263A7DA729>I<D801F0EB3F80D807FCEBFFE03A0F1F03C0F0000E90380F00
F8391E0F9E03001C13BC003CEBF807003813F0A226781FE013F000709038C001C092C7FC
5C12F0133F000090C8FCA35B137EA313FE5BA312015BA312035BA312075BA3120F5BEA03
8025297EA729>I<EC1FC0ECFFF8903803E03C903807800E90381E0007168049130F4913
1F153FA201F81400A2151C6D90C7FC7FEBFFE014FE90387FFFC06D7F6D13F86D7F130390
38001FFE14031400157E000C143E123F487EA248C7123CA25D12FC00F05C0070495A0078
495A6C495A260F803EC7FC3803FFF838007FC021297CA72B>I<147014FC1301A25CA213
03A25CA21307A25CA2130FA25CA2007FB512F0B6FC15E039001F8000133FA291C7FCA25B
A2137EA213FEA25BA21201A25BA21203A25BA21207EC01C013E01403000F1480A2EBC007
1500140E141E5C000713385C3803E1E03801FF80D8003EC7FC1C3A7EB821>I<137C48B4
EC03802603C7C0EB0FC0EA0703000F7F000E151F121C010715801238163FEA780F007049
1400A2D8F01F5C5C0000157E133F91C712FEA2495C137E150113FE495CA215030001161C
4914F0A21507173CEEE038150F031F1378000016706D133F017C017313F0017E01E313E0
903A3F03C1F1C0903A0FFF007F80D901FCEB1F002E297EA734>I<017E147848B4EB01FC
2603C7C013FED807031303000F13E0120E121C0107130100381400167ED8780F143E0070
5B161EEAF01F4A131C1200133F91C7123C16385B137E167801FE14705B16F016E0120149
EB01C0A2ED0380A2ED0700A20000140E5D6D133C017C5B6D5B90381F03C0903807FF80D9
01FCC7FC27297EA72C>I<017CEE038048B40207EB0FE02603C7C090391F801FF0EA0703
000F7F000E153F001C16000107160F003817074C1303D8780F027E130100705B1800D8F0
1F14FE4A4914E01200133FDA000114014C14C05B137E0303140301FE4A14805BA2F00700
00011407494A5B180EA260A2030F5C12006D011F5C017C496C5B017E0139495A6D903870
F80390281F81E07C0FC7FC903A07FFC01FFE010090380007F03C297EA741>I<D901F813
3FD907FEEBFFE0903A1E0F83C0F0903A3807C780F890397003CF0301E013FED801C0EBFC
071203018013F8D8070015F0EE01C0000E4AC7FCA2001E1307A2C75BA2140F5DA3141F5D
A3143F92380001C0A34A1303001E1680003F017E1307267F80FE14005ED8FF81141ED901
DF131CD8FE035C3A7C078F80F03A3C0F07C1E03A1FFC03FF802707F0007EC7FC2D297EA7
34>I<137C48B4EC03802603C7C0EB0FC0EA0703000F7F000E151F001C16801307123816
3FD8780F150000705BA2D8F01F5C4A137E1200133F91C712FE5E5B137E150113FE495CA2
150300015D5BA215075EA2150F151F00005D6D133F017C137F017E13FF90393F03DF8090
380FFF1FEB01FC90C7123F93C7FCA25DD80380137ED80FE013FE001F5C4A5AA24848485A
4A5A6CC6485A001C495A001E49C8FC000E137C380781F03803FFC0C648C9FC2A3B7EA72D
>I<02F8130ED903FE131ED90FFF131C49EB803C49EBC0784914F090397E07F1E09038F8
00FF49EB1FC049EB07800001EC0F006C48131E90C75A5D5D4A5A4A5A4A5A4AC7FC143E14
785C495A495A495A49C8FC011E14E05B5B4913014848EB03C0485AD807F8EB078048B413
1F3A1F87E07F00391E03FFFE486C5B00785CD870005B00F0EB7FC048011FC7FC27297DA7
2A>I<ED01C016E0A216F0A2ED00F816FC007FB612FEB8FCA26C15FEC8EA01F8ED03F0ED
07E0ED0FC0ED1F801600150E281270C02D>126 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FM cmsl10 10.95 67
/FM 67 128 df<9339FFC003F8030F9038F01FFE923A3FC07C7E0F923BFE001FF81F80DA
03F890383FF07F4A48D9FFE013C0EC1FE04A4848EBC0FF03804A1380DA7F00157F4A9238
003E004A6D91C7FC8301015D4A5CA4160113034A5CA416030007B812FCA3290007F00003
F8C8FCA21607130F4A5CA4160F131F4A5CA4161F133F4A5CA4163F137F91C75BA4167F5B
4992C9FCA31201486C49487EB5D8F83F13FF5DA242407EBF35>11
D<39078003C0391FE00FF0003F131F01F013F8A6390F3007980000EB0018017013380160
1330A201E01370491360A2000114E039038001C001001380481303000EEB0700000C1306
001C130E485B485B485B4813601D1C75BE2D>34 D<ED07C0ED3FF0EDF8384A487EEC03E0
4A487EEC0F80141FEC3F00A25C147EA2161E02FE131C163C16385E16F05E4B5A4B5A4BCA
FC150E5D5D4B0103B512C05D6E5A4B9039007FFC0092C8EA3FE06EED1F8096C7FC6F141E
60D901FF1538902603BFC01478D9073F5D010E6D495AD91C1F4A5A01385E496C6C130701
F04BC8FCD801E06D131E2603C007141C000F6E133C001F01035C01806D5B003F6D6C485A
007F5E6EEB838048C7EA7F8704CFC9FCED3FDEDB1FFC14384C14786F4814706F7E6D6E5C
4B6C1301007FDA3FFF495A6C6C017C6D485A9029E003F03FC00FC7FC3C1FF01FC01FF03E
0007B5390007FFFC000101FC010113F026003FE09038003FC042437AC047>38
D<EA0780EA1FE0123F13F0A6EA0F30120013701360A213E013C0A21201EA038013005A12
0E120C121C5A5A5A5A0C1C71BE19>I<007FB5FCA2B512FEA418067C961E>45
D<121EEA3F80EA7FC012FFA41380EA7F00123C0A0A788919>I<1703EF0780170FA2EF1F
00A2173EA25FA25FA24C5AA24C5AA24C5AA24C5AA24CC7FCA2163E167E167C5EA24B5AA2
4B5AA24B5AA24B5AA24BC8FCA2153EA25DA25DA24A5AA24A5AA24A5AA24A5AA24AC9FCA2
143EA25CA25CA2495AA2495AA2495AA2495A131F91CAFC133EA25BA25BA2485AA2485AA2
485AA2485AA248CBFCA2123EA25AA25AA21270315B7FC32D>I<EC07F8EC3FFF9138FC0F
C0903903F003E0903907C001F0D90F8013F849C7FC013E14FC017E147C017C147E13FC48
5AA20003157F5B1207A2120F5BA2121F16FF5BA2123FA44848EB01FEA648C7EA03FCA5ED
07F8A25A16F0A2150F16E0A3ED1FC0A21680007E143F1600157E123E003F5C4A5AD81F80
5B000FEB07E06C6C485A2603F03FC7FC3800FFFCEB1FE0283F79BC2D>I<157015F01401
1407143F903803FFE0137FEBFFCFEBF80F1300141F15C0A5143F1580A5147F1500A55C5C
A513015CA513035CA513075CA5130F5CA3131F497EB612F8A31D3D78BC2D>I<EC01FE91
380FFFE0023F13F89138FC07FC903901E001FE903907C000FF49C7EA7F80011E15C0163F
4915E05B0170141F13FF80A35A163FA26C90C7FC137E0118EC7FC090C8FCEEFF80A24B13
00A24B5A5E4B5A4B5A4B5A5E4B5A4BC7FC15FEEC01F84A5A4A5A4A5A4AC8FC143E5C5CEB
01E04948130E49485B49C7FC131E495C13705B48485C484814F0000FB6FC5A485D5AB7FC
5EA22B3D7CBC2D>I<EC07FC91383FFF809138F80FE0903903C007F09039078003FC9038
0F0001011C14FE013C14FF137F1480EBFFC0A31480A291380003FE137E90C7FCED07FC16
F8150F16F0ED1FE016C0ED3F80ED7E005DEC07F0903803FF8015F090380001FC6E7EED7F
80ED3FC0A2ED1FE016F0A316F8A4120EEA3F80486C133F16F012FFA216E0157F5B48C7EA
FFC000F01580007049130012786C495A003EEB07F86C495A390FE03FE00003B51280C649
C7FCEB1FE0283F7ABC2D>I<161C163C167CA216FCED01F815031507150FA2151DED3BF0
157315E315C31401EC038391380707E0140E141CA2143814709138E00FC0EB01C0148013
03EB0700130E49EB1F805B133013705B485A4848EB3F0090C7FC5A120E5A5A48147E1260
B8FCA3C73801FE00A25DA41403A25DA314074A7E0107B512F8A3283E7BBD2D>I<010614
03D90780131F90390FF801FE91B512FC16F816F016E0168049EBFE0015F890381C7FC091
C8FCA3133C1338A513781370A2EC1FE0ECFFF8903873E03E9038FF001F01FCEB0F804914
C049EB07E04914F049130390C7FC16F8A61507A21206EA3F80487EA2150F00FF15F0A249
14E090C7121F00FC15C000F0143F00701580ED7F0012786C14FE4A5A6C495A390F800FE0
3907E03FC06CB5C7FCC613FCEB1FE0283F7ABC2D>I<ED7F80913803FFE091380FC0F091
383E003802FC131C495A494813FE903807E003EB0FC090381F8007133FD97F0013FC01FE
1303ED01F0484890C7FC1203A2485AA2120F5BA2001FEB3F809038E0FFE0393FE3C0F890
38E7007C01EE7F01FC133F4848EB1F80A24914C05B16E0A2485AA216F05BA2ED3FE0A290
C7FCA4157F16C0A316804814FF007E1500007F5C14016C5C4A5A6C6C485A4A5A6C6C485A
2607E07FC7FC3803FFFEC613F8EB3FC0273F78BC2D>I<EA0380120713E090B712805AA2
17005E485D5E001EC85A484A5A00385D150300784A5A00704AC7FC151E5D485CC8127015
F04A5A4A5A4A5A4AC8FC140E141E5C147C14785C1301495AA213075C130F495AA2133F91
C9FC5BA25B5B1201A312035BA21207A3485AA5121F5BA26C5AEA0780294074BD2D>I<EC
03FC91381FFF8091387C07E0903901F001F0903903C000F84948137C49C7123E131E013E
141F133C137C137813F8A3163F486C143E167E6D147C6C6C14FC6E13F89138C001F09138
F003E090397FF807C09138FC0F0090383FFF3E6D13F86D13E06D7F01017F8101077F9039
1F1FFF80D93E0F13C0EBF8072601F00113E048486C13F04848137F4848131F001FEC0FF8
90C71207003E1403A2481401A300FC15F05AA3ED03E0A26CEC07C0007C1580007E140F00
3EEC1F00003F143E6C6C5B6C6C485A3907F00FE00001B512806C6C48C7FCEB0FF0283F7A
BC2D>I<EC07F8EC3FFE9138FC0F80903901F007C0903907E003E0D90FC013F090381F80
01013F14F8EB7F004914FC48481300A24848EB01FEA21207A3485AA41503121F5BA31507
A2000F15FC150FA2151F1207153F000315F86C6C137F000014EF90387C01CF90393E078F
F090380FFE1FEB03F890C713E0A2ED3FC0A3ED7F8016005D003F5C487E4A5A00FF495A5D
4A5A49485A48495A007049C7FC0078137E383E03FC381FFFF06C13C0D801FEC8FC273F79
BC2D>I<13F0EA01FC1203EA07FEA313FCA2EA03F8EA01E0C7FCB3121EEA3F80EA7FC012
FFA41380EA7F00123C0F2778A619>I<17E016011603831607A2160FA2161F83163FA216
7F167716F7EEE7FCED01E316C3150316831507EE03FEED0F01150E151E151C153C03387F
ED7800157015F05D4A4880177F4A5AA24AC7FCA2020E81173F5C021FB6FC5CA20270C7EA
3FE0171F5CA2495AA2494881170F49C8FCA2130EA24982013C1507A2137CD801FE4B7E26
07FF80EC3FFEB500F00107B512FC19F85E3E417DC044>65 D<013FB7FC18E018FC903B00
7FE00007FE6E48903801FF809438007FC05DF03FE0F01FF0A3027F16F892C8FCA54A16F0
4A153F19E0187F19C0F0FF8001014B13004A4A5A4D5AEF1FF04D5ADC03FFC7FC49B612F8
EFFF8002F8C7EA3FE0EF0FF0EF07FC717E010715014A81711380A319C0130F5CA5011F4B
13805C19005F601707013F4B5A4A4A5A4D5A4D5A017F913801FF8001FF020F90C7FCB812
FC17F094C8FC3D3E7DBD40>I<DCFFC01338030F01F01378037F01FC13F0913A01FF803F
01913A07FC000781DA1FE0EB03C3DA7FC0EB01E74AC812FF4948ED7FE0D907FC153F495A
4948151F495A4948150F494816C018074890C9FC485AA2485A000F1880491603121FA248
481607A295C7FC485AA412FF5BA75BA2181C183C1838A27F007F1778187018F0003F5F6D
150160001F16036C6C4B5A95C7FC6C6C5D6C6C151E6C6C5D6C6C15F86D6C495A6D6CEB07
C0D91FF0EB1F80D907FE01FEC8FC0101B512F86D6C13E0DA07FEC9FC3D4276BF42>I<01
3FB7FC18E018F8903B007FF0000FFE6E48EB01FF9438007FC04B6E7E180F85727E727E14
7F4B6E7EA2727EA302FF178092C9FCA54918C05CA41A8013034A5DA41A0013074A5DA261
A24E5A130F4A5E180F61181F61011F4C5A5C4E5A4EC7FC4D5A4D5A013F4B5A4A4A5AEF3F
E0EF7F80017F4A48C8FC01FFEC1FFCB812F0178004FCC9FC423E7DBD45>I<013FB812F8
A39026007FF0C7127F6E48140F18034B14011800A31978147F4B1570A502FF143892C7FC
A3190017784915704A14F016011603160F91B6FC495DA29138FC001F1607160316010107
5D5CA2197019F019E0010F4A5A4A90C7120119C0A218031980011F16075CF00F00A26018
1E013F163E4A157E4D5A1703017F150F01FFEDFFF8B9FCA2603D3E7DBD3E>I<013FB812
E0A3903A007FF000016E48EB003F180F4B14071803A31801147F4B15C0A514FF92C71270
A395C7FC17F0495D5C160116031607161F49B65AA39138FC003F160F160701075D4A1303
A5010F4AC8FC5C93C9FCA4131F5CA5133F5CA3137FEBFFF0B612F8A33B3E7DBD3B>I<4B
B46C1370031F01F013F0037F9038FC01E0913A03FF807E03913A0FF8000F83DA1FE0EB07
C7DA7F80EB01EF4AC812FFD903FE16C04948157F4948153F495A4948151F495A49481680
91C9120F5A485AA2485A000F18004982121FA248485EA295C7FC485AA412FF5BA6043FB5
12E05BA29339001FFC00715AA2607F127FA2171F123F6D5EA2121F7F000F163F6C7E6C6C
4B5A7F6C6C15FF6C6DEB01EFD93FC0EB07C7D91FF0EB1F87D907FE9038FE03800101B5EA
F8016D6C01E0C8FCDA07FEC9FC3C4276BF47>I<013FB5D8F807B6FC04F015FEA2902600
7FF0C7380FFE006E486E5AA24B5DA4180F147F4B5DA4181F14FF92C85BA4183F5B4A5EA4
91B8FC5B6102FCC8127FA318FF13074A93C7FCA45F130F4A5DA41703131F4A5DA4170713
3F4A5DA3017F150F496C4A7EB6D8E01FB512FC6115C0483E7DBD44>I<011FB512FC5BA2
9039003FF8006E5AA25DA5143F5DA5147F5DA514FF92C7FCA55B5CA513035CA513075CA5
130F5CA5131F5CA3133F497E007FB512F0A2B6FC263E7EBD21>I<021FB512FCA3DA0007
13006F5AA25EA41507A25EA4150FA25EA4151FA25EA4153FA25EA4157FA25EA415FFA293
C7FCA45C121FD87F805BEAFFC0A214035D13804A5AEAFE0000F8495A48495A00705C6C49
5A6C01FEC8FC380F81FC3803FFE0C690C9FC2E407ABD2F>I<013FB500F8010FB5FC4C5B
A29026007FF0C7000313E06E486E130019FC4B15F04E5A4E5A4E5A061EC7FC027F5D4B5C
4D5A4D5AEF07804DC8FC02FF141E92C7127C5FEE01E04C5A4C5A49021FC9FC4A5B5E4C7E
5D03077F01035B9139FC1F3FE0153C4B6C7E15F09139FFE00FF84913C092380007FC5C4A
6D7E5C707E130F4A6D7F84177F717EA2011F6F7E5C717EA2717EA2013F6F7E5C84A2017F
83496C4A13E0B600E0017F13FFA24B90B6FC483E7DBD47>I<013FB512FEA25E9026007F
F8C8FCEC3FE0A25DA5147F5DA514FF92C9FCA55B5CA513035CA513075CA21838A2187013
0F5CA218E0A3011F15014A15C01703A21707EF0F80013F151F4A143F177FEFFF00017F14
0301FF143FB9FC5FA2353E7DBD39>I<90263FFFF0933807FFFE5013FC629026007FF8EF
FC00023F4D5AA2023BEF77F0A2DA39FC16E7A2F101CF0279EE038FDA70FE5FF1070FA219
0E1A1FDAF07F151C02E060193819706F7EF1E03F130102C0DB01C05BA26F6CEB0380A295
3807007F0103160E4A6C6C93C7FC60A2606201076D6C5B02005F60A26F6C485A94380380
015B010EDB07005BA2923801FC0EA24D1303131E011C6D6C485C5FA25F1907013CEC7FC0
013860013C5D137C01FE6EC7120F2607FF80013E4A7EB500FC031FB512F8043C5E4A131C
573E7DBD53>I<90263FFFE0023FB5FC6F16FEA29026003FF8020313C0021F030013004A
6C157C023B163C6F15381439810238167802787FDA707F157082153F82031F15F002F07F
DAE00F5D8215078203031401010180DAC0015D82811780047F1303010315C04A013F5C17
E0161F17F0040F1307010715F891C7000791C7FC17FC160317FE04015B4915FF010E6E13
0E188E177F18CEEF3FDE011E16FE011C6F5AA2170FA21707133C01386F5A133C017C1501
13FE2607FF801400B512FC18705C483E7DBD44>I<923803FF80031F13F09238FE01FE91
3903F0003FDA0FC0EB1FC0DA3F80EB07E0027EC76C7E49486E7E49488149486E7E494815
7F495A013F17804948ED3FC049C9FCA24848EE1FE012035B000718F05B120FA2485A19F8
123F5BA2127FA219F04848163FA5F07FE0A35BF0FFC0A219805F19007F4D5A127F4D5A60
003F160F6D5E001F4C5A4D5A6C6C4B5A95C7FC6C6C15FE00034B5A6C6C4A5A6C6C4A5A01
7FEC1FC06D6C495AD90FE001FEC8FC903903F807F80100B512C0DA0FFCC9FC3D4276BF47
>I<013FB612FEEFFFE018F8903B007FF0000FFC6E48EB01FF7113804BEC7FC0183F19E0
F01FF0A2147F5D19F8A402FFED3FF092C8FCA219E0A2F07FC05B4AEDFF8019004D5A4D5A
EF0FF80103ED3FE04A903801FF8091B648C7FC17F002FCCAFCA213075CA5130F5CA5131F
5CA5133F5CA3137F497EB612E0A25D3D3E7DBD3E>I<923803FF80031F13F09238FE01FE
913903F8003FDA0FE0EB1FC0DA3F806D7E4AC7EA03F0D901FC8149486E7E49486E7E010F
82494881494816804948ED3FC013FF91C9FC484817E00003171F5B000718F0A2485AA248
5A19F8123FA25B127FA219F04848163FA519E0187F5BA219C018FF1980A24D1300A24D5A
6C7E4D5A60003F160F037C5C6C6C48B4495A913A0783803FC0000F90260E01C05B9026F0
0C0049C7FC0007011CEBE0FE2603F818EB61FCD801FCEC73F8D800FEEC77F0017FEC7FC0
D93F985CD90FFC01FEC8FC902703FE07F813030100B5FC91260FFC3C5B91C7FC180E163E
181E043F137CEF81FC17FF60A260A2705B60705B7048C7FCEE01F83D5276BF47>I<013F
B612F017FF18E0903B007FF0003FF86E48EB07FCEF01FE4B6D7EF07F8019C0183F19E014
7F4B15F0A502FFED7FE092C8FCA219C0F0FF80A2494B13004A5D4D5AEF0FF04D5AEF7F80
0103DA07FEC7FC91B612F017809139FC0007E0EE03F8EE00FC0107814A147F717EA284A2
130F5CA484011F157F5CA41902013F17075CA2F0F00F017F170E496C143FB600E0011F13
1C94380FF83C4B01071378CA3801FFE09438003F8040407DBD43>I<9239FF8003800207
EBF007021F9038FC0F0091387F00FE02FCEB1F1FD903F0EB07BF49486DB4FC49487F4A6D
5A49C8FC49157E133E137E173E49153CA57F1738A26D92C7FC808080EB7FFEECFFE06D13
FEEDFFC06D14F06D14FC010380010080143F020380DA003F7F15031500707E163F161FA2
160F121CA31607160F003C5EA35F003E151F94C7FC007E5D007F153E6D5C16FC01E0495A
D87DF0495AD8FCFCEB0FC03AF87F803F8027F01FFFFEC8FCD8E00713F839C0007FC03142
7BBF33>I<0007B912F0A33C0FFE000FF8003F01F0160F01C04A13034848160190C7FC12
1EF000E048141F5E1238A212781270153F5E5AA3C81600157F5EA515FF93C9FCA55C5DA5
14035DA514075DA5140F5DA3141FEC7FFC0003B7FCA33C3D76BC42>I<B600E090B512FC
4B15F8A2000101C0C7000F13006C49EC03FCEF01F091C9FC60A317015A495EA417031203
495EA4170712074993C7FCA45F120F49150EA4171E121F49151CA4173C123F491538A317
78177017F05F001F15015F16036D4A5A000F93C8FC5E6C6C141E6C6C5C000115F86C6C49
5A017FEB07C090393FC03F8090260FFFFEC9FC010313F89038007FC03E4073BD44>I<B6
020FB5FC19FEA2000301E0020113E06C01809138007F8091C9EA7E006C173C18386E1578
1870017F16F0604D5A804D5A133F4DC7FCA26E140E171E011F151C173C17386E1478010F
15705FA24C5A8001074A5AA24CC8FC5E6E130E0103141E161C163C16386E5B13015EA24B
5A14FF6D495AA24BC9FC5D158EEC7F9E159C15B8A215F0143F5DA25DA26E5AA292CAFCA2
140E404074BD44>I<B6017FB5D88007B512804A1A00A2000701C0010101E0C713F06C90
C80180EC3FC06C48735A99C7FC057F150E1B1E6D191C6C1A3C1B3805FF15787214705E63
6EEB03BF017F4E5AEE073F505A040E7F051F4AC8FC161C6E170E013F143862167804706D
5BEEF00F04E05D90381FE00104C015F003035E0480140106F85B9226070007130302F05F
010F010E150797C9FC5D190E4BEB03FC616E5A01075F5D61DAF9C014FE05015BECFB8002
FF6F5A7F92C75CA24A93CAFC835C606D5A605C604A15781870594074BD5D>I<010FB500
F090B512F85B5FD9003F902680003F1300DA0FFEC7EA1FF84BEC0FE00207168096C7FC6E
6C141E181C6E6C143C606E6D5B4D5ADB7FC05B4D5A92383FE0074DC8FC92381FF01E171C
6F6C5A5F923807FCF0EEFDE06FB45A5F6F90C9FCA26F7FA2707EA216FF4B7FED03DF9238
079FF0ED0F1F92380E0FF8151C92383C07FC15784B6C7EEC01E04B6C7EEC038002076D7F
4AC7FC021E6E7E5C02386E7E5C02F06E7E495A49486E7E130749486E7E497E017F4B7E26
03FFF091383FFF80007F01FC49B512FEB55CA2453E7EBD44>I<B66C0103B51280A30001
01F0C8EBF0006C49ED7FC06D486FC7FC6E153E013F163C606D6C5D606D6C4A5A17036D6C
4A5A95C8FC6E140E0103151E5F6D6C14385F6D6D13F04C5ADA7FC05B4C5AEDE007023F49
C9FC161E91381FF01C5E91380FF8785E6E6C5AEDFDC015FF6E5B93CAFC6E5AA35DA21403
A45DA21407A45DA2140FA4141F4A7E013FB512F0A3413E75BD44>I<010FB712FEA39239
C00007FCD91FFCC7EA0FF814F04AEC1FF00280EC3FE091C8EA7FC0013EEDFF80A2013C4A
13004C5A494A5A4C5A13704C5A4C5A494A5A4C5AA290C74890C7FC4B5A4B5A4B5AA24B5A
4B5A4B5A4B5AA24A90C8FC4A5A4A5A4A5AA24A5A4A5A4A48EB01C04A5AEF03804990C7FC
495A495A494814071800495A49485C495A495A171E4890C8123E485A4848157E484815FE
4C5A484814074848141F4848EB01FFB8FC5FA2373E7BBD38>I<0118130C0138131C4913
38491370484813E039038001C0390700038000061400000E5B48130E0018130C0038131C
00301318A20070133800601330A300EFEB778039FFC07FE001E013F0A4397FC03FE0A239
3F801FC0391E000F001E1C6CBE2D>92 D<EC7FC0903803FFF890380FC07E90383E003F49
6D7E01FF6D7E82A248140782A26C5A137890C7120FA25EA2EC03FF147F903807FF1FEB1F
E0D97F805B3801FE00EA03F8485A4848133F485A003F5D49EC81C048C7FCA2157F48ED03
804814FFA2007F5B913903BF0700903880073F3A3FC00E1F8E260FE03C13FC3A03FFF00F
F83A007FC003E02A2A7CA82D>97 D<EC1FF0ECFFFE903903F01F8090390FC003C0D93F00
13E0017E130F49131F000115F04848EB3FE0485AA24848EB1FC0001FEC0F004990C7FC12
3FA2485AA412FF90C9FCA96CEC0380150716006C6C5B151E001F5C6C6C5B6C6C5B6C6C48
5A3901F80F8026007FFEC7FCEB0FF0242A7AA828>99 D<EE03F8ED01FFA3ED000F1607A2
17F0A4160FA217E0A4161FA217C0A491380FF03FECFFFC902603F81F138090390FC007BF
90391F8003FF90387E0001497F0001157F48481500485A120F5B001F5D485A5E5B127FA2
150112FF90C75BA41503A25EA37E1507A26C4A5A7F001F141F6C6C133F6C6CEBFFF83B03
F001EFFFC03900F80F8F90383FFE0FD90FF0EBE0002D407ABE33>I<EC3FE0903801FFF8
903807E07E90380F801F90393F000F80017E14C049EB07E0485A12034848EB03F0485AA2
121F5B123FA248481307A290B6FCA2D8FF80C8FC90C9FCA87EED01C015036C15806D1307
001FEC0F006D131E000F5C6C6C5B6C6C485A3900FC07C0D93FFFC7FCEB07F8242A7BA828
>I<ED07F0ED3FFCEDFC1E913803F03F4A48B4FC4A481380141FEC3F81DA7F0113008102
FE137C93C7FCA213015CA513035CA50007B512F8A3260007F0C8FCA3130F5CA5131F5CA5
133F5CA5137F91C9FCA55B5BA4EA03FF007F13FEB5FCA229407DBF1C>I<177C913907F8
03FE91393FFE0F8F9139FC0F9C3F903901F007F8903907E003E0D90FC013F0011F903801
F80C02801400133FD97F007FA315035B495CA3017E495A5E150F6D5C6D495A90263F803E
C7FCECC0FC903871FFF09038E07F8091C9FC485AA47FA27F90B512F8EDFF806C15E016F8
6D8048B6FC3A07E0000FFED80F801300003FC8127F003E815A00FC815AA25E163EA25E6C
15FC007C4A5A6C4A5A6CEC0FC0D80FC0013FC7FC3903F801FCC6B512F0010F90C8FC303D
7FA82D>I<147FEB3FFFA313017FA25CA513015CA513035CA4ED07F80107EB1FFF9139F0
781FC09138F1E00F9139F38007E0ECF70002FE14F0495A5CA25CA24A130F131F4A14E0A4
161F133F4A14C0A4163F137F91C71380A4167F5B491500A300015D486C491380B5D8F87F
13FCA32E3F7DBE33>I<1478EB01FE130314FFA25B14FE130314FCEB00F01400ACEB03F8
EA01FF14F0A2EA001F130FA314E0A5131F14C0A5133F1480A5137F1400A55B5BA4EA03FF
007F13F0A2B5FC183E7DBD1A>I<143FEB1FFF5BA213017FA214FEA5130114FCA5130314
F8A5130714F0A5130F14E0A5131F14C0A5133F1480A5137F1400A55B5BA4EA03FF007F13
F8A2B5FC183F7DBE1A>108 D<902707F007F8EB03FCD803FFD91FFF90380FFF80913CE0
781FC03C0FE09126E1E00FEBF0073E001FE38007E1C003F090260FE700EBE38002EEDAF7
0013F802FC14FE02D85C14F84A5CA24A5C011F020F14074A4A14F0A5013F021F140F4A4A
14E0A5017F023F141F91C74914C0A549027F143F4992C71380A300014B147F486C496DEB
FFC0B5D8F87FD9FC3F13FEA347287DA74C>I<903907F007F8D803FFEB1FFF9139E0781F
C09138E1E00F3B001FE38007E090380FE70002EE14F014FC14D814F85CA24A130F131F4A
14E0A4161F133F4A14C0A4163F137F91C71380A4167F5B491500A300015D486C491380B5
D8F87F13FCA32E287DA733>I<EC0FF0ECFFFE903903F01F8090390FC007C049C66C7E01
3E6D7E01FC6D7E48488049147C0003157E485A000F157F5B121FA2485AA2007F1680A217
0048C85AA54B5AA25E5A6C4A5A7E4B5A5E6C140F6C6C5C4B5A6C6C013EC7FC6C6C5B6C6C
485A3900FC0FE090383FFF80D90FF8C8FC292A7BA82D>I<91387F01FE903A7FFF0FFFC0
9139FE3E03F09238F801F8903A03FFE000FE6D49137F4B7F92C713804A15C04A141FA218
E0A20103150F5C18F0A3171F010716E05CA3173F18C0130F4A147F1880A2EFFF004C5A01
1F5D16034C5A6E495AEE1FC06E495AD93FDC017EC7FC91388F01F8913883FFE0028090C8
FC92C9FC137FA291CAFCA45BA25BA31201487EB512F8A3343A81A733>I<91390FE003C0
DAFFFC1380903903F81E0790390FE0070F90391F80038FD97F0013DF01FE130148489038
00FF00485A1207485A8248485C123F495CA2485AA2150112FF90C75BA41503A25EA37E15
077F003F4A5A151F6C6C133F6C6C137F000714FF3903F003CF3A00FC0F8FE090383FFE0F
EB0FF090C7FC151F5EA5153F5EA4157F4B7E023F13FEA32A3A7AA730>I<903907F01F80
D803FFEB7FE09138E1E1F09138E387F839001FE707EB0FE614EE02FC13F002D813E09138
F801804AC7FCA25C131FA25CA4133F5CA5137F91C8FCA55B5BA31201487EB512FEA32528
7EA724>I<9138FF81C0010713E390381F807F90397C003F8049131F4848130F5B000314
07A248481400A27FA27F6D90C7FCEBFF8014FC6C13FF6C14C015F06C6C7F011F7F130790
38007FFE1403140100381300157EA2123C153E157E007C147CA2007E147815F8007F495A
4A5A486C485A26F9E01FC7FC38E0FFFC38C01FE0222A7DA824>I<EB0380A4130791C7FC
A25BA25BA2133EA2137E13FE12011207001FB512C0B6FCA2D801FCC7FCA312035BA51207
5BA5120F5BA41407001F130E13C0A4141E141C1380A26D5AA2000F5B14F03807E1E03801
FF80D8007EC7FC1A3978B723>I<B500C3B53803FFFCA204FE14F8290FFE003FE00013C0
D807F86D48EB7F000003173E183C150F18386D5E0001141F705B153F4D5A15776D4B5A00
00ECE7F04DC7FCEC01C3170E9038FF0383017F5D91380703F85FEC0E01021E5CD93F9C14
F002BC6D5A02B813FDDAF8005B4A13FF5F6D5A94C8FC5C4A137E167C6DC7FC1678010E14
383E2878A642>119 D<48B539C07FFFC0A33C000FFE003FF8006D48EB1FE00103158001
01023EC7FC6E133C01005C027F5B6F5A91383F81C0EDC380DA1FC7C8FC15EFEC0FFE6E5A
5D140381A24A7E140FEC1E7F023C7FEC383F02707FECE01F010180903803C00F49486C7E
D90F007F491303017E80D801FE80D807FF497EB5D8803F13F8A332277FA630>I<90B539
E007FFF05E18E0902707FE000313006D48EB01FC705A5F01014A5A5F16036E5C01001407
94C7FC160E805E805E1678ED8070023F13F05EED81C015C191381FC38015C793C8FC15EF
15EEEC0FFCA25DA26E5AA25DA26E5A5DA24AC9FC5C140E141E141C5C121C003F5B5A485B
495A130300FE5B4848CAFCEA701EEA783CEA3FF0EA0FC0343A80A630>I<B812F0A22C02
7C982D>123 D<000E1307393F801FC0007FEB3FE013C012FF1380007F14C00100138000
1CEB0E001B096EBD2D>127 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FN cmbx10 10.95 83
/FN 83 128 df<DBFFF8EB3FF0021F9039FE03FFFC027FD9FF8F7F49B9FC0107D9C03F01
F113804948C66C1381D91FF8494913C0D93FE0EB7FFE495A01FF15FC5C484C6C138091C7
003F6D1300197E041F91C7FC160FA9BAFCA50001902780000FFCC8FCB3AC007FD9FE03B5
12FCA542407EBF3D>11 D<EDFFF8020F13FF027F8049B612E001079038C01FF090390FFE
0007D91FF8497ED93FE0131F4948497E13FF5C5A91C7FCA2705A705AEE03C093C8FCA6EE
03FCB8FCA50001903880001F160FB3AB007FD9FE03B512F0A534407EBF3A>I<EDFFFC02
1FEBFFFC147F49B6FC0107EBC01F90390FFE003FEB1FF8EB3FE04948137F01FF143F5C5A
91C7121F160FABB8FCA50001903880000FB3AC007FD9FE03B512F0A534407EBF3A>I<EA
0FC0EA1FE0EA3FF0EA7FF8EAFFFCA7EA7FF8A8EA3FF0A7EA1FE0A8EA0FC0A71207C7FCA8
EA0FC0EA1FE0EA3FF0EA7FF8EAFFFCA6EA7FF8EA3FF0EA1FE0EA0FC00E4077BF20>33
D<D80FC0EB1F80486CEB3FC0486CEB7FE0486CEBFFF0486C4813F8A301FE14FCA3007F7F
003F147F001F143FD80FDEEB1FBCD8001EEB003CA2013E147C013C1478A2017C14F80178
14F0A201F813014848EB03E0A24848EB07C04848EB0F804848EB1F00001F5C48C7127E00
3E147C001C143826207DBE37>I<147CA4903803FF80011F13F8017F13FE48B6FC4815C0
48017C13E0D80FF8EB1FF0D81FE0130701C0EB01F8D83F80EB00FCA2007F14030100EB07
FE150F48141FA31380A213C0ED0FFC01E0EB07F801F8EB01E0D87FFE90C7FCEBFFFC14FF
6C14E015F86C806C14FF16806C15C06C15E0C6FC6D14F0011F14F81307D9007F13FCA2EC
7C7FED1FFED81F80130FD83FC01307EA7FE0D8FFF01303A21501A401E014FC13C0D87F00
1303127E16F86C14070180EB0FF0D81FC0EB1FE0D80FF0133F3A07FE7DFFC06CB612806C
ECFE006C6C5B011F13F001031380D9007CC7FCA427497AC334>36
D<EC01FE913807FF80021F7F027F7F9138FFC3F0491301D903FE7FECFC000107804A137C
130FA2131FA316FC5E15015E6E485A15074B5A4B5A6D6C48CAFC037E91383FFFFE5D6E5A
5D6D5B4B9138007C004B15FC6D6D4A5A616D6D1403496D4A5A010F5F496D140F496C6C4A
5A017E94C7FC496C6C5C00036E147E48486C6D5B000F6D5D001FEDC00148486C6D485A6E
6D485A007F03F85B6EEBFC0F00FF6D6D485A037F49C8FC92383FFF7E6F5B6D6D5B6F4914
7C6F7F6C6C6D7F6F6D14F86C6C499038FF80016C6C010FECE0036CD9C07F9138F81FF06C
90B500E390B512E06C038015C0C69126FE001F1480013F01F80103EBFE00010701809038
003FF047417CBF51>38 D<EA0FC0EA1FE0EA3FF0EA7FF8EAFFFCA313FEA3127F123F121F
EA0FDEEA001EA2133E133CA2137C1378A213F8EA01F0A2EA03E0EA07C0EA0F80121FEA3F
00121E120C0F2079BE1D>I<EC0780140F141FEC3E0014FE495A495A5C495A130F495A49
5AA249C7FC5B5B1201485AA212075BA2120F5B121FA3485AA4127F5BA512FFB0127FA57F
123FA46C7EA3120F7F1207A27F1203A26C7E12007F7F6D7EA26D7E6D7E13076D7E806D7E
6D7E143EEC1F80140F1407195A77C329>I<127012F8127C7EEA3F806C7E6C7E12076C7E
7F6C7E6C7EA2137F80133F806D7EA280130FA280130780A36D7EA4807FA51580B01500A5
5B5CA4495AA35C130F5CA2131F5CA2495A5C137F91C7FC13FEA2485A485A5B485A120F48
5A485A003EC8FC5A5A1270195A7AC329>I<147C14FE497EA5260C00FE1360003FEC01F8
D87F80EB03FC01C0130701E0130F3AFFF87C3FFED87FFCEB7FFC01FE13FF263FFF7D13F8
000F90B512E000011500D8003F13F8010713C0A2013F13F848B6FC000F15E0003F017D13
F8267FFE7C13FC01FC137FD8FFF8EB3FFE3A7FE0FE0FFC01C0130701801303D83F00EB01
F8000CEC0060C6486C1300A56D5A147C27287AC334>I<EA0FC0EA1FE0EA3FF0EA7FF8EA
FFFCA313FEA3127F123F121FEA0FDEEA001EA2133E133CA2137C1378A213F8EA01F0A2EA
03E0EA07C0EA0F80121FEA3F00121E120C0F20798D1D>44 D<B612E0A91B097F9823>I<
EA0FC0EA1FE0EA3FF0EA7FF8EAFFFCA6EA7FF8EA3FF0EA1FE0EA0FC00E0E798D1D>I<16
1C163E167EA216FE16FC150116F8A2150316F0A2150716E0150F16C0A2151F1680153F16
00A25D157E15FE5DA214015DA214035D14075DA2140F5D141F5DA2143F92C7FC5C147EA2
14FE5CA213015C13035CA213075C130F5CA2131F5C133F91C8FCA25B137EA213FE5B1201
5BA212035B12075BA2120F5B121F5BA2123F90C9FCA25A127E12FE5AA25A1278275B7AC3
34>I<ECFFE0010713FC011F13FF017F14C0D9FFE07F489038803FF03A03FE000FF84848
6D7EA248486D7E001F81A348486D1380A3007F16C0A500FF16E0B3A2007F16C0A5003F16
806D5BA2001F1600A2000F5D6D13076C6C495A6C6C495A6C6D485A6C9038E0FFE06DB55A
011F91C7FC010713FC010013E02B3D7CBB34>I<140F143F5C495A130F48B5FCB6FCA313
F7EAFE071200B3B3A8B712F0A5243C78BB34>I<903803FF80013F13F890B512FE00036E
7E4881260FF80F7F261FC0037F4848C67F486C6D7E6D6D7E487E6D6D7EA26F1380A46C5A
6C5A6C5A0007C7FCC8FC4B1300A25E153F5E4B5AA24B5A5E4A5B4A5B4A48C7FC5D4A5AEC
1FE04A5A4A5A9139FF000F80EB01FC495A4948EB1F00495AEB1F8049C7FC017E5C5B48B7
FC485D5A5A5A5A5AB7FC5EA4293C7BBB34>I<903801FFE0010F13FE013F6D7E90B612E0
4801817F3A03FC007FF8D807F06D7E82D80FFC131F6D80121F7FA56C5A5E6C48133FD801
F05CC8FC4B5A5E4B5A4A5B020F5B902607FFFEC7FC15F815FEEDFFC0D9000113F06E6C7E
6F7E6F7E6F7E1780A26F13C0A217E0EA0FC0487E487E487E487EA317C0A25D491580127F
49491300D83FC0495A6C6C495A3A0FFE01FFF86CB65A6C5DC61580013F49C7FC010313E0
2B3D7CBB34>I<ED01F815031507A2150F151F153FA2157F15FF5C5CA25C5CEC1FBFEC3F
3F143E147C14FCEB01F814F0EB03E01307EB0FC0EB1F801400133E137E5B485A5B485A12
07485A5B48C7FC5A127E5AB812F8A5C8387FF800AA49B612F8A52D3C7DBB34>I<000715
38D80FE0EB01F801FE133F90B6FC5E5E5E5E93C7FC5D15F85D15C04AC8FC0180C9FCA9EC
FFC0018713FC019F13FF90B67E020113E09039F8007FF0496D7E01C06D7E5B6CC77FC812
0F82A31780A21207EA1FC0487E487E12FF7FA21700A25B4B5A6C5A01805C6CC7123F6D49
5AD81FE0495A260FFC075B6CB65A6C92C7FCC614FC013F13F0010790C8FC293D7BBB34>
I<EC07FF023F13C049B512F001078049EB03FC90383FF80090397FE001FE9038FFC00348
49487E48495AA2485A120FA2485A6F5A003F6E5A6F5A92C8FC485AA21402EC3FFE00FF49
6C7E01F9B512E001FB809138E03FF89039FF800FFC4A6C7E825B6F13804915C0A317E05B
A4127FA5123FA26D15C0121FA2000F4A13806D150012076C6C495A6C6D485A6C9038E07F
F86DB55A6D5C6D1480010749C7FC010013F02B3D7CBB34>I<121F7F13F890B712F0A45A
17E017C0178017005E5E5A007EC7EA01F84B5A007C4A5A4B5A4B5A93C7FC485C157E5DC7
485A4A5AA24A5A140F5D141F143F5D147FA214FF92C8FC5BA25BA3495AA3130FA5131FAA
6D5A6D5A6D5A2C3F7ABD34>I<ECFFF0010713FE011F6D7E017F14E09039FFC07FF03A01
FE001FF848486D7E48486D7E1503485A8281121FA27F7F7F6D5B02C05B14F06C6D485A91
38FE0FF89138FF9FF06CECFFE06C5D5E6C92C7FC6C816D14E0011F80498090B67E488126
07FE3F7F48486C1480381FF807D9F00114C048486C7E007F8049010F13E0150348487F81
167FA2163FA36D15C0127FEE7F807F6C6CECFF006C6C5B01FEEB07FE3A0FFFC03FFC6C90
B55A000115E06C6C5C011F49C7FC010113F02B3D7CBB34>I<903801FFE0010F13FC013F
13FF90B612C04801E07F489038003FF048486D7E000F6E7E485A6F7E123F484880811780
12FFA217C0A517E0A4007F5CA4003F5C6C7E5D6C7E00075C3903FF80FB6C13FF6C6C13F3
6D13C3010F018313C090380008031400A24B1380EA03F0487E486C1500487E4B5AA25E15
1F4B5A495C6C48EBFFE049485B2607FC0F5B6CB6C7FC6C14FC6C14F06D13C0D90FFEC8FC
2B3D7CBB34>I<EA0FC0EA1FE0EA3FF0EA7FF8EAFFFCA6EA7FF8EA3FF0EA1FE0EA0FC0C7
FCACEA0FC0EA1FE0EA3FF0EA7FF8EAFFFCA6EA7FF8EA3FF0EA1FE0EA0FC00E2879A71D>
I<EA0FC0EA1FE0EA3FF0EA7FF8EAFFFCA6EA7FF8EA3FF0EA1FE0EA0FC0C7FCACEA0FC0EA
1FE0EA3FF0127FEAFFF8A213FCA4127F123F121F120FEA003CA2137C1378A313F813F012
0113E01203EA07C0A2EA0F80EA1F00123E121E120C0E3A79A71D>I<007FBA12E0BB12F0
A4003F19E0CEFCB0003FBA12E0BB12F0A46C19E0441C7AA451>61
D<90381FFF8090B512F0000314FC000F14FF261FF8071380263FC00113C0018014E0486C
7E486C14F07FA56C5A4A13E0EA3FC0260F000313C0C714804A13004A5A4A5A15F04A5A4A
5A5D92C7FC14FE5C13015CA25CAA90C9FCA8EB03F0497E497E497E497EA66D5A6D5A6D5A
6D5A24407ABF31>63 D<16FCA24B7EA24B7EA34B7FA24B7FA34B7FA24B7FA34B7F157C03
FC7FEDF87FA2020180EDF03F0203804B7E02078115C082020F814B7E021F811500824A81
023E7F027E81027C7FA202FC814A147F49B77EA34982A2D907E0C7001F7F4A80010F835C
83011F8391C87E4983133E83017E83017C81B500FC91B612FCA5463F7CBE4F>65
D<B812F8EFFF8018F018FC8426003FFCC7EA3FFF050F13807113C07113E08319F0A27113
F8A719F05FA24D13E019C04D13804D1300EF3FFE933801FFF891B712E0188018F818FE02
FCC7380FFF80050313C07113E07113F019F8F07FFCA2F03FFEA219FFA38460A419FE187F
A2F0FFFC4D13F85F4D13F0053F13E0BA12C0190018FC18F095C7FC403E7DBD4A>I<9226
07FFC0130E92B500FC131E020702FF133E023FEDC07E91B7EAE1FE01039138803FFB4990
39F80003FF4901C01300013F90C8127F4948151FD9FFF8150F48491507485B4A15034817
01485B18004890CAFC197E5A5B193E127FA349170012FFAC127F7F193EA2123FA27F6C18
7E197C6C7F19FC6C6D16F86C6D150119F06C6D15036C6DED07E0D97FFEED0FC06D6CED3F
80010F01C0ECFF006D01F8EB03FE6D9039FF801FFC010091B55A023F15E0020715800200
02FCC7FC030713C03F407ABE4C>I<B812F8EFFF8018F018FC18FF26003FFCC76C13C005
077F05017F716C7E727E727E727E721380A27213C0A27213E0A21AF084A21AF8A41AFCA5
197FA319FFA51AF8A41AF0A2601AE0A24E13C0A24E13804E1300604E5A4E5A4D485A0507
13E0057F5BBA5A4EC7FC18F818C005F8C8FC463E7DBD50>I<BAFCA4198026003FFEC712
3F1707170183183FA2181FF00FC0A31807EE07C0A3F003E0A3160F95C7FC161F163F16FF
91B6FCA54AC6FC163F161F040F147CA2160719F8A593C71201A219F01803A21807A2180F
F01FE0183F18FF1703173FBAFCA219C0A33E3D7DBC45>I<B912FEA48426003FFEC77E17
0F1703170084A284F01F80A3180FA2EE07C0A2F007C0A4040F90C7FCA2161F163F16FF91
B6FCA54AC6FC163F161F160FA21607A693C9FCACB712E0A53A3D7DBC42>I<922607FFC0
130E92B500FC131E020702FF133E023FEDC07E91B7EAE1FE01039138803FFB499039F800
03FF4901C01300013F90C8127F4948151FD9FFF8150F48491507485B4A1503481701485B
18004890CAFC197E5A5B193E127FA34994C7FC12FFAB0407B612FC127F7FA3003F92C738
3FFE00A27F7EA26C7FA26C7F6C7FA26C7F6C7FD97FFE157F6D6C7E010F01E014FF6D01F8
13036D9038FF801F010091B512F3023F15C00207ED803E02009138FE000E030701E090C7
FC46407ABE52>I<B7D8803FB612E0A526003FFEC8000FEB8000B3A491B9FCA54AC8120F
B3A7B7D8803FB612E0A54B3E7DBD52>I<B71280A526003FFEC7FCB3B3B0B71280A5213E
7DBD28>I<B76C90B6FCA526003FFEC8D801FCC7FCF007F84E5A4E5AF03F804EC8FC18FE
EF03FC4D5A4D5AEF1FC04D5A4DC9FCEE01FE4C5A4C5AEE0FE04C5A4C5A16FF4B7F4B7F5D
4B7F4B7F037F7F92B5FC6E486C7E9238F83FFF03F0804B7E4B6C7F4B6C7F0300804A7F70
7F707F84717E83717F85717F83717F85717F83727E85727F84B7D88007B612C0A54A3E7D
BD52>75 D<B712E0A526003FFEC9FCB3AD183EA4187E187CA418FCA21701A2EF03F8A217
07170F171F177FEE01FF160FB9FC18F0A4373E7DBD3F>I<B6051FB512C06F5EA26F5EA2
D8003F97C7FC6F16F7A26E6CED01E7A26E6CED03C7A36E6CED0787A26E6CED0F07A26E6C
151EA36E6D143CA26E6D1478A26E6D14F0A26F6CEB01E0A36F6CEB03C0A26F6CEB0780A2
6F6CEB0F00A36F6C131EA26F6D5AA26F6D5AA26F6D5AA393387FF1E0A293383FFBC0A270
B45AA37090C7FCA2705AA2705AB600C0031FB612C0A2705AA2705A5A3E7CBD63>I<B603
7FB512E0A2818181D8003F6D9139001F800081A281816E7E6E7F6E7F80826E7F6E7F6E7F
6E7F157F826F7F6F7F6F7F6F7F81836F7F6F7F707E701380A27013C07013E07013F07013
F87013FCA27013FEEF7FFF71139F7113DF8319FF8383838384A28484848484A284B600C0
80197F193F191FA24B3E7DBD52>I<ED3FFF0203B512F0021F14FE027F6E7E902701FFF8
0713E00107D9C00013F84990C7EA3FFCD93FFCEC0FFF49486E7F49486E7F48496E7F4A80
488448496F7EA24890C96C7E4884A249161F003F84A34848701380A400FF19C0AD007F19
806D5EA3003F1900A26D5E6C60A26C6D4B5AA26C6D4B5A6C6D4A5BA26C6D4A5B6C6D4A5B
6D6C4A5B6DB4023F90C7FC6D01C0EBFFFE0107D9F80713F8010190B612E06D5E021F4AC8
FC020314F0DA003F90C9FC42407ABE4F>I<B812F017FF18C018F018FC26003FFCC77FEF
1FFF7113807113C07113E0A27113F0A319F8A819F0A34D13E019C05F4D1380053F1300EF
FFFE91B712F860188005FCC7FC4ACAFCB3A4B77EA53D3E7DBD47>I<ED3FFF0203B512F0
021F14FE027F6E7E902701FFF80713E00107903980007FF84948C7EA1FFCD93FFC6EB4FC
49486E7F49486E7F48496E7F4A8048496F7E488491C9123F48844848707EA34848707EA3
007F1980A24982A200FF19C0AD007F1980A26D5EA2003F1900A36C6C4C5AA26C6C4C5AED
07F06C9026801FFC495A6C4AB45C6E48EB80FF6C9027E07E0FC15B6C9126F807E15B9028
7FF0F003E35BD93FFC6DB5C7FCD91FFE6D5B902607FFF814F80101D9FE0313E06D90B65A
021F4AC7124002036E14E0DA003FEB3F8092C77FF0E001F0F80F71B5FCA21AC083A21A80
83A271140061715B715B725AF01FC043517ABE4F>I<B87E17FCEFFF8018F08428003FFC
000113FE9338003FFF050F7F717F717FA2858385A761A25F61614D5B4D90C8FCEF3FFE4C
B45A91B712F018C04DC9FC717E9126FC000F7F040113F0707F717EA2717EA2717EA685A6
F207C019C0A271140F07E01380B76DEBF01F719038FC3F007190B5FC716C5B061F13F8CB
000113E04A3F7DBD4E>I<903A03FFC001C0011FEBF803017FEBFE0748B6128F4815DF48
010013FFD80FF8130F48481303497F4848EB007F127F49143F161F12FF160FA27F1607A2
7F7F01FC91C7FCEBFF806C13F8ECFFC06C14FCEDFF806C15E016F86C816C816C816C1680
6C6C15C07F010715E0EB007F020714F0EC003F1503030013F8167F163F127800F8151FA2
160FA27EA217F07E161F6C16E06D143F01E015C001F8EC7F8001FEEB01FF9026FFE00713
004890B55A486C14F8D8F81F5CD8F00314C027E0003FFEC7FC2D407ABE3A>I<003FB912
FCA5903BFE003FFE003FD87FF0EE0FFE01C0160349160190C71500197E127EA2007C183E
A400FC183F48181FA5C81600B3AF010FB712F8A5403D7CBC49>I<B76C90B61280A52600
3FFEC9003EC7FCB3B3A4197E011F177C80A26D17FC616D6D14014E5A6D6D4A5A6D6D140F
6D01F8EC3FC0DA7FFEECFF8091273FFFC00F90C8FC020F90B512FC02035D020015E0031F
1480030101F8C9FC493F7DBD50>I<B600FC020FB512C0A5C66C48C9381F8000013F95C7
FC80616D173E6F157E6D177C6F15FC6D5F8118016D6D5D18036D5F6F14076D5F6F140F02
7F5E81181F023F93C8FC6F5C6E153E70137E6E157C8218FC6E6D5B17016E5DEEF0036E5D
EEF8076E5D16FC170F037F5CEEFE1F033F91C9FC705A6F133E17BE17FE6F5BA26F5BA26F
5BA26F5BA36F5BA2705AA270CAFCA24A3F7EBD4F>I<B6D8FC03B600F090B512FEA5C601
FCC7000301F0C8EA7E00017F6F177C856E6E17FC013F63856D6C037F4B5AA26F4A6C1403
6D634D7F6F18076D634D806F02EF150F6D636F01076E131F6D04C793C7FC050F806F0283
5D6D1A3E051F806F0201157E027F197C6F013F6E13FC023FDA3E005D057E806F017C017F
13016E6105FC14FE7048013F13036E6104C1EDFF076E4A6D5C04C31687DCE3E06D138F6E
6104E716CFDCF7C06D13DF6E96C8FC04FF16FF6E4A6D5BA294C77E6F5FA24C80033F5FA2
6F486F5AA24C153F030F5FA24C151F03075FA26F486F5A673F7EBD6C>I<007FB6013FB5
12F0A5D8001F01C0D9003FC7FC6D6D147E18FE6D6D5C6D6D495A6D4B5A6F13076D6D5C6E
6C495A4D5A6EEB803F6E01C090C8FC6E147E705A6E13F16EEBF9F86EEBFBF0EEFFE0806F
5B5F816F7F81836F7F81834B7F4B7F5D83DB3F3F7FED7E1F03FE804B6C7F4A486C7F4A48
7E0207814B6C7F4A487E4A4880023F6E7E92C76C7F027E804A8201016F7F4A6E7F495A49
486E7F010F6F7F4A80B600C0017F90B5FCA5483E7DBD4F>I<B600FE020FB512C0A5C66C
90C9381F80006D6D4BC7FC6D6D157EA26D6D5D6D6D4A5A816D4C5A6D6D4A5A816D4C5A6E
6C4A5A6E7F4EC8FC6E6D137E6E7F606E6D485A6E13F84D5A6E6D485A6E13FE70485A6F49
5A6F139F05FFC9FC6F5B815F6F5B816F5B5FB3A20207B612F8A54A3E7EBD4F>I<003FB8
12E0A59126E0001F13C091C7148001FC5C01F04A1300495D4914FF4848495B5F90C75A4B
5B007E5E5D4B5B007C5E5D4B90C7FC5E15FFC7485B5E4A5B5C5E4A5B5C5E4A90C8FC5C5D
4A5A5B4BEB01F0495B5B495B5D491503494914E092C7FC5B495A4A14075A4849140F5C48
161F4849143F4A147F4816FF48495B91C7000713C048157FB9FCA5343E7ABD40>I<0170
14E001F8EB01F0000114034848EB07E04914C04848EB0F804848EB1F0048C7123EA2003E
5C003C1478A2007C14F800785CA200F81301485CA2D8F7E0EBEFC0D8FFF0EBFFE001F814
F001FC14F801FE14FCA3007F7FA36C48EB7FF86C48EB3FF06C48EB1FE06C48EB0FC02620
73BE37>92 D<136013F0EA01F8EA03F013E0EA07C0EA0F80EA1F00A2123E123CA2127C12
78A212F85AA2EAF7E0EAFFF013F813FC13FEA3127FA3EA3FFCEA1FF8EA0FF0EA07E00F20
7ABE1D>96 D<903807FFC0013F13F848B6FC48812607FE037F260FF8007F6DEB3FF0486C
806F7EA36F7EA26C5A6C5AEA01E0C8FC153F91B5FC130F137F3901FFFE0F4813E0000F13
80381FFE00485A5B485A12FF5BA4151F7F007F143F6D90387BFF806C6C01FB13FE391FFF
07F36CEBFFE100031480C6EC003FD91FF890C7FC2F2B7DA933>I<13FFB5FCA512077EAF
EDFFE0020713FC021FEBFF80027F80DAFF8113F09139FC003FF802F06D7E4A6D7E4A1307
4A80701380A218C082A318E0AA18C0A25E1880A218005E6E5C6E495A6E495A02FCEB7FF0
903AFCFF01FFE0496CB55AD9F01F91C7FCD9E00713FCC7000113C033407DBE3A>I<EC7F
F00107B5FC011F14C0017F14E09039FFF01FF0489038800FF848EB001F4848EB3FFC120F
485AA2485AA2007FEC1FF849EB0FF0ED03C000FF91C7FCAB127F7FA3003F153E7F001F15
7E6C6C147C6C6C14FC91388001F86C9038C003F0C69038F81FE06DB512C0011F14800107
EBFE009038007FF0272B7DA92E>I<EE07F8ED07FFA5ED003F161FAFEC7FF0903807FFFE
011FEBFF9F017F14DF9039FFF01FFF48EBC00348EB00014848EB007F485A001F153F5B12
3FA2127F5BA212FFAA127FA37F123FA26C6C147F120F6D14FF6C6C01037F6C6D48EBFFE0
6CEBF03F6C6CB512BF6D143F010713FC010001E0EBE00033407DBE3A>I<ECFFF0010713
FE011F6D7E017F809039FFE07FE0489038801FF048496C7E48486D7E48486D7E121F4913
01003F81A2485A6F1380A212FFA290B7FCA401F0C9FCA5127FA27F123FEE0F806C7E161F
6C6C15006C6C5C6C6D137E6C9038E001FC6C9038F80FF8013FB55A6D14C0010391C7FC90
38007FF8292B7DA930>I<EC07FE91387FFF8049B512C0010714E090390FFE3FF0EB1FF0
90393FE07FF8EB7FC013FF1480A2489038003FF0ED1FE0ED0FC092C7FCAAB612E0A50001
0180C7FCB3AC007FEBFF80A525407DBF20>I<903A03FF8007F0013F9038F83FF8499038
FCFFFC48B712FE48018313F93A07FC007FC34848EB3FE1001FEDF1FC4990381FF0F81700
003F81A7001F5DA26D133F000F5D6C6C495A3A03FF83FF8091B5C7FC4814FC01BF5BD80F
03138090CAFCA2487EA27F13F06CB6FC16F016FC6C15FF17806C16C06C16E01207001F16
F0393FE000034848EB003F49EC1FF800FF150F90C81207A56C6CEC0FF06D141F003F16E0
01F0147FD81FFC903801FFC02707FF800F13006C90B55AC615F8013F14E0010101FCC7FC
2F3D7DA834>I<13FFB5FCA512077EAFED1FF8EDFFFE02036D7E4A80DA0FE07F91381F00
7F023C805C4A6D7E5CA25CA35CB3A4B5D8FE0FB512E0A5333F7CBE3A>I<EA01F8487E48
7E487E481380A66C13006C5A6C5A6C5AC8FCA913FFB5FCA512077EB3ABB512F8A515407C
BF1D>I<EC0FC0EC1FE0EC3FF0EC7FF8ECFFFCA6EC7FF8EC3FF0EC1FE0EC0FC091C7FCA9
EC03FCEB07FFA5EB001F140FB3B3A2EA1F80EA3FC0EA7FE0EAFFF0EC1FF8A3EC3FF015E0
397FE07FC0393FC1FF806CB512006C5B6C13F8C613801E5386BF20>I<13FFB5FCA51207
7EB092380FFFFEA5DB01FEC7FC4B5AED07F0ED1FE04B5A4B5A4BC8FCEC03FC4A5A4A5A14
1FEC7FF84A7EA2818102E77F02C37F148102007F826F7E6F7E151F6F7E826F7F6F7F816F
7FB5D8FC07EBFFC0A5323F7DBE37>I<13FFB5FCA512077EB3B3AFB512FCA5163F7CBE1D>
I<01FFD91FF8ECFFC0B590B5010713F80203DAC01F13FE4A6E487FDA0FE09026F07F077F
91261F003FEBF8010007013EDAF9F0806C0178ECFBC04A6DB4486C7FA24A92C7FC4A5CA3
4A5CB3A4B5D8FE07B5D8F03FEBFF80A551297CA858>I<01FFEB1FF8B5EBFFFE02036D7E
4A80DA0FE07F91381F007F0007013C806C5B4A6D7E5CA25CA35CB3A4B5D8FE0FB512E0A5
33297CA83A>I<EC7FF0903803FFFE011FEBFFC0017F14F09039FFE03FF8489038800FFC
3A03FE0003FE48486D7E000F168048486D13C0A2003F16E049147F007F16F0A400FF16F8
AA007F16F0A46C6CECFFE0A2001F16C06C6C491380A26C6C4913003A03FF800FFE6C9038
E03FFC6C6CB512F0011F14C0010791C7FC9038007FF02D2B7DA934>I<01FFEBFFE0B500
0713FC021FEBFF80027F80DAFF8113F09139FC007FF8000301F06D7E4A6D7E4A130F4A6D
7E1880A27013C0A38218E0AA4C13C0A318805E18005E6E5C6E495A6E495A02FCEBFFF0DA
FF035B92B55A029F91C7FC028713FC028113C00280C9FCACB512FEA5333B7DA83A>I<DA
7FE01378902607FFFC13F8011FEBFF01017F14819039FFF81FC3489038E007E748903880
03F74890380001FF48487F001F157F5B003F153F5B127F161FA2485AAA127F7FA36C6C14
3F167F121F6C6C14FF6D5B6C6D5A6CEBC00F6CEBF03F6C6CB512BF6DEBFE3F010713F801
0013C091C7FCAC030FB512E0A5333B7DA837>I<3901FE01FE00FF903807FF804A13E04A
13F0EC3F1F91387C3FF8000713F8000313F0EBFFE0A29138C01FF0ED0FE091388007C092
C7FCA391C8FCB3A2B6FCA525297DA82B>I<90383FFC1E48B512BE000714FE5A381FF00F
383F800148C7FC007E147EA200FE143EA27E7F6D90C7FC13F8EBFFE06C13FF15C06C14F0
6C806C806C806C80C61580131F1300020713C014000078147F00F8143F151F7EA27E1680
6C143F6D140001E013FF9038F803FE90B55A15F0D8F87F13C026E00FFEC7FC222B7DA929
>I<EB07C0A5130FA4131FA3133F137FA213FF5A1207001FEBFFFEB6FCA40001EBC000B3
151FA96CEBE03EA2017F137EECF8FC90383FFFF86D13F0010713E001001380203B7EB929
>I<D9FF80EB0FF8B5EB0FFFA50007EC007F6C153FB3A5167FA316FF6C5C4B7F6C903AC0
07DFFFE09138F01F9F6DB5121F6D13FE010F13F8010101E0EBE000332A7CA83A>I<B500
FC90383FFFC0A5000101C0903803E0006E1307A26C5E6E130F017F5D6E131F013F92C7FC
6E5B011F143E6E137E010F147C6E13FCA26D5C15816D5C15C36D5C15E76D5C15FF6E5BA3
6E90C8FCA26E5AA26E5AA26E5AA26E5AA232287EA737>I<B53CFC3FFFFC03FFFEA50003
D980009039C0000F806E161F6C037F15006E496C5B6C183E836E48157E017F177C6E486D
13FC013F02EF5C83DAFC071401011F02C75CDAFE0FEBFE03010F02835C17FFDAFF1F1407
6D02015C03BF148F6DD9BE005C18CF03FE14DF6D49017F90C7FC18FF6D496D5AA36E486D
5AA26E486D5AA36E486D5AA26E486D5A47287EA74C>I<B5D8FC03B51280A5C69026E000
7FC7FC6E13FE6D6C5B6D6C485A6D6C485A010F13076D6C485AED9FC06DEBFF806D91C8FC
6D5B6E5AA2143F6E7E140F814A7F4A7F4A7F02FE7F903801FC7F49486C7E02F07F49486C
7E49486C7E011F7F49486C7FD97F008001FE6D7FB5D8C007EBFFC0A532287EA737>I<B5
00FC90383FFFC0A5000101C0903803E0006E1307A26C5E6E130F017F5D6E131F013F92C7
FC6E5B011F143E6E137E010F147C6E13FCA26D5C15816D5C15C36D5C15E76D5C15FF6E5B
A36E90C8FCA26E5AA26E5AA26E5AA26E5AA35D14075D000E130FD83F805B387FC01FD8FF
E090C9FC5C143E147E5CEBC1F8387FC3F0387E0FE06CB45A6C5B6C48CAFCEA03F8323B7E
A737>I<B912E0A43304809A34>123 D<D80F8013F8391FE003FC486C487E007F80486C48
1380A56C486C1300003F5C6C486C5A390F8000F8210D77BF34>127
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FO cmr8 8 17
/FO 17 116 df<123C127E12FFA7127EA9123CAA1218A41200A7123C127E12FFA4127E12
3C082F7AAE14>33 D<13031307130E131C1338137013F0EA01E013C01203EA0780A2EA0F
00A2121EA35AA45AA512F8A25AAB7EA21278A57EA47EA37EA2EA0780A2EA03C0120113E0
EA00F013701338131C130E1307130310437AB11B>40 D<12C07E12707E7E7E120FEA0780
120313C0EA01E0A2EA00F0A21378A3133CA4131EA5131FA2130FAB131FA2131EA5133CA4
1378A313F0A2EA01E0A2EA03C013801207EA0F00120E5A5A5A5A5A10437CB11B>I<EC03
80B3A4B812FCA3C7D80380C7FCB3A42E2F7CA737>43 D<EB3FC0EBFFF03803E07C48487E
48487E497E001EEB0780A2003E14C0A248EB03E0A500FC14F0B0007C14E0A3007E130700
3E14C0A36CEB0F806C14006D5A3807C03E3803F0FC3800FFF0EB3FC01C2D7DAB23>48
D<130C133C137CEA03FC12FFEAFC7C1200B3B113FE387FFFFEA2172C7AAB23>I<EB7F80
3801FFF0380780FC380E003F48EB1F8048EB0FC05A0060EB07E012F000FC14F07E1403A3
007C1307C7FCA215E0140F15C0141F1580EC3F00147E147C5C495A495A495A495A011EC7
FC5B5B4913305B485A4848136048C7FC000E14E0001FB5FC5A4814C0B6FCA21C2C7DAB23
>I<EB3FC03801FFF03807C0FC380E007E487FEC1F80003F14C0A2EB800F1300A2000C13
1FC7FC1580A2EC3F00143E5C5CEB03F0EBFFC014F0EB00FC143FEC1F8015C0140F15E0A2
EC07F0A21238127C12FEA3EC0FE012F8006014C00070131F6C1480001EEB3F00380780FC
3801FFF038007FC01C2D7DAB23>I<140EA2141E143EA2147E14FEA2EB01BE1303143E13
06130E130C131813381330136013E013C0EA0180120313001206120E120C5A123812305A
12E0B612FCA2C7EA3E00A9147F90381FFFFCA21E2D7EAC23>I<000CEB0180380FC01F90
B512005C5C14F014C0D80C7EC7FC90C8FCA8EB1FC0EB7FF8380DE07C380F801F01001380
000E130F000CEB07C0C713E0A2140315F0A4127812FCA448EB07E012E0006014C0007013
0F6C14806CEB1F006C133E380780F83801FFE038007F801C2D7DAB23>I<B812FCA3CBFC
ADB812FCA32E137C9937>61 D<4A7E4A7EA34A7EA24A7EA3EC1BF81419A2EC30FCA2EC70
FEEC607EA24A7EA349486C7EA2010380EC000FA201066D7EA3496D7EA2011FB57EA29038
180001496D7EA349147EA201E0147F4980A20001ED1F801203000716C0D80FF0EC3FE0D8
FFFC0103B5FCA2302F7EAE35>65 D<EB1FE0EB7FFC3801F01E3803E0073907C01F80EA0F
80EA1F005A003EEB0F00007E90C7FCA2127C12FCA9127EA215C07E6C130101801380380F
C0033907E007003801F03E38007FF8EB1FC01A207E9E1F>99 D<EA0780EA0FC0EA1FE0A4
EA0FC0EA0780C7FCA8EA07C012FFA2120F1207B3A5EA0FE0EAFFFCA20E2E7EAD14>105
D<3807C0FE39FFC3FF809038C703E0390FDE01F0EA07F8496C7EA25BA25BB2486C487E3A
FFFE1FFFC0A2221E7E9D27>110 D<EB1FE0EB7FF83801F03E3803C00F3907800780390F
0003C04814E0003EEB01F0A248EB00F8A300FC14FCA9007C14F8A26CEB01F0A26CEB03E0
A2390F8007C03907C00F803901F03E0038007FF8EB1FE01E207E9E23>I<3801FE183807
FFB8381E01F8EA3C00481378481338A21418A27E7EB41300EA7FF06CB4FC6C13C06C13F0
000113F838001FFC130138C0007E143EA26C131EA27EA26C133CA26C137838FF01F038E3
FFC000C0130017207E9E1C>115 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FP cmsy10 10.95 48
/FP 48 121 df<007FB812FEBAFCA26C17FE3804799847>0 D<121EEA7F80A2EAFFC0A4
EA7F80A2EA1E000A0A799B19>I<0060166000F816F06C1501007E15036CED07E06C6CEC
0FC06C6CEC1F806C6CEC3F006C6C147E6C6C5C6C6C495A017E495A6D495A6D6C485A6D6C
485A6D6C48C7FC903803F07E6D6C5A903800FDF8EC7FF06E5A6E5AA24A7E4A7EECFDF890
3801F8FC903803F07E49487E49486C7E49486C7E49486C7E017E6D7E496D7E48486D7E48
48147E4848804848EC1F804848EC0FC048C8EA07E0007EED03F048150148150000601660
2C2C73AC47>I<EB03C0A2805CA600F0140F00FC143F00FE147F00FF14FF393FC3C3FC39
0FE187F03903F18FC03900FDBF00EB3FFCEB0FF0EB03C0EB0FF0EB3FFCEBFDBF3903F18F
C0390FE187F0393FC3C3FC39FF03C0FF00FE147F00FC143F00F0140F00001400A6805CA2
20277AA92D>I<EE7FFE0307B512E0033F14FC92B7FC0203D9C00313C0DA0FFCC7EA3FF0
DA3FE0EC07FCDA7F80EC01FED901FEC9EA7F80D903F8EE1FC0D907E0EE07E04948707E49
48707E49CB7E017E187E498449844848F00F8000031AC04918074848F003E0A24848F001
F0A248CD12F8A2001E1A78003E1A7CA2003C1A3C007C1A3EA200781A1EA300F81A1FA248
1A0FAB6C1A1FA200781A1EA3007C1A3EA2003C1A3C003E1A7CA2001E1A78001F1AF8A26C
6CF001F0A26C6CF003E0A26C6CF007C06D180F00011A806C6CF01F006D60017E187E6D60
6D6C4C5A6D6C4C5A6D6C4C5AD903F8EE1FC0D901FEEE7F809026007F80DA01FEC7FCDA3F
E0EC07FCDA0FFCEC3FF0913B03FFC003FFC0020090B6C8FC033F14FC030714E09226007F
FEC9FC50557BC05B>13 D<EB0FFCEB3FFF90B512C0000314F04880488048804880A24815
80A3B712C0AA6C1580A36C1500A26C5C6C5C6C5C6C5CC614C0013F90C7FCEB0FFC22227B
A72D>15 D<007FB912E0BA12F0A26C18E0CDFCAE007FB912E0BA12F0A26C18E0CDFCAE00
7FB912E0BA12F0A26C18E03C287BAA47>17 D<180E183F18FFEF03FEEF0FF8EF3FE0EFFF
80933803FE00EE0FF8EE3FE0EEFF80DB03FEC7FCED0FF8ED7FE0913801FF80DA07FEC8FC
EC1FF8EC7FC04948C9FCEB07FCEB1FF0EB7FC04848CAFCEA07FCEA1FF0EA7FC048CBFCA2
EA7FC0EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007FC0EC1FF0EC07FE
913801FF809138007FE0ED1FF8ED03FE923800FF80EE3FE0EE0FF8EE03FE933800FF80EF
3FE0EF0FF8EF03FEEF00FF183F180E1800AE007FB812FEBAFCA26C17FE384879B947>20
D<0203B612FE023F15FF91B8FC010316FED90FFEC9FCEB1FE0EB7F8001FECAFCEA01F848
5A485A485A5B48CBFCA2123EA25AA21278A212F8A25AA87EA21278A2127CA27EA27EA26C
7E7F6C7E6C7E6C7EEA00FEEB7F80EB1FE0EB0FFE0103B712FE010016FF143F020315FE38
3679B147>26 D<0060140600F8EC0F8000FE15E0007F6E7ED83FC0EB03FCD80FF0EB00FF
D803FCEC3FC06C6C6E7E26007F80EB07F8D91FE0EB01FED907F0EB007FD903FCEC3FC0D9
00FFEC0FF0DA3FC0EB03FC6E6C6D7EDA07F89038007F80DA01FEEC1FE0DA007FEC07F0DB
3FC0EB03FCDB0FF0EB00FFDB03FCEC3FC06F6C6E7E9226007F80EB07F8DC1FE0EB01FEDC
07F89038007F80706CEC3FC0DC00FFEC0FF0DD3FC0EB03FC716CEB01FEDD07F0EB007FA2
4D4814FEDD3FC0EB03FC05FFC7EA0FF0DC03FCEC3FC04C48EC7F80DC1FE0903801FE00DC
7F80EB07F8DB01FEC7EA1FE04B484A5ADB0FF002FFC7FCDB3FC0EB03FC4B48495ADA01FE
C7EA1FE0DA07F8EC7F80DA0FE002FEC8FCDA3FC0EB03FC02FFC7EA0FF0D903FCEC3FC0D9
07F04AC9FCD91FE0EB01FED97F80EB07F8D801FEC7EA1FE048484A5AD80FF002FFCAFCD8
3FC0EB03FC48C7EA07F000FE4A5A00F8158000600206CBFC503C7BB45B>29
D<140C141EA2143E143CA2147C1478A214F8495AA2495A495AA2495A49CDFC133E137EEA
01F8485AEA0FE0003FBB12FEBDFCA2003F1AFED80FE0CDFCEA03F06C7EEA007E133E7F6D
7E6D7EA26D7E6D7EA26D7E1478A2147C143CA2143E141EA2140C50307BAE5B>32
D<19301978A2197C193CA2193E191EA2191F737EA2737E737EA2737E737E1A7C1A7EF21F
80F20FC0F207F0007FBB12FCBDFCA26C1AFCCDEA07F0F20FC0F21F80F27E001A7C624F5A
4F5AA24F5A4F5AA24FC7FC191EA2193E193CA2197C1978A2193050307BAE5B>I<020C16
30021E1678A2023E167C023C163CA2027C163E0278161EA202F8161F4948707EA2494870
7E4948707EA24948707E49CB7E013E187C017E187ED801F8F01F804848F00FC0D80FE0F0
07F0003FBB12FCBDFCA2003F1AFCD80FE0CBEA07F0D803F0F00FC06C6CF01F80D8007EF0
7E00013E187C6D606D6C4C5A6D6C4C5AA26D6C4C5A6D6C4C5AA26D6C4CC7FC0278161EA2
027C163E023C163CA2023E167C021E1678A2020C163050307BAE5B>36
D<D91FE01620D97FFC167048B5FC4814C048804814F8271FE01FFC15F0273F8003FE15E0
003EC76C6C130148DA3FC013030078DA1FF0EB07C00070DA07FC131F00F0913A03FF807F
80486E90B512006F6C5B705B040F5B040313E000409238007F80CDFCB0007FB912E0BA12
F0A26C18E03C277BA947>39 D<EF01E0841700841878187C84A284727E727E851803727E
007FB912FCBA7E856C85CCEA07E0737EF101FCF1007FF21FC0F20FF8F203FFA2F20FF8F2
1FC0F27F00F101FCF103F04F5A007FBA1280BBC7FC616C60CBEA01F04E5A1807614E5A4E
C8FC183EA260187818F86017016050327BAF5B>41 D<D907FCEE1FE090261FFF80EDFFF8
017F01E0020313FE48B500F891390FF01F804802FE91393F8003C02707E00FFF91397E00
01E0260F80036D01F8EB00F090C79026E001F01470001E6E6C48481438001C6E6C484814
1C48021F495A6F6C48C8120C48912607FE3E150E04FF160600606E13FC00E06E4915076F
1703486F5AA2163F707E707E83A24C6C15076C8300604B6D1406047C6D140E0070167F00
304B6C6C141C00384A486C7EDB03E06D14386C4A486C6C14786C4A486C6C14F0000F9126
1F0001EBC0016C6C017E6D9038F007E06C6C48486EB512C02701F80FF0021F148027007F
FFC00207EBFE00011F90C8000113F8D907F89238003FE050297BA75B>49
D<0203B512F8023F14FC91B6FC010315F8D90FFEC8FCEB1FE0EB7F8001FEC9FCEA01F848
5A485A485A5B48CAFCA2123EA25AA21278A212F8A25AA2B812F817FCA217F800F0CAFCA2
7EA21278A2127CA27EA27EA26C7E7F6C7E6C7E6C7EEA00FEEB7F80EB1FE0EB0FFE0103B6
12F8010015FC143F020314F82E3679B13D>I<1718173C177CA217F8A2EE01F0A2EE03E0
A2EE07C0160F1780EE1F00A2163EA25EA25EA24B5AA24B5AA24B5AA24B5AA24BC7FCA215
3E157E157C5DA24A5AA24A5AA24A5AA24A5AA24AC8FCA2143EA25CA25C13015C495AA249
5AA2495AA249C9FCA2133EA25BA25BA2485AA2485AA2485A120F5B48CAFCA2123EA25AA2
5AA25A12602E5474C000>54 D<007FB612FEB8FCA27EC9120FB3A7001FB7FC127FA3C912
0FB3A8007FB7FCB8FCA26C15FE283F7BBE33>57 D<007FB81280B912C0A27ECA1203B3A2
32187B9F3D>I<4E7EF007C0180F181F183F187FA218FFA25FA25F18BF1707183F170F17
0E171E171C173C17381778177017F017E01601EE03C0A2EE0780A2EE0F005E161E5EA25E
16F85E4B5A854B5A15075E4BC7121F5D151E033FB6FC5DA292B7FC4A82DA03E0C7121FA2
4A5A4A48140F0010131F003091C87F143E00785B007C13FC26FE01F86F7E38FF87F0D9FF
E0171CF1FE7C4A923803FFF86C4917E091C914C06C487013006C48EE00FCD80FF094C7FC
EA03C046477EC149>65 D<020EEC7FC0023E903803FFF802FE011F7F0103027F7F010F49
B6FC011F903803F81F013F90260FC0031380903A79FC1F00010101013E7F5D4B147F9038
03FDF002FF16005D5D187E4B14FE4990C85A604A4A5A4D5A4A4A5AEF1F80010F037EC7FC
4A495AEE0FF04AEB7FC0DB03FFC8FC011F011F13E04A4813F84B13FE92B6FC4AC66C7F01
3F020F7F04037F4A1300717E173F49C86C7EA2170FA201FE1507A448485EA3495E000316
0F605B00074C5A4993C7FCD9E180143E260FE7C05CD9DFE05C48B46CEB03F0D9BFFCEB0F
C09139FF80FF80D83F1FD9FFFEC8FC6D14F8D87E0714E0D8780191C9FC39E0003FF03942
7DBF3C>I<EE3FE0923803FFF8031F13FC037F13FE4AB5FC913807FC0F91380FC0039138
3F0001147C4A14FC495A494814F8495A4948EB03F0131F49C7EA07E0133E017EEC0FC05B
EE1F8048481500163E4848143893C7FC485AA2120F5B121FA3485AA4127F90CAFCA45AA8
7F17E01603EE07C06C6CEC0F80161F6DEC3F00163E6C6C5C6D5C6C6C495A01FFEB07E06C
9038E03F806C90B5C7FC6C14FC6C14F06C6C1380D90FFCC8FC2F427FBF30>I<4AB512FC
023FECFFE049B712FC0107EEFF80011F8390277FE1FC0114F02601FC01D9000F7FD803F0
03017FD807C09238003FFE260F80036F7ED81F001607487113804883007E4A6E13C012FE
48187F00F019E000C00107163FC7FC5D191FA3140F5DA21AC0A24A5AA2F13F80A24A5A1A
0061197E4AC9FC61A2027E4B5A02FE5E18034A4B5A01015F4E5A4A4BC7FC0103163E604A
5D0107ED03F04AEC07C0EF1F80010F037EC8FC4A495A011FEC0FF04AEB7FC0DB0FFFC9FC
49B512FC90B612E04892CAFC4814F84891CBFC433E7EBD46>I<047FB612FC0307B8FC03
1F1780157F4AB9FC912903F80FE000011300DA0FC0ED007EDA1F00167C023E17604A011F
92C7FC02FC5C495AA213034A495A495A5C0106C7FC90C848CAFCA3167E16FEA34B5AA35E
150393B612F0A24B5D614B92C8FC04E0CAFC5E151F5EA24BCBFCA25D157E15FE5DA24A5A
A24A5AA24A5AA20003495A121F486C485A127F486C48CCFCEBE03E387FFC7CEBFFF86C5B
6C13C06C5BD801FCCDFC49417FBD41>70 D<EEFFF0030F13FE037F7F4AB6128014079138
1FF0074AC7FC02FC147FD901F01500495A4948147E495A49C85A133E017E4A5A5B494A5A
00015E48484A5A4C5A4848021EC7FC93C8FC120F5B121FA25B123FA348C91208177C5F16
01481503A24C5AA3160F5F161F7F163F4C5A7F007F15FF6D495B5D6C6C5B6DD90FBFC7FC
D81FFEEB3F7F9038FF80FC6C9038FFF87E6CECE0FE6CEC80FCC6EBFE0090383FF00190C7
5B15035E5E15074B5AA24B5A000792C8FCD81FC0133ED83FF05B48B4485AB65A6C14C000
1F5C000701FCC9FC38007FE0314B7CBF36>I<033FB612F00207B7FC023F16E091B81280
0103EEFE0090280FFC0007C0C7FCD91F80130F013EC7485A4992C8FC01FC5C48485C167E
484814FE01C05C90C8FCC812015E1503A34B5AA35E150FA34B5AA44B5AA44BC9FCA415FE
A35D1401A25D14035DA24A5A18704A48EB01F04D5A4A48130792C7485A023E5D4A023FC7
FC0007B712FE001F16F8485E481680B700FCC8FC3C3E83BD32>73
D<0507B512FE173F4CB612FC040715F0041F15C0933A7F8000F8009339FC0001F0DB03F0
495ADB07C0495A4B48130F4BC7485A033E92C7FC4B5C03FC147E4A5A4B5C140302071401
4B5C020F14034B5C92C7FC020C140791C85B170FA260171FA260173FA295C8FC5FA317FE
A44C5AA44C5AA44C5AA21203000F5E003F150F485EA2484B5AA24CC9FC163E6D147E5E6D
5C4B5A6C6C495A6D495A6C6C495A01FE013FCAFC391FFFC0FC6CEBFFF86C14E06C1480C6
49CBFCEB1FF047497BBD3E>I<020EED03F0023EED1FF802FEED7FFC0103ED01FF010F92
3807F0FE011F92381FC07E013FED7F00017903FC133E0101DA03F0133CDC07C01338DC1F
8013004A013EC8FC16FCED01F04B5A0103495A031FC9FCECF83E5D5DECF9F0903807FBE0
4A5AA2ECFF80A2EB0FEFA381EB1FCFA214C781EB3F87A2EC83F01403137F6E7E137E13FE
6E7EA248487F157E157F497F000381151F49800007140F496E143C0307157C000F81496D
6C14F8001F810301EC01F0496D6CEB03E0003F037FEB07C09438801F8090C8393FE07E00
486FB45A007E6F13F000786F13C000E0DB01FEC7FC3F427DBF45>I<173F933803FFC004
0F7F043F7F93B5FC4B80ED03E092380FC03F92381F801FED3F004B130F15FE4A5A604A48
5C020715804B91C7FC020F91C8FC5D141FA24A5AA34A5AA34ACAFCA3495AA313035CA349
5AA3130F5CA3131F5CA25C133FA2495AF0078091C9121F01FEEE3F0018FF2601FFFE5D48
D9FFE0130103FE5C489139FFE003F804FE5B4892B55AD81F811680263F001F92C7FC007E
010114FC00F8D9001F13F000E00201138039427DBF3F>I<4AB6FC023F15F849B712FE01
07EEFF80011F17E090287FE1FC007F13F02601FC01020313F8D803F0030013FC2607C003
ED3FFED80F80160FD81F00160748EF03FF484A80127E12FE488300F0130712C0C74915FE
A319FC020F15014B15F8A2F003F0A2021FED07E04B15C0F00F80F01F00183E4A485C4D5A
EF03E0EF0FC04AC7007FC7FCEE0FFE923807FFF8DA7E1F13C0DAFE3F90C8FCED7FF84BC9
FC4948CAFCA35C1303A25C1307A25C130F5CA2131F5C133FA291CBFC5B137EA25B13F013
C040437EBD3F>80 D<EE7FF0923803FFFE031F6D7E037F14E04AB67E912607F8077F9126
1FC0007F4AC7EA3FFE02FC140FD901F06E7E49486E1380494880495A49C913C0013E167F
137E4917E049163F1201485A49161F1207120F5B121F5BA2123F19C048CAFCA3F03F805A
A2190060187EA26D5EA24D5AA26C6C4B5A6D5E4D5A6D903801E00F6C6C903907C01F80D8
1FFED90F8090C7FC903AFFC07F003E6CD9FFFC5B6C4A5B6C9138C001F0C691380003E0D9
1FF8EB0FC090C848C8FC167E4B5AED07F0ED3FC0DA0FFFC9FC0003B500FC1520000F02F0
EC01F0480280EC03E04817074802F0EC0FC0C614FE010FD9FFC0EB1F80010102F81400D9
003F9038FF807E0207ECFFFC020015F0031F5C030391C7FC9238003FF83C4B75BF4A>I<
4AB612C0023F15FE49B812C0010717F0011F8390287FE1FC001F7F2601FC0102007FD803
F0161FD807C0EE07FF260F800381D81F00825A4883007E5C12FE486012F000C01307C75F
4B140161611803020F4B5A4B5D4E5A4EC8FC183E4A4814FCEF01F0EF0FE0EFFF8091263F
803F90C9FCEEFFFC038113E015834A487F1500EE3FF8027E131F02FE6D7EA24A6D7E1301
16034A80010380845C01078072EB01804A027F140F010F70EB1F00624A6E6C137E011F18
7C4A6E6C5B72485A013F92390FFF0FE091C8ECFF80496F91C7FC017E6F13FC01786F13E0
01E06F6CC8FC49407EBD4D>I<EE0FFE93387FFFC00303B512F8030F14FC033F14FE4BC6
FCDA01F8EB1FFFDA03E013034A487F4A5A4AC8FC4A15FE5C027E15FC02FE15F8EF01F018
C0010192C7FC80A3816D7F8181EC7FFC6EB4FC6E13C06E13F06E13FC020113FF6E6C7F03
1F13E003077F03017F6F6C7E707E160F707E8201786E1380EA01F8D807F080EA0FC04848
157F123F90C9FC481700A2177E5A5F7F4C5A6D5D6D4A5A6C6C4A5A6D4A5AD83FFE023FC7
FC6C6C6C13FC6C9038F00FF86C90B512E06C1580C64AC8FC013F13F0010790C9FC38427E
BF37>I<D903F81607D91FFC161FD97FFE167ED801FF17FE1207D80FC317FCD81F011601
121C000049ED03F8A219F04A1507130319E04A150F13074A151F19C0010F163F5C011FEE
7F805C18FF49C913005F5B017E5D01FE4B5A5B170F48484B5AA20003163F49157F00075F
4915FFEE01FB000F16F3494A485A001F1507EE0FC7491587003F4B485A163E167E48C812
FC4C485AED01F0ED03E048EC07C092380F803FED1F00033E5C6D5B5DEC03F09026C007C0
137F397FE01F80D9F87FC7138ED9FFFC15FE6C01F05D6C01C05D6C90C813E0D803F86F5A
CA001EC7FC404182BD39>85 D<D80FC0ED01E0D81FF0ED03F8D87FFC4B7E6D82B5FC0007
6D4A7E00017F6C18806D7E013F15006D6C153F181F010F160F8001071607A219006D7E60
180EA20101161E181C6E153C183818786013004D5A17036017074D5A4DC7FC5F173E5F17
FC4C5A4C5A4C5A4C5A161F4C5A4CC8FC16FE4A485A4B5A4B5A0101EB1FE04B5A4B5A4BC9
FCECFDFEECFFFC5D15E05D5D4990CAFC5C14F85C5C148091CBFC39427EBD38>I<DB3FE0
EC03C0DBFFF0EC0FE002036DEC3FF0020F167F4A7FDA3F0F151FDA7E07150F027C7FDAF8
0316E014001AC003011680F11F00193E614E5AF003E070495AF01F80063EC7FC18FC6FEB
01F0EF07E0EF1F804DC8FC17FC17F05F1780A315035D151FED7E7F15FCEC03F0EC0FC0EC
1F80EC7E0014F8D903F080EB07C0EB1F80013EC7FC49143F485AEA03E0485A485A48C8FC
48825AF0078048DCF01FC7FC041F5B6DEDF87E01F0EDFFFC496E5B4916E06C486E138000
3EC86C48C8FC443E7BBD41>88 D<DC3FF8EB01C00303B5EAF007031F91B51280037F1600
92B75A02035E913807E00791271F80000F5B4AC8EA07F04A5E02FE4B5A01014C5A4A4BC7
FC4948157E4A15FE02C04A5A0102C8485A90C95B4D5A4D5A4D5A4DC8FC177E5F4C5A4C5A
92387FFFFE92B67E4A81A291C7EA7E1F9338FC0780922601F802C8FC4B48C9FC4B5A4B5A
4B5A033ECAFC5D5DEC03F04A5A4A5A4A4815704AC8EA01F0027E15074A4B5AD901F0151F
495A49484B5AD91F805E49C9FC017E4CC7FC01F816FE48B500C05C489139FFF801F8000F
92B512E0485F485F484CC8FC26F8003F14F800C0D9000713C0423E7CBD42>90
D<15C04A7E4A7EA24A7EA34A7EA2EC1F3EA2EC3E1FA2EC3C0F027C7FA24A6C7EA249486C
7EA2ECE001010380A249486C7EA24948137CA249C77EA2011E141E013E141FA2496E7EA2
496E7EA2491403000182A248486E7EA248486E7EA2491578000F167CA248C97EA2003E82
A2003C82007C1780A248EE07C0A24816030060EE018032397BB63D>94
D<0060EE018000F0EE03C06C1607A2007CEE0F80A2003C1700003E5EA26C163EA26C6C5D
A2000716786D15F8A26C6C4A5AA26C6C4A5AA200005E6D1407A2017C4A5AA26D4AC7FCA2
011E141E011F143EA26D6C5BA26D6C5BA26D6C485AA201015CECF003A26D6C485AA29138
7C0F80A2023C90C8FCEC3E1FA2EC1F3EA2EC0FFCA26E5AA36E5AA26E5A6E5A32397BB63D
>I<153FEC03FFEC0FE0EC3F80EC7E00495A5C495AA2495AB3AA130F5C131F495A91C7FC
13FEEA03F8EA7FE048C8FCEA7FE0EA03F8EA00FE133F806D7E130F801307B3AA6D7EA26D
7E80EB007EEC3F80EC0FE0EC03FFEC003F205B7AC32D>102 D<12FCEAFFC0EA07F0EA01
FCEA007E6D7E131F6D7EA26D7EB3AA801303806D7E1300147FEC1FC0EC07FEEC00FFEC07
FEEC1FC0EC7F0014FC1301495A5C13075CB3AA495AA2495A133F017EC7FC485AEA07F0EA
FFC000FCC8FC205B7AC32D>I<146014F01301A214E01303A214C01307A2EB0F80A21400
5BA2131E133EA25BA2137813F8A25B1201A25B1203A2485AA25B120FA290C7FC5AA2123E
A2123C127CA2127812F8A41278127CA2123C123EA27EA27E7FA212077FA26C7EA212017F
A212007FA21378137CA27FA2131E131FA27F1480A2EB07C0A2130314E0A2130114F0A213
001460145A77C323>I<126012F07EA21278127CA2123C123EA27EA27E7FA212077FA26C
7EA212017FA212007FA21378137CA27FA2131E131FA27F1480A2EB07C0A2130314E0A213
0114F0A414E01303A214C01307A2EB0F80A214005BA2131E133EA25BA2137813F8A25B12
01A25B1203A2485AA25B120FA290C7FC5AA2123EA2123C127CA2127812F8A25A1260145A
7BC323>I<126012F0B3B3B3B3B11260045B76C319>I<1A061A0F1A1FA21A3EA21A7CA21A
F8A2F101F0A2F103E0A2F107C0A2F10F80A2F11F00A2193EA261A261A24E5AA24E5AA24E
5AA24E5AA24EC7FCA2183EA260A260A24D5AA24D5A133801F85E486C15071203D80FFE4B
5A121D00394CC8FCEAF1FF00C0163EC67F017F5D80013F5D80011F4A5A80010F4A5A8001
074A5AA26E495A13036E49C9FC13016E133E7F6F5A147F6F5A143FEDE1F0141FEDE3E015
F391380FF7C015FF6E5BA26E90CAFCA26E5AA26E5AA215781570485B7A834C>112
D<BB12E0A26C19C0A26C1980A26C190001F0CA120F6C6C170E191E6C6C171C193C6C6C17
3819786C6C177019F06C6D5E18016D6C5E18036D6C5E18076D6C93C7FC606D6C150E181E
6D6C151C183C6D6C153818786D6C157018F06D6D5C17016E6C5C17036E6C5C17076E6C91
C8FC5F6E6C130E171E6E6C131C173C6E6C133817786E6C137017F06E6D5A168192387FC1
C016C392383FE380A2DB1FF7C9FCA2ED0FFEA26F5AA26F5AA26F5AA26F5A43417CBD4C>
114 D<EB3F80EBFFF03803E078380F801E48487E80003EEB03805A15C0140F5AA3EC0780
91C7FCA37E127CA27E121E121F6C7EEA03C06C7EEA00F8133EEBFF803803E3E0380F80F0
381F0078143E003E7F487F1580EC07C05A15E01403A57E127CEC07C07E121E001FEB0F80
390F801F00EA03C03801E03E3800F8F8EB3FE0EB0F80EB03E0EB00F01478143E80801580
EC07C0A215E01403A3123C127EA3EC07C012781238EC0F806CEB1F00121E6C133E3803C0
F83801FFE038003F801B537ABF28>120 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FQ cmr10 10.95 103
/FQ 103 128 df<B812FEA300019038C0000F6C6C481301EE007F8383A283A283A5EF03
80A594C7FCB3B33801FFE0B612F8A3313E7DBD39>0 D<16E04B7EA24B7EA24B7EA24B7E
A2ED1DFFA203387FA29238787FC015709238F03FE015E002016D7E15C002036D7E158002
076D7E15004A6D7E140E021E6D7E141C023C6D7F143802786E7E147002F06E7E5C01016F
7E5C01036F7E5C01076F7E91C8FC496F7E130E011E6F7E131C013C6F7F13380178707E13
7001F0707E5B0001717E5B0003717E5B0007717E90CAFC48717E120E001E717E001FBAFC
481980A24819C0A2BB12E0A243417CC04C>I<ED7FE0913807FFFE91391FC03F8091397E
0007E0D901F8EB01F8D907F0EB00FE4948147F49486E7E49486E7E49C86C7E01FE6F7E48
486F7EA248486F7E000783491500000F834982001F1880A24848EE3FC0A3007F18E0A249
161FD981C0143800FF18F0A291B612F8A702C0C71238A3D87F80C913E0A26D163FA3003F
18C0A26C6CEE7F80A36C6CEEFF00A26C6C4B5A00035F6D150300015F6C6C4B5A017F4B5A
6D5E6D6C4A5AD90FE0027FC7FC6D6C14FED901F8EB01F8D9007EEB07E091391FC03F8091
2607FFFEC8FC9138007FE03C427BBF47>I<010FB612E0A3D900030180C7FCDA00FEC8FC
A8913807FFC0027F13FC903A03FCFE7F80D90FE0EB0FE0D93F80EB03F8D9FE00EB00FE48
48157F4848ED3F804848ED1FC0000F17E04848ED0FF0003F17F8A24848ED07FCA200FF17
FEA8007F17FCA26C6CED0FF8A2001F17F06C6CED1FE0000717C06C6CED3F806C6CED7F00
6C6C15FED93F80EB03F8D90FE0EB0FE0D903FCEB7F809027007FFFFCC7FC020713C0DA00
FEC8FCA8913803FF80010FB612E0A3373E7BBD42>8 D<49B612FCA390C7D87FF0C8FCED
1FC0A8B4EF0FF001C0163FD81FE0EE7F80000F18006D5E00075FA26D150100035FAB6C6C
5E1703A312006D4B5AA2017F5E170FD93F804A5A011F5ED90FC0143FD907E04AC7FCD903
F014FED901F8EBC1F8D9007EEBC7F091391FDFDFC00207B5C8FC9138007FF0ED1FC0A8ED
7FF049B612FCA33C3E7BBD47>I<913801FFC0021F13FC9139FF007F80D903F8EB0FE0D9
0FF0EB07F8D91FC0EB01FCD97F806DB4FC49C86C7E48486F7E00038348486F7E000F8349
150F001F83491507003F83A348486F7EAA6C6C4B5AA3001F5FA26C6C4B5AA200075F6D15
1F00035FA26C6C4B5A00005FA2017F4BC7FC6D157EA26D6C5C010F5DA26D6C495A00E0EF
0380010315E0D870019238C007006E130301001580A36C0160EC000E003C017049131E26
3FFFF0ECFFFEA36C5FA339407CBF42>I<4AB4EB0FE0021F9038E03FFC913A7F00F8FC1E
D901FC90383FF03FD907F090397FE07F80494801FF13FF4948485BD93F805C137F0200ED
7F00EF003E01FE6D91C7FC82ADB97EA3C648C76CC8FCB3AE486C4A7E007FD9FC3FEBFF80
A339407FBF35>I<4AB4FC021F13C091387F01F0903901FC0078D907F0131C4948133E49
4813FF49485A137F1400A213FE6F5A163893C7FCAA167FB8FCA33900FE00018182B3AC48
6CECFF80007FD9FC3F13FEA32F407FBF33>I<4AB47E021F13F791387F00FFEB01F89038
07F001EB0FE0EB1FC0EB3F80137F14008101FE80AEB8FCA3C648C77EB3AE486CECFF8000
7FD9FC3F13FEA32F407FBF33>I<4AB4ECFF80021FD9C00F13E0913B7F01F03F80F8903C
01F80078FE003CD907F0D93FF8130E49484948131F49484948EB7F804948484913FF137F
02005CA201FE92C7FC6FED7F0070141C96C7FCAAF13F80BBFCA3C648C76CC7FC197F193F
B3AC486C4A6CEB7FC0007FD9FC3FD9FE1FB5FCA348407FBF4C>I<133E133F137F13FFA2
EA01FEEA03FCEA07F813F0EA0FE0EA1FC01380EA3E005A5A1270122010116EBE2D>19
D<EA01FCA3EBFFC038001FE0EB07F8130314FC1301A2130314F8EB0FF0EB7FE0B51280EB
F0001610757D28>24 D<121EEA7F80EAFFC0A9EA7F80ACEA3F00AC121EAB120CC7FCA812
1EEA7F80A2EAFFC0A4EA7F80A2EA1E000A4179C019>33 D<001E130F397F803FC000FF13
7F01C013E0A201E013F0A3007F133F391E600F3000001300A401E01370491360A3000114
E04913C00003130101001380481303000EEB070048130E0018130C0038131C003013181C
1C7DBE2D>I<4B6C130C4B6C131EA20307143EA24C133CA2030F147CA293C71278A24B14
F8A2031E5CA2033E1301A2033C5CA3037C1303A203785CA203F81307A24B5CA20201140F
007FBAFCBB1280A26C1900C72707C0003EC8FC4B133CA3020F147CA292C71278A24A14F8
A2021E5CA3023E1301007FBAFCBB1280A26C1900C727F80007C0C8FC4A5CA20101140FA2
4A91C9FCA301035CA24A131EA20107143EA24A133CA2010F147CA291C71278A34914F8A2
011E5CA2013E1301A2013C5CA201186D5A41517BBE4C>I<14E0A4EB07FC90383FFF8090
B512E03901F8E3F03903E0E0FCD807C0133CD80F807FD81F007F003E80003C1580007C14
0316C00078141F00F8143F157FA47EED3F806CEC0E0092C7FC127F138013C0EA3FF013FE
EA1FFF6C13FC6C13FF6C14C06C806C6C13F8011F7F130301007FECE7FF14E102E0138015
7F153FED1FC0A2003E140F127FD8FF801307A5130000FC158000F0140F1270007815005D
6C141E153E6C5C6C5C3907C0E1F03903F8EFE0C6B51280D93FFEC7FCEB0FF8EB00E0A422
497BC32D>I<013F4C7ED9FFC04B7E2601E0E015072607C070150F48486C4B5A023E4BC7
FC48486C5D48D90FC0EB01FE003ED90EF0EB07FCDA0F3F133E007E903A070FFFF8F8007C
0200EBC1F0EE000300FC6D6C495A604D5A171F95C8FC173E177E177C5F16015F007C4948
485A1607007E5E003E49495A020E131F003F93C9FC6C49133E260F803C137E0238137C6C
6C485B3901E0E0016CB448485AD93F0049133F90C74848EBFFC0030F903801E0E0933980
07C0704B4848487E4B153C033E90381F001C4B497F03FC133E4B150F4A48017E7F020314
7C5D4A4801FCEB0380140F5D4AC7FC5C143E5C14FC5C495A13034948027CEB07005C4948
147E011F033E5B91C8140E013E153F017E6F5B017C92380F803C4917380001706C5A4992
3801E0E0496FB45A6C48043FC7FC41497BC34C>I<EC0FC0EC3FF0ECF878903801F01CEB
03E049487E130FEC800F011F7FA2EB3F00A5EC800EA25DA25DA25D6D6C5AECC1C0A2ECC3
8002E7C7387FFFFCEB0FEE14FC4A020713C06D48913801FE006E5DEF00F06D7E4D5A496C
5D010F1503D91DFF4A5A013893C7FC496C6C5B01E0150E48486C6C131E00036E131C2607
801F143C000F6E5B001F6D6C1370263F000714F06F485A48D903FE5B913801FF03486D49
5A0487C8FCED7FCFED3FFE6F4814386D6D5AA2007F6E6C14786D6D6C14704B6C14F06C6C
496C6C13E0001F91393E3FC0016C6C903AFC1FF003C03D07FC07F007FC1F800001B5D8C0
01B512006C6C90C7EA7FFCD90FF8EC0FF03E437CC047>I<121EEA7F8012FF13C0A213E0
A3127FEA1E601200A413E013C0A312011380120313005A120E5A1218123812300B1C79BE
19>I<1430147014E0EB01C0EB03801307EB0F00131E133E133C5B13F85B12015B1203A2
485AA2120F5BA2121F90C7FCA25AA3123E127EA6127C12FCB2127C127EA6123E123FA37E
A27F120FA27F1207A26C7EA212017F12007F13787F133E131E7FEB07801303EB01C0EB00
E014701430145A77C323>I<12C07E12707E7E121E7E6C7E7F12036C7E7F12007F137813
7CA27FA2133F7FA21480130FA214C0A3130714E0A6130314F0B214E01307A614C0130FA3
1480A2131F1400A25B133EA25BA2137813F85B12015B485A12075B48C7FC121E121C5A5A
5A5A145A7BC323>I<EB03C0A2805CA600F0140F00FC143F00FE147F00FF14FF393FC3C3
FC390FE187F03903F18FC03900FDBF00EB3FFCEB0FF0EB03C0EB0FF0EB3FFCEBFDBF3903
F18FC0390FE187F0393FC3C3FC39FF03C0FF00FE147F00FC143F00F0140F00001400A680
5CA220277AC32D>I<1506150FB3A9007FB912E0BA12F0A26C18E0C8000FC9FCB3A91506
3C3C7BB447>I<121EEA7F8012FF13C0A213E0A3127FEA1E601200A413E013C0A3120113
80120313005A120E5A1218123812300B1C798919>I<B512FEA617067F961E>I<121EEA7F
80A2EAFFC0A4EA7F80A2EA1E000A0A798919>I<ED0180ED03C01507A21680150FA21600
5DA2151E153EA2153C157CA2157815F8A25D1401A25D1403A25D1407A25D140FA24AC7FC
A2141E143EA2143C147CA2147814F8A25C1301A25C1303A25C1307A25C130FA291C8FC5B
A2131E133EA25BA2137813F8A25B1201A25B1203A25B1207A25B120FA290C9FC5AA2121E
123EA2123C127CA2127812F8A25A1260225B7BC32D>I<EB01FE90380FFFC090383F03F0
90387C00F849137C48487F48487F4848EB0F80A2000F15C04848EB07E0A3003F15F0A290
C712034815F8A64815FCB3A26C15F8A56C6CEB07F0A3001F15E0A36C6CEB0FC0A26C6CEB
1F80000315006C6C133E6C6C5B017C5B90383F03F090380FFFC0D901FEC7FC263F7DBC2D
>I<EB01C013031307131F137FEA07FFB5FC139FEAF81F1200B3B3ACEB7FF0B612F8A31D
3D78BC2D>I<EB07FC90383FFF8090B512E03903F01FF83907C007FC390F0001FE001E6D
7E001C1580003CEC7FC05AED3FE01270B4FC6DEB1FF07FA56C5A6CC7FC120CC813E0153F
A216C0157F168015FF16004A5A5D4A5A4A5A5D4A5A4A5A4AC7FC147E147C5C495A495A49
5A495A49C71270133E133C5B4914E0485A485A485A48C7120148B6FCA25A4815C0B7FCA3
243D7CBC2D>I<EB07FC90383FFF809038F80FE03901E003F839078001FCD80F007F000E
6D7E001E1580D81F80137F486C14C07FA27F5BA2121F6C5AC8138015FF1600A24A5AA24A
5A5DEC07E04A5A023FC7FCEB1FFCECFF809038000FE0EC07F86E7E6E7E6E7E1680ED7FC0
A216E0153FA216F0A2120C123F487E487EA316E0A249137F6CC713C01278EDFF807E6C49
13006C495A3907C007FC3903F80FF0C6B55A013F1380D907F8C7FC243F7CBC2D>I<150E
151E153EA2157EA215FE1401A21403EC077E1406140E141CA214381470A214E0EB01C0A2
EB0380EB0700A2130E5BA25B5BA25B5B1201485A90C7FC5A120E120C121C5AA25A5AB8FC
A3C8EAFE00AC4A7E49B6FCA3283E7EBD2D>I<00061403D80780131F01F813FE90B5FC5D
5D5D15C092C7FC14FCEB3FE090C9FCACEB01FE90380FFF8090383E03E090387001F8496C
7E49137E497F90C713800006141FC813C0A216E0150FA316F0A3120C127F7F12FFA416E0
90C7121F12FC007015C012780038EC3F80123C6CEC7F00001F14FE6C6C485A6C6C485A39
03F80FE0C6B55A013F90C7FCEB07F8243F7CBC2D>I<EC1FE0ECFFF8903803F03E90380F
C00F90391F000780133E017EEB1FC049133F4848137F12035B12074848EB3F80ED1F0000
1F91C7FC5BA2123FA3485AA214FE903887FF8039FF8F07E090389C01F09038B800FC01B0
137E13F0497F16804914C0A2ED1FE0A34914F0A5127FA6123F6D14E0A2121FED3FC0A26C
6C1480A20007EC7F006C6C137E6C6C5B6C6C485A90387E07F06DB45A010F1380D903FCC7
FC243F7CBC2D>I<1238123C123F90B612FCA316F85A16F016E00078C712010070EC03C0
ED078016005D48141E151C153C5DC8127015F04A5A5D14034A5A92C7FC5C141EA25CA214
7C147814F8A213015C1303A31307A3130F5CA2131FA6133FAA6D5A0107C8FC26407BBD2D
>I<EB03FC90381FFF8090387C07E09038F001F83901E0007C48487F48487F48C7FCED0F
80121E16C0003E1407A4123FA26DEB0F807F6C6C131F6D140001FC133E6C6C5B9038FF80
786C6D5A6CEBF3E06CEBFF806C91C7FC133F6D13C06D7F013F13F801787F48486C7E3903
E01FFF48486C1380260F800313C048487E489038007FE0003E143F007E141F007CEC0FF0
1507481403A31501A46C15E0007C1403A2007E15C06C14076CEC0F806DEB1F006C6C133E
D807F05B3901FC03F86CB512E0011F1380D903FCC7FC243F7CBC2D>I<EB03FCEB1FFF90
387E07C09038FC03F048486C7E48486C7E4848137C000F147E4848137F81003F15805B00
7F15C0A2151F12FF16E0A516F0A5127F153FA36C7EA2001F147F120F6C6C13FF6D13DF00
0313013900F8039F90387E0F1FD91FFE13E0EB07F090C7FCA2ED3FC0A41680157FD80F80
1400487E486C13FEA24A5A5D49485AEB8007391E000FE0001F495A260FC07FC7FC3803FF
FE6C13F838003FC0243F7CBC2D>I<121EEA7F80A2EAFFC0A4EA7F80A2EA1E00C7FCB312
1EEA7F80A2EAFFC0A4EA7F80A2EA1E000A2779A619>I<121EEA7F80A2EAFFC0A4EA7F80
A2EA1E00C7FCB3121E127FEAFF80A213C0A4127F121E1200A412011380A3120313005A12
06120E120C121C5A1230A20A3979A619>I<007FB912E0BA12F0A26C18E0CDFCAE007FB9
12E0BA12F0A26C18E03C167BA147>61 D<EB1FF890B5FC3903E01FC0390F0007F0001EEB
03F848EB01FC4814FE140000FE14FF7E7FA46CC7FC123EC7EA01FEA2EC03FCEC07F815F0
EC0FC0EC1F80EC3F00143E5C147814F85C13015CA2495AA25CAB91C7FC90C8FCA8EB0780
EB1FE0A2497EA46D5AA2EB078020407BBF2B>63 D<ED7FE0913807FFFE91391F801F8091
39780001E0D901E0EB0078D90780141E49C87E011E6F7E0138ED01C0496F7E4916700001
177848488249D93F80131C28070001FFF07F48902607E07C130F000E90260FC01E7F001E
90263F00071480001C499038038003003C01FED901C013C0003849ECFE010101EC00FF26
7803F8027F13E000701700495AA200F018F000E01870495AA96D7E12F01270A26D7E0078
18E0263801FC5C01005C003C7F001C017F49EB01C0001E6DEB077F000E903B0FC01E3F83
80000F903B07E07C1F87006C903A01FFF007FE3C0380003F8001F86D90CAFC6C7E120013
707F011EEE03F06D160F6D6CED3FC0D901E0913801FE00D90078EC1FF0913A1F8003FF80
0207B500F8C7FC9126007FFEC8FC3C417BBF47>I<15074B7EA34B7EA34B7EA34B7EA34B
7E15E7A2913801C7FC15C3A291380381FEA34AC67EA3020E6D7EA34A6D7EA34A6D7EA34A
6D7EA34A6D7EA349486D7E91B6FCA249819138800001A249C87EA24982010E157FA2011E
82011C153FA2013C820138151FA2017882170F13FC00034C7ED80FFF4B7EB500F0010FB5
12F8A33D417DC044>I<B712FCEEFF8017F00001903980000FF86C6CC7EA03FE707E7013
80EF7FC0EF3FE0A2EF1FF0A218F8A3170F171FA318F0A2EF3FE0177F18C0EFFF804C1300
EE03FCEE0FF8EE7FE091B6C7FC17E091C7EA07FCEE01FE933800FF80EF7FC0EF3FE0EF1F
F018F8170F18FC1707A218FEA718FC170FA2EF1FF818F0173FEF7FE0EFFFC00403138048
486C90380FFE00B85A17E094C7FC373E7DBD40>I<DB3FF01306912603FFFE130E020F90
38FF801E913A3FF007E03E9139FF8000F8D903FEC7EA7C7ED907F8EC1EFE4948140FD93F
E0140749481403495A91C812014848150012034848167E5B000F173EA24848161EA2123F
5B180E127FA349160012FFAC127F7F180EA2123FA27F001F171E181C6C7EA20007173C6D
16386C6C1678000117706C6C16F06EEC01E06D6C15C06D6C1403D90FF0EC07806D6CEC1F
00D903FE143E902600FF8013F891393FF007F0020FB512C0020391C7FC9138003FF03742
7BBF42>I<B712FCEEFF8017E000019039C0001FF86C6C48EB03FEEE00FF717E717EEF0F
E084717E717E170184717EA21980187F19C0A3F03FE0A519F0AB19E0A5F07FC0A21980A2
18FF19004D5AA24D5A6017074D5A4D5AEF7FC04DC7FCEE03FE48486CEB1FF8B85A178004
FCC8FC3C3E7DBD45>I<B912E0A300019038C000016C6C48EB001FEF0FF01703A2170117
00A31870A41838161CA41800A2163CA2167C16FC150391B5FCA3EC80031500167C163CA2
161CA21807A3180E93C7FCA4181E181CA2183CA2187CA218F8170117031707171F48486C
EB01FFB912F0A3383E7DBD3E>I<B91280A300019038C000036C6C48EB007FEF1FC0170F
1707A21703A31701A4EF00E0A21638A31800A31678A216F81501150791B5FCA3EC800715
0115001678A21638A693C8FCAF3801FFE0B612F0A3333E7DBD3B>I<DB3FE0130C912603
FFFE131C021F9038FF803C913A7FF00FC07C9139FF0001F0D903FC90380078FC4948143D
D91FE0141F4948140F4948140701FF15034890C8FC491501485A000716005B000F177C5B
001F173CA2485AA2181C127FA25B95C7FC12FFAB041FB512F0127FA26D9139000FFE00EF
03FC123FA27F121FA26C7EA212077F12036C7E7F6C7F6D6C14076D7E6D6C140FD907F814
1ED903FEEC3C7C902600FF80EBF83C913A7FF007F01C021FB5EAC00C020391C8FC913800
3FF03C427BBF47>I<B6D8C01FB512F8A3000101E0C7383FFC0026007F80EC0FF0B3A691
B7FCA30280C7120FB3A92601FFE0EC3FFCB6D8C01FB512F8A33D3E7DBD44>I<B612F0A3
C6EBF000EB3FC0B3B3B2EBFFF0B612F0A31C3E7EBD21>I<011FB512FCA3D9000713006E
5A1401B3B3A6123FEA7F80EAFFC0A44A5A1380D87F005B007C130700385C003C495A6C49
5A6C495A2603E07EC7FC3800FFF8EB3FC026407CBD2F>I<B600C090387FFFFCA3000101
E0C7000F138026007F80913807FE0018F818E0604D5A4DC7FC173E5F5F4C5A4C5A4C5A4C
5A4CC8FC163E5E5E4B5A4B5AED07804B7E151F4B7E4B7E15FF913881EFF8913883C7FCEC
878791388F03FE91389E01FF14BCDAF8007F4A6D7E5C4A6D7E4A6D7EA2707E707EA2707E
707EA2707F717E84173F717E717EA2717E848419802601FFE04A13C0B600C090B6FCA340
3E7DBD47>I<B612F8A3000101E0C9FC38007F80B3B0EF0380A517071800A45FA35FA25F
5F5F4C5A160748486C133FB8FCA3313E7DBD39>I<B500C093383FFFF0A300016D93387F
F800D8007F18E0D977F016EFA3D973F8ED01CFA2D971FCED038FA3D970FEED070FA26E15
0E80A26E6C141CA36E6C1438A26E6C1470A36E6C14E0A26E6CEB01C0A36E6CEB0380A36E
6CEB0700A2037F130EA36F6C5AA26F6C5AA36F6C5AA25FED07F0A2923803F9C0A36FB45A
A26F90C7FCA213F8486C147ED807FFEF3FF8B500F8013C011FB512F0A34C3E7DBD53>I<
B56C91B512F88080D8007F030713006EEC01FC6E6E5A1870EB77FCEB73FEA2EB71FF0170
7FA26E7E6E7EA26E7E6E7EA26E7E6E7EA26E7E6E7FA26F7E6F7EA26F7E6F7EA26F7E6F7E
A26F7E6F1380A2EE7FC0EE3FE0A2EE1FF0EE0FF8A2EE07FCEE03FEA2EE01FF7013F0A217
7F173FA2171F170FA2170701F81503487ED807FF1501B500F81400A218703D3E7DBD44>
I<ED7FE0913807FFFE91391FC03F8091397E0007E04948EB03F8D907F0EB00FE4948147F
49486E7E49486E7E49C86C7E01FE6F7E00018349150300038348486F7EA248486F7EA200
1F188049167F003F18C0A3007F18E049163FA300FF18F0AC007F18E06D167FA4003F18C0
A26C6CEEFF80A36C6C4B1300A26C6C4B5A00035F6D150700015F6C6C4B5A6D5E6D6C4A5A
6D6C4A5A6D6C4AC7FC6D6C14FED901FCEB03F8D9007FEB0FE091391FC03F80912607FFFE
C8FC9138007FE03C427BBF47>I<B712F8EEFF8017E000019039C0003FF86C6C48EB07FC
EE01FE707EEF7F80EF3FC018E0A2EF1FF0A218F8A818F0A2EF3FE0A218C0EF7F80EFFF00
4C5AEE07FCEE3FF091B612C04CC7FC0280C9FCB3A73801FFE0B612C0A3353E7DBD3E>I<
ED7FE0913807FFFE91391FC03F8091397F000FE0D901FCEB03F8D907F0EB00FE4948147F
49486E7E49486E7E49C86C7E498248486F7E49150300038348486F7EA2000F834981001F
1880A24848EE7FC0A3007F18E0A249163FA200FF18F0AC007F18E0A26D167FA3003F18C0
A26C6CEEFF80A3000F18006D5D0007DA0F805B6C6C90393FE003FCED70706C6C496C485A
6C6C48486C485A017FD9800E5BD93F819038061FC0D91FC19038073F80D90FE14AC7FCD9
07F1EB03FE902601FDC013F8903A007EE007E091271FF03FC013180207B5FC9139007FE1
E0DB0001143883711378A2706C13F0EFFF0318FFA27113E0A37113C0711380711300715A
EF01F83D527BBF47>I<B712C016FCEEFF800001D9C00013E06C6C48EB1FF0EE07FCEE01
FE707E84717EA2717EA284A760177F606017FF95C7FCEE01FCEE07F8EE1FE0EEFF8091B5
00FCC8FC16F091388001FCED003FEE1FC0707E707E83160383160183A383A484A4F0C004
190EA28218E0057F131E2601FFE0161CB600C0EB3FF094381FF83805071370CA3801FFE0
9438003F803F407DBD43>I<D907FC130C90391FFF801C017FEBF03C3901FC03F83A03F0
007E7CD807C0EB1FFC4848130F001F140748C71203003E1401007E1400A2007C157C12FC
A2163CA36C151CA27EA26C6C14007F7FEA3FF8EBFF806C13F86CEBFF806C14F06C14FC6C
14FF6C15C0013F14E0010714F0EB007F020713F89138007FFC150FED07FE15031501ED00
FFA200E0157FA3163FA27EA3163E7E167E6C157C6C15FC6C15F86D13016DEB03F06DEB07
E0D8F9FCEB0FC03AF07F803F8090391FFFFE00D8E00713F839C0007FC028427BBF33>I<
003FB91280A3903AF0007FE001018090393FC0003F48C7ED1FC0007E1707127C00781703
A300701701A548EF00E0A5C81600B3B14B7E4B7E0107B612FEA33B3D7DBC42>I<B600C0
90B512F8A3000101E0C70007130026007F80EC01FC715A1870B3B3A4013F16F06E5DA217
01011F5E80010F15036E4A5A010793C7FC6D6C5C6D6C141E6D6C5C027F14F86E6C485A91
390FF00FE00203B51280020049C8FCED1FF03D407DBD44>I<B691380FFFFEA3000301E0
020113E06C01809138007F806CEF3F00017F163E181C6E153C013F1638A26E1578011F16
70A26D6C5DA26E140101075EA26E140301035EA26D6C4AC7FCA2806D150EA26F131E027F
141CA26F133C023F1438A26E6C5BA26F13F0020F5CA2EDF80102075CA26E6C485AA2EDFE
07020191C8FCA26F5A6E130EA2ED7F9CA216DCED3FF8A36F5AA36F5AA26F5AA36F5A3F40
7EBD44>I<B500FE017FB5D88007B5FCA3000301C0010101E0C713F86C90C849EC3FE071
48EC0F807E7215006E143F017F190E84A26D6C60A24D7E6D6C60A2EFE7F86D6C60A29338
01C3FC6E18F001076104037F6E0281140101036104077F17006D6C4D5AA2040EEB7F806D
6C4DC7FCA24CEB3FC0DA7F80160EA24CEB1FE003C0161E023F171C047814F0DBE070010F
133C021F173804F014F84C1307DA0FF05EA2DBF1C0EB03FCDA07F95EA2DBFB80EB01FEDA
03FF6F5AA293C8FCA26E5FA24B157F020094C8FCA24B81037C153EA20378151E0338151C
58407EBD5D>I<007FB5D8C003B512E0A3C649C7EBFC00D93FF8EC3FE06D48EC1F806D6C
92C7FC171E6D6C141C6D6C143C5F6D6C14706D6D13F04C5ADA7FC05B023F13036F485ADA
1FF090C8FC020F5BEDF81E913807FC1C163C6E6C5A913801FF7016F06E5B6F5AA26F7E6F
7EA28282153FED3BFEED71FF15F103E07F913801C07F0203804B6C7EEC07004A6D7E020E
6D7E5C023C6D7E02386D7E14784A6D7E4A6D7F130149486E7E4A6E7E130749C86C7E496F
7E497ED9FFC04A7E00076DEC7FFFB500FC0103B512FEA33F3E7EBD44>I<B66C0103B512
80A3000101F0C8EBF8006C6C48ED3FC0725A013F041EC7FC6D7E606D6C15386D6C157860
6D6C5D6E14016D5E6D6D1303606E6C49C8FC6E6C5B170E6E6C131E171C6E6C5B6E6C1378
17706E6C13F06F5B6E13016EEB83C05FED7FC7DB3FE7C9FC16EFED1FFE5E150F6F5AB3A4
ED1FFC020FB512FCA3413E7FBD44>I<003FB712F8A391C7EA1FF013F801E0EC3FE00180
EC7FC090C8FC003EEDFF80A2003C4A1300007C4A5A12784B5A4B5AA200704A5AA24B5A4B
5AA2C8485A4A90C7FCA24A5A4A5AA24A5AA24A5A4A5AA24A5A4A5AA24990C8FCA2495A49
48141CA2495A495AA2495A495A173C495AA24890C8FC485A1778485A484815F8A2484814
0116034848140F4848143FED01FFB8FCA32E3E7BBD38>I<EAFFFCA4EAF000B3B3B3B3AB
EAFFFCA40E5B77C319>I<486C13C00003130101001380481303000EEB070048130E0018
130C0038131C003013180070133800601330A300E01370481360A400CFEB678039FFC07F
E001E013F0A3007F133FA2003F131F01C013E0390F0007801C1C73BE2D>I<EAFFFCA4EA
003CB3B3B3B3ABEAFFFCA40E5B7FC319>I<1318133C137E13FF3801E7803803C3C03807
81E0380F00F0001E137848133C48131E48130F00601306180D76BD2D>I<EA0180120313
005A120E5A12181238123012701260A312E05AA412CFEAFFC013E0A3127FA2123F13C0EA
0F000B1C7ABE19>96 D<EB0FF8EBFFFE3903F01F8039078007E0000F6D7E9038E001F8D8
1FF07F6E7EA3157F6C5AEA0380C8FCA4EC1FFF0103B5FC90381FF87FEB7F803801FC00EA
07F8EA0FE0485A485AA248C7FCEE038012FEA315FFA3007F5BEC03BF3B3F80071F870026
1FC00E13CF3A07F03C0FFE3A01FFF807FC3A003FC001F0292A7DA82D>I<EA01FC12FFA3
120712031201B1EC03FC91381FFF8091387C07E09039FDE001F09039FFC000FC4A137E91
C77E49158049141F17C0EE0FE0A217F0A2160717F8AA17F0A2160FA217E0161F17C06D15
80EE3F006D5C6E13FE9039F3C001F89039F1E003F09039E0780FC09026C03FFFC7FCC7EA
07F82D407EBE33>I<49B4FC010F13E090383F00F8017C131E4848131F4848137F0007EC
FF80485A5B121FA24848EB7F00151C007F91C7FCA290C9FC5AAB6C7EA3003FEC01C07F00
1F140316806C6C13076C6C14000003140E6C6C131E6C6C137890383F01F090380FFFC0D9
01FEC7FC222A7DA828>I<ED01FC15FFA3150715031501B114FF010713E190381F80F990
387E003D49131FD803F81307485A49130348481301121F123F5B127FA290C7FCA25AAA7E
7FA2123FA26C7E000F14037F000714076C6C497E6C6C497ED8007C017913F890383F01F1
90380FFFC1903A01FE01FC002D407DBE33>I<EB01FE90380FFFC090383F03F09038FC01
F848486C7E4848137E48487F000F158049131F001F15C04848130FA2127F16E090C7FCA2
5AA290B6FCA290C9FCA67EA27F123F16E06C7E1501000F15C06C6C13036DEB07806C6C14
00C66C131E017E5B90381F80F8903807FFE0010090C7FC232A7EA828>I<EC1FC0EC7FF8
903801F83C903807E07E90380FC0FFEB1FC1EB3F811401137FEC00FE01FE137C1500AEB6
FCA3C648C7FCB3AE487E007F13FFA320407EBF1C>I<167C903903F801FF903A1FFF078F
8090397E0FDE1F9038F803F83803F001A23B07E000FC0600000F6EC7FC49137E001F147F
A8000F147E6D13FE00075C6C6C485AA23901F803E03903FE0FC026071FFFC8FCEB03F800
06CAFC120EA3120FA27F7F6CB512E015FE6C6E7E6C15E06C810003813A0FC0001FFC48C7
EA01FE003E140048157E825A82A46C5D007C153E007E157E6C5D6C6C495A6C6C495AD803
F0EB0FC0D800FE017FC7FC90383FFFFC010313C0293D7EA82D>I<EA01FC12FFA3120712
031201B1EC01FE913807FFC091381E07E091387803F09138E001F8D9FDC07F148001FF6D
7E91C7FCA25BA25BB3A6486C497EB5D8F87F13FCA32E3F7DBE33>I<EA01E0EA07F8A248
7EA46C5AA2EA01E0C8FCACEA01FC127FA3120712031201B3AC487EB512F0A3143E7DBD1A
>I<1478EB01FEA2EB03FFA4EB01FEA2EB00781400AC147FEB7FFFA313017F147FB3B3A5
123E127F38FF807E14FEA214FCEB81F8EA7F01387C03F0381E07C0380FFF803801FC0018
5185BD1C>I<EA01FC12FFA3120712031201B292B51280A392383FFC0016E0168093C7FC
153C5D5D4A5AEC07C04A5A4AC8FC143E147F4A7E13FD9038FFDFC0EC9FE0140F496C7E01
FC7F496C7E1401816E7E81826F7E151F826F7EA282486C14FEB539F07FFFE0A32B3F7EBE
30>I<EA01FC12FFA3120712031201B3B3B1487EB512F8A3153F7DBE1A>I<2701F801FE14
FF00FF902707FFC00313E0913B1E07E00F03F0913B7803F03C01F80007903BE001F87000
FC2603F9C06D487F000101805C01FBD900FF147F91C75B13FF4992C7FCA2495CB3A6486C
496CECFF80B5D8F87FD9FC3F13FEA347287DA74C>I<3901F801FE00FF903807FFC09138
1E07E091387803F000079038E001F82603F9C07F0001138001FB6D7E91C7FC13FF5BA25B
B3A6486C497EB5D8F87F13FCA32E287DA733>I<14FF010713E090381F81F890387E007E
01F8131F4848EB0F804848EB07C04848EB03E0000F15F04848EB01F8A2003F15FCA248C8
12FEA44815FFA96C15FEA36C6CEB01FCA3001F15F86C6CEB03F0A26C6CEB07E06C6CEB0F
C06C6CEB1F80D8007EEB7E0090383F81FC90380FFFF0010090C7FC282A7EA82D>I<3901
FC03FC00FF90381FFF8091387C0FE09039FDE003F03A03FFC001FC6C496C7E91C7127F49
EC3F805BEE1FC017E0A2EE0FF0A3EE07F8AAEE0FF0A4EE1FE0A2EE3FC06D1580EE7F007F
6E13FE9138C001F89039FDE007F09039FC780FC0DA3FFFC7FCEC07F891C9FCAD487EB512
F8A32D3A7EA733>I<02FF131C0107EBC03C90381F80F090397F00387C01FC131CD803F8
130E4848EB0FFC150748481303121F485A1501485AA448C7FCAA6C7EA36C7EA2001F1403
6C7E15076C6C130F6C7E6C6C133DD8007E137990383F81F190380FFFC1903801FE0190C7
FCAD4B7E92B512F8A32D3A7DA730>I<3901F807E000FFEB1FF8EC787CECE1FE3807F9C1
00031381EA01FB1401EC00FC01FF1330491300A35BB3A5487EB512FEA31F287EA724>I<
90383FC0603901FFF8E03807C03F381F000F003E1307003C1303127C0078130112F81400
A27E7E7E6D1300EA7FF8EBFFC06C13F86C13FE6C7F6C1480000114C0D8003F13E0010313
F0EB001FEC0FF800E01303A214017E1400A27E15F07E14016C14E06CEB03C09038800780
39F3E01F0038E0FFFC38C01FE01D2A7DA824>I<131CA6133CA4137CA213FCA212011203
1207001FB512C0B6FCA2D801FCC7FCB3A215E0A912009038FE01C0A2EB7F03013F138090
381F8700EB07FEEB01F81B397EB723>I<D801FC14FE00FF147FA3000714030003140100
011400B3A51501A31503120015076DEB06FF017E010E13806D4913FC90381FC078903807
FFE00100903880FE002E297DA733>I<B539E00FFFE0A32707FE000313006C48EB00FC5E
00015D7F00005DA26D13016D5CA26D6C485AA2ECC007011F91C7FCA290380FE00EA2ECF0
1E0107131CA26D6C5AA2ECFC7801011370A2ECFEF001005BA2EC7FC0A36E5AA26EC8FCA3
140E2B287EA630>I<B53BC3FFFE03FFF8A3290FFE003FE00013C06C486D48EB3F806C48
17006D010F141E00016F131C15076D163C00004A6C1338A2017F5E4B7E151DD93F805DED
3DFC1538D91FC04A5AED78FE9238707E03D90FE0017F5BEDE03F02F0140701070387C7FC
9138F1C01F02F9148F010315CE9138FB800F02FF14DE6D15FCED00076D5DA24A1303027E
5CA2027C1301023C5C023813003D287EA642>I<B539F01FFFE0A30003D9C00F1300C690
388007F8D97F0013E002805BD93FC05B011F49C7FC90380FE00EECF01E6D6C5A01035B6D
6C5A6E5AEB00FF6E5A6E5A81141F814A7E81147BECF1FC903801E1FEECC0FF01037F4948
6C7ED90F007F011E6D7E013E130F496D7E01FC80486C80000F4A7EB539803FFFF8A32D27
7FA630>I<B539E00FFFE0A32707FE000313006C48EB01FC6F5A00015D7F00005DA2017F
495AA2EC8003013F5CA26D6C48C7FCA26E5A010F130EA26D6C5AA2ECF83C01031338A26D
6C5AA2ECFEF001005BA2EC7FC0A36E5AA36EC8FCA2140EA2141E141C143C1438A2147800
181370127EB45BA2495AA248485AD87E07C9FCEA780EEA3C3CEA1FF8EA07E02B3A7EA630
>I<001FB61280A2EBE0000180140049485A001E495A121C4A5A003C495A141F00385C4A
5A147F5D4AC7FCC6485AA2495A495A130F5C495A90393FC00380A2EB7F80EBFF005A5B48
4813071207491400485A48485BA248485B4848137F00FF495A90B6FCA221277EA628>I<
B812F0A22C0280982D>I<BE12C0A25A0280985B>I<01F01308D803FC131C48B4133848EB
8070391F3FF3E0393807FFC0486C138048C613000040133C1E0979BC2D>126
D<001C130E007FEB3F8039FF807FC0A5397F003F80001CEB0E001A0977BD2D>I
E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FR cmbx12 12 77
/FR 77 128 df<DB0FFFEB03FF4AB5D8C03F13C0020F02F1B512E0027F91B612F0902701
FFF8039038FE1FF849018002F813FC010F4948EBF03F49484913E0495A4A15C0495AF11F
F801FF16804A6DEC07E070EC018096C7FCABBA12F0A5C69026E000030180C7FCB3B0007F
D9FFC1B67EA546467EC541>11 D<ED0FFF4AB512C0020F14F0027F80903A01FFF803FC49
9038C000FE010FEB00034948497E49485B5C495A4C138001FF6E13005CA3705AEE01F893
C8FCA74BB51280B9FCA5C69038E00003B3B0007FD9FFC1B6FCA538467EC53E>I<DB0FFF
EC1FFE4AB5D8E003B57E020FDAF01F14E0027F02FCB67E902701FFF803B538F007F84990
26C0007F90388001FC010F903B0001FFFE00074948010749497E49484B131F4A495B4948
5D507E01FF725A4A5DA282706F5A70ED03F097C8FCA70703B5FCBDFCA5C69026E0000190
38C00007B3B0007FD9FFC0B60083B512FEA557467EC55D>14 D<EB07C0EB0FE0EB1FF0EB
3FF8137F13FFA25A4813F05A4813C01480381FFE00EA3FF8EA7FE0EAFF8048C7FC127C12
30151369C538>19 D<EA07C0EA1FF0487E487E487E7FA31480A37E7EEA1FF7EA07C7EA00
07130FA21400A25B131E133EA25B13FC5B485A485A1207485A485A90C7FC120C112278C4
1F>39 D<EC01E01403EC0FC0EC1F80EC3F00147E5C1301495A495A5C130F495A133F5C13
7F49C7FCA2485AA2485AA212075BA2120F5BA2121FA25B123FA4485AA612FFA25BAE7FA2
127FA66C7EA4121F7FA2120FA27F1207A27F1203A26C7EA26C7EA26D7E133F80131F6D7E
1307806D7E6D7E1300147E80EC1F80EC0FC0EC03E014011B6476CA2C>I<12F07E127E7E
6C7E6C7E6C7E7F6C7E6C7E12007F137F80133F806D7EA26D7EA26D7EA2801303A2801301
A280A27F1580A4EC7FC0A615E0A2143FAE147FA215C0A6ECFF80A415005BA25CA213035C
A213075CA2495AA2495AA2495A5C137F91C7FC13FE5B1201485A485A5B485A485A48C8FC
127E12F85A1B647ACA2C>I<EA07C0EA1FF0EA3FF8EA7FFC12FF13FEA213FFA47E7E7EEA
07CFEA000FA2131F131EA2133EA2133C137C13F8A2EA01F0120313E0EA07C0EA1F801300
121E120C1022788E1F>44 D<B612F8A91D097F9A25>I<EA07C0EA1FF0EA3FF8EA7FFCEA
FFFEA7EA7FFCEA3FF8EA1FF0EA07C00F0F788E1F>I<EE01C0EE03E01607A2160F17C016
1F1780A2163F17005E167EA216FE5E15015EA215035EA215075E150F5EA2151F5E153F93
C7FCA25D157E15FE5DA214015D14035DA214075D140F5DA2141F5D143F92C8FCA25C147E
A214FE5C13015CA213035C13075CA2130F5C131F5CA2133F91C9FC5B137EA213FE5B1201
5BA212035BA212075B120F5BA2121F5B123F90CAFCA25A127E12FE5AA25A12782B647ACA
38>I<EC3FF849B5FC010F14E0013F14F890397FF01FFC9039FFC007FE4890380001FF48
486D1380000716C049147F000F16E049143F001F16F0A2003F16F8A249141F007F16FCA6
00FF16FEB3A3007F16FCA56C6CEC3FF8A3001F16F0A2000F16E06D147F000716C06D14FF
6C6C4913806C6D4813006C6D485A90397FF01FFC6DB55A010F14E0010314809026003FF8
C7FC2F427CC038>I<EC03C01407141F147FEB03FF133FB6FCA413C3EA0003B3B3ADB712
FCA5264177C038>I<ECFFE0010F13FE013F6D7E90B612E0000315F82607FC0313FE3A0F
E0007FFFD81F806D138048C7000F13C0488001C015E001F07F00FF6E13F07F17F881A46C
5A6C5A6C5AC9FC17F05DA217E05D17C04B13804B1300A2ED1FFC4B5A5E4B5A4B5A4A90C7
FC4A5A4A5AEC0FF04A5AEC3F804AC7127814FE495A494814F8D907E014F0495A495A49C8
FC017C140149140348B7FC4816E05A5A5A5A5AB8FC17C0A42D417BC038>I<ECFFF00107
13FF011F14C0017F14F049C66C7ED803F8EB3FFED807E06D7E81D80FF86D138013FE001F
16C07FA66C5A6C4815806C485BC814005D5E4B5A4B5A4B5A4A5B020F1380902607FFFEC7
FC15F815FF16C090C713F0ED3FFCED0FFEEEFF80816F13C017E0A26F13F0A217F8A3EA0F
C0EA3FF0487EA2487EA217F0A25D17E06C5A494913C05BD83F80491380D81FF0491300D8
0FFEEBFFFE6CB612F800015D6C6C14C0011F49C7FC010113E02D427BC038>I<163FA25E
5E5D5DA25D5D5D5DA25D92B5FCEC01F7EC03E7140715C7EC0F87EC1F07143E147E147C14
F8EB01F0EB03E0130714C0EB0F80EB1F00133E5BA25B485A485A485A120F5B48C7FC123E
5A12FCB91280A5C8000F90C7FCAC027FB61280A531417DC038>I<0007150301E0143F01
FFEB07FF91B6FC5E5E5E5E5E16804BC7FC5D15E092C8FC01C0C9FCAAEC3FF001C1B5FC01
C714C001DF14F09039FFE03FFC9138000FFE01FC6D7E01F06D13804915C0497F6C4815E0
C8FC6F13F0A317F8A4EA0F80EA3FE0487E12FF7FA317F05B5D6C4815E05B007EC74813C0
123E003F4A1380D81FC0491300D80FF0495AD807FEEBFFFC6CB612F0C65D013F1480010F
01FCC7FC010113C02D427BC038>I<4AB47E021F13F0027F13FC49B6FC01079038807F80
90390FFC001FD93FF014C04948137F4948EBFFE048495A5A1400485A120FA248486D13C0
EE7F80EE1E00003F92C7FCA25B127FA2EC07FC91381FFF8000FF017F13E091B512F89039
F9F01FFC9039FBC007FE9039FF8003FF17804A6C13C05B6F13E0A24915F0A317F85BA412
7FA5123FA217F07F121FA2000F4A13E0A26C6C15C06D4913806C018014006C6D485A6C90
38E01FFC6DB55A011F5C010714C0010191C7FC9038003FF02D427BC038>I<121E121F13
FC90B712FEA45A17FC17F817F017E017C0A2481680007EC8EA3F00007C157E5E00785D15
014B5A00F84A5A484A5A5E151FC848C7FC157E5DA24A5A14035D14074A5AA2141F5D143F
A2147F5D14FFA25BA35B92C8FCA35BA55BAA6D5A6D5A6D5A2F447AC238>I<EC7FF00103
B5FC010F14C0013F14F090397F801FFC3A01FC0003FE48486D7E497F4848EC7F80163F48
4815C0A2001F151FA27FA27F7F01FE143F6D158002C0137F02F014006C01FC5B6E485A6C
9038FF83FCEDE7F86CECFFE06C5D6C92C7FC6D14C06D80010F14F882013F8090B7FC4801
3F14802607FC0F14C0260FF80314E04848C6FC496D13F0003F141F48481307496D13F815
0000FF157F90C8123F161F160FA21607A36D15F0127F160F6D15E06C6C141F6DEC3FC06C
6CEC7F80D80FFE903801FF003A07FFC00FFE6C90B55AC615F0013F14C0010F91C7FC0100
13F02D427BC038>I<EC7FF0903807FFFE011F6D7E017F14E09039FFE03FF0489038800F
F848496C7E48488048486D7E001F80003F1680A2484815C08117E0A212FF17F0A617F8A4
5D127FA3003F5CA26C7E5D6C6C5B12076C6C131E6CEBC07C6CEBFFF8013F5B010F01C013
F00101130090C8FCA217E05DA2EA03C0D80FF015C0487E486C491380A217004B5A150F5E
49495A6C48495A01C0EBFFE0260FF0035B6CB65A6C4AC7FC6C14F86C6C13E0D907FEC8FC
2D427BC038>I<EA07C0EA1FF0EA3FF8EA7FFCEAFFFEA7EA7FFCEA3FF8EA1FF0EA07C0C7
FCAEEA07C0EA1FF0EA3FF8EA7FFCEAFFFEA7EA7FFCEA3FF8EA1FF0EA07C00F2C78AB1F>
I<007FBB1280BC12C0A4003F1A80CFFCB0003FBB1280BC12C0A46C1A804A1C7AA657>61
D<903807FFC0013F13FC48B612804815E0260FF80013F0D81FC0EB3FF848C7EA1FFC4815
FE01C0130F486C14FF7FA66C485B6C4814FE000FC7FCC8EA3FFCED7FF8EDFFF04A13E04A
13801600EC07FC4A5A5D4A5A5D4A5A92C7FCA2147E147CA31478AA91C8FCA814F8EB03FE
497E497FA2497FA56D5BA26D90C7FC6D5AEB00F828467AC535>63
D<923803FFF0037FEBFF800203B612F0020F15FC913A3FFC000FFFDAFFC0010013C0D903
FEC8EA1FF0D907F0ED03F8D91FC0ED00FE4948167F017ECAEA1F8049717E4848717E49DA
FF8013034848010F01F06D7E4848013F01FC6D7E92B6FC4848489026C07F80137C494890
26001FC0133C484948D907E0133E001E49486D6C131E003E49480101141F023F913800FF
E0003C4A82007C017F1880007819074A5AA300F81AC04848491603AB6C6C7F12781B801A
076E7E127C003C133F003E6E1700021F4A5C001E6D6C5B001F6D6C49EBF01E6C6D6C011F
143E6D6CD9C07F6D5A6C6C6C90B5383FFFF8033FD9FC0F5B6C6C010FD9F0035B6C6C0100
903980007F806D91CBFC6C7E137E6D7E6D6CEF7FC0D907F0EE03FFD903FE043F13009026
00FFC0913803FFF8DA3FFC49B512C0020FB748C7FC020316E0DA007F02FCC8FC030349C9
FC4A477AC557>I<EE1F80A24C7EA24C7EA34C7EA24B7FA34B7FA24B7FA34B7F169F031F
80161F82033F80ED3E07037E80157C8203FC804B7E02018115F0820203814B137F020781
5D173F020F814B7F021F8292C77EA24A82023E80027E82027FB7FCA291B87EA2498302F0
C8FCA20103834A157F0107834A153FA249488284011F8491C97E4984133E017E82B6020F
B612F0A54C457CC455>I<B9FC18F018FE727E19E026003FFCC700077F05017F716C7E72
7E727EA2721380A37213C0A74E1380A24E1300A24E5A4E5A4E5A4D5B05075B94B5128091
B700FCC7FC18F018FF19E002FCC7000113F8716C7EF01FFE727E7213801AC07213E0A272
13F0A31AF8A71AF0A2601AE0604E13C0604E138095B5120005075BBA12F86119C04EC7FC
18E045447CC350>I<DCFFF01470031F01FF14F04AB6EAE0010207EDF803023FEDFE0791
B539E001FF0F4949C7EA3F9F010701F0EC0FFF4901C0804990C87E494881494881494816
7F4849163F4849161F5A4A160F485B19074890CAFC19035A5BA2007F1801A34994C7FC12
FFAE127F7F1AF0A2123FA27F6C18011AE06C7F19036C6D17C06E16077E6C6DEE0F806C6D
EE1F006D6C5E6D6C167E6D6C6C5D6D6D4A5A6D01F0EC07F0010101FEEC1FE06D903AFFF0
01FF80023F90B6C7FC020715FC020115F0DA001F1480030001F8C8FC44467AC451>I<B9
FC18F018FE727E19E026003FFEC7001F13F805017F9438003FFF060F7F727F727F727F84
737E737EA2737EA2737EA21B80A2851BC0A51BE0AD1BC0A51B8061A21B006162193F624F
5A19FF624E5B06075B4E5B063F90C7FC4DB45A050F13F8BA5A19C04EC8FC18F095C9FC4B
447CC356>I<BA12F8A485D8001F90C71201EF003F180F180318011800A2197E193EA319
1EA21778A285A405F890C7FCA316011603161F92B5FCA5ED001F160316011600A2F101E0
1778A2F103C0A494C7FC1907A21A80A2190FA2191FA2193FF17F0061601807181F4DB5FC
BBFC61A443447DC34A>I<BA1280A419C026003FFEC7121F1701EF007F183F181F180F18
0719E01803A31801A3EE01E0F000F0A419001603A31607160F167F91B6FCA59138FE007F
160F16071603A31601A693C9FCAFB712F0A53C447CC346>I<DCFFF01470031F01FF14F0
4AB6EAE0010207EDF803023FEDFE0791B539E001FF0F4949C7EA3F9F010701F0EC0FFF49
01C0804990C87E4948814948814948167F4849163F4849161F5A4A160F485B19074890CA
FC19035A5BA2007F1801A34994C8FC12FFAD057FB612F0127F7FA3003FDC0001EBF000A2
7F7EA26C7FA26C7F807E6C7F6C7F6D7E6D6C5D6D6C7E6D6D5C6D01F05C010101FE143F6D
903AFFF001FF9F023F90B6120F0207EDFC030201EDF000DA001F02C01330030001FCC9FC
4C467AC458>I<B7D88003B612FEA526003FFEC9EBF800B3A791B9FCA54AC9FCB3AAB7D8
8003B612FEA54F447CC358>I<B712E0A5D8001F90C7FCB3B3B3A4B712E0A523447DC32A>
I<0107B7FCA590C7001F1300B3B3A9EA1FE0487E487EA2487EA44B5AA26C48495A495C6C
4813FF6C48485B260FFC0713C06CB65A6C4AC7FCC66C13F8010F138030457DC33A>I<B7
6C0103B512F8A526003FFEC93807E0004F5A4F5A077EC7FC614E5A4E5A4E5AF01F804EC8
FC187E604D5AEF07F0EF0FC04D5A4DC9FC177E4C5AEE03F04C5A4C5A4C7EEE7FF04C7E5D
4B7F4B7F4B7FED3F3FDB7E1F7F03FC806E486C7F4B7E4B6C7F0380804B6C7F4A7F717E84
717F83717F85717F83717F85717F187F727E86727F84727F86727F84B76C90B612FCA54E
447CC358>I<B712F0A526003FFECAFCB3B1F00780A4180F1900A460A360A2187EA218FE
170117031707171F177FEE03FFB95AA539447CC343>I<B500FE067FB512806E95B6FCA2
6F5EA2D8003F50C7FC013D6DEE03DFA2013C6DEE079FA26E6CEE0F1FA26E6C161EA26E6C
163CA36E6C1678A26E6C16F0A26E6DEC01E0A26E6DEC03C0A36E6DEC0780A26F6CEC0F00
A26F6C141EA26F6C5CA36F6C5CA26F6C5CA26F6D485AA26F6D485AA26F6D485AA3706C48
C7FCA293383FF81EA2706C5AA2706C5AA3706C5AA2705BA2705BA2705BA2B6057FB61280
71C7FCA2173E171C61447CC36A>I<B64BB512FE8181A281D8003F6D91C7EA780081013D
7F81133C6E7E6E7F6E7F6E7F6E7F82806E7F6E7F6F7E6F7F83816F7F6F7F6F7F6F7F6F7F
8382707F707F707F707F8482707F707F717E7113807113C019E0837113F07113F87113FC
7113FE19FF847213F884848484A28484197F193F191FA2190F1907B61603190119001A78
A24F447CC358>I<923807FFC092B512FE0207ECFFC0021F15F091267FFE0013FC902601
FFF0EB1FFF01070180010313C04990C76C7FD91FFC6E6C7E49486F7E49486F7E01FF8348
496F7E48496F1380A248496F13C0A24890C96C13E0A24819F04982003F19F8A3007F19FC
49177FA400FF19FEAD007F19FC6D17FFA3003F19F8A26D5E6C19F0A26E5D6C19E0A26C6D
4B13C06C19806E5D6C6D4B13006C6D4B5A6D6C4B5A6D6C4B5A6D6C4A5B6D01C001075B6D
01F0011F5B010101FE90B5C7FC6D90B65A023F15F8020715C002004AC8FC030713C04746
7AC454>I<B9FC18F018FE727E19E0D8001F90C7000F7F05017F716C7E727E727E721380
A21AC084A21AE0A91AC0A24E1380A21A00604E5A4E5A4D485A050F5B92B712C096C7FC18
FC18C092CBFCB3A7B712E0A543447DC34D>I<923807FFC092B512FE0207ECFFC0021F15
F091267FFE0013FC902601FFF0EB1FFF010701C0010713C04990C700017F49486E7F4948
6F7E49486F7E49486F7E48496F7E48496F1380A248496F13C0A24819E091C97E4819F0A2
48487013F8A3007F19FCA249177FA300FF19FEAD007F19FCA36D17FF003F19F8A3001F19
F06D5EA26C19E06E01FE5B6C912603FF8014C06C6D486D4813804B13E06C9028E01F83F0
0F13006C903BF01E00F81FFE90267FF83E90387C3FFC90263FFC3C6D485AD91FFE91381E
FFF0D90FFF021F5B6D01FE5D010194C7FC6D6D6CB45A023F90B512F8020703E013020200
6F1307030713C792C7EA07F8716C130F72131F9538FF80FF96B5FC7114FEA3831AFCA272
13F81AF0847213E07213C0721300F001FC48587AC454>I<B812F8EFFFC018F818FE727E
D8001F90C7003F13E005037F05007F727E727E727EA28684A286A762A24E90C7FCA24E5A
61187F943801FFF005075B053F138092B7C8FC18F818E018F892C77FEF3FFF050F7F717F
717FA2717FA2717FA785A61B0F85A2187F73131F72141EB700E06DEB803E72EBE0FC72EB
FFF8060114F0726C13E0CC0007138050457DC354>I<DAFFE0131C010701FE133C013F90
38FF807C90B6EAE0FC4815F9489038801FFF3907FC00014848EB007F4848143F4848140F
491407007F15035B1601160012FF177CA27FA26D153C7F7F6D92C7FC6C7EEBFFE014FE6C
EBFFF015FF6C15E016FC6C816C6F7E6C826C826C6C81011F810107811300020F80140003
077FED007F82040F1380828212F082A282A27EA218007EA26C5D6C5E6D14036D5D6D1407
01F84A5A01FFEC3FF002F8EBFFE0486CB65AD8FC1F92C7FCD8F80714FC48C614F0480107
138031467AC43E>I<003FBA12E0A59026FE000FEB8003D87FE09338003FF049171F90C7
1607A2007E1803007C1801A300781800A400F819F8481978A5C81700B3B3A20107B8FCA5
45437CC24E>I<B76C010FB512F8A526003FFEC93803E000B3B3A9011F17076280190F6D
606F151F6D95C7FC6D6D5D197E6D6D5D6D6D1403DA7FFC4A5A6EB4EC3FF0020F9039F003
FFE06E90B61280020193C8FC6E6C14FC030F14E09226007FFEC9FC4D457CC356>I<B792
B6FCA526003FFECAEAFC00806D606F15016D608119036D606F15076D606F150F6D608119
1F6D6D93C7FC61027F163E6F157E023F167C8119FC6E6D5C18016E5E7013036E5E821807
6E6D5C180F6E5E70131F6E93C8FC705B037F143E82187E033F147C7013FC6F5C17816F5C
17C117C36F5C17E76F5C17FF6F5CA36F91C9FCA2705AA2705AA3705AA2705AA2705AA250
457EC355>I<B600FE017FB691B512FEA526007FFCC8D83FFEC9EA7C006E82013F701778
807415F86D705F6F7014016D705FA26F7014036D64814E6D14076D646F70140F6D041E94
C7FCA26F023E6D5C6DDC3C7F151E81027F037C6D5CF0783F6F70147C023F4B6C1578A26F
01016F13F86E4B6C5D16806E02036F485A4E7E04C0EEE0036E4A486C5DA2DCE00FEDF007
6E4B6C5D16F06E4A6F48C8FC051E7F04F8705A6E4A027F131EA2DCFC7CEDFE3E037F0178
023F133C04FE16FF033F01F85E4D8004FF17F86F496E5BA36F496E5BA26F604D80A26F90
C86C5BA36F486F90C9FCA26F48167EA30478163C6F457EC374>I<007FB6D8C003B61280
A5D8000F01E0C7D801F8C7FC6D4C5A6F14076D6D5D6D6D4A5A4E5A6D6D143F6E6C92C8FC
6E157E705B6EEBC0016E01E05B4D5A6E6D485A6EEBF80F6E01FC5B4D5A6E6D48C9FC6F6C
5A6F137E5F6F5B815F816F7F81836F7F707E93B5FC844B805D4B8004E77FDB0FC37FED1F
83DB3F817F04007F037E137F4B8002016E7F4B6D7F4A5A4A486D7F020F6E7F4B7F4A4881
4AC76C7F717F147E4A6F7E0101707F4A8149488349486F7F010F707FB600E00103B612FC
A54E447DC355>I<001FB812FEA59126F8000113FC028015F801FCC75A494A13F04916E0
495C494A13C0484816805E90C84813005F003E15FF4B5B5F003C5C4B5B5F5D4B5BC85C4B
90C7FC5D5E4B5A5C5E4A5B5C5E4A5B5C5E4A90C8FC5C5D4A48140F5B5D495B5B4949141F
5D49161E495B92C8FC49163E495A5C48177E485B4A15FE481601484914034A140748160F
4849143F91C8EAFFFC48150FB9FCA538447AC344>90 D<903801FFE0011F13FE017F6D7E
48B612E03A03FE007FF84848EB1FFC6D6D7E486C6D7EA26F7FA36F7F6C5A6C5AEA00F090
C7FCA40203B5FC91B6FC1307013F13F19038FFFC01000313E0000F1380381FFE00485A5B
127F5B12FF5BA35DA26D5B6C6C5B4B13F0D83FFE013EEBFFC03A1FFF80FC7F0007EBFFF8
6CECE01FC66CEB8007D90FFCC9FC322F7DAD36>97 D<EB7FC0B5FCA512037EB1ED0FF892
B57E02C314E002CF14F89139DFC03FFC9139FF000FFE02FCEB03FF4A6D13804A15C04A6D
13E05CEF7FF0A218F8173FA318FCAC18F8A2177F18F0A3EFFFE06E15C06E5B6E49138002
7C491300496C495A903AFC1FC07FFC496CB512F0D9F00314C049C691C7FCC8EA1FF03646
7DC43E>I<EC3FFC49B512C0010F14F0013F14FC90397FF003FE9039FFC001FF0003495A
48494813805B120F485AA2485A6F1300007F6E5AED00784991C7FCA212FFAC6C7EA3123F
6DEC03C0A26C6C1407000F16806D140F6C6DEB1F006C6D133E6C01F05B3A007FFC03F86D
B55A010F14C0010391C7FC9038003FF82A2F7CAD32>I<EE03FEED07FFA5ED001F160FB1
EC3FE0903803FFFC010FEBFF8F013F14CF9039FFF807FF48EBC00148903880007F4890C7
123F4848141F49140F121F485AA3127F5BA212FFAC127FA37F123FA26C6C141FA26C6C14
3F0007157F6C6C91B5FC6CD9C00314FC6C9038F01FEF6DB5128F011FEBFE0F010713F890
26007FC0EBF80036467CC43E>I<EC3FF80103B57E010F14E0013F8090397FF83FF89039
FFC007FC48496C7E48496C7E48486D1380485A001FED7FC05B003FED3FE0A2127F5B17F0
161F12FFA290B7FCA401F0C9FCA5127FA27FA2123F17F06C7E16016C6C15E06C6C14036C
6DEB07C06C6DEB0F806C01F0EB3F0090397FFE01FE011FB55A010714F0010114C0902600
1FFEC7FC2C2F7DAD33>I<EDFF80020F13E0027F13F049B512F849EB8FFC90390FFE0FFE
90381FFC1F14F8133FEB7FF0A2ED0FFCEBFFE0ED03F0ED00C01600ABB612F8A5C601E0C7
FCB3B0007FEBFFE0A527467DC522>I<DAFFE0137E010F9039FE03FF80013FEBFF8F90B8
12C048D9C07F133F489038001FF84848EB0FFC4848903907FE1F80001F9238FF0F00496D
90C7FCA2003F82A8001F93C7FCA26D5B000F5D6C6C495A6C6C495A6C9038C07FF04890B5
5A1680D8078F49C8FC018013E0000F90CAFCA47F7F7F90B612C016FC6CEDFF8017E06C82
6C16FC7E000382000F82D81FF0C77ED83FC014074848020113808248C9FC177FA46D15FF
007F17006D5C6C6C4A5A6C6C4A5AD80FFEEC3FF83B07FFC001FFF0000190B612C06C6C92
C7FC010F14F8D9007F90C8FC32427DAC38>I<EB7FC0B5FCA512037EB1ED07FE92383FFF
8092B512E002C114F89139C7F03FFC9138CF801F9139DF000FFE14DE14FC4A6D7E5CA25C
A35CB3A7B60083B512FEA537457CC43E>I<137C48B4FC4813804813C0A24813E0A56C13
C0A26C13806C1300EA007C90C7FCAAEB7FC0EA7FFFA512037EB3AFB6FCA518467CC520>
I<EC03E0EC0FF8EC1FFCEC3FFEA2EC7FFFA5EC3FFEA2EC1FFCEC0FF8EC03E091C7FCAAEC
01FF0103B5FCA5EB000F80B3B3A7EA1F80EA3FC0EA7FE0EAFFF0EC0FFEA215FC141F01E0
13F8007FEB3FF0393FC0FFE06CB512806C1400000313FCC613C0205A86C522>I<EB7FC0
B5FCA512037EB293387FFFE0A593380FE0004C5A4CC7FC167E5EED03F8ED07E04B5A4B5A
037FC8FC15FEECC1FCECC3FE14C7ECDFFF91B57E82A202F97F02E17F02C07FEC807F6F7E
826F7E816F7F836F7F816F7F83707E163FB60003B512F8A535457DC43B>I<EB7FC0B5FC
A512037EB3B3B3A3B61280A519457CC420>I<90277F8007FEEC0FFCB590263FFFC09038
7FFF8092B5D8F001B512E002816E4880913D87F01FFC0FE03FF8913D8FC00FFE1F801FFC
0003D99F009026FF3E007F6C019E6D013C130F02BC5D02F86D496D7EA24A5D4A5DA34A5D
B3A7B60081B60003B512FEA5572D7CAC5E>I<90397F8007FEB590383FFF8092B512E002
8114F8913987F03FFC91388F801F000390399F000FFE6C139E14BC02F86D7E5CA25CA35C
B3A7B60083B512FEA5372D7CAC3E>I<EC1FFC49B512C0010714F0011F14FC90397FF80F
FF9026FFC0017F48496C7F4848C7EA3FE000078248486E7E49140F001F82A2003F824914
07007F82A400FF1780AA007F1700A46C6C4A5AA2001F5E6D141F000F5E6C6C4A5AA26C6C
6CEBFFE06C6D485B27007FF80F90C7FC6DB55A010F14F8010114C09026001FFCC8FC312F
7DAD38>I<90397FC00FF8B590B57E02C314E002CF14F89139DFC03FFC9139FF001FFE00
0301FCEB07FF6C496D13804A15C04A6D13E05C7013F0A2EF7FF8A4EF3FFCACEF7FF8A318
F017FFA24C13E06E15C06E5B6E4913806E4913006E495A9139DFC07FFC02CFB512F002C3
14C002C091C7FCED1FF092C9FCADB67EA536407DAC3E>I<DA3FE0131E902603FFFC133E
010F01FF137E013F1480903AFFF80FE0FE489038E003F148EBC0014890388000FB4890C7
127F49143F001F151F485A160F5B127FA3485AAC6C7EA46C7EA26C6C141F163F6C6C147F
6C15FF6C6D5A6C9038E003EF6C9038F01FCF6DB5128F011FEBFE0F010313F89038007FC0
91C7FCAD0307B512FCA536407CAC3B>I<90387F807FB53881FFE0028313F0028F13F8ED
8FFC91389F1FFE000313BE6C13BC14F8A214F0ED0FFC9138E007F8ED01E092C7FCA35CB3
A5B612E0A5272D7DAC2E>I<90391FFC038090B51287000314FF120F381FF003383FC000
49133F48C7121F127E00FE140FA215077EA27F01E090C7FC13FE387FFFF014FF6C14C015
F06C14FC6C800003806C15806C7E010F14C0EB003F020313E0140000F0143FA26C141F15
0FA27EA26C15C06C141FA26DEB3F8001E0EB7F009038F803FE90B55A00FC5CD8F03F13E0
26E007FEC7FC232F7CAD2C>I<EB01E0A51303A41307A2130FA2131FA2133F137F13FF12
03000F90B51280B7FCA4C601E0C7FCB3A3ED01E0A9150302F013C0137F150790393FF80F
8090391FFC1F006DB5FC6D13FC01015B9038003FE023407EBE2C>I<D97FC049B4FCB501
03B5FCA50003EC000F6C81B3A85EA25EA25E7E6E491380017FD901F713FE9138F807E76D
B512C7010F1407010313FE9026007FF0EBFC00372E7CAC3E>I<B6903803FFFCA5000101
E09038003E006C163C80017F5D8017F8013F5D6E1301011F5D6E1303010F5D6E13076D5D
ED800F6D92C7FC15C05E6DEBE01E163E6D143CEDF07C027F1378EDF8F8023F5B15FD021F
5B15FF6E5BA36E5BA26E90C8FCA26E5AA26E5AA21578362C7EAB3B>I<B5D8FE1FB53980
1FFFF0A500019027C0003FE0C7EA7C007114786E17F86C6F6C5C6E1601017F6E6C5CA26E
011F1403013F6F5C6E013F1407011F6F5CA26E0179140F010F048090C7FC6E01F95C6D02
F0EBC01E15806D902681E07F5B18E003C3157C6D9139C03FF07815E76DDA801F5B18F803
FF14F96E9039000FFDE018FF6E486D5BA36E486D5BA26E486D90C8FCA24B7F02075DA26E
48147C4B143C4C2C7EAB51>I<B500FE90383FFFF0A5C601F0903803E0006D6C495A013F
4A5A6D6C49C7FC6E5B6D6C137E6DEB807C6D6D5A6DEBC1F0EDE3E06DEBF7C06EB45A806E
90C8FC5D6E7E6E7F6E7FA24A7F4A7F8291381F3FFCEC3E1F027C7F4A6C7E49486C7F0103
6D7F49487E02C08049486C7F49C76C7E013E6E7E017E141FB500E090B512FCA5362C7EAB
3B>I<B6903803FFFCA5000101E09038003E006C163C80017F5D8017F8013F5D6E130101
1F5D6E1303010F5D6E13076D5DED800F6D92C7FC15C05E6DEBE01E163E6D143CEDF07C02
7F1378EDF8F8023F5B15FD021F5B15FF6E5BA36E5BA26E90C8FCA26E5AA26E5AA21578A2
15F85D14015D001F1303D83F805B387FC007D8FFE05B140F92C9FC5C143E495A387FC1F8
EB07F06CB45A6C5B000790CAFCEA01FC36407EAB3B>I<001FB71280A49026FC001F1300
01E0495A5B49495A90C7485A48495B123E4A5B4A5B003C495BA24A90C7FC4A5A4A5AC7FC
4A5A495B495BA2495B499038800780491300A2495A4948130F49481400A2485B48495B48
5BA248495B4890C75A48485C15034848EB1FFEB7FCA4292C7DAB32>I<D80FC0137E486C
13FF486C481380486C4813C000FF15E06D5AA4497E007F15C06C486C13806C486C13006C
48137E230E76C538>127 D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FS cmbx12 17.28 24
/FS 24 118 df<EA01FCEA07FF4813804813C04813E04813F014F8B5FCA214FCA314FEA2
7EA27E7E6C13BE6C133EEA01FCC7FCA2147E147CA314FC14F8A2130114F01303A2EB07E0
A2EB0FC0A2EB1F80EB3F005B13FE485A485A485A485A5B6C5A6CC7FC173174E32D>39
D<EA01FCEA07FF4813804813C04813E04813F0A2B512F8A76C13F0A26C13E06C13C06C13
806C1300EA01FC151574942D>46 D<92B5FC020F14F8023F14FF49B712C04916F0010FD9
C01F13FC90271FFC00077FD93FE001017F49486D8049C86C7F484883486C6F7F14C0486D
826E806E82487FA4805CA36C5E4A5E6C5B6C5B6C495E011FC85A90C95CA294B55A614C91
C7FC604C5B4C5B4C5B4C5B047F138092260FFFFEC8FC020FB512F817E094C9FC17F817FF
91C7003F13E0040713F8040113FE707F717F7113E085717FA2717F85A285831A80A31AC0
EA03FCEA0FFF487F487F487FA2B57EA31A80A34D14005C7E4A5E5F6C495E49C8485BD81F
F85F000F5ED807FE92B55A6C6C6C4914806C01F0010791C7FC6C9026FF803F5B6D90B65A
011F16F0010716C001014BC8FCD9001F14F0020149C9FC426079DD51>51
D<EA07E0120F7F13FCEBFFFC91B912F8A45AA21AF01AE01AC01A801A00A2486061616161
01E0C9123F01804C5A48CA485A4D90C7FC60007E4C5A17074D5A4D5A4D5A485F4D5A17FF
4C90C8FCC9485A5F4C5A160F4C5A5F163F4C5A16FF5F5D94C9FC5D5D5E150FA24B5AA215
3FA24B5AA215FFA34A5BA25CA35CA44A5BA45CA65CAD6E5BA26E5BDA03FECAFC6E5A4563
77E051>55 D<4DB5ED03C0057F02F014070407B600FE140F047FDBFFC0131F4BB800F013
3F030F05FC137F033F9127F8007FFE13FF92B6C73807FF814A02F0020113C3020702C091
38007FE74A91C9001FB5FC023F01FC16074A01F08291B54882490280824991CB7E494984
49498449498449865D49498490B5FC484A84A2484A84A24891CD127FA25A4A1A3F5AA348
491A1FA44899C7FCA25CA3B5FCB07EA380A27EA2F50FC0A26C7FA37E6E1A1F6C1D80A26C
801D3F6C6E1A00A26C6E616D1BFE6D7F6F4E5A7F6D6D4E5A6D6D4E5A6D6D4E5A6D6E171F
6D02E04D5A6E6DEFFF806E01FC4C90C7FC020F01FFEE07FE6E02C0ED1FF8020102F8ED7F
F06E02FF913803FFE0033F02F8013F1380030F91B648C8FC030117F86F6C16E004071680
DC007F02F8C9FC050191CAFC626677E375>67 D<B700C0083FB612F070627097B7FCA370
61D800010DF8C7FC70F103EFA202FD6DF107CFA202FC6DF10F8FA36F6DF01F0FA26F6D18
3EA26F6D187CA26F6D18F8A36F6DEF01F0A26F6DEF03E0A26F6DEF07C0A26F6DEF0F80A3
706DEE1F00A2706D163EA2706D5EA2706D5EA3706D4B5AA2706D4B5AA2706D4B5AA2706D
4B5AA3716D4AC7FCA2716D143EA2716D5CA2716D5CA3716D495AA2716D495AA2716D495A
A2716D495AA3726D48C8FCA272EBC03EA2726D5AA2726D5AA372EBF9F0A272EBFFE0A272
5CA2725CA37390C9FCA2735AA2735A90381FFFC0B700F86E480207B812F0A3735AA2735A
8C627AE199>77 D<BB7E1AFCF2FFC01BF81BFE757ED800010280C7001F80070114F0736C
7F081F7F747F747F7414807414C0A27414E0A21DF0A27513F8A41DFCA91DF8A498B512F0
A21DE0A25014C01D8062501400505B505B087F5B4FB512E0071F5C93B9C7FC1BFC1BF01B
8008F0C8FC04C0CCFCB3B3A2B97EA65E627AE16E>80 D<B96C023FB612FEA6D8000102C0
CA0007EBF000E2007FC7FCB3B3B3AA656D63A2821C01806570170380525A6E7F6E4F5A70
171F6E626E6D4D5A6E6D177F525A6E6E030390C8FC033F01E04B5A6F6DED1FFC6F01FCED
7FF80303D9FF80903803FFE06F02F8017F5B6F6C90B7C9FC041F5E040716F8040016C005
0F4ACAFCDD003F13C06F647AE17C>85 D<B800FC047FB612E0A6D800070280CB6CEB8000
6D6EDE07FCC7FC666D6E611D0F6D6E611D1FA26E6D611D3F6E6D611D7F6E6D96C8FC65A2
6E6D4D5AA26E6E5F1C036E6E5F1C076E6E5F1C0FA26E6E5F1C1F6F6D5F1C3F6F6D5F1C7F
A26F6D4CC9FCA26F6D5E1B016F6E5D1B03A26F6E4A5AA26F6E5D1B0F6F6E5D1B1F706D5D
1B3FA2706D5D1B7F706D92CAFC63706D5C1A01A2706E485AA27002C05B1A077002E05B1A
0F7002F05B1A1FA27101F85B1A3F7101FC5B1A7F7101FE90CBFC62A2716D5AA2715CA271
5CA3715CA2715CA2725BA2725BA37290CCFCA2725AA2725AA2725A73637DE17A>I<9138
03FFFE027FEBFFF00103B612FE010F6F7E4916E090273FFE001F7FD97FE001077FD9FFF8
01017F486D6D7F717E486D6E7F85717FA2717FA36C496E7FA26C5B6D5AEB1FC090C9FCA7
4BB6FC157F0207B7FC147F49B61207010F14C0013FEBFE004913F048B512C04891C7FC48
5B4813F85A5C485B5A5CA2B55AA45FA25F806C5E806C047D7F6EEB01F96C6DD903F1EBFF
806C01FED90FE114FF6C9027FFC07FC01580000191B5487E6C6C4B7E011F02FC130F0103
02F001011400D9001F90CBFC49437CC14E>97 D<903807FF80B6FCA6C6FC7F7FB3A8EFFF
F8040FEBFF80047F14F00381B612FC038715FF038F010014C0DBBFF0011F7FDBFFC00107
7F93C76C7F4B02007F03F8824B6F7E4B6F13804B17C0851BE0A27313F0A21BF8A37313FC
A41BFEAE1BFCA44F13F8A31BF0A24F13E0A24F13C06F17804F1300816F4B5A6F4A5B4AB4
02075B4A6C6C495B9126F83FE0013F13C09127F00FFC03B55A4A6CB648C7FCDAC00115F8
4A6C15E091C7001F91C8FC90C8000313E04F657BE35A>I<92380FFFF04AB67E020F15F0
023F15FC91B77E01039039FE001FFF4901F8010113804901E0010713C04901804913E001
7F90C7FC49484A13F0A2485B485B5A5C5A7113E0485B7113C048701380943800FE0095C7
FC485BA4B5FCAE7EA280A27EA2806C18FCA26C6D150119F87E6C6D15036EED07F06C18E0
6C6D150F6D6DEC1FC06D01E0EC7F806D6DECFF00010701FCEB03FE6D9039FFC03FFC0100
91B512F0023F5D020F1580020102FCC7FCDA000F13C03E437BC148>I<F17FF8050FB5FC
A6EF000F8484B3A892380FFF804AB512F8020F14FE023FECFF8391B712E301039138807F
F3499039F8000FFB011F01E00103B5FC494913004990C87E49488148498148834A815A48
5BA2485BA25AA3485BA4B5FCAE7EA46C7FA37EA26C7FA26C5F806C5F6C6D5D6C6D5D017F
93B5FC6D6C6C0103806D6D49806D01F0D91FF7EBFFFE6D9039FE01FFE7010190B612876D
6CECFE07021F14F8020314E09127003FFE00ECC0004F657BE35A>I<92380FFFC04AB512
FC020FECFF80023F15E091B712F80103D9FE037F499039F0007FFF011F01C0011F7F4949
6D7F4990C76C7F49486E7F48498048844A804884485B727E5A5C48717EA35A5C721380A2
B5FCA391B9FCA41A0002C0CBFCA67EA380A27EA27E6E160FF11F806C183F6C7FF17F006C
7F6C6D16FE6C17016D6C4B5A6D6D4A5A6D01E04A5A6D6DEC3FE0010301FC49B45A6D9026
FFC01F90C7FC6D6C90B55A021F15F8020715E0020092C8FC030713F041437CC14A>I<F1
07F8DB7FFEEC3FFE020FB5D8F001B5FC027FDAFE03148049B7128F49DCDFFD13C0010FD9
F00FEBFFC149D9800114014990C7EBFC0349486E6C7E4948EC3FFF48496E018113800780
130048F0C03E97C7FC48496E7FA34884A96C60A36C6D4A5BA26C60A26C6D4A90C8FC6D6C
4A5A6D6C4A5A6D6D485BDBF00F5B4990B612C060D97C7F4AC9FCD9FC0F14F09126007FFE
CAFC92CCFC1201A47FA27F8014F091B77E18FE6CEFFFC019F06D17FC19FF6D846D846D84
6D84013F8490BAFC0003854801E0C712014890C9000F7F484816014848EE007F4848717E
8512FF5B85A56D5F007F616D173F003F616D177F6C6C4D5A6C01C003035B6C6D4B5B6C01
F8031F5BC601FF92B5C7FC6D01F8011F5B011F90B712F8010717E0010094C8FC020F15F0
DA003F01FCC9FC4A607CC151>103 D<EB0FE0EB3FF8497E48B5FCA24880A24880A76C5C
A26C91C7FCA238007FFC6D5AEB0FE090C9FCAF903807FF80007FB5FCA6C6FC7F7FB3B3AE
B712C0A622657BE42C>105 D<903807FF80B6FCA6C6FC7F7FB3A90503B61280A6DD003F
EB8000DE0FFCC7FCF01FF04E5AF0FFC04D5B4D90C8FCEF07FC4D5AEF3FF04D5A4D5A4C90
C9FC4C5AEE0FFC4C5A4C5AEE7FC04C7E03837F03877F158F039F7F03BF7F92B5FC838403
FC804B7E03F0804B6C7F4B6C7F1580707F707F707FA270807080717FA2717F717F717FA2
717F717F83867180727F95B57EB7D8E00FECFFF0A64C647BE355>107
D<903807FF80B6FCA6C6FC7F7FB3B3B3B3ADB712E0A623647BE32C>I<902607FF80EB1F
FFB691B512F0040714FC041F14FF4C8193267FE07F7F922781FE001F7FC6DA83F86D7F6D
D987F07F6DD98FC0814C7F039FC78015BE03BC8003FC825DA25DA25DA45DB3B2B7D8F007
B71280A651417BC05A>110 D<923807FFE092B6FC020715E0021F15F8027F15FE494848
C66C6C7E010701F0010F13E04901C001037F49496D7F4990C87F49486F7E49486F7E4849
6F13804819C04A814819E048496F13F0A24819F8A348496F13FCA34819FEA4B518FFAD6C
19FEA46C6D4B13FCA36C19F8A26C6D4B13F0A26C19E06C6D4B13C0A26C6D4B13806C6D4B
13006D6C4B5A6D6D495B6D6D495B010701F0010F13E06D01FE017F5B010090B7C7FC023F
15FC020715E0020092C8FC030713E048437CC151>I<D90FFFEB0FFCB690383FFF8093B5
12E04B14F04B14F8923907FC7FFC92390FE0FFFEC6EC1F806DD93F0113FF6D133E157E15
7C15F8A215F07013FEA24BEB7FFCEF3FF8EF0FE04B90C7FCA55DB3B0B712F8A638417BC0
42>114 D<913A3FFF8007800107B5EAF81F011FECFE7F017F91B5FC48B8FC48EBE00148
90C7121FD80FFC1407D81FF0801600485A007F167F49153FA212FF171FA27F7F7F6D92C7
FC13FF14E014FF6C14F8EDFFC06C15FC16FF6C16C06C16F06C826C826C826C82013F1680
010F16C01303D9007F15E0020315F0EC001F1500041F13F81607007C150100FC81177F6C
163FA2171F7EA26D16F0A27F173F6D16E06D157F6D16C001FEEDFF806D0203130002C0EB
0FFE02FCEB7FFC01DFB65A010F5DD8FE0315C026F8007F49C7FC48010F13E035437BC140
>I<EC07E0A6140FA5141FA3143FA2147FA214FF5BA25B5B5B5B137F48B5FC000F91B512
FEB8FCA5D8001F01E0C8FCB3AFEF0FC0AC171F6D6D1480A2173F6D16006F5B6D6D137E6D
6D5B6DEBFF836EEBFFF86E5C020F14C002035C9126003FFCC7FC325C7DDA3F>I<902607
FFC0ED3FFEB60207B5FCA6C6EE00076D826D82B3B3A260A360A2607F60183E6D6D147E4E
7F6D6D4948806D6DD907F0ECFF806D01FFEB3FE06D91B55A6E1500021F5C020314F8DA00
3F018002F0C7FC51427BC05A>I E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: FT cmbx12 24.88 62
/FT 62 128 df[<96261FFFFE93383FFFC0061FB600F0020FB512F84DB700FE91B612FE
051F9326FF80076F7E94B9D8E01F16E00407DEF87F82041F06FDB87E047F9126FC000F90
B6D8FC037F4BB600800100DCC0077F030702F8C8003FDB000F7F4B02E092B600FC5B033F
02804A4B16804B49C804E05B92B5484B5D4A02F04B4D14C04A4A614A4A4B92C7FC4A5C66
4A91C9FC4A5B664A49761480A27571140091B5506E5B4C827B5B75050113F0759438007F
C09FC8FCB3A4C212FCA9C702FCCA02FCCBFCB3B3B3B3A2003FB800F0013FB9FCA9>146
144 123 271 136 11 D[<96380FFFFE060FB612E04DB712FC051F16FF94B912C0040784
041F18F8047F9126FC001F7F4BB6008001017F030702F8C8EA3FFF4B02E0030F7F033F02
804B7F4B49C9127F92B54893B57E4A02F05D4A4A4B804A4A5D4A4A84634A91C9FC4A5BA2
4A5B5180755C91B5FC5EA3755CA2755C755C755CE23FFEC8FCF40FF899CAFCAF083FB612
FCBFFCA9C702FCC912038787B3B3B3B2003FB800F0013FB812F0A9>116
144 123 271 129 I[<D91FE0EE0FF0D9FFFCEE7FFE00036D4BB5FC486D6C4A14C0486E
4A80486E4A80486E4A80A2486E4A80A26F83B65D6F83A26F1880A47017C06C83A36C83A2
6C836C836C02BF6E14DF6C023F6E149FC601FC9239007FFE1FD91FE0EE0FF090C793C7FC
037F173F93CA1380A54B177F4B1800A20201604B5FA2020317014B5F02071703A24A484C
5AA24A484C5AA24A484C5A027F173F4B5F4ACA485A4918FF49484C90C7FC4A5F01071703
49484C5A49484C5A49484C5AD9FFC0EE7FE048494C5A4890C9485B48484C90C8FC495F6C
48705A6C48705A6C481770>82 70 120 270 120 34 D[<EB1FE0EBFFFC00037F486D7E
488048804880A24880A281B6FC81A281A416807EA37EA27E7E6C14BF6C143FC613FCEB1F
E090C7FC157F1600A55D5DA214015DA214035D1407A24A5AA24A5AA24A5A147F5D4AC7FC
5B495A5C1307495A495A495AEBFFC0485B4890C8FC485A5B6C5A6C5A6C5A>33
70 111 270 65 39 D[<18F8EF01FC1707170FEF1FF8EF3FF0EFFFE04C13C04C13804C13
004C5A161F4C5A4C5A4C5A4B5B5D4B5B5F5D4B90C7FC4B5A157F5E4B5A5C4A5BA24A5B5C
5E5C5E5C4A90C8FCA24A5AA25B5D5B5D5BA2495BA25B5D5BA25D5BA390B55AA25AA292C9
FC5AA35C5AA35A5CA35AA35CA25AA65A5CA8B5FCB3A87EA8807EA67EA280A37EA3807EA3
7E80A37E81A27EA26D7FA37F81A27F817FA26D7FA27F817F817FA26E7EA26E7F80828082
806E7FA26E7F806F7E82153F6F7E6F7F81836F7F816F7F707E707E707E160F707E701380
7013C07013E0EF3FF0EF1FF8EF0FFC17071701EF00F8>54 206 106
282 90 I[<127C12FE6C7E7F6C7E6C7EEA1FFC6C7E6C7E6C7F6C7F806C7F6D7E6D7E6D7E
806D7F7F816D7F6D7F817F6E7E816E7EA26E7F82808280826E7FA26E7FA28280828183A2
6F7FA2838183A28183A36F7FA283A28183A3811880A318C081A318E0A382A218F0A618F8
82A818FCB3A818F8A85E18F0A618E0A293B5FCA318C0A35D1880A318005DA35F5DA25FA2
4B5BA35F5DA25F5D5FA24B5BA294C7FC92B5FC5E5C5EA24A5BA24A5B5E5C5E5C5E4A90C8
FCA24A5A5D4A5A5B5D495B495B5D5B4990C9FC5C495A495A495A485B5C485B4890CAFC48
5A485AEA3FF0485A485A5B48CBFC127C>54 206 115 282 90 I<BA12F0B33C137DB74D>
45 D[<1CFC517E517E1D8063A263A3511300A2515AA3515AA2515AA3505BA2505BA3505B
A2505BA35090C7FCA2505AA3505AA2505AA34F5BA24F5BA34F5BA26361A24F90C8FCA34F
5AA24F5AA34F5AA24E5BA34E5BA24E5BA34E5BA24E90C9FCA34E5AA24E5AA34E5AA24D5B
A34D5BA2615FA24D5BA34D90CAFCA24D5AA34D5AA24D5AA34C5BA24C5BA34C5BA24C5BA3
4C90CBFCA24C5AA34C5AA24C5AA34B5BA25F5DA24B5BA34B5BA24B90CCFCA34B5AA24B5A
A34B5AA24A5BA34A5BA24A5BA34A5BA24A90CDFCA34A5AA24A5AA34A5AA25D5BA2495BA3
495BA2495BA34990CEFCA2495AA3495AA2495AA3485BA2485BA3485BA2485BA34890CFFC
A2485AA3485AA2485AA35BA25B127F6C5A6C5A>89 207 115 282
116 47 D[<93381FFFF00303B612E0033F15FC4AB812C0020717F0021F17FC027F17FF49
BA12C0010719F049DA800F814901F8C715FE4901C0021F804948C800078149486F814801
F00300814849708048018070804890CA6C806E70804813F002FC7080486D70158080486E
6F15C0817315E081B6836F19F0A3861DF8A56C5CA26C5CA26C5C6C91CAFC6C5B000113F8
26007FE01AF090CCFC62A21DE0A297B6FC1DC0A24F1580A24F150064A24F5C64614F5C64
4F5C644F91C7FC96B55A4E5C634E5C4E5C4E5C634E49C8FC4E5B4E5B95B55A4D14C0624D
91C9FC4D13FC4D5B4D5B4D13C04D5B94B5CAFC4C13FC4C5B4C5B4C49ED0FF84C13804C90
C9FC4C5A4C48EE1FF04B5B4B13E04B5B4B5B4B90CAFCDB3FFC173F4B4818E04B5A4A5B4A
49177F4A90CBFC4A4818FF5D4A485F4A48053F13C04ABBFC91BCFC5B5B5B5B491B805B5B
90BDFC5A5A5A5A481C005A5ABEFCA464A4>93 135 117 262 116
50 D<EB1FE0EB7FF83801FFFE0007EBFF804814C04814E0A24814F0A24814F8A2B612FC
A86C14F8A26C14F0A26C14E0A26C14C06C14800001EBFE0038007FF8EB1FE090C8FCB3AE
EB1FE0EB7FF83801FFFE0007EBFF804814C04814E0A24814F0A24814F8A2B612FCA86C14
F8A26C14F0A26C14E0A26C14C06C14800001EBFE0038007FF8EB1FE01E5C6FDB41>58
D[<F31FF0517E517EA2517EA3507FA25080A25080A35080A25080A35080A25080A397B6
7EA24F81A34F82A24F82A34F82A24F821AFD1AF9DF3FF881A24F4881871AE007FF6D80A2
4E01C081871A804E6E81A24E0100828761060F6E81A24E48838761063F6E81A24E488388
6106FF6F80A24D498388614D7081A24D90C8828860050F7081A24D48858860053F7081A2
4D4885896005FF7180A24C498589604C7281A24C90CA82895F040F728194BDFC4C88A34C
88A24C88A3DCFFE0CB003F80A24B49878A5F4B7481A24B90CC828A5E030F7481A24B4889
8A5E033F7481A24B48898B5E03FF7580A24A497480A25E4A7681A24A90CE6C81A25D9126
1FFF8074810103B512FEB900C0041FBA12FEA9>159 145 120 272
176 65 D[<BFFC1EFEF6FFE01FFCF7FF8020F020FC20FF8DC7000392CA001F15E00B0181
776C800C1F807814FF0C03818A78818E79808B8E8B8E8B8EA27980A4791580AB551500A4
555CA26A676A676A555C9CB65AA2545D5492C7FC545C5414F80C3F5C545C53B612800B0F
4AC8FC0B7F14F80A1FB612E095BBC9FC1FF81F801FF8F7FF8020F820FE95CBECFFC00C1F
14F00C07807814FE0C006E7E7980798079807980798079808E79158023C08B23E08C23F0
A223F88CA223FCA38C23FEAB5614FCA55614F8A39DB612F0A25515E06723C05515806755
1500555C555C9CB6FC545D0C075D0C1F15C09BB75A0B0F93C7FCC212FC6921E021800EFC
C8FC20F020800DF0C9FC0CFCCAFC>143 142 120 269 165 I[<0803B500C0EE01F00703
B600FEEE03F8077FDBFFE015070607B800FC150F063F05FF151F4DBA00E0143F050F07F8
147F053F07FE14FF94BC5B04039326F8000FECC003040F4BC86CEBF007043F03C0030F6D
5A93B648C900036D5A4B03F09339007FFF3F030703C0051F90B5FC4B92CB7E033F02FC18
034B02F08492B648844A0380193F4A92CD7E4A4A864A4A864A02F0864A4A864A8991B65A
494B874992CF7E4C885B494A885E498B494A88A2495C8D90B65A8D5A5E48217FA24892D1
FC223FA25A5DA248211FA3485CFA0FF09FC7FCA25AA45DA3B6FCB27EA381A47EA46C80FA
07F0FA0FF87EA2817EA36C6F1D1F23F07E827E223F6D6E1EE0A26D6E1D7F23C06D6E1DFF
7F705213806D806D55130070646D6F646D6F515A6E6E1B1F6E6E515A6E6E515A6E6E1BFF
6E6E505B6E6E505B6E6F4F5B6E03E04F90C7FC6F6EF13FFE6F02FC4F5A030F02FF4E485A
6F03C005075B030103F0051F5B6F03FE057F1380043FDAFFE00303B5C8FC040F03FE033F
13FC0403DBFFF80107B55A040093B812E0053F1A80050F4FC9FC050119F8DD003F18C006
0795CAFCDE007F16F0070393CBFCDF000314C0>141 146 115 271
168 I[<BE12FEF5FFFCF6FFC01FFCF7FF8020E020FC20FF21C0C700030380C8000116F0
E2000F810B0015FE0C1F800C0315C00C00810D3F8079800D0714FE79807981796C808C7A
807A808F7A807A808C8F7A818DA17E8DA17E8DA17EA27B80A2A17E8DA17EA28DA17EA3A1
13808DA3A113C0A57B15E0A6A113F0B3A2A113E0A569A113C0A5A11380A269A2A11300A3
575CA2A15AA269A15A69A15AA2575CA15A69A15A9EB6FC5692C7FC6B565C68565C565C56
5C565C9DB65A5592C8FC0D075C555C0D3F5C9CB65A0C0315C00C0F5D0C7F92C9FC0B07B6
12FC52B712F0C212C09ECAFC20FC20F020800DFCCBFC1FE00CFCCCFC53CDFC>156
142 120 269 178 I[<C212F8A48DA5C7000303C0C9123FF5007F1E0F0C0180787E1F1F
8B8B1F018BA27A7E8C8CA28CA28CA28C8EA28CA38CA38EA2E21FF0157FA67B7EA40A3F93
C8FCA41C7FA21CFFA26363631B1F1B7F0807B5FC95B8FCA99538C00007F2007F1B1F1B07
878787A21C7FA21C3FA3FA7FC01C1FA2FAFF80A6571300A299CAFCA369A26AA22107A321
0F6AA2211FA2213FA2575AA221FFA26868565BA26868207F9DB5FC555C1F071F1F1F7F0C
03B6FC1E3F0B1FB7FCC35AA66AA3>138 141 120 268 153 I[<C21280A421C0A5C70003
03C0C81201F40007F5007F0C1F14E01E071E01787E8B8B8B8B7913F0A28B8BA2207FA320
3F21F8201FA4200FA321FC2007A4F47FC0A3F803FEA49DC7FCA31CFFA463A263A2636363
1B7F50B5FC1A1F95B8FCA99538C0001F1A01747E1B1F878787A287A287A41C7FAA99CBFC
B3AFBC12F8A9>127 141 120 268 146 I[<0803B500C0EE01F00703B600FE4C7E077FDB
FFE015070607B800FC150F063F05FF151F4DBA00E0143F050F07F8147F053F07FE14FF94
BC5B04039326F8000FECC003040F4BC86CEBF007043F03C0030F6D5A93B648C900036D5A
4B03F09339007FFF3F030703C0051F90B5FC4B92CB7E033F02FC18034B02F08492B64884
4A0380193F4A92CD7E4A4A864A4A864A02F0864A4A864A8991B65A494B874992CF7E4C88
5B494A885E498B494A88A2495C8D90B65A8D5A5E48217FA24892D1FC223FA25A5DA24821
1FA3485C7C5A9FC9FCA25AA45DA3B6FCB27EA381A20A0FBB12F8A27EA46C80A36C98C96C
02F8C7FCA2817EA36C81A27E827E827FA26D80A26D806D80A26D806D80A26D816D816E80
6E806E806E6E97B6FC6E806E806E03C0606E816F02F8606F02FE60030F6E606F03E0173F
030103F85F6F03FF933801FFFC043F03E00307497E040F03FF033F497E040304FC0107B5
EAE00F040093B8487E053FF20001050F07FCEB007F050107F0141FDD003F06C014070607
95C81201DE007F04F8ED00700703048093C8FCDF000302E0CDFC>157
146 115 271 183 I[<BC0207BB12F8A9C7000303C0CC001F4AC8FCB3B3B395BEFCA906
C0CC121FB3B3B3A6BC0207BB12F8A9>165 142 120 269 182 I[<BC12C0A9C7000103E0
C8FCB3B3B3B3B3B3B0BC12C0A9>74 142 122 269 87 I[<BC0403B9FCA9C7000303C0CC
000103E0C7FCE6000F01F8C8FC7B13E05713805790C9FC575A575A56485A565B565B5613
805690CAFC565A565A55485A555B5513C0555B5590CBFC555AF7FFFC545B545B5413C054
5B5490CCFC545AF6FFFC535B5313E0535B535B5390CDFCF57FFE535A525B5213E0525B52
5B5290CEFCF47FFE525A5113F0515B515B515B093F7F6398B57E50805080625080083F80
508097B7FC4F824F82614F82073F824F82F1FFF906C101F18106C301E08106C7496C8006
DF138095B5486C8107FC6D814F7F4F834F6D814F6D814F7F96C78206FC6E814E6F80604E
6F814E6F817681A276817681888C76817780A2778177817781A277817781898D77817880
A2788178817881A2788178818A8E788179808B8F79817981A2798179818B8F79817A808C
5615C00D03B712F0BC033FBA12E0A9>163 142 120 269 182 75
D[<BC12F8A9C7000303C0CEFCB3B3B3B3A5F8FF80A4672100A667A368A21F07A41F0FA3
555AA21F3FA21F7FA21FFFA2666668666666666653B5FC65650B1F5C1D7F0A03B6FC1C1F
0903B7FCC1FCA468A5>121 142 120 269 140 I[<B900C00C7FB812E0729BB9FC726572
65A37265A27265C70003A101F8C8FC72F51FEFA2706EF43FCFA3706EF47F8FA2706EF4FF
0FA2706EF301FEA3706EF303FCA2706EF307F8A2706EF30FF0A2706EF31FE0A3716EF23F
C0A2716EF27F80A2716EF2FF00A2716E4F5AA3716E4F5AA2716E4F5AA2716E4F5AA3716E
4F5AA2726E4E5AA2726E4E5AA2726E4EC7FCA3726E4D5AA2726E4D5AA2726E4D5AA2726E
4D5AA3726E4D5AA2736E4C5AA2736E4C5AA3736E4CC8FCA2736E4B5AA2736E4B5AA2736E
4B5AA3736E4B5AA2736E4B5AA2746E4A5AA2746E4A5AA3746E4AC9FCA2746E495AA2746E
495AA3746E495AA2746E495AA2746E495AA2756E485AA3756E485AA2756E48CAFCA275EC
F1FEA275ECFBFCA375ECFFF8A2755DA2755DA3765CA2765CA27691CBFCA2765BA34A6D71
5B49B512FEB900FC6F490303BB12E0A2765BA2765BA3775A0B1FC9FC>203
142 120 269 220 I[<B900E04EB912F884848484A2848585C700037094C7000302FCC7
FC73DF000F90C8FC7C5A85858585A2708170817081708186827081708170818783718171
8171817181A2718171817181728188847281728172817281A27281728173817381898573
8173817381898573817481748174818A867481748174818A8675817581758175818B8775
81758175818C887681768176817681A276817681768177158021C0897715E07715F07715
F87715FCA27715FE7715FF7815877815C722E78A7815F77815FF8AA28A8A8B8B8BA28B8B
8B8BA28B8C8C8C8CA28C8C8C8CA28D8D8D8D8DA24A6D8849B500FE88B900FC86227FA222
3F221F220F2207A27C5A>165 142 120 269 182 I[<97B512F0077FECFFE00607B712FE
067FEEFFE00503B912FC051FF0FF80057F19E00403BB12FC040F9226E0007F14FF043F02
FCC7000315C04C02E0DA007F804BB60080031F14F8030702FCC9000314FE4B4A70804B02
E0706C80037F0280051F14E092B6CB6C804A4A72804A4A72804A02F00600804A4A737F4A
4A73804A8B4A4A738091B6CD6C80494A7480A2494A7480494A7480498C4C86498D4C8749
8D494A7580A290B68B4C87488EA24892CF6C80A3488E4B88A2488EA3484A761580A34823
C0A5484A7615E0A7B621F0B36C23E0A26F64A56C23C0A46F646C2380A36C23006F64A26C
6AA270636C6AA26C6A70636C6A70636D69A26D6E98B65AA26D6E505DA26D6E5092C7FC6D
6870626D6E505C6D686D6F4F5C6E6E4F5C6E6E4F5CA26E6E96B65A6E6E4E92C8FC6E6E4E
5C020102FF060F14F86E6F4D5C6F6E4D5C6F02F094B65A030F6E4C92C9FC6F02FE04075C
03016E6C031F14F86F03F092B65A043F02FE020715C0040FDAFFF090B7CAFC040392B812
FC04001AF0051F198005074ECBFCDD007F17E0060F94CCFCDE007F15E0070002F0CDFC>
148 146 115 271 175 I[<BE12F8F5FFF01EFF1FE01FFCF7FF8020E020F820FEC70003
0380C8000781E2003F15C00B03810B00810C3F8078800C07807880788178818E8B8E8B8E
8B8EA28EA28B8EA42380AC2300A46A67A26AA26A676A676A9CB65A6A665492C7FC545C0C
1F5C545C9BB612E00B075D0B3F5D0A07B648C8FC95BB12F820E0208055C9FC1FF09CCAFC
1EF00BF8CBFC06C0D0FCB3B3B2BCFCA9>137 142 120 269 159
I[<97B512F0077FECFFE00607B712FE067FEEFFE00503B912FC051FF0FF80057F19E004
03BB12FC040F9226E0007F14FF043F4AC7000715C04C02E0DA007F804BB60080031F14F8
03074AC9000714FE4B02F80401804B02E0706C80037F0280051F14E092B6CB6C804A4A72
804A4A72804A02F00600804A4A737F4A8B4A4A73804A4A738091B6CD6C80494A7480A249
4A7480494A7480498C4C86498D4C87498D494A7580A290B6487580A2488E93CF7E488EA2
4B88488EA3484A7680A3482380A24B884823C0A54823E0A34B88A4B621F0B36C23E0A46F
64A36C23C0A56C23806F64A26C2300A36C6E525CA36C6E525CA26C6AA26C6F515CA26D6E
515CA26DDE07FE617092263FFFC05D6D95B500F06070020302FC92B6FC6D6E020F6E4A92
C7FC6D4D6E6C5E704A6F5B6D94267FFC036D5E6D6E9227E0007FF0495C6D6EDAFF80D91F
F8495C6E6E4890C700074A5C6E4C6E6C5E05C0496F5B6EDAE0036F6C495C6E02F0496E91
B6C8FC6E02F806815C020102FCDD7FC314F86E02FF06CF5C6F028370B65A6F02E362030F
DAF3FC6F92C9FC6F02FD610301DAFFFE18F86F6F037F5C043F03C00103B612C0040F03F0
017F92CAFC040392B812FC04001AF0051F198005071EF0DD007F72ED01F8060F84DE007F
15E30700DAF0037F97C880776D1503A279150779150F7702C0141F7A147F0EF8903803FF
F00EFF133F9EB6FC8AA2A112E0A28AA2A112C08AA2A112808AA112008A6B8A6B8A6B785E
795D6B795D7992C7FC795C0D035C7914F0E5003F13C0E607FEC8FC>149
184 115 271 175 I[<BD12FCF4FFFCF5FFE01EFCF6FFC01FF01FFE797E20E0C7000303
80C86C15F80A0181E2003F14FF0B07810B0115E0776C8078807880788078808A78818E78
81A28E8B8EA37980A48EAA6AA3676AA26AA29CB65AA26A545D9FCAFC66545C545C545C54
5C9BB612C0535D0B074ACBFC0B3F5C52B612F00A7F15C095BBCCFC1FF81FC054CDFC66F6
FF801FE00680C7000315F8E1003F14FE0A0F800A0315C07681766C807780778077808C77
81898D898D898DA38A8DAD8DACA1EB1FC0A1EB3FE08D8AA37880A1137FA114C078817818
FF7C1580785F786F1500BB00FE6F6F5B796E495A7902FEEB1FFC799139FFC07FF80D0792
B55A0D015F796C5E0E1F5E0E034BC7FCD4001F14F8E7003F13C0>163
144 120 269 173 I[<93260FFFF8163E4BB600E0153F031F03FE5D037FDBFFC05C0203
B800F05B020F05FC5B4A05FF5B027FF0C00F91B526FE000FECF01F010302C0D9007F6D5A
4991C800076D5A4901FC030090B6FC4901F0163F4949160F4901808290B5170192CBFC48
49844849181F87484984A2484984874886A248498588A24887A388A2B58680A36E85A280
A26E8580A2818103F0725A6C6E96C7FC15FE8116E06C15FEEEFFE017FF6C17F0F0FF806C
18F8F1FFC06C19FCF2FF806C1AE01BF86C1AFE6C747E6D1AE0886D866D866D1AFF6D876D
87010087806E86020F86020386020086153F030F851501DB001F19801601DC000F18C0EF
007F060717E0F0003F070316F0F1003F1A0F080315F81A00871B1F877514FCA287007F86
486C85A288A388A36D86A31EF87FA37F1EF0A26D626D1CE0A27F6D5013C0A26E1B806E96
B5FC6E1B0002F8606E4E5B6E626E6C5F03E04D5B03F84D5B03FE057F5BDBFFC093B55A04
F803035C496CD9FF80021F91C7FCD9FC1F02FF49B55AD9F80792B75A496C19F049C66149
011F18804901074DC8FC90C817F848031F16C048030003FCC9FC007C04011480>102
146 115 271 129 I[<000FC312F8A6488EA304C0C7001F4AC7120103F8C8F0000F03C0
1C0192C9737E02FC1E1F4A1E0702E08A4A8A4A8A4890CA757EA249203F49201FA349200F
A2492007A4492003007F8EA4498CA848487A1380A6CC99C7FCB3B3B3B3AA030FBD12FCA9
>145 140 120 267 162 I[<BC040FB912C0A9C7000303C0CD001F02E0C7FC9E26007FF8
C8FC7C5AB3B3B3B3B36E555AA3848022FF6BA26F65726481696F9CC9FC72626F66210F6F
6E505AA26F6E505A6F535A6F6E1AFF734E5B706E4E5B70637002F04E5B706E063F90CAFC
706E4E5A7002FF4D485A04006F04075B7102E0043F5B7102FC4BB55A050FDAFF80020F14
807103FC0103B6CBFC050192B812FC716C61061F19E006031980060006FCCCFC071F17F0
07011780DF001F03F8CDFCE0001F49CEFC>162 144 120 269 179
I[<BB00E00507B812F8A9C7001F92CE000192C7FC72E0000713E06E79138084A26E5590
C8FC846E555A846E555A846E68223F846F545A846F545A846F6769856F535B856F5390C9
FC856F66210F856F535A856F535A8570525A85A270525A8570515B8670515B86709ACAFC
688670515A8670515A867064203F8671505A8671505A8671636787714F5B87714F90CBFC
87714F5A87A2714F5A87714F5A87724E5A8772611FFF87724D5B88724D5B887296CCFC66
88724D5A88724D5A88726076133FA2734C5A88734C5A88734B5B1D81A27303835B1DC373
03C790CDFC1DE773EDEFFE1DFF735EA3735EA2745DA2745DA3745DA2745DA27492CEFCA3
745CA2745CA2745CA3755BA2755BA2755BA2755BA27590CFFC755A>165
144 123 269 176 I[<BB6C010FBA00FC0307B812F8A9C76C02FCCB000703C0CC6CEC80
00786F070001F0C7FC6E6EA1EB3FE0781E7F6E796371A113FF78816E6FA15BA16079806E
6FA190C8FC79646E796272230779806E6FA15AA1180F79816E6FA15A791C1F6F79617223
3F79816F6E4E65A1187F8F6F6E4E65A118FF6F516F6173698F6F6F4D9AC9FCA15F8F6F6F
4D640EDF1A076F09FF6F6073210F0E8F816F6F4C65A1171F0E0781706E4C65556C1A3F70
0707715F73217F556C81706E040F65A117FF556C81706F031F65556D6070073F7194CAFC
7467556D80706F037F64A11607556D80706F03FF64556D180F704E735D741F1F9CC76C81
716E4A65A1163F546E81716E020765546E187F71050F735D741FFF546E81716F011F65A1
5D546F80716F013F9ACBFC546F5E71057F735C751D07546F80716F01FF64A1150F546F15
80716F48659BC96C161F724B09C05B09FC1D3F537015E072DAFE0765A1157F537015F072
DAFF0F65537016FF72031F755B0A9F1BF9537114FD7203FF9ACCFCA191B5FC5383726853
837268A253837268A29ACB7E736752847367A252847367A2528473675285739CCDFCA252
857366A25285736652857366A299CD7E7465A25186083F655186081F655186E007F075CE
FC>229 144 123 269 240 I[<001FBB92BA7EA9C893CB003F92C9FCE5007F13806F6FDE
1FFECAFC6F6F4E5A207F6F6F4E5A6F6F616F515B735F6F6F4D5B6F6F615590CBFC6F6F5F
706F5F555A706F4C5A706F16FF706F5F545B706F5D706F4B5B68706F4B90CCFC706F5D71
6F4A5A67716F4A5A716F14FF535B716F5D716F495B715F75495B716F92CDFC716F495A1D
3F726F485A7203C05B535A7215E17203F35B7203FB5B99B55A847294CEFC65725E85735D
65735D7381A273817381858973817481A274817481A27481748150816250818A6297B87E
4F838B4F13DF4F01CF814F0187811B074F486C81073F6D814F487E50824F486D814E6F81
4E5B506D814E496D81604E90C76C814F6E814E486E81187F4F6E814E486F814D5B4D7181
4F6F814D496F815F4D90C96C814E70814D5A057F71814D4870814E834C49874C73814C49
7181604C90CB6C814C73814C5A4D72814C48728104FF73814B5B4D73814B4973815D4B49
738194CD6C814B487481153F92B57481027F02FE7381BA00C00303BB12E0A9>163
142 122 269 176 I[<BB00FC95B91280A9C7000F03F8CE6C02E0C7FC6E6F090101F8C8
FC6E21E0846E6F515B6E555B856F6F5090C9FC6F545A856F6F505A6F545A856F6F505A6F
535B856F6F4F5B6F535B86706F4E90CAFC70525A86706F4E5A70525A86706F4E5A70515B
86706F4D5B70515B87716F4C90CBFC71505A87716F4C5A71505A87716F4C5A714F5B8771
6F4B5B714F5B88726F4A90CCFC724E5A88726F4A5A724E5A88726F4A5A724D5B88726F49
5B724D5B1D80736F4890CDFC734C5A7315E077485A734C5A7315F877485A7303FD5B7392
B5FC67735F869CCEFC745D8666745D8666745D8666B3B3AC067FBBFCA9>169
142 125 269 176 I[<0007C012C020E0A720C04DC9003F158094CAFC04F04D15004803
C094B65A4BCBFC03F84D5D4B4D5D15C04B4D5D92CB485D5C4A4E5D4A4E5D5C4A4E92C7FC
664A95B6FC4A4D5D6691CB5A505D664960505D6649605092C8FC65484895B6FC4F5D6561
4F5D65495F4F5D65614F92C9FC64CCB6FC4E5DA24E5D4E5DA24E5D4E5DA24E5D4E92CAFC
A295B65A4D5DA24D5D635F4D5D635F4D5D98CBFC5F94B65A625E4C5D625E4C5D625E4C5D
97CCFC4CF21FF093B65A615D4B5D614B1B3F4B4B18E0A24B5D4B5DA24B92CBFC92B65A1F
7F4A5D4A5DA24A5D4A4B18FFA24A5D4E19C04A634A92CBFC4D6091B6FC495D4D605B494B
604D605B494B604D605B4992CCB512804C6090B661484B180F4C604864484B95B6FC4C17
03481B1F484B94B7FC4C1607480703B8FC4892BDFCA2C1FC2000A67E>116
142 115 269 142 I<93B512FC037FECFFF00207B8FC023F17E091B912F84918FE010772
7E499126C0007F14E04901E0C7000F80496D020380496D020014FE6F6F7F90B570806F6F
8085486E6F807380A27380A28885886C5CA26D4982886D5B6D5B010713C0010190CAFC90
CCFCA90603B7FC050FB8FC0403B9FC167F0307BAFC153F4AB7EA807F020FEDE000023F02
FCC7FC91B612E0010392C8FC4914FC011F14F04914C0495C90B548C9FC485C485C485C48
5C5A5D485CA24891CAFCA3B6FC5CA397B6FCA461806C60F107EF6C6E150F6F16CF6C183F
6FDB7F8F806C6EDBFF0F14E06C02FCDA03FE15FE6C6E91260FFC0791B5FC6C6E6CD93FF8
17806C923AF803FFF003013F91B6487E010FEF8000010394C77E010004FC141F021F03F0
140702010380DA007F1400DA000701F8CDFC695F79DD71>97 D[<ED1FF0017FB5FCB7FC
A9EA003F1307A27FB3B296383FFFC00607B512FE063FECFFE04DB712F8050716FF051F17
C0057F17F094B5D8C00F8004F301FCC714FE04F701E0023F7F93B50080020F804DC86C14
E005F80301804D6F804D707F05808294CA804C717F4C7180A24C71808BA27680A28B88A2
8BA28BA3888BA52080B02000A56764A267A3676467A2525CA267647062704D91C7FC704D
5BA2714C5B7193B55A05F04B5CDCBFF84B5CDC1FFC030F5C4B6CB44B91C8FC7001C0027F
5B4B6C01F00103B55A4BC601FF013F14F04B6D90B712C04B011F94C9FC4B6D16FC4B0103
16F092C86C15804A030F02F8CAFC90CB49CBFC>113 144 121 270
129 I<94387FFFF0041FB612E093B712FE0307707E031F17F092B97E4A18FE020784021F
9126F8000F14804A0280010014C04A49C74814E049B500F85C494A17F0494A5C495C494A
4A14F84991C8FC5D495B90B5FC5D5A485C7314F05A4B6F14E05A7314C0487214804B9338
3FFE00F20FF84896C8FCA4485CA5B6FCB07EA281A37EA36C80A37E6F18FE6CF201FFA26C
6E5F1CFE6C801B076C6EEF0FFC6D7F70EE1FF86DF13FF06D6E167F6D6EEEFFE06D02F84B
13C06D6E5D6D02FF030F13806D03C0023F1300023F02F0903801FFFC6E9126FF801F5B02
0792B65A6E18C0020060033F4CC7FC030716F8030016C0041F4AC8FCDC007F13C0585F78
DD67>I[<F53FE098B6FC4FB7FCA996C77E1B0FA287B3B294383FFF80040FB512FC93B712
80030716E0031F16F8037F16FE4AB9128702074AC66C13C7021F02E0010713F74A91C890
B6FC4A01FC153F49B548150F4902E081494A81494A814991CA7E495B8749498390B54883
5A5D5AA2485CA25A5D5AA35AA25D5AA5B6FCB07EA57E81A37EA27EA2817EA26C80A26C62
6C6E5F636D7F6D6D94B6FC6D606D6D1607705D6D6E4B81010102F0157F6D6E92B712FE6E
01FE020301EF91B512806E6D6C011F13CF020FDAF801B5120F020391B612FE6E17F86E6C
16E0030F16800301EDFC00DB003F14E0040049C74AC8FC>113 144
120 270 129 I<94387FFFC0040FB6FC93B712E0030716FC031F16FF037F17C04AB912F0
0207DAF80380021F912680003F13FE4A49C7000F7F4A01F802038049B5486E804902C06E
6C7F494A6F7F4991C9FC49727F4949707F4B84498490B548707F5A4B198048855D481CC0
86481CE05D5A871DF05AA25D5AA21DF887A2B6FCA392BBFCA51DF00380CDFCA77EA4817E
A37EA2817EA26CF307F06FF00FF87E816C1B1F6F19F06C1B3F6D6DF07FE06D7FF4FFC06D
6E4C13806D6E5E6D02F04C13006D6EEE1FFE6D6E4C5A6D6C01FFEEFFF86E02E002035B6E
02FC021F5B02079126FFC003B55A6E92B7C7FC020060033F17F8030F17E003011780DB00
3F03FCC8FC040315C0DC000F01F8C9FC5D5F7ADD6A>I[<95383FFF80050FB512F094B612
FE040781041F16C0047F824BB87E0307DAF8077F031FDAC00F7F4B49C6487F4B495B92B5
00F0814A4A5B4A5C4A93B612805F4A91C7FC5C5E5C5E5C731400A24C6E5B91B56F5BA273
5B070313E00700138097C8FCB3A4BA12F8A9C702FCCBFCB3B3B3B3A2003FB9FCA9>81
144 121 271 71 I<F5FFC093260FFFFC030F13F04BB600E0027F7F031F03FE49B512FE
037F9226FF8007800203B8EAF01F020FDDFC3F15804A7148133F027FDA003F90B500F014
C091B500F80107ED807F4902E00101ECFC00010702806D6C5B93C87E49496F7F49496F7F
49496F6D6D1380491A8077130090B5486F6E6C5AF503F84875C8FCA2484A6F80A44887AB
6C63A46C6E4B5CA26C63A26D6D4B5CA26D97C9FC6D6D4B5B6D6D4B5B6D6D4B5B705C0101
02E049B512E06D02F801075C4902FF013F5C4992B648CAFC496002F317F090260FE07F16
80031F4BCBFC90261FC00115E0DB000F01FCCCFC013F91CFFCA3137FA280A380A2808080
6E7E15F092B812F06DF0FFE01BFEF3FFC06D1AF81CFE767E6D1BE06D87896D1BFE6D877F
6E878A0103BD7E130F013F8890BEFC4802E0C9003F814891CBFC4801FC180F4849060180
4849727E484985884849737F88A2B55A88A66E616C65A26E616C6D4F5B6C656E616C6D4F
5B6C6D96B55A6C6D6C05035C6F5FC602F0051F49C7FC6D01FC057F5B6DD9FF800303B55A
010F02F8033F14E06DDAFFE0010FB65A010192B9C8FCD9003F19F8020F19E0020196C9FC
DA001F17F0030194CAFCDB000192CBFC6A887ADD74>I[<ED1FF0017FB5FCB7FCA9EA003F
1307A27FB3B2963803FFFC073FEBFFE096B612F8060715FE061F6F7E4E16E095B87E4DD9
FC03804DD9C000804D48C76C7FDD0FF880DD1FE0824D486E804D5A05FEC881DCF1FC815F
04F385EEF7F04D81EEFFC0A24D84A294C9FCA25EA35EA45EB3B3AFB9D8E001B912C0A9>
114 143 119 270 129 I[<EC3FC0ECFFF0010313FC497F497F498049804980A290B67E
A24881A86C5DA26D5CA26D5C6D5C6D91C8FC6D5B6D5B010013F0EC3FC091CAFCB3A3ED1F
F0017FB5FCB7FCA9EA003F1307A27FB3B3B3B0B91280A9>49 144
119 271 65 I[<ED1FF0017FB5FCB7FCA9EA003F1307A27FB3B3083FB712C0A908014AC7
FCE0003F13C09AC8FC515A515A505B5013E0080F5B505B5090C9FCF27FFC4F485A4F5B4F
5B4F5B4F90CAFCF17FFE4F5A4E5B4E5B4E13C0061F5B4E90CBFC4E5AF0FFF805037F5F4D
7F4D7F4D8094B67E16F104F38104F78193B77EA2868605F18017E04D814D6C804D6C8004
FC6D805E4C6D804C6D807280A27280728173808588738073807380A2738073807381A274
80748074808689748074807480A274818A5015F0B96C017F92B5FCA9>112
143 121 270 123 107 D[<ED1FF0017FB5FCB7FCA9EA003F1307A27FB3B3B3B3B3B3AC
B912C0A9>50 143 119 270 65 I<DB3FE0912601FFFC943801FFFC017FB5031FD9FFE0
041FEBFFE0B792B600FC93B612FC060303FF030315FF060F04C0020F16C0063F04F0023F
16F095B86C91B87E4DD9FC036E49D9FC03804DD9C0006E49D9C000804D48C7003F6D4948
C7003F7FDD0FF86EDB0FF880D8003F4B48714848830107DB3FC06E9126C03FC06E804D48
4E5A6D4BC86F48C881DCE1FE6FDAE1FE814D61DCE3F8DEF3F884DCE7F0F0F7F04D6F4B81
DCEFC0F0FFC0A2DCFF804F84A294C993C9FCA24C61A34C61A44C61B3B3AFB900E090B900
E090B912E0A9B35D77DCC2>I<DB3FE0913803FFFC017FB5033FEBFFE0B792B612F80607
15FE061F6F7E4E16E095B87E4DD9FC03804DD9C000804D48C76C7FDD0FF880D8003FDB1F
E08201074B486E804D5A6D03FEC881DCE1FC815F04E385EEE7F04D81EEEFC0A2DCFF8084
A294C9FCA25EA35EA45EB3B3AFB9D8E001B912C0A9725D77DC81>I<94381FFFF00407B6
12C0047F15FC0303B87E030F17E0037F17FC4ABAFC4A9126FC007F80020F02C0010714E0
4A49C880027F01F8033F13FC91B5486F7F4902C003077F494A6F804991C96C8049497080
4949717F49874949717FA290B548717F48884B83481D80A2481DC04B83481DE0A2481DF0
A3484A7114F8A4481DFCA5B61BFEAF6C1DFCA56C6E4D14F8A36C1DF0A36C1DE06F5F6C1D
C0A26C6E4D1480A26C1D006F5F6C646D6D4D5B6F94B5FC6D636D6D4C5C6D6E4B5C6D6E4B
5C6D02F0031F5C6D6E4B91C7FC6D6C01FE92B512FC6ED9FFC001075C6E02FC017F5C0207
91B812C0020196C8FC6E6C17FC031F17F003031780DB007F03FCC9FC040715C0DC001F01
F0CAFC675F7ADD74>I<DB1FF091381FFFC0017FB50203B6FCB7021F15E095B712FC0503
16FF050F17C0053F17F094B912FC04F1DAC01F8004F79026FC00018093B500E06D6C14C0
D8003F93C86C8001074B030F8005F86F806D03E06F804D6F804D8194CA6C7F4C864C7180
5E7680A27680A27680A28B88A28BA288A28BA4882080B0200064A467A26467A3525CA267
64676467647062704D91C7FC7094B55AA2714B5C714B5C714B5C05F84B5C71033F5C05FF
4B91C8FC06C049B55A04FB01F001075C04F801FF017F14F07190B712C0051F94C9FC7116
FC050316F0DD007F1580060F02F8CAFC060049CBFC96CDFCB3ACB912E0A9718579DC81>
I<DD7FFFEE1FE0040FB500F0153F93B600FE157F03076F7E031F04E014FF92B800F85B02
03834A715B021F923A007FFF80074A02F0010F13C091B600C001036D5A4992C86D5A4902
FCED3FF8494A031F5B494A6F6C5A494AED07FE494A6FB6FC494A8193C9FC90B682484A83
A2484A83A2484A83A2484A83A25A4B83A25AA25D5AA5B65AB07E81A47EA3817EA26C80A3
6C62816C62816C626C6E5F98B6FC6D7F6D6E5D6D606D6E5D6D6E151F6D6E5D6D6E5D6D02
FE913801FFEF6E6D020713CF6E02C0011F138F020F913AFC01FFFE0F020391B612FC0200
17F0033F16C0030F1600030115FCDB003F14E0040049C7FC94C9FCB3AC0703B91280A971
8578DC7B>I<DB7FC049B47E90B6021F13F8B7027F13FE4DB67E4D15E04D814D814D0107
7F94263FF00F7F94387FC01F4D48487FD8003F16000107DAC1FE491480EEC3FC6D5DEEC7
F05F16CF5F16DF4D6D1400A204FFC76C5BA2735B4C6E5B735B070013C04C92C8FCA45EA6
5EB3B3AAB912FCA9515D79DC5F>I<92261FFFF814F80203B638C001FC023FEDFC0791B8
121F010317FF130F013F9038F8001F4990C8FCD9FFF8153F4801E0150F48491503484981
4890CAFC197F4848173F191F485AA2007F180FA31907487EA27FA28002E0705A6E93C8FC
14FC14FF15F06CECFF8016FCEEFFF06CEEFF8018F06C17FE727E6C18E0856C18FC6C846C
727E6C856D84011F846D841303010084023F83140F020183EC001FDB007F16801603DC00
0F15C01700183F060F14E0007F1703486C82727E857F85857FA2857F1BC07FA27F1B806D
5F7F1B006E5E6E5F6E163F6E4C5A02FC4C5A6E03035B6E6C4A5B03F0023F5B03FF0107B5
5A01F991B7C7FCD9F07F16FCD9E01F16F0D9800716C0D9000193C8FC48D9003F14F8007C
020349C9FC4B5F78DD5C>I[<ED03FEA81507A5150FA4151FA3153FA2157FA215FFA25CA2
5C5CA25C5C5C5C91B5FC13035B131F017F91B712F00007BAFCBBFCA7C74AC9FCB3B3AAF1
01FFB1616E17FE82A219076E17FC836EEE0FF871131F6E6EEB3FF071137F6E6EEBFFE06E
DAFF0313C06E92B512806E1700033F5D6F5D03075D030015E0041F1480040001FCC7FC>
72 132 124 258 90 I<DB0FF8F01FF0017FB594B6FCB74BB7FCA9D8003F94C77E010719
0FA26D85B3B3B063A463A263A27F6398B6FCA26DF001FB7015036EEF07F3E00FE3806E6D
151FE07FC314FF6E6D6CDAFF83EDFFC06E6E010313036E02FCEB3FFE6E91B612FC020017
F86F16E0031F16800303EDFE00DB007F14F8040102C093C8FC725E77DC81>I<B90303B7
FCA9D8000702F8CA000FEBFE006D6E050013E0666D6E6164826D5090C7FC836E4F5AA26E
6E4C5AA26E6E4C5AA26E6E5F1C3F836E4F5A836E4F5AA26E6E4B5BA26E6E4B90C8FCA26F
6E5D1B07846F4D5A846F4D5AA26F6E4A5AA26F6E4A5AA26F6E5D1BFF846F4C5B846F4C90
C9FCA2706E485AA27002C05B1A0F7002E05B1A1F19F0704B5A19F8704B5AA2706E485AA2
706E5B96B5FC7093CAFCA3715CA2715CA2715CA2715CA3715CA2715CA2715CA27191CBFC
A2725AA3725A725A725A705D7BDB7B>I<B800FE017FB700F8023FB612F8A9D8000F02F0
C8000702C0C9003FEBF800100313806D6E6F7390C7FC775E6D69706F6E1607A26D6E6F62
77160F6D6970706D161FA26E6E6F61516D163F6E687192B6167FA26E68714A6F15FF6E68
714A608A6E9DC8FC714A6F5C6E6771DA0FFD17078A6E06F86071021F6F140F6E67714A48
6C161F8A6F4D6C5F72017F6F143F6F667249486C167F8A6F4D6C5F72487113FFA26F02F0
4A6C4B5B4F17C06F4C6D94C9FCDEF807715AA26F02FC496D4B5A070F17F06F4C6D5EDEFE
1FEFF80FA26F02FF496E4A5A073F17FC704B6E5D07FFEFFE3FA2704B6E4A5A1FFF704B6E
5D20FFA27092C86C5DA2704A6F92CAFCA3704A6F5CA2704A6F5CA3704A705BA27149705B
A37149705BA27149705BA37190CA6C5BA271487190CBFC7148715A9D5D7BDBA8>I<007F
B86C49B712FEA9C792C9000F02C0C7FC6E6E030101F0C8FC715F6E6E4B5B6E6E4B5B6E4E
90C9FC6E6E5E71151F6E6E4B5A6E6E4B5A6E4E5A6F6E495B72495B6F6E495B6F806F6E49
90CAFC6F4C5A72495A6F6E495A6F6E495A6F03815B705E7014C307E75B7091B5CBFC705D
705D705D6282705D715C8386718071807180837180864D814D815F4D81874D814D81DDFF
F3804C13E14C01C1804C0180814E6C804C6E804C487F4C48824C486D804C486D804B496D
804B497F73804B49834B90C86C804B486F804B48814B486F804B48844C6F804A71804A49
6F804A49814A90CA814A487180023F7280010FB500E07080B8031FB812E0A9735C7CDB7B
>I<007FB800C04AB71280A9D800034ACA000791C7FC6D080013F0775A6D6E4E5AA26E6E
6064836E4F90C8FC836E4F5A836E4F5AA26E6E4C5AA26E6E5F1C3F6E6E5F1C7F836E4F5A
846F4D5B846F4D90C9FCA26F6E4A5AA26F6E5D1B0F846F4D5A846F4D5A846F4D5AA26F6E
4A5AA2706E5C627002C091CAFC6219E0704B5A19F0704B5AA2706E485AA2706E485AA270
02FE5B1A7F19FF704B5AA2715DA27192CBFCA2715CA2715CA3715CA2715CA2715CA2715C
A2725BA27290CCFCA3725AA2725AA24E5AA24E5AA261187FA24E5AA24D5B13FE2603FF80
4A90CDFC000F13E0486D4A5A487F486D4A5AA260B56C141F4D5AA24D5A17FF604C5B4A49
90CEFC6C5D4C5A6C49EB3FFC4A495A6C4948485A9026FE80075B270FFFC03F5B6C90B6CF
FC6C5D6C15F86C6C5C011F14C0010749D0FC9038007FE071857CDB7B>I<0003BC12F81C
FCA51CF80480C7123F03F0C84814F048028018E04AC9B612C04A5D02F04B15804A19004E
5C4A5D4A4B5C6391C9485C604993B65A634D5D495D98C7FC4D5C4D5C000F5E62494B5C4D
5C94B6FC624C5D4C92C8FC5EC95D4C5C5E4C5C614C5C93B6FC4B5D614B92C9FC5D4B5C60
4B5C5D4B4AEC07FC6092B65A5C604A92C8EA0FF84A5C5C5F4A5C4A5C4A181F5F91B65A49
5D491AF094C9123F495C5B494A167F5E494A16FF496090B65A4C5D484B5D484F13E04892
C95A4B5E484A93B5FC481803484A151F4B0203B6FC4891BAFCBDFCA21CC0A47E565C7ADB
67>I<C112E0A7730780BB74>I[<D93FC0ED01FED9FFF0923807FF80000301FC031F13E0
486D4B7F486D4B7F486E91B57E486E4980A2486E4980A26F5BB61880A66C1A004B7FA26C
4A6D5CA26C4A6D5C6C91C86C5B6C496F5B6C496F5BC601F003071380D93FC0DB01FEC7FC
>73 28 107 271 116 127 D E
%EndDVIPSBitmapFont
end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 600dpi
TeXDict begin
%%PaperSize: A4

%%EndSetup
%%Page: 1 1
1 0 bop 0 0 a @beginspecial @setspecial @endspecial 241
299 a @beginspecial @setspecial @endspecial 165 x @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial @beginspecial
@setspecial @endspecial @beginspecial @setspecial @endspecial
@beginspecial @setspecial @endspecial @beginspecial @setspecial
@endspecial @beginspecial @setspecial @endspecial 1234
2036 a FT(REDUCE)1361 2266 y FS(User's)53 b(and)674 2449
y(Con)l(tributed)e(P)l(ac)l(k)-9 b(ages)53 b(Man)l(ual)1342
2679 y(V)-13 b(ersion)52 b(3.7)1279 3145 y FR(An)m(thon)m(y)37
b(C.)h(Hearn)1282 3262 y(San)m(ta)h(Monica,)e(CA)1273
3378 y(and)i(Co)s(demist)d(Ltd.)1141 3604 y(Email:)48
b(reduce@rand.org)1383 4070 y(F)-9 b(ebruary)39 b(1999)p
eop
%%Page: 2 2
2 1 bop 664 299 a @beginspecial @setspecial @endspecial
2200 x FQ(Cop)m(yrigh)m(t)1116 2496 y(c)1091 2499 y FP(\015)p
FQ(1999)32 b(An)m(thon)m(y)f(C.)f(Hearn.)41 b(All)29
b(righ)m(ts)h(reserv)m(ed.)664 2724 y(Registered)e(system)h(holders)d
(ma)m(y)j(repro)s(duce)e(all)g(or)i(an)m(y)f(part)g(of)g(this)g
(publication)664 2837 y(for)42 b(in)m(ternal)f(purp)s(oses,)j(pro)m
(vided)d(that)i(the)f(source)h(of)f(the)h(material)e(is)h(clearly)664
2950 y(ac)m(kno)m(wledged,)32 b(and)d(the)i(cop)m(yrigh)m(t)g(notice)f
(is)g(retained.)p eop
%%Page: 3 3
3 2 bop 241 299 a @beginspecial @setspecial @endspecial
2943 w FQ(3)1554 555 y FR(Preface)241 718 y FQ(This)23
b(v)m(olume)j(has)f(b)s(een)g(prepared)f(b)m(y)i(Co)s(demist)e(Ltd.)39
b(from)25 b(the)g(L)2609 701 y FO(A)2648 718 y FQ(T)2699
737 y(E)2750 718 y(X)g(do)s(cumen-)241 831 y(tation)41
b(sources)f(distributed)e(with)i(REDUCE)g(3.7.)73 b(It)41
b(incorp)s(orates)f(the)g(User's)241 944 y(Man)m(ual,)28
b(and)g(do)s(cumen)m(tation)g(for)g(all)e(the)j(User)f(Con)m(tributed)e
(P)m(ac)m(k)-5 b(ages)31 b(as)d(a)h(sec-)241 1057 y(ond)34
b(P)m(art.)57 b(A)35 b(common)h(index)e(and)g(table)i(of)f(con)m(ten)m
(ts)i(has)e(b)s(een)g(prepared.)54 b(W)-8 b(e)241 1170
y(hop)s(e)38 b(that)i(this)e(single)f(v)m(olume)i(will)d(b)s(e)j(more)g
(con)m(v)m(enien)m(t)h(for)e(REDUCE)h(users)241 1282
y(than)26 b(ha)m(ving)f(t)m(w)m(o)j(unrelated)d(do)s(cumen)m(ts.)39
b(P)m(articularly)24 b(in)h(P)m(art)i(2)g(the)f(text)h(of)f(the)241
1395 y(authors)32 b(has)h(b)s(een)f(extensiv)m(ely)g(edited)g(and)g(mo)
s(di\014ed)f(and)h(so)h(the)g(resp)s(onsibilit)m(y)241
1508 y(for)d(an)m(y)h(errors)e(rests)i(with)e(us.)241
1671 y(P)m(arts)e(I)g(and)f(I)s(I)s(I)f(w)m(ere)i(written)f(b)m(y)g(An)
m(thon)m(y)h(C.)g(Hearn.)40 b(P)m(art)27 b(I)s(I)f(is)g(based)g(on)h
(texts)241 1784 y(b)m(y:)241 1897 y(W)-8 b(erner)33 b(An)m(t)m(w)m
(eiler,)h(Victor)f(Adamc)m(hik,)h(Joac)m(him)f(Ap)s(el,)g(Alan)f
(Barnes,)i(Andreas)241 2010 y(Bernig,)28 b(Y)-8 b(u.)28
b(A.)g(Blink)m(o)m(v,)g(Russell)d(Bradford,)j(Chris)d(Cannam,)j(Hub)s
(ert)f(Caprasse,)241 2123 y(C.)39 b(Dicrescenzo,)j(Alain)c(Dresse,)k
(Ladisla)m(v)c(Drsk)-5 b(a,)42 b(James)d(W.)g(East)m(w)m(o)s(o)s(d,)j
(John)241 2236 y(Fitc)m(h,)58 b(Kerry)51 b(Gask)m(ell,)57
b(Barbara)c(L.)e(Gates,)59 b(Karin)51 b(Gatermann,)58
b(Hans-Gert)241 2348 y(Gr\177)-45 b(ab)s(e,)29 b(Da)m(vid)g(Harp)s(er,)
g(Da)m(vid)h(Hartley)-8 b(,)30 b(An)m(thon)m(y)g(C.)f(Hearn,)g(J.)g(A.)
h(v)-5 b(an)29 b(Hulzen,)241 2461 y(V.)47 b(Ilyin,)i(Stanley)d(L.)h
(Kamen)m(y)-8 b(,)51 b(F)-8 b(ujio)47 b(Kak)m(o,)52 b(C.)46
b(Kazaso)m(v,)53 b(W)-8 b(olfram)47 b(Ko)s(epf,)241 2574
y(A.)21 b(Kryuk)m(o)m(v,)i(Ric)m(hard)d(Lisk)-5 b(a,)23
b(Kevin)d(McIsaac,)k(Malcolm)d(A.)h(H.)f(MacCallum,)h(Her-)241
2687 y(b)s(ert)33 b(Melenk,)h(H.)g(M.)g(M\177)-45 b(oller,)34
b(Winfried)d(Neun,)j(Julian)d(P)m(adget,)36 b(Matt)f(Rebb)s(ec)m(k,)241
2800 y(F.)52 b(Ric)m(hard-Jung,)j(A.)d(Ro)s(diono)m(v,)k(Carsten)51
b(and)g(F)-8 b(ranzisk)j(a)52 b(Sc)m(h\177)-45 b(ob)s(el,)55
b(Rainer)241 2913 y(Sc)m(h\177)-45 b(opf,)50 b(Stephen)c(Sco)m(w)m
(croft,)52 b(Eb)s(erhard)45 b(Sc)m(hr)s(\177)-48 b(ufer,)49
b(F)-8 b(ritz)47 b(Sc)m(h)m(w)m(arz,)52 b(M.)47 b(Spiri-)241
3026 y(dono)m(v)-5 b(a,)40 b(A.)d(T)-8 b(arano)m(v,)40
b(Lisa)c(T)-8 b(emme,)40 b(W)-8 b(alter)38 b(Tietze,)h(V.)f(T)-8
b(omo)m(v,)40 b(E.)d(T)-8 b(ournier,)241 3139 y(Philip)54
b(A.)k(T)-8 b(uc)m(k)m(ey)g(,)67 b(G.)1216 3116 y(\177)1205
3139 y(U\030)-40 b(coluk,)64 b(Mathias)58 b(W)-8 b(arns,)65
b(Thomas)58 b(W)-8 b(olf,)65 b(F)-8 b(rancis)241 3252
y(J.)30 b(W)-8 b(righ)m(t)31 b(and)f(A.)g(Y)-8 b(u.)31
b(Zhark)m(o)m(v.)2660 3414 y(F)-8 b(ebruary)30 b(1999)241
3527 y(Co)s(demist)f(Ltd)241 3640 y(\\Alta",)i(Horsecom)m(b)s(e)h(V)-8
b(ale)241 3753 y(Com)m(b)s(e)30 b(Do)m(wn)241 3866 y(Bath,)h(England)p
eop
%%Page: 4 4
4 3 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(4)p eop
%%Page: 5 5
5 4 bop 241 299 a @beginspecial @setspecial @endspecial
970 x FT(Con)-6 b(ten)g(ts)241 1764 y @beginspecial @setspecial
@endspecial FR(I)112 b(REDUCE)36 b(User's)i(Man)m(ual)1494
b(29)241 2018 y @beginspecial @setspecial @endspecial
FN(Abstract)2484 b(33)241 2271 y @beginspecial @setspecial
@endspecial(1)84 b(In)m(tro)s(ductory)35 b(Information)1582
b(37)241 2525 y @beginspecial @setspecial @endspecial(2)84
b(Structure)35 b(of)g(Programs)1717 b(43)377 2688 y @beginspecial
@setspecial @endspecial FQ(2.1)94 b(The)30 b(REDUCE)g(Standard)g
(Character)g(Set)h(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)93 b(43)377 2850 y @beginspecial @setspecial @endspecial(2.2)h(Num)m
(b)s(ers)27 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(44)377 3013 y @beginspecial @setspecial @endspecial(2.3)h(Iden)m
(ti\014ers)59 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(45)377 3176 y @beginspecial @setspecial @endspecial(2.4)h(V)-8
b(ariables)90 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(46)377 3339 y @beginspecial @setspecial @endspecial(2.5)h(Strings)34
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(47)377 3501 y @beginspecial @setspecial @endspecial(2.6)h(Commen)m
(ts)33 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(48)377 3664 y @beginspecial @setspecial @endspecial(2.7)h(Op)s
(erators)57 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(48)241 3918 y @beginspecial @setspecial @endspecial
FN(3)84 b(Expressions)2213 b(53)377 4080 y @beginspecial
@setspecial @endspecial FQ(3.1)94 b(Scalar)30 b(Expressions)69
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(53)377 4243 y @beginspecial
@setspecial @endspecial(3.2)h(In)m(teger)32 b(Expressions)h(.)45
b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)93 b(54)377 4406 y @beginspecial
@setspecial @endspecial(3.3)h(Bo)s(olean)31 b(Expressions)62
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)93 b(55)377 4568 y @beginspecial
@setspecial @endspecial(3.4)h(Equations)56 b(.)46 b(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)93 b(57)377 4731 y @beginspecial
@setspecial @endspecial(3.5)h(Prop)s(er)29 b(Statemen)m(ts)j(as)f
(Expressions)91 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)93 b(58)1712 5187 y(5)p eop
%%Page: 6 6
6 5 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(6)2428 b FM(CONTENTS)664 555 y @beginspecial @setspecial
@endspecial FN(4)85 b(Lists)2532 b(59)801 718 y @beginspecial
@setspecial @endspecial FQ(4.1)94 b(Op)s(erations)29
b(on)h(Lists)24 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(59)1010
881 y @beginspecial @setspecial @endspecial(4.1.1)106
b(LIST)27 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(60)1010 1043 y @beginspecial @setspecial @endspecial(4.1.2)106
b(FIRST)29 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(60)1010 1206 y @beginspecial @setspecial @endspecial(4.1.3)106
b(SECOND)59 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(60)1010
1369 y @beginspecial @setspecial @endspecial(4.1.4)106
b(THIRD)73 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(60)1010
1532 y @beginspecial @setspecial @endspecial(4.1.5)106
b(REST)59 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(60)1010 1694 y @beginspecial @setspecial @endspecial(4.1.6)106
b FL(:)30 b FQ(\(Cons\))h(Op)s(erator)84 b(.)46 b(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(60)1010 1857 y @beginspecial @setspecial @endspecial(4.1.7)106
b(APPEND)55 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(61)1010
2020 y @beginspecial @setspecial @endspecial(4.1.8)106
b(REVERSE)78 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(61)1010
2182 y @beginspecial @setspecial @endspecial(4.1.9)106
b(List)29 b(Argumen)m(ts)i(of)f(Other)g(Op)s(erators)23
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(61)1010
2345 y @beginspecial @setspecial @endspecial(4.1.10)61
b(Ca)m(v)m(eats)32 b(and)e(Examples)39 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(61)664
2599 y @beginspecial @setspecial @endspecial FN(5)85
b(Statemen)m(ts)2235 b(63)801 2762 y @beginspecial @setspecial
@endspecial FQ(5.1)94 b(Assignmen)m(t)30 b(Statemen)m(ts)88
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)93 b(64)1010 2924 y @beginspecial @setspecial
@endspecial(5.1.1)106 b(Set)30 b(Statemen)m(t)d(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)93 b(65)801 3087 y @beginspecial @setspecial
@endspecial(5.2)h(Group)29 b(Statemen)m(ts)84 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)93 b(65)801 3250 y @beginspecial
@setspecial @endspecial(5.3)h(Conditional)28 b(Statemen)m(ts)84
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)93 b(66)801 3412 y @beginspecial @setspecial
@endspecial(5.4)h(F)m(OR)30 b(Statemen)m(ts)72 b(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(67)801 3575 y @beginspecial
@setspecial @endspecial(5.5)h(WHILE)30 b(.)15 b(.)h(.)f(DO)63
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(69)801 3738
y @beginspecial @setspecial @endspecial(5.6)h(REPEA)-8
b(T)30 b(.)15 b(.)h(.)f(UNTIL)57 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(70)801 3901 y @beginspecial @setspecial @endspecial(5.7)h(Comp)s
(ound)28 b(Statemen)m(ts)42 b(.)j(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(70)1010
4063 y @beginspecial @setspecial @endspecial(5.7.1)106
b(Comp)s(ound)28 b(Statemen)m(ts)j(with)f(GO)g(TO)51
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(72)1010
4226 y @beginspecial @setspecial @endspecial(5.7.2)106
b(Lab)s(els)29 b(and)g(GO)i(TO)e(Statemen)m(ts)52 b(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(73)1010
4389 y @beginspecial @setspecial @endspecial(5.7.3)106
b(RETURN)30 b(Statemen)m(ts)72 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(73)664 4642 y
@beginspecial @setspecial @endspecial FN(6)85 b(Commands)33
b(and)h(Declarations)1432 b(75)801 4805 y @beginspecial
@setspecial @endspecial FQ(6.1)94 b(Arra)m(y)30 b(Declarations)54
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(75)p eop
%%Page: 7 7
7 6 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2425 b FQ(7)377 555 y @beginspecial @setspecial
@endspecial(6.2)94 b(Mo)s(de)31 b(Handling)d(Declarations)c(.)46
b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)93 b(76)377 718 y @beginspecial @setspecial @endspecial(6.3)h(END)44
b(.)i(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(77)377 881 y @beginspecial @setspecial @endspecial(6.4)h(BYE)31
b(Command)h(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(77)377
1043 y @beginspecial @setspecial @endspecial(6.5)h(SHO)m(WTIME)31
b(Command)56 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(78)377 1206 y @beginspecial
@setspecial @endspecial(6.6)h(DEFINE)31 b(Command)85
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)93 b(78)241 1460 y @beginspecial
@setspecial @endspecial FN(7)84 b(Built-in)35 b(Pre\014x)h(Op)s
(erators)1590 b(79)377 1622 y @beginspecial @setspecial
@endspecial FQ(7.1)94 b(Numerical)29 b(Op)s(erators)44
b(.)i(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)93 b(79)586 1785 y @beginspecial
@setspecial @endspecial(7.1.1)106 b(ABS)52 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)93 b(80)586 1948 y @beginspecial @setspecial
@endspecial(7.1.2)106 b(CEILING)57 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(80)586 2111 y @beginspecial @setspecial @endspecial(7.1.3)106
b(CONJ)54 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(80)586 2273 y @beginspecial @setspecial @endspecial(7.1.4)106
b(F)-10 b(A)m(CTORIAL)46 b(.)g(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(80)586
2436 y @beginspecial @setspecial @endspecial(7.1.5)106
b(FIX)75 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(81)586 2599 y @beginspecial @setspecial @endspecial(7.1.6)106
b(FLOOR)51 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(81)586
2762 y @beginspecial @setspecial @endspecial(7.1.7)106
b(IMP)-8 b(AR)g(T)84 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(81)586 2924 y @beginspecial @setspecial @endspecial(7.1.8)106
b(MAX/MIN)70 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(81)586
3087 y @beginspecial @setspecial @endspecial(7.1.9)106
b(NEXTPRIME)88 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(82)586 3250 y
@beginspecial @setspecial @endspecial(7.1.10)61 b(RANDOM)92
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(82)586 3412 y @beginspecial
@setspecial @endspecial(7.1.11)61 b(RANDOM)p 1308 3412
28 4 v 34 w(NEW)p 1565 3412 V 33 w(SEED)53 b(.)45 b(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93 b(82)586
3575 y @beginspecial @setspecial @endspecial(7.1.12)61
b(REP)-8 b(AR)g(T)71 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(83)586 3738 y @beginspecial @setspecial @endspecial(7.1.13)61
b(R)m(OUND)36 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(83)586 3901 y @beginspecial @setspecial @endspecial(7.1.14)61
b(SIGN)83 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(83)377 4063 y @beginspecial @setspecial @endspecial(7.2)h
(Mathematical)32 b(F)-8 b(unctions)56 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(83)377 4226 y @beginspecial @setspecial @endspecial(7.3)h(DF)31
b(Op)s(erator)76 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(87)586 4389 y @beginspecial @setspecial @endspecial(7.3.1)106
b(Adding)29 b(Di\013eren)m(tiation)h(Rules)79 b(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(87)377 4551 y @beginspecial @setspecial @endspecial(7.4)h(INT)30
b(Op)s(erator)38 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(88)586 4714 y @beginspecial @setspecial @endspecial(7.4.1)106
b(Options)61 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(89)586 4877 y @beginspecial @setspecial @endspecial(7.4.2)106
b(Adv)-5 b(anced)30 b(Use)25 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)93
b(90)p eop
%%Page: 8 8
8 7 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(8)2428 b FM(CONTENTS)1010 555 y @beginspecial @setspecial
@endspecial FQ(7.4.3)106 b(References)28 b(.)46 b(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)93 b(90)801 718 y @beginspecial @setspecial @endspecial(7.5)h
(LENGTH)30 b(Op)s(erator)24 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(90)801 881 y @beginspecial @setspecial @endspecial(7.6)h(MAP)30
b(Op)s(erator)62 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(91)801 1043 y @beginspecial @setspecial @endspecial(7.7)h(MKID)30
b(Op)s(erator)89 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(92)801 1206 y @beginspecial @setspecial @endspecial(7.8)h(PF)30
b(Op)s(erator)83 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(93)801 1369 y @beginspecial @setspecial @endspecial(7.9)h(SELECT)28
b(Op)s(erator)54 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(93)801
1532 y @beginspecial @setspecial @endspecial(7.10)49
b(SOL)-10 b(VE)29 b(Op)s(erator)47 b(.)f(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93
b(94)1010 1694 y @beginspecial @setspecial @endspecial(7.10.1)61
b(Handling)28 b(of)i(Undetermined)f(Solutions)53 b(.)46
b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(96)1010 1857
y @beginspecial @setspecial @endspecial(7.10.2)61 b(Solutions)28
b(of)j(Equations)e(In)m(v)m(olving)h(Cubics)e(and)i(Quartics)123
b(97)1010 2020 y @beginspecial @setspecial @endspecial(7.10.3)61
b(Other)29 b(Options)82 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)93 b(99)1010
2182 y @beginspecial @setspecial @endspecial(7.10.4)61
b(P)m(arameters)31 b(and)f(V)-8 b(ariable)30 b(Dep)s(endency)79
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(100)801 2345
y @beginspecial @setspecial @endspecial(7.11)h(Ev)m(en)30
b(and)g(Odd)f(Op)s(erators)86 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(104)801
2508 y @beginspecial @setspecial @endspecial(7.12)h(Linear)29
b(Op)s(erators)55 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(105)801
2671 y @beginspecial @setspecial @endspecial(7.13)h(Non-Comm)m(uting)30
b(Op)s(erators)72 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)j(106)801 2833 y @beginspecial
@setspecial @endspecial(7.14)h(Symmetric)29 b(and)h(An)m(tisymmetric)f
(Op)s(erators)76 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(106)
801 2996 y @beginspecial @setspecial @endspecial(7.15)h(Declaring)30
b(New)g(Pre\014x)g(Op)s(erators)c(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(107)801 3159 y @beginspecial
@setspecial @endspecial(7.16)h(Declaring)30 b(New)g(In\014x)f(Op)s
(erators)81 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(108)801 3321 y @beginspecial @setspecial
@endspecial(7.17)h(Creating/Remo)m(ving)30 b(V)-8 b(ariable)30
b(Dep)s(endency)70 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(109)664 3575 y @beginspecial @setspecial @endspecial
FN(8)85 b(Displa)m(y)35 b(and)g(Structuring)g(of)g(Expressions)902
b(111)801 3738 y @beginspecial @setspecial @endspecial
FQ(8.1)94 b(Kernels)84 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)j(111)801 3901 y @beginspecial @setspecial @endspecial(8.2)94
b(The)30 b(Expression)e(W)-8 b(orkspace)90 b(.)45 b(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(113)801
4063 y @beginspecial @setspecial @endspecial(8.3)94 b(Output)29
b(of)h(Expressions)57 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(114)1010
4226 y @beginspecial @setspecial @endspecial(8.3.1)106
b(LINELENGTH)30 b(Op)s(erator)79 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(114)1010 4389 y @beginspecial
@setspecial @endspecial(8.3.2)106 b(Output)29 b(Declarations)54
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(115)1010 4551 y @beginspecial @setspecial @endspecial(8.3.3)
106 b(Output)29 b(Con)m(trol)h(Switc)m(hes)87 b(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(116)1010
4714 y @beginspecial @setspecial @endspecial(8.3.4)106
b(WRITE)30 b(Command)39 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(120)1010 4877 y
@beginspecial @setspecial @endspecial(8.3.5)106 b(Suppression)27
b(of)j(Zeros)54 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)g(.)f(.)j(122)p eop
%%Page: 9 9
9 8 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2425 b FQ(9)586 555 y @beginspecial @setspecial
@endspecial(8.3.6)106 b(F)m(OR)-8 b(TRAN)31 b(St)m(yle)g(Output)e(Of)h
(Expressions)87 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)h(122)586
718 y @beginspecial @setspecial @endspecial(8.3.7)106
b(Sa)m(ving)30 b(Expressions)f(for)h(Later)h(Use)f(as)h(Input)41
b(.)k(.)h(.)g(.)g(.)f(.)h(.)h(125)586 881 y @beginspecial
@setspecial @endspecial(8.3.8)106 b(Displa)m(ying)29
b(Expression)f(Structure)83 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)h(126)377 1043 y @beginspecial @setspecial @endspecial(8.4)94
b(Changing)29 b(the)i(In)m(ternal)f(Order)f(of)h(V)-8
b(ariables)87 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(128)377
1206 y @beginspecial @setspecial @endspecial(8.5)94 b(Obtaining)29
b(P)m(arts)h(of)h(Algebraic)f(Expressions)79 b(.)46 b(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)h(128)586 1369 y @beginspecial
@setspecial @endspecial(8.5.1)106 b(COEFF)30 b(Op)s(erator)92
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)h(128)586 1532 y @beginspecial @setspecial
@endspecial(8.5.2)106 b(COEFFN)31 b(Op)s(erator)23 b(.)45
b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)h(129)586 1694 y @beginspecial @setspecial @endspecial(8.5.3)106
b(P)-8 b(AR)g(T)31 b(Op)s(erator)90 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(130)586
1857 y @beginspecial @setspecial @endspecial(8.5.4)106
b(Substituting)28 b(for)i(P)m(arts)h(of)f(Expressions)36
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(131)241
2111 y @beginspecial @setspecial @endspecial FN(9)84
b(P)m(olynomials)36 b(and)e(Rationals)1477 b(133)377
2273 y @beginspecial @setspecial @endspecial FQ(9.1)94
b(Con)m(trolling)29 b(the)h(Expansion)f(of)i(Expressions)79
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(134)377
2436 y @beginspecial @setspecial @endspecial(9.2)94 b(F)-8
b(actorization)32 b(of)f(P)m(olynomials)23 b(.)46 b(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(134)377
2599 y @beginspecial @setspecial @endspecial(9.3)94 b(Cancellation)29
b(of)i(Common)f(F)-8 b(actors)68 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(137)586 2762 y @beginspecial
@setspecial @endspecial(9.3.1)106 b(Determining)29 b(the)i(GCD)g(of)f
(Tw)m(o)h(P)m(olynomials)81 b(.)46 b(.)g(.)g(.)f(.)h(.)h(138)377
2924 y @beginspecial @setspecial @endspecial(9.4)94 b(W)-8
b(orking)31 b(with)e(Least)i(Common)f(Multiples)76 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(138)377
3087 y @beginspecial @setspecial @endspecial(9.5)94 b(Con)m(trolling)29
b(Use)h(of)h(Common)f(Denominators)e(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)h(139)377 3250 y @beginspecial @setspecial
@endspecial(9.6)94 b(REMAINDER)31 b(Op)s(erator)49 b(.)d(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(139)
377 3412 y @beginspecial @setspecial @endspecial(9.7)94
b(RESUL)-8 b(T)g(ANT)30 b(Op)s(erator)72 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(140)377
3575 y @beginspecial @setspecial @endspecial(9.8)94 b(DECOMPOSE)29
b(Op)s(erator)k(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(141)377 3738 y @beginspecial
@setspecial @endspecial(9.9)94 b(INTERPOL)29 b(op)s(erator)f(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(142)377 3901 y @beginspecial @setspecial
@endspecial(9.10)i(Obtaining)29 b(P)m(arts)h(of)h(P)m(olynomials)e(and)
h(Rationals)f(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(142)586
4063 y @beginspecial @setspecial @endspecial(9.10.1)61
b(DEG)31 b(Op)s(erator)64 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(143)586
4226 y @beginspecial @setspecial @endspecial(9.10.2)61
b(DEN)31 b(Op)s(erator)67 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(143)586
4389 y @beginspecial @setspecial @endspecial(9.10.3)61
b(LCOF)30 b(Op)s(erator)85 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(144)586
4551 y @beginspecial @setspecial @endspecial(9.10.4)61
b(LPO)m(WER)31 b(Op)s(erator)69 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(145)586 4714
y @beginspecial @setspecial @endspecial(9.10.5)61 b(L)-8
b(TERM)30 b(Op)s(erator)82 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(145)586 4877
y @beginspecial @setspecial @endspecial(9.10.6)61 b(MAINV)-10
b(AR)31 b(Op)s(erator)i(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(146)p eop
%%Page: 10 10
10 9 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(10)2383 b FM(CONTENTS)1010 555 y @beginspecial @setspecial
@endspecial FQ(9.10.7)61 b(NUM)31 b(Op)s(erator)47 b(.)e(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(146)1010 718 y @beginspecial @setspecial @endspecial(9.10.8)61
b(REDUCT)30 b(Op)s(erator)81 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(146)801 881
y @beginspecial @setspecial @endspecial(9.11)h(P)m(olynomial)29
b(Co)s(e\016cien)m(t)h(Arithmetic)87 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(147)1010 1043 y @beginspecial
@setspecial @endspecial(9.11.1)61 b(Rational)29 b(Co)s(e\016cien)m(ts)i
(in)e(P)m(olynomials)63 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(147)1010 1206 y @beginspecial @setspecial @endspecial(9.11.2)61
b(Real)30 b(Co)s(e\016cien)m(ts)g(in)f(P)m(olynomials)84
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(148)1010
1369 y @beginspecial @setspecial @endspecial(9.11.3)61
b(Mo)s(dular)28 b(Num)m(b)s(er)i(Co)s(e\016cien)m(ts)g(in)f(P)m
(olynomials)67 b(.)45 b(.)h(.)g(.)f(.)j(149)1010 1532
y @beginspecial @setspecial @endspecial(9.11.4)61 b(Complex)29
b(Num)m(b)s(er)g(Co)s(e\016cien)m(ts)h(in)g(P)m(olynomials)54
b(.)45 b(.)h(.)g(.)f(.)j(150)664 1785 y @beginspecial
@setspecial @endspecial FN(10)33 b(Substitution)h(Commands)1585
b(151)801 1948 y @beginspecial @setspecial @endspecial
FQ(10.1)49 b(SUB)30 b(Op)s(erator)92 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)j(151)801 2111 y @beginspecial @setspecial @endspecial(10.2)h(LET)
29 b(Rules)91 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(152)1010
2273 y @beginspecial @setspecial @endspecial(10.2.1)61
b(F)m(OR)30 b(ALL)g(.)16 b(.)f(.)h(LET)57 b(.)46 b(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(155)1010
2436 y @beginspecial @setspecial @endspecial(10.2.2)61
b(F)m(OR)30 b(ALL)g(.)16 b(.)f(.)h(SUCH)29 b(THA)-8 b(T)31
b(.)15 b(.)h(.)f(LET)70 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(156)1010 2599 y @beginspecial @setspecial @endspecial(10.2.3)61
b(Remo)m(ving)30 b(Assignmen)m(ts)g(and)g(Substitution)d(Rules)62
b(.)46 b(.)g(.)f(.)j(156)1010 2762 y @beginspecial @setspecial
@endspecial(10.2.4)61 b(Ov)m(erlapping)28 b(LET)i(Rules)62
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
j(157)1010 2924 y @beginspecial @setspecial @endspecial(10.2.5)61
b(Substitutions)27 b(for)j(General)h(Expressions)76 b(.)45
b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(157)801 3087 y @beginspecial
@setspecial @endspecial(10.3)h(Rule)29 b(Lists)52 b(.)45
b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(160)801
3250 y @beginspecial @setspecial @endspecial(10.4)h(Asymptotic)30
b(Commands)84 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(166)664 3503 y @beginspecial
@setspecial @endspecial FN(11)33 b(File)h(Handling)h(Commands)1525
b(169)801 3666 y @beginspecial @setspecial @endspecial
FQ(11.1)49 b(IN)30 b(Command)55 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)j(169)801 3829 y @beginspecial @setspecial @endspecial(11.2)h(OUT)29
b(Command)23 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(170)801
3991 y @beginspecial @setspecial @endspecial(11.3)h(SHUT)29
b(Command)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(171)664
4245 y @beginspecial @setspecial @endspecial FN(12)33
b(Commands)g(for)i(In)m(teractiv)m(e)f(Use)1291 b(173)801
4408 y @beginspecial @setspecial @endspecial FQ(12.1)49
b(Referencing)30 b(Previous)f(Results)74 b(.)46 b(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(174)801
4571 y @beginspecial @setspecial @endspecial(12.2)h(In)m(teractiv)m(e)
31 b(Editing)58 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(174)801
4733 y @beginspecial @setspecial @endspecial(12.3)h(In)m(teractiv)m(e)
31 b(File)f(Con)m(trol)84 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(176)p eop
%%Page: 11 11
11 10 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(11)241 555 y @beginspecial @setspecial
@endspecial FN(13)32 b(Matrix)j(Calculations)1782 b(177)377
718 y @beginspecial @setspecial @endspecial FQ(13.1)49
b(MA)-8 b(T)31 b(Op)s(erator)65 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(177)377 881 y @beginspecial @setspecial @endspecial(13.2)i(Matrix)31
b(V)-8 b(ariables)69 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(178)377
1043 y @beginspecial @setspecial @endspecial(13.3)i(Matrix)31
b(Expressions)38 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(178)377
1206 y @beginspecial @setspecial @endspecial(13.4)i(Op)s(erators)30
b(with)f(Matrix)h(Argumen)m(ts)72 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(179)586 1369 y @beginspecial
@setspecial @endspecial(13.4.1)61 b(DET)30 b(Op)s(erator)70
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)h(179)586 1532 y @beginspecial @setspecial
@endspecial(13.4.2)61 b(MA)-8 b(TEIGEN)31 b(Op)s(erator)44
b(.)i(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)h(180)586 1694 y @beginspecial @setspecial @endspecial(13.4.3)61
b(TP)30 b(Op)s(erator)68 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(181)586
1857 y @beginspecial @setspecial @endspecial(13.4.4)61
b(T)-8 b(race)31 b(Op)s(erator)47 b(.)f(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(181)586
2020 y @beginspecial @setspecial @endspecial(13.4.5)61
b(Matrix)30 b(Cofactors)51 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(181)586
2182 y @beginspecial @setspecial @endspecial(13.4.6)61
b(NULLSP)-8 b(A)m(CE)30 b(Op)s(erator)73 b(.)45 b(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(182)586
2345 y @beginspecial @setspecial @endspecial(13.4.7)61
b(RANK)30 b(Op)s(erator)64 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(183)377
2508 y @beginspecial @setspecial @endspecial(13.5)i(Matrix)31
b(Assignmen)m(ts)78 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(183)377
2671 y @beginspecial @setspecial @endspecial(13.6)i(Ev)-5
b(aluating)30 b(Matrix)g(Elemen)m(ts)37 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(184)241
2924 y @beginspecial @setspecial @endspecial FN(14)32
b(Pro)s(cedures)2185 b(185)377 3087 y @beginspecial @setspecial
@endspecial FQ(14.1)49 b(Pro)s(cedure)30 b(Heading)49
b(.)c(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(186)377 3250 y @beginspecial
@setspecial @endspecial(14.2)i(Pro)s(cedure)30 b(Bo)s(dy)93
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(187)377 3412 y @beginspecial
@setspecial @endspecial(14.3)i(Using)30 b(LET)f(Inside)g(Pro)s(cedures)
57 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)h(189)377 3575 y @beginspecial @setspecial @endspecial(14.4)i
(LET)30 b(Rules)f(as)i(Pro)s(cedures)76 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(190)377
3738 y @beginspecial @setspecial @endspecial(14.5)i(REMEMBER)31
b(Statemen)m(t)k(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(192)241 3991 y @beginspecial
@setspecial @endspecial FN(15)32 b(User)k(Con)m(tributed)e(P)m(ac)m(k)
-6 b(ages)1452 b(193)241 4245 y @beginspecial @setspecial
@endspecial(16)32 b(Sym)m(b)s(olic)j(Mo)s(de)1986 b(197)377
4408 y @beginspecial @setspecial @endspecial FQ(16.1)49
b(Sym)m(b)s(olic)29 b(In\014x)g(Op)s(erators)90 b(.)45
b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)h(200)377 4571 y @beginspecial @setspecial @endspecial(16.2)i
(Sym)m(b)s(olic)29 b(Expressions)91 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(200)377
4733 y @beginspecial @setspecial @endspecial(16.3)i(Quoted)30
b(Expressions)89 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(200)377
4896 y @beginspecial @setspecial @endspecial(16.4)i(Lam)m(b)s(da)30
b(Expressions)57 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(201)p eop
%%Page: 12 12
12 11 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(12)2383 b FM(CONTENTS)801 555 y @beginspecial @setspecial
@endspecial FQ(16.5)49 b(Sym)m(b)s(olic)28 b(Assignmen)m(t)i(Statemen)m
(ts)51 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)j(202)801 718 y @beginspecial @setspecial @endspecial(16.6)h(F)m(OR)
30 b(EA)m(CH)h(Statemen)m(t)e(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(202)801
881 y @beginspecial @setspecial @endspecial(16.7)h(Sym)m(b)s(olic)28
b(Pro)s(cedures)48 b(.)e(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(202)801 1043
y @beginspecial @setspecial @endspecial(16.8)h(Standard)29
b(Lisp)g(Equiv)-5 b(alen)m(t)29 b(of)h(Reduce)h(Input)37
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(203)801
1206 y @beginspecial @setspecial @endspecial(16.9)h(Comm)m(unicating)29
b(with)g(Algebraic)h(Mo)s(de)91 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)j(203)1010 1369 y @beginspecial @setspecial
@endspecial(16.9.1)61 b(P)m(assing)30 b(Algebraic)f(Mo)s(de)i(V)-8
b(alues)30 b(to)h(Sym)m(b)s(olic)e(Mo)s(de)73 b(.)45
b(.)j(204)1010 1532 y @beginspecial @setspecial @endspecial(16.9.2)61
b(P)m(assing)30 b(Sym)m(b)s(olic)e(Mo)s(de)j(V)-8 b(alues)30
b(to)h(Algebraic)f(Mo)s(de)73 b(.)45 b(.)j(207)1010 1694
y @beginspecial @setspecial @endspecial(16.9.3)61 b(Complete)30
b(Example)43 b(.)j(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)j(208)1010 1857 y @beginspecial
@setspecial @endspecial(16.9.4)61 b(De\014ning)29 b(Pro)s(cedures)g
(for)i(In)m(termo)s(de)f(Comm)m(unication)35 b(.)45 b(.)j(208)801
2020 y @beginspecial @setspecial @endspecial(16.10)t(Rlisp)28
b('88)35 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(209)
801 2182 y @beginspecial @setspecial @endspecial(16.11)t(References)37
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(210)664
2436 y @beginspecial @setspecial @endspecial FN(17)33
b(Calculations)h(in)h(High)g(Energy)h(Ph)m(ysics)1023
b(211)801 2599 y @beginspecial @setspecial @endspecial
FQ(17.1)49 b(High)29 b(Energy)h(Ph)m(ysics)g(Op)s(erators)48
b(.)e(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(211)1010 2762 y @beginspecial @setspecial @endspecial(17.1.1)61
b(.)40 b(\(Cons\))31 b(Op)s(erator)74 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(211)1010
2924 y @beginspecial @setspecial @endspecial(17.1.2)61
b(G)30 b(Op)s(erator)g(for)g(Gamma)h(Matrices)49 b(.)c(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)j(212)1010 3087 y @beginspecial
@setspecial @endspecial(17.1.3)61 b(EPS)29 b(Op)s(erator)93
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)j(213)801 3250 y @beginspecial @setspecial
@endspecial(17.2)h(V)-8 b(ector)32 b(V)-8 b(ariables)84
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(214)801 3412 y @beginspecial
@setspecial @endspecial(17.3)h(Additional)28 b(Expression)g(T)m(yp)s
(es)80 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)j(214)1010 3575 y @beginspecial @setspecial
@endspecial(17.3.1)61 b(V)-8 b(ector)32 b(Expressions)45
b(.)h(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)j(214)1010 3738 y @beginspecial @setspecial
@endspecial(17.3.2)61 b(Dirac)30 b(Expressions)87 b(.)46
b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)j(215)801 3901 y @beginspecial @setspecial @endspecial(17.4)h(T)
-8 b(race)31 b(Calculations)66 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(215)801
4063 y @beginspecial @setspecial @endspecial(17.5)h(Mass)30
b(Declarations)84 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(216)801
4226 y @beginspecial @setspecial @endspecial(17.6)h(Example)36
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(216)801
4389 y @beginspecial @setspecial @endspecial(17.7)h(Extensions)29
b(to)i(More)g(Than)f(F)-8 b(our)30 b(Dimensions)81 b(.)46
b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(218)664 4642 y
@beginspecial @setspecial @endspecial FN(18)33 b(REDUCE)h(and)h(Rlisp)h
(Utilities)1369 b(219)801 4805 y @beginspecial @setspecial
@endspecial FQ(18.1)49 b(The)30 b(Standard)f(Lisp)f(Compiler)87
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)j(219)p eop
%%Page: 13 13
13 12 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(13)377 555 y @beginspecial @setspecial
@endspecial(18.2)49 b(F)-8 b(ast)32 b(Loading)e(Co)s(de)g(Generation)g
(Program)58 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(220)
377 718 y @beginspecial @setspecial @endspecial(18.3)i(The)30
b(Standard)f(Lisp)g(Cross)h(Reference)h(Program)82 b(.)46
b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(221)586 881 y @beginspecial
@setspecial @endspecial(18.3.1)61 b(Restrictions)45 b(.)g(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)h(222)586 1043 y @beginspecial @setspecial @endspecial(18.3.2)
61 b(Usage)72 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(222)586
1206 y @beginspecial @setspecial @endspecial(18.3.3)61
b(Options)g(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(223)377
1369 y @beginspecial @setspecial @endspecial(18.4)i(Prett)m(yprin)m
(ting)29 b(Reduce)i(Expressions)58 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(223)377 1532 y @beginspecial
@setspecial @endspecial(18.5)i(Prett)m(yprin)m(ting)29
b(Standard)h(Lisp)e(S-Expressions)58 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)h(224)241 1785 y @beginspecial @setspecial
@endspecial FN(19)32 b(Main)m(taining)j(REDUCE)1657 b(225)241
2152 y @beginspecial @setspecial @endspecial FR(I)s(I)111
b(Additional)36 b(REDUCE)g(Do)s(cumen)m(tation)791 b(227)241
2406 y @beginspecial @setspecial @endspecial FN(20)32
b(ALGINT:)i(In)m(tegration)h(of)g(square)g(ro)s(ots)987
b(231)241 2660 y @beginspecial @setspecial @endspecial(21)32
b(APPL)-9 b(YSYM:)37 b(In\014nitesimal)c(symmetries)915
b(235)241 2913 y @beginspecial @setspecial @endspecial(22)32
b(ARNUM:)k(An)f(algebraic)g(n)m(um)m(b)s(er)g(pac)m(k)-6
b(age)862 b(239)377 3076 y @beginspecial @setspecial
@endspecial FQ(22.1)49 b(DEFPOL)-8 b(Y)86 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)h(239)377 3239 y @beginspecial @setspecial
@endspecial(22.2)i(SPLIT)p 860 3239 28 4 v 32 w(FIELD)86
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(241)241 3492 y
@beginspecial @setspecial @endspecial FN(23)32 b(ASSIST:)j(V)-9
b(arious)35 b(Useful)h(Utilities)1196 b(243)377 3655
y @beginspecial @setspecial @endspecial FQ(23.1)49 b(Con)m(trol)30
b(of)h(Switc)m(hes)h(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(243)377
3818 y @beginspecial @setspecial @endspecial(23.2)i(Manipulation)28
b(of)j(the)f(List)g(Structure)63 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(244)377 3981 y @beginspecial
@setspecial @endspecial(23.3)i(The)30 b(Bag)i(Structure)d(and)h(its)g
(Asso)s(ciated)g(F)-8 b(unctions)89 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)h
(246)377 4143 y @beginspecial @setspecial @endspecial(23.4)i(Sets)31
b(and)e(their)h(Manipulation)e(F)-8 b(unctions)51 b(.)45
b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(249)377
4306 y @beginspecial @setspecial @endspecial(23.5)i(General)30
b(Purp)s(ose)g(Utilit)m(y)f(F)-8 b(unctions)76 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(249)377
4469 y @beginspecial @setspecial @endspecial(23.6)i(Prop)s(erties)29
b(and)h(Flags)52 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(253)377
4631 y @beginspecial @setspecial @endspecial(23.7)i(Con)m(trol)30
b(F)-8 b(unctions)92 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(254)377
4794 y @beginspecial @setspecial @endspecial(23.8)i(Handling)29
b(of)h(P)m(olynomials)43 b(.)j(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(256)377 4957
y @beginspecial @setspecial @endspecial(23.9)i(Handling)29
b(of)h(T)-8 b(ranscenden)m(tal)30 b(F)-8 b(unctions)74
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(258)p
eop
%%Page: 14 14
14 13 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(14)2383 b FM(CONTENTS)801 555 y @beginspecial @setspecial
@endspecial FQ(23.10)t(Co)s(ercion)29 b(from)h(lists)f(to)i(arra)m(ys)g
(and)f(con)m(v)m(erse)51 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)j(259)801 718 y @beginspecial @setspecial @endspecial(23.11)t
(Handling)28 b(of)j(n{dimensional)c(V)-8 b(ectors)62
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(259)
801 881 y @beginspecial @setspecial @endspecial(23.12)t(Handling)28
b(of)j(Grassmann)e(Op)s(erators)76 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)j(259)801 1043 y @beginspecial
@setspecial @endspecial(23.13)t(Handling)28 b(of)j(Matrices)43
b(.)j(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)j(260)664 1297 y @beginspecial
@setspecial @endspecial FN(24)33 b(A)-9 b(TENSOR:)34
b(T)-9 b(ensor)35 b(Simpli\014cation)1156 b(265)801 1460
y @beginspecial @setspecial @endspecial FQ(24.1)49 b(Basic)30
b(tensors)h(and)e(tensor)i(expressions)69 b(.)46 b(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(265)801 1622 y @beginspecial
@setspecial @endspecial(24.2)h(Op)s(erators)29 b(for)i(tensors)i(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)j(266)801 1785 y @beginspecial @setspecial
@endspecial(24.3)h(Switc)m(hes)42 b(.)k(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(267)664 2039 y @beginspecial @setspecial
@endspecial FN(25)33 b(A)-12 b(VECTOR:)34 b(V)-9 b(ector)35
b(Algebra)1416 b(269)801 2202 y @beginspecial @setspecial
@endspecial FQ(25.1)49 b(V)-8 b(ector)32 b(declaration)e(and)f
(initialisation)82 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)j(269)801 2364 y @beginspecial @setspecial @endspecial(25.2)h(V)
-8 b(ector)32 b(algebra)91 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(270)
801 2527 y @beginspecial @setspecial @endspecial(25.3)h(V)-8
b(ector)32 b(calculus)64 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(271)
801 2690 y @beginspecial @setspecial @endspecial(25.4)h(V)-8
b(olume)30 b(and)g(Line)f(In)m(tegration)85 b(.)46 b(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(274)664
2943 y @beginspecial @setspecial @endspecial FN(26)33
b(BOOLEAN:)g(A)i(pac)m(k)-6 b(age)36 b(for)f(b)s(o)s(olean)g(algebra)
723 b(277)801 3106 y @beginspecial @setspecial @endspecial
FQ(26.1)49 b(En)m(tering)29 b(b)s(o)s(olean)h(expressions)76
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)j(277)801 3269 y @beginspecial @setspecial @endspecial(26.2)h
(Normal)30 b(forms)49 b(.)d(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(278)801
3431 y @beginspecial @setspecial @endspecial(26.3)h(Ev)-5
b(aluation)29 b(of)i(a)f(b)s(o)s(olean)g(expression)60
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(280)
664 3685 y @beginspecial @setspecial @endspecial FN(27)33
b(CALI:)g(Comm)m(utativ)m(e)g(Algebra)1361 b(283)664
3939 y @beginspecial @setspecial @endspecial(28)33 b(CAMAL:)h
(Celestial)g(Mec)m(hanics)1337 b(285)801 4101 y @beginspecial
@setspecial @endspecial FQ(28.1)49 b(Op)s(erators)29
b(for)i(F)-8 b(ourier)29 b(Series)52 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(285)801
4264 y @beginspecial @setspecial @endspecial(28.2)h(A)30
b(Short)g(Example)43 b(.)j(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(287)664
4518 y @beginspecial @setspecial @endspecial FN(29)33
b(CGB:)h(Comprehensiv)m(e)h(Gr\177)-52 b(obner)35 b(Bases)992
b(289)801 4681 y @beginspecial @setspecial @endspecial
FQ(29.1)49 b(In)m(tro)s(duction)26 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(289)801 4843 y @beginspecial @setspecial @endspecial(29.2)h
(Using)29 b(the)i(REDLOG)f(P)m(ac)m(k)-5 b(age)79 b(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(290)p eop
%%Page: 15 15
15 14 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(15)377 555 y @beginspecial @setspecial
@endspecial(29.3)49 b(T)-8 b(erm)30 b(Ordering)f(Mo)s(de)j(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(290)377 718 y @beginspecial @setspecial
@endspecial(29.4)i(CGB:)31 b(Comprehensiv)m(e)e(Gr\177)-45
b(obner)30 b(Basis)60 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)h(290)377 881 y @beginspecial @setspecial
@endspecial(29.5)i(GSYS:)30 b(Gr\177)-45 b(obner)30 b(System)79
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)h(291)586 1043 y @beginspecial @setspecial
@endspecial(29.5.1)61 b(Switc)m(h)30 b(CGBGEN:)h(Only)e(the)h(Generic)g
(Case)64 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)h(292)377 1206
y @beginspecial @setspecial @endspecial(29.6)i(GSYS2CGB:)31
b(Gr\177)-45 b(obner)30 b(System)g(to)h(CGB)56 b(.)45
b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(292)377
1369 y @beginspecial @setspecial @endspecial(29.7)i(Switc)m(h)30
b(CGBREAL:)g(Computing)f(o)m(v)m(er)j(the)e(Real)h(Num)m(b)s(ers)24
b(.)46 b(.)f(.)h(.)h(293)377 1532 y @beginspecial @setspecial
@endspecial(29.8)i(Switc)m(hes)43 b(.)i(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)h(294)241 1785 y @beginspecial @setspecial
@endspecial FN(30)32 b(CHANGEVR:)j(Change)f(of)h(V)-9
b(ariables)35 b(in)g(DEs)742 b(295)377 1948 y @beginspecial
@setspecial @endspecial FQ(30.1)49 b(An)30 b(example:)41
b(the)30 b(2-D)i(Laplace)e(Equation)87 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(296)241 2202 y @beginspecial @setspecial
@endspecial FN(31)32 b(COMP)-9 b(A)m(CT:)34 b(Compacting)h(expressions)
992 b(297)241 2455 y @beginspecial @setspecial @endspecial(32)32
b(CRA)m(CK:)j(Ov)m(erdetermined)e(systems)h(of)h(DEs)772
b(299)241 2709 y @beginspecial @setspecial @endspecial(33)32
b(CVIT:Dirac)i(gamma)f(matrix)h(traces)1142 b(303)241
2962 y @beginspecial @setspecial @endspecial(34)32 b(DEFINT:)i
(De\014nite)h(In)m(tegration)f(for)h(REDUCE)668 b(305)241
3216 y @beginspecial @setspecial @endspecial(35)32 b(DESIR:)j(Linear)g
(Homogeneous)g(DEs)1124 b(309)241 3470 y @beginspecial
@setspecial @endspecial(36)32 b(DFP)-9 b(AR)g(T:)36 b(Deriv)-6
b(ativ)m(es)36 b(of)f(generic)g(functions)762 b(313)377
3632 y @beginspecial @setspecial @endspecial FQ(36.1)49
b(Generic)30 b(F)-8 b(unctions)89 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(313)
377 3795 y @beginspecial @setspecial @endspecial(36.2)i(P)m(artial)30
b(Deriv)-5 b(ativ)m(es)66 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(314)377
3958 y @beginspecial @setspecial @endspecial(36.3)i(Substitutions)68
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(316)241 4211
y @beginspecial @setspecial @endspecial FN(37)32 b(DUMMY:)k
(Expressions)g(with)e(dumm)m(y)g(v)-6 b(ars)823 b(319)241
4465 y @beginspecial @setspecial @endspecial(38)32 b(EDS:)j(Exterior)g
(di\013eren)m(tial)f(systems)1129 b(323)377 4628 y @beginspecial
@setspecial @endspecial FQ(38.1)49 b(In)m(tro)s(duction)27
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(323)377
4791 y @beginspecial @setspecial @endspecial(38.2)i(Data)32
b(Structures)e(and)f(Concepts)d(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(324)586 4953 y @beginspecial
@setspecial @endspecial(38.2.1)61 b(EDS)53 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)h(324)p eop
%%Page: 16 16
16 15 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(16)2383 b FM(CONTENTS)1010 555 y @beginspecial @setspecial
@endspecial FQ(38.2.2)61 b(Coframing)28 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)j(324)1010 718 y @beginspecial @setspecial @endspecial(38.2.3)61
b(Systems)30 b(and)f(bac)m(kground)h(coframing)c(.)46
b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(324)1010 881
y @beginspecial @setspecial @endspecial(38.2.4)61 b(In)m(tegral)30
b(elemen)m(ts)50 b(.)c(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(325)1010 1043 y @beginspecial
@setspecial @endspecial(38.2.5)61 b(Prop)s(erties)29
b(and)g(normal)h(form)45 b(.)g(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)j(325)801 1206 y @beginspecial @setspecial
@endspecial(38.3)h(The)30 b(EDS)g(P)m(ac)m(k)-5 b(age)95
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(326)1010 1369 y @beginspecial
@setspecial @endspecial(38.3.1)61 b(Constructing)29 b(EDS)h(ob)5
b(jects)45 b(.)h(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)j(326)1010 1532 y @beginspecial @setspecial @endspecial(38.3.2)61
b(Insp)s(ecting)28 b(EDS)j(ob)5 b(jects)80 b(.)46 b(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(327)1010
1694 y @beginspecial @setspecial @endspecial(38.3.3)61
b(Manipulating)28 b(EDS)i(ob)5 b(jects)28 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(328)1010 1857
y @beginspecial @setspecial @endspecial(38.3.4)61 b(Analysing)28
b(and)i(T)-8 b(esting)30 b(exterior)h(systems)82 b(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)j(329)1010 2020 y @beginspecial
@setspecial @endspecial(38.3.5)61 b(Switc)m(hes)34 b(.)45
b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(330)1010 2182 y @beginspecial
@setspecial @endspecial(38.3.6)61 b(Auxilliary)27 b(functions)81
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(330)1010 2345 y @beginspecial @setspecial @endspecial(38.3.7)
61 b(Exp)s(erimen)m(tal)28 b(F)-8 b(unctions)62 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(330)
664 2599 y @beginspecial @setspecial @endspecial FN(39)33
b(EX)m(CALC:)g(Di\013eren)m(tial)i(Geometry)1188 b(333)801
2762 y @beginspecial @setspecial @endspecial FQ(39.1)49
b(Declarations)31 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(334)
801 2924 y @beginspecial @setspecial @endspecial(39.2)h(Exterior)29
b(Multiplication)e(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(335)801 3087
y @beginspecial @setspecial @endspecial(39.3)h(P)m(artial)30
b(Di\013eren)m(tiation)73 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(336)801
3250 y @beginspecial @setspecial @endspecial(39.4)h(Exterior)29
b(Di\013eren)m(tiation)88 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(336)801
3412 y @beginspecial @setspecial @endspecial(39.5)h(Inner)29
b(Pro)s(duct)k(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(337)801
3575 y @beginspecial @setspecial @endspecial(39.6)h(Lie)29
b(Deriv)-5 b(ativ)m(e)39 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(338)801 3738 y @beginspecial @setspecial @endspecial(39.7)h(Ho)s
(dge-*)31 b(Dualit)m(y)f(Op)s(erator)44 b(.)i(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(338)801
3901 y @beginspecial @setspecial @endspecial(39.8)h(V)-8
b(ariational)30 b(Deriv)-5 b(ativ)m(e)75 b(.)45 b(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(339)
801 4063 y @beginspecial @setspecial @endspecial(39.9)h(Handling)28
b(of)j(Indices)36 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(340)801
4226 y @beginspecial @setspecial @endspecial(39.10)t(Metric)30
b(Structures)36 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(341)801
4389 y @beginspecial @setspecial @endspecial(39.11)t(Riemannian)28
b(Connections)g(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(343)801 4551 y @beginspecial
@setspecial @endspecial(39.12)t(Ordering)28 b(and)i(Structuring)73
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(343)664 4805 y @beginspecial @setspecial
@endspecial FN(40)33 b(FIDE:)h(Finite)g(di\013erences)i(for)f(PDEs)1133
b(345)p eop
%%Page: 17 17
17 16 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(17)241 555 y @beginspecial @setspecial
@endspecial FN(41)32 b(FPS:)j(F)-9 b(ormal)35 b(p)s(o)m(w)m(er)f
(series)1524 b(349)241 809 y @beginspecial @setspecial
@endspecial(42)32 b(GENTRAN:)j(A)g(co)s(de)g(generation)g(pac)m(k)-6
b(age)864 b(351)377 972 y @beginspecial @setspecial @endspecial
FQ(42.1)49 b(Simple)28 b(Use)84 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)h(352)377 1134 y @beginspecial @setspecial @endspecial(42.2)i
(Precision)23 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(353)586 1297 y @beginspecial @setspecial @endspecial(42.2.1)61
b(The)30 b(EV)-10 b(AL)30 b(F)-8 b(unction)59 b(.)46
b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)h(353)586 1460 y @beginspecial @setspecial @endspecial(42.2.2)61
b(The)30 b(:=:)41 b(Op)s(erator)90 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(354)586
1622 y @beginspecial @setspecial @endspecial(42.2.3)61
b(The)30 b(::=)h(Op)s(erator)e(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(354)586
1785 y @beginspecial @setspecial @endspecial(42.2.4)61
b(The)30 b(::=:)41 b(Op)s(erator)65 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(355)377
1948 y @beginspecial @setspecial @endspecial(42.3)i(Explicit)28
b(T)m(yp)s(e)i(Declarations)91 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(356)377 2111
y @beginspecial @setspecial @endspecial(42.4)i(Expression)29
b(Segmen)m(tation)24 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(357)377 2273
y @beginspecial @setspecial @endspecial(42.5)i(T)-8 b(emplate)31
b(Pro)s(cessing)57 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(358)377
2436 y @beginspecial @setspecial @endspecial(42.6)i(Output)29
b(Redirection)g(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(361)241
2690 y @beginspecial @setspecial @endspecial FN(43)32
b(GEOMETR)-9 b(Y:)35 b(Plane)g(geometry)1294 b(363)377
2852 y @beginspecial @setspecial @endspecial FQ(43.1)49
b(In)m(tro)s(duction)27 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(363)377 3015 y @beginspecial @setspecial @endspecial(43.2)i(Basic)31
b(Data)h(T)m(yp)s(es)e(and)f(Constructors)89 b(.)46 b(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(364)377 3178 y @beginspecial
@setspecial @endspecial(43.3)i(Pro)s(cedures)86 b(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(364)377 3341
y @beginspecial @setspecial @endspecial(43.4)i(Examples)71
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(368)241
3594 y @beginspecial @setspecial @endspecial FN(44)32
b(GNUPLOT:)j(Plotting)g(F)-9 b(unctions)1254 b(371)241
3848 y @beginspecial @setspecial @endspecial(45)32 b(GR)m(OEBNER:)j(A)g
(Gr\177)-52 b(obner)36 b(basis)f(pac)m(k)-6 b(age)883
b(375)377 4011 y @beginspecial @setspecial @endspecial
FQ(45.1)80 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)h(375)586 4173 y @beginspecial @setspecial
@endspecial(45.1.1)61 b(T)-8 b(erm)30 b(Ordering)63 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)h(376)377 4336 y @beginspecial @setspecial
@endspecial(45.2)i(The)30 b(Basic)h(Op)s(erators)52 b(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(376)586 4499 y @beginspecial @setspecial
@endspecial(45.2.1)61 b(T)-8 b(erm)30 b(Ordering)f(Mo)s(de)24
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)h(376)586 4661 y @beginspecial @setspecial @endspecial(45.2.2)
61 b(GR)m(OEBNER:)31 b(Calculation)e(of)i(a)f(Gr\177)-45
b(obner)30 b(Basis)45 b(.)h(.)g(.)f(.)h(.)h(377)586 4824
y @beginspecial @setspecial @endspecial(45.2.3)61 b(GZER)m(ODIM?:)41
b(T)-8 b(est)31 b(of)g(dim)23 b(=)i(0)57 b(.)45 b(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(378)p eop
%%Page: 18 18
18 17 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(18)2383 b FM(CONTENTS)1010 555 y @beginspecial @setspecial
@endspecial FQ(45.2.4)61 b(GDIMENSION,)30 b(GINDEPENDENT)p
2730 555 28 4 v 34 w(SETS)h(.)46 b(.)g(.)f(.)h(.)g(.)f(.)j(378)1010
718 y @beginspecial @setspecial @endspecial(45.2.5)61
b(GLEX)m(CONVER)-8 b(T:)30 b(Con)m(v)m(ersion)g(to)h(a)g(Lexical)f
(Base)80 b(.)46 b(.)f(.)j(379)1010 881 y @beginspecial
@setspecial @endspecial(45.2.6)61 b(GR)m(OEBNERF:)31
b(F)-8 b(actorizing)31 b(Gr\177)-45 b(obner)30 b(Bases)94
b(.)46 b(.)f(.)h(.)g(.)f(.)j(380)1010 1043 y @beginspecial
@setspecial @endspecial(45.2.7)61 b(GREDUCE,)30 b(PREDUCE:)h(Reduction)
e(of)i(P)m(olynomials)89 b(.)48 b(383)801 1206 y @beginspecial
@setspecial @endspecial(45.3)h(Ideal)29 b(Decomp)s(osition)h(&)g
(Equation)g(System)g(Solving)66 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)j(384)
664 1460 y @beginspecial @setspecial @endspecial FN(46)33
b(IDEALS:)h(Arithmetic)g(for)h(p)s(olynomial)g(ideals)750
b(385)801 1622 y @beginspecial @setspecial @endspecial
FQ(46.1)49 b(Initialization)86 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
j(385)801 1785 y @beginspecial @setspecial @endspecial(46.2)h(Bases)92
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(386)1010
1948 y @beginspecial @setspecial @endspecial(46.2.1)61
b(Op)s(erators)48 b(.)e(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(386)664
2202 y @beginspecial @setspecial @endspecial FN(47)33
b(INEQ:)g(Supp)s(ort)i(for)g(solving)h(inequalities)927
b(387)664 2455 y @beginspecial @setspecial @endspecial(48)33
b(INVBASE:)h(In)m(v)m(olutiv)m(e)h(Bases)1405 b(389)801
2618 y @beginspecial @setspecial @endspecial FQ(48.1)49
b(The)30 b(Basic)g(Op)s(erators)53 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(389)1010
2781 y @beginspecial @setspecial @endspecial(48.1.1)61
b(T)-8 b(erm)30 b(Ordering)63 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(389)1010
2943 y @beginspecial @setspecial @endspecial(48.1.2)61
b(Computing)28 b(In)m(v)m(olutiv)m(e)j(Bases)j(.)45 b(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(390)664 3197
y @beginspecial @setspecial @endspecial FN(49)33 b(LAPLA)m(CE:)h
(Laplace)h(transforms)f(etc.)1066 b(393)664 3451 y @beginspecial
@setspecial @endspecial(50)33 b(LIE:)h(Classi\014cation)h(of)g(Lie)g
(algebras)1156 b(397)801 3613 y @beginspecial @setspecial
@endspecial FQ(50.1)49 b(liendmc1)29 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)j(397)801 3776 y @beginspecial @setspecial
@endspecial(50.2)h(lie1234)41 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)j(398)664 4030 y @beginspecial @setspecial
@endspecial FN(51)33 b(LIMITS:)h(A)h(pac)m(k)-6 b(age)35
b(for)g(\014nding)h(limits)990 b(399)801 4192 y @beginspecial
@setspecial @endspecial FQ(51.1)49 b(Normal)30 b(en)m(try)g(p)s(oin)m
(ts)72 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(399)801 4355 y @beginspecial
@setspecial @endspecial(51.2)h(Direction-dep)s(enden)m(t)29
b(limits)g(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)j(400)664 4609 y @beginspecial
@setspecial @endspecial FN(52)33 b(LINALG:)h(Linear)h(algebra)f(pac)m
(k)-6 b(age)1178 b(403)801 4771 y @beginspecial @setspecial
@endspecial FQ(52.1)49 b(In)m(tro)s(duction)26 b(.)46
b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(403)1010 4934
y @beginspecial @setspecial @endspecial(52.1.1)61 b(Basic)30
b(matrix)g(handling)58 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)j(403)p eop
%%Page: 19 19
19 18 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(19)586 555 y @beginspecial @setspecial
@endspecial(52.1.2)61 b(Constructors)76 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(404)
586 718 y @beginspecial @setspecial @endspecial(52.1.3)61
b(High)30 b(lev)m(el)g(algorithms)23 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(404)586
881 y @beginspecial @setspecial @endspecial(52.1.4)61
b(Predicates)36 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(404)377
1043 y @beginspecial @setspecial @endspecial(52.2)i(Explanations)76
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(404)377 1206
y @beginspecial @setspecial @endspecial(52.3)i(Basic)31
b(matrix)f(handling)66 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(405)377
1369 y @beginspecial @setspecial @endspecial(52.4)i(Constructors)85
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(407)377 1532
y @beginspecial @setspecial @endspecial(52.5)i(Higher)30
b(Algorithms)69 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(411)377
1694 y @beginspecial @setspecial @endspecial(52.6)i(F)-8
b(ast)32 b(Linear)d(Algebra)85 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(413)241
1948 y @beginspecial @setspecial @endspecial FN(53)32
b(MA)-9 b(THML)35 b(:)g(MathML)g(In)m(terface)f(for)h(REDUCE)613
b(415)241 2202 y @beginspecial @setspecial @endspecial(54)32
b(MODSR:)j(Mo)s(dular)h(solv)m(e)f(and)g(ro)s(ots)1118
b(419)241 2455 y @beginspecial @setspecial @endspecial(55)32
b(MR)-12 b(VLIMIT:)35 b(Limits)f(of)h(\\exp-log")g(functions)740
b(421)241 2709 y @beginspecial @setspecial @endspecial(56)32
b(NCPOL)-9 b(Y:)35 b(Ideals)f(in)h(non{comm)g(case)1053
b(425)377 2872 y @beginspecial @setspecial @endspecial
FQ(56.1)49 b(Setup,)30 b(Clean)m(up)57 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(426)377 3034 y @beginspecial @setspecial @endspecial(56.2)i(Left)
31 b(and)f(righ)m(t)g(ideals)67 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(427)377
3197 y @beginspecial @setspecial @endspecial(56.3)i(Gr\177)-45
b(obner)30 b(bases)f(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(428)377
3360 y @beginspecial @setspecial @endspecial(56.4)i(Left)31
b(or)f(righ)m(t)g(p)s(olynomial)e(division)73 b(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(429)377
3522 y @beginspecial @setspecial @endspecial(56.5)i(Left)31
b(or)f(righ)m(t)g(p)s(olynomial)e(reduction)78 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(429)377
3685 y @beginspecial @setspecial @endspecial(56.6)i(F)-8
b(actorisation)81 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(429)377
3848 y @beginspecial @setspecial @endspecial(56.7)i(Output)29
b(of)i(expressions)78 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(430)241
4101 y @beginspecial @setspecial @endspecial FN(57)32
b(NORMF)m(ORM:)j(matrix)f(normal)g(forms)1023 b(431)377
4264 y @beginspecial @setspecial @endspecial FQ(57.1)49
b(Smithex)58 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(432)377 4427 y @beginspecial @setspecial @endspecial(57.2)i(Smithex)p
918 4427 28 4 v 32 w(in)m(t)58 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(432)377 4590 y @beginspecial @setspecial @endspecial(57.3)i(F)-8
b(rob)s(enius)65 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(432)377 4752 y @beginspecial @setspecial @endspecial(57.4)i(Ratjordan)
j(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(433)377
4915 y @beginspecial @setspecial @endspecial(57.5)i(Jordansym)m(b)s
(olic)44 b(.)i(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(433)p eop
%%Page: 20 20
20 19 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(20)2383 b FM(CONTENTS)801 555 y @beginspecial @setspecial
@endspecial FQ(57.6)49 b(Jordan)38 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)j(434)664 809 y @beginspecial @setspecial
@endspecial FN(58)33 b(NUMERIC:)h(Solving)i(n)m(umerical)f(problems)840
b(437)801 972 y @beginspecial @setspecial @endspecial
FQ(58.1)49 b(Syn)m(tax)38 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(437)1010 1134 y @beginspecial @setspecial
@endspecial(58.1.1)61 b(In)m(terv)-5 b(als,)30 b(Starting)g(P)m(oin)m
(ts)83 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)j(437)1010 1297 y @beginspecial @setspecial @endspecial(58.1.2)61
b(Accuracy)31 b(Con)m(trol)e(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(438)801
1460 y @beginspecial @setspecial @endspecial(58.2)h(Minima)77
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(438)801
1622 y @beginspecial @setspecial @endspecial(58.3)h(Ro)s(ots)31
b(of)f(F)-8 b(unctions/)30 b(Solutions)f(of)h(Equations)75
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(439)801
1785 y @beginspecial @setspecial @endspecial(58.4)h(In)m(tegrals)40
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(440)801
1948 y @beginspecial @setspecial @endspecial(58.5)h(Ordinary)28
b(Di\013eren)m(tial)h(Equations)39 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(441)801 2111 y @beginspecial
@setspecial @endspecial(58.6)h(Bounds)29 b(of)i(a)f(F)-8
b(unction)94 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(442)801 2273 y @beginspecial
@setspecial @endspecial(58.7)h(Cheb)m(yshev)29 b(Curv)m(e)h(Fitting)89
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(443)801 2436 y @beginspecial @setspecial
@endspecial(58.8)h(General)30 b(Curv)m(e)g(Fitting)66
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)j(444)801 2599 y @beginspecial @setspecial
@endspecial(58.9)h(F)-8 b(unction)30 b(Bases)66 b(.)45
b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(446)664 2852 y @beginspecial
@setspecial @endspecial FN(59)33 b(ODESOL)-12 b(VE:)33
b(Ordinary)i(di\013eren)m(tial)g(eqns)889 b(449)801 3015
y @beginspecial @setspecial @endspecial FQ(59.1)49 b(Use)28
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(450)
801 3178 y @beginspecial @setspecial @endspecial(59.2)h(Commen)m(tary)
81 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(451)664
3431 y @beginspecial @setspecial @endspecial FN(60)33
b(OR)-9 b(THO)m(VEC:)33 b(scalars)j(and)e(v)m(ectors)1168
b(453)801 3594 y @beginspecial @setspecial @endspecial
FQ(60.1)49 b(Initialisation)90 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
j(453)801 3757 y @beginspecial @setspecial @endspecial(60.2)h
(Input-Output)i(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(454)801
3920 y @beginspecial @setspecial @endspecial(60.3)h(Algebraic)29
b(Op)s(erations)34 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(454)801
4082 y @beginspecial @setspecial @endspecial(60.4)h(Di\013eren)m(tial)
29 b(Op)s(erations)38 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(456)801
4245 y @beginspecial @setspecial @endspecial(60.5)h(In)m(tegral)30
b(Op)s(erations)h(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(458)664
4499 y @beginspecial @setspecial @endspecial FN(61)33
b(PHYSOP:)i(Op)s(erator)f(Calculus)1351 b(461)801 4661
y @beginspecial @setspecial @endspecial FQ(61.1)49 b(The)30
b(NONCOM2)g(P)m(ac)m(k)-5 b(age)88 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(461)801
4824 y @beginspecial @setspecial @endspecial(61.2)h(The)30
b(PHYSOP)f(pac)m(k)-5 b(age)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(462)p
eop
%%Page: 21 21
21 20 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(21)586 555 y @beginspecial @setspecial
@endspecial(61.2.1)61 b(T)m(yp)s(e)30 b(declaration)g(commands)f(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(462)586
718 y @beginspecial @setspecial @endspecial(61.2.2)61
b(Ordering)28 b(of)j(op)s(erators)g(in)e(an)h(expression)46
b(.)g(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(463)586 881 y @beginspecial
@setspecial @endspecial(61.2.3)61 b(Arithmetic)30 b(op)s(erations)f(on)
h(op)s(erators)k(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(464)586
1043 y @beginspecial @setspecial @endspecial(61.2.4)61
b(Sp)s(ecial)29 b(functions)56 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(466)241
1297 y @beginspecial @setspecial @endspecial FN(62)32
b(PM:)k(A)f(REDUCE)f(pattern)g(matc)m(her)1115 b(469)377
1460 y @beginspecial @setspecial @endspecial FQ(62.1)49
b(The)30 b(Matc)m(h)i(F)-8 b(unction)59 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(470)
377 1622 y @beginspecial @setspecial @endspecial(62.2)i(Quali\014ed)28
b(Matc)m(hing)47 b(.)e(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(471)377
1785 y @beginspecial @setspecial @endspecial(62.3)i(Substituting)28
b(for)i(replacemen)m(ts)60 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(471)377 1948 y @beginspecial
@setspecial @endspecial(62.4)i(Programming)30 b(with)f(P)m(atterns)45
b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)h(472)241 2202 y @beginspecial @setspecial @endspecial
FN(63)32 b(QSUM:)j FK(q)p FN(-h)m(yp)s(ergeometric)g(sums)1254
b(475)377 2364 y @beginspecial @setspecial @endspecial
FQ(63.1)49 b(Elemen)m(tary)31 b FM(q)p FQ(-F)-8 b(unctions)70
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)h(475)377 2527 y @beginspecial @setspecial
@endspecial(63.2)i(The)30 b FJ(QGOSPER)e FQ(op)s(erator)63
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)h(477)377 2690 y @beginspecial @setspecial
@endspecial(63.3)i(The)30 b FJ(QSUMRECURSION)d FQ(op)s(erator)59
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(477)377 2852 y @beginspecial @setspecial @endspecial(63.4)i
(Global)30 b(V)-8 b(ariables)29 b(and)h(Switc)m(hes)c(.)46
b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(478)241 3106 y @beginspecial @setspecial @endspecial
FN(64)32 b(RANDPOL)-9 b(Y:)36 b(Random)e(p)s(olynomials)1065
b(481)377 3269 y @beginspecial @setspecial @endspecial
FQ(64.1)49 b(Optional)29 b(argumen)m(ts)88 b(.)46 b(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(482)377 3431 y @beginspecial @setspecial @endspecial(64.2)i(Adv)-5
b(anced)30 b(use)g(of)h(RANDPOL)-8 b(Y)31 b(.)46 b(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(482)377
3594 y @beginspecial @setspecial @endspecial(64.3)i(Examples)71
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(484)241
3848 y @beginspecial @setspecial @endspecial FN(65)32
b(RA)-9 b(T)g(APRX:)37 b(Rational)e(Appro)m(ximations)956
b(487)377 4011 y @beginspecial @setspecial @endspecial
FQ(65.1)80 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)h(487)586 4173 y @beginspecial @setspecial
@endspecial(65.1.1)61 b(P)m(erio)s(dic)29 b(Represen)m(tation)63
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
h(488)586 4336 y @beginspecial @setspecial @endspecial(65.1.2)61
b(Con)m(tin)m(ued)30 b(F)-8 b(ractions)66 b(.)46 b(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(488)586
4499 y @beginspecial @setspecial @endspecial(65.1.3)61
b(P)m(ad)m(\023)-43 b(e)32 b(Appro)m(ximation)45 b(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(490)241
4752 y @beginspecial @setspecial @endspecial FN(66)32
b(REA)m(CTEQN:)i(Chemical)f(reaction)j(equations)736
b(493)p eop
%%Page: 22 22
22 21 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(22)2383 b FM(CONTENTS)664 555 y @beginspecial @setspecial
@endspecial FN(67)33 b(REDLOG:)h(Logic)i(System)1572
b(495)801 718 y @beginspecial @setspecial @endspecial
FQ(67.1)49 b(In)m(tro)s(duction)26 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(495)1010 881 y @beginspecial @setspecial @endspecial(67.1.1)
61 b(Con)m(texts)93 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(495)1010
1043 y @beginspecial @setspecial @endspecial(67.1.2)61
b(Ov)m(erview)74 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(496)801
1206 y @beginspecial @setspecial @endspecial(67.2)h(Con)m(text)31
b(Selection)k(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(497)801
1369 y @beginspecial @setspecial @endspecial(67.3)h(F)-8
b(ormat)31 b(and)f(Handling)f(of)h(F)-8 b(orm)m(ulas)91
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(497)
1010 1532 y @beginspecial @setspecial @endspecial(67.3.1)61
b(First-order)29 b(Op)s(erators)84 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(497)1010 1694
y @beginspecial @setspecial @endspecial(67.3.2)61 b(OFSF)30
b(Op)s(erators)61 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(498)1010 1857 y
@beginspecial @setspecial @endspecial(67.3.3)61 b(D)m(VFSF)31
b(Op)s(erators)68 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(498)1010 2020 y @beginspecial
@setspecial @endspecial(67.3.4)61 b(A)m(CFSF)30 b(Op)s(erators)72
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(499)1010 2182 y @beginspecial @setspecial
@endspecial(67.3.5)61 b(Extended)29 b(Built-in)f(Commands)34
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(499)1010
2345 y @beginspecial @setspecial @endspecial(67.3.6)61
b(Global)29 b(Switc)m(hes)24 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(499)801
2508 y @beginspecial @setspecial @endspecial(67.4)h(Simpli\014cation)e
(.)f(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(499)1010 2671 y
@beginspecial @setspecial @endspecial(67.4.1)61 b(Standard)29
b(Simpli\014er)23 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(499)1010 2833 y @beginspecial
@setspecial @endspecial(67.4.2)61 b(T)-8 b(ableau)30
b(Simpli\014er)71 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(500)1010 2996 y @beginspecial
@setspecial @endspecial(67.4.3)61 b(Gr\177)-45 b(obner)29
b(Simpli\014er)58 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(500)801 3159 y @beginspecial
@setspecial @endspecial(67.5)h(Normal)30 b(F)-8 b(orms)26
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(500)1010 3321
y @beginspecial @setspecial @endspecial(67.5.1)61 b(Bo)s(olean)30
b(Normal)g(F)-8 b(orms)93 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)j(501)1010 3484 y @beginspecial
@setspecial @endspecial(67.5.2)61 b(Miscellaneous)29
b(Normal)h(F)-8 b(orms)80 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)j(501)801 3647 y @beginspecial @setspecial
@endspecial(67.6)h(Quan)m(ti\014er)29 b(Elimination)e(and)j(V)-8
b(arian)m(ts)79 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)j(501)1010 3810 y @beginspecial @setspecial @endspecial(67.6.1)61
b(Quan)m(ti\014er)29 b(Elimination)40 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(501)1010
3972 y @beginspecial @setspecial @endspecial(67.6.2)61
b(Generic)30 b(Quan)m(ti\014er)f(Elimination)60 b(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(502)1010
4135 y @beginspecial @setspecial @endspecial(67.6.3)61
b(Linear)29 b(Optimization)60 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(503)664 4389
y @beginspecial @setspecial @endspecial FN(68)33 b(RESET:)h(Reset)h
(REDUCE)g(to)g(its)f(initial)h(state)711 b(505)664 4642
y @beginspecial @setspecial @endspecial(69)33 b(RESIDUE:)i(A)f(residue)
i(pac)m(k)-6 b(age)1331 b(507)664 4896 y @beginspecial
@setspecial @endspecial(70)33 b(RLFI:)h(REDUCE)h(LaT)-9
b(eX)34 b(form)m(ula)h(in)m(terface)781 b(509)p eop
%%Page: 23 23
23 22 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(23)241 555 y @beginspecial @setspecial
@endspecial FN(71)32 b(R)m(OOTS:)i(A)h(REDUCE)g(ro)s(ot)g(\014nding)h
(pac)m(k)-6 b(age)741 b(513)377 718 y @beginspecial @setspecial
@endspecial FQ(71.1)49 b(T)-8 b(op)31 b(Lev)m(el)f(F)-8
b(unctions)70 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(513)586 881
y @beginspecial @setspecial @endspecial(71.1.1)61 b(F)-8
b(unctions)30 b(that)h(refer)f(to)h(real)f(ro)s(ots)h(only)66
b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(513)586 1043
y @beginspecial @setspecial @endspecial(71.1.2)61 b(F)-8
b(unctions)30 b(that)h(return)e(b)s(oth)h(real)g(and)g(complex)g(ro)s
(ots)57 b(.)46 b(.)h(514)586 1206 y @beginspecial @setspecial
@endspecial(71.1.3)61 b(Other)30 b(top)h(lev)m(el)f(functions)88
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(515)377 1369 y @beginspecial @setspecial @endspecial(71.2)i(Switc)m
(hes)30 b(Used)g(in)f(Input)d(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(516)377
1532 y @beginspecial @setspecial @endspecial(71.3)i(Ro)s(ot)31
b(P)m(ac)m(k)-5 b(age)33 b(Switc)m(hes)i(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(517)241
1785 y @beginspecial @setspecial @endspecial FN(72)32
b(RSOL)-12 b(VE:)35 b(Rational)g(p)s(olynomial)g(solv)m(er)990
b(519)377 1948 y @beginspecial @setspecial @endspecial
FQ(72.1)49 b(Examples)71 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(520)241 2202 y @beginspecial @setspecial @endspecial
FN(73)32 b(SCOPE:)i(Source)i(co)s(de)f(optimisation)g(pac)m(k)-6
b(age)741 b(521)241 2455 y @beginspecial @setspecial
@endspecial(74)32 b(SETS:)j(A)f(basic)i(set)f(theory)g(pac)m(k)-6
b(age)1151 b(525)377 2618 y @beginspecial @setspecial
@endspecial FQ(74.1)49 b(In\014x)29 b(op)s(erator)i(precedence)84
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)h(525)377 2781 y @beginspecial @setspecial
@endspecial(74.2)i(Explicit)28 b(set)j(represen)m(tation)g(and)f(MKSET)
68 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(526)377
2943 y @beginspecial @setspecial @endspecial(74.3)i(Union)29
b(and)h(in)m(tersection)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(526)377
3106 y @beginspecial @setspecial @endspecial(74.4)i(Sym)m(b)s(olic)29
b(set)i(expressions)42 b(.)k(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(526)377 3269 y
@beginspecial @setspecial @endspecial(74.5)i(Set)31 b(di\013erence)63
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(527)377 3431
y @beginspecial @setspecial @endspecial(74.6)i(Predicates)31
b(on)f(sets)94 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(527)586
3594 y @beginspecial @setspecial @endspecial(74.6.1)61
b(Set)31 b(mem)m(b)s(ership)90 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(528)586
3757 y @beginspecial @setspecial @endspecial(74.6.2)61
b(Set)31 b(inclusion)79 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(528)586
3920 y @beginspecial @setspecial @endspecial(74.6.3)61
b(Set)31 b(equalit)m(y)45 b(.)g(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(530)241
4173 y @beginspecial @setspecial @endspecial FN(75)32
b(SP)-9 b(ARSE:)36 b(Sparse)f(Matrices)1495 b(531)377
4336 y @beginspecial @setspecial @endspecial FQ(75.1)49
b(In)m(tro)s(duction)27 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(531)377 4499 y @beginspecial @setspecial @endspecial(75.2)i(Sparse)30
b(Matrix)g(Calculations)78 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(531)377 4661 y @beginspecial
@setspecial @endspecial(75.3)i(Linear)30 b(Algebra)g(P)m(ac)m(k)-5
b(age)33 b(for)d(Sparse)g(Matrices)57 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)h(532)586 4824 y @beginspecial @setspecial
@endspecial(75.3.1)61 b(Basic)31 b(matrix)f(handling)58
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(532)p eop
%%Page: 24 24
24 23 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(24)2383 b FM(CONTENTS)1010 555 y @beginspecial @setspecial
@endspecial FQ(75.3.2)61 b(Constructors)76 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(532)1010 718 y @beginspecial @setspecial @endspecial(75.3.3)61
b(High)29 b(lev)m(el)h(algorithms)24 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(532)1010
881 y @beginspecial @setspecial @endspecial(75.3.4)61
b(Predicates)35 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(533)664
1134 y @beginspecial @setspecial @endspecial FN(76)33
b(SPDE:)i(Symmetry)e(groups)j(of)f(PDE's)1095 b(535)801
1297 y @beginspecial @setspecial @endspecial FQ(76.1)49
b(System)30 b(F)-8 b(unctions)30 b(and)f(V)-8 b(ariables)30
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
j(535)664 1551 y @beginspecial @setspecial @endspecial
FN(77)33 b(SPECFN:)h(P)m(ac)m(k)-6 b(age)36 b(for)f(sp)s(ecial)g
(functions)895 b(539)801 1713 y @beginspecial @setspecial
@endspecial FQ(77.1)49 b(Simpli\014cation)26 b(and)k(Appro)m(ximation)
22 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j
(541)801 1876 y @beginspecial @setspecial @endspecial(77.2)h(Constan)m
(ts)58 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(541)801
2039 y @beginspecial @setspecial @endspecial(77.3)h(F)-8
b(unctions)69 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(541)
664 2292 y @beginspecial @setspecial @endspecial FN(78)33
b(SPECFN2:)46 b(Sp)s(ecial)35 b(sp)s(ecial)g(functions)1034
b(545)801 2455 y @beginspecial @setspecial @endspecial
FQ(78.1)49 b(REDUCE)30 b(op)s(erator)h(HYPER)m(GEOMETRIC)g(.)46
b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(545)801 2618
y @beginspecial @setspecial @endspecial(78.2)h(Enlarging)28
b(the)j(HYPER)m(GEOMETRIC)f(op)s(erator)c(.)45 b(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(546)664 2872 y @beginspecial @setspecial @endspecial
FN(79)33 b(SUM:)i(A)g(pac)m(k)-6 b(age)36 b(for)f(series)g(summation)
939 b(547)664 3125 y @beginspecial @setspecial @endspecial(80)33
b(SUSY2:)47 b(Sup)s(er)35 b(Symmetry)1513 b(551)801 3288
y @beginspecial @setspecial @endspecial FQ(80.1)49 b(Op)s(erators)57
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(551)1010
3451 y @beginspecial @setspecial @endspecial(80.1.1)61
b(Op)s(erators)29 b(for)h(constructing)g(Ob)5 b(jects)43
b(.)j(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(552)1010
3613 y @beginspecial @setspecial @endspecial(80.1.2)61
b(Commands)71 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(553)801
3776 y @beginspecial @setspecial @endspecial(80.2)h(Options)69
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(555)664
4030 y @beginspecial @setspecial @endspecial FN(81)33
b(SYMMETR)-9 b(Y:)35 b(Symmetric)f(matrices)1089 b(557)801
4192 y @beginspecial @setspecial @endspecial FQ(81.1)49
b(Op)s(erators)29 b(for)i(linear)d(represen)m(tations)e(.)45
b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(557)801
4355 y @beginspecial @setspecial @endspecial(81.2)h(Displa)m(y)29
b(Op)s(erators)83 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(559)664
4609 y @beginspecial @setspecial @endspecial FN(82)33
b(T)-9 b(A)g(YLOR:)35 b(Manipulation)g(of)g(T)-9 b(a)m(ylor)35
b(series)855 b(561)664 4862 y @beginspecial @setspecial
@endspecial(83)33 b(TPS:)i(A)g(truncated)f(p)s(o)m(w)m(er)h(series)g
(pac)m(k)-6 b(age)891 b(567)p eop
%%Page: 25 25
25 24 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(25)377 555 y @beginspecial @setspecial
@endspecial(83.1)49 b(Basic)31 b(T)-8 b(runcated)30 b(P)m(o)m(w)m(er)i
(Series)53 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)h(568)586 718 y @beginspecial @setspecial
@endspecial(83.1.1)61 b(PS)30 b(Op)s(erator)83 b(.)46
b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(568)586 881 y @beginspecial @setspecial
@endspecial(83.1.2)61 b(PSORDLIM)30 b(Op)s(erator)57
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(569)377 1043 y @beginspecial @setspecial @endspecial(83.2)i(Con)m
(trolling)29 b(P)m(o)m(w)m(er)i(Series)43 b(.)j(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(570)586
1206 y @beginspecial @setspecial @endspecial(83.2.1)61
b(PSTERM)30 b(Op)s(erator)88 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(570)586 1369
y @beginspecial @setspecial @endspecial(83.2.2)61 b(PSORDER)30
b(Op)s(erator)g(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)h(570)586 1532 y @beginspecial
@setspecial @endspecial(83.2.3)61 b(PSSETORDER)29 b(Op)s(erator)64
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(570)586 1694 y @beginspecial @setspecial @endspecial(83.2.4)61
b(PSDEPV)-10 b(AR)30 b(Op)s(erator)51 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(571)586
1857 y @beginspecial @setspecial @endspecial(83.2.5)61
b(PSEXP)-8 b(ANSIONPT)29 b(op)s(erator)76 b(.)46 b(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(571)586 2020 y @beginspecial
@setspecial @endspecial(83.2.6)61 b(PSFUNCTION)30 b(Op)s(erator)79
b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h
(571)586 2182 y @beginspecial @setspecial @endspecial(83.2.7)61
b(PSCHANGEV)-10 b(AR)30 b(Op)s(erator)53 b(.)46 b(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(571)586 2345 y @beginspecial
@setspecial @endspecial(83.2.8)61 b(PSREVERSE)29 b(Op)s(erator)70
b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
h(572)586 2508 y @beginspecial @setspecial @endspecial(83.2.9)61
b(PSCOMPOSE)28 b(Op)s(erator)44 b(.)h(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(572)586 2671 y @beginspecial
@setspecial @endspecial(83.2.10)16 b(PSSUM)30 b(Op)s(erator)23
b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)g(.)f(.)h(.)h(573)586 2833 y @beginspecial @setspecial
@endspecial(83.2.11)16 b(Arithmetic)30 b(Op)s(erations)40
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)h(574)586 2996 y @beginspecial @setspecial @endspecial(83.2.12)16
b(Di\013eren)m(tiation)84 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(575)377
3159 y @beginspecial @setspecial @endspecial(83.3)i(Restrictions)30
b(and)g(Kno)m(wn)f(Bugs)47 b(.)f(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(575)241 3412 y @beginspecial
@setspecial @endspecial FN(84)32 b(TRI:)j(T)-9 b(eX)35
b(REDUCE)f(in)m(terface)1336 b(577)377 3575 y @beginspecial
@setspecial @endspecial FQ(84.1)49 b(Switc)m(hes)30 b(for)g(TRI)61
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(577)586 3738 y @beginspecial
@setspecial @endspecial(84.1.1)61 b(Adding)29 b(T)-8
b(ranslations)60 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(578)377 3901 y @beginspecial
@setspecial @endspecial(84.2)i(Examples)30 b(of)g(Use)77
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(579)241 4154 y @beginspecial
@setspecial @endspecial FN(85)32 b(TRIGSIMP:)j(T)-9 b(rigonometric)36
b(simpli\014cation)801 b(583)377 4317 y @beginspecial
@setspecial @endspecial FQ(85.1)49 b(Simpli\014ying)26
b(trigonometric)k(expressions)73 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(583)377 4480 y @beginspecial @setspecial
@endspecial(85.2)i(F)-8 b(actorising)31 b(trigonometric)f(expressions)
38 b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(585)377
4642 y @beginspecial @setspecial @endspecial(85.3)i(GCDs)31
b(of)f(trigonometric)h(expressions)57 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(586)241 4896 y @beginspecial
@setspecial @endspecial FN(86)32 b(WU:)k(W)-9 b(u)35
b(algorithm)f(for)h(p)s(oly)g(systems)1025 b(587)p eop
%%Page: 26 26
26 25 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(26)2383 b FM(CONTENTS)664 555 y @beginspecial @setspecial
@endspecial FN(87)33 b(X)m(COLOR:)g(Color)i(factor)g(in)g(gauge)h
(theory)879 b(589)664 809 y @beginspecial @setspecial
@endspecial(88)33 b(XIDEAL:)h(Gr\177)-52 b(obner)35 b(for)h(exterior)e
(algebra)915 b(593)801 972 y @beginspecial @setspecial
@endspecial FQ(88.1)49 b(Op)s(erators)57 b(.)45 b(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)
g(.)f(.)h(.)g(.)f(.)j(594)801 1134 y @beginspecial @setspecial
@endspecial(88.2)h(Switc)m(hes)42 b(.)k(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)
h(.)g(.)f(.)j(595)801 1297 y @beginspecial @setspecial
@endspecial(88.3)h(Examples)71 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(596)664 1551 y @beginspecial @setspecial @endspecial
FN(89)33 b(ZEILBER)m(G:)h(Indef)h(&)g(de\014nite)g(summation)828
b(599)801 1713 y @beginspecial @setspecial @endspecial
FQ(89.1)49 b(The)30 b(GOSPER)f(summation)g(op)s(erator)39
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(599)
801 1876 y @beginspecial @setspecial @endspecial(89.2)h(EXTENDED)p
1541 1876 28 4 v 33 w(GOSPER)29 b(op)s(erator)66 b(.)46
b(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(600)801
2039 y @beginspecial @setspecial @endspecial(89.3)h(SUMRECURSION)29
b(op)s(erator)42 b(.)j(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)g(.)f(.)j(601)801 2202 y @beginspecial
@setspecial @endspecial(89.4)h(HYPERRECURSION)29 b(op)s(erator)58
b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
j(601)801 2364 y @beginspecial @setspecial @endspecial(89.5)h(HYPERSUM)
30 b(op)s(erator)55 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(602)801 2527
y @beginspecial @setspecial @endspecial(89.6)h(SUMTOHYPER)29
b(op)s(erator)60 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(603)801 2690 y @beginspecial
@setspecial @endspecial(89.7)h(Simpli\014cation)26 b(Op)s(erators)47
b(.)f(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)j(604)664 2943 y @beginspecial @setspecial
@endspecial FN(90)33 b(ZTRANS:)h FL(Z)7 b FN(-transform)34
b(pac)m(k)-6 b(age)1259 b(607)664 3311 y @beginspecial
@setspecial @endspecial FR(I)s(I)s(I)112 b(Standard)38
b(Lisp)g(Rep)s(ort)1504 b(611)664 3564 y @beginspecial
@setspecial @endspecial FN(91)33 b(The)h(Standard)h(Lisp)g(Rep)s(ort)
1480 b(613)801 3727 y @beginspecial @setspecial @endspecial
FQ(91.1)49 b(In)m(tro)s(duction)26 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)j(613)801 3890 y @beginspecial @setspecial @endspecial(91.2)h
(Preliminaries)70 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(615)1010
4052 y @beginspecial @setspecial @endspecial(91.2.1)61
b(Primitiv)m(e)28 b(Data)k(T)m(yp)s(es)74 b(.)46 b(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(615)1010
4215 y @beginspecial @setspecial @endspecial(91.2.2)61
b(Classes)29 b(of)i(Primitiv)m(e)d(Data)k(T)m(yp)s(es)81
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(619)1010
4378 y @beginspecial @setspecial @endspecial(91.2.3)61
b(Structures)35 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(619)1010
4541 y @beginspecial @setspecial @endspecial(91.2.4)61
b(F)-8 b(unction)30 b(Descriptions)70 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(620)1010
4703 y @beginspecial @setspecial @endspecial(91.2.5)61
b(F)-8 b(unction)30 b(T)m(yp)s(es)38 b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(621)1010
4866 y @beginspecial @setspecial @endspecial(91.2.6)61
b(Error)29 b(and)h(W)-8 b(arning)30 b(Messages)73 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)j(622)p
eop
%%Page: 27 27
27 26 bop 241 299 a @beginspecial @setspecial @endspecial
FM(CONTENTS)2380 b FQ(27)586 555 y @beginspecial @setspecial
@endspecial(91.2.7)61 b(Commen)m(ts)25 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)
h(622)377 718 y @beginspecial @setspecial @endspecial(91.3)i(F)-8
b(unctions)69 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(622)
586 881 y @beginspecial @setspecial @endspecial(91.3.1)61
b(Elemen)m(tary)30 b(Predicates)45 b(.)h(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)
f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(622)586 1043 y
@beginspecial @setspecial @endspecial(91.3.2)61 b(F)-8
b(unctions)30 b(on)g(Dotted-P)m(airs)k(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(625)586 1206 y @beginspecial
@setspecial @endspecial(91.3.3)61 b(Iden)m(ti\014ers)51
b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(627)586 1369 y @beginspecial
@setspecial @endspecial(91.3.4)61 b(Prop)s(ert)m(y)30
b(List)g(F)-8 b(unctions)60 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)
g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(629)586 1532 y @beginspecial
@setspecial @endspecial(91.3.5)61 b(F)-8 b(unction)30
b(De\014nition)d(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)g(.)f(.)h(.)h(631)586 1694 y @beginspecial
@setspecial @endspecial(91.3.6)61 b(V)-8 b(ariables)30
b(and)g(Bindings)91 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)g(.)f(.)h(.)h(633)586 1857 y @beginspecial @setspecial
@endspecial(91.3.7)61 b(Program)31 b(F)-8 b(eature)31
b(F)-8 b(unctions)63 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)h(635)586 2020 y @beginspecial @setspecial
@endspecial(91.3.8)61 b(Error)30 b(Handling)51 b(.)46
b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g
(.)g(.)f(.)h(.)h(638)586 2182 y @beginspecial @setspecial
@endspecial(91.3.9)61 b(V)-8 b(ectors)84 b(.)46 b(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)
f(.)h(.)h(639)586 2345 y @beginspecial @setspecial @endspecial(91.3.10)
16 b(Bo)s(olean)31 b(F)-8 b(unctions)30 b(and)g(Conditionals)62
b(.)45 b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(640)586
2508 y @beginspecial @setspecial @endspecial(91.3.11)16
b(Arithmetic)30 b(F)-8 b(unctions)22 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(641)586
2671 y @beginspecial @setspecial @endspecial(91.3.12)16
b(MAP)31 b(Comp)s(osite)e(F)-8 b(unctions)72 b(.)46 b(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(646)586 2833
y @beginspecial @setspecial @endspecial(91.3.13)16 b(Comp)s(osite)30
b(F)-8 b(unctions)32 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(648)586 2996 y @beginspecial
@setspecial @endspecial(91.3.14)16 b(The)30 b(In)m(terpreter)42
b(.)k(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h
(.)g(.)g(.)f(.)h(.)h(653)586 3159 y @beginspecial @setspecial
@endspecial(91.3.15)16 b(Input)29 b(and)h(Output)80 b(.)45
b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)h(655)586 3321 y @beginspecial @setspecial @endspecial(91.3.16)
16 b(LISP)29 b(Reader)77 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(660)377
3484 y @beginspecial @setspecial @endspecial(91.4)i(System)30
b(GLOBAL)h(V)-8 b(ariables)62 b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(660)377 3647
y @beginspecial @setspecial @endspecial(91.5)i(The)30
b(Extended)g(Syn)m(tax)80 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f
(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(662)586
3810 y @beginspecial @setspecial @endspecial(91.5.1)61
b(De\014nition)53 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g
(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(662)586
3972 y @beginspecial @setspecial @endspecial(91.5.2)61
b(The)30 b(Extended)g(Syn)m(tax)g(Rules)k(.)46 b(.)g(.)f(.)h(.)g(.)f(.)
h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)h(664)241 4340 y @beginspecial
@setspecial @endspecial FR(IV)111 b(App)s(endix)2104
b(667)241 4593 y @beginspecial @setspecial @endspecial
FN(A)57 b(Reserv)m(ed)36 b(Iden)m(ti\014ers)1783 b(669)241
4847 y @beginspecial @setspecial @endspecial(Index)2573
b(671)p eop
%%Page: 28 28
28 27 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(28)2383 b FM(CONTENTS)p eop
%%Page: 29 29
29 28 bop 241 299 a @beginspecial @setspecial @endspecial
1483 x @beginspecial @setspecial @endspecial 1479 2040
a FI(P)-5 b(art)65 b(I)461 2505 y FT(REDUCE)77 b(User's)e(Man)-6
b(ual)1690 5187 y FQ(29)p eop
%%Page: 30 30
30 29 bop 664 299 a @beginspecial @setspecial @endspecial
eop
%%Page: 31 31
31 30 bop 241 299 a @beginspecial @setspecial @endspecial
2898 w FQ(31)1234 2036 y FT(REDUCE)1226 2266 y FS(User's)52
b(Man)l(ual)1342 2474 y(V)-13 b(ersion)52 b(3.7)1279
2940 y FR(An)m(thon)m(y)37 b(C.)h(Hearn)1132 3056 y(San)m(ta)g(Monica,)
g(CA,)f(USA)1141 3282 y(Email:)48 b(reduce@rand.org)1447
3748 y(Marc)m(h)38 b(1999)p eop
%%Page: 32 32
32 31 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(32)664 2518 y(Cop)m(yrigh)m(t)1116 2515 y(c)1091 2518
y FP(\015)p FQ(1999)32 b(An)m(thon)m(y)f(C.)f(Hearn.)41
b(All)29 b(righ)m(ts)h(reserv)m(ed.)664 2744 y(Registered)e(system)h
(holders)d(ma)m(y)j(repro)s(duce)e(all)g(or)i(an)m(y)f(part)g(of)g
(this)g(publication)664 2857 y(for)42 b(in)m(ternal)f(purp)s(oses,)j
(pro)m(vided)d(that)i(the)f(source)h(of)f(the)h(material)e(is)h
(clearly)664 2970 y(ac)m(kno)m(wledged,)32 b(and)d(the)i(cop)m(yrigh)m
(t)g(notice)f(is)g(retained.)p eop
%%Page: 33 33
33 32 bop 241 299 a @beginspecial @setspecial @endspecial
970 x FT(Abstract)241 1764 y FQ(This)37 b(do)s(cumen)m(t)j(pro)m(vides)
e(the)h(user)g(with)f(a)i(description)d(of)j(the)g(algebraic)f(pro-)241
1877 y(gramming)29 b(system)i(REDUCE.)f(The)g(capabilities)e(of)j(this)
e(system)i(include:)241 1982 y @beginspecial @setspecial
@endspecial 352 2114 a(1.)46 b(expansion)29 b(and)h(ordering)f(of)i(p)s
(olynomials)c(and)j(rational)g(functions,)241 2169 y
@beginspecial @setspecial @endspecial 352 2302 a(2.)46
b(substitutions)28 b(and)i(pattern)g(matc)m(hing)h(in)e(a)h(wide)g(v)-5
b(ariet)m(y)30 b(of)h(forms,)241 2357 y @beginspecial
@setspecial @endspecial 352 2490 a(3.)46 b(automatic)31
b(and)f(user)g(con)m(trolled)g(simpli\014cation)d(of)j(expressions,)241
2545 y @beginspecial @setspecial @endspecial 352 2677
a(4.)46 b(calculations)29 b(with)h(sym)m(b)s(olic)e(matrices,)241
2732 y @beginspecial @setspecial @endspecial 352 2865
a(5.)46 b(arbitrary)29 b(precision)g(in)m(teger)h(and)g(real)g
(arithmetic,)241 2920 y @beginspecial @setspecial @endspecial
352 3053 a(6.)46 b(facilities)29 b(for)h(de\014ning)e(new)i(functions)f
(and)h(extending)f(program)i(syn)m(tax,)241 3108 y @beginspecial
@setspecial @endspecial 352 3240 a(7.)46 b(analytic)30
b(di\013eren)m(tiation)f(and)h(in)m(tegration,)241 3295
y @beginspecial @setspecial @endspecial 352 3428 a(8.)46
b(factorization)31 b(of)g(p)s(olynomials,)241 3483 y
@beginspecial @setspecial @endspecial 352 3615 a(9.)46
b(facilities)29 b(for)h(the)g(solution)f(of)i(a)g(v)-5
b(ariet)m(y)30 b(of)h(algebraic)f(equations,)241 3670
y @beginspecial @setspecial @endspecial 306 3803 a(10.)47
b(facilities)29 b(for)h(the)g(output)g(of)h(expressions)e(in)g(a)i(v)-5
b(ariet)m(y)30 b(of)h(formats,)241 3858 y @beginspecial
@setspecial @endspecial 306 3991 a(11.)47 b(facilities)29
b(for)h(generating)g(n)m(umerical)f(programs)h(from)g(sym)m(b)s(olic)f
(input,)241 4046 y @beginspecial @setspecial @endspecial
306 4178 a(12.)47 b(Dirac)31 b(matrix)e(calculations)h(of)g(in)m
(terest)h(to)g(high)e(energy)i(ph)m(ysicists.)1690 5187
y(33)p eop
%%Page: 34 34
34 33 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(34)p eop
%%Page: 35 35
35 34 bop 241 299 a @beginspecial @setspecial @endspecial
970 x FT(Ac)-6 b(kno)g(wledgmen)g(t)241 1764 y FQ(The)41
b(pro)s(duction)f(of)j(this)e(v)m(ersion)g(of)i(the)f(man)m(ual)f(has)h
(b)s(een)g(the)g(result)f(of)h(the)241 1877 y(con)m(tributions)27
b(of)h(a)h(large)g(n)m(um)m(b)s(er)e(of)h(individuals)c(who)k(ha)m(v)m
(e)i(tak)m(en)f(the)g(time)f(and)241 1990 y(e\013ort)35
b(to)g(suggest)h(impro)m(v)m(emen)m(ts)f(to)g(previous)e(v)m(ersions,)i
(and)f(to)h(draft)g(new)f(sec-)241 2103 y(tions.)77 b(P)m(articular)42
b(thanks)g(are)i(due)e(to)h(Gerry)g(Ra)m(yna,)k(who)42
b(pro)m(vided)g(a)h(draft)241 2216 y(rewrite)26 b(of)g(most)h(of)g(the)
g(\014rst)e(half)h(of)h(the)f(man)m(ual.)39 b(Other)26
b(p)s(eople)g(who)g(ha)m(v)m(e)h(made)241 2329 y(signi\014can)m(t)k
(con)m(tributions)g(ha)m(v)m(e)i(included)d(John)h(Fitc)m(h,)i(Martin)f
(Griss,)g(Stan)g(Ka-)241 2441 y(men)m(y)-8 b(,)25 b(Jed)d(Marti,)i
(Herb)s(ert)e(Melenk,)i(Don)f(Morrison,)g(Arth)m(ur)e(Norman,)k(Eb)s
(erhard)241 2554 y(Sc)m(hr)s(\177)-48 b(ufer,)31 b(Larry)g(Sew)m(ard)h
(and)f(W)-8 b(alter)33 b(Tietze.)46 b(Finally)-8 b(,)31
b(Ric)m(hard)g(Hitt)h(pro)s(duced)241 2667 y(a)i(T)371
2687 y(E)421 2667 y(X)f(v)m(ersion)g(of)h(the)g(REDUCE)f(3.3)i(man)m
(ual,)f(whic)m(h)e(has)i(b)s(een)f(a)h(useful)d(guide)241
2780 y(for)f(the)g(pro)s(duction)f(of)h(the)h(L)1283
2763 y FO(A)1322 2780 y FQ(T)1373 2800 y(E)1423 2780
y(X)g(v)m(ersion)f(of)g(this)f(man)m(ual.)1690 5187 y(35)p
eop
%%Page: 36 36
36 35 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(36)p eop
%%Page: 37 37
37 36 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(1)241 1693 y FT(In)-6 b(tro)6 b(ductory)78 b(Information)241
2187 y FQ(REDUCE)36 b(is)f(a)i(system)f(for)h(carrying)e(out)i
(algebraic)f(op)s(erations)f(accurately)-8 b(,)40 b(no)241
2300 y(matter)d(ho)m(w)f(complicated)f(the)i(expressions)d(b)s(ecome.)
59 b(It)36 b(can)g(manipulate)f(p)s(oly-)241 2413 y(nomials)c(in)g(a)j
(v)-5 b(ariet)m(y)33 b(of)g(forms,)g(b)s(oth)f(expanding)f(and)h
(factoring)h(them,)h(and)e(ex-)241 2526 y(tract)39 b(v)-5
b(arious)37 b(parts)h(of)g(them)g(as)g(required.)62 b(REDUCE)37
b(can)i(also)f(do)f(di\013eren)m(ti-)241 2639 y(ation)k(and)g(in)m
(tegration,)j(but)d(w)m(e)h(shall)e(only)g(sho)m(w)h(trivial)f
(examples)h(of)g(this)g(in)241 2752 y(this)26 b(in)m(tro)s(duction.)38
b(Other)26 b(topics)h(not)g(considered)f(include)f(the)j(use)f(of)g
(arra)m(ys,)h(the)241 2865 y(de\014nition)f(of)j(pro)s(cedures)f(and)g
(op)s(erators,)i(the)f(sp)s(eci\014c)e(routines)h(for)h(high)e(energy)
241 2978 y(ph)m(ysics)j(calculations,)i(the)g(use)g(of)g(\014les)f(to)h
(eliminate)f(rep)s(etitious)f(t)m(yping)h(and)h(for)241
3091 y(sa)m(ving)d(results,)f(and)h(the)h(editing)e(of)h(the)h(input)d
(text.)241 3253 y(Also)40 b(not)h(considered)f(in)f(an)m(y)j(detail)e
(in)f(this)h(in)m(tro)s(duction)f(are)i(the)g(man)m(y)g(opt-)241
3366 y(ions)28 b(that)h(are)h(a)m(v)-5 b(ailable)28 b(for)h(v)-5
b(arying)28 b(computational)h(pro)s(cedures,)f(output)h(forms,)241
3479 y(n)m(um)m(b)s(er)g(systems)h(used,)g(and)g(so)g(on.)241
3642 y(REDUCE)44 b(is)g(designed)f(to)j(b)s(e)e(an)g(in)m(teractiv)m(e)
i(system,)i(so)d(that)g(the)g(user)f(can)241 3755 y(input)25
b(an)h(algebraic)h(expression)e(and)h(see)i(its)e(v)-5
b(alue)26 b(b)s(efore)h(mo)m(ving)f(on)h(to)g(the)g(next)241
3868 y(calculation.)59 b(F)-8 b(or)37 b(those)h(systems)e(that)i(do)e
(not)h(supp)s(ort)e(in)m(teractiv)m(e)j(use,)g(or)f(for)241
3981 y(those)c(calculations,)g(esp)s(ecially)e(long)h(ones,)i(for)f
(whic)m(h)e(a)i(standard)f(script)g(can)h(b)s(e)241 4094
y(de\014ned,)28 b(REDUCE)g(can)h(also)g(b)s(e)f(used)f(in)h(batc)m(h)h
(mo)s(de.)40 b(In)27 b(this)h(case,)i(a)f(sequence)241
4207 y(of)35 b(commands)g(can)g(b)s(e)g(giv)m(en)g(to)h(REDUCE)f(and)g
(results)e(obtained)i(without)f(an)m(y)241 4319 y(user)29
b(in)m(teraction)i(during)d(the)i(computation.)241 4469
y(In)35 b(this)g(in)m(tro)s(duction,)h(w)m(e)g(shall)e(limit)g(ourselv)
m(es)i(to)h(the)f(in)m(teractiv)m(e)h(use)e(of)h(RE-)241
4568 y(DUCE,)28 b(since)g(this)f(illustrates)g(most)h(completely)g(the)
h(capabilities)d(of)j(the)f(system.)241 4668 y(When)i(REDUCE)g(is)g
(called,)f(it)h(b)s(egins)f(b)m(y)h(prin)m(ting)f(a)h(banner)g(message)
h(lik)m(e:)459 4874 y FH(REDUCE)41 b(3.7,)h(15-Jan-99)e(...)1690
5187 y FQ(37)p eop
%%Page: 38 38
38 37 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(38)793 b FM(CHAPTER)30 b(1.)71 b(INTR)m(ODUCTOR)-8
b(Y)30 b(INF)m(ORMA)-8 b(TION)664 555 y FQ(where)25 b(the)g(v)m(ersion)
f(n)m(um)m(b)s(er)g(and)g(the)h(system)g(release)h(date)f(will)e(c)m
(hange)j(from)e(time)664 655 y(to)31 b(time.)41 b(It)30
b(then)g(prompts)g(the)g(user)g(for)g(input)e(b)m(y:)882
861 y FH(1:)664 1067 y FQ(Y)-8 b(ou)43 b(can)f(no)m(w)g(t)m(yp)s(e)g(a)
h(REDUCE)f(statemen)m(t,)47 b(terminated)41 b(b)m(y)h(a)h(semicolon)e
(to)664 1166 y(indicate)30 b(the)g(end)g(of)g(the)h(expression,)e(for)i
(example:)882 1372 y FH(\(x+y+z\)^2;)664 1597 y FQ(This)23
b(expression)g(w)m(ould)g(normally)g(b)s(e)g(follo)m(w)m(ed)i(b)m(y)f
(another)g(c)m(haracter)i(\(a)p 3340 1508 314 4 v 3340
1621 4 113 v 54 w FG(Return)p 3650 1621 V 3340 1624 314
4 v 664 1696 a FQ(on)34 b(an)f(ASCI)s(I)f(k)m(eyb)s(oard\))h(to)i(\\w)m
(ak)m(e)g(up")e(the)h(system,)g(whic)m(h)e(w)m(ould)h(then)g(input)664
1796 y(the)e(expression,)e(ev)-5 b(aluate)31 b(it,)f(and)g(return)f
(the)i(result:)969 2002 y FH(2)872 b(2)522 b(2)926 2101
y(X)86 b(+)44 b(2*X*Y)d(+)i(2*X*Z)f(+)h(Y)87 b(+)43 b(2*Y*Z)e(+)j(Z)664
2320 y FQ(Let)30 b(us)e(review)g(this)g(simple)f(example)i(to)g(learn)f
(a)i(little)d(more)j(ab)s(out)e(the)h(w)m(a)m(y)h(that)664
2433 y(REDUCE)37 b(w)m(orks.)61 b(First,)38 b(w)m(e)g(note)f(that)h
(REDUCE)f(deals)f(with)g(v)-5 b(ariables,)38 b(and)664
2546 y(constan)m(ts)23 b(lik)m(e)f(other)g(computer)g(languages,)j(but)
c(that)i(in)e(ev)-5 b(aluating)22 b(the)g(former,)i(a)664
2659 y(v)-5 b(ariable)21 b(can)g(stand)g(for)h(itself.)36
b(Expression)20 b(ev)-5 b(aluation)21 b(normally)f(follo)m(ws)h(the)g
(rules)664 2772 y(of)33 b(high)e(sc)m(ho)s(ol)i(algebra,)g(so)g(the)f
(only)g(surprise)e(in)h(the)i(ab)s(o)m(v)m(e)h(example)e(migh)m(t)h(b)s
(e)664 2885 y(that)28 b(the)g(expression)e(w)m(as)i(expanded.)39
b(REDUCE)28 b(normally)e(expands)g(expressions)664 2998
y(where)k(p)s(ossible,)e(collecting)i(lik)m(e)f(terms)h(and)g(ordering)
f(the)h(v)-5 b(ariables)29 b(in)g(a)h(sp)s(eci\014c)664
3111 y(manner.)60 b(Ho)m(w)m(ev)m(er,)41 b(expansion,)c(ordering)f(of)h
(v)-5 b(ariables,)38 b(format)f(of)g(output)g(and)664
3224 y(so)32 b(on)g(is)e(under)h(con)m(trol)h(of)g(the)f(user,)h(and)f
(v)-5 b(arious)31 b(declarations)g(are)h(a)m(v)-5 b(ailable)31
b(to)664 3337 y(manipulate)e(these.)664 3499 y(Another)c(c)m
(haracteristic)g(of)f(the)h(ab)s(o)m(v)m(e)g(example)g(is)e(the)i(use)f
(of)g(lo)m(w)m(er)h(case)h(on)e(input)664 3612 y(and)i(upp)s(er)f(case)
i(on)f(output.)40 b(In)25 b(fact,)k(input)24 b(ma)m(y)j(b)s(e)f(in)f
(either)h(mo)s(de,)h(but)f(output)664 3725 y(is)33 b(usually)e(in)h(lo)
m(w)m(er)h(case.)51 b(T)-8 b(o)34 b(mak)m(e)h(the)e(di\013erence)g(b)s
(et)m(w)m(een)h(input)d(and)i(output)664 3838 y(more)23
b(distinct)e(in)g(this)h(man)m(ual,)i(all)d(expressions)h(in)m(tended)f
(for)i(input)d(will)g(b)s(e)j(sho)m(wn)664 3951 y(in)34
b(lo)m(w)m(er)i(case)g(and)e(output)h(in)f(upp)s(er)f(case.)57
b(Ho)m(w)m(ev)m(er,)38 b(for)d(st)m(ylistic)g(reasons,)h(w)m(e)664
4064 y(represen)m(t)31 b(all)e(single)g(iden)m(ti\014ers)f(in)h(the)i
(text)g(in)e(upp)s(er)g(case.)664 4227 y(Finally)-8 b(,)29
b(the)i(n)m(umerical)e(prompt)g(can)i(b)s(e)f(used)f(to)i(reference)g
(the)g(result)e(in)g(a)i(later)664 4340 y(computation.)664
4489 y(As)g(a)f(further)f(illustration)f(of)i(the)h(system)f(features,)
h(the)g(user)f(should)e(try:)882 4695 y FH(for)42 b(i:=)h(1:40)f
(product)e(i;)664 4901 y FQ(The)30 b(result)f(in)g(this)h(case)h(is)e
(the)i(v)-5 b(alue)30 b(of)g(40!,)p eop
%%Page: 39 39
39 38 bop 241 299 a @beginspecial @setspecial @endspecial
2898 w FQ(39)459 555 y FH(815915283247897)o(734)o(34)o(561)o(12)o(695)o
(96)o(11)o(589)o(42)o(720)o(00)o(00)o(000)o(0)241 761
y FQ(Y)-8 b(ou)31 b(can)f(also)h(get)g(the)g(same)f(result)g(b)m(y)g
(sa)m(ying)459 967 y FH(factorial)40 b(40;)241 1186 y
FQ(Since)24 b(w)m(e)h(w)m(an)m(t)h(exact)g(results)e(in)f(algebraic)i
(calculations,)g(it)f(is)g(essen)m(tial)h(that)g(in)m(te-)241
1299 y(ger)h(arithmetic)f(b)s(e)h(p)s(erformed)e(to)j(arbitrary)e
(precision,)g(as)h(in)f(the)h(ab)s(o)m(v)m(e)i(example.)241
1412 y(F)-8 b(urthermore,)28 b(the)f FJ(FOR)g FQ(statemen)m(t)i(in)c
(the)j(ab)s(o)m(v)m(e)g(is)f(illustrativ)m(e)e(of)i(a)h(whole)e(range)
241 1525 y(of)h(com)m(bining)e(forms)i(that)g(REDUCE)g(supp)s(orts)e
(for)i(the)g(con)m(v)m(enience)i(of)e(the)g(user.)241
1688 y(Among)k(the)h(man)m(y)f(options)g(in)f(REDUCE)h(is)f(the)h(use)g
(of)h(other)f(n)m(um)m(b)s(er)f(systems,)241 1801 y(suc)m(h)d(as)i(m)m
(ultiple)c(precision)h(\015oating)i(p)s(oin)m(t)f(with)g(an)m(y)h(sp)s
(eci\014ed)e(n)m(um)m(b)s(er)h(of)h(digits)241 1913 y(|)i(of)h(use)f
(if)f(roundo\013)g(in,)h(sa)m(y)-8 b(,)31 b(the)g(100)1665
1880 y FF(th)1767 1913 y FQ(digit)e(is)g(all)h(that)h(can)f(b)s(e)g
(tolerated.)241 2063 y(In)35 b(man)m(y)h(cases,)j(it)d(is)f(necessary)i
(to)f(use)g(the)h(results)e(of)h(one)g(calculation)g(in)e(suc-)241
2163 y(ceeding)27 b(calculations.)38 b(One)27 b(w)m(a)m(y)h(to)f(do)g
(this)f(is)g(via)h(an)g(assignmen)m(t)f(for)h(a)g(v)-5
b(ariable,)241 2262 y(suc)m(h)30 b(as)459 2468 y FH(u)43
b(:=)g(\(x+y+z\)^2;)241 2687 y FQ(If)29 b(w)m(e)h(no)m(w)g(use)f
FJ(U)g FQ(in)g(later)g(calculations,)h(the)f(v)-5 b(alue)30
b(of)f(the)h(righ)m(t-hand)f(side)f(of)i(the)241 2800
y(ab)s(o)m(v)m(e)h(will)d(b)s(e)i(used.)241 2963 y(The)44
b(results)f(of)i(a)f(giv)m(en)h(calculation)f(are)g(also)h(sa)m(v)m(ed)
g(in)f(the)g(v)-5 b(ariable)44 b FJ(WS)f FQ(\(for)241
3076 y(W)-8 b(orkSpace\),)30 b(so)f(this)f(can)h(b)s(e)f(used)g(in)f
(the)i(next)g(calculation)f(for)g(further)g(pro)s(cess-)241
3189 y(ing.)241 3338 y(F)-8 b(or)31 b(example,)f(the)h(expression)459
3544 y FH(df\(ws,x\);)241 3750 y FQ(follo)m(wing)d(the)i(previous)e(ev)
-5 b(aluation)29 b(will)e(calculate)i(the)h(deriv)-5
b(ativ)m(e)29 b(of)h FJ(\(x+y+z\)^2)241 3850 y FQ(with)f(resp)s(ect)h
(to)h FJ(X)p FQ(.)g(Alternativ)m(ely)-8 b(,)459 4055
y FH(int\(ws,y\);)241 4275 y FQ(w)m(ould)29 b(calculate)i(the)f(in)m
(tegral)g(of)h(the)f(same)h(expression)e(with)g(resp)s(ect)i(to)g(y)-8
b(.)241 4424 y(REDUCE)30 b(is)f(also)i(capable)f(of)h(handling)c(sym)m
(b)s(olic)i(matrices.)41 b(F)-8 b(or)31 b(example,)459
4630 y FH(matrix)41 b(m\(2,2\);)241 4836 y FQ(declares)30
b(m)g(to)h(b)s(e)f(a)h(t)m(w)m(o)g(b)m(y)g(t)m(w)m(o)g(matrix,)f(and)p
eop
%%Page: 40 40
40 39 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(40)793 b FM(CHAPTER)30 b(1.)71 b(INTR)m(ODUCTOR)-8
b(Y)30 b(INF)m(ORMA)-8 b(TION)882 555 y FH(m)43 b(:=)g
(mat\(\(a,b\),\(c,d\)\))o(;)664 774 y FQ(giv)m(es)d(its)f(elemen)m(ts)h
(v)-5 b(alues.)67 b(Expressions)38 b(that)i(include)e
FJ(M)h FQ(and)g(mak)m(e)h(algebraic)664 887 y(sense)32
b(ma)m(y)g(no)m(w)g(b)s(e)f(ev)-5 b(aluated,)33 b(suc)m(h)e(as)h
FJ(1/m)f FQ(to)i(giv)m(e)f(the)g(in)m(v)m(erse,)g FJ(2*m)47
b(-)g(u*m^2)664 1000 y FQ(to)31 b(giv)m(e)g(us)f(another)g(matrix)g
(and)g FJ(det\(m\))f FQ(to)i(giv)m(e)g(us)e(the)i(determinan)m(t)f(of)g
FJ(M)p FQ(.)664 1150 y(REDUCE)i(has)f(a)h(wide)f(range)h(of)f
(substitution)f(capabilities.)42 b(The)31 b(system)h(kno)m(ws)664
1249 y(ab)s(out)22 b(elemen)m(tary)h(functions,)g(but)f(do)s(es)g(not)g
(automatically)h(in)m(v)m(ok)m(e)g(man)m(y)f(of)h(their)664
1349 y(w)m(ell-kno)m(wn)33 b(prop)s(erties.)48 b(F)-8
b(or)35 b(example,)f(pro)s(ducts)e(of)i(trigonometrical)f(functions)664
1449 y(are)i(not)f(con)m(v)m(erted)h(automatically)f(in)m(to)g(m)m
(ultiple)e(angle)i(expressions,)f(but)h(if)f(the)664
1548 y(user)d(w)m(an)m(ts)h(this,)e(he)i(can)f(sa)m(y)-8
b(,)32 b(for)e(example:)882 1754 y FH(\(sin\(a+b\)+cos\(a+)o(b\)\))o
(*\()o(sin)o(\(a)o(-b\))o(-c)o(os)o(\(a-)o(b\))o(\))1056
1854 y(where)42 b(cos\(~x\)*cos\(~y\))37 b(=)44 b(\(cos\(x+y\)+cos\(x)o
(-y)o(\)\)/)o(2,)1318 1953 y(cos\(~x\)*sin\(~y\))37 b(=)44
b(\(sin\(x+y\)-sin\(x)o(-y)o(\)\)/)o(2,)1318 2053 y
(sin\(~x\)*sin\(~y\))37 b(=)44 b(\(cos\(x-y\)-cos\(x)o(+y)o(\)\)/)o(2;)
664 2259 y FQ(where)c(the)h(tilde)e(in)h(fron)m(t)g(of)h(the)g(v)-5
b(ariables)39 b FJ(X)i FQ(and)f FJ(Y)g FQ(indicates)f(that)j(the)e
(rules)664 2358 y(apply)29 b(for)h(all)g(v)-5 b(alues)29
b(of)i(those)g(v)-5 b(ariables.)39 b(The)30 b(result)f(of)i(this)e
(calculation)h(is)1013 2564 y FH(-\(COS\(2*A\))39 b(+)k(SIN\(2*B\)\))
664 2784 y FQ(See)22 b(also)f(the)g(user-con)m(tributed)f(pac)m(k)-5
b(ages)24 b(ASSIST)19 b(\(c)m(hapter)j @beginspecial
@setspecial @endspecial(23)q(\),)i(CAMAL)d(\(c)m(hap-)664
2896 y(ter)31 b @beginspecial @setspecial @endspecial(28)q(\))f(and)g
(TRIGSIMP)g(\(c)m(hapter)h @beginspecial @setspecial
@endspecial(85)q(\).)664 3059 y(Another)k(v)m(ery)g(commonly)f(used)g
(capabilit)m(y)f(of)i(the)g(system,)h(and)e(an)h(illustration)664
3172 y(of)44 b(one)f(of)h(the)g(man)m(y)f(output)g(mo)s(des)g(of)h
(REDUCE,)f(is)g(the)g(abilit)m(y)f(to)i(output)664 3285
y(results)31 b(in)g(a)i(F)m(OR)-8 b(TRAN)33 b(compatible)f(form.)46
b(Suc)m(h)31 b(results)g(can)i(then)f(b)s(e)g(used)f(in)664
3398 y(a)k(F)m(OR)-8 b(TRAN)36 b(based)e(n)m(umerical)f(calculation.)54
b(This)32 b(is)i(particularly)f(useful)g(as)i(a)664 3511
y(w)m(a)m(y)40 b(of)f(generating)h(algebraic)e(form)m(ulas)g(to)i(b)s
(e)f(used)f(as)h(the)g(basis)f(of)h(extensiv)m(e)664
3624 y(n)m(umerical)29 b(calculations.)664 3773 y(F)-8
b(or)31 b(example,)g(the)f(statemen)m(ts)882 3979 y FH(on)43
b(fort;)882 4079 y(df\(log\(x\)*\(sin\(x)o(\)+c)o(os)o(\(x\))o(\)/)o
(sqr)o(t\()o(x\))o(,x,)o(2\))o(;)664 4285 y FQ(will)28
b(result)h(in)g(the)i(output)926 4490 y FH(ANS=\(-4.*LOG\(X\))o(*CO)o
(S\()o(X\)*)o(X*)o(*2-)o(4.)o(*L)o(OG\()o(X\))o(*CO)o(S\()o(X\))o(*X+)o
(3.)o(*)926 4590 y(.)43 b(LOG\(X\)*COS\(X\)-4.)o(*L)o(OG\()o(X\))o(*SI)
o(N\()o(X\))o(*X*)o(*2)o(+4.)o(*L)o(OG)o(\(X\))o(*)926
4690 y(.)g(SIN\(X\)*X+3.*LOG\()o(X\))o(*SI)o(N\()o(X\)+)o(8.)o(*C)o
(OS\()o(X\))o(*X-)o(8.)o(*C)o(OS\()o(X\))o(-8.)926 4789
y(.)g(*SIN\(X\)*X-8.*SIN)o(\(X)o(\)\)/)o(\(4)o(.*S)o(QR)o(T\()o(X\)*)o
(X*)o(*2\))p eop
%%Page: 41 41
41 40 bop 241 299 a @beginspecial @setspecial @endspecial
2898 w FQ(41)241 555 y(These)37 b(algebraic)g(manipulations)e
(illustrate)h(the)h(algebraic)h(mo)s(de)f(of)g(REDUCE.)241
655 y(REDUCE)29 b(is)f(based)i(on)f(Standard)f(Lisp.)39
b(A)29 b(sym)m(b)s(olic)f(mo)s(de)h(is)g(also)g(a)m(v)-5
b(ailable)29 b(for)241 754 y(executing)h(Lisp)e(statemen)m(ts.)42
b(These)30 b(statemen)m(ts)h(follo)m(w)e(the)h(syn)m(tax)h(of)f(Lisp,)e
(e.g.)328 960 y FH(symbolic)40 b(car)j('\(a\);)241 1180
y FQ(Comm)m(unication)29 b(b)s(et)m(w)m(een)i(the)f(t)m(w)m(o)i(mo)s
(des)e(is)f(p)s(ossible.)241 1342 y(With)j(this)g(simple)g(in)m(tro)s
(duction,)g(y)m(ou)h(are)h(no)m(w)f(in)f(a)h(p)s(osition)f(to)h(study)g
(the)g(ma-)241 1455 y(terial)e(in)f(the)h(full)f(REDUCE)h(man)m(ual)g
(in)f(order)h(to)h(learn)f(just)g(ho)m(w)g(extensiv)m(e)h(the)241
1568 y(range)g(of)h(facilities)d(really)h(is.)45 b(If)32
b(further)e(tutorial)i(material)f(is)g(desired,)h(the)g(sev)m(en)241
1681 y(REDUCE)37 b(In)m(teractiv)m(e)i(Lessons)f(b)m(y)f(Da)m(vid)h(R.)
g(Stoutem)m(y)m(er)h(are)f(recommended.)241 1794 y(These)30
b(are)h(normally)d(distributed)g(with)h(the)h(system.)p
eop
%%Page: 42 42
42 41 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(42)793 b FM(CHAPTER)30 b(1.)71 b(INTR)m(ODUCTOR)-8
b(Y)30 b(INF)m(ORMA)-8 b(TION)p eop
%%Page: 43 43
43 42 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(2)241 1693 y FT(Structure)78 b(of)g(Programs)241 2187
y FQ(A)38 b(REDUCE)g(program)g(consists)f(of)h(a)h(set)f(of)g
(functional)f(commands)g(whic)m(h)g(are)241 2300 y(ev)-5
b(aluated)26 b(sequen)m(tially)g(b)m(y)g(the)h(computer.)39
b(These)26 b(commands)g(are)h(built)e(up)g(from)241 2413
y(declarations,)46 b(statemen)m(ts)g(and)d(expressions.)79
b(Suc)m(h)43 b(en)m(tities)g(are)h(comp)s(osed)f(of)241
2526 y(sequences)32 b(of)g(n)m(um)m(b)s(ers,)g(v)-5 b(ariables,)31
b(op)s(erators,)i(strings,)f(reserv)m(ed)g(w)m(ords)g(and)f(de-)241
2639 y(limiters)f(\(suc)m(h)j(as)g(commas)g(and)f(paren)m(theses\),)j
(whic)m(h)c(in)h(turn)f(are)i(sequences)g(of)241 2752
y(basic)d(c)m(haracters.)241 2888 y @beginspecial @setspecial
@endspecial 199 x FE(2.1)135 b(The)45 b(REDUCE)h(Standard)f(Character)g
(Set)241 3340 y FQ(The)c(basic)h(c)m(haracters)h(whic)m(h)e(are)i(used)
e(to)i(build)c(REDUCE)j(sym)m(b)s(ols)f(are)h(the)241
3452 y(follo)m(wing:)241 3551 y @beginspecial @setspecial
@endspecial 352 3682 a(1.)k(The)30 b(26)h(letters)g FJ(a)f
FQ(through)f FJ(z)241 3736 y @beginspecial @setspecial
@endspecial 352 3867 a FQ(2.)46 b(The)30 b(10)h(decimal)e(digits)g
FJ(0)h FQ(through)g FJ(9)241 3920 y @beginspecial @setspecial
@endspecial 352 4051 a FQ(3.)46 b(The)24 b(sp)s(ecial)f(c)m(haracters)p
1371 4051 28 4 v 1404 4051 V 115 w(!)39 b(")25 b($)f(\045)g(')h(\()f
(\))h(*)g(+)f(,)h(-)g(.)38 b(/)25 b(:)38 b(;)26 b FL(<)e(>)g
FQ(=)g FP(f)h(g)f FL(<)p FQ(blank)p FL(>)241 4281 y FQ(With)37
b(the)h(exception)g(of)g(strings)f(and)g(c)m(haracters)i(preceded)f(b)m
(y)g(an)f(exclamation)241 4394 y(mark,)d(the)g(case)h(of)f(c)m
(haracters)h(is)e(ignored:)47 b(dep)s(ending)31 b(of)j(the)g
(underlying)d(LISP)241 4507 y(they)k(will)e(all)h(b)s(e)h(con)m(v)m
(erted)h(in)m(ternally)e(in)m(to)h(lo)m(w)m(er)g(case)i(or)e(upp)s(er)e
(case:)52 b FJ(ALPHA)p FQ(,)241 4620 y FJ(Alpha)32 b
FQ(and)g FJ(alpha)g FQ(represen)m(t)h(the)h(same)f(sym)m(b)s(ol.)48
b(Most)34 b(implemen)m(tations)e(allo)m(w)241 4733 y(y)m(ou)25
b(to)h(switc)m(h)f(this)f(con)m(v)m(ersion)i(o\013.)39
b(The)25 b(op)s(erating)f(instructions)g(for)h(a)g(particular)241
4846 y(implemen)m(tation)j(should)h(b)s(e)g(consulted)g(on)h(this)f(p)s
(oin)m(t.)40 b(F)-8 b(or)31 b(p)s(ortabilit)m(y)-8 b(,)29
b(w)m(e)h(shall)241 4959 y(limit)e(ourselv)m(es)i(to)h(the)g(standard)e
(c)m(haracter)j(set)f(in)e(this)g(exp)s(osition.)1690
5187 y(43)p eop
%%Page: 44 44
44 43 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(44)964 b FM(CHAPTER)30 b(2.)71 b(STR)m(UCTURE)29 b(OF)i(PR)m(OGRAMS)
664 464 y @beginspecial @setspecial @endspecial 91 x
FE(2.2)136 b(Num)l(b)t(ers)664 795 y FQ(There)26 b(are)h(sev)m(eral)g
(di\013eren)m(t)f(t)m(yp)s(es)h(of)g(n)m(um)m(b)s(ers)e(a)m(v)-5
b(ailable)26 b(in)f(REDUCE.)i(In)m(tegers)664 894 y(consist)h(of)h(a)g
(signed)e(or)i(unsigned)d(sequence)j(of)g(decimal)e(digits)g(written)h
(without)g(a)664 994 y(decimal)i(p)s(oin)m(t,)f(for)h(example:)1013
1200 y FH(-2,)42 b(5396,)g(+32)664 1419 y FQ(In)36 b(principle,)f
(there)i(is)f(no)g(practical)h(limit)d(on)j(the)g(n)m(um)m(b)s(er)e(of)
i(digits)e(p)s(ermitted)664 1532 y(as)e(exact)g(arithmetic)e(is)h(used)
f(in)g(most)h(implemen)m(tations.)44 b(\(Y)-8 b(ou)33
b(should)e(ho)m(w)m(ev)m(er)664 1645 y(c)m(hec)m(k)f(the)e(sp)s
(eci\014c)e(instructions)g(for)i(y)m(our)f(particular)g(system)h
(implemen)m(tation)e(to)664 1758 y(mak)m(e)34 b(sure)f(that)g(this)f
(is)g(true.\))49 b(F)-8 b(or)34 b(example,)g(if)e(y)m(ou)h(ask)g(for)g
(the)g(v)-5 b(alue)33 b(of)g(2)3507 1725 y FO(2000)664
1871 y FQ(y)m(ou)e(get)g(it)f(displa)m(y)m(ed)e(as)j(a)f(n)m(um)m(b)s
(er)f(of)h(603)i(decimal)d(digits,)g(taking)h(up)f(nine)g(lines)664
1984 y(of)37 b(output)f(on)h(an)g(in)m(teractiv)m(e)g(displa)m(y)-8
b(.)59 b(It)36 b(should)f(b)s(e)h(b)s(orne)g(in)f(mind)g(of)i(course)
664 2096 y(that)31 b(computations)f(with)f(suc)m(h)h(long)g(n)m(um)m(b)
s(ers)f(can)i(b)s(e)f(quite)g(slo)m(w.)664 2259 y(Num)m(b)s(ers)e(that)
i(aren't)g(in)m(tegers)f(are)h(usually)d(represen)m(ted)i(as)g(the)h
(quotien)m(t)f(of)h(t)m(w)m(o)664 2372 y(in)m(tegers,)h(in)e(lo)m(w)m
(est)i(terms:)41 b(that)31 b(is,)f(as)g(rational)g(n)m(um)m(b)s(ers.)
664 2535 y(In)39 b(essen)m(tially)g(all)f(v)m(ersions)h(of)h(REDUCE)f
(it)g(is)g(also)g(p)s(ossible)e(\(but)j(not)f(alw)m(a)m(ys)664
2648 y(desirable!\))k(to)32 b(ask)g(REDUCE)g(to)g(w)m(ork)f(with)g
(\015oating)g(p)s(oin)m(t)g(appro)m(ximations)f(to)664
2761 y(n)m(um)m(b)s(ers)35 b(again,)i(to)g(an)m(y)f(precision.)55
b(Suc)m(h)35 b(n)m(um)m(b)s(ers)g(are)h(called)f FD(r)-5
b(e)g(al)p FQ(.)58 b(They)36 b(can)664 2874 y(b)s(e)30
b(input)e(in)h(t)m(w)m(o)j(w)m(a)m(ys:)664 2978 y @beginspecial
@setspecial @endspecial 775 3111 a(1.)46 b(as)28 b(a)f(signed)f(or)h
(unsigned)e(sequence)j(of)f(an)m(y)g(n)m(um)m(b)s(er)f(of)h(decimal)g
(digits)e(with)891 3224 y(an)31 b(em)m(b)s(edded)e(or)h(trailing)f
(decimal)g(p)s(oin)m(t.)664 3279 y @beginspecial @setspecial
@endspecial 775 3412 a(2.)46 b(as)31 b(in)f(1.)42 b(follo)m(w)m(ed)30
b(b)m(y)h(a)g(decimal)e(exp)s(onen)m(t)i(whic)m(h)e(is)h(written)g(as)h
(the)g(letter)891 3524 y FJ(E)f FQ(follo)m(w)m(ed)g(b)m(y)h(a)g(signed)
e(or)h(unsigned)e(in)m(teger.)664 3762 y(e.g.)42 b FJ(32.)95
b(+32.0)46 b(0.32E2)29 b FQ(and)g FJ(320.E-1)g FQ(are)i(all)e(represen)
m(tations)h(of)h(32.)664 3925 y(The)g(declaration)f FJ(SCIENTIFIC)p
1808 3925 29 4 v 32 w(NOTATION)f FQ(con)m(trols)i(the)h(output)e
(format)i(of)f(\015oat-)664 4038 y(ing)38 b(p)s(oin)m(t)g(n)m(um)m(b)s
(ers.)64 b(A)m(t)40 b(the)f(default)f(settings,)j(an)m(y)e(n)m(um)m(b)s
(er)e(with)h(\014v)m(e)h(or)g(less)664 4150 y(digits)j(b)s(efore)h(the)
g(decimal)f(p)s(oin)m(t)g(is)h(prin)m(ted)e(in)h(a)i(\014xed-p)s(oin)m
(t)d(notation,)47 b(e.g.,)664 4263 y FJ(12345.6)p FQ(.)55
b(Num)m(b)s(ers)34 b(with)h(more)g(than)h(\014v)m(e)g(digits)e(are)i
(prin)m(ted)e(in)h(scien)m(ti\014c)g(no-)664 4376 y(tation,)41
b(e.g.,)i FJ(1.234567E+5)p FQ(.)62 b(Similarly)-8 b(,)38
b(b)m(y)h(default,)h(an)m(y)f(n)m(um)m(b)s(er)e(with)h(elev)m(en)664
4489 y(or)f(more)g(zeros)h(after)f(the)g(decimal)f(p)s(oin)m(t)g(is)g
(prin)m(ted)g(in)f(scien)m(ti\014c)i(notation.)60 b(T)-8
b(o)664 4602 y(c)m(hange)23 b(these)f(defaults,)g FJ(SCIENTIFIC)p
2025 4602 V 32 w(NOTATION)d FQ(can)j(b)s(e)f(used)f(in)h(one)g(of)h(t)m
(w)m(o)h(w)m(a)m(ys.)664 4715 y FJ(SCIENTIFIC)p 1150
4715 V 32 w(NOTATION)33 b FD(m)p FQ(;,)38 b(where)d FD(m)43
b FQ(is)35 b(a)h(p)s(ositiv)m(e)e(in)m(teger,)k(sets)e(the)g(prin)m
(ting)664 4828 y(format)29 b(so)g(that)g(a)g(n)m(um)m(b)s(er)e(with)g
(more)i(than)f FD(m)36 b FQ(digits)27 b(b)s(efore)h(the)h(decimal)f(p)s
(oin)m(t,)664 4941 y(or)i FD(m)36 b FQ(or)30 b(more)f(zeros)h(after)g
(the)g(decimal)e(p)s(oin)m(t,)h(is)g(prin)m(ted)f(in)g(scien)m(ti\014c)
g(notation.)p eop
%%Page: 45 45
45 44 bop 241 299 a @beginspecial @setspecial @endspecial
FM(2.3.)72 b(IDENTIFIERS)2083 b FQ(45)241 555 y FJ(SCIENTIFIC)p
727 555 29 4 v 31 w(NOTATION)25 b FP(f)p FD(m,n)p FP(g)p
FQ(,)k(with)c FD(m)34 b FQ(and)26 b FD(n)34 b FQ(b)s(oth)26
b(p)s(ositiv)m(e)f(in)m(tegers,)j(sets)f(the)241 668
y(format)i(so)f(that)i(a)e(n)m(um)m(b)s(er)g(with)f(more)i(than)f
FD(m)36 b FQ(digits)27 b(b)s(efore)h(the)h(decimal)e(p)s(oin)m(t,)241
781 y(or)j FD(n)38 b FQ(or)30 b(more)g(zeros)h(after)g(the)g(decimal)e
(p)s(oin)m(t)h(is)f(prin)m(ted)g(in)g(scien)m(ti\014c)h(notation.)241
944 y FD(CA)n(UTION:)k FQ(The)i(unsigned)f(part)h(of)g(an)m(y)h(n)m(um)
m(b)s(er)e(ma)m(y)i FD(not)46 b FQ(b)s(egin)35 b(with)g(a)i(dec-)241
1057 y(imal)c(p)s(oin)m(t,)i(as)g(this)f(causes)h(confusion)f(with)f
(the)i FJ(CONS)f FQ(\(.\))54 b(op)s(erator,)37 b(i.e.,)f(NOT)241
1170 y(ALLO)m(WED:)31 b FJ(.5)47 b(-.23)g(+.12)p FQ(;)29
b(use)h FJ(0.5)47 b(-0.23)g(+0.12)29 b FQ(instead.)241
1324 y @beginspecial @setspecial @endspecial 182 x FE(2.3)135
b(Iden)l(ti\014ers)241 1745 y FQ(Iden)m(ti\014ers)27
b(in)f(REDUCE)i(consist)g(of)g(one)h(or)f(more)g(alphan)m(umeric)e(c)m
(haracters)k(\(i.e.)241 1845 y(alphab)s(etic)j(letters)i(or)f(decimal)g
(digits\))f(the)i(\014rst)f(of)h(whic)m(h)e(m)m(ust)i(b)s(e)f(alphab)s
(etic.)241 1945 y(The)d(maxim)m(um)g(n)m(um)m(b)s(er)g(of)h(c)m
(haracters)h(allo)m(w)m(ed)f(is)f(implemen)m(tation)f(dep)s(enden)m(t,)
241 2044 y(although)39 b(t)m(w)m(en)m(t)m(y-four)j(is)d(p)s(ermitted)f
(in)h(most)h(implemen)m(tations.)68 b(In)39 b(addition,)241
2144 y(the)26 b(underscore)g(c)m(haracter)i(\()p 1278
2144 28 4 v 33 w(\))f(is)e(considered)g(a)i(letter)g(if)e(it)h(is)g
FD(within)h FQ(an)f(iden)m(ti\014er.)241 2243 y(F)-8
b(or)31 b(example,)589 2449 y FH(a)44 b(az)e(p1)h(q23p)86
b(a_very_long_var)o(iab)o(le)241 2655 y FQ(are)31 b(all)e(iden)m
(ti\014ers,)f(whereas)589 2861 y FH(_a)241 3080 y FQ(is)h(not.)241
3243 y(A)j(sequence)g(of)g(alphan)m(umeric)d(c)m(haracters)34
b(in)c(whic)m(h)h(the)g(\014rst)g(is)g(a)h(digit)f(is)g(in)m(ter-)241
3356 y(preted)k(as)g(a)h(pro)s(duct.)54 b(F)-8 b(or)35
b(example,)i FJ(2ab3c)c FQ(is)i(in)m(terpreted)f(as)i
FJ(2*ab3c)p FQ(.)53 b(There)241 3469 y(is)31 b(one)h(exception)g(to)h
(this:)42 b(If)32 b(the)g(\014rst)f(letter)h(after)g(a)h(digit)d(is)h
FJ(E)p FQ(,)h(the)g(system)g(will)241 3582 y(try)f(to)i(in)m(terpret)e
(that)h(part)g(of)g(the)g(sequence)g(as)g(a)g(real)f(n)m(um)m(b)s(er,)g
(whic)m(h)g(ma)m(y)h(fail)241 3695 y(in)39 b(some)i(cases.)73
b(F)-8 b(or)42 b(example,)h FJ(2E12)c FQ(is)h(the)h(real)f(n)m(um)m(b)s
(er)g(2)p FL(:)p FQ(0)28 b FP(\003)g FQ(10)2793 3662
y FO(12)2868 3695 y FQ(,)44 b FJ(2e3c)39 b FQ(is)241
3808 y(2000.0*C,)33 b(and)d FJ(2ebc)f FQ(giv)m(es)i(an)f(error.)241
3957 y(Sp)s(ecial)g(c)m(haracters,)j(suc)m(h)f(as)g FP(\000)p
FQ(,)g(*,)g(and)f(blank,)g(ma)m(y)h(b)s(e)g(used)e(in)h(iden)m
(ti\014ers)f(to)s(o,)241 4057 y(ev)m(en)37 b(as)g(the)f(\014rst)g(c)m
(haracter,)k(but)c(eac)m(h)h(m)m(ust)g(b)s(e)e(preceded)i(b)m(y)f(an)g
(exclamation)241 4156 y(mark)30 b(in)f(input.)39 b(F)-8
b(or)31 b(example:)589 4362 y FH(light!-years)170 b(d!*!*n)390
b(good!)41 b(morning)589 4462 y(!$sign)434 b(!5goldrings)241
4681 y FD(CA)n(UTION:)38 b FQ(Man)m(y)i(system)g(iden)m(ti\014ers)e(ha)
m(v)m(e)j(suc)m(h)e(sp)s(ecial)g(c)m(haracters)i(in)d(their)241
4794 y(names)32 b(\(esp)s(ecially)g(*)h(and)f(=\).)47
b(If)33 b(the)f(user)g(acciden)m(tally)h(pic)m(ks)f(the)h(name)f(of)h
(one)241 4907 y(of)d(them)f(for)h(his)e(o)m(wn)i(purp)s(oses)e(it)h(ma)
m(y)h(ha)m(v)m(e)h(catastrophic)f(consequences)g(for)g(his)p
eop
%%Page: 46 46
46 45 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(46)964 b FM(CHAPTER)30 b(2.)71 b(STR)m(UCTURE)29 b(OF)i(PR)m(OGRAMS)
664 555 y FQ(REDUCE)f(run.)40 b(Users)30 b(are)h(therefore)f(advised)g
(to)h(a)m(v)m(oid)g(suc)m(h)f(names.)664 718 y(Iden)m(ti\014ers)k(are)i
(used)e(as)i(v)-5 b(ariables,)35 b(lab)s(els)f(and)g(to)j(name)e(arra)m
(ys,)i(op)s(erators)f(and)664 831 y(pro)s(cedures.)664
1124 y FR(Restrictions)664 1346 y FQ(The)29 b(reserv)m(ed)g(w)m(ords)g
(listed)f(in)g(another)h(section)h(ma)m(y)g(not)f(b)s(e)g(used)f(as)i
(iden)m(ti\014ers.)664 1458 y(No)c(spaces)g(ma)m(y)h(app)s(ear)e
(within)e(an)i(iden)m(ti\014er,)g(and)g(an)h(iden)m(ti\014er)e(ma)m(y)i
(not)g(extend)664 1571 y(o)m(v)m(er)33 b(a)e(line)f(of)h(text.)44
b(\(Hyphenation)31 b(of)g(an)g(iden)m(ti\014er,)f(b)m(y)h(using)e(a)j
(reserv)m(ed)f(c)m(har-)664 1684 y(acter)26 b(as)f(a)g(h)m(yphen)e(b)s
(efore)h(an)h(end-of-line)e(c)m(haracter)j(is)e(p)s(ossible)e(in)i
(some)h(v)m(ersions)664 1797 y(of)31 b(REDUCE\).)664
1957 y @beginspecial @setspecial @endspecial 176 x FE(2.4)136
b(V)-11 b(ariables)664 2386 y FQ(Ev)m(ery)34 b(v)-5 b(ariable)32
b(is)h(named)g(b)m(y)g(an)h(iden)m(ti\014er,)f(and)g(is)f(giv)m(en)i(a)
g(sp)s(eci\014c)e(t)m(yp)s(e.)50 b(The)664 2499 y(t)m(yp)s(e)38
b(is)e(of)h(no)h(concern)f(to)h(the)g(ordinary)d(user.)61
b(Most)38 b(v)-5 b(ariables)36 b(are)i(allo)m(w)m(ed)f(to)664
2612 y(ha)m(v)m(e)f(the)f(default)e(t)m(yp)s(e,)j(called)e
FD(sc)-5 b(alar)p FQ(.)55 b(These)34 b(can)h(receiv)m(e,)i(as)d(v)-5
b(alues,)35 b(the)g(rep-)664 2725 y(resen)m(tation)h(of)f(an)m(y)h
(ordinary)d(algebraic)i(expression.)55 b(In)34 b(the)h(absence)h(of)g
(suc)m(h)f(a)664 2838 y(v)-5 b(alue,)30 b(they)h(stand)f(for)g
(themselv)m(es.)664 3131 y FR(Reserv)m(ed)38 b(V)-9 b(ariables)664
3352 y FQ(Sev)m(eral)34 b(v)-5 b(ariables)33 b(in)f(REDUCE)i(ha)m(v)m
(e)h(particular)d(prop)s(erties)g(whic)m(h)h(should)f(not)664
3465 y(b)s(e)e(c)m(hanged)h(b)m(y)f(the)h(user.)40 b(These)30
b(v)-5 b(ariables)29 b(include:)664 3728 y FJ(E)425 b
FQ(In)m(tended)54 b(to)i(represen)m(t)f(the)g(base)g(of)110
b(the)55 b(natural)f(logarithms.)1137 3841 y FJ(log\(e\))p
FQ(,)33 b(if)f(it)h(o)s(ccurs)h(in)e(an)h(expression,)g(is)g
(automatically)g(replaced)1137 3954 y(b)m(y)j(1.)59 b(If)36
b FJ(ROUNDED)e FQ(is)h(on,)j FJ(E)e FQ(is)f(replaced)h(b)m(y)g(the)h(v)
-5 b(alue)35 b(of)i(E)f(to)h(the)1137 4066 y(curren)m(t)30
b(degree)h(of)g(\015oating)f(p)s(oin)m(t)f(precision.)664
4254 y FJ(I)425 b FQ(In)m(tended)26 b(to)i(represen)m(t)f(the)g(square)
54 b(ro)s(ot)27 b(of)g FP(\000)p FQ(1.)40 b FJ(i^2)26
b FQ(is)g(replaced)g(b)m(y)1137 4367 y FP(\000)p FQ(1,)k(and)g
(appropriately)f(for)h(higher)e(p)s(o)m(w)m(ers)j(of)f
FJ(I)p FQ(.)g(This)e(applies)h(only)1137 4480 y(to)d(the)g(sym)m(b)s
(ol)e FJ(I)h FQ(used)f(on)h(the)h(top)g(lev)m(el,)g(not)f(as)h(a)g
(formal)e(parameter)1137 4593 y(in)h(a)h(pro)s(cedure,)g(a)g(lo)s(cal)f
(v)-5 b(ariable,)26 b(nor)f(in)g(the)h(con)m(text)i FJ(for)47
b(i:=)g(...)664 4780 y(INFINITY)89 b FQ(In)m(tended)30
b(to)i(represen)m(t)g FP(1)62 b FQ(in)30 b(limit)f(and)h(p)s(o)m(w)m
(er)h(series)g(calculations)1137 4893 y(for)d(example.)39
b(Note)30 b(ho)m(w)m(ev)m(er)f(that)g(the)f(curren)m(t)g(system)g(do)s
(es)g FD(not)37 b FQ(do)p eop
%%Page: 47 47
47 46 bop 241 299 a @beginspecial @setspecial @endspecial
FM(2.5.)72 b(STRINGS)2279 b FQ(47)713 555 y(prop)s(er)36
b(arithmetic)g(on)g FP(1)p FQ(.)59 b(F)-8 b(or)38 b(example,)g
FJ(infinity)45 b(+)j(infinity)713 668 y FQ(is)30 b FJ(2*infinity)p
FQ(.)241 843 y FJ(NIL)328 b FQ(In)24 b(REDUCE)g(\(algebraic)g(mo)s(de)f
(only\))h(tak)m(en)h(as)f(a)g(synon)m(ym)g(for)f(zero.)713
956 y(Therefore)31 b FJ(NIL)e FQ(cannot)i(b)s(e)f(used)f(as)i(a)g(v)-5
b(ariable.)241 1132 y FJ(PI)376 b FQ(In)m(tended)30 b(to)g(represen)m
(t)g(the)g(circular)58 b(constan)m(t.)42 b(With)29 b
FJ(ROUNDED)f FQ(on,)713 1245 y(it)i(is)g(replaced)g(b)m(y)g(the)g(v)-5
b(alue)30 b(of)h FL(\031)i FQ(to)e(the)g(curren)m(t)f(degree)h(of)g
(\015oating)713 1358 y(p)s(oin)m(t)f(precision.)241 1533
y FJ(T)424 b FQ(Should)32 b(not)i(b)s(e)f(used)f(as)i(a)g(formal)67
b(parameter)34 b(or)f(lo)s(cal)g(v)-5 b(ariable)33 b(in)713
1646 y(pro)s(cedures,)22 b(since)e(con\015ict)h(arises)f(with)f(the)i
(sym)m(b)s(olic)e(mo)s(de)h(meaning)713 1759 y(of)31
b(T)f(as)h FD(true)p FQ(.)241 1984 y(Other)j(reserv)m(ed)h(v)-5
b(ariables,)34 b(suc)m(h)g(as)h FJ(LOW)p 1749 1984 29
4 v 34 w(POW)p FQ(,)f(describ)s(ed)e(in)h(other)i(sections,)h(are)241
2097 y(listed)29 b(in)g(App)s(endix)e(A.)241 2260 y(Using)i(these)i
(reserv)m(ed)g(v)-5 b(ariables)29 b(inappropriately)e(will)h(lead)i(to)
h(errors.)241 2423 y(There)40 b(are)g(also)g(in)m(ternal)f(v)-5
b(ariables)39 b(used)h(b)m(y)g(REDUCE)g(that)h(ha)m(v)m(e)h(similar)37
b(re-)241 2536 y(strictions.)k(These)31 b(usually)d(ha)m(v)m(e)33
b(an)d(asterisk)h(in)f(their)g(names,)h(so)g(it)g(is)f(unlik)m(ely)e(a)
241 2649 y(casual)f(user)h(w)m(ould)e(use)i(one.)40 b(An)27
b(example)h(of)g(suc)m(h)f(a)h(v)-5 b(ariable)27 b(is)g
FJ(K!*)g FQ(used)g(in)f(the)241 2762 y(asymptotic)k(command)h(pac)m(k)
-5 b(age.)241 2924 y(Certain)22 b(w)m(ords)h(are)h(reserv)m(ed)g(in)e
(REDUCE.)i(They)f(ma)m(y)h(only)e(b)s(e)h(used)g(in)f(the)i(man-)241
3037 y(ner)33 b(in)m(tended.)50 b(A)33 b(list)g(of)h(these)g(is)f(giv)m
(en)g(in)g(the)h(section)f(\\Reserv)m(ed)i(Iden)m(ti\014ers".)241
3150 y(There)d(are,)i(of)f(course,)g(an)g(imp)s(ossibly)28
b(large)33 b(n)m(um)m(b)s(er)e(of)i(suc)m(h)g(names)f(to)h(k)m(eep)h
(in)241 3263 y(mind.)59 b(The)36 b(reader)h(ma)m(y)h(therefore)f(w)m
(an)m(t)h(to)g(mak)m(e)g(himself)d(a)i(cop)m(y)h(of)f(the)h(list,)241
3376 y(deleting)29 b(the)i(names)f(he)g(do)s(esn't)g(think)f(he)i(is)e
(lik)m(ely)g(to)i(use)f(b)m(y)g(mistak)m(e.)241 3525
y @beginspecial @setspecial @endspecial 181 x FE(2.5)135
b(Strings)241 3946 y FQ(Strings)32 b(are)j(used)e(in)g
FJ(WRITE)f FQ(statemen)m(ts,)37 b(in)c(other)h(output)g(statemen)m(ts)h
(\(suc)m(h)f(as)241 4045 y(error)44 b(messages\),)49
b(and)44 b(to)h(name)g(\014les.)82 b(A)44 b(string)g(consists)g(of)g
(an)m(y)h(n)m(um)m(b)s(er)e(of)241 4145 y(c)m(haracters)32
b(enclosed)e(in)f(double)g(quotes.)41 b(F)-8 b(or)31
b(example:)807 4351 y FH("A)43 b(String".)241 4570 y
FQ(Lo)m(w)m(er)31 b(case)g(c)m(haracters)h(within)c(a)j(string)e(are)i
(not)g(con)m(v)m(erted)g(to)g(upp)s(er)e(case.)241 4733
y(The)e(string)f FJ("")h FQ(represen)m(ts)g(the)h(empt)m(y)f(string.)39
b(A)28 b(double)d(quote)k(ma)m(y)e(b)s(e)g(included)241
4846 y(in)37 b(a)h(string)g(b)m(y)g(preceding)f(it)h(b)m(y)g(another)h
(double)e(quote.)65 b(Th)m(us)37 b FJ("a""b")g FQ(is)g(the)241
4959 y(string)29 b FJ(a"b)p FQ(,)h(and)g FJ("""")f FQ(is)g(the)i
(string)e FJ(")p FQ(.)p eop
%%Page: 48 48
48 47 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(48)964 b FM(CHAPTER)30 b(2.)71 b(STR)m(UCTURE)29 b(OF)i(PR)m(OGRAMS)
664 464 y @beginspecial @setspecial @endspecial 91 x
FE(2.6)136 b(Commen)l(ts)664 808 y FQ(T)-8 b(ext)27 b(can)f(b)s(e)f
(included)e(in)h(program)h(listings)f(for)h(the)h(con)m(v)m(enience)h
(of)f(h)m(uman)f(read-)664 921 y(ers,)39 b(in)d(suc)m(h)h(a)g(w)m(a)m
(y)h(that)g(REDUCE)f(pa)m(ys)h(no)f(atten)m(tion)h(to)g(it.)60
b(There)37 b(are)h(t)m(w)m(o)664 1034 y(w)m(a)m(ys)31
b(to)g(do)g(this:)664 1164 y @beginspecial @setspecial
@endspecial 775 1296 a(1.)46 b(Ev)m(erything)29 b(from)f(the)h(w)m(ord)
g FJ(COMMENT)e FQ(to)j(the)f(next)g(statemen)m(t)i(terminator,)891
1409 y(normally)d(;)i(or)g($,)g(is)f(ignored.)40 b(Suc)m(h)29
b(commen)m(ts)h(can)g(b)s(e)f(placed)g(an)m(ywhere)h(a)891
1522 y(blank)f(could)g(prop)s(erly)e(app)s(ear.)40 b(\(Note)31
b(that)g FJ(END)e FQ(and)g FL(>>)g FQ(are)h FD(not)39
b FQ(treated)891 1635 y(as)31 b FJ(COMMENT)d FQ(delimiters!\))664
1695 y @beginspecial @setspecial @endspecial 775 1822
a(2.)46 b(Ev)m(erything)21 b(from)h(the)f(sym)m(b)s(ol)g
FJ(\045)g FQ(to)h(the)g(end)f(of)h(the)g(line)e(on)h(whic)m(h)g(it)g
(app)s(ears)891 1935 y(is)31 b(ignored.)42 b(Suc)m(h)30
b(commen)m(ts)i(can)g(b)s(e)e(placed)h(as)g(the)h(last)f(part)g(of)g
(an)m(y)g(line.)891 2048 y(Statemen)m(t)45 b(terminators)e(ha)m(v)m(e)i
(no)f(sp)s(ecial)e(meaning)g(in)h(suc)m(h)g(commen)m(ts.)891
2161 y(Remem)m(b)s(er)37 b(to)h(put)e(a)h(semicolon)f(b)s(efore)h(the)g
FJ(\045)f FQ(if)g(the)h(earlier)f(part)h(of)g(the)891
2274 y(line)24 b(is)g(in)m(tended)g(to)i(b)s(e)e(so)i(terminated.)38
b(Remem)m(b)s(er)25 b(also)g(to)h(b)s(egin)d(eac)m(h)k(line)891
2387 y(of)k(a)g(m)m(ulti-line)c FJ(\045)j FQ(commen)m(t)i(with)d(a)i
FJ(\045)f FQ(sign.)664 2542 y @beginspecial @setspecial
@endspecial 181 x FE(2.7)136 b(Op)t(erators)664 2976
y FQ(Op)s(erators)43 b(in)f(REDUCE)i(are)g(sp)s(eci\014ed)d(b)m(y)j
(name)f(and)g(t)m(yp)s(e.)81 b(There)43 b(are)h(t)m(w)m(o)664
3089 y(t)m(yp)s(es,)k(in\014x)43 b(and)h(pre\014x.)82
b(Op)s(erators)44 b(can)h(b)s(e)f(purely)e(abstract,)49
b(just)44 b(sym)m(b)s(ols)664 3202 y(with)34 b(no)g(prop)s(erties;)i
(they)f(can)g(ha)m(v)m(e)h(v)-5 b(alues)34 b(assigned)g(\(using)f
FJ(:=)h FQ(or)h(simple)e FJ(LET)664 3315 y FQ(declarations\))i(for)h
(sp)s(eci\014c)e(argumen)m(ts;)k(they)e(can)g(ha)m(v)m(e)g(prop)s
(erties)e(declared)h(for)664 3428 y(some)28 b(collection)f(of)h
(argumen)m(ts)f(\(using)g(more)g(general)g FJ(LET)g FQ(declarations\);)
h(or)g(they)664 3541 y(can)j(b)s(e)f(fully)e(de\014ned)h(\(usually)f(b)
m(y)j(a)f(pro)s(cedure)f(declaration\).)664 3703 y(In\014x)h(op)s
(erators)h(ha)m(v)m(e)h(a)f(de\014nite)e(precedence)i(with)f(resp)s
(ect)h(to)g(one)g(another,)h(and)664 3816 y(normally)d(o)s(ccur)h(b)s
(et)m(w)m(een)h(their)e(argumen)m(ts.)41 b(F)-8 b(or)32
b(example:)891 4054 y FJ(a)48 b(+)f(b)h(-)f(c)961 b FQ(\(spaces)31
b(optional\))891 4167 y FJ(x<y)47 b(and)g(y=z)865 b FQ(\(spaces)31
b(required)d(where)i(sho)m(wn\))664 4404 y(Spaces)j(can)g(b)s(e)f
(freely)g(inserted)f(b)s(et)m(w)m(een)i(op)s(erators)g(and)f(v)-5
b(ariables)31 b(or)i(op)s(erators)664 4517 y(and)24 b(op)s(erators.)39
b(They)24 b(are)h(required)e(only)g(where)h(op)s(erator)h(names)g(are)f
(sp)s(elled)f(out)664 4630 y(with)33 b(letters)h(\(suc)m(h)g(as)h(the)f
FJ(AND)f FQ(in)g(the)h(example\))h(and)e(m)m(ust)h(b)s(e)g(unam)m
(biguously)664 4743 y(separated)27 b(from)f(another)g(suc)m(h)g(or)g
(from)g(a)h(v)-5 b(ariable)25 b(\(lik)m(e)g FJ(Y)p FQ(\).)i(Wherev)m
(er)g(one)f(space)664 4856 y(can)31 b(b)s(e)f(used,)f(so)i(can)g(an)m
(y)f(larger)g(n)m(um)m(b)s(er.)p eop
%%Page: 49 49
49 48 bop 241 299 a @beginspecial @setspecial @endspecial
FM(2.7.)72 b(OPERA)-8 b(TORS)2109 b FQ(49)241 555 y(Pre\014x)33
b(op)s(erators)i(o)s(ccur)f(to)h(the)f(left)g(of)g(their)g(argumen)m
(ts,)h(whic)m(h)e(are)i(written)e(as)241 655 y(a)41 b(list)f(enclosed)i
(in)e(paren)m(theses)h(and)g(separated)h(b)m(y)f(commas,)k(as)c(with)g
(normal)241 754 y(mathematical)30 b(functions,)g(e.g.,)589
960 y FH(cos\(u\))589 1060 y(df\(x^2,x\))589 1160 y(q\(v+w\))241
1379 y FQ(Unmatc)m(hed)g(paren)m(theses,)g(incorrect)f(groupings)f(of)h
(in\014x)e(op)s(erators)j(and)e(the)i(lik)m(e,)241 1492
y(naturally)i(lead)h(to)i(syn)m(tax)f(errors.)50 b(The)34
b(paren)m(theses)g(can)g(b)s(e)f(omitted)h(\(replaced)241
1605 y(b)m(y)k(a)g(space)g(follo)m(wing)f(the)h(op)s(erator)g(name\))g
(if)f(the)h(op)s(erator)g(is)f(unary)g(and)g(the)241
1718 y(argumen)m(t)31 b(is)e(a)i(single)e(sym)m(b)s(ol)g(or)h(b)s
(egins)f(with)g(a)i(pre\014x)e(op)s(erator)i(name:)468
1980 y FJ(cos)47 b(y)1110 b FQ(means)31 b(cos\(y\))468
2093 y FJ(cos)47 b(\(-y\))966 b FQ({)31 b(paren)m(theses)g(necessary)
468 2206 y FJ(log)47 b(cos)g(y)919 b FQ(means)31 b(log\(cos\(y\)\))468
2319 y FJ(log)47 b(cos)g(\(a+b\))727 b FQ(means)31 b(log\(cos\(a+b\)\))
241 2581 y(but)468 2818 y FJ(cos)47 b(a*b)1020 b FQ(means)30
b(\(cos)h(a\)*b)468 2931 y FJ(cos)47 b(-y)1068 b FQ(is)29
b(erroneous)h(\(treated)i(as)f(a)f(v)-5 b(ariable)1823
3044 y(\\cos")32 b(min)m(us)c(the)j(v)-5 b(ariable)29
b(y\))241 3282 y(A)38 b(unary)f(pre\014x)f(op)s(erator)i(has)g(a)g
(precedence)h(higher)d(than)i(an)m(y)g(in\014x)e(op)s(erator,)241
3395 y(including)c(unary)i(in\014x)g(op)s(erators.)56
b(In)34 b(other)i(w)m(ords,)h(REDUCE)e(will)e(alw)m(a)m(ys)i(in-)241
3507 y(terpret)30 b FJ(cos)47 b(y)h(+)f(3)30 b FQ(as)h
FJ(\(cos)46 b(y\))i(+)f(3)30 b FQ(rather)g(than)g(as)h
FJ(cos\(y)46 b(+)i(3\))p FQ(.)241 3670 y(In\014x)24 b(op)s(erators)i
(ma)m(y)g(also)f(b)s(e)g(used)f(in)h(a)g(pre\014x)g(format)g(on)h
(input,)f(e.g.,)i FJ(+\(a,b,c\))p FQ(.)241 3783 y(On)35
b(output,)i(ho)m(w)m(ev)m(er,)i(suc)m(h)c(expressions)g(will)e(alw)m(a)
m(ys)k(b)s(e)e(prin)m(ted)f(in)h(in\014x)f(form)241 3896
y(\(i.e.,)d FJ(a)47 b(+)h(b)f(+)h(c)30 b FQ(for)g(this)f(example\).)241
4059 y(A)24 b(n)m(um)m(b)s(er)f(of)i(pre\014x)e(op)s(erators)h(are)h
(built)d(in)m(to)j(the)f(system)h(with)e(prede\014ned)f(prop-)241
4172 y(erties.)40 b(Users)29 b(ma)m(y)h(also)f(add)f(new)h(op)s
(erators)g(and)g(de\014ne)f(their)g(rules)g(for)h(simpli\014-)241
4285 y(cation.)41 b(The)30 b(built)e(in)h(op)s(erators)h(are)h(describ)
s(ed)e(in)g(another)h(section.)241 4578 y FR(Built-In)35
b(In\014x)j(Op)s(erators)241 4786 y FQ(The)27 b(follo)m(wing)f(in\014x)
g(op)s(erators)h(are)h(built)e(in)m(to)h(the)h(system.)40
b(They)27 b(are)h(all)f(de\014ned)241 4886 y(in)m(ternally)h(as)j(pro)s
(cedures.)p eop
%%Page: 50 50
50 49 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(50)964 b FM(CHAPTER)30 b(2.)71 b(STR)m(UCTURE)29 b(OF)i(PR)m(OGRAMS)
664 555 y FH(<infix)41 b(operator>::=)e(where|:=|or|and|)o(me)o(mbe)o
(r|)o(mem)o(q|)o(=|)o(neq)o(|e)o(q|)1536 655 y(>=|>|<=|<|+|-|*|)o(/|)o
(^|*)o(*|)o(.)664 861 y FQ(These)30 b(op)s(erators)h(ma)m(y)g(b)s(e)f
(further)f(divided)e(in)m(to)k(the)f(follo)m(wing)f(sub)s(classes:)795
1067 y FH(<assignment)39 b(operator>)127 b(::=)42 b(:=)795
1166 y(<logical)e(operator>)258 b(::=)42 b(or|and|member|mem)o(q)795
1266 y(<relational)d(operator>)127 b(::=)42 b(=|neq|eq|>=|>|<=|)o(<)795
1365 y(<substitution)c(operator>)i(::=)i(where)795 1465
y(<arithmetic)d(operator>)127 b(::=)42 b(+|-|*|/|^|**)795
1565 y(<construction)c(operator>)i(::=)i(.)664 1784 y
FJ(MEMQ)e FQ(and)h FJ(EQ)g FQ(are)h(not)f(used)g(in)f(the)i(algebraic)f
(mo)s(de)g(of)g(REDUCE.)h(They)f(are)664 1897 y(explained)23
b(in)g(the)i(section)g(on)f(sym)m(b)s(olic)f(mo)s(de.)38
b FJ(WHERE)24 b FQ(is)f(describ)s(ed)g(in)g(the)i(section)664
2010 y(on)30 b(substitutions.)664 2172 y(In)e(previous)g(v)m(ersions)g
(of)h(REDUCE,)g FD(not)h FQ(w)m(as)f(also)g(de\014ned)f(as)h(an)g
(in\014x)e(op)s(erator.)664 2285 y(In)37 b(the)i(presen)m(t)f(v)m
(ersion)f(it)h(is)f(a)h(regular)g(pre\014x)f(op)s(erator,)j(and)e(in)m
(terc)m(hangeable)664 2398 y(with)29 b FD(nul)5 b(l)p
FQ(.)664 2561 y(F)-8 b(or)36 b(compatibilit)m(y)d(with)h(the)h(in)m
(termediate)g(language)g(used)g(b)m(y)g(REDUCE,)g(eac)m(h)664
2674 y(sp)s(ecial)i(c)m(haracter)k(in\014x)c(op)s(erator)i(has)f(an)h
(alternativ)m(e)g(alphan)m(umeric)e(iden)m(ti\014er)664
2787 y(asso)s(ciated)c(with)e(it.)47 b(These)33 b(iden)m(ti\014ers)d
(ma)m(y)j(b)s(e)f(used)g(in)m(terc)m(hangeably)g(with)g(the)664
2900 y(corresp)s(onding)e(sp)s(ecial)g(c)m(haracter)j(names)f(on)f
(input.)43 b(This)30 b(corresp)s(ondence)h(is)g(as)664
3013 y(follo)m(ws:)891 3227 y FJ(:=)48 b(setq)359 b FQ(\(the)31
b(assignmen)m(t)f(op)s(erator\))891 3340 y FJ(=)48 b(equal)891
3453 y(>=)g(geq)891 3566 y(>)g(greaterp)891 3678 y(<=)g(leq)891
3791 y(<)g(lessp)891 3904 y(+)g(plus)891 4017 y(-)g(difference)119
b FQ(\(if)30 b(unary)-8 b(,)30 b FJ(minus)p FQ(\))891
4130 y FJ(*)48 b(times)891 4243 y(/)g(quotient)215 b
FQ(\(if)30 b(unary)-8 b(,)30 b FJ(recip)p FQ(\))891 4356
y FJ(^)48 b(or)f(**)g(expt)121 b FQ(\(raising)29 b(to)i(a)g(p)s(o)m(w)m
(er\))891 4469 y FJ(.)96 b(cons)664 4683 y FQ(Note:)49
b FJ(NEQ)33 b FQ(is)f(used)h(to)i(mean)f FD(not)i(e)-5
b(qual)p FQ(.)51 b(There)33 b(is)g(no)h(sp)s(ecial)e(sym)m(b)s(ol)g
(pro)m(vided)664 4796 y(for)e(it.)664 4959 y(The)40 b(ab)s(o)m(v)m(e)i
(op)s(erators)f(are)g(binary)-8 b(,)42 b(except)g FJ(NOT)e
FQ(whic)m(h)f(is)h(unary)g(and)g FJ(+)g FQ(and)g FJ(*)p
eop
%%Page: 51 51
51 50 bop 241 299 a @beginspecial @setspecial @endspecial
FM(2.7.)72 b(OPERA)-8 b(TORS)2109 b FQ(51)241 555 y(whic)m(h)24
b(are)i(nary)f(\(i.e.,)i(taking)f(an)f(arbitrary)f(n)m(um)m(b)s(er)h
(of)g(argumen)m(ts\).)40 b(In)25 b(addition,)241 668
y FJ(-)35 b FQ(and)g FJ(/)g FQ(ma)m(y)h(b)s(e)f(used)f(as)i(unary)f(op)
s(erators,)i(e.g.,)h(/2)e(means)g(the)f(same)h(as)g(1/2.)241
781 y(An)m(y)g(other)g(op)s(erator)g(is)f(parsed)g(as)h(a)g(binary)e
(op)s(erator)i(using)e(a)i(left)g(asso)s(ciation)241
894 y(rule.)58 b(Th)m(us)35 b FJ(a/b/c)g FQ(is)h(in)m(terpreted)f(as)i
FJ(\(a/b\)/c)p FQ(.)57 b(There)36 b(are)h(t)m(w)m(o)h(exceptions)f(to)
241 1007 y(this)31 b(rule:)44 b FJ(:=)32 b FQ(and)g FJ(.)47
b FQ(are)33 b(righ)m(t)f(asso)s(ciativ)m(e.)48 b(Example:)c
FJ(a:=b:=c)31 b FQ(is)g(in)m(terpreted)241 1120 y(as)g
FJ(a:=\(b:=c\))p FQ(.)40 b(Unlik)m(e)30 b(ALGOL)h(and)f(P)-8
b(ASCAL,)31 b FJ(^)f FQ(is)g(left)h(asso)s(ciativ)m(e.)43
b(In)30 b(other)241 1233 y(w)m(ords,)g FJ(a^b^c)f FQ(is)g(in)m
(terpreted)h(as)h FJ(\(a^b\)^c)p FQ(.)241 1395 y(The)h(op)s(erators)g
FL(<)p FQ(,)h FL(<)p FJ(=)p FQ(,)f FL(>)p FQ(,)h FL(>)p
FJ(=)f FQ(can)g(only)g(b)s(e)f(used)h(for)g(making)f(comparisons)h(b)s
(e-)241 1508 y(t)m(w)m(een)25 b(n)m(um)m(b)s(ers.)37
b(No)25 b(meaning)e(is)g(curren)m(tly)g(assigned)g(to)i(this)e(kind)f
(of)i(comparison)241 1621 y(b)s(et)m(w)m(een)31 b(general)f
(expressions.)241 1784 y(P)m(aren)m(theses)c(ma)m(y)h(b)s(e)e(used)f
(to)j(sp)s(ecify)d(the)i(order)f(of)h(com)m(bination.)38
b(If)25 b(paren)m(theses)241 1897 y(are)30 b(omitted)f(then)g(this)g
(order)g(is)f(b)m(y)i(the)f(ordering)f(of)i(the)g(precedence)g(list)e
(de\014ned)241 2010 y(b)m(y)33 b(the)h(righ)m(t-hand)f(side)g(of)h(the)
g FJ(<infix)46 b(operator>)31 b FQ(table)j(at)g(the)g(b)s(eginning)d
(of)241 2123 y(this)j(section,)i(from)f(lo)m(w)m(est)g(to)h(highest.)54
b(In)34 b(other)h(w)m(ords,)h FJ(WHERE)e FQ(has)g(the)i(lo)m(w)m(est)
241 2236 y(precedence,)31 b(and)f FJ(.)40 b FQ(\(the)31
b(dot)f(op)s(erator\))h(the)g(highest.)p eop
%%Page: 52 52
52 51 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(52)964 b FM(CHAPTER)30 b(2.)71 b(STR)m(UCTURE)29 b(OF)i(PR)m(OGRAMS)
p eop
%%Page: 53 53
53 52 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(3)241 1693 y FT(Expressions)241 2187 y FQ(REDUCE)36
b(expressions)e(ma)m(y)j(b)s(e)e(of)h(sev)m(eral)h(t)m(yp)s(es)f(and)f
(consist)h(of)g(sequences)g(of)241 2300 y(n)m(um)m(b)s(ers,)29
b(v)-5 b(ariables,)30 b(op)s(erators,)h(left)g(and)f(righ)m(t)g(paren)m
(theses)h(and)g(commas.)42 b(The)241 2413 y(most)30 b(common)h(t)m(yp)s
(es)g(are)f(as)h(follo)m(ws:)241 2568 y @beginspecial
@setspecial @endspecial 181 x FE(3.1)135 b(Scalar)45
b(Expressions)241 3002 y FQ(Using)27 b(the)h(arithmetic)f(op)s
(erations)g FJ(+)47 b(-)h(*)f(/)h(^)27 b FQ(\(p)s(o)m(w)m(er\))i(and)e
(paren)m(theses,)i(scalar)241 3115 y(expressions)h(are)j(comp)s(osed)f
(from)f(n)m(um)m(b)s(ers,)g(ordinary)g(\\scalar")i(v)-5
b(ariables)30 b(\(iden-)241 3228 y(ti\014ers\),)g(arra)m(y)h(names)g
(with)e(subscripts,)g(op)s(erator)i(or)g(pro)s(cedure)e(names)i(with)e
(ar-)241 3341 y(gumen)m(ts)h(and)g(statemen)m(t)i(expressions.)241
3490 y FD(Examples:)589 3696 y FH(x)589 3796 y(x^3)43
b(-)g(2*y/\(2*z^2)c(-)44 b(df\(x,z\)\))589 3896 y(\(p^2)e(+)i
(m^2\)^\(1/2\)*log)37 b(\(y/m\))589 3995 y(a\(5\))42
b(+)i(b\(i,q\))241 4214 y FQ(The)36 b(sym)m(b)s(ol)f(**)i(ma)m(y)g(b)s
(e)f(used)g(as)g(an)h(alternativ)m(e)f(to)i(the)e(caret)i(sym)m(b)s(ol)
d(\()p FJ(^)p FQ(\))i(for)241 4327 y(forming)d(p)s(o)m(w)m(ers,)j
(particularly)c(in)h(those)i(systems)g(that)g(do)f(not)h(supp)s(ort)d
(a)j(caret)241 4440 y(sym)m(b)s(ol.)241 4590 y(Statemen)m(t)27
b(expressions,)f(usually)e(in)g(paren)m(theses,)k(can)e(also)g(form)f
(part)h(of)g(a)h(scalar)241 4689 y(expression,)i(as)i(in)e(the)h
(example)589 4895 y FH(w)44 b(+)f(\(c:=x+y\))d(+)j(z)g(.)1690
5187 y FQ(53)p eop
%%Page: 54 54
54 53 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(54)1625 b FM(CHAPTER)30 b(3.)71 b(EXPRESSIONS)664
555 y FQ(When)31 b(the)g(algebraic)g(v)-5 b(alue)30 b(of)h(an)g
(expression)f(is)g(needed,)h(REDUCE)g(determines)664
668 y(it,)f(starting)g(with)g(the)g(algebraic)g(v)-5
b(alues)30 b(of)g(the)h(parts,)f(roughly)f(as)i(follo)m(ws:)664
831 y(V)-8 b(ariables)39 b(and)g(op)s(erator)h(sym)m(b)s(ols)e(with)g
(an)i(argumen)m(t)g(list)e(ha)m(v)m(e)i(the)g(algebraic)664
944 y(v)-5 b(alues)40 b(they)g(w)m(ere)h(last)f(assigned,)j(or)d(if)f
(nev)m(er)i(assigned)e(stand)h(for)g(themselv)m(es.)664
1057 y(Ho)m(w)m(ev)m(er,)c(arra)m(y)d(elemen)m(ts)g(ha)m(v)m(e)i(the)e
(algebraic)f(v)-5 b(alues)32 b(they)h(w)m(ere)h(last)e(assigned,)664
1170 y(or,)f(if)e(nev)m(er)i(assigned,)f(are)g(tak)m(en)i(to)f(b)s(e)f
(0.)664 1332 y(Pro)s(cedures)g(are)g(ev)-5 b(aluated)31
b(with)e(the)i(v)-5 b(alues)29 b(of)i(their)e(actual)i(parameters.)664
1495 y(In)f(ev)-5 b(aluating)30 b(expressions,)f(the)h(standard)g
(rules)f(of)h(algebra)h(are)g(applied.)38 b(Unfor-)664
1608 y(tunately)-8 b(,)38 b(this)d(algebraic)g(ev)-5
b(aluation)35 b(of)h(an)g(expression)f(is)g(not)h(as)g(unam)m(biguous)
664 1721 y(as)c(is)f(n)m(umerical)g(ev)-5 b(aluation.)45
b(This)30 b(pro)s(cess)i(is)f(generally)g(referred)g(to)i(as)f
(\\simpli-)664 1834 y(\014cation")d(in)e(the)h(sense)h(that)g(the)f(ev)
-5 b(aluation)28 b(usually)e(but)i(not)h(alw)m(a)m(ys)f(pro)s(duces)g
(a)664 1947 y(simpli\014ed)f(form)j(for)g(the)g(expression.)664
2109 y(There)f(are)i(man)m(y)f(options)f(a)m(v)-5 b(ailable)29
b(to)h(the)g(user)f(for)h(carrying)f(out)h(suc)m(h)f(simpli\014-)664
2222 y(cation.)43 b(If)31 b(the)g(user)f(do)s(esn't)h(sp)s(ecify)e(an)m
(y)j(metho)s(d,)f(the)g(default)f(metho)s(d)g(is)g(used.)664
2335 y(The)c(default)g(ev)-5 b(aluation)25 b(of)i(an)f(expression)f(in)
m(v)m(olv)m(es)i(expansion)e(of)i(the)f(expression)664
2448 y(and)k(collection)g(of)g(lik)m(e)g(terms,)g(ordering)f(of)h(the)h
(terms,)f(ev)-5 b(aluation)30 b(of)g(deriv)-5 b(ativ)m(es)664
2561 y(and)30 b(other)i(functions)d(and)h(substitution)f(for)h(an)m(y)h
(expressions)f(whic)m(h)f(ha)m(v)m(e)k(v)-5 b(alues)664
2674 y(assigned)31 b(or)g(declared)f(\(see)i(assignmen)m(ts)f(and)g
FJ(LET)f FQ(statemen)m(ts\).)45 b(In)30 b(man)m(y)i(cases,)664
2787 y(this)d(is)h(all)f(that)i(the)g(user)e(needs.)664
2950 y(The)j(declarations)f(b)m(y)h(whic)m(h)e(the)i(user)g(can)g
(exercise)g(some)g(con)m(trol)h(o)m(v)m(er)g(the)f(w)m(a)m(y)664
3062 y(in)k(whic)m(h)h(the)g(ev)-5 b(aluation)37 b(is)g(p)s(erformed)f
(are)i(explained)e(in)g(other)i(sections.)62 b(F)-8 b(or)664
3175 y(example,)29 b(if)f(a)h(real)g(\(\015oating)g(p)s(oin)m(t\))f(n)m
(um)m(b)s(er)f(is)h(encoun)m(tered)i(during)c(ev)-5 b(aluation,)664
3288 y(the)46 b(system)f(will)e(normally)g(con)m(v)m(ert)k(it)e(in)m
(to)g(a)h(ratio)f(of)h(t)m(w)m(o)g(in)m(tegers.)86 b(If)45
b(the)664 3401 y(user)40 b(w)m(an)m(ts)h(to)g(use)e(real)h(arithmetic,)
j(he)d(can)g(e\013ect)i(this)d(b)m(y)h(the)h(command)f
FJ(on)664 3514 y(rounded;)p FQ(.)f(Other)30 b(mo)s(des)f(for)h(co)s
(e\016cien)m(t)i(arithmetic)d(are)i(describ)s(ed)d(elsewhere.)664
3677 y(If)39 b(an)g(illegal)f(action)h(o)s(ccurs)g(during)e(ev)-5
b(aluation)39 b(\(suc)m(h)g(as)h(division)c(b)m(y)j(zero\))i(or)664
3790 y(functions)d(are)i(called)e(with)h(the)g(wrong)g(n)m(um)m(b)s(er)
f(of)i(argumen)m(ts,)i(and)d(so)g(on,)j(an)664 3903 y(appropriate)30
b(error)g(message)h(is)e(generated.)664 4056 y @beginspecial
@setspecial @endspecial 182 x FE(3.2)136 b(In)l(teger)46
b(Expressions)664 4490 y FQ(These)d(are)g(expressions)e(whic)m(h,)k(b)s
(ecause)d(of)h(the)g(v)-5 b(alues)42 b(of)h(the)g(constan)m(ts)h(and)
664 4603 y(v)-5 b(ariables)29 b(in)g(them,)i(ev)-5 b(aluate)31
b(to)g(whole)f(n)m(um)m(b)s(ers.)664 4753 y FD(Examples:)1013
4959 y FH(2,)261 b(37)42 b(*)h(999,)304 b(\(x)43 b(+)g(3\)^2)f(-)h(x^2)
f(-)h(6*x)p eop
%%Page: 55 55
55 54 bop 241 299 a @beginspecial @setspecial @endspecial
FM(3.3.)72 b(BOOLEAN)30 b(EXPRESSIONS)1549 b FQ(55)241
555 y(are)31 b(ob)m(viously)e(in)m(teger)h(expressions.)589
761 y FH(j)44 b(+)f(k)g(-)g(2)g(*)g(j^2)241 967 y FQ(is)25
b(an)i(in)m(teger)g(expression)e(when)h FJ(J)g FQ(and)h
FJ(K)f FQ(ha)m(v)m(e)i(v)-5 b(alues)26 b(that)h(are)g(in)m(tegers,)h
(or)f(if)e(not)241 1067 y(in)m(tegers)30 b(are)h(suc)m(h)f(that)h
(\\the)g(v)-5 b(ariables)29 b(and)h(fractions)g(cancel)h(out",)g(as)g
(in)589 1273 y FH(k)44 b(-)f(7/3)f(-)h(j)g(+)h(2/3)e(+)h(2*j^2.)241
1428 y @beginspecial @setspecial @endspecial 181 x FE(3.3)135
b(Bo)t(olean)46 b(Expressions)241 1848 y FQ(A)34 b(b)s(o)s(olean)f
(expression)g(returns)g(a)i(truth)f(v)-5 b(alue.)51 b(In)34
b(the)g(algebraic)g(mo)s(de)g(of)g(RE-)241 1948 y(DUCE,)c(b)s(o)s
(olean)g(expressions)f(ha)m(v)m(e)i(the)g(syn)m(tactical)g(form:)589
2154 y FH(<expression>)39 b(<relational)g(operator>)h(<expression>)241
2360 y FQ(or)589 2566 y FH(<boolean)h(operator>)f(\(<arguments>\))241
2771 y FQ(or)589 2977 y FH(<boolean)h(expression>)e(<logical)h
(operator>)589 3077 y(<boolean)h(expression>.)241 3296
y FQ(P)m(aren)m(theses)31 b(can)g(also)f(b)s(e)g(used)g(to)h(con)m
(trol)f(the)h(precedence)g(of)f(expressions.)241 3459
y(In)39 b(addition)f(to)j(the)f(logical)f(and)h(relational)f(op)s
(erators)h(de\014ned)e(earlier)h(as)h(in\014x)241 3572
y(op)s(erators,)31 b(the)f(follo)m(wing)f(b)s(o)s(olean)g(op)s(erators)
i(are)g(also)f(de\014ned:)p eop
%%Page: 56 56
56 55 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(56)1625 b FM(CHAPTER)30 b(3.)71 b(EXPRESSIONS)805
622 y FJ(EVENP\(U\))241 b FQ(determines)29 b(if)g(the)i(n)m(um)m(b)s
(er)e FJ(U)h FQ(is)f(ev)m(en)i(or)g(not;)805 848 y FJ(FIXP\(U\))289
b FQ(determines)29 b(if)g(the)i(expression)e FJ(U)h FQ(is)f(in)m(teger)
i(or)f(not;)805 1074 y FJ(FREEOF\(U,V\))97 b FQ(determines)38
b(if)g(the)h(expression)f FJ(U)h FQ(do)s(es)f(not)i(con)m(tain)f(the)
1430 1186 y(k)m(ernel)29 b FJ(V)h FQ(an)m(ywhere)h(in)e(its)h
(structure;)805 1412 y FJ(NUMBERP\(U\))145 b FQ(determines)29
b(if)g FJ(U)h FQ(is)g(a)g(n)m(um)m(b)s(er)f(or)i(not;)805
1638 y FJ(ORDP\(U,V\))193 b FQ(determines)29 b(if)g FJ(U)g
FQ(is)h(ordered)f(ahead)h(of)h FJ(V)e FQ(b)m(y)h(some)h(canon-)1430
1751 y(ical)i(ordering)g(\(based)i(on)f(the)h(expression)e(structure)h
(and)1430 1864 y(an)c(in)m(ternal)f(ordering)g(of)i(iden)m
(ti\014ers\);)805 2090 y FJ(PRIMEP\(U\))193 b FQ(true)30
b(if)f FJ(U)h FQ(is)f(a)i(prime)e(ob)5 b(ject.)664 2279
y FD(Examples:)1013 2485 y FH(j<1)1013 2584 y(x>0)86
b(or)g(x=-2)1013 2684 y(numberp)41 b(x)1013 2784 y(fixp)h(x)h(and)f
(evenp)g(x)1013 2883 y(numberp)f(x)i(and)f(x)h(neq)g(0)664
3102 y FQ(Bo)s(olean)d(expressions)f(can)h(only)f(app)s(ear)g(directly)
f(within)f FJ(IF)p FQ(,)j FJ(FOR)p FQ(,)f FJ(WHILE)p
FQ(,)g(and)664 3215 y FJ(UNTIL)33 b FQ(statemen)m(ts,)k(as)d(describ)s
(ed)f(in)f(other)j(sections.)52 b(Suc)m(h)33 b(expressions)g(cannot)664
3328 y(b)s(e)28 b(used)f(in)f(place)i(of)g(ordinary)f(algebraic)g
(expressions,)h(or)g(assigned)f(to)i(a)f(v)-5 b(ariable.)664
3491 y(NB:)36 b(F)-8 b(or)35 b(those)g(familiar)d(with)i(sym)m(b)s
(olic)f(mo)s(de,)i(the)g(meaning)f(of)h(some)g(of)f(these)664
3604 y(op)s(erators)g(is)f(di\013eren)m(t)h(in)f(that)h(mo)s(de.)51
b(F)-8 b(or)35 b(example,)g FJ(NUMBERP)d FQ(is)h(true)h(only)f(for)664
3717 y(in)m(tegers)e(and)f(reals)f(in)g(sym)m(b)s(olic)g(mo)s(de.)664
3866 y(When)40 b(t)m(w)m(o)i(or)f(more)f(b)s(o)s(olean)g(expressions)f
(are)h(com)m(bined)g(with)f FJ(AND)p FQ(,)h(they)h(are)664
3966 y(ev)-5 b(aluated)41 b(one)g(b)m(y)f(one)h(un)m(til)d(a)j
FD(false)48 b FQ(expression)39 b(is)h(found.)69 b(The)40
b(rest)h(are)g(not)664 4065 y(ev)-5 b(aluated.)41 b(Th)m(us)1013
4271 y FH(numberp)g(x)i(and)f(numberp)f(y)i(and)f(x>y)664
4490 y FQ(do)s(es)i(not)g(attempt)h(to)g(mak)m(e)g(the)f
FJ(x>y)f FQ(comparison)g(unless)g FJ(X)g FQ(and)h FJ(Y)f
FQ(are)i(b)s(oth)664 4603 y(v)m(eri\014ed)30 b(to)h(b)s(e)e(n)m(um)m(b)
s(ers.)664 4766 y(Similarly)-8 b(,)31 b(ev)-5 b(aluation)33
b(of)g(a)h(sequence)g(of)f(b)s(o)s(olean)f(expressions)g(connected)i(b)
m(y)g FJ(OR)664 4879 y FQ(stops)d(as)f(so)s(on)g(as)h(a)g
FD(true)37 b FQ(expression)29 b(is)g(found.)p eop
%%Page: 57 57
57 56 bop 241 299 a @beginspecial @setspecial @endspecial
FM(3.4.)72 b(EQUA)-8 b(TIONS)2136 b FQ(57)241 555 y(NB:)42
b(In)e(a)i(b)s(o)s(olean)e(expression,)j(and)e(in)f(a)i(place)f(where)g
(a)g(b)s(o)s(olean)g(expression)241 668 y(is)i(exp)s(ected,)48
b(the)c(algebraic)f(v)-5 b(alue)43 b(0)i(is)e(in)m(terpreted)g(as)h
FD(false)p FQ(,)k(while)42 b(all)g(other)241 781 y(algebraic)c(v)-5
b(alues)38 b(are)h(con)m(v)m(erted)h(to)f FD(true)p FQ(.)65
b(So)38 b(in)g(algebraic)g(mo)s(de)g(a)h(pro)s(cedure)241
894 y(can)31 b(b)s(e)e(written)h(for)g(direct)g(usage)i(in)d(b)s(o)s
(olean)g(expressions,)h(returning)e(sa)m(y)k(1)f(or)f(0)241
1007 y(as)g(its)g(v)-5 b(alue)30 b(as)h(in)589 1238 y
FH(procedure)40 b(polynomialp\(u,x\);)720 1337 y(if)j(den\(u\)=1)d(and)
j(deg\(u,x\)>=1)c(then)j(1)h(else)f(0;)241 1568 y FQ(One)30
b(can)g(then)g(use)g(this)g(in)f(a)i(b)s(o)s(olean)e(construct,)i(suc)m
(h)f(as)589 1774 y FH(if)43 b(polynomialp\(q,z\))37 b(and)43
b(not)f(polynomialp\(q,y\))37 b(then)42 b(...)241 1993
y FQ(In)36 b(addition,)h(an)m(y)g(pro)s(cedure)e(that)j(do)s(es)e(not)h
(ha)m(v)m(e)h(a)f(de\014ned)f(return)f(v)-5 b(alue)36
b(\(for)241 2106 y(example,)f(a)f(blo)s(c)m(k)g(without)f(a)h
FJ(RETURN)e FQ(statemen)m(t)k(in)d(it\))h(has)g(the)g(b)s(o)s(olean)f
(v)-5 b(alue)241 2219 y FD(false)p FQ(.)241 2374 y @beginspecial
@setspecial @endspecial 181 x FE(3.4)135 b(Equations)241
2808 y FQ(Equations)29 b(are)i(a)g(particular)e(t)m(yp)s(e)h(of)h
(expression)e(with)g(the)h(syn)m(tax)589 3039 y FH(<expression>)39
b(=)k(<expression>.)241 3283 y FQ(In)37 b(addition)e(to)k(their)d(role)
i(as)f(b)s(o)s(olean)g(expressions,)h(they)g(can)g(also)f(b)s(e)g(used)
g(as)241 3396 y(argumen)m(ts)27 b(to)h(sev)m(eral)f(op)s(erators)g
(\(e.g.,)j FJ(SOLVE)p FQ(\),)c(and)g(can)i(b)s(e)e(returned)g(as)h(v)-5
b(alues.)241 3558 y(Under)19 b(normal)h(circumstances,)i(the)f(righ)m
(t-hand-side)d(of)j(the)g(equation)f(is)f(ev)-5 b(aluated)241
3671 y(but)33 b(not)h(the)g(left-hand-side.)49 b(This)32
b(also)h(applies)f(to)j(an)m(y)f(substitutions)d(made)j(b)m(y)241
3784 y(the)c FJ(SUB)g FQ(op)s(erator.)41 b(If)30 b(b)s(oth)f(sides)h
(are)g(to)h(b)s(e)f(ev)-5 b(aluated,)31 b(the)f(switc)m(h)g
FJ(EVALLHSEQP)241 3897 y FQ(should)e(b)s(e)i(turned)f(on.)241
4047 y(T)-8 b(o)34 b(facilitate)g(the)f(handling)e(of)j(equations,)h(t)
m(w)m(o)g(selectors,)g FJ(LHS)67 b FQ(and)33 b FJ(RHS)p
FQ(,)g(whic)m(h)241 4146 y(return)23 b(the)i(left-)g(and)f(righ)m
(t-hand)f(sides)h(of)g(a)h(equation)g(resp)s(ectiv)m(ely)-8
b(,)26 b(are)f(pro)m(vided.)241 4246 y(F)-8 b(or)31 b(example,)589
4452 y FH(lhs\(a+b=c\))40 b(->)j(a+b)241 4551 y(and)589
4651 y(rhs\(a+b=c\))d(->)j(c.)241 4795 y @beginspecial
@setspecial @endspecial eop
%%Page: 58 58
58 57 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(58)1625 b FM(CHAPTER)30 b(3.)71 b(EXPRESSIONS)664
555 y FE(3.5)136 b(Prop)t(er)44 b(Statemen)l(ts)j(as)e(Expressions)664
795 y FQ(Sev)m(eral)33 b(kinds)f(of)h(prop)s(er)e(statemen)m(ts)k
(deliv)m(er)d(an)h(algebraic)g(or)g(n)m(umerical)f(result)664
894 y(of)42 b(some)h(kind,)g(whic)m(h)e(can)h(in)f(turn)g(b)s(e)g(used)
g(as)h(an)g(expression)f(or)h(part)g(of)g(an)664 994
y(expression.)c(F)-8 b(or)25 b(example,)h(an)f(assignmen)m(t)g
(statemen)m(t)h(itself)e(has)h(a)g(v)-5 b(alue,)26 b(namely)664
1094 y(the)31 b(v)-5 b(alue)30 b(assigned.)40 b(So)1013
1299 y FH(2)j(*)g(\(x)g(:=)g(a+b\))664 1505 y FQ(is)24
b(equal)h(to)h FJ(2*\(a+b\))p FQ(,)e(as)h(w)m(ell)f(as)i(ha)m(ving)e
(the)i(\\side-e\013ect")g(of)g(assigning)d(the)i(v)-5
b(alue)664 1605 y FJ(a+b)30 b FQ(to)h FJ(X)p FQ(.)f(In)g(con)m(text,)
1013 1811 y FH(y)43 b(:=)g(2)g(*)g(\(x)g(:=)g(a+b\);)664
2030 y FQ(sets)31 b FJ(X)f FQ(to)h FJ(a+b)f FQ(and)f
FJ(Y)h FQ(to)h FJ(2*\(a+b\))p FQ(.)664 2193 y(The)g(sections)f(on)h
(the)g(v)-5 b(arious)30 b(prop)s(er)f(statemen)m(t)k(t)m(yp)s(es)e
(indicate)f(whic)m(h)f(of)i(these)664 2306 y(statemen)m(ts)h(are)f
(also)f(useful)f(as)i(expressions.)p eop
%%Page: 59 59
59 58 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(4)241 1693 y FT(Lists)241 2174 y FQ(A)33 b(list)e(is)h(an)g(ob)5
b(ject)34 b(consisting)d(of)i(a)g(sequence)g(of)g(other)g(ob)5
b(jects)33 b(\(including)d(lists)241 2274 y(themselv)m(es\),)i
(separated)f(b)m(y)g(commas)h(and)f(surrounded)d(b)m(y)j(braces.)43
b(Examples)30 b(of)241 2373 y(lists)f(are:)589 2579 y
FH({a,b,c})589 2779 y({1,a-b,c=d})589 2978 y({{a},{{b,c},d},e})o(.)241
3184 y FQ(The)h(empt)m(y)g(list)f(is)h(represen)m(ted)g(as)589
3390 y FH({}.)241 3533 y @beginspecial @setspecial @endspecial
193 x FE(4.1)135 b(Op)t(erations)46 b(on)f(Lists)241
3979 y FQ(Sev)m(eral)31 b(op)s(erators)h(in)f(the)h(system)f(return)g
(their)g(results)f(as)i(lists,)f(and)g(a)h(user)f(can)241
4091 y(create)38 b(new)e(lists)f(using)h(braces)g(and)g(commas.)61
b(Alternativ)m(ely)-8 b(,)38 b(one)f(can)g(use)f(the)241
4204 y(op)s(erator)30 b(LIST)e(to)i(construct)g(a)g(list.)39
b(An)29 b(imp)s(ortan)m(t)g(class)g(of)h(op)s(erations)f(on)g(lists)241
4317 y(are)h(MAP)g(and)e(SELECT)g(op)s(erations.)40 b(F)-8
b(or)30 b(details,)f(please)h(refer)f(to)h(the)g(c)m(hapters)241
4430 y(on)e(MAP)-8 b(,)30 b(SELECT)d(and)h(the)h(F)m(OR)g(command.)40
b(See)29 b(also)g(the)g(do)s(cumen)m(tation)g(on)241
4543 y(the)h(ASSIST)f(pac)m(k)-5 b(age.)241 4706 y(T)d(o)40
b(facilitate)f(the)g(use)g(of)h(lists,)g(a)g(n)m(um)m(b)s(er)e(of)h(op)
s(erators)h(are)g(also)f(a)m(v)-5 b(ailable)39 b(for)241
4819 y(manipulating)34 b(them.)61 b FJ(PART\(<list>,n\))33
b FQ(for)k(example)g(will)d(return)i(the)h FL(n)2986
4786 y FF(th)3093 4819 y FQ(ele-)241 4932 y(men)m(t)30
b(of)f(a)h(list.)39 b FJ(LENGTH)28 b FQ(will)e(return)j(the)g(length)g
(of)g(a)h(list.)39 b(Sev)m(eral)30 b(op)s(erators)f(are)1690
5187 y(59)p eop
%%Page: 60 60
60 59 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(60)2013 b FM(CHAPTER)29 b(4.)72 b(LISTS)664 555 y
FQ(also)26 b(de\014ned)f(uniquely)e(for)j(lists.)38 b(F)-8
b(or)26 b(those)h(familiar)d(with)g(them,)j(these)g(op)s(erators)664
668 y(in)33 b(fact)h(mirror)e(the)i(op)s(erations)f(de\014ned)g(for)g
(Lisp)g(lists.)49 b(These)34 b(op)s(erators)f(are)i(as)664
781 y(follo)m(ws:)664 908 y @beginspecial @setspecial
@endspecial 166 x FR(4.1.1)113 b(LIST)664 1282 y FQ(The)36
b(op)s(erator)g(LIST)f(is)g(an)h(alternativ)m(e)g(to)h(the)f(usage)h
(of)f(curly)f(brac)m(k)m(ets.)59 b(LIST)664 1382 y(accepts)42
b(an)f(arbitrary)e(n)m(um)m(b)s(er)g(of)i(argumen)m(ts)g(and)f(returns)
g(a)h(list)e(of)i(its)f(argu-)664 1482 y(men)m(ts.)54
b(This)33 b(op)s(erator)h(is)g(useful)f(in)g(cases)j(where)e(op)s
(erators)g(ha)m(v)m(e)i(to)f(b)s(e)f(passed)664 1581
y(as)d(argumen)m(ts.)41 b(E.g.,)664 1787 y FH(list\(a,list\(list\()o
(b,)o(c\))o(,d\))o(,e)o(\);)299 b(->)86 b({{a},{{b,c},d},e)o(})664
1926 y @beginspecial @setspecial @endspecial 154 x FR(4.1.2)113
b(FIRST)664 2302 y FQ(This)41 b(op)s(erator)h(returns)f(the)i(\014rst)e
(mem)m(b)s(er)h(of)g(a)h(list.)75 b(An)42 b(error)g(o)s(ccurs)f(if)h
(the)664 2415 y(argumen)m(t)31 b(is)e(not)i(a)g(list,)e(or)h(the)h
(list)e(is)g(empt)m(y)-8 b(.)664 2560 y @beginspecial
@setspecial @endspecial 148 x FR(4.1.3)113 b(SECOND)664
2929 y FJ(SECOND)23 b FQ(returns)g(the)h(second)g(mem)m(b)s(er)g(of)g
(a)g(list.)38 b(An)23 b(error)h(o)s(ccurs)g(if)f(the)h(argumen)m(t)664
3042 y(is)30 b(not)g(a)h(list)e(or)h(has)g(no)h(second)f(elemen)m(t.)
664 3170 y @beginspecial @setspecial @endspecial 166
x FR(4.1.4)113 b(THIRD)664 3557 y FQ(This)38 b(op)s(erator)i(returns)e
(the)i(third)e(mem)m(b)s(er)h(of)g(a)h(list.)67 b(An)40
b(error)f(o)s(ccurs)g(if)g(the)664 3670 y(argumen)m(t)31
b(is)e(not)i(a)g(list)e(or)h(has)g(no)h(third)d(elemen)m(t.)664
3815 y @beginspecial @setspecial @endspecial 148 x FR(4.1.5)113
b(REST)664 4185 y FJ(REST)30 b FQ(returns)h(its)f(argumen)m(t)i(with)e
(the)i(\014rst)f(elemen)m(t)g(remo)m(v)m(ed.)45 b(An)31
b(error)g(o)s(ccurs)664 4298 y(if)f(the)g(argumen)m(t)h(is)e(not)i(a)g
(list,)e(or)h(is)g(empt)m(y)-8 b(.)664 4442 y @beginspecial
@setspecial @endspecial 149 x FR(4.1.6)113 b FC(:)37
b FR(\(Cons\))g(Op)s(erator)664 4799 y FQ(This)44 b(op)s(erator)h(adds)
g(\(\\conses"\))i(an)e(expression)f(to)i(the)f(fron)m(t)g(of)h(a)f
(list.)84 b(F)-8 b(or)664 4899 y(example:)p eop
%%Page: 61 61
61 60 bop 241 299 a @beginspecial @setspecial @endspecial
FM(4.1.)72 b(OPERA)-8 b(TIONS)29 b(ON)h(LISTS)1619 b
FQ(61)589 555 y FH(a)44 b(.)f({b,c})216 b(->)130 b({a,b,c}.)241
690 y @beginspecial @setspecial @endspecial 154 x FR(4.1.7)112
b(APPEND)241 1053 y FQ(This)34 b(op)s(erator)i(app)s(ends)e(its)h
(\014rst)g(argumen)m(t)h(to)h(its)e(second)g(to)i(form)e(a)h(new)g
(list.)241 1152 y FD(Examples:)589 1358 y FH(append\({a,b},{c,d)o(}\))
212 b(->)217 b({a,b,c,d})589 1458 y(append\({{a,b}},{c)o(,d})o(\))125
b(->)217 b({{a,b},c,d}.)241 1599 y @beginspecial @setspecial
@endspecial 148 x FR(4.1.8)112 b(REVERSE)241 1955 y FQ(The)25
b(op)s(erator)h FJ(REVERSE)e FQ(returns)h(its)h(argumen)m(t)g(with)f
(the)h(elemen)m(ts)g(in)f(the)h(rev)m(erse)241 2055 y(order.)39
b(It)29 b(only)e(applies)g(to)i(the)f(top)h(lev)m(el)f(list,)f(not)i
(an)m(y)g(lo)m(w)m(er)f(lev)m(el)g(lists)f(that)i(ma)m(y)241
2154 y(o)s(ccur.)40 b(Examples)30 b(are:)589 2360 y FH
(reverse\({a,b,c}\))343 b(->)217 b({c,b,a})589 2460 y
(reverse\({{a,b,c},)o(d}\))168 b(->)217 b({d,{a,b,c}}.)241
2594 y @beginspecial @setspecial @endspecial 155 x FR(4.1.9)112
b(List)37 b(Argumen)m(ts)f(of)i(Other)f(Op)s(erators)241
2970 y FQ(If)29 b(an)g(op)s(erator)h(other)g(than)f(those)i(sp)s
(eci\014cally)c(de\014ned)h(for)i(lists)e(is)g(giv)m(en)i(a)g(single)
241 3083 y(argumen)m(t)23 b(that)g(is)f(a)h(list,)g(then)f(the)h
(result)e(of)i(this)e(op)s(eration)h(will)e(b)s(e)i(a)h(list)e(in)h
(whic)m(h)241 3196 y(that)30 b(op)s(erator)g(is)f(applied)f(to)i(eac)m
(h)h(elemen)m(t)f(of)g(the)g(list.)39 b(F)-8 b(or)31
b(example,)f(the)g(result)241 3309 y(of)g(ev)-5 b(aluating)30
b FJ(log)p FP(f)p FJ(a,b,c)p FP(g)f FQ(is)h(the)g(expression)f
FP(f)p FJ(LOG\(A\),LOG\(B\),LOG\(C\))p FP(g)p FQ(.)241
3472 y(There)f(are)h(t)m(w)m(o)h(w)m(a)m(ys)g(to)f(inhibit)d(this)h(op)
s(erator)i(distribution.)37 b(Firstly)-8 b(,)28 b(the)h(switc)m(h)241
3585 y FJ(LISTARGS)p FQ(,)34 b(if)h(on,)j(will)33 b(globally)i(inhibit)
e(suc)m(h)j(distribution.)54 b(Secondly)-8 b(,)38 b(one)e(can)241
3698 y(inhibit)23 b(this)j(distribution)d(for)k(a)g(sp)s(eci\014c)f(op)
s(erator)h(b)m(y)g(the)g(declaration)f FJ(LISTARGP)p
FQ(.)241 3810 y(F)-8 b(or)34 b(example,)h(with)e(the)h(declaration)f
FJ(listargp)46 b(log)p FQ(,)34 b FJ(log)p FP(f)p FJ(a,b,c)p
FP(g)f FQ(w)m(ould)f(ev)-5 b(al-)241 3923 y(uate)31 b(to)g
FJ(LOG\()p FP(f)p FJ(A,B,C)p FP(g)p FJ(\))p FQ(.)241
4086 y(If)f(an)g(op)s(erator)h(has)f(more)g(than)g(one)h(argumen)m(t,)g
(no)f(suc)m(h)g(distribution)d(o)s(ccurs.)241 4227 y
@beginspecial @setspecial @endspecial 148 x FR(4.1.10)112
b(Ca)m(v)m(eats)38 b(and)h(Examples)241 4597 y FQ(Some)c(of)g(the)g
(natural)f(list)g(op)s(erations)g(suc)m(h)h(as)h FD(memb)-5
b(er)35 b FQ(or)g FD(delete)h FQ(are)f(a)m(v)-5 b(ailable)241
4710 y(only)29 b(after)i(loading)e(the)i(pac)m(k)-5 b(age)32
b FD(ASSIST)p FQ(.)241 4859 y(Please)j(note)g(that)g(a)g(non-list)e(as)
i(second)f(argumen)m(t)h(to)h(CONS)d(\(a)j("dotted)f(pair")241
4959 y(in)29 b(LISP)g(terms\))i(is)e(not)i(allo)m(w)m(ed)f(and)g
(causes)h(an)f("in)m(v)-5 b(alid)28 b(as)j(list")e(error.)p
eop
%%Page: 62 62
62 61 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(62)2013 b FM(CHAPTER)29 b(4.)72 b(LISTS)708 555 y
FH(a)43 b(:=)g(17)f(.)i(4;)664 754 y(*****)e(17)g(4)i(invalid)c(as)j
(list)664 960 y FQ(Also,)29 b(the)f(initialization)d(of)k(a)f(scalar)g
(v)-5 b(ariable)27 b(is)h(not)g(the)h(empt)m(y)f(list)f({)i(one)f(has)g
(to)664 1060 y(set)j(list)e(t)m(yp)s(e)i(v)-5 b(ariables)29
b(explicitly)-8 b(,)28 b(as)j(in)e(the)i(follo)m(wing)d(example:)708
1266 y FH(load_package)38 b(assist;)708 1465 y(procedure)i(lotto)h
(\(n,m\);)751 1565 y(begin)h(scalar)f(list_1_n,)f(luckies,)g(hit;)882
1664 y(list_1_n)g(:=)j({};)882 1764 y(luckies)e(:=)i({};)882
1864 y(for)f(k:=1:n)g(do)g(list_1_n)f(:=)h(k)i(.)f(list_1_n;)882
1963 y(for)f(k:=1:m)g(do)969 2063 y(<<)h(hit)f(:=)h(part\(list_1_n,ran)
o(do)o(m\()o(n-k)o(+1)o(\))38 b(+)43 b(1\);)1100 2163
y(list_1_n)d(:=)j(delete\(hit,list_)o(1_n)o(\);)1100
2262 y(luckies)e(:=)h(hit)h(.)g(luckies)e(>>;)882 2362
y(return)g(luckies;)751 2461 y(end;)1263 b(\045)43 b(In)g(Germany,)d
(try)i(lotto)g(\(49,6\);)664 2681 y FD(A)n(nother)i(example:)64
b FQ(Find)41 b(all)f(co)s(e\016cien)m(ts)j(of)f(a)g(m)m(ultiv)-5
b(ariate)41 b(p)s(olynomial)e(with)664 2793 y(resp)s(ect)31
b(to)g(a)f(list)f(of)i(v)-5 b(ariables:)664 3024 y FH(procedure)40
b(allcoeffs\(q,lis\))o(;)e(\045)43 b(q)g(:)g(polynomial,)c(lis:)j(list)
g(of)h(vars)795 3124 y(allcoeffs1)c(\(list)j(q,lis\);)664
3323 y(procedure)e(allcoeffs1\(q,lis)o(\);)751 3423 y(if)j(lis={})e
(then)h(q)h(else)839 3522 y(allcoeffs1\(fore)o(ac)o(h)38
b(qq)k(in)h(q)g(join)f(coeff\(qq,first)c(lis\),rest)i(lis\);)p
eop
%%Page: 63 63
63 62 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(5)241 1693 y FT(Statemen)-6 b(ts)241 2174 y FQ(A)29
b(statemen)m(t)h(is)e(an)m(y)i(com)m(bination)e(of)h(reserv)m(ed)g(w)m
(ords)f(and)g(expressions,)g(and)h(has)241 2274 y(the)h(syn)m(tax)589
2480 y FH(<statement>)39 b(::=)k(<expression>|<pr)o(op)o(er)37
b(statement>)241 2686 y FQ(A)26 b(REDUCE)g(program)f(consists)h(of)g(a)
g(series)f(of)h(commands)g(whic)m(h)e(are)j(statemen)m(ts)241
2785 y(follo)m(w)m(ed)j(b)m(y)g(a)h(terminator:)589 2991
y FH(<terminator>)39 b(::=)j(;|$)241 3210 y FQ(The)22
b(division)d(of)k(the)g(program)f(in)m(to)h(lines)e(is)g(arbitrary)-8
b(.)37 b(Sev)m(eral)23 b(statemen)m(ts)h(can)f(b)s(e)241
3323 y(on)30 b(one)h(line,)d(or)j(one)f(statemen)m(t)i(can)f(b)s(e)f
(freely)f(brok)m(en)h(on)m(to)i(sev)m(eral)f(lines.)38
b(If)30 b(the)241 3436 y(program)24 b(is)g(run)g(in)m(teractiv)m(ely)-8
b(,)26 b(statemen)m(ts)h(ending)c(with)h(;)j(or)d($)i(are)f(not)g(pro)s
(cessed)241 3549 y(un)m(til)k(an)j(end-of-line)d(c)m(haracter)k(is)e
(encoun)m(tered.)44 b(This)29 b(c)m(haracter)k(can)f(v)-5
b(ary)31 b(from)241 3662 y(system)j(to)i(system,)g(but)e(is)f(normally)
g(the)p 1807 3574 314 4 v 1807 3687 4 113 v 63 w FG(Return)p
2117 3687 V 1807 3690 314 4 v 63 w FQ(k)m(ey)i(on)f(an)h(ASCI)s(I)e
(terminal.)241 3775 y(Sp)s(eci\014c)c(systems)h(ma)m(y)h(also)f(use)g
(additional)f(k)m(eys)i(as)f(statemen)m(t)i(terminators.)241
3938 y(If)e(a)g(statemen)m(t)j(is)c(a)i(prop)s(er)e(statemen)m(t,)j
(the)f(appropriate)e(action)i(tak)m(es)h(place.)241 4100
y(Dep)s(ending)i(on)i(the)g(nature)f(of)h(the)g(prop)s(er)e(statemen)m
(t)k(some)e(result)f(or)g(resp)s(onse)241 4213 y(ma)m(y)f(or)f(ma)m(y)h
(not)g(b)s(e)e(prin)m(ted)g(out,)j(and)d(the)i(resp)s(onse)e(ma)m(y)i
(or)g(ma)m(y)g(not)f(dep)s(end)241 4326 y(on)d(the)h(terminator)f
(used.)241 4489 y(If)h(a)h(statemen)m(t)h(is)d(an)i(expression,)e(it)h
(is)g(ev)-5 b(aluated.)44 b(If)31 b(the)h(terminator)f(is)f(a)i(semi-)
241 4602 y(colon,)j(the)f(result)g(is)f(prin)m(ted.)50
b(If)34 b(the)g(terminator)g(is)f(a)i(dollar)e(sign,)h(the)g(result)f
(is)241 4715 y(not)26 b(prin)m(ted.)38 b(Because)28 b(it)e(is)f(not)h
(usually)e(p)s(ossible)g(to)j(kno)m(w)f(in)f(adv)-5 b(ance)27
b(ho)m(w)f(large)241 4828 y(an)k(expression)f(will)f(b)s(e,)i(no)g
(explicit)f(format)i(statemen)m(ts)h(are)f(o\013ered)f(to)h(the)g
(user.)241 4940 y(Ho)m(w)m(ev)m(er,)39 b(a)c(v)-5 b(ariet)m(y)36
b(of)f(output)g(declarations)g(are)g(a)m(v)-5 b(ailable)35
b(so)h(that)f(the)h(output)1690 5187 y(63)p eop
%%Page: 64 64
64 63 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(64)1643 b FM(CHAPTER)29 b(5.)72 b(ST)-8 b(A)g(TEMENTS)664
555 y FQ(can)26 b(b)s(e)f(pro)s(duced)f(in)g(di\013eren)m(t)h(forms.)39
b(These)25 b(output)h(declarations)f(are)h(explained)664
668 y(in)j(Section)h @beginspecial @setspecial @endspecial(8.3.3)r(.)
664 831 y(The)35 b(follo)m(wing)e(sub-sections)h(describ)s(e)f(the)i(t)
m(yp)s(es)g(of)g(prop)s(er)f(statemen)m(ts)i(in)e(RE-)664
944 y(DUCE.)664 1075 y @beginspecial @setspecial @endspecial
200 x FE(5.1)136 b(Assignmen)l(t)45 b(Statemen)l(ts)664
1514 y FQ(These)30 b(statemen)m(ts)i(ha)m(v)m(e)g(the)f(syn)m(tax)839
1720 y FH(<assignment)39 b(statement>)g(::=)j(<expression>)d(:=)k
(<expression>)664 1939 y FQ(The)35 b FJ(<expression>)c
FQ(on)k(the)g(left)g(side)f(is)g(normally)f(the)i(name)g(of)g(a)h(v)-5
b(ariable,)35 b(an)664 2052 y(op)s(erator)e(sym)m(b)s(ol)f(with)f(its)h
(list)f(of)i(argumen)m(ts)g(\014lled)e(in,)h(or)h(an)f(arra)m(y)h(name)
g(with)664 2165 y(the)c(prop)s(er)e(n)m(um)m(b)s(er)h(of)h(in)m(teger)g
(subscript)e(v)-5 b(alues)28 b(within)e(the)j(arra)m(y)g(b)s(ounds.)38
b(F)-8 b(or)664 2278 y(example:)891 2488 y FJ(a1)48 b(:=)f(b)g(+)h(c)
891 2600 y(h\(l,m\))f(:=)g(x-2*y)659 b FQ(\(where)30
b FJ(h)g FQ(is)g(an)g(op)s(erator\))891 2713 y FJ(k\(3,5\))47
b(:=)g(x-2*y)659 b FQ(\(where)30 b FJ(k)g FQ(is)g(a)g(2-dim.)40
b(arra)m(y\))664 2923 y(More)32 b(general)g(assignmen)m(ts)f(suc)m(h)g
(as)h FJ(a+b)47 b(:=)g(c)31 b FQ(are)h(also)g(allo)m(w)m(ed.)44
b(The)31 b(e\013ect)i(of)664 3036 y(these)e(is)e(explained)g(in)g
(Section)h @beginspecial @setspecial @endspecial(10.2.5)s(.)664
3199 y(An)c(assignmen)m(t)g(statemen)m(t)i(causes)f(the)f(expression)f
(on)i(the)f(righ)m(t-hand-side)f(to)i(b)s(e)664 3312
y(ev)-5 b(aluated.)63 b(If)38 b(the)g(left-hand-side)e(is)h(a)h(v)-5
b(ariable,)39 b(the)f(v)-5 b(alue)37 b(of)h(the)g(righ)m(t-hand-)664
3424 y(side)k(is)f(assigned)h(to)i(that)f(unev)-5 b(aluated)42
b(v)-5 b(ariable.)76 b(If)42 b(the)h(left-hand-side)e(is)h(an)664
3537 y(op)s(erator)37 b(or)g(arra)m(y)g(expression,)h(the)f(argumen)m
(ts)g(of)g(that)g(op)s(erator)g(or)g(arra)m(y)h(are)664
3650 y(ev)-5 b(aluated,)33 b(but)f(no)g(other)h(simpli\014cation)c
(done.)46 b(The)32 b(ev)-5 b(aluated)33 b(righ)m(t-hand-side)664
3763 y(is)i(then)h(assigned)g(to)h(the)f(resulting)e(expression.)57
b(F)-8 b(or)37 b(example,)h(if)d FJ(A)h FQ(is)f(a)i(single-)664
3876 y(dimensional)g(arra)m(y)-8 b(,)43 b FJ(a\(1+1\))j(:=)h(b)39
b FQ(assigns)f(the)i(v)-5 b(alue)39 b FJ(B)g FQ(to)h(the)g(arra)m(y)f
(elemen)m(t)664 3989 y FJ(a\(2\))p FQ(.)664 4152 y(If)33
b(a)g(semicolon)f(is)g(used)g(as)i(the)f(terminator)f(when)g(an)h
(assignmen)m(t)g(is)f(issued)f(as)j(a)664 4265 y(command)39
b(\(i.e.)66 b(not)38 b(as)h(a)h(part)e(of)h(a)g(group)f(statemen)m(t)j
(or)d(pro)s(cedure)g(or)h(other)664 4378 y(similar)26
b(construct\),)k(the)f(left-hand)e(side)h(sym)m(b)s(ol)f(of)h(the)h
(assignmen)m(t)f(statemen)m(t)j(is)664 4490 y(prin)m(ted)g(out,)j
(follo)m(w)m(ed)e(b)m(y)g(a)h(\\)p FJ(:=)p FQ(",)g(follo)m(w)m(ed)g(b)m
(y)f(the)h(v)-5 b(alue)32 b(of)g(the)h(expression)e(on)664
4603 y(the)g(righ)m(t.)664 4753 y(It)g(is)e(also)h(p)s(ossible)e(to)j
(write)f(a)h(m)m(ultiple)d(assignmen)m(t)i(statemen)m(t:)839
4959 y FH(<expression>)38 b(:=)43 b(...)f(:=)h(<expression>)c(:=)j
(<expression>)p eop
%%Page: 65 65
65 64 bop 241 299 a @beginspecial @setspecial @endspecial
FM(5.2.)72 b(GR)m(OUP)31 b(ST)-8 b(A)g(TEMENTS)1692 b
FQ(65)241 555 y(In)43 b(this)f(form,)47 b(eac)m(h)e FJ(<expression>)40
b FQ(but)j(the)h(last)f(is)g(set)h(to)h(the)e(v)-5 b(alue)43
b(of)h(the)241 668 y(last)31 b FJ(<expression>)p FQ(.)42
b(If)31 b(a)h(semicolon)f(is)g(used)g(as)h(a)g(terminator,)g(eac)m(h)h
(expression)241 781 y(except)k(the)f(last)f(is)g(prin)m(ted)g(follo)m
(w)m(ed)g(b)m(y)h(a)g(\\)p FJ(:=)p FQ(")g(ending)e(with)h(the)h(v)-5
b(alue)35 b(of)h(the)241 894 y(last)30 b(expression.)241
1039 y @beginspecial @setspecial @endspecial 148 x FR(5.1.1)112
b(Set)38 b(Statemen)m(t)241 1409 y FQ(In)e(some)i(cases,)i(it)d(is)g
(desirable)e(to)j(p)s(erform)e(an)h(assignmen)m(t)h(in)e(whic)m(h)g
FD(b)-5 b(oth)45 b FQ(the)241 1522 y(left-)32 b(and)g(righ)m(t-hand)g
(sides)f(of)i(an)f(assignmen)m(t)g(are)h(ev)-5 b(aluated.)48
b(In)31 b(this)h(case,)i(the)241 1634 y FJ(SET)29 b FQ(statemen)m(t)j
(can)f(b)s(e)f(used)f(with)h(the)g(syn)m(tax:)589 1865
y FH(SET\(<expression>,)o(<ex)o(pr)o(ess)o(io)o(n>)o(\);)241
2096 y FQ(F)-8 b(or)31 b(example,)f(the)h(statemen)m(ts)589
2302 y FH(j)44 b(:=)e(23;)589 2402 y(set\(mkid\(a,j\),x\);)241
2621 y FQ(assigns)29 b(the)i(v)-5 b(alue)30 b FJ(X)g
FQ(to)h FJ(A23)p FQ(.)241 2775 y @beginspecial @setspecial
@endspecial 182 x FE(5.2)135 b(Group)44 b(Statemen)l(ts)241
3210 y FQ(The)33 b(group)g(statemen)m(t)j(is)d(a)h(construct)g(used)f
(where)h(REDUCE)f(exp)s(ects)i(a)f(single)241 3323 y(statemen)m(t,)40
b(but)c(a)i(series)e(of)h(actions)g(needs)f(to)i(b)s(e)e(p)s(erformed.)
59 b(It)36 b(is)g(formed)h(b)m(y)241 3436 y(enclosing)g(one)i(or)g
(more)f(statemen)m(ts)i(\(of)f(an)m(y)g(kind\))e(b)s(et)m(w)m(een)i
(the)g(sym)m(b)s(ols)e FL(<<)241 3548 y FQ(and)30 b FL(>>)p
FQ(,)f(separated)i(b)m(y)g(semicolons)e(or)h(dollar)f(signs)g({)i(it)f
(do)s(esn't)g(matter)i(whic)m(h.)241 3661 y(The)e(statemen)m(ts)i(are)e
(executed)i(one)e(after)h(another.)241 3824 y(Examples)e(will)f(b)s(e)i
(giv)m(en)h(in)e(the)i(sections)f(on)h FJ(IF)f FQ(and)g(other)g(t)m(yp)
s(es)h(of)g(statemen)m(ts)241 3937 y(in)e(whic)m(h)g(the)h
FL(<<)g FQ(.)16 b(.)f(.)g FL(>>)30 b FQ(construct)h(is)e(useful.)241
4100 y(If)e(the)i(last)e(statemen)m(t)j(in)d(the)h(enclosed)g(group)f
(has)h(a)h(v)-5 b(alue,)28 b(then)g(that)g(is)f(also)h(the)241
4213 y(v)-5 b(alue)31 b(of)h(the)g(group)f(statemen)m(t.)47
b(Care)32 b(m)m(ust)g(b)s(e)f(tak)m(en)i(not)f(to)h(ha)m(v)m(e)g(a)f
(semicolon)241 4326 y(or)h(dollar)e(sign)h(after)h(the)g(last)g(group)s
(ed)f(statemen)m(t,)k(if)31 b(the)j(v)-5 b(alue)32 b(of)h(the)g(group)f
(is)241 4438 y(relev)-5 b(an)m(t:)45 b(suc)m(h)32 b(an)g(extra)h
(terminator)f(causes)h(the)f(group)g(to)h(ha)m(v)m(e)g(the)g(v)-5
b(alue)32 b(NIL)241 4551 y(or)e(zero.)241 4688 y @beginspecial
@setspecial @endspecial eop
%%Page: 66 66
66 65 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(66)1643 b FM(CHAPTER)29 b(5.)72 b(ST)-8 b(A)g(TEMENTS)664
555 y FE(5.3)136 b(Conditional)46 b(Statemen)l(ts)664
808 y FQ(The)30 b(conditional)f(statemen)m(t)j(has)e(the)h(follo)m
(wing)d(syn)m(tax:)708 1039 y FH(<conditional)38 b(statement>)i(::=)839
1138 y(IF)i(<boolean)f(expression>)e(THEN)j(<statement>)d([ELSE)i
(<statement>])664 1382 y FQ(The)34 b(b)s(o)s(olean)f(expression)g(is)g
(ev)-5 b(aluated.)52 b(If)33 b(this)g(is)g FD(true)p
FQ(,)i(the)g(\014rst)e FJ(<statement>)664 1495 y FQ(is)d(executed.)41
b(If)30 b(it)g(is)f FD(false)p FQ(,)j(the)e(second)h(is.)664
1645 y FD(Examples:)1013 1851 y FH(if)43 b(x=5)f(then)g(a:=b+c)f(else)h
(d:=e+f)1013 2050 y(if)h(x=5)f(and)g(numberp)f(y)1144
2150 y(then)h(<<ff:=q1;)d(a:=b+c>>)1144 2249 y(else)j(<<ff:=q2;)d
(d:=e+f>>)664 2455 y FQ(Note)32 b(the)e(use)h(of)f(the)h(group)e
(statemen)m(t.)664 2555 y(Conditional)f(statemen)m(ts)k(asso)s(ciate)g
(to)f(the)f(righ)m(t;)g(i.e.,)1013 2761 y FH(IF)43 b(<a>)f(THEN)g(<b>)g
(ELSE)g(IF)h(<c>)f(THEN)g(<d>)h(ELSE)e(<e>)664 2967 y
FQ(is)30 b(equiv)-5 b(alen)m(t)29 b(to:)1013 3172 y FH(IF)43
b(<a>)f(THEN)g(<b>)g(ELSE)g(\(IF)h(<c>)f(THEN)g(<d>)g(ELSE)g(<e>\))664
3378 y FQ(In)30 b(addition,)f(the)h(construction)1013
3584 y FH(IF)43 b(<a>)f(THEN)g(IF)h(<b>)f(THEN)g(<c>)g(ELSE)g(<d>)664
3790 y FQ(parses)30 b(as)1013 3996 y FH(IF)43 b(<a>)f(THEN)g(\(IF)g
(<b>)h(THEN)f(<c>)g(ELSE)g(<d>\).)664 4215 y FQ(If)36
b(the)h(v)-5 b(alue)35 b(of)i(the)g(conditional)d(statemen)m(t)k(is)e
(of)g(primary)f(in)m(terest,)j(it)e(is)f(often)664 4328
y(called)f(a)g(conditional)f(expression)g(instead.)52
b(Its)34 b(v)-5 b(alue)34 b(is)f(the)i(v)-5 b(alue)34
b(of)g(whic)m(hev)m(er)664 4441 y(statemen)m(t)28 b(w)m(as)e(executed.)
40 b(\(If)25 b(the)h(executed)g(statemen)m(t)i(has)d(no)h(v)-5
b(alue,)26 b(the)g(condi-)664 4554 y(tional)j(expression)g(has)h(no)f
(v)-5 b(alue)30 b(or)g(the)g(v)-5 b(alue)29 b(0,)i(dep)s(ending)c(on)j
(ho)m(w)g(it)f(is)g(used.\))664 4703 y FD(Examples:)1013
4909 y FH(a:=if)41 b(x<5)i(then)f(123)g(else)g(456;)p
eop
%%Page: 67 67
67 66 bop 241 299 a @beginspecial @setspecial @endspecial
FM(5.4.)72 b(F)m(OR)31 b(ST)-8 b(A)g(TEMENTS)1834 b FQ(67)589
555 y FH(b:=u)42 b(+)i(v^\(if)d(numberp)g(z)i(then)f(10*z)85
b(else)42 b(1\))h(+)g(w;)241 761 y FQ(If)28 b(the)h(v)-5
b(alue)29 b(is)f(of)h(no)g(concern,)h(the)f FJ(ELSE)f
FQ(clause)g(ma)m(y)i(b)s(e)e(omitted)h(if)f(no)h(action)g(is)241
861 y(required)f(in)h(the)i FD(false)38 b FQ(case.)589
1067 y FH(if)43 b(x=5)g(then)e(a:=b+c;)241 1286 y FQ(Note:)58
b(As)39 b(explained)d(in)i(Section)g @beginspecial @setspecial
@endspecial(3.3)q(,a)h(if)f(a)h(scalar)f(or)h(n)m(umerical)e
(expression)g(is)241 1399 y(used)30 b(in)g(place)i(of)f(the)h(b)s(o)s
(olean)e(expression)g({)i(for)f(example,)h(a)g(v)-5 b(ariable)30
b(is)g(written)241 1512 y(there)k({)g(the)h FD(true)41
b FQ(alternativ)m(e)34 b(is)f(follo)m(w)m(ed)h(unless)e(the)i
(expression)f(has)h(the)g(v)-5 b(alue)241 1625 y(0.)241
1755 y @beginspecial @setspecial @endspecial 199 x FE(5.4)135
b(F)l(OR)45 b(Statemen)l(ts)241 2193 y FQ(The)30 b FJ(FOR)f
FQ(statemen)m(t)k(is)c(used)h(to)h(de\014ne)f(a)g(v)-5
b(ariet)m(y)31 b(of)g(program)f(lo)s(ops.)40 b(Its)30
b(general)241 2293 y(syn)m(tax)h(is)e(as)i(follo)m(ws:)241
2596 y FH(FOR)385 2376 y FB(8)385 2451 y(>)385 2476 y(>)385
2501 y(<)385 2650 y(>)385 2675 y(>)385 2700 y(:)459 2485
y FA(h)p Fz(var)9 b FA(i)45 b FH(:=)e FA(h)p Fz(numb)l(er)9
b FA(i)1220 2368 y FB(\032)1282 2435 y FH(STEP)42 b FA(h)p
Fz(numb)l(er)9 b FA(i)43 b FH(UNTIL)1670 2534 y(:)2101
2368 y FB(\033)2177 2485 y FA(h)p Fz(numb)l(er)9 b FA(i)1066
2707 y FH(EACH)42 b FA(h)p Fz(var)9 b FA(i)1516 2590
y FB(\032)1579 2656 y FH(IN)1579 2756 y(ON)1666 2590
y FB(\033)1772 2707 y FA(h)p Fz(list)f FA(i)2559 2376
y FB(9)2559 2451 y(>)2559 2476 y(>)2559 2501 y(=)2559
2650 y(>)2559 2675 y(>)2559 2700 y(;)2646 2596 y FA(h)p
Fz(action)e FA(i)46 b(h)p Fz(exprn)6 b FA(i)241 2903
y FQ(where)787 3122 y FP(h)p FD(action)h FP(i)49 b FJ(::=)e
(do|product|sum|collect|jo)o(in.)241 3341 y FQ(The)c(assignmen)m(t)h
(form)f(of)h(the)g FJ(FOR)f FQ(statemen)m(t)j(de\014nes)d(an)h
(iteration)f(o)m(v)m(er)i(the)241 3454 y(indicated)32
b(n)m(umerical)h(range.)51 b(If)33 b(expressions)g(that)h(do)g(not)g
(ev)-5 b(aluate)34 b(to)h(n)m(um)m(b)s(ers)241 3567 y(are)c(used)e(in)g
(the)i(designated)f(places,)g(an)g(error)g(will)e(result.)241
3730 y(The)h FJ(FOR)47 b(EACH)29 b FQ(form)h(of)g(the)g
FJ(FOR)g FQ(statemen)m(t)i(is)d(designed)g(to)i(iterate)f(do)m(wn)g(a)h
(list.)241 3843 y(Again,)f(an)g(error)g(will)e(o)s(ccur)i(if)g(a)g
(list)f(is)h(not)g(used.)241 4006 y(The)j(action)h FJ(DO)f
FQ(means)h(that)g FJ(<exprn>)e FQ(is)h(simply)e(ev)-5
b(aluated)34 b(and)f(no)g(v)-5 b(alue)34 b(k)m(ept;)241
4119 y(the)24 b(statemen)m(t)h(returning)d(0)i(in)e(this)h(case)h(\(or)
g(no)g(v)-5 b(alue)23 b(at)h(the)g(top)g(lev)m(el\).)38
b FJ(COLLECT)241 4231 y FQ(means)30 b(that)i(the)f(results)e(of)i(ev)-5
b(aluating)30 b FJ(<exprn>)f FQ(eac)m(h)j(time)e(are)h(link)m(ed)e
(together)241 4344 y(to)34 b(mak)m(e)h(a)e(list,)h(and)f
FJ(JOIN)f FQ(means)h(that)i(the)e(v)-5 b(alues)33 b(of)h
FJ(<exprn>)d FQ(are)j(themselv)m(es)241 4457 y(lists)40
b(that)j(are)g(joined)e(to)h(mak)m(e)i(one)e(list)f(\(similar)f(to)i
FJ(CONC)f FQ(in)g(Lisp\).)75 b(Finally)-8 b(,)241 4570
y FJ(PRODUCT)34 b FQ(and)i FJ(SUM)g FQ(form)g(the)g(resp)s(ectiv)m(e)h
(com)m(bined)f(v)-5 b(alue)36 b(out)g(of)h(the)g(v)-5
b(alues)35 b(of)241 4683 y FJ(<exprn>)p FQ(.)241 4846
y(In)30 b(all)f(cases,)j FJ(<exprn>)d FQ(is)g(ev)-5 b(aluated)31
b(algebraically)e(within)g(the)h(scop)s(e)h(of)g(the)g(cur-)241
4959 y(ren)m(t)e(v)-5 b(alue)29 b(of)g FJ(<var>)p FQ(.)39
b(If)29 b FJ(<action>)d FQ(is)j FJ(DO)p FQ(,)f(then)h(nothing)f(else)h
(happ)s(ens.)39 b(In)28 b(other)p eop
%%Page: 68 68
68 67 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(68)1643 b FM(CHAPTER)29 b(5.)72 b(ST)-8 b(A)g(TEMENTS)664
555 y FQ(cases,)30 b FJ(<action>)c FQ(is)h(a)h(binary)f(op)s(erator)h
(that)h(causes)g(a)f(result)f(to)i(b)s(e)e(built)f(up)i(and)664
668 y(returned)i(b)m(y)h FJ(FOR)p FQ(.)g(In)g(those)g(cases,)i(the)e
(lo)s(op)g(is)f(initialized)e(to)k(a)g(default)e(v)-5
b(alue)31 b(\()p FJ(0)664 781 y FQ(for)j FJ(SUM)p FQ(,)g
FJ(1)g FQ(for)g FJ(PRODUCT)p FQ(,)f(and)h(an)g(empt)m(y)h(list)e(for)h
(the)h(other)g(actions\).)53 b(The)34 b(test)664 894
y(for)i(the)h(end)e(condition)g(is)h(made)g(b)s(efore)g(an)m(y)g
(action)h(is)e(tak)m(en.)60 b(As)36 b(in)f(P)m(ascal,)k(if)664
1007 y(the)32 b(v)-5 b(ariable)30 b(is)g(out)i(of)g(range)f(in)g(the)g
(assignmen)m(t)g(case,)i(or)f(the)f FJ(<list>)f FQ(is)g(empt)m(y)664
1120 y(in)f(the)i FJ(FOR)47 b(EACH)29 b FQ(case,)j FJ(<exprn>)c
FQ(is)h(not)i(ev)-5 b(aluated)31 b(at)g(all.)664 1282
y FD(Examples:)664 1387 y @beginspecial @setspecial @endspecial
775 1507 a FQ(1.)46 b(If)26 b FJ(A)p FQ(,)g FJ(B)g FQ(ha)m(v)m(e)h(b)s
(een)e(declared)h(to)h(b)s(e)e(arra)m(ys,)i(the)g(follo)m(wing)d
(stores)j(5)3274 1474 y FO(2)3340 1507 y FQ(through)891
1606 y(10)981 1573 y FO(2)1053 1606 y FQ(in)j FJ(A\(5\))h
FQ(through)g FJ(A\(10\))p FQ(,)f(and)h(at)h(the)g(same)g(time)f(stores)
h(the)g(cub)s(es)e(in)891 1706 y(the)h FJ(B)f FQ(arra)m(y:)1022
1918 y FH(for)43 b(i)g(:=)f(5)i(step)e(1)h(until)e(10)i(do)g
(<<a\(i\):=i^2;)38 b(b\(i\):=i^3>>)664 2011 y @beginspecial
@setspecial @endspecial 775 2129 a FQ(2.)46 b(As)31 b(a)g(con)m(v)m
(enience,)g(the)g(common)f(construction)1240 2341 y FH(STEP)42
b(1)h(UNTIL)891 2553 y FQ(ma)m(y)35 b(b)s(e)e(abbreviated)h(to)g(a)h
(colon.)51 b(Th)m(us,)34 b(instead)f(of)h(the)g(ab)s(o)m(v)m(e)h(w)m(e)
g(could)891 2652 y(write:)1240 2864 y FH(for)42 b(i)i(:=)e(5:10)g(do)h
(<<a\(i\):=i^2;)c(b\(i\):=i^3>>)664 2950 y @beginspecial
@setspecial @endspecial 775 3076 a FQ(3.)46 b(The)35
b(follo)m(wing)f(sets)h FJ(C)g FQ(to)h(the)g(sum)e(of)h(the)h(squares)e
(of)i(1,3,5,7,9;)41 b(and)34 b FJ(D)h FQ(to)891 3175
y(the)c(expression)e FJ(x*\(x+1\)*\(x+2\)*\(x+3\)*\(x+4\))o(:)1240
3387 y FH(c)43 b(:=)g(for)f(j:=1)g(step)g(2)h(until)f(9)h(sum)f(j^2;)
1240 3487 y(d)h(:=)g(for)f(k:=0)g(step)g(1)h(until)f(4)h(product)e
(\(x+k\);)664 3580 y @beginspecial @setspecial @endspecial
775 3698 a FQ(4.)46 b(The)39 b(follo)m(wing)f(forms)h(a)h(list)e(of)h
(the)h(squares)e(of)i(the)g(elemen)m(ts)f(of)h(the)f(list)891
3798 y FP(f)p FJ(a,b,c)p FP(g)p FJ(:)1240 4010 y FH(for)j(each)g(x)i
(in)e({a,b,c})f(collect)g(x^2;)664 4096 y @beginspecial
@setspecial @endspecial 775 4221 a FQ(5.)46 b(The)32
b(follo)m(wing)f(forms)h(a)h(list)e(of)h(the)h(listed)e(squares)g(of)i
(the)g(elemen)m(ts)f(of)h(the)891 4321 y(list)c FP(f)p
FJ(a,b,c)p FP(g)h FQ(\(i.e.,)h FP(ff)p FJ(A^2)p FP(g)p
FJ(,)p FP(f)p FJ(B^2)p FP(g)p FJ(,)p FP(f)p FJ(C^2)p
FP(gg)p FJ(\):)1240 4533 y FH(for)42 b(each)g(x)i(in)e({a,b,c})f
(collect)g({x^2};)664 4619 y @beginspecial @setspecial
@endspecial 775 4744 a FQ(6.)46 b(The)37 b(follo)m(wing)e(also)i(forms)
g(a)g(list)f(of)h(the)g(squares)g(of)g(the)g(elemen)m(ts)h(of)f(the)891
4844 y(list)e FP(f)p FJ(a,b,c)p FP(g)p FJ(,)h FQ(since)f(the)h
FJ(JOIN)e FQ(op)s(eration)h(joins)g(the)h(individual)31
b(lists)j(in)m(to)891 4944 y(one)d(list:)p eop
%%Page: 69 69
69 68 bop 241 299 a @beginspecial @setspecial @endspecial
FM(5.5.)72 b(WHILE)30 b(.)16 b(.)f(.)h(DO)2081 b FQ(69)817
555 y FH(for)42 b(each)g(x)h(in)g({a,b,c})e(join)h({x^2};)241
779 y FQ(The)34 b(con)m(trol)h(v)-5 b(ariable)34 b(used)g(in)f(the)i
FJ(FOR)f FQ(statemen)m(t)j(is)d(actually)g(a)h(new)f(v)-5
b(ariable,)241 879 y(not)30 b(related)h(to)g(the)f(v)-5
b(ariable)30 b(of)g(the)h(same)f(name)h(outside)f(the)g
FJ(FOR)g FQ(statemen)m(t.)42 b(In)241 979 y(other)27
b(w)m(ords,)g(executing)g(a)h(statemen)m(t)g FJ(for)47
b(i:=)26 b FQ(.)16 b(.)f(.)g(do)s(esn't)27 b(c)m(hange)h(the)f
(system's)241 1078 y(assumption)i(that)i FL(i)950 1045
y FO(2)1015 1078 y FQ(=)26 b FP(\000)p FQ(1.)41 b(F)-8
b(urthermore,)31 b(in)e(algebraic)h(mo)s(de,)h(the)g(v)-5
b(alue)30 b(of)g(the)241 1178 y(con)m(trol)f(v)-5 b(ariable)28
b(is)g(substituted)f(in)h FJ(<exprn>)f FQ(only)h(if)g(it)g(o)s(ccurs)h
(explicitly)d(in)i(that)241 1277 y(expression.)50 b(It)34
b(will)d(not)k(replace)e(a)i(v)-5 b(ariable)33 b(of)h(the)g(same)g
(name)g(in)f(the)h(v)-5 b(alue)33 b(of)241 1377 y(that)e(expression.)39
b(F)-8 b(or)31 b(example:)589 1583 y FH(b)44 b(:=)e(a;)h(for)f(a)i(:=)e
(1:2)h(do)g(write)e(b;)241 1802 y FQ(prin)m(ts)29 b FJ(A)h
FQ(t)m(wice,)h(not)f(1)h(follo)m(w)m(ed)f(b)m(y)g(2.)241
1957 y @beginspecial @setspecial @endspecial 181 x FE(5.5)135
b(WHILE)45 b(.)23 b(.)g(.)g(DO)241 2378 y FQ(The)28 b
FJ(FOR)47 b(...DO)27 b FQ(feature)i(allo)m(ws)f(easy)i(co)s(ding)d(of)i
(a)g(rep)s(eated)g(op)s(eration)f(in)g(whic)m(h)241 2478
y(the)d(n)m(um)m(b)s(er)f(of)h(rep)s(etitions)f(is)g(kno)m(wn)h(in)e
(adv)-5 b(ance.)40 b(If)25 b(the)g(criterion)f(for)h(rep)s(etition)241
2577 y(is)k(more)i(complicated,)f FJ(WHILE)46 b(...DO)29
b FQ(can)i(often)g(b)s(e)f(used.)39 b(Its)31 b(syn)m(tax)g(is:)589
2783 y FH(WHILE)42 b(<boolean)e(expression>)f(DO)k(<statement>)241
3002 y FQ(The)22 b FJ(WHILE)47 b(...DO)21 b FQ(con)m(trols)i(the)h
(single)d(statemen)m(t)k(follo)m(wing)c FJ(DO)p FQ(.)i(If)f(sev)m(eral)
i(state-)241 3115 y(men)m(ts)f(are)h(to)g(b)s(e)f(rep)s(eated,)i(as)e
(is)g(almost)g(alw)m(a)m(ys)h(the)f(case,)j(they)e(m)m(ust)f(b)s(e)g
(group)s(ed)241 3228 y(using)29 b(the)h FL(<<)g FQ(.)15
b(.)h(.)f FL(>>)30 b FQ(or)g FJ(BEGIN)47 b(...END)28
b FQ(as)j(in)e(the)h(example)h(b)s(elo)m(w.)241 3391
y(The)25 b FJ(WHILE)f FQ(condition)h(is)g(tested)h(eac)m(h)h(time)f
FD(b)-5 b(efor)g(e)33 b FQ(the)26 b(action)g(follo)m(wing)e(the)i
FJ(DO)f FQ(is)241 3504 y(attempted.)39 b(If)21 b(the)h(condition)e(is)h
(false)h(to)g(b)s(egin)f(with,)h(the)g(action)g(is)f(not)h(p)s
(erformed)241 3617 y(at)j(all.)38 b(Mak)m(e)26 b(sure)e(that)h(what)g
(is)e(to)i(b)s(e)f(tested)i(has)e(an)h(appropriate)e(v)-5
b(alue)24 b(initially)-8 b(.)241 3779 y FD(Example:)241
3929 y FQ(Supp)s(ose)24 b(w)m(e)j(w)m(an)m(t)g(to)g(add)e(up)g(a)i
(series)e(of)h(terms,)i(generated)f(one)f(b)m(y)g(one,)i(un)m(til)c(w)m
(e)241 4028 y(reac)m(h)j(a)h(term)f(whic)m(h)e(is)h(less)g(than)h
(1/1000)j(in)25 b(v)-5 b(alue.)39 b(F)-8 b(or)28 b(our)e(simple)f
(example,)j(let)241 4128 y(us)33 b(supp)s(ose)f(the)i(\014rst)f(term)g
(equals)g(1)h(and)f(eac)m(h)i(term)f(is)e(obtained)h(from)g(the)h(one)
241 4228 y(b)s(efore)c(b)m(y)i(taking)f(one)g(third)e(of)j(it)e(and)h
(adding)e(one)j(third)d(its)i(square.)42 b(W)-8 b(e)33
b(w)m(ould)241 4327 y(write:)589 4533 y FH(ex:=0;)42
b(term:=1;)589 4633 y(while)g(num\(term)e(-)j(1/1000\))e(>=)i(0)87
b(do)938 4732 y(<<ex)42 b(:=)h(ex+term;)d(term:=\(term)f(+)k
(term^2\)/3>>;)589 4832 y(ex;)p eop
%%Page: 70 70
70 69 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(70)1643 b FM(CHAPTER)29 b(5.)72 b(ST)-8 b(A)g(TEMENTS)664
555 y FQ(As)32 b(long)e(as)i FJ(TERM)e FQ(is)h(greater)h(than)f(or)h
(equal)f(to)h(\()p FJ(>=)p FQ(\))f(1/1000)j(it)d(will)e(b)s(e)h(added)h
(to)664 668 y FJ(EX)26 b FQ(and)f(the)i(next)f FJ(TERM)f
FQ(calculated.)39 b(As)26 b(so)s(on)g(as)h FJ(TERM)d
FQ(b)s(ecomes)j(less)e(than)h(1/1000)664 781 y(the)31
b FJ(WHILE)e FQ(test)i(fails)e(and)h(the)g FJ(TERM)f
FQ(will)f(not)j(b)s(e)e(added.)664 918 y @beginspecial
@setspecial @endspecial 199 x FE(5.6)136 b(REPEA)-11
b(T)44 b(.)23 b(.)g(.)f(UNTIL)664 1357 y FJ(REPEAT)46
b(...UNTIL)28 b FQ(is)i(v)m(ery)h(similar)c(in)i(purp)s(ose)g(to)i
FJ(WHILE)46 b(...DO)p FQ(.)30 b(Its)g(syn)m(tax)h(is:)1013
1563 y FH(REPEAT)41 b(<statement>)e(UNTIL)j(<boolean)e(expression>)664
1782 y FQ(\(P)-8 b(ASCAL)31 b(users)f(note:)42 b(Only)29
b(a)j(single)d(statemen)m(t)k({)e(usually)e(a)i(group)f(statemen)m(t)
664 1895 y({)h(is)e(allo)m(w)m(ed)i(b)s(et)m(w)m(een)g(the)f
FJ(REPEAT)f FQ(and)h(the)g FJ(UNTIL.\))664 2057 y FQ(There)g(are)h(t)m
(w)m(o)h(essen)m(tial)e(di\013erences:)664 2145 y @beginspecial
@setspecial @endspecial 775 2295 a(1.)46 b(The)23 b(test)g(is)f(p)s
(erformed)f FD(after)33 b FQ(the)23 b(con)m(trolled)f(statemen)m(t)i
(\(or)f(group)f(of)h(state-)891 2408 y(men)m(ts\))33
b(is)e(executed,)i(so)g(the)f(con)m(trolled)f(statemen)m(t)j(is)d(alw)m
(a)m(ys)h(executed)h(at)891 2521 y(least)e(once.)664
2558 y @beginspecial @setspecial @endspecial 775 2708
a(2.)46 b(The)35 b(test)h(is)d(a)j(test)f(for)g(when)f(to)h(stop)g
(rather)g(than)g(when)f(to)h(con)m(tin)m(ue,)i(so)891
2821 y(its)30 b(\\p)s(olarit)m(y")g(is)g(the)g(opp)s(osite)g(of)g(that)
h(in)e FJ(WHILE)47 b(...DO.)664 3045 y FQ(As)31 b(an)f(example,)g(w)m
(e)h(rewrite)f(the)g(example)g(from)g(the)h FJ(WHILE)46
b(...DO)29 b FQ(section:)1013 3251 y FH(ex:=0;)41 b(term:=1;)1013
3351 y(repeat)g(<<ex)h(:=)h(ex+term;)d(term)i(:=)h(\(term)e(+)i
(term^2\)/3>>)1144 3451 y(until)e(num\(term)f(-)k(1/1000\))c(<)j(0;)
1013 3550 y(ex;)664 3769 y FQ(In)31 b(this)g(case,)i(the)f(answ)m(er)g
(will)d(b)s(e)i(the)h(same)g(as)g(b)s(efore,)g(b)s(ecause)g(in)e
(neither)h(case)664 3882 y(is)f(a)g(term)h(added)e(to)j
FJ(EX)d FQ(whic)m(h)g(is)h(less)g(than)g(1/1000.)664
4042 y @beginspecial @setspecial @endspecial 177 x FE(5.7)136
b(Comp)t(ound)44 b(Statemen)l(ts)664 4471 y FQ(Often)g(the)g(desired)f
(pro)s(cess)g(can)i(b)s(est)e(\(or)i(only\))e(b)s(e)h(describ)s(ed)e
(as)i(a)g(series)g(of)664 4584 y(steps)f(to)g(b)s(e)f(carried)f(out)i
(one)g(after)g(the)g(other.)77 b(In)42 b(man)m(y)h(cases,)j(this)c(can)
h(b)s(e)664 4697 y(ac)m(hiev)m(ed)33 b(b)m(y)e(use)g(of)h(the)g(group)f
(statemen)m(t.)46 b(Ho)m(w)m(ev)m(er,)34 b(eac)m(h)f(step)f(often)g
(pro)m(vides)664 4810 y(some)i(in)m(termediate)f(result,)g(un)m(til)f
(at)i(the)g(end)e(w)m(e)i(ha)m(v)m(e)h(the)f(\014nal)e(result)g(w)m(an)
m(ted.)664 4923 y(Alternativ)m(ely)-8 b(,)33 b(iterations)f(on)g(the)g
(steps)g(are)h(needed)f(that)g(are)h(not)f(p)s(ossible)e(with)p
eop
%%Page: 71 71
71 70 bop 241 299 a @beginspecial @setspecial @endspecial
FM(5.7.)72 b(COMPOUND)30 b(ST)-8 b(A)g(TEMENTS)1471 b
FQ(71)241 555 y(constructs)41 b(suc)m(h)h(as)f FJ(WHILE)f
FQ(or)i FJ(REPEAT)e FQ(statemen)m(ts.)76 b(In)40 b(suc)m(h)h(cases)i
(the)f(steps)241 668 y(of)31 b(the)h(pro)s(cess)e(m)m(ust)h(b)s(e)g
(enclosed)g(b)s(et)m(w)m(een)h(the)f(w)m(ords)g FJ(BEGIN)f
FQ(and)g FJ(END)h FQ(forming)241 781 y(what)25 b(is)e(tec)m(hnically)i
(called)f(a)h FD(blo)-5 b(ck)35 b FQ(or)25 b FD(c)-5
b(omp)g(ound)37 b FQ(statemen)m(t.)j(Suc)m(h)25 b(a)g(comp)s(ound)241
894 y(statemen)m(t)41 b(can)e(in)f(fact)i(b)s(e)f(used)f(wherev)m(er)h
(a)h(group)f(statemen)m(t)i(app)s(ears.)66 b(The)241
1007 y(con)m(v)m(erse)38 b(is)f(not)g(true:)54 b FJ(BEGIN)46
b(...END)36 b FQ(can)h(b)s(e)g(used)f(in)g(w)m(a)m(ys)i(that)f
FL(<<)g FQ(.)15 b(.)h(.)f FL(>>)241 1120 y FQ(cannot.)241
1269 y(If)31 b(in)m(termediate)g(results)f(m)m(ust)h(b)s(e)f(formed,)i
(lo)s(cal)e(v)-5 b(ariables)30 b(m)m(ust)h(b)s(e)g(pro)m(vided)f(in)241
1369 y(whic)m(h)j(to)h(store)h(them.)52 b FD(L)-5 b(o)g(c)g(al)45
b FQ(means)34 b(that)h(their)e(v)-5 b(alues)33 b(are)h(deleted)g(as)g
(so)s(on)g(as)241 1468 y(the)f(blo)s(c)m(k's)f(op)s(erations)h(are)g
(complete,)h(and)f(there)g(is)f(no)g(con\015ict)h(with)f(v)-5
b(ariables)241 1568 y(outside)32 b(the)h(blo)s(c)m(k)f(that)h(happ)s
(en)f(to)h(ha)m(v)m(e)h(the)f(same)g(name.)48 b(Lo)s(cal)33
b(v)-5 b(ariables)31 b(are)241 1668 y(created)g(b)m(y)f(a)h
FJ(SCALAR)e FQ(declaration)h(immediately)f(after)h(the)h
FJ(BEGIN)p FQ(:)459 1874 y FH(scalar)41 b(a,b,c,z;)241
2079 y FQ(If)33 b(more)h(con)m(v)m(enien)m(t,)i(sev)m(eral)e
FJ(SCALAR)e FQ(declarations)i(can)g(b)s(e)f(giv)m(en)h(one)g(after)g
(an-)241 2179 y(other:)459 2385 y FH(scalar)41 b(a,b,c;)459
2485 y(scalar)g(z;)241 2704 y FQ(In)36 b(place)g(of)h
FJ(SCALAR)e FQ(one)i(can)g(also)g(use)f(the)h(declarations)f
FJ(INTEGER)f FQ(or)h FJ(REAL)p FQ(.)g(In)241 2817 y(the)j(presen)m(t)g
(v)m(ersion)g(of)g(REDUCE)g(v)-5 b(ariables)38 b(declared)g
FJ(INTEGER)g FQ(are)h(exp)s(ected)241 2930 y(to)34 b(ha)m(v)m(e)h(only)
e(in)m(teger)h(v)-5 b(alues,)34 b(and)f(are)i(initialized)30
b(to)35 b(0.)51 b FJ(REAL)32 b FQ(v)-5 b(ariables)33
b(on)g(the)241 3043 y(other)d(hand)g(are)g(curren)m(tly)g(treated)h(as)
g(algebraic)f(mo)s(de)g FJ(SCALAR)p FQ(s.)241 3205 y
FD(CA)n(UTION:)h FJ(INTEGER)p FQ(,)g FJ(REAL)h FQ(and)g
FJ(SCALAR)g FQ(declarations)g(can)i(only)e(b)s(e)g(giv)m(en)h(im-)241
3318 y(mediately)39 b(after)h(a)g FJ(BEGIN)p FQ(.)e(An)i(error)f(will)e
(result)i(if)f(they)i(are)g(used)f(after)h(other)241
3431 y(statemen)m(ts)e(in)e(a)h(blo)s(c)m(k)g(\(including)d
FJ(ARRAY)h FQ(and)i FJ(OPERATOR)d FQ(declarations,)39
b(whic)m(h)241 3544 y(are)23 b(global)e(in)h(scop)s(e\),)i(or)f
(outside)f(the)g(top-most)i(blo)s(c)m(k)e(\(e.g.,)k(at)d(the)g(top)g
(lev)m(el\).)38 b(All)241 3657 y(v)-5 b(ariables)32 b(declared)h
FJ(SCALAR)f FQ(are)i(automatically)f(initialized)e(to)j(zero)g(in)f
(algebraic)241 3770 y(mo)s(de)d(\()p FJ(NIL)g FQ(in)f(sym)m(b)s(olic)f
(mo)s(de\).)241 3933 y(An)m(y)21 b(sym)m(b)s(ols)f(not)i(declared)f(as)
g(lo)s(cal)g(v)-5 b(ariables)20 b(in)g(a)i(blo)s(c)m(k)f(refer)g(to)h
(the)f(v)-5 b(ariables)20 b(of)241 4045 y(the)28 b(same)g(name)f(in)f
(the)i(curren)m(t)g(calling)e(en)m(vironmen)m(t.)39 b(In)27
b(particular,)g(if)f(they)i(are)241 4158 y(not)21 b(so)g(declared)f(at)
h(a)g(higher)f(lev)m(el)g(\(e.g.,)25 b(in)19 b(a)i(surrounding)c(blo)s
(c)m(k)k(or)f(as)h(parameters)241 4271 y(in)29 b(a)i(calling)d(pro)s
(cedure\),)i(their)g(v)-5 b(alues)29 b(can)i(b)s(e)f(p)s(ermanen)m(tly)
f(c)m(hanged.)241 4434 y(F)-8 b(ollo)m(wing)29 b(the)h
FJ(SCALAR)e FQ(declaration\(s\),)i(if)e(an)m(y)-8 b(,)31
b(write)e(the)h(statemen)m(ts)h(to)f(b)s(e)f(exe-)241
4547 y(cuted,)j(one)g(after)g(the)g(other,)g(separated)g(b)m(y)f
(delimiters)f(\(e.g.,)j FJ(;)f FQ(or)g FJ($)p FQ(\))f(\(it)h(do)s
(esn't)241 4660 y(matter)f(whic)m(h\).)40 b(Ho)m(w)m(ev)m(er,)32
b(from)e(a)h(st)m(ylistic)e(p)s(oin)m(t)h(of)g(view,)g
FJ(;)g FQ(is)g(preferred.)241 4823 y(The)d(last)g(statemen)m(t)i(in)d
(the)i(b)s(o)s(dy)-8 b(,)27 b(just)g(b)s(efore)g FJ(END)p
FQ(,)g(need)g(not)g(ha)m(v)m(e)i(a)f(terminator)241 4935
y(\(since)33 b(the)i FJ(BEGIN)46 b(...END)32 b FQ(are)i(in)f(a)h(sense)
g(brac)m(k)m(ets)i(con\014ning)c(the)i(blo)s(c)m(k)g(state-)p
eop
%%Page: 72 72
72 71 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(72)1643 b FM(CHAPTER)29 b(5.)72 b(ST)-8 b(A)g(TEMENTS)664
555 y FQ(men)m(ts\).)43 b(The)30 b(last)h(statemen)m(t)h(m)m(ust)f
(also)g(b)s(e)f(the)h(command)f FJ(RETURN)g FQ(follo)m(w)m(ed)g(b)m(y)
664 668 y(the)38 b(v)-5 b(ariable)37 b(or)h(expression)f(whose)h(v)-5
b(alue)37 b(is)g(to)i(b)s(e)e(the)i(v)-5 b(alue)37 b(returned)g(b)m(y)h
(the)664 781 y(pro)s(cedure.)57 b(If)36 b(the)g FJ(RETURN)f
FQ(is)g(omitted)h(\(or)h(nothing)e(is)g(written)g(after)i(the)f(w)m
(ord)664 894 y FJ(RETURN)p FQ(\))e(the)i(pro)s(cedure)e(will)f(ha)m(v)m
(e)k(no)e(v)-5 b(alue)35 b(or)h(the)f(v)-5 b(alue)35
b(zero,)j(dep)s(ending)33 b(on)664 1007 y(ho)m(w)d(it)f(is)g(used)g
(\(and)g FJ(NIL)g FQ(in)f(sym)m(b)s(olic)g(mo)s(de\).)41
b(Remem)m(b)s(er)29 b(to)h(put)f(a)h(terminator)664 1120
y(after)h(the)g FJ(END)p FQ(.)664 1282 y FD(Example:)664
1432 y FQ(Giv)m(en)45 b(a)f(previously)f(assigned)g(in)m(teger)i(v)-5
b(alue)44 b(for)g FJ(N)p FQ(,)h(the)g(follo)m(wing)e(blo)s(c)m(k)h
(will)664 1532 y(compute)31 b(the)f(Legendre)h(p)s(olynomial)d(of)i
(degree)h FJ(N)f FQ(in)f(the)i(v)-5 b(ariable)29 b FJ(X)p
FQ(:)1013 1737 y FH(begin)41 b(scalar)g(seed,deriv,top,fa)o(ct;)1144
1837 y(seed:=1/\(y^2)d(-)43 b(2*x*y)f(+1\)^\(1/2\);)1144
1937 y(deriv:=df\(seed,)o(y,n)o(\);)1144 2036 y(top:=sub\(y=0,de)o(riv)
o(\);)1144 2136 y(fact:=for)d(i:=1:n)j(product)e(i;)1144
2236 y(return)h(top/fact)1013 2335 y(end;)664 2474 y
@beginspecial @setspecial @endspecial 154 x FR(5.7.1)113
b(Comp)s(ound)38 b(Statemen)m(ts)f(with)f(GO)h(TO)664
2850 y FQ(It)30 b(is)e(p)s(ossible)f(to)j(ha)m(v)m(e)h(more)f
(complicated)f(structures)f(inside)g(the)h FJ(BEGIN)47
b(...END)664 2963 y FQ(brac)m(k)m(ets)34 b(than)e(indicated)f(in)f(the)
j(previous)e(example.)46 b(That)32 b(the)g(individual)c(lines)664
3076 y(of)41 b(the)h(program)e(need)h(not)g(b)s(e)g(assignmen)m(t)f
(statemen)m(ts,)46 b(but)40 b(could)g(b)s(e)h(almost)664
3189 y(an)m(y)30 b(other)g(kind)e(of)i(statemen)m(t)i(or)d(command,)h
(needs)f(no)h(explanation.)40 b(F)-8 b(or)30 b(exam-)664
3302 y(ple,)h(conditional)e(statemen)m(ts,)k(and)e FJ(WHILE)e
FQ(and)i FJ(REPEAT)60 b FQ(constructions,)31 b(ha)m(v)m(e)h(an)664
3414 y(ob)m(vious)e(role)g(in)f(de\014ning)f(more)j(in)m(tricate)f(blo)
s(c)m(ks.)664 3577 y(If)35 b(these)h(structured)e(constructs)h(don't)g
(su\016ce,)i(it)d(is)h(p)s(ossible)d(to)k(use)f(lab)s(els)f(and)664
3690 y FJ(GO)40 b(TO)p FQ(s)g(within)e(a)j(comp)s(ound)e(statemen)m(t,)
45 b(and)40 b(also)h(to)g(use)f FJ(RETURN)80 b FQ(in)39
b(places)664 3803 y(within)31 b(the)j(blo)s(c)m(k)f(other)h(than)f
(just)g(b)s(efore)g(the)h FJ(END)p FQ(.)f(The)g(follo)m(wing)f
(subsections)664 3916 y(discuss)38 b(these)h(matters)h(in)e(detail.)67
b(F)-8 b(or)40 b(man)m(y)g(readers)f(the)g(follo)m(wing)f(example,)664
4029 y(presen)m(ting)29 b(one)h(p)s(ossible)c(de\014nition)i(of)h(a)h
(pro)s(cess)f(to)h(calculate)g(the)f(factorial)h(of)f
FJ(N)664 4142 y FQ(for)h(preassigned)f FJ(N)h FQ(will)e(su\016ce:)664
4291 y FD(Example:)1013 4497 y FH(begin)41 b(scalar)g(m;)1187
4597 y(m:=1;)1056 4696 y(l:)i(if)g(n=0)f(then)g(return)f(m;)1187
4796 y(m:=m*n;)1187 4896 y(n:=n-1;)p eop
%%Page: 73 73
73 72 bop 241 299 a @beginspecial @setspecial @endspecial
FM(5.7.)72 b(COMPOUND)30 b(ST)-8 b(A)g(TEMENTS)1471 b
FQ(73)764 555 y FH(go)43 b(to)f(l)589 655 y(end;)241
794 y @beginspecial @setspecial @endspecial 154 x FR(5.7.2)112
b(Lab)s(els)38 b(and)h(GO)e(TO)h(Statemen)m(ts)241 1170
y FQ(Within)c(a)j FJ(BEGIN)46 b(...END)34 b FQ(comp)s(ound)h(statemen)m
(t)j(it)e(is)f(p)s(ossible)f(to)i(lab)s(el)f(state-)241
1282 y(men)m(ts,)e(and)e(transfer)g(to)i(them)f(out)g(of)g(sequence)g
(using)f FJ(GO)g(TO)g FQ(statemen)m(ts.)47 b(Only)241
1395 y(statemen)m(ts)28 b(on)f(the)h(top)f(lev)m(el)f(inside)f(comp)s
(ound)h(statemen)m(ts)i(can)g(b)s(e)e(lab)s(eled,)g(not)241
1508 y(ones)k(inside)e(subsidiary)f(constructions)i(lik)m(e)h
FL(<<)f FQ(.)16 b(.)f(.)h FL(>>)p FQ(,)30 b FJ(IF)f FQ(.)15
b(.)h(.)f FJ(THEN)29 b FQ(.)16 b(.)f(.)h(,)30 b FJ(WHILE)241
1621 y FQ(.)15 b(.)h(.)f FJ(DO)30 b FQ(.)15 b(.)h(.)f(,)31
b(etc.)241 1771 y(Lab)s(els)e(and)h FJ(GO)47 b(TO)30
b FQ(statemen)m(ts)i(ha)m(v)m(e)f(the)g(syn)m(tax:)589
1976 y FH(<go)43 b(to)g(statement>)c(::=)j(GO)h(TO)g(<label>)e(|)i
(GOTO)f(<label>)589 2076 y(<label>)f(::=)h(<identifier>)589
2176 y(<labeled)f(statement>)e(::=)k(<label>:<statem)o(en)o(t>)241
2395 y FQ(Note)31 b(that)g(statemen)m(t)i(names)d(cannot)h(b)s(e)f
(used)f(as)i(lab)s(els.)241 2544 y(While)23 b FJ(GO)47
b(TO)25 b FQ(is)e(an)i(unconditional)d(transfer,)k(it)e(is)g(frequen)m
(tly)g(used)g(in)f(conditional)241 2644 y(statemen)m(ts)32
b(suc)m(h)e(as)589 2850 y FH(if)43 b(x>5)g(then)e(go)i(to)g(abcd;)241
3069 y FQ(giving)29 b(the)i(e\013ect)g(of)g(a)g(conditional)d
(transfer.)241 3232 y(T)-8 b(ransfers)41 b(using)g FJ(GO)47
b(TO)p FQ(s)41 b(can)i(only)e(o)s(ccur)h(within)e(the)i(blo)s(c)m(k)g
(in)f(whic)m(h)g(the)h FJ(GO)241 3345 y(TO)33 b FQ(is)h(used.)52
b(In)33 b(other)i(w)m(ords,)g(y)m(ou)f(cannot)h(transfer)f(from)g(an)g
(inner)f(blo)s(c)m(k)h(to)h(an)241 3458 y(outer)h(blo)s(c)m(k)f(using)f
(a)i FJ(GO)47 b(TO)p FQ(.)35 b(Ho)m(w)m(ev)m(er,)k(if)c(a)g(group)g
(statemen)m(t)j(o)s(ccurs)d(within)e(a)241 3571 y(comp)s(ound)c
(statemen)m(t,)k(it)e(is)f(p)s(ossible)e(to)k(jump)d(out)i(of)g(that)h
(group)e(statemen)m(t)j(to)241 3683 y(a)e(p)s(oin)m(t)e(within)f(the)i
(comp)s(ound)f(statemen)m(t)j(using)d(a)i FJ(GO)47 b(TO)p
FQ(.)241 3828 y @beginspecial @setspecial @endspecial
149 x FR(5.7.3)112 b(RETURN)36 b(Statemen)m(ts)241 4198
y FQ(The)28 b(v)-5 b(alue)29 b(corresp)s(onding)e(to)i(a)h
FJ(BEGIN)46 b(...END)27 b FQ(comp)s(ound)h(statemen)m(t,)61
b(suc)m(h)28 b(as)241 4311 y(a)37 b(pro)s(cedure)f(b)s(o)s(dy)-8
b(,)37 b(is)f(normally)f(0)j(\()p FJ(NIL)e FQ(in)f(sym)m(b)s(olic)h(mo)
s(de\).)60 b(By)37 b(executing)g(a)241 4424 y FJ(RETURN)d
FQ(statemen)m(t)j(in)d(the)i(comp)s(ound)e(statemen)m(t)j(a)f
(di\013eren)m(t)f(v)-5 b(alue)35 b(can)h(b)s(e)f(re-)241
4537 y(turned.)j(After)28 b(a)g FJ(RETURN)d FQ(statemen)m(t)k(is)e
(executed,)i(no)e(further)f(statemen)m(ts)j(within)241
4650 y(the)h(comp)s(ound)f(statemen)m(t)j(are)f(executed.)241
4799 y FJ(Examples:)p eop
%%Page: 74 74
74 73 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(74)1643 b FM(CHAPTER)29 b(5.)72 b(ST)-8 b(A)g(TEMENTS)1013
555 y FH(return)41 b(x+y;)1013 655 y(return)g(m;)1013
754 y(return;)664 974 y FQ(Note)36 b(that)f(paren)m(theses)g(are)f(not)
h(required)d(around)i(the)g FJ(x+y)p FQ(,)h(although)f(they)h(are)664
1087 y(p)s(ermitted.)82 b(The)44 b(last)g(example)h(is)e(equiv)-5
b(alen)m(t)44 b(to)i FJ(return)g(0)e FQ(or)g FJ(return)j(nil)p
FQ(,)664 1199 y(dep)s(ending)28 b(on)i(whether)g(the)h(blo)s(c)m(k)f
(is)f(used)h(as)g(part)g(of)h(an)f(expression)f(or)i(not.)664
1362 y(Since)h FJ(RETURN)f FQ(actually)i(mo)m(v)m(es)h(up)e(only)g(one)
h(blo)s(c)m(k)g(lev)m(el,)g(in)f(a)h(sense)g(the)g(casual)664
1475 y(user)i(is)f(not)h(exp)s(ected)h(to)g(understand,)e(w)m(e)i
(tabulate)f(some)h(cautions)e(concerning)664 1588 y(its)c(use.)664
1675 y @beginspecial @setspecial @endspecial 775 1825
a(1.)46 b FJ(RETURN)31 b FQ(can)i(b)s(e)e(used)h(on)g(the)h(top)f(lev)m
(el)g(inside)e(the)j(comp)s(ound)e(statemen)m(t,)891
1938 y(i.e.)40 b(as)29 b(one)g(of)f(the)h(statemen)m(ts)h(brac)m(k)m
(eted)g(together)g(b)m(y)f(the)f FJ(BEGIN)47 b(...END)664
1993 y @beginspecial @setspecial @endspecial 775 2126
a FQ(2.)f FJ(RETURN)27 b FQ(can)i(b)s(e)f(used)g(within)e(a)k(top)f
(lev)m(el)f FL(<<)g FQ(.)15 b(.)h(.)f FL(>>)28 b FQ(construction)g
(within)891 2239 y(the)38 b(comp)s(ound)d(statemen)m(t.)63
b(In)36 b(this)g(case,)k(the)e FJ(RETURN)d FQ(transfers)h(con)m(trol)
891 2352 y(out)31 b(of)g(b)s(oth)e(the)i(group)f(statemen)m(t)i(and)e
(the)g(comp)s(ound)f(statemen)m(t.)664 2407 y @beginspecial
@setspecial @endspecial 775 2539 a(3.)46 b FJ(RETURN)28
b FQ(can)h(b)s(e)g(used)f(within)f(an)i FJ(IF)f FQ(.)15
b(.)h(.)f FJ(THEN)28 b FQ(.)16 b(.)f(.)g FJ(ELSE)28 b
FQ(.)16 b(.)f(.)h(on)29 b(the)g(top)g(lev)m(el)891 2652
y(within)f(the)j(comp)s(ound)e(statemen)m(t.)664 2876
y(NOTE:)h(A)m(t)h(presen)m(t,)g(there)f(is)g(no)g(construct)h(pro)m
(vided)e(to)i(p)s(ermit)d(early)i(termina-)664 2976 y(tion)f(of)g(a)g
FJ(FOR)p FQ(,)f FJ(WHILE)p FQ(,)g(or)h FJ(REPEAT)e FQ(statemen)m(t.)42
b(In)28 b(particular,)g(the)h(use)g(of)g FJ(RETURN)664
3076 y FQ(in)g(suc)m(h)h(cases)i(results)d(in)g(a)i(syn)m(tax)f(error.)
41 b(F)-8 b(or)31 b(example,)1013 3282 y FH(begin)41
b(scalar)g(y;)1144 3381 y(y)i(:=)g(for)f(i:=0:99)f(do)h(if)h(a\(i\)=x)e
(then)h(return)f(b\(i\);)1144 3481 y(...)664 3700 y FQ(will)28
b(lead)i(to)h(an)f(error.)p eop
%%Page: 75 75
75 74 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(6)241 1693 y FT(Commands)76 b(and)i(Declarations)241
2174 y FQ(A)36 b(command)g(is)f(an)h(order)g(to)h(the)f(system)h(to)g
(do)f(something.)58 b(Some)36 b(commands)241 2274 y(cause)k(visible)c
(results)i(\(suc)m(h)i(as)f(calling)f(for)h(input)f(or)h(output\);)44
b(others,)e(usually)241 2373 y(called)27 b(declarations,)i(set)g
(options,)f(de\014ne)g(prop)s(erties)f(of)i(v)-5 b(ariables,)27
b(or)i(de\014ne)f(pro-)241 2473 y(cedures.)46 b(Commands)31
b(are)i(formally)e(de\014ned)g(as)i(a)g(statemen)m(t)h(follo)m(w)m(ed)e
(b)m(y)g(a)h(ter-)241 2573 y(minator)589 2779 y FH(<command>)40
b(::=)j(<statement>)c(<terminator>)589 2878 y(<terminator>)g(::=)j(;|$)
241 3097 y FQ(Some)32 b(REDUCE)h(commands)f(and)g(declarations)g(are)h
(describ)s(ed)d(in)h(the)i(follo)m(wing)241 3210 y(sub-sections.)241
3344 y @beginspecial @setspecial @endspecial 200 x FE(6.1)135
b(Arra)l(y)45 b(Declarations)241 3783 y FQ(Arra)m(y)29
b(declarations)g(in)g(REDUCE)g(are)h(similar)d(to)j(F)m(OR)-8
b(TRAN)30 b(dimension)d(state-)241 3883 y(men)m(ts.)41
b(F)-8 b(or)31 b(example:)589 4089 y FH(array)42 b(a\(10\),b\(2,3,4\);)
241 4308 y FQ(Arra)m(y)37 b(indices)f(eac)m(h)j(range)e(from)g(0)h(to)g
(the)g(v)-5 b(alue)37 b(declared.)61 b(An)37 b(elemen)m(t)h(of)g(an)241
4421 y(arra)m(y)31 b(is)e(referred)h(to)h(in)e(standard)g(F)m(OR)-8
b(TRAN)32 b(notation,)e(e.g.)42 b FJ(A\(2\))p FQ(.)241
4583 y(W)-8 b(e)40 b(can)g(also)f(use)g(an)g(expression)f(for)h
(de\014ning)f(an)h(arra)m(y)h(b)s(ound,)f(pro)m(vided)f(the)241
4696 y(v)-5 b(alue)29 b(of)g(the)h(expression)e(is)g(a)i(p)s(ositiv)m
(e)e(in)m(teger.)41 b(F)-8 b(or)30 b(example,)g(if)e
FJ(X)h FQ(has)g(the)h(v)-5 b(alue)241 4809 y(10)31 b(and)f
FJ(Y)g FQ(the)g(v)-5 b(alue)30 b(7)h(then)f FJ(array)46
b(c\(5*x+y\))28 b FQ(is)i(the)g(same)h(as)g FJ(array)46
b(c\(57\))p FQ(.)241 4959 y(If)34 b(an)h(arra)m(y)g(is)f(referenced)h
(b)m(y)g(an)f(index)g(outside)g(its)g(range,)j(an)e(error)f(o)s(ccurs.)
54 b(If)1690 5187 y(75)p eop
%%Page: 76 76
76 75 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(76)706 b FM(CHAPTER)29 b(6.)72 b(COMMANDS)30 b(AND)i(DECLARA)-8
b(TIONS)664 555 y FQ(the)35 b(arra)m(y)g(is)f(to)h(b)s(e)f
(one-dimensional,)g(and)g(the)h(b)s(ound)e(a)i(n)m(um)m(b)s(er)e(or)i
(a)g(v)-5 b(ariable)664 655 y(\(not)31 b(a)g(more)f(general)h
(expression\))e(the)i(paren)m(theses)g(ma)m(y)f(b)s(e)g(omitted:)1013
861 y FH(array)41 b(a)j(10,)e(c)h(57;)664 1080 y FQ(The)33
b(op)s(erator)h FJ(LENGTH)d FQ(applied)g(to)j(an)f(arra)m(y)h(name)f
(returns)g(a)g(list)f(of)i(its)e(dimen-)664 1193 y(sions.)664
1356 y(All)g(arra)m(y)i(elemen)m(ts)g(are)f(initialized)e(to)j(0)g(at)g
(declaration)f(time.)49 b(In)33 b(other)g(w)m(ords,)664
1468 y(an)i(arra)m(y)g(elemen)m(t)h(has)e(an)h FD(instant)j(evaluation)
43 b FQ(prop)s(ert)m(y)34 b(and)g(cannot)i(stand)e(for)664
1581 y(itself.)40 b(If)30 b(this)f(is)g(required,)g(then)h(an)g(op)s
(erator)h(should)e(b)s(e)g(used)h(instead.)664 1744 y(Arra)m(y)38
b(declarations)e(can)i(app)s(ear)e(an)m(ywhere)i(in)d(a)j(program.)61
b(Once)37 b(a)h(sym)m(b)s(ol)e(is)664 1857 y(declared)28
b(to)i(name)e(an)h(arra)m(y)-8 b(,)30 b(it)e(can)h(not)g(also)g(b)s(e)f
(used)g(as)h(a)g(v)-5 b(ariable,)28 b(or)g(to)i(name)664
1970 y(an)35 b(op)s(erator)f(or)h(a)g(pro)s(cedure.)52
b(It)34 b(can)h(ho)m(w)m(ev)m(er)h(b)s(e)e(re-declared)g(to)h(b)s(e)f
(an)h(arra)m(y)-8 b(,)664 2083 y(and)28 b(its)h(size)f(ma)m(y)i(b)s(e)e
(c)m(hanged)h(at)h(that)f(time.)40 b(An)29 b(arra)m(y)g(name)g(can)g
(also)g(con)m(tin)m(ue)664 2196 y(to)f(b)s(e)f(used)g(as)h(a)g
(parameter)g(in)e(a)i(pro)s(cedure,)f(or)h(a)g(lo)s(cal)f(v)-5
b(ariable)26 b(in)g(a)i(comp)s(ound)664 2309 y(statemen)m(t,)35
b(although)e(this)e(use)h(is)g(not)h(recommended,)g(since)f(it)g(can)h
(lead)f(to)i(user)664 2422 y(confusion)29 b(o)m(v)m(er)j(the)e(t)m(yp)s
(e)h(of)g(the)f(v)-5 b(ariable.)664 2584 y(Arra)m(ys)26
b(once)g(declared)g(are)g(global)f(in)f(scop)s(e,)j(and)e(so)h(can)g
(then)g(b)s(e)f(referenced)g(an)m(y-)664 2697 y(where)d(in)f(the)h
(program.)38 b(In)21 b(other)i(w)m(ords,)g(unlik)m(e)e(arra)m(ys)h(in)f
(most)i(other)f(languages,)664 2810 y(a)27 b(declaration)g(within)d(a)j
(blo)s(c)m(k)f(\(or)h(a)g(pro)s(cedure\))f(do)s(es)h(not)g(limit)d(the)
j(scop)s(e)g(of)g(the)664 2923 y(arra)m(y)37 b(to)g(that)f(blo)s(c)m
(k,)i(nor)e(do)s(es)f(the)i(arra)m(y)f(go)h(a)m(w)m(a)m(y)h(on)f
(exiting)e(the)h(blo)s(c)m(k)g(\(use)664 3036 y FJ(CLEAR)29
b FQ(instead)h(for)g(this)f(purp)s(ose\).)664 3196 y
@beginspecial @setspecial @endspecial 176 x FE(6.2)136
b(Mo)t(de)44 b(Handling)i(Declarations)664 3612 y FQ(The)27
b FJ(ON)f FQ(and)h FJ(OFF)f FQ(declarations)h(are)h(a)m(v)-5
b(ailable)26 b(to)i(the)f(user)g(for)g(con)m(trolling)f(v)-5
b(arious)664 3711 y(system)45 b(options.)83 b(Eac)m(h)46
b(option)e(is)g(represen)m(ted)h(b)m(y)f(a)i FD(switch)52
b FQ(name.)84 b FJ(ON)45 b FQ(and)664 3811 y FJ(OFF)f
FQ(tak)m(e)i(a)f(list)e(of)h(switc)m(h)g(names)g(as)h(argumen)m(t)g
(and)f(turn)f(them)h(on)h(and)e(o\013)664 3910 y(resp)s(ectiv)m(ely)-8
b(,)31 b(e.g.,)969 4116 y FH(on)43 b(time;)664 4336 y
FQ(causes)26 b(the)g(system)g(to)g(prin)m(t)e(a)i(message)g(after)h
(eac)m(h)f(command)g(giving)e(the)i(elapsed)664 4448
y(CPU)j(time)f(since)g(the)h(last)g(command,)g(or)f(since)g
FJ(TIME)g FQ(w)m(as)h(last)g(turned)e(o\013,)j(or)f(the)664
4561 y(session)39 b(b)s(egan.)69 b(Another)39 b(useful)f(switc)m(h)h
(with)g(in)m(teractiv)m(e)h(use)g(is)e FJ(DEMO)p FQ(,)h(whic)m(h)664
4674 y(causes)27 b(the)g(system)g(to)g(pause)f(after)h(eac)m(h)h
(command)e(in)g(a)h(\014le)e(\(with)h(the)h(exception)664
4797 y(of)j(commen)m(ts\))i(un)m(til)c(a)p 1519 4709
314 4 v 1519 4822 4 113 v 59 w FG(Return)p 1829 4822
V 1519 4825 314 4 v 58 w FQ(is)h(t)m(yp)s(ed)g(on)h(the)h(terminal.)39
b(This)28 b(enables)h(a)i(user)664 4910 y(to)g(set)g(up)f(a)g
(demonstration)g(\014le)g(and)f(step)i(through)e(it)h(command)g(b)m(y)h
(command.)p eop
%%Page: 77 77
77 76 bop 241 299 a @beginspecial @setspecial @endspecial
FM(6.3.)72 b(END)2487 b FQ(77)241 555 y(As)24 b(with)f(most)i
(declarations,)h(argumen)m(ts)f(to)g FJ(ON)f FQ(and)g
FJ(OFF)f FQ(ma)m(y)i(b)s(e)f(strung)g(together)241 655
y(separated)31 b(b)m(y)f(commas.)41 b(F)-8 b(or)31 b(example,)589
861 y FH(off)43 b(time,demo;)241 1080 y FQ(will)27 b(turn)j(o\013)h(b)s
(oth)e(the)i(time)f(messages)h(and)f(the)h(demonstration)e(switc)m(h.)
241 1243 y(W)-8 b(e)42 b(note)g(here)f(that)h(while)d(most)i
FJ(ON)g FQ(and)f FJ(OFF)h FQ(commands)g(are)g(ob)s(ey)m(ed)g(almost)241
1356 y(instan)m(taneously)-8 b(,)48 b(some)e(trigger)f(time-consuming)e
(actions)j(suc)m(h)e(as)i(reading)e(in)241 1468 y(necessary)31
b(mo)s(dules)d(from)i(secondary)g(storage.)241 1618 y(A)g(diagnostic)g
(message)h(is)f(prin)m(ted)e(if)i FJ(ON)f FQ(or)i FJ(OFF)59
b FQ(are)31 b(used)e(with)g(a)i(switc)m(h)f(that)g(is)241
1718 y(not)g(kno)m(wn)g(to)h(the)g(system.)41 b(F)-8
b(or)31 b(example,)f(if)g(y)m(ou)g(missp)s(ell)d FJ(DEMO)i
FQ(and)h(t)m(yp)s(e)459 1923 y FH(on)42 b(demq;)241 2129
y FQ(y)m(ou)30 b(will)e(get)k(the)e(message)589 2335
y FH(*****)42 b(DEMQ)g(not)g(defined)f(as)i(switch.)241
2484 y @beginspecial @setspecial @endspecial 187 x FE(6.3)135
b(END)241 2924 y FQ(The)30 b(iden)m(ti\014er)e FJ(END)i
FQ(has)g(t)m(w)m(o)i(separate)f(uses.)241 3087 y(1\))d(Its)g(use)g(in)f
(a)h FJ(BEGIN)46 b(...END)27 b FQ(brac)m(k)m(et)i(has)f(b)s(een)f
(discussed)f(in)h(connection)h(with)241 3200 y(comp)s(ound)h(statemen)m
(ts.)241 3363 y(2\))k(Files)e(to)h(b)s(e)g(read)g(using)e
FJ(IN)i FQ(should)e(end)h(with)g(an)h(extra)h FJ(END)p
FQ(;)e(command.)46 b(The)241 3475 y(reason)39 b(for)g(this)f(is)g
(explained)g(in)g(the)h(section)g(on)h(the)f FJ(IN)f
FQ(command.)67 b(This)38 b(use)241 3588 y(of)c FJ(END)f
FQ(do)s(es)h(not)g(allo)m(w)g(an)g(immediately)e(preceding)i
FJ(END)f FQ(\(suc)m(h)h(as)g(the)h FJ(END)e FQ(of)h(a)241
3701 y(pro)s(cedure)29 b(de\014nition\),)g(so)h(w)m(e)h(advise)f(using)
f FJ(;END;)g FQ(there.)241 3861 y @beginspecial @setspecial
@endspecial 177 x FE(6.4)135 b(BYE)44 b(Command)241 4290
y FQ(The)21 b(command)g FJ(BYE)p FQ(;)g(\(or)i(alternativ)m(ely)e
FJ(QUIT)p FQ(;\))g(stops)h(the)g(execution)f(of)h(REDUCE,)241
4403 y(closes)29 b(all)f(op)s(en)h(output)f(\014les,)h(and)f(returns)g
(y)m(ou)i(to)g(the)f(calling)f(program)g(\(usually)241
4516 y(the)i(op)s(erating)g(system\).)41 b(Y)-8 b(our)31
b(REDUCE)f(session)g(is)f(normally)g(destro)m(y)m(ed.)241
4676 y @beginspecial @setspecial @endspecial eop
%%Page: 78 78
78 77 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(78)706 b FM(CHAPTER)29 b(6.)72 b(COMMANDS)30 b(AND)i(DECLARA)-8
b(TIONS)664 555 y FE(6.5)136 b(SHO)l(WTIME)44 b(Command)664
808 y FJ(SHOWTIME)p FQ(;)26 b(prin)m(ts)g(the)h(elapsed)g(time)g(since)
g(the)h(last)f(call)g(of)g(this)g(command)g(or,)h(on)664
921 y(its)23 b(\014rst)g(call,)i(since)e(the)h(curren)m(t)f(REDUCE)h
(session)f(b)s(egan.)38 b(The)23 b(time)h(is)f(normally)664
1034 y(giv)m(en)i(in)f(milliseconds)e(and)i(giv)m(es)i(the)f(time)g(as)
g(measured)f(b)m(y)h(a)h(system)f(clo)s(c)m(k.)39 b(The)664
1147 y(op)s(erations)30 b(co)m(v)m(ered)i(b)m(y)e(this)f(measure)i(are)
f(system)h(dep)s(enden)m(t.)664 1301 y @beginspecial
@setspecial @endspecial 182 x FE(6.6)136 b(DEFINE)45
b(Command)664 1722 y FQ(The)35 b(command)f FJ(DEFINE)f
FQ(allo)m(ws)i(a)g(user)f(to)i(supply)c(a)k(new)e(name)h(for)g(an)m(y)g
(iden)m(ti-)664 1822 y(\014er)j(or)h(replace)g(it)f(b)m(y)h(an)m(y)g(w)
m(ell-formed)f(expression.)64 b(Its)39 b(argumen)m(t)g(is)f(a)h(list)f
(of)664 1922 y(expressions)29 b(of)i(the)f(form)1013
2128 y FH(<identifier>)38 b(=)44 b(<number>|<ident)o(ifi)o(er)o(>|<)o
(op)o(er)o(ato)o(r>)o(|)1710 2227 y(<reserved)c(word>|<expressio)o(n>)
664 2433 y FD(Example:)1013 2639 y FH(define)h(be==,x=y+z;)664
2858 y FQ(means)31 b(that)g FJ(BE)f FQ(will)e(b)s(e)i(in)m(terpreted)g
(as)h(an)f(equal)g(sign,)g(and)g FJ(X)g FQ(as)h(the)g(expression)664
2971 y FJ(y+z)c FQ(from)h(then)g(on.)40 b(This)26 b(renaming)h(is)h
(done)g(at)h(parse)f(time,)g(and)g(therefore)g(tak)m(es)664
3084 y(precedence)35 b(o)m(v)m(er)h(an)m(y)f(other)g(replacemen)m(t)g
(declared)f(for)g(the)h(same)f(iden)m(ti\014er.)52 b(It)664
3197 y(sta)m(ys)31 b(in)f(e\013ect)h(un)m(til)e(the)i(end)e(of)i(the)f
(REDUCE)h(run.)664 3346 y(The)48 b(iden)m(ti\014ers)e
FJ(ALGEBRAIC)g FQ(and)h FJ(SYMBOLIC)f FQ(ha)m(v)m(e)k(prop)s(erties)c
(whic)m(h)h(prev)m(en)m(t)664 3446 y FJ(DEFINE)e FQ(from)h(b)s(eing)f
(used)g(on)h(them.)89 b(T)-8 b(o)47 b(de\014ne)e FJ(ALG)h
FQ(to)h(b)s(e)f(a)g(synon)m(ym)g(for)664 3546 y FJ(ALGEBRAIC)p
FQ(,)28 b(use)i(the)h(more)f(complicated)g(construction)1013
3751 y FH(put\('alg,'newnam)o(,')o(alg)o(eb)o(rai)o(c\))o(;)p
eop
%%Page: 79 79
79 78 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(7)241 1693 y FT(Built-in)77 b(Pre\014x)g(Op)6 b(erators)241
2187 y FQ(In)30 b(the)g(follo)m(wing)f(subsections)h(are)h
(descriptions)d(of)j(the)g(most)f(useful)f(pre\014x)h(op)s(er-)241
2300 y(ators)40 b(built)d(in)m(to)i(REDUCE)g(that)h(are)g(not)f
(de\014ned)f(in)g(other)i(sections)f(\(suc)m(h)g(as)241
2413 y(substitution)h(op)s(erators\).)78 b(Some)42 b(are)h(fully)d
(de\014ned)h(in)m(ternally)g(as)i(pro)s(cedures;)241
2526 y(others)33 b(are)h(more)f(nearly)g(abstract)h(op)s(erators,)g
(with)e(only)g(some)i(of)f(their)g(prop)s(er-)241 2639
y(ties)d(kno)m(wn)g(to)h(the)f(system.)241 2802 y(In)40
b(man)m(y)h(cases,)k(an)40 b(op)s(erator)i(is)e(describ)s(ed)e(b)m(y)j
(a)g(protot)m(ypical)g(header)g(line)e(as)241 2915 y(follo)m(ws.)g(Eac)
m(h)30 b(formal)f(parameter)g(is)g(giv)m(en)g(a)h(name)f(and)g(follo)m
(w)m(ed)g(b)m(y)g(its)g(allo)m(w)m(ed)241 3028 y(t)m(yp)s(e.)41
b(The)29 b(names)h(of)g(classes)g(referred)f(to)i(in)e(the)h
(de\014nition)e(are)i(prin)m(ted)f(in)f(lo)m(w)m(er)241
3141 y(case,)34 b(and)f(parameter)g(names)f(in)g(upp)s(er)f(case.)48
b(If)33 b(a)g(parameter)g(t)m(yp)s(e)g(is)f(not)h(com-)241
3253 y(monly)d(used,)g(it)g(ma)m(y)i(b)s(e)e(a)h(sp)s(eci\014c)f(set)h
(enclosed)g(in)f(brac)m(k)m(ets)i FP(f)f FQ(.)16 b(.)f(.)g
FP(g)p FQ(.)43 b(Op)s(erators)241 3366 y(that)37 b(accept)h(formal)e
(parameter)h(lists)e(of)h(arbitrary)g(length)g(ha)m(v)m(e)h(the)g
(parameter)241 3479 y(and)31 b(t)m(yp)s(e)h(class)f(enclosed)g(in)g
(square)g(brac)m(k)m(ets)i(indicating)d(that)i(zero)g(or)g(more)g(o)s
(c-)241 3592 y(currences)j(of)h(that)g(argumen)m(t)h(are)f(p)s
(ermitted.)55 b(Optional)34 b(parameters)i(and)f(their)241
3705 y(t)m(yp)s(e)30 b(classes)h(are)f(enclosed)h(in)e(angle)h(brac)m
(k)m(ets.)241 3860 y @beginspecial @setspecial @endspecial
181 x FE(7.1)135 b(Numerical)46 b(Op)t(erators)241 4294
y FQ(REDUCE)27 b(includes)f(a)i(n)m(um)m(b)s(er)e(of)i(functions)f
(that)h(are)g(analogs)g(of)g(those)g(found)f(in)241 4407
y(most)32 b(n)m(umerical)e(systems.)44 b(With)31 b(n)m(umerical)f
(argumen)m(ts,)i(suc)m(h)g(functions)e(return)241 4520
y(the)j(exp)s(ected)h(result.)49 b(Ho)m(w)m(ev)m(er,)37
b(they)c(ma)m(y)h(also)g(b)s(e)e(called)h(with)f(non-n)m(umerical)241
4633 y(argumen)m(ts.)86 b(In)45 b(suc)m(h)g(cases,)51
b(except)46 b(where)f(noted,)50 b(the)c(system)f(attempts)i(to)241
4746 y(simplify)27 b(the)j(expression)f(as)i(far)f(as)h(it)f(can.)41
b(In)29 b(suc)m(h)h(cases,)i(a)f(residual)d(expression)241
4859 y(in)m(v)m(olving)44 b(the)h(original)e(op)s(erator)j(usually)d
(remains.)84 b(These)45 b(op)s(erators)h(are)f(as)1690
5187 y(79)p eop
%%Page: 80 80
80 79 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(80)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FQ(follo)m(ws:)664
682 y @beginspecial @setspecial @endspecial 166 x FR(7.1.1)113
b(ABS)664 1057 y FJ(ABS)31 b FQ(returns)f(the)i(absolute)g(v)-5
b(alue)31 b(of)h(its)f(single)f(argumen)m(t,)j(if)e(that)h(argumen)m(t)
g(has)664 1156 y(a)39 b(n)m(umerical)e(v)-5 b(alue.)66
b(A)38 b(non-n)m(umerical)f(argumen)m(t)i(is)f(returned)g(as)h(an)f
(absolute)664 1256 y(v)-5 b(alue,)29 b(with)e(an)i(o)m(v)m(erall)f(n)m
(umerical)f(co)s(e\016cien)m(t)j(tak)m(en)g(outside)d(the)i(absolute)f
(v)-5 b(alue)664 1355 y(op)s(erator.)41 b(F)-8 b(or)31
b(example:)1013 1561 y FH(abs\(-3/4\))214 b(->)86 b(3/4)1013
1661 y(abs\(2a\))302 b(->)86 b(2*ABS\(A\))1013 1761 y(abs\(i\))346
b(->)86 b(1)1013 1860 y(abs\(-x\))302 b(->)86 b(ABS\(X\))664
1994 y @beginspecial @setspecial @endspecial 160 x FR(7.1.2)113
b(CEILING)664 2375 y FQ(This)20 b(op)s(erator)i(returns)f(the)h
(ceiling)e(\(i.e.,)25 b(the)d(least)g(in)m(teger)g(greater)h(than)f
(the)g(giv)m(en)664 2488 y(argumen)m(t\))39 b(if)e(its)g(single)f
(argumen)m(t)j(has)e(a)i(n)m(umerical)d(v)-5 b(alue.)63
b(A)38 b(non-n)m(umerical)664 2601 y(argumen)m(t)25 b(is)e(returned)h
(as)g(an)g(expression)g(in)f(the)h(original)f(op)s(erator.)39
b(F)-8 b(or)25 b(example:)1013 2832 y FH(ceiling\(-5/4\))38
b(->)86 b(-1)1013 2931 y(ceiling\(-a\))126 b(->)86 b(CEILING\(-A\))664
3077 y @beginspecial @setspecial @endspecial 147 x FR(7.1.3)113
b(CONJ)664 3433 y FQ(This)31 b(returns)h(the)i(complex)e(conjugate)j
(of)e(an)g(expression,)g(if)f(that)i(argumen)m(t)f(has)664
3532 y(an)27 b(n)m(umerical)f(v)-5 b(alue.)39 b(A)27
b(non-n)m(umerical)f(argumen)m(t)h(is)g(returned)f(as)h(an)g
(expression)664 3632 y(in)i(the)i(op)s(erators)f FJ(REPART)f
FQ(and)h FJ(IMPART)p FQ(.)f(F)-8 b(or)31 b(example:)1013
3838 y FH(conj\(1+i\))214 b(->)43 b(1-I)1013 3937 y(conj\(a+i*b\))126
b(->)43 b(REPART\(A\))d(-)j(REPART\(B\)*I)c(-)k(IMPART\(A\)*I)1754
4037 y(-)g(IMPART\(B\))664 4171 y @beginspecial @setspecial
@endspecial 159 x FR(7.1.4)113 b(F)-12 b(A)m(CTORIAL)664
4538 y FQ(If)41 b(the)g(single)f(argumen)m(t)i(of)f FJ(FACTORIAL)e
FQ(ev)-5 b(aluates)42 b(to)f(a)h(non-negativ)m(e)g(in)m(teger,)664
4638 y(its)e(factorial)f(is)g(returned.)69 b(Otherwise)38
b(an)i(expression)f(in)m(v)m(olving)f FJ(FACTORIAL)g
FQ(is)664 4738 y(returned.)i(F)-8 b(or)31 b(example:)1013
4944 y FH(factorial\(5\))82 b(->)k(120)p eop
%%Page: 81 81
81 80 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.1.)72 b(NUMERICAL)30 b(OPERA)-8 b(TORS)1507 b FQ(81)589
555 y FH(factorial\(a\))83 b(->)j(FACTORIAL\(A\))241
689 y @beginspecial @setspecial @endspecial 159 x FR(7.1.5)112
b(FIX)241 1070 y FQ(This)41 b(op)s(erator)j(returns)e(the)i(\014xed)f
(v)-5 b(alue)43 b(\(i.e.,)k(the)d(in)m(teger)g(part)f(of)h(the)f(giv)m
(en)241 1183 y(argumen)m(t\))38 b(if)f(its)g(single)g(argumen)m(t)h
(has)g(a)g(n)m(umerical)f(v)-5 b(alue.)62 b(A)38 b(non-n)m(umerical)241
1296 y(argumen)m(t)25 b(is)e(returned)g(as)i(an)f(expression)f(in)g
(the)i(original)d(op)s(erator.)39 b(F)-8 b(or)26 b(example:)589
1527 y FH(fix\(-5/4\))127 b(->)87 b(-1)589 1626 y(fix\(a\))259
b(->)87 b(FIX\(A\))241 1760 y @beginspecial @setspecial
@endspecial 159 x FR(7.1.6)112 b(FLOOR)241 2141 y FQ(This)27
b(op)s(erator)i(returns)f(the)h(\015o)s(or)f(\(i.e.,)i(the)f(greatest)h
(in)m(teger)g(less)e(than)g(the)h(giv)m(en)241 2254 y(argumen)m(t\))38
b(if)f(its)g(single)g(argumen)m(t)h(has)g(a)g(n)m(umerical)f(v)-5
b(alue.)62 b(A)38 b(non-n)m(umerical)241 2367 y(argumen)m(t)25
b(is)e(returned)g(as)i(an)f(expression)f(in)g(the)i(original)d(op)s
(erator.)39 b(F)-8 b(or)26 b(example:)589 2597 y FH(floor\(-5/4\))127
b(->)86 b(-2)589 2697 y(floor\(a\))259 b(->)86 b(FLOOR\(A\))241
2831 y @beginspecial @setspecial @endspecial 159 x FR(7.1.7)112
b(IMP)-9 b(AR)g(T)241 3198 y FQ(This)41 b(op)s(erator)i(returns)e(the)i
(imaginary)e(part)i(of)g(an)f(expression,)j(if)d(that)h(argu-)241
3298 y(men)m(t)32 b(has)f(an)h(n)m(umerical)e(v)-5 b(alue.)44
b(A)32 b(non-n)m(umerical)e(argumen)m(t)i(is)e(returned)h(as)h(an)241
3398 y(expression)d(in)g(the)i(op)s(erators)f FJ(REPART)f
FQ(and)g FJ(IMPART)p FQ(.)g(F)-8 b(or)32 b(example:)589
3604 y FH(impart\(1+i\))127 b(->)42 b(1)589 3703 y(impart\(a+i*b\))d
(->)j(REPART\(B\))e(+)j(IMPART\(A\))241 3849 y @beginspecial
@setspecial @endspecial 148 x FR(7.1.8)112 b(MAX/MIN)241
4205 y FJ(MAX)22 b FQ(and)g FJ(MIN)h FQ(can)g(tak)m(e)i(an)e(arbitrary)
f(n)m(um)m(b)s(er)f(of)j(expressions)d(as)j(their)e(argumen)m(ts.)241
4304 y(If)28 b(all)f(argumen)m(ts)h(ev)-5 b(aluate)29
b(to)g(n)m(umerical)e(v)-5 b(alues,)28 b(the)h(maxim)m(um)e(or)h(minim)
m(um)d(of)241 4404 y(the)j(argumen)m(t)g(list)e(is)h(returned.)39
b(If)27 b(an)m(y)h(argumen)m(t)g(is)f(non-n)m(umeric,)g(an)g(appropri-)
241 4504 y(ately)k(reduced)e(expression)g(is)h(returned.)39
b(F)-8 b(or)31 b(example:)589 4709 y FH(max\(2,-3,4,5\))39
b(->)86 b(5)589 4809 y(min\(2,-2\))215 b(->)86 b(-2.)589
4909 y(max\(a,2,3\))171 b(->)86 b(MAX\(A,3\))p eop
%%Page: 82 82
82 81 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(82)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)1013 555 y FH(min\(x\))346
b(->)86 b(X)664 774 y FJ(MAX)30 b FQ(or)g FJ(MIN)g FQ(of)g(an)g(empt)m
(y)h(list)e(returns)g(0.)664 919 y @beginspecial @setspecial
@endspecial 149 x FR(7.1.9)113 b(NEXTPRIME)664 1276 y
FJ(NEXTPRIME)29 b FQ(returns)h(the)h(next)g(prime)f(greater)i(than)f
(its)g(in)m(teger)g(argumen)m(t,)h(using)664 1375 y(a)h(probabilistic)
28 b(algorithm.)45 b(A)32 b(t)m(yp)s(e)h(error)e(o)s(ccurs)h(if)f(the)h
(v)-5 b(alue)32 b(of)g(the)g(argumen)m(t)664 1475 y(is)e(not)g(an)g(in)
m(teger.)42 b(F)-8 b(or)31 b(example:)1013 1681 y FH(nextprime\(5\))256
b(->)87 b(7)1013 1781 y(nextprime\(-2\))212 b(->)87 b(2)1013
1880 y(nextprime\(-7\))212 b(->)43 b(-5)1013 1980 y(nextprime)d
(1000000)g(->)j(1000003)664 2199 y FQ(whereas)30 b FJ(nextprime\(a\))d
FQ(giv)m(es)k(a)g(t)m(yp)s(e)f(error.)664 2346 y @beginspecial
@setspecial @endspecial 146 x FR(7.1.10)113 b(RANDOM)664
2700 y FJ(random\()p FD(n)7 b FJ(\))22 b FQ(returns)i(a)g(random)g(n)m
(um)m(b)s(er)f FL(r)k FQ(in)c(the)i(range)g(0)g FP(\024)g
FL(r)j(<)d(n)p FQ(.)38 b(A)25 b(t)m(yp)s(e)f(error)664
2800 y(o)s(ccurs)d(if)f(the)h(v)-5 b(alue)21 b(of)g(the)g(argumen)m(t)h
(is)e(not)h(a)h(p)s(ositiv)m(e)e(in)m(teger)h(in)f(algebraic)h(mo)s
(de,)664 2900 y(or)31 b(p)s(ositiv)m(e)e(n)m(um)m(b)s(er)g(in)g(sym)m
(b)s(olic)g(mo)s(de.)40 b(F)-8 b(or)31 b(example:)1013
3106 y FH(random\(5\))388 b(->)174 b(3)1013 3205 y(random\(1000\))256
b(->)87 b(191)664 3424 y FQ(whereas)30 b FJ(random\(a\))e
FQ(giv)m(es)j(a)g(t)m(yp)s(e)f(error.)664 3569 y @beginspecial
@setspecial @endspecial 149 x FR(7.1.11)113 b(RANDOM)p
1603 3718 34 4 v 39 w(NEW)p 1920 3718 V 40 w(SEED)664
3939 y FJ(random)p 958 3939 29 4 v 33 w(new)p 1135 3939
V 33 w(seed\()p FD(n)7 b FJ(\))35 b FQ(reseeds)h(the)h(random)e(n)m(um)
m(b)s(er)g(generator)j(to)f(a)g(sequence)664 4052 y(determined)j(b)m(y)
i(the)g(in)m(teger)g(argumen)m(t)g FL(n)p FQ(.)74 b(It)42
b(can)g(b)s(e)f(used)g(to)h(ensure)f(that)i(a)664 4165
y(rep)s(eatable)30 b(pseudo-random)g(sequence)g(will)e(b)s(e)i(deliv)m
(ered)f(regardless)h(of)g(an)m(y)h(pre-)664 4278 y(vious)22
b(use)h(of)g FJ(RANDOM)p FQ(,)f(or)h(can)g(b)s(e)f(called)g(early)h(in)
f(a)h(run)f(with)f(an)i(argumen)m(t)h(deriv)m(ed)664
4391 y(from)31 b(something)f(v)-5 b(ariable)30 b(\(suc)m(h)h(as)g(the)g
(time)f(of)h(da)m(y\))h(to)g(arrange)f(that)g(di\013eren)m(t)664
4504 y(runs)h(of)h(a)h(REDUCE)f(program)g(will)e(use)i(di\013eren)m(t)g
(random)g(sequences.)49 b(When)34 b(a)664 4616 y(fresh)h(cop)m(y)h(of)f
(REDUCE)g(is)g(\014rst)f(created)j(it)d(is)h(as)g(if)g
FJ(random)p 2948 4616 V 32 w(new)p 3124 4616 V 34 w(seed\(1\))e
FQ(has)664 4729 y(b)s(een)d(ob)s(ey)m(ed.)664 4892 y(A)h(t)m(yp)s(e)f
(error)g(o)s(ccurs)g(if)g(the)g(v)-5 b(alue)30 b(of)h(the)f(argumen)m
(t)h(is)e(not)i(a)g(p)s(ositiv)m(e)e(in)m(teger.)p eop
%%Page: 83 83
83 82 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.2.)72 b(MA)-8 b(THEMA)g(TICAL)31 b(FUNCTIONS)1333
b FQ(83)241 464 y @beginspecial @setspecial @endspecial
91 x FR(7.1.12)112 b(REP)-9 b(AR)g(T)241 763 y FQ(This)27
b(returns)h(the)i(real)f(part)g(of)h(an)f(expression,)g(if)f(that)i
(argumen)m(t)g(has)f(an)g(n)m(umer-)241 863 y(ical)36
b(v)-5 b(alue.)59 b(A)37 b(non-n)m(umerical)f(argumen)m(t)h(is)f
(returned)f(as)i(an)g(expression)f(in)f(the)241 963 y(op)s(erators)30
b FJ(REPART)f FQ(and)h FJ(IMPART)p FQ(.)f(F)-8 b(or)31
b(example:)589 1168 y FH(repart\(1+i\))127 b(->)42 b(1)589
1268 y(repart\(a+i*b\))d(->)j(REPART\(A\))e(-)j(IMPART\(B\))241
1414 y @beginspecial @setspecial @endspecial 147 x FR(7.1.13)112
b(R)m(OUND)241 1770 y FQ(This)21 b(op)s(erator)i(returns)f(the)h
(rounded)f(v)-5 b(alue)23 b(\(i.e,)h(the)g(nearest)f(in)m(teger\))h(of)
f(its)g(single)241 1869 y(argumen)m(t)28 b(if)e(that)i(argumen)m(t)g
(has)f(a)h(n)m(umerical)d(v)-5 b(alue.)40 b(A)27 b(non-n)m(umeric)f
(argumen)m(t)241 1969 y(is)j(returned)g(as)i(an)f(expression)f(in)g
(the)i(original)e(op)s(erator.)41 b(F)-8 b(or)31 b(example:)589
2175 y FH(round\(-5/4\))127 b(->)86 b(-1)589 2274 y(round\(a\))259
b(->)86 b(ROUND\(A\))241 2408 y @beginspecial @setspecial
@endspecial 160 x FR(7.1.14)112 b(SIGN)241 2776 y FJ(SIGN)42
b FQ(tries)g(to)i(ev)-5 b(aluate)43 b(the)g(sign)f(of)h(its)g(argumen)m
(t.)79 b(If)42 b(this)g(is)g(p)s(ossible)f FJ(SIGN)241
2875 y FQ(returns)d(one)i(of)g(1,)i(0)e(or)g(-1.)69 b(Otherwise,)41
b(the)f(result)e(is)h(the)h(original)d(form)j(or)f(a)241
2975 y(simpli\014ed)26 b(v)-5 b(arian)m(t.)41 b(F)-8
b(or)31 b(example:)589 3181 y FH(sign\(-5\))259 b(->)86
b(-1)589 3280 y(sign\(-a^2*b\))d(->)j(-SIGN\(B\))241
3500 y FQ(Note)27 b(that)f(ev)m(en)g(p)s(o)m(w)m(ers)g(of)g(formal)f
(expressions)f(are)i(assumed)f(to)i(b)s(e)e(p)s(ositiv)m(e)f(only)241
3613 y(as)30 b(long)g(as)h(the)g(switc)m(h)e FJ(COMPLEX)g
FQ(is)g(o\013.)241 3767 y @beginspecial @setspecial @endspecial
182 x FE(7.2)135 b(Mathematical)47 b(F)-11 b(unctions)241
4188 y FQ(REDUCE)34 b(kno)m(ws)g(that)h(the)g(follo)m(wing)e(represen)m
(t)h(mathematical)h(functions)e(that)241 4288 y(can)d(tak)m(e)i
(arbitrary)e(scalar)g(expressions)f(as)h(their)g(single)f(argumen)m(t:)
546 4494 y FH(ACOS)42 b(ACOSH)f(ACOT)h(ACOTH)g(ACSC)g(ACSCH)f(ASEC)h
(ASECH)g(ASIN)g(ASINH)546 4593 y(ATAN)g(ATANH)f(ATAN2)h(COS)g(COSH)g
(COT)g(COTH)g(CSC)h(CSCH)f(DILOG)f(EI)i(EXP)546 4693
y(HYPOT)e(LN)i(LOG)f(LOGB)g(LOG10)g(SEC)g(SECH)g(SIN)h(SINH)e(SQRT)h
(TAN)h(TANH)p eop
%%Page: 84 84
84 83 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(84)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FQ(where)25 b FJ(LOG)f
FQ(is)f(the)j(natural)e(logarithm)f(\(and)i(equiv)-5
b(alen)m(t)24 b(to)i FJ(LN)p FQ(\),)f(and)f FJ(LOGB)g
FQ(has)h(t)m(w)m(o)664 668 y(argumen)m(ts)31 b(of)f(whic)m(h)f(the)i
(second)f(is)g(the)g(logarithmic)g(base.)664 831 y(The)g(deriv)-5
b(ativ)m(es)30 b(of)g(all)g(these)g(functions)f(are)i(also)f(kno)m(wn)g
(to)h(the)g(system.)664 980 y(REDUCE)d(kno)m(ws)h(v)-5
b(arious)27 b(elemen)m(tary)i(iden)m(tities)e(and)h(prop)s(erties)f(of)
i(these)f(func-)664 1080 y(tions.)40 b(F)-8 b(or)31 b(example:)926
1286 y FH(cos\(-x\))40 b(=)k(cos\(x\))607 b(sin\(-x\))41
b(=)i(-)g(sin)g(\(x\))926 1385 y(cos\(n*pi\))d(=)j(\(-1\)^n)520
b(sin\(n*pi\))40 b(=)j(0)926 1485 y(log\(e\))84 b(=)44
b(1)827 b(e^\(i*pi/2\))40 b(=)j(i)926 1585 y(log\(1\))84
b(=)44 b(0)827 b(e^\(i*pi\))41 b(=)i(-1)926 1684 y(log\(e^x\))d(=)j(x)
784 b(e^\(3*i*pi/2\))39 b(=)k(-i)664 1903 y FQ(Beside)26
b(these)g(iden)m(tities,)g(there)g(are)g(a)g(lot)g(of)g
(simpli\014cations)c(for)k(elemen)m(tary)g(func-)664
2016 y(tions)35 b(de\014ned)g(in)g(the)h(REDUCE)g(system)g(as)g
(rulelists.)55 b(In)35 b(order)g(to)i(view)e(these,)664
2129 y(the)c(SHO)m(WR)m(ULES)f(op)s(erator)h(can)f(b)s(e)g(used,)g
(e.g.)926 2360 y FH(SHOWRULES)40 b(tan;)664 2559 y({tan\(~n*arbint\(~i)
o(\)*)o(pi)d(+)43 b(~\(~)g(x\)\))f(=>)h(tan\(x\))e(when)h(fixp\(n\),)
708 2759 y(tan\(~x\))751 2958 y(=>)h(trigquot\(sin\(x\),)o(cos)o(\(x)o
(\)\))37 b(when)42 b(knowledge_about\()o(sin)o(,x)o(,ta)o(n\))708
3157 y(,)926 3356 y(~x)g(+)i(~\(~)e(k\)*pi)708 3456 y
(tan\(------------)o(--)o(--)o(\))1187 3556 y(~d)1231
3755 y(x)1263 b(k)174 b(1)751 3854 y(=>)87 b(-)43 b(cot\(---\))d(when)i
(x)h(freeof)e(pi)i(and)f(abs\(---\)=---,)1231 3954 y(d)1263
b(d)174 b(2)926 4153 y(~\(~)42 b(w\))h(+)g(~\(~)f(k\)*pi)478
b(w)43 b(+)g(remainder\(k,d\)*p)o(i)708 4253 y(tan\(------------)o(--)o
(--)o(---)o(-\))37 b(=>)43 b(tan\(------------)o(--)o(--)o(---)o(--)o
(--\))1187 4353 y(~\(~)g(d\))1176 b(d)2015 4552 y(k)708
4652 y(when)42 b(w)h(freeof)e(pi)i(and)f(ratnump\(---\))d(and)j
(fixp\(k\))2015 4751 y(d)1144 4950 y(k)p eop
%%Page: 85 85
85 84 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.2.)72 b(MA)-8 b(THEMA)g(TICAL)31 b(FUNCTIONS)1333
b FQ(85)328 555 y FH(and)42 b(abs\(---\)>=1,)720 655
y(d)284 854 y(tan\(atan\(~x\)\))d(=>)j(x,)1505 1053 y(2)284
1153 y(df\(tan\(~x\),~x\))c(=>)43 b(1)g(+)g(tan\(x\))e(})241
1497 y FQ(F)-8 b(or)34 b(further)e(simpli\014cation,)f(esp)s(ecially)g
(of)j(expressions)e(in)m(v)m(olving)g(trigonometric)241
1610 y(functions,)d(see)i(the)f(TRIGSIMP)g(pac)m(k)-5
b(age)32 b(do)s(cumen)m(tation.)241 1772 y(F)-8 b(unctions)31
b(not)i(listed)d(ab)s(o)m(v)m(e)j(ma)m(y)g(b)s(e)f(de\014ned)e(in)h
(the)h(sp)s(ecial)f(functions)f(pac)m(k)-5 b(age)241
1885 y(SPECFN.)241 2048 y(The)39 b(user)h(can)g(add)f(further)g(rules)f
(for)i(the)g(reduction)f(of)h(expressions)f(in)m(v)m(olving)241
2161 y(these)31 b(op)s(erators)f(b)m(y)g(using)f(the)i
FJ(LET)e FQ(command.)241 2310 y(In)e(man)m(y)g(cases)i(it)e(is)f
(desirable)g(to)i(expand)f(pro)s(duct)g(argumen)m(ts)h(of)f
(logarithms,)g(or)241 2410 y(collect)33 b(a)f(sum)g(of)g(logarithms)g
(in)m(to)g(a)h(single)e(logarithm.)46 b(Since)31 b(these)i(are)g(in)m
(v)m(erse)241 2510 y(op)s(erations,)41 b(it)d(is)g(not)i(p)s(ossible)d
(to)i(pro)m(vide)g(rules)e(for)i(doing)f(b)s(oth)h(at)h(the)f(same)241
2609 y(time)34 b(and)g(preserv)m(e)h(the)g(REDUCE)f(concept)h(of)g
(idemp)s(oten)m(t)f(ev)-5 b(aluation.)53 b(As)35 b(an)241
2709 y(alternativ)m(e,)26 b(REDUCE)f(pro)m(vides)f(t)m(w)m(o)i(switc)m
(hes)f FJ(EXPANDLOGS)46 b FQ(and)25 b FJ(COMBINELOGS)241
2808 y FQ(to)41 b(carry)g(out)h(these)f(op)s(erations.)72
b(Both)41 b(are)h(o\013)f(b)m(y)g(default.)72 b(Th)m(us)40
b(to)h(expand)241 2908 y FJ(LOG\(X*Y\))28 b FQ(in)m(to)i(a)h(sum)e(of)i
(logs,)g(one)f(can)h(sa)m(y)589 3114 y FH(ON)43 b(EXPANDLOGS;)c
(LOG\(X*Y\);)241 3320 y FQ(and)30 b(to)h(com)m(bine)f(this)f(sum)g(in)m
(to)i(a)g(single)e(log:)589 3526 y FH(ON)43 b(COMBINELOGS;)c(LOG\(X\))i
(+)i(LOG\(Y\);)241 3745 y FQ(A)m(t)34 b(the)f(presen)m(t)g(time,)g(it)f
(is)g(p)s(ossible)f(to)i(ha)m(v)m(e)h(b)s(oth)e(switc)m(hes)h(on)g(at)g
(once,)i(whic)m(h)241 3858 y(could)j(lead)g(to)i(in\014nite)d
(recursion.)65 b(Ho)m(w)m(ev)m(er,)44 b(an)39 b(expression)e(is)i
(switc)m(hed)f(from)241 3971 y(one)33 b(form)g(to)h(the)f(other)h(in)e
(this)g(case.)50 b(Users)33 b(should)e(not)j(rely)e(on)h(this)f(b)s
(eha)m(vior,)241 4084 y(since)d(it)h(ma)m(y)h(c)m(hange)h(in)d(the)i
(next)f(release.)241 4233 y(The)20 b(curren)m(t)h(v)m(ersion)f(of)h
(REDUCE)g(do)s(es)g(a)g(p)s(o)s(or)f(job)h(of)g(simplifying)c(surds.)35
b(In)21 b(par-)241 4333 y(ticular,)31 b(expressions)f(in)m(v)m(olving)g
(the)i(pro)s(duct)f(of)h(v)-5 b(ariables)30 b(raised)h(to)h(non-in)m
(teger)241 4432 y(p)s(o)m(w)m(ers)i(do)g(not)h(usually)d(ha)m(v)m(e)k
(their)e(p)s(o)m(w)m(ers)g(com)m(bined)g(in)m(ternally)-8
b(,)34 b(ev)m(en)h(though)241 4532 y(they)26 b(are)g(prin)m(ted)e(as)i
(if)f(those)h(p)s(o)m(w)m(ers)g(w)m(ere)g(com)m(bined.)38
b(F)-8 b(or)27 b(example,)g(the)e(expres-)241 4632 y(sion)589
4837 y FH(x^\(1/3\)*x^\(1/6\);)p eop
%%Page: 86 86
86 85 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(86)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FQ(will)28 b(prin)m(t)h(as)1013
761 y FH(SQRT\(X\))664 967 y FQ(but)34 b(will)e(ha)m(v)m(e)k(an)f(in)m
(ternal)e(form)h(con)m(taining)g(the)h(t)m(w)m(o)h(exp)s(onen)m(tiated)
f(terms.)53 b(If)664 1067 y(y)m(ou)34 b(no)m(w)g(subtract)f
FJ(sqrt\(x\))f FQ(from)h(this)f(expression,)i(y)m(ou)g(will)d
FD(not)42 b FQ(get)35 b(zero.)51 b(In-)664 1166 y(stead,)31
b(the)g(confusing)e(form)1013 1372 y FH(SQRT\(X\))41
b(-)i(SQRT\(X\))664 1591 y FQ(will)28 b(result.)41 b(T)-8
b(o)31 b(com)m(bine)g(suc)m(h)f(exp)s(onen)m(tiated)h(terms,)g(the)g
(switc)m(h)f FJ(COMBINEEXPT)664 1704 y FQ(should)f(b)s(e)g(turned)g
(on.)664 1854 y(The)34 b(square)f(ro)s(ot)h(function)f(can)h(b)s(e)f
(input)f(using)h(the)h(name)g FJ(SQRT)p FQ(,)f(or)h(the)g(p)s(o)m(w)m
(er)664 1953 y(op)s(eration)f FJ(^\(1/2\))p FQ(.)49 b(On)33
b(output,)i(unsimpli\014ed)29 b(square)k(ro)s(ots)h(are)g(normally)e
(rep-)664 2053 y(resen)m(ted)41 b(b)m(y)f(the)h(op)s(erator)g
FJ(SQRT)e FQ(rather)i(than)f(a)h(fractional)f(p)s(o)m(w)m(er.)71
b(With)40 b(the)664 2153 y(default)c(system)g(switc)m(h)g(settings,)h
(the)g(argumen)m(t)g(of)f(a)h(square)f(ro)s(ot)g(is)f(\014rst)h(sim-)
664 2252 y(pli\014ed,)42 b(and)e(an)m(y)i(divisors)c(of)k(the)f
(expression)f(that)i(are)f(p)s(erfect)g(squares)g(tak)m(en)664
2352 y(outside)35 b(the)i(square)f(ro)s(ot)g(argumen)m(t.)58
b(The)36 b(remaining)e(expression)h(is)g(left)g(under)664
2451 y(the)c(square)f(ro)s(ot.)41 b(Th)m(us)29 b(the)i(expression)1056
2657 y FH(sqrt\(-8a^2*b\))664 2963 y FQ(b)s(ecomes)1013
3169 y FH(2*a*sqrt\(-2*b\).)664 3375 y FQ(Note)38 b(that)g(suc)m(h)e
(simpli\014cations)e(can)j(cause)g(trouble)f(if)g FJ(A)g
FQ(is)g(ev)m(en)m(tually)h(giv)m(en)g(a)664 3474 y(v)-5
b(alue)24 b(that)i(is)e(a)h(negativ)m(e)h(n)m(um)m(b)s(er.)37
b(If)24 b(it)h(is)f(imp)s(ortan)m(t)g(that)h(the)g(p)s(ositiv)m(e)f
(prop)s(ert)m(y)664 3574 y(of)39 b(the)g(square)g(ro)s(ot)g(and)f
(higher)g(ev)m(en)h(ro)s(ots)g(alw)m(a)m(ys)g(b)s(e)g(preserv)m(ed,)h
(the)f(switc)m(h)664 3674 y FJ(PRECISE)21 b FQ(should)f(b)s(e)i(set)h
(on)g(\(the)g(default)f(v)-5 b(alue\).)38 b(This)21 b(causes)i(an)m(y)g
(non-n)m(umerical)664 3773 y(factors)38 b(tak)m(en)f(out)g(of)g(surds)e
(to)j(b)s(e)e(represen)m(ted)g(b)m(y)h(their)f(absolute)g(v)-5
b(alue)36 b(form.)664 3873 y(With)30 b FJ(PRECISE)e FQ(on)j(then,)f
(the)h(ab)s(o)m(v)m(e)g(example)f(w)m(ould)f(b)s(ecome)1013
4079 y FH(2*abs\(a\)*sqrt\(-2)o(*b)o(\).)664 4285 y FQ(The)21
b(statemen)m(t)i(that)f(REDUCE)g(kno)m(ws)f(v)m(ery)h(little)e(ab)s
(out)h(these)h(functions)e(applies)664 4384 y(only)26
b(in)g(the)i(mathematically)e(exact)j FJ(off)47 b(rounded)25
b FQ(mo)s(de.)39 b(If)27 b FJ(ROUNDED)e FQ(is)i(on,)h(an)m(y)664
4484 y(of)j(the)f(functions)1013 4690 y FH(ACOS)42 b(ACOSH)f(ACOT)h
(ACOTH)g(ACSC)g(ACSCH)f(ASEC)h(ASECH)g(ASIN)g(ASINH)1013
4789 y(ATAN)g(ATANH)f(ATAN2)h(COS)g(COSH)g(COT)g(COTH)g(CSC)h(CSCH)f
(EXP)g(HYPOT)1013 4889 y(LN)h(LOG)f(LOGB)g(LOG10)f(SEC)i(SECH)f(SIN)g
(SINH)g(SQRT)g(TAN)g(TANH)p eop
%%Page: 87 87
87 86 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.3.)72 b(DF)31 b(OPERA)-8 b(TOR)2001 b FQ(87)241
555 y(when)39 b(giv)m(en)h(a)h(n)m(umerical)d(argumen)m(t)j(has)f(its)g
(v)-5 b(alue)39 b(calculated)h(to)h(the)g(curren)m(t)241
668 y(degree)j(of)f(\015oating)g(p)s(oin)m(t)f(precision.)77
b(In)43 b(addition,)i(real)d(\(non-in)m(teger)i(v)-5
b(alued\))241 781 y(p)s(o)m(w)m(ers)30 b(of)h(n)m(um)m(b)s(ers)d(will)g
(also)j(b)s(e)e(ev)-5 b(aluated.)241 930 y(If)32 b(the)g
FJ(COMPLEX)f FQ(switc)m(h)h(is)f(turned)h(on)g(in)f(addition)g(to)i
FJ(ROUNDED)p FQ(,)e(these)i(functions)241 1030 y(will)g(also)j
(calculate)g(a)h(real)f(or)g(complex)f(result,)i(again)f(to)h(the)f
(curren)m(t)g(degree)g(of)241 1130 y(\015oating)31 b(p)s(oin)m(t)g
(precision,)g(if)f(giv)m(en)i(complex)f(argumen)m(ts.)45
b(F)-8 b(or)33 b(example,)f(with)e FJ(on)241 1229 y(rounded,complex;)
589 1435 y FH(2.3^\(5.6i\))127 b(->)j(-0.0480793490914)37
b(-)43 b(0.998843519372*I)589 1535 y(cos\(2+3i\))171
b(->)130 b(-4.18962569097)38 b(-)43 b(9.10922789376*I)241
1675 y @beginspecial @setspecial @endspecial 193 x FE(7.3)135
b(DF)45 b(Op)t(erator)241 2107 y FQ(The)32 b(op)s(erator)h
FJ(DF)g FQ(is)f(used)g(to)i(represen)m(t)f(partial)e(di\013eren)m
(tiation)h(with)g(resp)s(ect)h(to)241 2207 y(one)d(or)h(more)f(v)-5
b(ariables.)40 b(It)30 b(is)g(used)f(with)g(the)i(syn)m(tax:)459
2413 y FH(DF\(EXPRN:algebr)o(aic)o([,)o(VAR)o(:k)o(ern)o(el)o(<,)o(NUM)
o(:i)o(nte)o(ge)o(r>)o(]\):)o(al)o(geb)o(ra)o(ic.)241
2632 y FQ(The)39 b(\014rst)g(argumen)m(t)i(is)e(the)h(expression)e(to)j
(b)s(e)e(di\013eren)m(tiated.)69 b(The)39 b(remaining)241
2745 y(argumen)m(ts)24 b(sp)s(ecify)g(the)g(di\013eren)m(tiation)f(v)-5
b(ariables)23 b(and)h(the)h(n)m(um)m(b)s(er)e(of)h(times)g(they)241
2858 y(are)31 b(applied.)241 3020 y(The)f(n)m(um)m(b)s(er)f
FJ(NUM)g FQ(ma)m(y)i(b)s(e)f(omitted)g(if)g(it)g(is)f(1.)41
b(F)-8 b(or)31 b(example,)468 3239 y FJ(df\(y,x\))553
b FQ(=)30 b FL(@)5 b(y)s(=@)g(x)468 3352 y FJ(df\(y,x,2\))457
b FQ(=)30 b FL(@)1511 3319 y FO(2)1551 3352 y FL(y)s(=@)5
b(x)1749 3319 y FO(2)468 3465 y FJ(df\(y,x1,2,x2,x3,2\))25
b FQ(=)30 b FL(@)1511 3432 y FO(5)1551 3465 y FL(y)s(=@)5
b(x)1749 3432 y FO(2)1749 3488 y(1)1819 3465 y FL(@)g(x)1924
3479 y FO(2)1964 3465 y FL(@)g(x)2069 3432 y FO(2)2069
3488 y(3)2109 3465 y FL(:)241 3684 y FQ(The)32 b(ev)-5
b(aluation)32 b(of)h FJ(df\(y,x\))e FQ(pro)s(ceeds)h(as)h(follo)m(ws:)
45 b(\014rst,)32 b(the)h(v)-5 b(alues)32 b(of)h FJ(Y)g
FQ(and)f FJ(X)241 3797 y FQ(are)38 b(found.)63 b(Let)38
b(us)f(assume)h(that)h FJ(X)f FQ(has)f(no)h(assigned)g(v)-5
b(alue,)39 b(so)g(its)e(v)-5 b(alue)37 b(is)h FJ(X)p
FQ(.)241 3910 y(Eac)m(h)i(term)f(or)g(other)g(part)g(of)h(the)f(v)-5
b(alue)39 b(of)g FJ(Y)g FQ(that)h(con)m(tains)f(the)h(v)-5
b(ariable)38 b FJ(X)g FQ(is)241 4022 y(di\013eren)m(tiated)f(b)m(y)g
(the)h(standard)f(rules.)60 b(If)38 b FJ(Z)f FQ(is)f(another)i(v)-5
b(ariable,)38 b(not)g FJ(X)f FQ(itself,)241 4135 y(then)26
b(its)g(deriv)-5 b(ativ)m(e)26 b(with)f(resp)s(ect)h(to)i
FJ(X)e FQ(is)f(tak)m(en)j(to)f(b)s(e)f(0,)i(unless)c
FJ(Z)j FQ(has)f(previously)241 4248 y(b)s(een)36 b(declared)h(to)g
FJ(DEPEND)f FQ(on)h FJ(X)p FQ(,)f(in)g(whic)m(h)g(case)i(the)f(deriv)-5
b(ativ)m(e)37 b(is)f(rep)s(orted)g(as)241 4361 y(the)30
b(sym)m(b)s(ol)f FJ(df\(z,x\))p FQ(.)241 4503 y @beginspecial
@setspecial @endspecial 148 x FR(7.3.1)112 b(Adding)37
b(Di\013eren)m(tiation)e(Rules)241 4859 y FQ(The)26 b
FJ(LET)f FQ(statemen)m(t)k(can)d(b)s(e)g(used)g(to)h(in)m(tro)s(duce)f
(rules)f(for)h(di\013eren)m(tiation)f(of)i(user-)241
4959 y(de\014ned)i(op)s(erators.)41 b(Its)30 b(general)h(form)e(is)p
eop
%%Page: 88 88
88 87 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(88)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)1013 555 y FH(FOR)42 b(ALL)h
(<var1>,...,<var)o(n>)1231 655 y(LET)f(DF\(<operator><var)o(li)o(st)o
(>,<)o(va)o(ri>)o(\)=)o(<e)o(xpr)o(es)o(sio)o(n>)664
874 y FQ(where)c FJ(<varlist>)e FQ(::=)j(\()p FJ(<var1>)p
FQ(,.)15 b(.)g(.)g(,)p FJ(<varn>)p FQ(\),)40 b(and)e
FJ(<var1>)p FQ(,...,)p FJ(<varn>)f FQ(are)i(the)664 987
y(dumm)m(y)29 b(v)-5 b(ariable)30 b(argumen)m(ts)g(of)h
FJ(<operator>)p FQ(.)664 1150 y(An)f(analogous)h(form)f(applies)e(to)j
(in\014x)e(op)s(erators.)664 1299 y FD(Examples:)1013
1505 y FH(for)42 b(all)h(x)g(let)f(df\(tan)f(x,x\)=)h(1)h(+)g
(tan\(x\)^2;)664 1711 y FQ(\(This)29 b(is)h(ho)m(w)g(the)g(tan)h
(di\013eren)m(tiation)e(rule)g(app)s(ears)h(in)f(the)i(REDUCE)f
(source.\))1013 1917 y FH(for)42 b(all)h(x,y)f(let)g
(df\(f\(x,y\),x\)=2*f\()o(x,)o(y\),)1710 2016 y(df\(f\(x,y\),y\)=x*f\()
o(x,)o(y\);)664 2236 y FQ(Notice)28 b(that)f(all)f(dumm)m(y)g(argumen)m
(ts)h(of)g(the)g(relev)-5 b(an)m(t)27 b(op)s(erator)g(m)m(ust)g(b)s(e)f
(declared)664 2348 y(arbitrary)41 b(b)m(y)i(the)f FJ(FOR)47
b(ALL)41 b FQ(command,)46 b(and)c(that)g(rules)f(ma)m(y)i(b)s(e)f
(supplied)d(for)664 2461 y(op)s(erators)31 b(with)e(an)m(y)i(n)m(um)m
(b)s(er)f(of)g(argumen)m(ts.)42 b(If)30 b(no)h(di\013eren)m(tiation)e
(rule)h(app)s(ears)664 2574 y(for)36 b(an)h(argumen)m(t)g(in)e(an)h(op)
s(erator,)j(the)e(di\013eren)m(tiation)e(routines)g(will)f(return)i(as)
664 2687 y(result)41 b(an)g(expression)g(in)f(terms)i(of)g
FJ(DF)p FQ(.)f(F)-8 b(or)42 b(example,)j(if)c(the)g(rule)g(for)g(the)h
(dif-)664 2800 y(feren)m(tiation)36 b(with)f(resp)s(ect)h(to)h(the)g
(second)f(argumen)m(t)h(of)f FJ(F)g FQ(is)f(not)i(supplied,)e(the)664
2913 y(ev)-5 b(aluation)40 b(of)h FJ(df\(f\(x,z\),z\))d
FQ(w)m(ould)h(lea)m(v)m(e)j(this)e(expression)f(unc)m(hanged.)72
b(\(No)664 3026 y FJ(DEPEND)25 b FQ(declaration)i(is)f(needed)h(here,)g
(since)g FJ(f\(x,z\))e FQ(ob)m(viously)h(\\dep)s(ends)f(on")j
FJ(Z)p FQ(.\))664 3175 y(Once)37 b(suc)m(h)f(a)h(rule)e(has)i(b)s(een)e
(de\014ned)h(for)g(a)h(giv)m(en)g(op)s(erator,)h(an)m(y)f(future)f
(di\013er-)664 3275 y(en)m(tiation)d(rules)e(for)i(that)g(op)s(erator)g
(m)m(ust)g(b)s(e)f(de\014ned)g(with)f(the)i(same)g(n)m(um)m(b)s(er)f
(of)664 3375 y(argumen)m(ts)f(for)f(that)h(op)s(erator,)g(otherwise)f
(w)m(e)h(get)g(the)g(error)f(message)1013 3581 y FH(Incompatible)38
b(DF)43 b(rule)f(argument)e(length)i(for)g(<operator>)664
3736 y @beginspecial @setspecial @endspecial 181 x FE(7.4)136
b(INT)44 b(Op)t(erator)664 4156 y FJ(INT)20 b FQ(is)h(an)g(op)s(erator)
g(in)f(REDUCE)h(for)g(inde\014nite)e(in)m(tegration)i(using)f(a)i(com)m
(bination)664 4256 y(of)35 b(the)f(Risc)m(h-Norman)h(algorithm)e(and)h
(pattern)h(matc)m(hing.)53 b(It)34 b(is)g(used)g(with)f(the)664
4355 y(syn)m(tax:)795 4561 y FH(INT\(EXPRN:algebr)o(ai)o(c,V)o(AR)o
(:ke)o(rn)o(el\))o(:a)o(lg)o(ebr)o(ai)o(c.)664 4781 y
FQ(This)e(will)g(return)h(correctly)h(the)h(inde\014nite)d(in)m(tegral)
h(for)h(expressions)f(comprising)664 4893 y(p)s(olynomials,)39
b(log)g(functions,)h(exp)s(onen)m(tial)e(functions)g(and)h(tan)g(and)g
(atan.)67 b(The)p eop
%%Page: 89 89
89 88 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.4.)72 b(INT)30 b(OPERA)-8 b(TOR)1963 b FQ(89)241
555 y(arbitrary)42 b(constan)m(t)j(is)d(not)i(represen)m(ted.)80
b(If)43 b(the)h(in)m(tegral)f(cannot)h(b)s(e)f(done)g(in)241
668 y(closed)29 b(terms,)g(it)g(returns)f(a)i(formal)e(in)m(tegral)h
(for)g(the)h(answ)m(er)f(in)f(one)h(of)h(t)m(w)m(o)g(w)m(a)m(ys:)241
773 y @beginspecial @setspecial @endspecial 352 906 a(1.)46
b(It)31 b(returns)e(the)h(input,)f FJ(INT\(...,...\))37
b FQ(unc)m(hanged.)241 961 y @beginspecial @setspecial
@endspecial 352 1093 a(2.)46 b(It)27 b(returns)e(an)i(expression)e(in)m
(v)m(olving)g FJ(INT)p FQ(s)h(of)g(some)h(other)g(functions)e(\(some-)
468 1206 y(times)30 b(more)g(complicated)h(than)f(the)g(original)f
(one,)i(unfortunately\).)241 1444 y(Rational)20 b(functions)g(can)h(b)s
(e)f(in)m(tegrated)i(when)d(the)j(denominator)e(is)f(factorizable)j(b)m
(y)241 1556 y(the)32 b(program.)47 b(In)32 b(addition)e(it)i(will)e
(attempt)j(to)g(in)m(tegrate)h(expressions)d(in)m(v)m(olving)241
1669 y(error)g(functions,)h(dilogarithms)d(and)j(other)g(trigonometric)
g(expressions.)44 b(In)31 b(these)241 1782 y(cases)f(it)f(migh)m(t)h
(not)g(alw)m(a)m(ys)g(succeed)g(in)e(\014nding)f(the)j(solution,)f(ev)m
(en)h(if)f(one)h(exists.)241 1932 y FD(Examples:)589
2138 y FH(int\(log\(x\),x\))39 b(->)86 b(X*\(LOG\(X\))40
b(-)j(1\),)589 2237 y(int\(e^x,x\))171 b(->)86 b(E**X.)241
2456 y FQ(The)38 b(program)g(c)m(hec)m(ks)i(that)g(the)f(second)f
(argumen)m(t)h(is)f(a)h(v)-5 b(ariable)38 b(and)g(giv)m(es)h(an)241
2569 y(error)30 b(if)f(it)h(is)f(not.)241 2732 y FD(Note:)58
b FQ(If)39 b(the)h FJ(int)e FQ(op)s(erator)i(is)e(called)h(with)f(4)i
(argumen)m(ts,)i(REDUCE)d(will)e(im-)241 2845 y(plicitly)j(call)j(the)g
(de\014nite)f(in)m(tegration)h(pac)m(k)-5 b(age)46 b(\(DEFINT\))e(and)e
(this)g(pac)m(k)-5 b(age)241 2958 y(will)30 b(in)m(terpret)i(the)i
(third)d(and)h(fourth)g(argumen)m(ts)i(as)f(the)g(lo)m(w)m(er)g(and)g
(upp)s(er)e(limit)241 3071 y(of)k(in)m(tegration,)h(resp)s(ectiv)m(ely)
-8 b(.)55 b(F)-8 b(or)36 b(details,)f(consult)f(the)i(do)s(cumen)m
(tation)e(on)h(the)241 3184 y(DEFINT)30 b(pac)m(k)-5
b(age.)241 3329 y @beginspecial @setspecial @endspecial
148 x FR(7.4.1)112 b(Options)241 3698 y FQ(The)40 b(switc)m(h)h
FJ(TRINT)e FQ(when)h(on)h(will)d(trace)k(the)f(op)s(eration)g(of)g(the)
g(algorithm.)71 b(It)241 3811 y(pro)s(duces)30 b(a)j(great)g(deal)e(of)
h(output)g(in)e(a)j(somewhat)f(illegible)d(form,)j(and)f(is)g(not)h(of)
241 3924 y(m)m(uc)m(h)e(in)m(terest)h(to)g(the)f(general)h(user.)40
b(It)30 b(is)g(normally)e(o\013.)241 4087 y(If)35 b(the)g(switc)m(h)g
FJ(FAILHARD)e FQ(is)h(on)i(the)f(algorithm)f(will)f(terminate)i(with)f
(an)i(error)f(if)241 4200 y(the)40 b(in)m(tegral)f(cannot)h(b)s(e)g
(done)f(in)g(closed)g(terms,)j(rather)e(than)f(return)g(a)h(formal)241
4313 y(in)m(tegration)30 b(form.)40 b FJ(FAILHARD)29
b FQ(is)g(normally)f(o\013.)241 4475 y(The)k(switc)m(h)f
FJ(NOLNR)g FQ(suppresses)g(the)h(use)g(of)g(the)h(linear)d(prop)s
(erties)h(of)h(in)m(tegration)241 4588 y(in)g(cases)j(when)d(the)i(in)m
(tegral)f(cannot)i(b)s(e)e(found)f(in)g(closed)i(terms.)50
b(It)34 b(is)e(normally)241 4701 y(o\013.)241 4828 y
@beginspecial @setspecial @endspecial eop
%%Page: 90 90
90 89 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(90)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FR(7.4.2)113 b(Adv)-6
b(anced)38 b(Use)664 763 y FQ(If)30 b(a)h(function)e(app)s(ears)h(in)f
(the)h(in)m(tegrand)g(that)h(is)f(not)g(one)h(of)g(the)f(functions)f
FJ(EXP,)664 863 y(ERF,)47 b(TAN,)f(ATAN,)h(LOG,)f(DILOG)h
FQ(then)24 b(the)h(algorithm)e(will)e(mak)m(e)26 b(an)e(attempt)h(to)
664 963 y(in)m(tegrate)i(the)g(argumen)m(t)f(if)f(it)h(can,)i
(di\013eren)m(tiate)e(it)f(and)h(reac)m(h)h(a)f(kno)m(wn)g(function.)
664 1062 y(Ho)m(w)m(ev)m(er)e(the)e(answ)m(er)f(cannot)i(b)s(e)e
(guaran)m(teed)h(in)f(this)f(case.)39 b(If)21 b(a)h(function)f(is)f
(kno)m(wn)664 1162 y(to)33 b(b)s(e)f(algebraically)e(indep)s(enden)m(t)
g(of)j(this)e(set)h(it)g(can)h(b)s(e)e(\015agged)i(transcenden)m(tal)
664 1261 y(b)m(y)1013 1467 y FH(flag\('\(trilog\),')o(tr)o(ans)o(ce)o
(nde)o(nt)o(al)o(\);)664 1687 y FQ(in)e(whic)m(h)f(case)j(this)d
(function)h(will)e(b)s(e)i(added)g(to)i(the)f(p)s(ermitted)e(\014eld)g
(descriptors)664 1799 y(for)j(a)h(gen)m(uine)f(decision)f(pro)s
(cedure.)49 b(If)33 b(this)g(is)f(done)i(the)f(user)g(is)g(resp)s
(onsible)d(for)664 1912 y(the)h(mathematical)f(correctness)i(of)e(his)f
(actions.)664 2075 y(The)37 b(standard)f(v)m(ersion)h(do)s(es)f(not)i
(deal)e(with)g(algebraic)h(extensions.)61 b(Th)m(us)36
b(in)m(te-)664 2188 y(gration)31 b(of)h(expressions)e(in)m(v)m(olving)g
(square)h(ro)s(ots)g(and)g(other)g(lik)m(e)g(things)f(can)h(lead)664
2301 y(to)41 b(trouble.)69 b(A)40 b(con)m(tributed)g(pac)m(k)-5
b(age)42 b(that)f(supp)s(orts)d(in)m(tegration)i(of)g(functions)664
2414 y(in)m(v)m(olving)32 b(square)g(ro)s(ots)i(is)e(a)m(v)-5
b(ailable,)33 b(ho)m(w)m(ev)m(er)h(\(ALGINT,)g(c)m(hapter)g
@beginspecial @setspecial @endspecial(20\).)49 b(In)33
b(ad-)664 2527 y(dition)c(there)h(is)g(a)h(de\014nite)e(in)m(tegration)
h(pac)m(k)-5 b(age,)33 b(DEFINT\()e(c)m(hapter)g @beginspecial
@setspecial @endspecial(34)q(\).)664 2677 y @beginspecial
@setspecial @endspecial 143 x FR(7.4.3)113 b(References)664
3041 y FQ(A.)23 b(C.)f(Norman)g(&)g(P)-8 b(.)23 b(M.)f(A.)h(Mo)s(ore,)i
(\\Implemen)m(ting)c(the)h(New)h(Risc)m(h)e(Algorithm",)664
3154 y(Pro)s(c.)38 b(4th)24 b(In)m(ternational)f(Symp)s(osium)e(on)i
(Adv)-5 b(anced)24 b(Comp.)37 b(Metho)s(ds)24 b(in)e(Theor.)664
3267 y(Ph)m(ys.,)31 b(CNRS,)e(Marseilles,)h(1977.)664
3430 y(S.)g(J.)h(Harrington,)f(\\A)h(New)g(Sym)m(b)s(olic)e(In)m
(tegration)i(System)g(in)e(Reduce",)i(Comp.)664 3543
y(Journ.)40 b(22)31 b(\(1979\))i(2.)664 3706 y(A.)47
b(C.)g(Norman)g(&)f(J.)h(H.)g(Da)m(v)m(enp)s(ort,)53
b(\\Sym)m(b)s(olic)45 b(In)m(tegration)j(|)e(The)h(Dust)664
3819 y(Settles?",)e(Pro)s(c.)75 b(EUR)m(OSAM)42 b(79,)k(Lecture)c
(Notes)h(in)d(Computer)h(Science)h(72,)664 3931 y(Springer-V)-8
b(erlag,)30 b(Berlin)e(Heidelb)s(erg)h(New)i(Y)-8 b(ork)31
b(\(1979\))h(398-407.)664 4091 y @beginspecial @setspecial
@endspecial 177 x FE(7.5)136 b(LENGTH)44 b(Op)t(erator)664
4520 y FJ(LENGTH)28 b FQ(is)i(a)g(generic)g(op)s(erator)g(for)g
(\014nding)e(the)i(length)f(of)h(v)-5 b(arious)29 b(ob)5
b(jects)31 b(in)e(the)664 4633 y(system.)42 b(The)31
b(meaning)f(dep)s(ends)f(on)h(the)h(t)m(yp)s(e)g(of)g(the)g(ob)5
b(ject.)43 b(In)30 b(particular,)g(the)664 4746 y(length)j(of)h(an)g
(algebraic)f(expression)f(is)h(the)h(n)m(um)m(b)s(er)e(of)i(additiv)m
(e)f(top-lev)m(el)h(terms)664 4859 y(its)c(expanded)g(represen)m
(tation.)p eop
%%Page: 91 91
91 90 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.6.)72 b(MAP)31 b(OPERA)-8 b(TOR)1916 b FQ(91)241
555 y FD(Examples:)589 761 y FH(length\(a+b\))170 b(->)87
b(2)589 861 y(length\(2\))258 b(->)87 b(1.)241 1080 y
FQ(Other)33 b(ob)5 b(jects)34 b(that)f(supp)s(ort)f(a)i(length)e(op)s
(erator)i(include)d(arra)m(ys,)k(lists)c(and)i(ma-)241
1193 y(trices.)44 b(The)31 b(explicit)e(meaning)i(in)f(these)i(cases)h
(is)d(included)f(in)h(the)i(description)d(of)241 1306
y(these)i(ob)5 b(jects.)241 1460 y @beginspecial @setspecial
@endspecial 182 x FE(7.6)135 b(MAP)44 b(Op)t(erator)241
1895 y FQ(The)37 b FJ(MAP)h FQ(op)s(erator)g(applies)e(a)j(uniform)d
(ev)-5 b(aluation)38 b(pattern)g(to)h(all)e(mem)m(b)s(ers)g(of)241
2008 y(a)j(comp)s(osite)h(structure:)60 b(a)40 b(matrix,)j(a)d(list,)i
(or)e(the)h(argumen)m(ts)g(of)f(an)g(op)s(erator)241
2121 y(expression.)h(The)30 b(ev)-5 b(aluation)31 b(pattern)g(can)g(b)s
(e)f(a)h(unary)f(pro)s(cedure,)g(an)h(op)s(erator,)241
2233 y(or)f(an)g(algebraic)g(expression)g(with)f(one)h(free)h(v)-5
b(ariable.)241 2383 y(It)30 b(is)g(used)f(with)g(the)i(syn)m(tax:)372
2589 y FH(MAP\(U:function,)o(V:)o(obj)o(ec)o(t\))241
2808 y FQ(Here)f FJ(object)e FQ(is)h(a)h(list,)e(a)i(matrix)f(or)h(an)g
(op)s(erator)g(expression.)39 b FJ(Function)27 b FQ(can)j(b)s(e)241
2921 y(one)g(of)h(the)g(follo)m(wing:)241 3026 y @beginspecial
@setspecial @endspecial 352 3158 a(1.)46 b(the)31 b(name)g(of)g(an)g
(op)s(erator)g(for)g(a)g(single)e(argumen)m(t:)43 b(the)31
b(op)s(erator)g(is)f(ev)-5 b(alu-)468 3271 y(ated)31
b(once)g(with)e(eac)m(h)j(elemen)m(t)f(of)f FJ(object)f
FQ(as)h(its)g(single)f(argumen)m(t;)241 3329 y @beginspecial
@setspecial @endspecial 352 3459 a(2.)46 b(an)34 b(algebraic)g
(expression)f(with)f(exactly)j(one)g(free)f(v)-5 b(ariable,)34
b(that)g(is)g(a)g(v)-5 b(ari-)468 3572 y(able)40 b(preceded)g(b)m(y)h
(the)g(tilde)e(sym)m(b)s(ol.)70 b(The)40 b(expression)f(is)h(ev)-5
b(aluated)41 b(for)468 3685 y(eac)m(h)33 b(elemen)m(t)f(of)g
FJ(object)p FQ(,)e(where)h(the)h(elemen)m(t)g(is)e(substituted)g(for)i
(the)f(free)468 3798 y(v)-5 b(ariable;)241 3853 y @beginspecial
@setspecial @endspecial 352 3985 a(3.)46 b(a)40 b(replacemen)m(t)g
(rule)e(of)h(the)h(form)f FJ(var)47 b(=>)g(rep)38 b FQ(where)h
FJ(var)g FQ(is)f(a)i(v)-5 b(ariable)468 4098 y(\(a)32
b(k)m(ernel)g(without)e(a)i(subscript\))e(and)h FJ(rep)g
FQ(is)f(an)i(expression)e(that)i(con)m(tains)468 4211
y FJ(var)p FQ(.)53 b FJ(Rep)34 b FQ(is)f(ev)-5 b(aluated)35
b(for)g(eac)m(h)h(elemen)m(t)f(of)g FJ(object)e FQ(where)h(the)h
(elemen)m(t)468 4324 y(is)29 b(substituted)g(for)h FJ(var)p
FQ(.)40 b FJ(Var)30 b FQ(ma)m(y)h(b)s(e)e(optionally)g(preceded)h(b)m
(y)g(a)h(tilde.)241 4561 y(The)40 b(rule)g(form)h(for)g
FJ(function)e FQ(is)h(needed)h(when)f(more)i(than)f(one)g(free)h(v)-5
b(ariable)241 4674 y(o)s(ccurs.)241 4824 y(Examples:)p
eop
%%Page: 92 92
92 91 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(92)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)1013 555 y FH(map\(abs,{1,-2,a,)o(-a)o(}\))
81 b(->)86 b({1,2,ABS\(A\),ABS\()o(A\)})1013 655 y(map\(int\(~w,x\),)38
b(mat\(\(x^2,x^5\),\()o(x^4)o(,x)o(^5\))o(\)\))f(->)1362
854 y([)86 b(3)218 b(6)43 b(])1362 954 y([)g(x)217 b(x)87
b(])1362 1053 y([----)e(----])1362 1153 y([)43 b(3)217
b(6)87 b(])1362 1253 y([)435 b(])1362 1352 y([)86 b(5)218
b(6)43 b(])1362 1452 y([)g(x)217 b(x)87 b(])1362 1551
y([----)e(----])1362 1651 y([)43 b(5)217 b(6)87 b(])1013
1850 y(map\(~w*6,)40 b(x^2/3)h(=)i(y^3/2)f(-1\))g(->)h
(2*X^2=3*\(Y^3-2\))664 2070 y FQ(Y)-8 b(ou)34 b(can)f(use)g
FJ(MAP)g FQ(in)e(nested)j(expressions.)47 b(Ho)m(w)m(ev)m(er,)37
b(y)m(ou)c(cannot)h(apply)e FJ(MAP)g FQ(to)664 2182 y(a)f(non-comp)s
(osed)f(ob)5 b(ject,)31 b(e.g.)42 b(an)30 b(iden)m(ti\014er)f(or)h(a)h
(n)m(um)m(b)s(er.)664 2337 y @beginspecial @setspecial
@endspecial 182 x FE(7.7)136 b(MKID)44 b(Op)t(erator)664
2758 y FQ(In)38 b(man)m(y)g(applications,)h(it)e(is)h(useful)e(to)j
(create)h(a)f(set)f(of)h(iden)m(ti\014ers)d(for)i(naming)664
2858 y(ob)5 b(jects)46 b(in)d(a)j(consisten)m(t)f(manner.)83
b(In)44 b(most)h(cases,)50 b(it)45 b(is)e(su\016cien)m(t)i(to)g(create)
664 2957 y(suc)m(h)35 b(names)f(from)g(t)m(w)m(o)j(comp)s(onen)m(ts.)54
b(The)34 b(op)s(erator)h FJ(MKID)e FQ(is)h(pro)m(vided)f(for)i(this)664
3057 y(purp)s(ose.)k(Its)31 b(syn)m(tax)f(is:)664 3263
y FH(MKID\(U:id,V:id|no)o(n-)o(ne)o(gat)o(iv)o(e)38 b(integer\):id)664
3469 y FQ(for)30 b(example)1013 3675 y FH(mkid\(a,3\))258
b(->)42 b(A3)1013 3774 y(mkid\(apple,s\))82 b(->)42 b(APPLES)664
3994 y FQ(while)29 b FJ(mkid\(a+b,2\))e FQ(giv)m(es)k(an)f(error.)664
4143 y(The)k FJ(SET)f FQ(op)s(erator)i(can)g(b)s(e)e(used)h(to)h(giv)m
(e)g(a)g(v)-5 b(alue)34 b(to)h(the)f(iden)m(ti\014ers)f(created)i(b)m
(y)664 4243 y FJ(MKID)p FQ(,)30 b(for)g(example)1013
4448 y FH(set\(mkid\(a,3\),3\))o(;)664 4668 y FQ(will)e(giv)m(e)j
FJ(A3)f FQ(the)g(v)-5 b(alue)30 b(2.)664 4822 y @beginspecial
@setspecial @endspecial eop
%%Page: 93 93
93 92 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.8.)72 b(PF)30 b(OPERA)-8 b(TOR)2009 b FQ(93)241
555 y FE(7.8)135 b(PF)44 b(Op)t(erator)241 808 y FJ(PF\(<exp>,<var>\))
20 b FQ(transforms)j(the)h(expression)f FJ(<exp>)g FQ(in)m(to)h(a)g
(list)f(of)h(partial)f(frac-)241 921 y(tions)32 b(with)f(resp)s(ect)h
(to)h(the)g(main)e(v)-5 b(ariable,)32 b FJ(<var>)p FQ(.)45
b FJ(PF)32 b FQ(do)s(es)g(a)h(complete)g(partial)241
1034 y(fraction)41 b(decomp)s(osition,)i(and)d(as)i(the)f(algorithms)g
(used)f(are)i(fairly)d(unsophisti-)241 1147 y(cated)c(\(factorization)g
(and)f(the)g(extended)g(Euclidean)e(algorithm\),)j(the)g(co)s(de)f(ma)m
(y)241 1260 y(b)s(e)c(unacceptably)g(slo)m(w)g(in)f(complicated)h
(cases.)241 1409 y FD(Example:)37 b FQ(Giv)m(en)23 b
FJ(2/\(\(x+1\)^2*\(x+2\)\))18 b FQ(in)k(the)h(w)m(orkspace,)i
FJ(pf\(ws,x\);)e FQ(giv)m(es)g(the)241 1509 y(result)764
1715 y FH(2)261 b(-)43 b(2)392 b(2)589 1814 y({-------,-------,)o(---)o
(--)o(---)o(--)o(--)o(--})37 b(.)677 1914 y(X)43 b(+)g(2)130
b(X)43 b(+)h(1)174 b(2)1374 2013 y(X)87 b(+)43 b(2*X)f(+)h(1)241
2219 y FQ(If)33 b(y)m(ou)h(w)m(an)m(t)h(the)f(denominators)f(in)f
(factored)j(form,)g(use)e FJ(off)47 b(exp;)p FQ(.)j(Th)m(us,)34
b(with)241 2319 y FJ(2/\(\(x+1\)^2*\(x+2\)\))18 b FQ(in)k(the)i(w)m
(orkspace,)h(the)f(commands)e FJ(off)47 b(exp;)g(pf\(ws,x\);)241
2419 y FQ(giv)m(e)31 b(the)f(result)764 2624 y FH(2)261
b(-)43 b(2)305 b(2)589 2724 y({-------,-------,)o(---)o(--)o(---)o(--)o
(})37 b(.)677 2824 y(X)43 b(+)g(2)130 b(X)43 b(+)h(1)435
b(2)1374 2923 y(\(X)43 b(+)g(1\))241 3129 y FQ(T)-8 b(o)30
b(recom)m(bine)f(the)h(terms,)f FJ(FOR)47 b(EACH)g(...SUM)28
b FQ(can)i(b)s(e)e(used.)40 b(So)29 b(with)g(the)g(ab)s(o)m(v)m(e)241
3229 y(list)g(in)g(the)h(w)m(orkspace,)i FJ(for)47 b(each)f(j)i(in)f
(ws)g(sum)g(j;)30 b FQ(returns)f(the)h(result)807 3435
y FH(2)459 3534 y(---------------)o(---)1156 3634 y(2)502
3734 y(\(X)43 b(+)g(2\)*\(X)f(+)h(1\))241 3953 y FQ(Alternativ)m(ely)-8
b(,)24 b(one)e(can)g(use)g(the)g(op)s(erations)g(on)f(lists)g(to)i
(extract)g(an)m(y)g(desired)d(term.)241 4107 y @beginspecial
@setspecial @endspecial 182 x FE(7.9)135 b(SELECT)45
b(Op)t(erator)241 4529 y FQ(The)24 b FJ(SELECT)e FQ(op)s(erator)j
(extracts)h(from)e(a)h(list,)f(or)g(from)g(the)h(argumen)m(ts)g(of)f
(an)h(n{ary)241 4628 y(op)s(erator,)i(elemen)m(ts)f(corresp)s(onding)e
(to)j(a)f(b)s(o)s(olean)f(predicate.)39 b(It)26 b(is)f(used)h(with)e
(the)241 4728 y(syn)m(tax:)328 4934 y FH(SELECT\(U:functio)o(n,)o(V:l)o
(is)o(t\))p eop
%%Page: 94 94
94 93 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(94)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FJ(Function)28 b
FQ(can)j(b)s(e)f(one)g(of)h(the)f(follo)m(wing)f(forms:)664
648 y @beginspecial @setspecial @endspecial 775 778 a(1.)46
b(the)32 b(name)e(of)h(an)g(op)s(erator)g(for)g(a)g(single)f(argumen)m
(t:)42 b(the)31 b(op)s(erator)g(is)f(ev)-5 b(alu-)891
891 y(ated)31 b(once)h(with)d(eac)m(h)i(elemen)m(t)g(of)g
FJ(object)d FQ(as)j(its)f(single)f(argumen)m(t;)664 945
y @beginspecial @setspecial @endspecial 775 1072 a(2.)46
b(an)34 b(algebraic)g(expression)f(with)g(exactly)i(one)f(free)g(v)-5
b(ariable,)34 b(that)h(is)e(a)h(v)-5 b(ari-)891 1185
y(able)41 b(preceded)f(b)m(y)g(the)h(tilde)e(sym)m(b)s(ol.)70
b(The)40 b(expression)g(is)f(ev)-5 b(aluated)41 b(for)891
1298 y(eac)m(h)32 b(elemen)m(t)e(of)g FP(h)p FD(obje)-5
b(ct)9 b FP(i)q FQ(,)30 b(where)f(the)h(elemen)m(t)h(is)e(substituted)f
(for)i(the)g(free)891 1411 y(v)-5 b(ariable;)664 1463
y @beginspecial @setspecial @endspecial 775 1593 a(3.)46
b(a)35 b(replacemen)m(t)g(rule)e(of)i(the)g(form)e FP(h)p
FD(var)h FQ(=)p FL(>)e FD(r)-5 b(ep)6 b FP(i)35 b FQ(where)f
FJ(var)g FQ(is)f(a)i(v)-5 b(ariable)891 1706 y(\(a)40
b(k)m(ernel)f(without)g(subscript\))e(and)i FJ(rep)f
FQ(is)h(an)g(expression)f(that)i(con)m(tains)891 1819
y FJ(var)p FQ(.)53 b FJ(Rep)34 b FQ(is)g(ev)-5 b(aluated)35
b(for)f(eac)m(h)i(elemen)m(t)f(of)g FJ(object)e FQ(where)i(the)f
(elemen)m(t)891 1932 y(is)c(substituted)f(for)h FJ(var)p
FQ(.)40 b FJ(var)29 b FQ(ma)m(y)i(b)s(e)f(optionally)f(preceded)h(b)m
(y)g(a)h(tilde.)664 2154 y(The)41 b(rule)f(form)h(for)g
FJ(function)e FQ(is)h(needed)h(when)f(more)h(than)g(one)h(free)f(v)-5
b(ariable)664 2267 y(o)s(ccurs.)664 2430 y(The)34 b(result)g(of)h(ev)-5
b(aluating)34 b FJ(function)f FQ(is)h(in)m(terpreted)g(as)h(a)g(b)s(o)s
(olean)f(v)-5 b(alue)34 b(corre-)664 2543 y(sp)s(onding)29
b(to)j(the)g(con)m(v)m(en)m(tions)h(of)e(REDUCE.)h(These)f(v)-5
b(alues)31 b(are)h(comp)s(osed)f(with)664 2656 y(the)g(leading)e(op)s
(erator)i(of)f(the)h(input)d(expression.)664 2805 y FD(Examples:)1013
3011 y FH(select\()41 b(~w>0)g(,)j({1,-1,2,-3,3}\))37
b(->)43 b({1,2,3})1013 3111 y(select\(evenp)38 b(deg\(~w,y\),part\(\(x)
o(+y\))o(^5)o(,0\))o(:=)o(li)o(st\))1318 3210 y(->)43
b({X^5)f(,10*X^3*Y^2)d(,5*X*Y^4})1013 3310 y(select\(evenp)f
(deg\(~w,x\),2x^2+3x)o(^3+)o(4x)o(^4\))f(->)42 b(4X^4)g(+)i(2X^2)664
3462 y @beginspecial @setspecial @endspecial 181 x FE(7.10)136
b(SOL)-15 b(VE)44 b(Op)t(erator)664 3883 y FQ(SOL)-10
b(VE)25 b(is)f(an)i(op)s(erator)g(for)f(solving)f(one)i(or)g(more)g
(sim)m(ultaneous)e(algebraic)h(equat-)664 3982 y(ions.)40
b(It)30 b(is)g(used)f(with)g(the)i(syn)m(tax:)751 4188
y FH(SOLVE\(EXPRN:algeb)o(ra)o(ic[)o(,V)o(AR:)o(ke)o(rne)o(l|)o(,V)o
(ARL)o(IS)o(T:l)o(is)o(t)37 b(of)43 b(kernels]\))1056
4288 y(:list.)664 4507 y FJ(EXPRN)38 b FQ(is)g(of)i(the)g(form)e
FJ(<expression>)e FQ(or)k FP(f)g FJ(<expression1>)p FQ(,)p
FJ(<expression)o(2>)p FQ(,)664 4620 y(.)16 b(.)f(.)g
FP(g)p FQ(.)62 b(Eac)m(h)38 b(expression)e(is)g(an)i(algebraic)f
(equation,)i(or)e(is)f(the)i(di\013erence)e(of)i(the)664
4733 y(t)m(w)m(o)d(sides)c(of)j(the)f(equation.)49 b(The)32
b(second)h(argumen)m(t)h(is)e(either)h(a)g(k)m(ernel)g(or)g(a)g(list)
664 4846 y(of)c(k)m(ernels)f(represen)m(ting)g(the)h(unkno)m(wns)e(in)g
(the)i(system.)40 b(This)27 b(argumen)m(t)i(ma)m(y)h(b)s(e)664
4959 y(omitted)e(if)f(the)i(n)m(um)m(b)s(er)e(of)h(distinct,)f
(non-constan)m(t,)j(top-lev)m(el)f(k)m(ernels)e(equals)h(the)p
eop
%%Page: 95 95
95 94 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.10.)72 b(SOL)-10 b(VE)30 b(OPERA)-8 b(TOR)1786 b
FQ(95)241 555 y(n)m(um)m(b)s(er)36 b(of)h(unkno)m(wns,)h(in)e(whic)m(h)
g(case)j(these)f(k)m(ernels)f(are)g(presumed)f(to)j(b)s(e)d(the)241
668 y(unkno)m(wns.)241 831 y(F)-8 b(or)37 b(one)f(equation,)i
FJ(SOLVE)d FQ(recursiv)m(ely)g(uses)h(factorization)h(and)f(decomp)s
(osition,)241 944 y(together)25 b(with)e(the)i(kno)m(wn)e(in)m(v)m
(erses)h(of)h FJ(LOG)p FQ(,)e FJ(SIN)p FQ(,)h FJ(COS)p
FQ(,)f FJ(^)p FQ(,)j FJ(ACOS)p FQ(,)d FJ(ASIN)p FQ(,)g(and)h(linear,)
241 1057 y(quadratic,)35 b(cubic,)g(quartic,)g(or)g(binomial)d
(factors.)54 b(Solutions)33 b(of)h(equations)h(built)241
1170 y(with)26 b(exp)s(onen)m(tials)g(or)h(logarithms)f(are)i(often)f
(expressed)g(in)f(terms)h(of)h(Lam)m(b)s(ert's)f FJ(W)241
1282 y FQ(function.)52 b(This)33 b(function)g(is)h(\(partially\))f
(implemen)m(ted)h(in)f(the)i(sp)s(ecial)e(functions)241
1395 y(pac)m(k)-5 b(age.)241 1558 y(Linear)39 b(equations)h(are)h(solv)
m(ed)f(b)m(y)g(the)g(m)m(ulti-step)g(elimination)d(metho)s(d)j(due)g
(to)241 1671 y(Bareiss,)35 b(unless)d(the)i(switc)m(h)f
FJ(CRAMER)f FQ(is)h(on,)i(in)e(whic)m(h)g(case)i(Cramer's)e(metho)s(d)g
(is)241 1784 y(used.)38 b(The)24 b(Bareiss)h(metho)s(d)f(is)h(usually)d
(more)j(e\016cien)m(t)h(unless)d(the)i(system)g(is)f(large)241
1897 y(and)30 b(dense.)241 2060 y(Non-linear)38 b(equations)h(are)h
(solv)m(ed)f(using)f(the)i(Gro)s(ebner)e(basis)h(pac)m(k)-5
b(age.)70 b(Users)241 2172 y(should)28 b(note)j(that)g(this)e(can)i(b)s
(e)f(quite)g(a)g(time)g(consuming)f(pro)s(cess.)241 2322
y FD(Examples:)764 2528 y FH(solve\(log\(sin\(x+)o(3\))o(\)^5)37
b(=)43 b(8,x\);)764 2627 y(solve\(a*log\(sin\()o(x+)o(3\)\))o(^5)37
b(-)43 b(b,)g(sin\(x+3\)\);)764 2727 y(solve\({a*x+y=3,y)o(=-)o(2},)o
({x)o(,y)o(}\);)241 2933 y FJ(SOLVE)23 b FQ(returns)h(a)h(list)f(of)h
(solutions.)37 b(If)24 b(there)h(is)f(one)h(unkno)m(wn,)g(eac)m(h)h
(solution)e(is)g(an)241 3033 y(equation)32 b(for)h(the)g(unkno)m(wn.)47
b(If)32 b(a)i(complete)f(solution)e(w)m(as)i(found,)g(the)g(unkno)m(wn)
241 3132 y(will)k(app)s(ear)h(b)m(y)i(itself)e(on)h(the)h(left-hand)e
(side)h(of)h(the)f(equation.)68 b(On)39 b(the)g(other)241
3232 y(hand,)34 b(if)f(the)h(solv)m(e)g(pac)m(k)-5 b(age)36
b(could)d(not)h(\014nd)e(a)j(solution,)e(the)h(\\solution")g(will)d(b)s
(e)241 3331 y(an)f(equation)g(for)g(the)h(unkno)m(wn)e(in)g(terms)h(of)
g(the)h(op)s(erator)f FJ(ROOT)p 2606 3331 29 4 v 34 w(OF)p
FQ(.)g(If)g(there)g(are)241 3431 y(sev)m(eral)c(unkno)m(wns,)f(eac)m(h)
h(solution)e(will)f(b)s(e)i(a)h(list)e(of)i(equations)f(for)g(the)h
(unkno)m(wns.)241 3531 y(F)-8 b(or)31 b(example,)459
3737 y FH(solve\(x^2=1,x\);)560 b(->)43 b({X=-1,X=1})459
3936 y(solve\(x^7-x^6+x)o(^2=)o(1,)o(x\))1461 4035 y(6)764
4135 y(->)g({X=ROOT_OF\(X_)81 b(+)44 b(X_)e(+)h(1,X_,TAG_1\),X=1})459
4334 y(solve\({x+3y=7,y)o(-x=)o(1})o(,{x)o(,y)o(}\))37
b(->)43 b({{X=1,Y=2}}.)241 4540 y FQ(The)32 b(T)-8 b(A)m(G)35
b(argumen)m(t)e(is)f(used)h(to)h(uniquely)c(iden)m(tify)i(those)h
(particular)f(solutions.)241 4640 y(Solution)18 b(m)m(ultiplicities)f
(are)j(stored)h(in)e(the)h(global)g(v)-5 b(ariable)19
b FJ(ROOT)p 2557 4640 V 33 w(MULTIPLICITIES)241 4740
y FQ(rather)31 b(than)g(the)g(solution)f(list.)41 b(The)31
b(v)-5 b(alue)31 b(of)g(this)f(v)-5 b(ariable)30 b(is)g(a)i(list)e(of)h
(the)g(m)m(ul-)241 4839 y(tiplicities)c(of)k(the)f(solutions)f(for)h
(the)h(last)f(call)g(of)g FJ(SOLVE)p FQ(.)60 b(F)-8 b(or)31
b(example,)p eop
%%Page: 96 96
96 95 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(96)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)969 555 y FH(solve\(x^2=2x-1,x\))o(;)37
b(root_multipliciti)o(es;)664 761 y FQ(giv)m(es)31 b(the)f(results)1013
967 y FH({X=1})1013 1166 y({2})664 1372 y FQ(If)20 b(y)m(ou)h(w)m(an)m
(t)g(the)f(m)m(ultiplicities)d(explicitly)g(displa)m(y)m(ed,)22
b(the)e(switc)m(h)g FJ(MULTIPLICITIES)664 1472 y FQ(can)31
b(b)s(e)f(turned)f(on.)40 b(F)-8 b(or)32 b(example)1013
1678 y FH(on)43 b(multiplicities;)37 b(solve\(x^2=2x-1,x)o(\);)664
1884 y FQ(yields)29 b(the)h(result)1013 2089 y FH({X=1,X=1})664
2228 y @beginspecial @setspecial @endspecial 155 x FR(7.10.1)113
b(Handling)36 b(of)i(Undetermined)f(Solutions)664 2591
y FQ(When)c FJ(SOLVE)g FQ(cannot)h(\014nd)e(a)i(solution)e(to)i(an)f
(equation,)i(it)e(normally)f(returns)g(an)664 2690 y(equation)h(for)g
(the)h(relev)-5 b(an)m(t)33 b(indeterminates)f(in)g(terms)h(of)h(the)f
(op)s(erator)h FJ(ROOT)p 3505 2690 29 4 v 33 w(OF)p FQ(.)664
2790 y(F)-8 b(or)31 b(example,)g(the)f(expression)1013
2996 y FH(solve\(cos\(x\))38 b(+)44 b(log\(x\),x\);)664
3202 y FQ(returns)29 b(the)i(result)969 3408 y FH({X=ROOT_OF\(COS\(X_)o
(\))37 b(+)44 b(LOG\(X_\),X_,TAG_)o(1\)})37 b(.)664 3627
y FQ(An)42 b(expression)f(with)g(a)h(top-lev)m(el)h FJ(ROOT)p
2160 3627 V 33 w(OF)f FQ(op)s(erator)g(is)f(implicitly)e(a)j(list)f
(with)664 3740 y(an)f(unkno)m(wn)e(n)m(um)m(b)s(er)h(of)g(elemen)m(ts)i
(\(since)e(w)m(e)h(don't)g(alw)m(a)m(ys)g(kno)m(w)g(ho)m(w)g(man)m(y)
664 3853 y(solutions)22 b(an)i(equation)f(has\).)39 b(If)23
b(a)h(substitution)d(is)i(made)h(in)m(to)f(suc)m(h)g(an)h(expression,)
664 3966 y(closed)36 b(form)f(solutions)f(can)j(emerge.)58
b(If)35 b(this)g(o)s(ccurs,)i(the)f FJ(ROOT)p 3028 3966
V 33 w(OF)g FQ(construct)g(is)664 4079 y(replaced)41
b(b)m(y)h(an)g(op)s(erator)g FJ(ONE)p 1838 4079 V 34
w(OF)p FQ(.)f(A)m(t)i(this)e(p)s(oin)m(t)f(it)i(is)f(of)h(course)g(p)s
(ossible)d(to)664 4192 y(transform)20 b(the)g(result)g(of)g(the)h
(original)d FJ(SOLVE)h FQ(op)s(erator)i(expression)e(in)m(to)h(a)h
(standard)664 4304 y FJ(SOLVE)29 b FQ(solution.)39 b(T)-8
b(o)31 b(e\013ect)h(this,)e(the)g(op)s(erator)h FJ(EXPAND)p
2706 4304 V 33 w(CASES)59 b FQ(can)31 b(b)s(e)e(used.)664
4467 y(The)h(follo)m(wing)f(example)h(sho)m(ws)g(the)h(use)f(of)g
(these)h(facilities:)p eop
%%Page: 97 97
97 96 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.10.)72 b(SOL)-10 b(VE)30 b(OPERA)-8 b(TOR)1786 b
FQ(97)241 555 y FH(solve\(-a*x^3+a*x)o(^2)o(+x)o(^4-)o(x^)o(3-4)o(*x)o
(^2+)o(4,)o(x\))o(;)851 655 y(2)217 b(3)241 754 y({X=ROOT_OF\(A*X_)81
b(-)43 b(X_)86 b(+)43 b(4*X_)f(+)i(4,X_,TAG_2\),X=1)o(})241
954 y(sub\(a=-1,ws\);)241 1153 y({X=ONE_OF\({2,-1,)o(-2)o(},)o(TAG)o
(_2)o(\),X)o(=1)o(})241 1352 y(expand_cases)38 b(ws;)241
1551 y({X=2,X=-1,X=-2,X)o(=1)o(})241 1690 y @beginspecial
@setspecial @endspecial 155 x FR(7.10.2)112 b(Solutions)30
b(of)i(Equations)e(In)m(v)m(olving)g(Cubics)h(and)h(Quartics)241
2066 y FQ(Since)53 b(ro)s(ots)h(of)g(cubics)f(and)h(quartics)f(can)i
(often)f(b)s(e)g(v)m(ery)g(messy)-8 b(,)61 b(a)54 b(switc)m(h)241
2179 y FJ(FULLROOTS)34 b FQ(is)i(a)m(v)-5 b(ailable,)38
b(that,)h(when)d(o\013)h(\(the)h(default\),)g(will)c(prev)m(en)m(t)k
(the)f(pro-)241 2292 y(duction)e(of)h(a)h(result)e(in)g(closed)h(form.)
57 b(The)36 b FJ(ROOT)p 2069 2292 29 4 v 33 w(OF)g FQ(construct)g(will)
e(b)s(e)h(used)h(in)241 2405 y(this)29 b(case)i(instead.)241
2568 y(In)i(constructing)h(the)g(solutions)f(of)h(cubics)f(and)h
(quartics,)g(trigonometrical)g(forms)241 2681 y(are)k(used)g(where)f
(appropriate.)63 b(This)37 b(option)g(is)h(under)e(the)j(con)m(trol)f
(of)h(a)f(switc)m(h)241 2793 y FJ(TRIGFORM)p FQ(,)28
b(whic)m(h)h(is)h(normally)e(on.)241 2943 y(The)i(follo)m(wing)e
(example)j(illustrates)d(the)j(use)f(of)g(these)h(facilities:)241
3149 y FH(let)42 b(xx)h(=)g(solve\(x^3+x+1,x\))o(;)241
3348 y(xx;)807 3448 y(3)241 3547 y({X=ROOT_OF\(X_)82
b(+)43 b(X_)f(+)i(1,X_\)})241 3747 y(on)f(fullroots;)241
3946 y(xx;)1418 4145 y(-)g(SQRT\(31\)*I)1112 4245 y(ATAN\(------------)
o(---)o(\))1461 4344 y(3*SQRT\(3\))241 4444 y({X=\(I*\(SQRT\(3\)*S)o
(IN)o(\(-)o(---)o(--)o(---)o(--)o(---)o(--)o(--)o(---)o(--)o(\))1548
4544 y(3)p eop
%%Page: 98 98
98 97 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(98)870 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)1623 555 y FH(-)43 b(SQRT\(31\)*I)1318
655 y(ATAN\(-----------)o(---)o(-\))1667 754 y(3*SQRT\(3\))1013
854 y(-)g(COS\(------------)o(---)o(--)o(---)o(--)o(-\))o(\)\)/)o(SQ)o
(RT\()o(3\))o(,)1754 954 y(3)1972 1153 y(-)g(SQRT\(31\)*I)1667
1253 y(ATAN\(----------)o(---)o(--)o(\))2015 1352 y(3*SQRT\(3\))708
1452 y(X=\()f(-)h(I*\(SQRT\(3\)*SIN\(--)o(--)o(---)o(--)o(---)o(--)o
(--)o(---)o(--)o(--\))2103 1551 y(3)1754 1751 y(-)g(SQRT\(31\)*I)1449
1850 y(ATAN\(-----------)o(--)o(--)o(\))1797 1950 y(3*SQRT\(3\))1144
2050 y(+)g(COS\(------------)o(--)o(---)o(--)o(--)o(--\))o(\)\))o(/SQ)o
(RT)o(\()1885 2149 y(3)926 2348 y(3\),)1449 2548 y(-)g(SQRT\(31\)*I)
1144 2647 y(ATAN\(----------)o(---)o(--)o(\))1492 2747
y(3*SQRT\(3\))839 2847 y(2*COS\(---------)o(--)o(---)o(--)o(---)o(--)o
(--\))o(*I)1579 2946 y(3)708 3046 y(X=--------------)o(--)o(--)o(---)o
(--)o(---)o(--)o(---)o(--)o(-})1362 3145 y(SQRT\(3\))664
3345 y(off)g(trigform;)664 3544 y(xx;)1928 3644 y(2/3)664
3743 y({X=\()f(-)h(\(SQRT\(31\))d(-)j(3*SQRT\(3\)\))127
b(*SQRT\(3\)*I)1928 3942 y(2/3)173 b(2/3)882 4042 y(-)43
b(\(SQRT\(31\))d(-)j(3*SQRT\(3\)\))171 b(-)43 b(2)130
b(*SQRT\(3\)*I)1013 4241 y(2/3)1175 b(1/3)86 b(1/3)882
4341 y(+)43 b(2)131 b(\)/\(2*\(SQRT\(31\))37 b(-)44 b(3*SQRT\(3\)\))126
b(*6)1362 4540 y(1/6)1274 4640 y(*3)k(\),)1797 4839 y(2/3)708
4939 y(X=\(\(SQRT\(31\))38 b(-)44 b(3*SQRT\(3\)\))126
b(*SQRT\(3\)*I)p eop
%%Page: 99 99
99 98 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.10.)72 b(SOL)-10 b(VE)30 b(OPERA)-8 b(TOR)1786 b
FQ(99)1505 655 y FH(2/3)173 b(2/3)459 754 y(-)43 b(\(SQRT\(31\))d(-)j
(3*SQRT\(3\)\))170 b(+)43 b(2)131 b(*SQRT\(3\)*I)589
954 y(2/3)1176 b(1/3)86 b(1/3)459 1053 y(+)43 b(2)130
b(\)/\(2*\(SQRT\(31\))38 b(-)43 b(3*SQRT\(3\)\))127 b(*6)938
1253 y(1/6)851 1352 y(*3)j(\),)1418 1551 y(2/3)173 b(2/3)459
1651 y(\(SQRT\(31\))40 b(-)j(3*SQRT\(3\)\))170 b(-)43
b(2)284 1751 y(X=---------------)o(--)o(---)o(--)o(---)o(--)o(---)o(--)
o(--)o(---)o(})1374 1850 y(1/3)86 b(1/3)g(1/6)415 1950
y(\(SQRT\(31\))40 b(-)j(3*SQRT\(3\)\))127 b(*6)j(*3)241
2089 y @beginspecial @setspecial @endspecial 154 x FR(7.10.3)112
b(Other)38 b(Options)241 2465 y FQ(If)h FJ(SOLVESINGULAR)d
FQ(is)i(on)i(\(the)g(default)f(setting\),)j(degenerate)f(systems)f(suc)
m(h)f(as)241 2578 y FJ(x+y=0)p FQ(,)k FJ(2x+2y=0)d FQ(will)f(b)s(e)i
(solv)m(ed)h(b)m(y)g(in)m(tro)s(ducing)d(appropriate)i(arbitrary)g
(con-)241 2690 y(stan)m(ts.)59 b(The)35 b(consisten)m(t)i(singular)d
(equation)i(0=0)g(or)h(equations)e(in)m(v)m(olving)g(func-)241
2803 y(tions)f(with)g(m)m(ultiple)f(in)m(v)m(erses)h(ma)m(y)i(in)m(tro)
s(duce)e(unique)f(new)i(indeterminan)m(t)e(k)m(er-)241
2916 y(nels)27 b FJ(ARBCOMPLEX\(j\))p FQ(,)e(or)j FJ(ARBINT\(j\))p
FQ(,)e(\()p FL(j)5 b FQ(=1,2,...\),)32 b(represen)m(ting)27
b(arbitrary)g(com-)241 3029 y(plex)32 b(or)h(in)m(teger)h(n)m(um)m(b)s
(ers)e(resp)s(ectiv)m(ely)-8 b(.)49 b(T)-8 b(o)33 b(automatically)h
(select)f(the)h(principal)241 3142 y(branc)m(hes,)39
b(do)f FJ(off)47 b(allbranch;)39 b FQ(.)126 b(T)-8 b(o)38
b(a)m(v)m(oid)g(the)g(in)m(tro)s(duction)e(of)i(new)g(inde-)241
3255 y(terminan)m(t)h(k)m(ernels)g(do)g FJ(OFF)47 b(ARBVARS)37
b FQ({)j(then)f(no)g(equations)g(are)h(generated)h(for)241
3368 y(the)i(free)g(v)-5 b(ariables)41 b(and)h(their)g(original)f
(names)h(are)i(used)d(to)j(express)e(the)h(solu-)241
3481 y(tion)37 b(forms.)63 b(T)-8 b(o)38 b(suppress)e(solutions)g(of)i
(consisten)m(t)g(singular)e(equations)i(do)f FJ(OFF)241
3594 y(SOLVESINGULAR)p FQ(.)241 3743 y(T)-8 b(o)31 b(incorp)s(orate)e
(additional)g(in)m(v)m(erse)h(functions)f(do,)h(for)h(example:)589
3949 y FH(put\('sinh,'invers)o(e,')o(as)o(inh)o(\);)589
4049 y(put\('asinh,'inver)o(se,)o('s)o(inh)o(\);)241
4255 y FQ(together)h(with)d(an)m(y)h(desired)f(simpli\014cation)e
(rules)i(suc)m(h)h(as)589 4461 y FH(for)43 b(all)f(x)h(let)g
(sinh\(asinh\(x\)\)=)o(x,)37 b(asinh\(sinh\(x\)\)=x;)241
4680 y FQ(F)-8 b(or)35 b(completeness,)h(functions)d(with)g(non-unique)
g(in)m(v)m(erses)h(should)f(b)s(e)h(treated)h(as)241
4793 y FJ(^)p FQ(,)30 b FJ(SIN)p FQ(,)g(and)g FJ(COS)f
FQ(are)i(in)e(the)h FJ(SOLVE)60 b FQ(mo)s(dule)28 b(source.)241
4955 y(Argumen)m(ts)37 b(of)g FJ(ASIN)e FQ(and)h FJ(ACOS)g
FQ(are)h(not)g(c)m(hec)m(k)m(ed)i(to)e(ensure)f(that)i(the)f(absolute)p
eop
%%Page: 100 100
100 99 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(100)825 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FQ(v)j(alue)43 b(of)g(the)g(real)f
(part)h(do)s(es)g(not)g(exceed)h(1;)50 b(and)42 b(argumen)m(ts)h(of)g
FJ(LOG)f FQ(are)i(not)664 668 y(c)m(hec)m(k)m(ed)c(to)f(ensure)e(that)i
(the)f(absolute)g(v)-5 b(alue)38 b(of)g(the)g(imaginary)f(part)h(do)s
(es)g(not)664 781 y(exceed)43 b FL(\031)s FQ(;)49 b(but)41
b(c)m(hec)m(ks)j(\(p)s(erhaps)c(in)m(v)m(olving)h(user)g(resp)s(onse)h
(for)g(non-n)m(umerical)664 894 y(argumen)m(ts\))31 b(could)f(b)s(e)f
(in)m(tro)s(duced)g(using)g FJ(LET)h FQ(statemen)m(ts)i(for)e(these)h
(op)s(erators.)664 1044 y @beginspecial @setspecial @endspecial
143 x FR(7.10.4)113 b(P)m(arameters)36 b(and)j(V)-9 b(ariable)36
b(Dep)s(endency)664 1395 y FQ(The)31 b(prop)s(er)e(design)h(of)h(a)h(v)
-5 b(ariable)30 b(sequence)h(supplied)d(as)j(a)h(second)f(argumen)m(t)g
(to)664 1495 y FJ(SOLVE)f FQ(is)g(imp)s(ortan)m(t)h(for)g(the)h
(structure)f(of)g(the)h(solution)e(of)h(an)g(equation)h(system.)664
1595 y(An)m(y)i(unkno)m(wn)e(in)h(the)g(system)h(not)g(in)e(this)h
(list)f(is)h(considered)g(totally)g(free.)51 b(E.g.)664
1694 y(the)31 b(call)839 1900 y FH(solve\({x=2*z,z=)o(2*)o(y},)o({z)o
(}\);)664 2106 y FQ(pro)s(duces)h(an)h(empt)m(y)h(list)d(as)j(a)f
(result)f(b)s(ecause)i(there)f(is)f(no)h(function)f FL(z)i
FQ(=)c FL(z)t FQ(\()p FL(x;)15 b(y)s FQ(\))664 2206 y(whic)m(h)26
b(ful\014lls)d(b)s(oth)j(equations)h(for)f(arbitrary)g
FL(x)h FQ(and)f FL(y)k FQ(v)-5 b(alues.)39 b(In)26 b(suc)m(h)g(a)i
(case)g(the)664 2305 y(share)c(v)-5 b(ariable)22 b FJ(requirements)f
FQ(displa)m(ys)g(a)j(set)h(of)f(restrictions)e(for)i(the)g(parameters)
664 2405 y(of)31 b(the)f(system:)839 2611 y FH(requirements;)839
2810 y({x)42 b(-)h(4*y})664 3029 y FQ(The)35 b(non-existence)h(of)g(a)h
(formal)e(solution)f(is)h(caused)h(b)m(y)f(a)h(con)m(tradiction)g(whic)
m(h)664 3142 y(disapp)s(ears)30 b(only)g(if)h(the)g(parameters)h(of)g
(the)f(initial)e(system)j(are)g(set)g(suc)m(h)f(that)h(all)664
3255 y(mem)m(b)s(ers)23 b(of)h(the)f(requiremen)m(ts)g(list)f(tak)m(e)j
(the)f(v)-5 b(alue)23 b(zero.)39 b(F)-8 b(or)24 b(a)g(linear)e(system)i
(the)664 3368 y(set)31 b(is)e(complete:)42 b(a)30 b(solution)f(of)i
(the)f(requiremen)m(ts)g(list)e(mak)m(es)k(the)e(initial)e(system)664
3481 y(solv)-5 b(able.)51 b(E.g.)35 b(in)e(the)h(ab)s(o)m(v)m(e)i(case)
f(a)g(substitution)c FL(x)h FQ(=)f(4)p FL(y)38 b FQ(mak)m(es)d(the)f
(equation)664 3594 y(set)h(consisten)m(t.)53 b(F)-8 b(or)36
b(a)e(non-linear)f(system)i(only)e(one)i(inconsistency)e(is)g
(detected.)664 3707 y(If)k(suc)m(h)h(a)g(system)f(has)h(more)f(than)h
(one)f(inconsistency)-8 b(,)39 b(y)m(ou)f(m)m(ust)g(reduce)f(them)664
3820 y(one)f(after)g(the)f(other.)56 b @beginspecial
@setspecial @endspecial -33 x FO(1)1599 3820 y FQ(The)35
b(set)h(sho)m(ws)f(y)m(ou)g(also)h(the)f(dep)s(endency)f(among)i(the)
664 3932 y(parameters:)41 b(here)30 b(one)h(of)f FL(x)h
FQ(and)e FL(y)k FQ(is)d(free)g(and)g(a)g(formal)g(solution)f(of)h(the)h
(system)664 4045 y(can)25 b(b)s(e)g(computed)g(b)m(y)f(adding)g(it)g
(to)i(the)f(v)-5 b(ariable)24 b(list)g(of)h FJ(solve)p
FQ(.)37 b(The)25 b(requiremen)m(t)664 4158 y(set)31 b(is)f(not)g
(unique)f({)h(there)h(ma)m(y)g(b)s(e)f(other)g(suc)m(h)g(sets.)664
4308 y(A)h(system)f(with)f(parameters)i(ma)m(y)g(ha)m(v)m(e)h(a)e
(formal)g(solution,)f(e.g.)882 4514 y FH(solve\({x=a*z+1,0)o(=b*)o(z-)o
(y},)o({z)o(,x})o(\);)p 664 4575 1196 4 v 768 4629 a
Fy(1)802 4661 y @beginspecial @setspecial @endspecial
32 w Fx(The)k(di\013erence)f(b)r(et)n(w)n(een)g(linear)h(and)f
(non{linear)h(inconsisten)n(t)g(systems)e(is)i(based)f(on)g(the)664
4752 y(algorithms)37 b(whic)n(h)f(pro)r(duce)f(this)h(information)g(as)
h(a)f(side)g(e\013ect)g(when)g(attempting)f(to)h(\014nd)f(a)664
4843 y(formal)21 b(solution;)j(example:)31 b Fw(sol)q(v)s(e)p
Fx(\()p Fv(f)p Fw(x)21 b Fx(=)g Fw(a;)13 b(x)20 b Fx(=)h
Fw(b;)14 b(y)23 b Fx(=)e Fw(c;)14 b(y)24 b Fx(=)d Fw(d)p
Fv(g)p Fw(;)13 b Fv(f)p Fw(x;)g(y)s Fv(g)20 b Fx(giv)n(es)h(a)g(set)g
Fv(f)p Fw(a)7 b Fv(\000)g Fw(b;)12 b(c)7 b Fv(\000)g
Fw(d)p Fv(g)664 4935 y Fx(while)27 b Fw(sol)q(v)s(e)p
Fx(\()p Fv(f)p Fw(x)1150 4903 y Fy(2)1205 4935 y Fx(=)21
b Fw(a;)13 b(x)1405 4903 y Fy(2)1461 4935 y Fx(=)21 b
Fw(b;)13 b(y)1650 4903 y Fy(2)1705 4935 y Fx(=)21 b Fw(c;)14
b(y)1895 4903 y Fy(2)1950 4935 y Fx(=)21 b Fw(d)p Fv(g)p
Fw(;)13 b Fv(f)p Fw(x;)g(y)s Fv(g)26 b Fx(leads)g(to)g
Fv(f)p Fw(a)17 b Fv(\000)g Fw(b)p Fv(g)p Fx(.)p eop
%%Page: 101 101
101 100 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.10.)72 b(SOL)-10 b(VE)30 b(OPERA)-8 b(TOR)1740 b
FQ(101)589 655 y FH(y)218 b(a*y)42 b(+)h(b)372 754 y({{z=---,x=-----)o
(--)o(--})o(})589 854 y(b)349 b(b)241 1073 y FQ(whic)m(h)37
b(is)h(not)g(v)-5 b(alid)37 b(for)h(all)g(p)s(ossible)e(v)-5
b(alues)38 b(of)g(the)h(parameters.)66 b(The)38 b(v)-5
b(ariable)241 1186 y FJ(assumptions)23 b FQ(con)m(tains)j(then)g(a)g
(list)f(of)h(restrictions:)38 b(the)26 b(solutions)e(are)j(v)-5
b(alid)24 b(only)241 1299 y(as)43 b(long)f(as)h(none)g(of)g(these)g
(expressions)e(v)-5 b(anishes.)77 b(An)m(y)43 b(zero)h(of)e(one)i(of)f
(them)241 1412 y(represen)m(ts)32 b(a)h(sp)s(ecial)e(case)j(that)f(is)f
(not)g(co)m(v)m(ered)j(b)m(y)d(the)h(formal)f(solution.)45
b(In)32 b(the)241 1525 y(ab)s(o)m(v)m(e)f(case)h(the)e(v)-5
b(alue)30 b(is)p eop
%%Page: 102 102
102 101 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(102)825 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)839 555 y FH(assumptions;)839
754 y({b})664 990 y FQ(whic)m(h)38 b(excludes)h(formally)f(the)i(case)h
FL(b)f FQ(=)h(0;)k(ob)m(viously)38 b(this)g(sp)s(ecial)g(parameter)664
1103 y(v)-5 b(alue)38 b(mak)m(es)i(the)f(system)g(singular.)64
b(The)38 b(set)i(of)f(assumptions)e(is)h(complete)h(for)664
1216 y(b)s(oth,)30 b(linear)f(and)h(non{linear)e(systems.)664
1365 y FJ(SOLVE)f FQ(rearranges)h(the)h(v)-5 b(ariable)27
b(sequence)h(to)h(reduce)f(the)g(\(exp)s(ected\))i(computing)664
1465 y(time.)77 b(This)41 b(b)s(eha)m(vior)h(is)g(con)m(trolled)g(b)m
(y)g(the)h(switc)m(h)f FJ(varopt)p FQ(,)i(whic)m(h)e(is)f(on)i(b)m(y)
664 1565 y(default.)71 b(If)40 b(it)g(is)g(turned)g(o\013,)k(the)c
(supplied)e(v)-5 b(ariable)39 b(sequence)i(is)f(used)g(or)h(the)664
1664 y(system)33 b(k)m(ernel)f(ordering)g(is)g(tak)m(en)h(if)f(the)h(v)
-5 b(ariable)31 b(list)h(is)g(omitted.)47 b(The)33 b(e\013ect)h(is)664
1764 y(demonstrated)d(b)m(y)f(an)g(example:)795 1970
y FH(s:=)42 b({y^3+3x=0,x^2+y^2)o(=1)o(};)795 2169 y(solve\(s,{y,x}\);)
1449 2368 y(6)304 b(2)795 2468 y({{y=root_of\(y_)81 b(+)43
b(9*y_)86 b(-)43 b(9,y_\),)1187 2667 y(3)1056 2767 y(-)h(y)882
2867 y(x=-------}})1100 2966 y(3)795 3165 y(off)e(varopt;)f
(solve\(s,{y,x}\);)1449 3365 y(6)304 b(4)349 b(2)795
3464 y({{x=root_of\(x_)81 b(-)43 b(3*x_)86 b(+)43 b(12*x_)85
b(-)43 b(1,x_\),)1318 3664 y(4)261 b(2)1013 3763 y(x*\()42
b(-)h(x)87 b(+)43 b(2*x)86 b(-)43 b(10\))882 3863 y(y=--------------)o
(---)o(--)o(---)o(-})o(})1449 3962 y(3)664 4281 y FQ(In)37
b(the)h(\014rst)f(case,)k FJ(solve)36 b FQ(forms)h(the)h(solution)e(as)
i(a)g(set)g(of)g(pairs)e(\()p FL(y)3192 4295 y FF(i)3220
4281 y FL(;)15 b(x)p FQ(\()p FL(y)3392 4295 y FF(i)3421
4281 y FQ(\)\))38 b(b)s(e-)664 4394 y(cause)d(the)g(degree)g(of)g
FL(x)g FQ(is)e(higher)g({)i(suc)m(h)g(a)f(rearrangemen)m(t)i(mak)m(es)f
(the)g(in)m(ternal)664 4507 y(computation)c(of)h(the)f(Gr\177)-45
b(obner)31 b(basis)f(generally)g(faster.)44 b(F)-8 b(or)32
b(the)f(second)g(case)i(the)664 4620 y(explicitly)25
b(giv)m(en)i(v)-5 b(ariable)26 b(sequence)h(is)f(used)h(suc)m(h)f(that)
i(the)f(solution)f(has)h(no)m(w)g(the)664 4733 y(form)h(\()p
FL(x)964 4747 y FF(i)992 4733 y FL(;)15 b(y)s FQ(\()p
FL(x)1167 4747 y FF(i)1196 4733 y FQ(\)\).)41 b(Con)m(trolling)26
b(the)j(v)-5 b(ariable)27 b(sequence)i(is)e(esp)s(ecially)f(imp)s
(ortan)m(t)i(if)664 4846 y(the)33 b(system)f(has)g(one)g(or)h(more)f
(free)g(v)-5 b(ariables.)45 b(As)32 b(an)h(alternativ)m(e)f(to)h
(turning)d(o\013)664 4959 y FJ(varopt)p FQ(,)25 b(a)g(partial)f(dep)s
(endency)g(among)i(the)f(v)-5 b(ariables)24 b(can)h(b)s(e)g(declared)f
(using)g(the)p eop
%%Page: 103 103
103 102 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.10.)72 b(SOL)-10 b(VE)30 b(OPERA)-8 b(TOR)1740 b
FQ(103)241 555 y FJ(depend)33 b FQ(statemen)m(t:)51 b
FJ(solve)34 b FQ(then)g(rearranges)h(the)g(v)-5 b(ariable)34
b(sequence)h(but)f(k)m(eeps)241 668 y(an)m(y)c(v)-5 b(ariable)30
b(ahead)g(of)h(those)g(on)f(whic)m(h)f(it)h(dep)s(ends.)p
eop
%%Page: 104 104
104 103 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(104)825 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)795 555 y FH(on)43 b(varopt;)795
655 y(s:={a^3+b,b^2+c})o($)795 754 y(solve\(s,{a,b,c}\))o(;)1841
954 y(3)305 b(6)795 1053 y({{a=arbcomplex\(1)o(\),)o(b=)37
b(-)43 b(a)h(,c=)e(-)h(a)g(}})795 1253 y(depend)e(a,c;)h(depend)f(b,c;)
h(solve\(s,{a,b,c}\))o(;)795 1452 y({{c=arbcomplex\(2)o(\),)1405
1651 y(6)882 1751 y(a=root_of\(a_)82 b(+)43 b(c,a_\),)1144
1950 y(3)882 2050 y(b=)g(-)g(a)g(}})664 2294 y FQ(Here)29
b FJ(solve)e FQ(is)h(forced)h(to)g(put)f FL(c)h FQ(after)g
FL(a)f FQ(and)g(after)h FL(b)p FQ(,)g(but)f(there)h(is)f(no)g(obstacle)
h(to)664 2407 y(in)m(terc)m(hanging)h FL(a)g FQ(and)g
FL(b)p FQ(.)664 2561 y @beginspecial @setspecial @endspecial
182 x FE(7.11)136 b(Ev)l(en)45 b(and)g(Odd)f(Op)t(erators)664
2982 y FQ(An)31 b(op)s(erator)g(can)g(b)s(e)g(declared)f(to)i(b)s(e)e
FD(even)38 b FQ(or)31 b FD(o)-5 b(dd)42 b FQ(in)30 b(its)g(\014rst)g
(argumen)m(t)i(b)m(y)f(the)664 3082 y(declarations)j
FJ(EVEN)f FQ(and)h FJ(ODD)g FQ(resp)s(ectiv)m(ely)-8
b(.)53 b(Expressions)32 b(in)m(v)m(olving)h(an)i(op)s(erator)664
3182 y(declared)41 b(in)f(this)g(manner)h(are)h(transformed)e(if)h(the)
g(\014rst)g(argumen)m(t)h(con)m(tains)g(a)664 3281 y(min)m(us)33
b(sign.)50 b(An)m(y)35 b(other)f(argumen)m(ts)g(are)h(not)f
(a\013ected.)53 b(In)34 b(addition,)f(if)g(sa)m(y)i FJ(F)f
FQ(is)664 3381 y(declared)k(o)s(dd,)h(then)e FJ(f\(0\))g
FQ(is)g(replaced)g(b)m(y)h(zero)h(unless)d FJ(F)i FQ(is)f(also)h
(declared)f FD(non)664 3480 y(zer)-5 b(o)37 b FQ(b)m(y)31
b(the)f(declaration)g FJ(NONZERO)p FQ(.)f(F)-8 b(or)31
b(example,)f(the)h(declarations)1013 3686 y FH(even)42
b(f1;)g(odd)g(f2;)664 3892 y FQ(mean)31 b(that)1013 4098
y FH(f1\(-a\))172 b(->)h(F1\(A\))1013 4198 y(f2\(-a\))f(->)130
b(-F2\(A\))1013 4297 y(f1\(-a,-b\))40 b(->)173 b(F1\(A,-B\))1013
4397 y(f2\(0\))216 b(->)173 b(0.)664 4616 y FQ(T)-8 b(o)31
b(inhibit)c(the)k(last)f(transformation,)g(sa)m(y)h FJ(nonzero)46
b(f2;)p FQ(.)664 4771 y @beginspecial @setspecial @endspecial
eop
%%Page: 105 105
105 104 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.12.)72 b(LINEAR)30 b(OPERA)-8 b(TORS)1633 b FQ(105)241
555 y FE(7.12)135 b(Linear)46 b(Op)t(erators)241 808
y FQ(An)25 b(op)s(erator)i(can)f(b)s(e)g(declared)f(to)i(b)s(e)e
(linear)g(in)g(its)g(\014rst)g(argumen)m(t)i(o)m(v)m(er)g(p)s(o)m(w)m
(ers)f(of)241 921 y(its)i(second)g(argumen)m(t.)41 b(If)28
b(an)g(op)s(erator)h FJ(F)f FQ(is)f(so)i(declared,)f
FJ(F)g FQ(of)h(an)m(y)g(sum)e(is)h(brok)m(en)241 1034
y(up)j(in)m(to)g(sums)g(of)h FJ(F)p FQ(s,)g(and)g(an)m(y)g(factors)h
(that)f(are)g(not)g(p)s(o)m(w)m(ers)g(of)g(the)g(v)-5
b(ariable)31 b(are)241 1147 y(tak)m(en)36 b(outside.)53
b(This)32 b(means)j(that)g FJ(F)g FQ(m)m(ust)f(ha)m(v)m(e)i(\(at)g
(least\))f(t)m(w)m(o)h(argumen)m(ts.)54 b(In)241 1260
y(addition,)38 b(the)g(second)g(argumen)m(t)h(m)m(ust)e(b)s(e)h(an)f
(iden)m(ti\014er)g(\(or)h(more)g(generally)f(a)241 1372
y(k)m(ernel\),)30 b(not)h(an)f(expression.)241 1535 y
FD(Example:)241 1685 y FQ(If)g FJ(F)g FQ(w)m(ere)h(declared)e(linear,)g
(then)1636 1891 y FH(5)589 1990 y(f\(a*x^5+b*x+c,x\))37
b(->)87 b(F\(X)42 b(,X\)*A)g(+)h(F\(X,X\)*B)d(+)j(F\(1,X\)*C)241
2209 y FQ(More)32 b(precisely)-8 b(,)32 b(not)f(only)g(will)e(the)j(v)
-5 b(ariable)31 b(and)g(its)g(p)s(o)m(w)m(ers)h(remain)e(within)f(the)
241 2322 y(scop)s(e)37 b(of)h(the)g FJ(F)f FQ(op)s(erator,)j(but)d(so)h
(will)c(an)m(y)k(v)-5 b(ariable)37 b(and)g(its)g(p)s(o)m(w)m(ers)g
(that)h(had)241 2435 y(b)s(een)c(declared)g(to)i FJ(DEPEND)d
FQ(on)i(the)g(prescrib)s(ed)d(v)-5 b(ariable;)37 b(and)d(so)h(w)m(ould)
f(an)m(y)h(ex-)241 2548 y(pression)h(that)i(con)m(tains)g(that)g(v)-5
b(ariable)36 b(or)i(a)g(dep)s(enden)m(t)f(v)-5 b(ariable)36
b(on)i(an)m(y)g(lev)m(el,)241 2661 y(e.g.)k FJ(cos\(sin\(x\)\))p
FQ(.)241 2810 y(T)-8 b(o)31 b(declare)f(op)s(erators)g
FJ(F)g FQ(and)g FJ(G)g FQ(to)h(b)s(e)f(linear)f(op)s(erators,)i(use:)
589 3016 y FH(linear)42 b(f,g;)241 3236 y FQ(The)33 b(analysis)g(is)g
(done)h(of)g(the)h(\014rst)e(argumen)m(t)i(with)e(resp)s(ect)h(to)h
(the)f(second;)i(an)m(y)241 3348 y(other)30 b(argumen)m(ts)h(are)g
(ignored.)40 b(It)30 b(uses)g(the)h(follo)m(wing)d(rules)h(of)i(ev)-5
b(aluation:)468 3562 y FJ(f\(0\))47 b(->)g(0)468 3675
y(f\(-y,x\))f(->)h(-F\(Y,X\))468 3788 y(f\(y+z,x\))f(->)h
(F\(Y,X\)+F\(Z,X\))468 3901 y(f\(y*z,x\))f(->)h(Z*F\(Y,X\))328
b FQ(if)29 b(Z)h(do)s(es)g(not)h(dep)s(end)d(on)j(X)468
4014 y FJ(f\(y/z,x\))46 b(->)h(F\(Y,X\)/Z)328 b FQ(if)29
b(Z)h(do)s(es)g(not)h(dep)s(end)d(on)j(X)241 4228 y(T)-8
b(o)29 b(summarize,)f FJ(Y)g FQ(\\dep)s(ends")g(on)g(the)h
(indeterminate)f FJ(X)g FQ(in)f(the)i(ab)s(o)m(v)m(e)h(if)d(either)h
(of)241 4341 y(the)i(follo)m(wing)f(hold:)241 4427 y
@beginspecial @setspecial @endspecial 352 4555 a(1.)46
b FJ(Y)e FQ(is)g(an)h(expression)e(that)j(con)m(tains)f
FJ(X)f FQ(at)i(an)m(y)f(lev)m(el)f(as)h(a)h(v)-5 b(ariable,)47
b(e.g.:)468 4668 y FJ(cos\(sin\(x\)\))241 4708 y @beginspecial
@setspecial @endspecial 352 4846 a FQ(2.)f(An)m(y)28
b(v)-5 b(ariable)27 b(in)g(the)h(expression)f FJ(Y)g
FQ(has)h(b)s(een)f(declared)h(dep)s(enden)m(t)f(on)h
FJ(X)g FQ(b)m(y)468 4959 y(use)i(of)h(the)f(declaration)g
FJ(DEPEND)p FQ(.)p eop
%%Page: 106 106
106 105 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(106)825 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FQ(The)23 b(use)g(of)h(suc)m(h)f
(linear)f(op)s(erators)h(can)h(b)s(e)f(seen)g(in)f(the)i(pap)s(er)e(F)
-8 b(o)m(x,)27 b(J.A.)d(and)e(A.)i(C.)664 668 y(Hearn,)j(\\Analytic)e
(Computation)g(of)h(Some)g(In)m(tegrals)f(in)g(F)-8 b(ourth)25
b(Order)g(Quan)m(tum)664 781 y(Electro)s(dynamics")33
b(Journ.)50 b(Comp.)g(Ph)m(ys.)g(14)35 b(\(1974\))h(301-317,)i(whic)m
(h)33 b(con)m(tains)664 894 y(a)f(complete)g(listing)d(of)j(a)g
(program)f(for)h(de\014nite)e(in)m(tegration)i(of)f(some)h(expressions)
664 1007 y(that)f(arise)f(in)f(fourth)h(order)f(quan)m(tum)h(electro)s
(dynamics.)664 1162 y @beginspecial @setspecial @endspecial
181 x FE(7.13)136 b(Non-Comm)l(uting)46 b(Op)t(erators)664
1596 y FQ(An)37 b(op)s(erator)g(can)g(b)s(e)f(declared)h(to)g(b)s(e)f
(non-comm)m(utativ)m(e)j(under)c(m)m(ultiplication)664
1709 y(b)m(y)30 b(the)h(declaration)f FJ(NONCOM)p FQ(.)664
1871 y FD(Example:)664 2034 y FQ(After)h(the)f(declaration)664
2147 y FJ(noncom)46 b(u,v;)664 2260 y FQ(the)36 b(expressions)d
FJ(u\(x\)*u\(y\)-u\(y\)*u\(x\))d FQ(and)35 b FJ
(u\(x\)*v\(y\)-v\(y\)*u\(x\))30 b FQ(will)j(re-)664 2373
y(main)43 b(unc)m(hanged)g(on)h(simpli\014cation,)g(and)f(in)f
(particular)g(will)f(not)j(simplify)c(to)664 2486 y(zero.)664
2649 y(Note)g(that)f(it)f(is)g(the)g(op)s(erator)h(\()p
FJ(U)g FQ(and)f FJ(V)g FQ(in)f(the)i(ab)s(o)m(v)m(e)g(example\))g(and)f
(not)h(the)664 2761 y(v)-5 b(ariable)29 b(that)i(has)f(the)h(non-comm)m
(utativ)m(e)h(prop)s(ert)m(y)-8 b(.)664 2924 y(The)38
b FJ(LET)f FQ(statemen)m(t)i(ma)m(y)g(b)s(e)e(used)g(to)i(in)m(tro)s
(duce)e(rules)f(of)i(ev)-5 b(aluation)38 b(for)f(suc)m(h)664
3037 y(op)s(erators.)j(In)25 b(particular,)h(the)h(b)s(o)s(olean)e(op)s
(erator)i FJ(ORDP)e FQ(is)g(useful)g(for)h(in)m(tro)s(ducing)664
3150 y(an)k(ordering)g(on)g(suc)m(h)g(expressions.)664
3313 y FD(Example:)664 3462 y FQ(The)g(rule)1013 3668
y FH(for)42 b(all)h(x,y)f(such)g(that)g(x)h(neq)f(y)h(and)g
(ordp\(x,y\))1144 3768 y(let)f(u\(x\)*u\(y\)=)d(u\(y\)*u\(x\)+comm\(x,)
o(y\);)664 3987 y FQ(w)m(ould)23 b(in)m(tro)s(duce)h(the)g(comm)m
(utator)i(of)f FJ(u\(x\))e FQ(and)h FJ(u\(y\))g FQ(for)g(all)f
FJ(X)h FQ(and)g FJ(Y)p FQ(.)h(Note)g(that)664 4100 y(since)36
b FJ(ordp\(x,x\))e FQ(is)i FD(true)p FQ(,)j(the)e(equalit)m(y)f(c)m
(hec)m(k)i(is)e(necessary)h(in)f(the)g(degenerate)664
4213 y(case)c(to)f(a)m(v)m(oid)g(a)f(circular)f(lo)s(op)h(in)f(the)h
(rule.)664 4367 y @beginspecial @setspecial @endspecial
182 x FE(7.14)136 b(Symmetric)45 b(and)g(An)l(tisymmetric)h(Op)t
(erators)664 4788 y FQ(An)28 b(op)s(erator)h(can)g(b)s(e)f(declared)g
(to)h(b)s(e)f(symmetric)g(with)f(resp)s(ect)h(to)i(its)e(argumen)m(ts)
664 4888 y(b)m(y)i(the)h(declaration)f FJ(SYMMETRIC)p
FQ(.)e(F)-8 b(or)31 b(example)p eop
%%Page: 107 107
107 106 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.15.)72 b(DECLARING)31 b(NEW)g(PREFIX)f(OPERA)-8
b(TORS)791 b FQ(107)589 555 y FH(symmetric)40 b(u,v;)241
774 y FQ(means)28 b(that)g(an)m(y)g(expression)f(in)m(v)m(olving)g(the)
h(top)g(lev)m(el)g(op)s(erators)g FJ(U)f FQ(or)h FJ(V)g
FQ(will)d(ha)m(v)m(e)241 887 y(its)h(argumen)m(ts)g(reordered)g(to)i
(conform)e(to)h(the)g(in)m(ternal)e(order)h(used)g(b)m(y)g(REDUCE.)241
1000 y(The)k(user)f(can)i(c)m(hange)g(this)f(order)g(for)g(k)m(ernels)g
(b)m(y)g(the)g(command)h FJ(KORDER)p FQ(.)241 1163 y(F)-8
b(or)32 b(example,)f FJ(u\(x,v\(1,2\)\))d FQ(w)m(ould)i(b)s(ecome)h
FJ(u\(v\(2,1\),x\))p FQ(,)e(since)h(n)m(um)m(b)s(ers)g(are)241
1276 y(ordered)c(in)g(decreasing)g(order,)i(and)e(expressions)f(are)j
(ordered)e(in)f(decreasing)i(order)241 1389 y(of)j(complexit)m(y)-8
b(.)241 1538 y(Similarly)25 b(the)30 b(declaration)f
FJ(ANTISYMMETRIC)c FQ(declares)k(an)h(op)s(erator)f(an)m(tisymmet-)241
1638 y(ric.)40 b(F)-8 b(or)31 b(example,)589 1844 y FH(antisymmetric)39
b(l,m;)241 2063 y FQ(means)28 b(that)g(an)m(y)g(expression)f(in)m(v)m
(olving)g(the)h(top)g(lev)m(el)g(op)s(erators)g FJ(L)f
FQ(or)h FJ(M)g FQ(will)d(ha)m(v)m(e)241 2176 y(its)j(argumen)m(ts)g
(reordered)g(to)h(conform)g(to)g(the)g(in)m(ternal)e(order)h(of)g(the)h
(system,)g(and)241 2289 y(the)i(sign)f(of)i(the)f(expression)f(c)m
(hanged)i(if)e(there)i(are)f(an)h(o)s(dd)e(n)m(um)m(b)s(er)g(of)h
(argumen)m(t)241 2402 y(in)m(terc)m(hanges)g(necessary)g(to)g(bring)d
(ab)s(out)i(the)h(new)f(order.)241 2564 y(F)-8 b(or)36
b(example,)h FJ(l\(x,m\(1,2\)\))32 b FQ(w)m(ould)j(b)s(ecome)h
FJ(-l\(-m\(2,1\),x\))c FQ(since)j(one)h(in)m(ter-)241
2677 y(c)m(hange)30 b(o)s(ccurs)e(with)f(eac)m(h)j(op)s(erator.)41
b(An)28 b(expression)f(lik)m(e)h FJ(l\(x,x\))f FQ(w)m(ould)h(also)g(b)s
(e)241 2790 y(replaced)i(b)m(y)g(0.)241 2945 y @beginspecial
@setspecial @endspecial 181 x FE(7.15)135 b(Declaring)46
b(New)g(Pre\014x)f(Op)t(erators)241 3366 y FQ(The)29
b(user)f(ma)m(y)i(add)f(new)g(pre\014x)f(op)s(erators)i(to)g(the)g
(system)f(b)m(y)h(using)e(the)h(declara-)241 3465 y(tion)h
FJ(OPERATOR)p FQ(.)e(F)-8 b(or)31 b(example:)589 3671
y FH(operator)41 b(h,g1,arctan;)241 3891 y FQ(adds)29
b(the)i(pre\014x)e(op)s(erators)i FJ(H)p FQ(,)f FJ(G1)g
FQ(and)g FJ(ARCTAN)e FQ(to)j(the)g(system.)241 4053 y(This)36
b(allo)m(ws)h(sym)m(b)s(ols)f(lik)m(e)h FJ(h\(w\),)46
b(h\(x,y,z\),)g(g1\(p+q\),)f(arctan\(u/v\))35 b FQ(to)j(b)s(e)241
4166 y(used)19 b(in)h(expressions,)h(but)f(no)g(meaning)g(or)g(prop)s
(erties)f(of)i(the)g(op)s(erator)f(are)h(implied.)241
4279 y(The)31 b(same)g(op)s(erator)h(sym)m(b)s(ol)e(can)i(b)s(e)f(used)
f(equally)h(w)m(ell)f(as)i(a)f(0-,)i(1-,)g(2-,)f(3-,)h(etc.-)241
4392 y(place)d(op)s(erator.)241 4555 y(T)-8 b(o)29 b(giv)m(e)g(a)g
(meaning)f(to)i(an)e(op)s(erator)i(sym)m(b)s(ol,)e(or)g(express)h(some)
g(of)g(its)f(prop)s(erties,)241 4668 y FJ(LET)k FQ(statemen)m(ts)i(can)
f(b)s(e)f(used,)h(or)g(the)g(op)s(erator)g(can)g(b)s(e)g(giv)m(en)f(a)i
(de\014nition)c(as)j(a)241 4781 y(pro)s(cedure.)241 4943
y(If)k(the)h(user)f(forgets)h(to)g(declare)g(an)f(iden)m(ti\014er)f(as)
i(an)g(op)s(erator,)i(the)d(system)h(will)p eop
%%Page: 108 108
108 107 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(108)825 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)664 555 y FQ(prompt)27 b(the)g(user)g(to)h
(do)f(so)h(in)e(in)m(teractiv)m(e)i(mo)s(de,)g(or)g(do)f(it)g
(automatically)g(in)f(non-)664 668 y(in)m(teractiv)m(e)34
b(mo)s(de.)47 b(A)32 b(diagnostic)g(message)i(will)c(also)j(b)s(e)f
(prin)m(ted)f(if)g(an)i(iden)m(ti\014er)664 781 y(is)d(declared)f
FJ(OPERATOR)g FQ(more)h(than)g(once.)664 944 y(Op)s(erators)h(once)h
(declared)f(are)g(global)g(in)f(scop)s(e,)i(and)e(so)i(can)f(then)g(b)s
(e)g(referenced)664 1057 y(an)m(ywhere)h(in)f(the)h(program.)46
b(In)31 b(other)i(w)m(ords,)f(a)g(declaration)g(within)d(a)k(blo)s(c)m
(k)f(\(or)664 1170 y(a)41 b(pro)s(cedure\))f(do)s(es)h(not)g(limit)d
(the)j(scop)s(e)g(of)g(the)g(op)s(erator)g(to)h(that)f(blo)s(c)m(k,)i
(nor)664 1282 y(do)s(es)32 b(the)h(op)s(erator)g(go)g(a)m(w)m(a)m(y)i
(on)d(exiting)g(the)g(blo)s(c)m(k)g(\(use)h FJ(CLEAR)e
FQ(instead)h(for)g(this)664 1395 y(purp)s(ose\).)664
1555 y @beginspecial @setspecial @endspecial 177 x FE(7.16)136
b(Declaring)46 b(New)f(In\014x)g(Op)t(erators)664 1971
y FQ(Users)g(can)h(add)e(new)h(in\014x)e(op)s(erators)j(b)m(y)f(using)f
(the)h(declarations)g FJ(INFIX)f FQ(and)664 2071 y FJ(PRECEDENCE)p
FQ(.)28 b(F)-8 b(or)31 b(example,)1013 2277 y FH(infix)41
b(mm;)1013 2376 y(precedence)e(mm,-;)664 2595 y FQ(The)25
b(declaration)f FJ(infix)47 b(mm;)25 b FQ(w)m(ould)f(allo)m(w)h(one)g
(to)h(use)e(the)i(sym)m(b)s(ol)d FJ(MM)i FQ(as)g(an)g(in\014x)664
2708 y(op)s(erator:)1042 2946 y FJ(a)47 b(mm)g(b)241
b FQ(instead)29 b(of)241 b FJ(mm\(a,b\))p FQ(.)664 3183
y(The)25 b(declaration)h FJ(precedence)45 b(mm,-;)26
b FQ(sa)m(ys)g(that)g FJ(MM)f FQ(should)f(b)s(e)h(inserted)g(in)m(to)h
(the)664 3296 y(in\014x)g(op)s(erator)j(precedence)f(list)f(just)g
FD(after)38 b FQ(the)28 b FP(\000)g FQ(op)s(erator.)40
b(This)26 b(giv)m(es)j(it)e(higher)664 3409 y(precedence)k(than)f
FP(\000)g FQ(and)g(lo)m(w)m(er)h(precedence)f(than)h(*)f(.)41
b(Th)m(us)1011 3671 y FJ(a)48 b(-)f(b)h(mm)f(c)g(-)h(d)210
b FQ(means)241 b FJ(a)47 b(-)g(\(b)h(mm)f(c\))g(-)g(d)p
FQ(,)664 3934 y(while)1011 4171 y FJ(a)h(*)f(b)h(mm)f(c)g(*)h(d)210
b FQ(means)241 b FJ(\(a)47 b(*)g(b\))g(mm)h(\(c)f(*)g(d\))p
FQ(.)664 4409 y(Both)24 b(in\014x)d(and)i(pre\014x)f(op)s(erators)i(ha)
m(v)m(e)g(no)f(transformation)g(prop)s(erties)e(unless)h
FJ(LET)664 4522 y FQ(statemen)m(ts)32 b(or)f(pro)s(cedure)e
(declarations)h(are)g(used)g(to)h(assign)f(a)h(meaning.)664
4684 y(W)-8 b(e)32 b(should)c(note)j(here)f(that)h(in\014x)e(op)s
(erators)h(so)h(de\014ned)e(are)i(alw)m(a)m(ys)g(binary:)1011
4922 y FJ(a)48 b(mm)f(b)h(mm)f(c)210 b FQ(means)240 b
FJ(\(a)48 b(mm)f(b\))g(mm)g(c)p FQ(.)p eop
%%Page: 109 109
109 108 bop 241 299 a @beginspecial @setspecial @endspecial
FM(7.17.)72 b(CREA)-8 b(TING/REMO)m(VING)32 b(V)-10 b(ARIABLE)31
b(DEPENDENCY)341 b FQ(109)241 464 y @beginspecial @setspecial
@endspecial 91 x FE(7.17)135 b(Creating/Remo)l(ving)48
b(V)-11 b(ariable)46 b(Dep)t(endency)241 795 y FQ(There)26
b(are)i(sev)m(eral)f(facilities)f(in)g(REDUCE,)h(suc)m(h)g(as)g(the)g
(di\013eren)m(tiation)f(op)s(erator)241 894 y(and)c(the)h(linear)e(op)s
(erator)i(facilit)m(y)-8 b(,)24 b(that)f(can)g(utilize)e(kno)m(wledge)i
(of)g(the)g(dep)s(endency)241 994 y(b)s(et)m(w)m(een)36
b(v)-5 b(arious)35 b(v)-5 b(ariables,)36 b(or)g(k)m(ernels.)56
b(Suc)m(h)35 b(dep)s(endency)g(ma)m(y)h(b)s(e)f(expressed)241
1094 y(b)m(y)28 b(the)g(command)f FJ(DEPEND)p FQ(.)g(This)f(tak)m(es)j
(an)f(arbitrary)e(n)m(um)m(b)s(er)h(of)h(argumen)m(ts)g(and)241
1193 y(sets)d(up)f(a)h(dep)s(endency)e(of)i(the)g(\014rst)f(argumen)m
(t)h(on)g(the)g(remaining)e(argumen)m(ts.)39 b(F)-8 b(or)241
1293 y(example,)589 1499 y FH(depend)42 b(x,y,z;)241
1705 y FQ(sa)m(ys)31 b(that)g FJ(X)f FQ(is)f(dep)s(enden)m(t)h(on)g(b)s
(oth)f FJ(Y)h FQ(and)g FJ(Z)p FQ(.)589 1910 y FH(depend)42
b(z,cos\(x\),y;)241 2130 y FQ(sa)m(ys)31 b(that)g FJ(Z)f
FQ(is)f(dep)s(enden)m(t)h(on)g FJ(COS\(X\))e FQ(and)i
FJ(Y)p FQ(.)241 2279 y(Dep)s(endencies)41 b(in)m(tro)s(duced)g(b)m(y)i
FJ(DEPEND)d FQ(can)j(b)s(e)f(remo)m(v)m(ed)i(b)m(y)e
FJ(NODEPEND)p FQ(.)83 b(The)241 2379 y(argumen)m(ts)28
b(of)g(this)f(are)i(the)f(same)h(as)f(for)g FJ(DEPEND)p
FQ(.)f(F)-8 b(or)28 b(example,)h(giv)m(en)f(the)g(ab)s(o)m(v)m(e)241
2478 y(dep)s(endencies,)589 2684 y FH(nodepend)41 b(z,cos\(x\);)241
2903 y FQ(sa)m(ys)23 b(that)g FJ(Z)f FQ(is)f(no)i(longer)f(dep)s(enden)
m(t)f(on)h FJ(COS\(X\))p FQ(,)f(although)h(it)g(remains)f(dep)s(enden)m
(t)241 3016 y(on)30 b FJ(Y)p FQ(.)p eop
%%Page: 110 110
110 109 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(110)825 b FM(CHAPTER)30 b(7.)71 b(BUIL)-8 b(T-IN)31
b(PREFIX)f(OPERA)-8 b(TORS)p eop
%%Page: 111 111
111 110 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(8)241 1693 y FT(Displa)-6 b(y)75 b(and)j(Structuring)g(of)241
1942 y(Expressions)241 2436 y FQ(In)22 b(this)f(section,)k(w)m(e)e
(consider)f(a)h(v)-5 b(ariet)m(y)23 b(of)g(commands)f(and)g(op)s
(erators)h(that)g(p)s(ermit)241 2549 y(the)e(user)f(to)h(obtain)g(v)-5
b(arious)19 b(parts)i(of)g(algebraic)f(expressions)g(and)g(also)g
(displa)m(y)f(their)241 2662 y(structure)26 b(in)g(a)i(v)-5
b(ariet)m(y)27 b(of)h(forms.)39 b(Also)26 b(presen)m(ted)i(are)f(some)h
(additional)d(concepts)241 2775 y(in)34 b(the)j(REDUCE)e(design)g(that)
i(help)e(the)h(user)f(gain)h(a)g(b)s(etter)g(understanding)d(of)241
2888 y(the)d(structure)g(of)h(the)f(system.)241 3043
y @beginspecial @setspecial @endspecial 181 x FE(8.1)135
b(Kernels)241 3477 y FQ(REDUCE)27 b(is)g(designed)f(so)i(that)g(eac)m
(h)g(op)s(erator)g(in)e(the)i(system)f(has)h(an)f(ev)-5
b(aluation)241 3590 y(\(or)24 b(simpli\014cation\))d(function)i(asso)s
(ciated)i(with)e(it)g(that)i(transforms)e(the)i(expression)241
3703 y(in)m(to)34 b(an)g(in)m(ternal)g(canonical)g(form.)52
b(This)32 b(form,)k(whic)m(h)d(b)s(ears)g(little)h(resem)m(blance)241
3816 y(to)28 b(the)f(original)f(expression,)h(is)f(describ)s(ed)g(in)g
(detail)g(in)g(Hearn,)i(A.)g(C.,)g(\\REDUCE)241 3929
y(2:)44 b(A)32 b(System)g(and)f(Language)i(for)f(Algebraic)f
(Manipulation,")g(Pro)s(c.)46 b(of)32 b(the)g(Sec-)241
4042 y(ond)26 b(Symp)s(osium)e(on)i(Sym)m(b)s(olic)f(and)h(Algebraic)g
(Manipulation,)g(A)m(CM,)h(New)g(Y)-8 b(ork)241 4155
y(\(1971\))33 b(128-133.)241 4317 y(The)j(ev)-5 b(aluation)35
b(function)g(ma)m(y)i(transform)f(its)f(argumen)m(ts)i(in)e(one)h(of)h
(t)m(w)m(o)g(alter-)241 4430 y(nativ)m(e)i(w)m(a)m(ys.)66
b(First,)41 b(it)d(ma)m(y)h(con)m(v)m(ert)h(the)f(expression)e(in)m(to)
i(other)g(op)s(erators)g(in)241 4543 y(the)30 b(system,)h(lea)m(ving)f
(no)h(functions)e(of)h(the)h(original)e(op)s(erator)h(for)h(further)e
(manip-)241 4656 y(ulation.)48 b(This)31 b(is)i(in)f(a)h(sense)h(true)f
(of)g(the)g(ev)-5 b(aluation)33 b(functions)f(asso)s(ciated)i(with)241
4769 y(the)40 b(op)s(erators)h FJ(+)p FQ(,)h FJ(*)e FQ(and)g
FJ(/)g FQ(,)j(for)d(example,)i(b)s(ecause)f(the)f(canonical)g(form)g
(do)s(es)241 4882 y(not)f(include)e(these)i(op)s(erators)h(explicitly)
-8 b(.)64 b(It)39 b(is)g(also)f(true)h(of)h(an)e(op)s(erator)i(suc)m(h)
1667 5187 y(111)p eop
%%Page: 112 112
112 111 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(112)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)664 555 y FQ(as)38
b(the)h(determinan)m(t)e(op)s(erator)h FJ(DET)f FQ(b)s(ecause)h(the)g
(relev)-5 b(an)m(t)39 b(ev)-5 b(aluation)37 b(function)664
668 y(calculates)30 b(the)f(appropriate)g(determinan)m(t,)g(and)g(the)g
(op)s(erator)h FJ(DET)e FQ(no)i(longer)f(ap-)664 781
y(p)s(ears.)51 b(On)33 b(the)h(other)g(hand,)g(the)g(ev)-5
b(aluation)33 b(pro)s(cess)g(ma)m(y)i(lea)m(v)m(e)g(some)f(residual)664
894 y(functions)h(of)h(the)g(relev)-5 b(an)m(t)36 b(op)s(erator.)57
b(F)-8 b(or)37 b(example,)g(with)d(the)i(op)s(erator)g
FJ(COS)p FQ(,)g(a)664 1007 y(residual)g(expression)h(lik)m(e)h
FJ(COS\(X\))f FQ(ma)m(y)i(remain)e(after)i(ev)-5 b(aluation)38
b(unless)e(a)j(rule)664 1120 y(for)27 b(the)g(reduction)f(of)i(cosines)
e(in)m(to)h(exp)s(onen)m(tials,)g(for)g(example,)h(w)m(ere)f(in)m(tro)s
(duced.)664 1233 y(These)35 b(residual)e(functions)h(of)h(an)g(op)s
(erator)h(are)f(termed)h FD(kernels)43 b FQ(and)34 b(are)i(stored)664
1346 y(uniquely)29 b(lik)m(e)h(v)-5 b(ariables.)41 b(Subsequen)m(tly)-8
b(,)31 b(the)g(k)m(ernel)f(is)h(carried)f(through)g(the)i(cal-)664
1458 y(culation)25 b(as)g(a)h(v)-5 b(ariable)24 b(unless)f
(transformations)i(are)g(in)m(tro)s(duced)f(for)h(the)h(op)s(erator)664
1571 y(at)31 b(a)g(later)f(stage.)664 1734 y(In)37 b(those)i(cases)f
(where)g(the)g(ev)-5 b(aluation)37 b(pro)s(cess)g(lea)m(v)m(es)i(an)f
(op)s(erator)g(expression)664 1847 y(with)c(non-trivial)g(argumen)m
(ts,)j(the)f(form)f(of)h(the)f(argumen)m(t)h(can)g(v)-5
b(ary)35 b(dep)s(ending)664 1960 y(on)f(the)h(state)g(of)f(the)h
(system)f(at)h(the)f(p)s(oin)m(t)g(of)g(ev)-5 b(aluation.)52
b(Suc)m(h)33 b(argumen)m(ts)i(are)664 2073 y(normally)40
b(pro)s(duced)g(in)g(expanded)h(form)g(with)g(no)g(terms)h(factored)g
(or)g(group)s(ed)664 2186 y(in)c(an)m(y)i(w)m(a)m(y)-8
b(.)69 b(F)-8 b(or)40 b(example,)i(the)d(expression)f
FJ(cos\(2*x+2*y\))e FQ(will)h(normally)h(b)s(e)664 2299
y(returned)30 b(in)f(the)i(same)h(form.)41 b(If)31 b(the)g(argumen)m(t)
g FJ(2*x+2*y)e FQ(w)m(ere)i(ev)-5 b(aluated)31 b(at)h(the)664
2412 y(top)d(lev)m(el,)h(ho)m(w)m(ev)m(er,)g(it)f(w)m(ould)f(b)s(e)g
(prin)m(ted)f(as)j FJ(2*\(X+Y\))p FQ(.)d(If)h(it)h(is)f(desirable)f(to)
j(ha)m(v)m(e)664 2524 y(the)25 b(argumen)m(ts)f(themselv)m(es)h(in)d(a)
j(similar)d(form,)j(the)f(switc)m(h)g FJ(INTSTR)e FQ(\(for)j(\\in)m
(ternal)664 2637 y(structure"\),)31 b(if)e(on,)i(will)d(cause)j(this)e
(to)i(happ)s(en.)664 2800 y(In)42 b(cases)h(where)f(the)h(argumen)m(ts)
g(of)g(the)f(k)m(ernel)h(op)s(erators)f(ma)m(y)h(b)s(e)f(reordered,)664
2913 y(the)c(system)g(puts)f(them)g(in)f(a)i(canonical)g(order,)h
(based)e(on)h(an)f(in)m(ternal)g(in)m(trinsic)664 3026
y(ordering)27 b(of)h(the)g(v)-5 b(ariables.)39 b(Ho)m(w)m(ev)m(er,)30
b(some)f(commands)e(allo)m(w)h(argumen)m(ts)g(in)f(the)664
3139 y(form)32 b(of)h(k)m(ernels,)g(and)f(the)h(user)f(has)h(no)g(w)m
(a)m(y)g(of)g(telling)e(what)i(in)m(ternal)e(order)i(the)664
3252 y(system)22 b(will)d(assign)i(to)h(these)g(argumen)m(ts.)38
b(T)-8 b(o)22 b(resolv)m(e)g(this)f(di\016cult)m(y)-8
b(,)22 b(w)m(e)g(in)m(tro)s(duce)664 3365 y(the)31 b(notion)e(of)i(a)f
FD(kernel)j(form)38 b FQ(as)30 b(an)g(expression)f(that)i(transforms)f
(to)h(a)f(k)m(ernel)g(on)664 3478 y(ev)-5 b(aluation.)664
3627 y(Examples)30 b(of)g(k)m(ernel)g(forms)g(are:)1013
3833 y FH(a)1013 3933 y(cos\(x*y\))1013 4032 y(log\(sin\(x\)\))664
4238 y FQ(whereas)1013 4444 y FH(a*b)1013 4544 y(\(a+b\)^4)664
4763 y FQ(are)h(not.)664 4925 y(W)-8 b(e)34 b(see)g(that)f(k)m(ernel)f
(forms)h(can)g(usually)d(b)s(e)j(used)f(as)h(generalized)f(v)-5
b(ariables,)33 b(and)p eop
%%Page: 113 113
113 112 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.2.)72 b(THE)30 b(EXPRESSION)f(W)m(ORKSP)-8 b(A)m(CE)1193
b FQ(113)241 555 y(most)34 b(algebraic)g(prop)s(erties)e(asso)s(ciated)
i(with)f(v)-5 b(ariables)32 b(ma)m(y)j(also)f(b)s(e)f(asso)s(ciated)241
668 y(with)c(k)m(ernels.)241 805 y @beginspecial @setspecial
@endspecial 199 x FE(8.2)135 b(The)45 b(Expression)g(W)-11
b(orkspace)241 1257 y FQ(Sev)m(eral)27 b(mec)m(hanisms)f(are)h(a)m(v)-5
b(ailable)27 b(for)g(sa)m(ving)g(and)f(retrieving)g(previously)f(ev)-5
b(alu-)241 1370 y(ated)23 b(expressions.)37 b(The)22
b(simplest)f(of)i(these)h(refers)e(to)i(the)f(last)f(algebraic)h
(expression)241 1483 y(simpli\014ed.)52 b(When)35 b(an)g(assignmen)m(t)
g(of)h(an)f(algebraic)g(expression)f(is)g(made,)j(or)f(an)241
1596 y(expression)31 b(is)g(ev)-5 b(aluated)33 b(at)g(the)f(top)h(lev)m
(el,)f(\(i.e.,)i(not)e(inside)e(a)j(comp)s(ound)e(state-)241
1709 y(men)m(t)g(or)f(pro)s(cedure\))g(the)g(results)g(of)g(the)h(ev)-5
b(aluation)30 b(are)h(automatically)f(sa)m(v)m(ed)i(in)241
1822 y(a)i(v)-5 b(ariable)33 b FJ(WS)h FQ(that)g(w)m(e)h(shall)d(refer)
i(to)h(as)f(the)g(w)m(orkspace.)53 b(\(More)35 b(precisely)-8
b(,)34 b(the)241 1935 y(expression)i(is)g(assigned)g(to)i(the)f(v)-5
b(ariable)36 b FJ(WS)h FQ(that)g(is)g(then)f(a)m(v)-5
b(ailable)37 b(for)g(further)241 2047 y(manipulation.\))241
2210 y FD(Example:)241 2360 y FQ(If)k(w)m(e)g(ev)-5 b(aluate)43
b(the)e(expression)f FJ(\(x+y\)^2)g FQ(at)i(the)f(top)h(lev)m(el)f(and)
g(next)g(wish)f(to)241 2459 y(di\013eren)m(tiate)30 b(it)g(with)f(resp)
s(ect)h(to)i FJ(Y)p FQ(,)e(w)m(e)h(can)f(simply)e(sa)m(y)589
2665 y FH(df\(ws,y\);)241 2884 y FQ(to)j(get)g(the)g(desired)e(answ)m
(er.)241 3034 y(If)38 b(the)h(user)f(wishes)f(to)i(assign)f(the)h(w)m
(orkspace)g(to)g(a)g(v)-5 b(ariable)38 b(or)g(expression)g(for)241
3133 y(later)30 b(use,)g(the)h FJ(SAVEAS)e FQ(statemen)m(t)j(can)f(b)s
(e)e(used.)40 b(It)31 b(has)f(the)g(syn)m(tax)589 3339
y FH(SAVEAS)42 b(<expression>)241 3545 y FQ(F)-8 b(or)41
b(example,)j(after)d(the)g(di\013eren)m(tiation)e(in)h(the)h(last)f
(example,)k(the)d(w)m(orkspace)241 3645 y(holds)27 b(the)i(expression)e
FJ(2*x+2*y)p FQ(.)38 b(If)28 b(w)m(e)i(wish)c(to)k(assign)e(this)f(to)j
(the)e(v)-5 b(ariable)28 b FJ(Z)g FQ(w)m(e)241 3744 y(can)i(no)m(w)h
(sa)m(y)589 3950 y FH(saveas)42 b(z;)241 4170 y FQ(If)35
b(the)h(user)f(wishes)f(to)j(sa)m(v)m(e)g(the)f(expression)e(in)h(a)h
(form)f(that)h(allo)m(ws)f(him)f(to)j(use)241 4282 y(some)27
b(of)g(its)g(v)-5 b(ariables)25 b(as)j(arbitrary)d(parameters,)k(the)e
FJ(FOR)47 b(ALL)26 b FQ(command)h(can)g(b)s(e)241 4395
y(used.)241 4545 y FD(Example:)589 4751 y FH(for)43 b(all)f(x)h(saveas)
e(h\(x\);)p eop
%%Page: 114 114
114 113 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(114)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)664 555 y FQ(with)f(the)i(ab)
s(o)m(v)m(e)g(expression)f(w)m(ould)f(mean)h(that)h FJ(h\(z\))e
FQ(ev)-5 b(aluates)31 b(to)g FJ(2*Y+2*Z)p FQ(.)664 718
y(A)e(further)e(metho)s(d)i(for)f(referencing)g(more)h(than)f(the)h
(last)g(expression)e(is)h(describ)s(ed)664 831 y(in)h(the)i(section)f
(on)h(in)m(teractiv)m(e)g(use)f(of)g(REDUCE.)664 968
y @beginspecial @setspecial @endspecial 199 x FE(8.3)136
b(Output)44 b(of)h(Expressions)664 1420 y FQ(A)32 b(considerable)e
(degree)i(of)g(\015exibilit)m(y)c(is)j(a)m(v)-5 b(ailable)31
b(in)f(REDUCE)h(in)f(the)i(prin)m(ting)664 1533 y(of)d(expressions)f
(generated)i(during)d(calculations.)39 b(No)30 b(explicit)d(format)i
(statemen)m(ts)664 1646 y(are)d(supplied,)e(as)i(these)g(are)g(in)f
(most)h(cases)h(of)f(little)e(use)i(in)e(algebraic)i(calculations,)664
1759 y(where)20 b(the)h(size)g(of)g(output)f(or)h(its)f(comp)s(osition)
g(is)f(not)i(generally)f(kno)m(wn)h(in)e(adv)-5 b(ance.)664
1871 y(Instead,)28 b(REDUCE)e(pro)m(vides)g(a)h(series)f(of)h(mo)s(de)f
(options)g(to)i(the)f(user)f(that)h(should)664 1984 y(enable)g(him)e
(to)j(pro)s(duce)e(his)f(output)i(in)f(a)h(comprehensible)e(and)h(p)s
(ossibly)e(pleasing)664 2097 y(form.)664 2260 y(The)i(most)g(extreme)h
(option)e(o\013ered)h(is)f(to)i(suppress)d(the)i(output)g(en)m(tirely)f
(from)h(an)m(y)664 2373 y(top)k(lev)m(el)f(ev)-5 b(aluation.)40
b(This)28 b(is)g(accomplished)g(b)m(y)i(turning)d(o\013)j(the)g(switc)m
(h)f FJ(OUTPUT)664 2486 y FQ(whic)m(h)24 b(is)h(normally)e(on.)39
b(It)26 b(is)e(useful)g(for)h(limiting)d(output)j(when)f(loading)g
(large)i(\014les)664 2599 y(or)31 b(pro)s(ducing)d(\\clean")j(output)f
(from)g(the)g(prett)m(yprin)m(t)g(programs.)664 2761
y(In)f(most)h(circumstances,)g(ho)m(w)m(ev)m(er,)h(w)m(e)f(wish)e(to)i
(view)f(the)h(output,)g(so)g(w)m(e)g(need)f(to)664 2874
y(kno)m(w)f(ho)m(w)h(to)g(format)g(it)e(appropriately)-8
b(.)39 b(As)28 b(w)m(e)h(men)m(tioned)f(earlier,)g(an)g(algebraic)664
2987 y(expression)d(is)f(normally)g(prin)m(ted)g(in)g(an)i(expanded)f
(form,)h(\014lling)d(the)i(whole)g(output)664 3100 y(line)g(with)h
(terms.)40 b(Certain)26 b(output)g(declarations,)i(ho)m(w)m(ev)m(er,)h
(can)e(b)s(e)f(used)h(to)g(a\013ect)664 3213 y(this)j(format.)43
b(T)-8 b(o)32 b(b)s(egin)d(with,)h(w)m(e)i(lo)s(ok)e(at)i(an)f(op)s
(erator)h(for)e(c)m(hanging)h(the)g(length)664 3326 y(of)g(the)f
(output)g(line.)664 3471 y @beginspecial @setspecial
@endspecial 148 x FR(8.3.1)113 b(LINELENGTH)36 b(Op)s(erator)664
3827 y FQ(This)29 b(op)s(erator)h(is)g(used)f(with)g(the)i(syn)m(tax)
1013 4033 y FH(LINELENGTH\(NUM:i)o(nt)o(ege)o(r\))o(:in)o(te)o(ge)o(r)
664 4252 y FQ(and)k(sets)g(the)h(output)e(line)g(length)h(to)g(the)h
(in)m(teger)f FJ(NUM)p FQ(.)g(It)g(returns)f(the)h(previous)664
4365 y(output)29 b(line)f(length)h(\(so)h(that)h(it)e(can)h(b)s(e)e
(stored)i(for)g(later)f(resetting)h(of)g(the)f(output)664
4478 y(line)g(if)g(needed\).)664 4628 y @beginspecial
@setspecial @endspecial eop
%%Page: 115 115
115 114 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(115)241
555 y FR(8.3.2)112 b(Output)38 b(Declarations)241 777
y FQ(W)-8 b(e)36 b(no)m(w)f(describ)s(e)e(a)i(n)m(um)m(b)s(er)f(of)h
(switc)m(hes)f(and)g(declarations)g(that)i(are)f(a)m(v)-5
b(ailable)241 890 y(for)28 b(con)m(trolling)g(output)g(formats.)41
b(It)28 b(should)f(b)s(e)h(noted,)i(ho)m(w)m(ev)m(er,)g(that)g(the)e
(trans-)241 1002 y(formation)34 b(of)h(large)g(expressions)f(to)h(pro)s
(duce)f(these)i(v)-5 b(aried)34 b(output)g(formats)h(can)241
1115 y(tak)m(e)j(a)f(lot)f(of)g(computing)g(time)g(and)g(space.)59
b(If)36 b(a)h(user)e(wishes)g(to)i(sp)s(eed)f(up)f(the)241
1228 y(prin)m(ting)24 b(of)i(the)h(output)f(in)f(suc)m(h)h(cases,)i(he)
e(can)h(turn)e(o\013)i(the)f(switc)m(h)g FJ(PRI)p FQ(.)f(If)h(this)f
(is)241 1341 y(done,)33 b(then)g(output)g(is)f(pro)s(duced)f(in)g(one)j
(\014xed)e(format,)i(whic)m(h)e(basically)f(re\015ects)241
1454 y(the)38 b(in)m(ternal)e(form)h(of)h(the)g(expression,)h(and)e
(none)g(of)h(the)g(options)f(b)s(elo)m(w)g(apply)-8 b(.)241
1567 y FJ(PRI)29 b FQ(is)h(normally)e(on.)241 1730 y(With)i
FJ(PRI)f FQ(on,)i(the)f(output)g(declarations)g(and)g(switc)m(hes)g(a)m
(v)-5 b(ailable)30 b(are)g(as)h(follo)m(ws:)241 2020
y FN(ORDER)k(Declaration)241 2228 y FQ(The)21 b(declaration)g
FJ(ORDER)f FQ(ma)m(y)j(b)s(e)e(used)g(to)h(order)f(v)-5
b(ariables)21 b(on)g(output.)38 b(The)21 b(syn)m(tax)241
2327 y(is:)589 2533 y FH(order)42 b(v1,...vn;)241 2739
y FQ(where)30 b(the)g FJ(vi)g FQ(are)h(k)m(ernels.)40
b(Th)m(us,)589 2945 y FH(order)i(x,y,z;)241 3151 y FQ(orders)29
b FJ(X)h FQ(ahead)h(of)f FJ(Y)p FQ(,)g FJ(Y)g FQ(ahead)h(of)f
FJ(Z)g FQ(and)f(all)h(three)g(ahead)h(of)f(other)g(v)-5
b(ariables)29 b(not)241 3251 y(giv)m(en)j(an)h(order.)46
b FJ(order)h(nil;)32 b FQ(resets)h(the)f(output)h(order)f(to)h(the)f
(system)h(default.)241 3350 y(The)f(order)h(of)g(v)-5
b(ariables)32 b(ma)m(y)i(b)s(e)e(c)m(hanged)i(b)m(y)f(further)f(calls)g
(of)h FJ(ORDER)p FQ(,)f(but)h(then)241 3450 y(the)22
b(reordered)g(v)-5 b(ariables)20 b(w)m(ould)h(ha)m(v)m(e)j(an)e(order)f
(lo)m(w)m(er)i(than)e(those)i(in)e(earlier)g FJ(ORDER)241
3550 y FQ(calls.)40 b(Th)m(us,)589 3755 y FH(order)i(x,y,z;)589
3855 y(order)g(y,x;)241 4074 y FQ(w)m(ould)28 b(order)i
FJ(Z)f FQ(ahead)h(of)g FJ(Y)g FQ(and)f FJ(X)p FQ(.)g(The)h(default)f
(ordering)f(is)h(usually)f(alphab)s(etic.)241 4364 y
FN(F)-12 b(A)m(CTOR)34 b(Declaration)241 4586 y FQ(This)g(declaration)i
(tak)m(es)h(a)g(list)e(of)h(iden)m(ti\014ers)e(or)i(k)m(ernels)g(as)g
(argumen)m(t.)58 b FJ(FACTOR)241 4698 y FQ(is)34 b(not)i(a)g(factoring)
f(command)g(\(use)h FJ(FACTORIZE)d FQ(or)i(the)h FJ(FACTOR)e
FQ(switc)m(h)g(for)i(this)241 4811 y(purp)s(ose\);)51
b(rather)45 b(it)g(is)f(a)i(separation)f(command.)85
b(All)43 b(terms)i(in)m(v)m(olving)f(\014xed)241 4924
y(p)s(o)m(w)m(ers)e(of)h(the)g(declared)g(expressions)e(are)i(prin)m
(ted)e(as)j(a)f(pro)s(duct)e(of)i(the)g(\014xed)p eop
%%Page: 116 116
116 115 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(116)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)664 555 y FQ(p)s(o)m(w)m(ers)
g(and)g(a)h(sum)e(of)i(the)f(rest)h(of)g(the)f(terms.)664
705 y(All)37 b(expressions)h(in)m(v)m(olving)f(a)i(giv)m(en)g(pre\014x)
e(op)s(erator)i(ma)m(y)h(also)e(b)s(e)g(factored)i(b)m(y)664
804 y(putting)29 b(the)i(op)s(erator)g(name)f(in)f(the)i(list)e(of)h
(factored)i(iden)m(ti\014ers.)38 b(F)-8 b(or)31 b(example:)1013
1010 y FH(factor)41 b(x,cos,sin\(x\);)664 1229 y FQ(causes)31
b(all)e(p)s(o)m(w)m(ers)h(of)h FJ(X)f FQ(and)g FJ(SIN\(X\))e
FQ(and)i(all)g(functions)e(of)j FJ(COS)e FQ(to)j(b)s(e)d(factored.)664
1392 y(Note)39 b(that)f FJ(FACTOR)d FQ(do)s(es)i(not)g(a\013ect)i(the)f
(order)e(of)i(its)f(argumen)m(ts.)61 b(Y)-8 b(ou)38 b(should)664
1505 y(also)30 b(use)h FJ(ORDER)e FQ(if)g(this)g(is)h(imp)s(ortan)m(t.)
664 1668 y(The)41 b(declaration)g FJ(remfac)46 b(v1,...,vn;)e
FQ(remo)m(v)m(es)e(the)g(factoring)f(\015ag)h(from)f(the)664
1781 y(expressions)29 b FJ(v1)h FQ(through)g FJ(vn)p
FQ(.)664 1925 y @beginspecial @setspecial @endspecial
149 x FR(8.3.3)113 b(Output)37 b(Con)m(trol)f(Switc)m(hes)664
2282 y FQ(In)g(addition)g(to)h(these)h(declarations,)g(the)f(form)g(of)
g(the)g(output)f(can)i(b)s(e)e(mo)s(di\014ed)664 2382
y(b)m(y)c(switc)m(hing)f(v)-5 b(arious)31 b(output)g(con)m(trol)i
(switc)m(hes)e(using)g(the)h(declarations)f FJ(ON)h FQ(and)664
2481 y FJ(OFF)p FQ(.)26 b(W)-8 b(e)28 b(shall)d(illustrate)g(the)i(use)
g(of)f(these)i(switc)m(hes)e(b)m(y)h(an)f(example,)i(namely)e(the)664
2581 y(prin)m(ting)i(of)j(the)f(expression)1013 2787
y FH(x^2*\(y^2+2*y\)+x*)o(\(y)o(^2+)o(z\))o(/\(2)o(*a)o(\))37
b(.)664 3006 y FQ(The)30 b(relev)-5 b(an)m(t)31 b(switc)m(hes)f(are)h
(as)f(follo)m(ws:)664 3296 y FN(ALLF)-12 b(A)m(C)35 b(Switc)m(h)664
3504 y FQ(This)j(switc)m(h)h(will)d(cause)k(the)g(system)f(to)h(searc)m
(h)g(the)g(whole)f(expression,)h(or)g(an)m(y)664 3604
y(sub-expression)24 b(enclosed)i(in)f(paren)m(theses,)i(for)f(simple)e
(m)m(ultiplicativ)m(e)g(factors)j(and)664 3703 y(prin)m(t)33
b(them)i(outside)f(the)g(paren)m(theses.)54 b(Th)m(us)34
b(our)g(expression)f(with)g FJ(ALLFAC)67 b FQ(o\013)664
3803 y(will)28 b(prin)m(t)h(as)1187 4009 y FH(2)87 b(2)348
b(2)436 b(2)1013 4108 y(\(2*X)42 b(*Y)h(*A)f(+)h(4*X)g(*Y*A)f(+)h(X*Y)
86 b(+)43 b(X*Z\)/\(2*A\))664 4314 y FQ(and)30 b(with)f
FJ(ALLFAC)g FQ(on)h(as)1362 4520 y FH(2)697 b(2)1013
4620 y(X*\(2*X*Y)40 b(*A)j(+)g(4*X*Y*A)e(+)i(Y)87 b(+)43
b(Z\)/\(2*A\))d(.)664 4839 y FJ(ALLFAC)35 b FQ(is)g(normally)f(on,)k
(and)d(is)g(on)h(in)f(the)h(follo)m(wing)f(examples,)i(except)g(where)
664 4952 y(otherwise)30 b(stated.)p eop
%%Page: 117 117
117 116 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(117)241
555 y FN(DIV)34 b(Switc)m(h)241 763 y FQ(This)d(switc)m(h)h(mak)m(es)i
(the)g(system)f(searc)m(h)g(the)h(denominator)e(of)h(an)g(expression)f
(for)241 863 y(simple)e(factors)i(that)h(it)f(divides)d(in)m(to)j(the)g
(n)m(umerator,)h(so)f(that)h(rational)e(fractions)241
963 y(and)39 b(negativ)m(e)i(p)s(o)m(w)m(ers)f(app)s(ear)f(in)g(the)h
(output.)69 b(With)39 b FJ(DIV)g FQ(on,)j(our)e(expression)241
1062 y(w)m(ould)29 b(prin)m(t)g(as)851 1268 y FH(2)697
b(2)87 b(\(-1\))347 b(\(-1\))589 1368 y(X*\(X*Y)85 b(+)43
b(2*X*Y)f(+)h(1/2*Y)f(*A)217 b(+)43 b(1/2*A)172 b(*Z\))42
b(.)241 1587 y FJ(DIV)29 b FQ(is)h(normally)e(o\013.)241
1874 y FN(LIST)34 b(Switc)m(h)241 2082 y FQ(This)29 b(switc)m(h)h
(causes)h(the)g(system)g(to)g(prin)m(t)e(eac)m(h)j(term)f(in)e(an)m(y)i
(sum)f(on)g(a)i(separate)241 2182 y(line.)39 b(With)30
b FJ(LIST)f FQ(on,)h(our)g(expression)f(prin)m(ts)g(as)938
2388 y FH(2)589 2487 y(X*\(2*X*Y)41 b(*A)764 2686 y(+)i(4*X*Y*A)895
2886 y(2)764 2985 y(+)g(Y)764 3185 y(+)g(Z\)/\(2*A\))d(.)241
3404 y FJ(LIST)29 b FQ(is)g(normally)g(o\013.)241 3691
y FN(NOSPLIT)34 b(Switc)m(h)241 3912 y FQ(Under)e(normal)g
(circumstances,)i(the)f(prin)m(ting)e(routines)h(try)h(to)h(break)f(an)
f(expres-)241 4025 y(sion)k(across)h(lines)e(at)j(a)f(natural)f(p)s
(oin)m(t.)60 b(This)35 b(is)h(a)i(fairly)d(exp)s(ensiv)m(e)h(pro)s
(cess.)60 b(If)241 4138 y(y)m(ou)30 b(are)h(not)g(o)m(v)m(erly)g
(concerned)f(ab)s(out)g(where)g(the)h(end-of-line)e(breaks)h(come,)h(y)
m(ou)241 4251 y(can)e(sp)s(eed)f(up)g(the)i(prin)m(ting)d(of)i
(expressions)f(b)m(y)h(turning)e(o\013)i(the)h(switc)m(h)e
FJ(NOSPLIT)p FQ(.)241 4364 y(This)g(switc)m(h)i(is)g(normally)e(on.)241
4651 y FN(RA)-9 b(T)35 b(Switc)m(h)241 4859 y FQ(This)e(switc)m(h)i(is)
f(only)g(useful)f(with)h(expressions)g(in)g(whic)m(h)f(v)-5
b(ariables)34 b(are)i(factored)241 4959 y(with)31 b FJ(FACTOR)p
FQ(.)f(With)i(this)f(mo)s(de,)i(the)f(o)m(v)m(erall)g(denominator)g(of)
g(the)h(expression)d(is)p eop
%%Page: 118 118
118 117 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(118)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)664 555 y FQ(prin)m(ted)35
b(with)f(eac)m(h)j(factored)g(sub-expression.)55 b(W)-8
b(e)37 b(assume)f(a)g(prior)e(declaration)664 655 y FJ(factor)46
b(x;)34 b FQ(in)e(the)h(follo)m(wing)e(output.)48 b(W)-8
b(e)34 b(\014rst)f(prin)m(t)e(the)i(expression)f(with)g
FJ(RAT)664 754 y(off)p FQ(:)1187 960 y FH(2)828 b(2)1013
1060 y(\(2*X)42 b(*Y*A*\(Y)e(+)k(2\))e(+)i(X*\(Y)85 b(+)43
b(Z\)\)/\(2*A\))d(.)664 1279 y FQ(With)30 b FJ(RAT)g
FQ(on)g(the)g(output)g(b)s(ecomes:)p eop
%%Page: 119 119
119 118 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(119)633
555 y FH(2)741 b(2)589 655 y(X)44 b(*Y*\(Y)d(+)i(2\))g(+)g(X*\(Y)86
b(+)43 b(Z\)/\(2*A\))d(.)241 899 y FJ(RAT)29 b FQ(is)h(normally)e
(o\013.)241 1048 y(Next,)48 b(if)43 b(w)m(e)h(lea)m(v)m(e)i
FJ(X)d FQ(factored,)49 b(and)43 b(turn)g(on)h(b)s(oth)f
FJ(DIV)g FQ(and)g FJ(RAT)p FQ(,)g(the)i(result)241 1148
y(b)s(ecomes)633 1354 y FH(2)871 b(\(-1\))129 b(2)589
1453 y(X)44 b(*Y*\(Y)d(+)i(2\))g(+)g(1/2*X*A)172 b(*\(Y)86
b(+)43 b(Z\))g(.)241 1659 y FQ(Finally)-8 b(,)45 b(with)d
FJ(X)h FQ(factored,)k FJ(RAT)c FQ(on)g(and)f FJ(ALLFAC)g
FQ(o\013)i(w)m(e)f(retriev)m(e)h(the)f(original)241 1759
y(structure)633 1965 y FH(2)130 b(2)610 b(2)589 2065
y(X)44 b(*\(Y)86 b(+)43 b(2*Y\))f(+)h(X*\(Y)85 b(+)44
b(Z\)/\(2*A\))c(.)241 2354 y FN(RA)-9 b(TPRI)36 b(Switc)m(h)241
2563 y FQ(If)d(the)g(n)m(umerator)h(and)f(denominator)f(of)i(an)f
(expression)g(can)g(eac)m(h)i(b)s(e)e(prin)m(ted)f(in)241
2662 y(one)d(line,)e(the)i(output)f(routines)g(will)e(prin)m(t)h(them)i
(in)e(a)i(t)m(w)m(o)h(dimensional)c(notation,)241 2762
y(with)33 b(n)m(umerator)h(and)g(denominator)f(on)h(separate)h(lines)e
(and)g(a)i(line)e(of)h(dashes)g(in)241 2862 y(b)s(et)m(w)m(een.)41
b(F)-8 b(or)31 b(example,)g FJ(\(a+b\)/2)d FQ(will)g(prin)m(t)h(as)589
3067 y FH(A)44 b(+)f(B)589 3167 y(-----)677 3267 y(2)241
3486 y FQ(T)-8 b(urning)22 b(this)h(switc)m(h)h(o\013)g(causes)h(suc)m
(h)f(expressions)f(to)i(b)s(e)f(output)f(in)g(a)i(linear)e(form.)241
3776 y FN(REVPRI)35 b(Switc)m(h)241 3984 y FQ(The)28
b(normal)h(ordering)e(of)j(terms)f(in)f(output)h(is)f(from)g(highest)h
(to)h(lo)m(w)m(est)g(p)s(o)m(w)m(er.)40 b(In)241 4084
y(some)30 b(situations)g(\(e.g.,)i(when)d(a)i(p)s(o)m(w)m(er)f(series)g
(is)f(output\),)i(the)f(opp)s(osite)g(ordering)241 4183
y(is)f(more)h(con)m(v)m(enien)m(t.)42 b(The)30 b(switc)m(h)g
FJ(REVPRI)e FQ(if)h(on)i(causes)f(suc)m(h)g(a)h(rev)m(erse)g(ordering)
241 4283 y(of)39 b(terms.)68 b(F)-8 b(or)40 b(example,)i(the)e
(expression)e FJ(y*\(x+1\)^2+\(y+3\)^2)d FQ(will)h(normally)241
4382 y(prin)m(t)29 b(as)633 4588 y FH(2)610 b(2)589 4688
y(X)44 b(*Y)e(+)i(2*X*Y)d(+)i(Y)87 b(+)43 b(7*Y)g(+)g(9)241
4894 y FQ(whereas)30 b(with)f FJ(REVPRI)g FQ(on,)h(it)g(will)e(prin)m
(t)h(as)p eop
%%Page: 120 120
120 119 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(120)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)1492 555 y
FH(2)523 b(2)1013 655 y(9)43 b(+)g(7*Y)g(+)g(Y)86 b(+)44
b(2*X*Y)d(+)i(X)h(*Y.)664 782 y @beginspecial @setspecial
@endspecial 166 x FR(8.3.4)113 b(WRITE)36 b(Command)664
1170 y FQ(In)26 b(simple)f(cases)j(no)f(explicit)e(output)i(command)g
(is)e(necessary)j(in)d(REDUCE,)j(since)664 1282 y(the)f(v)-5
b(alue)26 b(of)g(an)m(y)h(expression)f(is)f(automatically)h(prin)m(ted)
f(if)h(a)h(semicolon)e(is)h(used)g(as)664 1395 y(a)e(delimiter.)37
b(There)23 b(are,)j(ho)m(w)m(ev)m(er,)h(sev)m(eral)d(situations)e(in)h
(whic)m(h)f(suc)m(h)i(a)g(command)664 1508 y(is)30 b(useful.)664
1671 y(In)24 b(a)h FJ(FOR)p FQ(,)e FJ(WHILE)p FQ(,)h(or)g
FJ(REPEAT)f FQ(statemen)m(t)j(it)e(ma)m(y)h(b)s(e)e(desired)g(to)i
(output)f(something)664 1784 y(eac)m(h)32 b(time)e(the)g(statemen)m(t)j
(within)27 b(the)k(lo)s(op)e(construct)i(is)f(rep)s(eated.)664
1947 y(It)37 b(ma)m(y)h(b)s(e)e(desired)f(for)i(a)g(pro)s(cedure)f(to)i
(output)e(in)m(termediate)h(results)f(or)h(other)664
2060 y(information)e(while)f(it)i(is)g(running.)56 b(It)36
b(ma)m(y)h(b)s(e)f(desired)f(to)i(ha)m(v)m(e)h(results)d(lab)s(eled)664
2172 y(in)c(sp)s(ecial)g(w)m(a)m(ys,)j(esp)s(ecially)c(if)h(the)i
(output)f(is)f(directed)g(to)i(a)g(\014le)e(or)i(device)f(other)664
2285 y(than)e(the)h(terminal.)664 2448 y(The)36 b FJ(WRITE)g
FQ(command)g(consists)h(of)g(the)g(w)m(ord)f FJ(WRITE)g
FQ(follo)m(w)m(ed)g(b)m(y)h(one)g(or)g(more)664 2561
y(items)30 b(separated)h(b)m(y)f(commas,)h(and)e(follo)m(w)m(ed)h(b)m
(y)g(a)h(terminator.)40 b(There)30 b(are)h(three)664
2674 y(kinds)e(of)h(items)g(that)h(can)g(b)s(e)e(used:)664
2761 y @beginspecial @setspecial @endspecial 775 2911
a(1.)46 b(Expressions)d(\(including)e(v)-5 b(ariables)42
b(and)i(constan)m(ts\).)83 b(The)44 b(expression)f(is)891
3024 y(ev)-5 b(aluated,)31 b(and)f(the)h(result)e(is)g(prin)m(ted)g
(out.)664 3079 y @beginspecial @setspecial @endspecial
775 3212 a(2.)46 b(Assignmen)m(ts.)58 b(The)36 b(expression)f(on)h(the)
g(righ)m(t)g(side)f(of)h(the)h FJ(:=)e FQ(op)s(erator)i(is)891
3325 y(ev)-5 b(aluated,)30 b(and)e(is)g(assigned)g(to)h(the)g(v)-5
b(ariable)28 b(on)h(the)f(left;)i(then)e(the)h(sym)m(b)s(ol)891
3438 y(on)42 b(the)g(left)f(is)f(prin)m(ted,)j(follo)m(w)m(ed)e(b)m(y)h
(a)g(\\)p FJ(:=)p FQ(",)j(follo)m(w)m(ed)c(b)m(y)g(the)h(v)-5
b(alue)41 b(of)891 3551 y(the)d(expression)e(on)h(the)h(righ)m(t)f({)h
(almost)f(exactly)h(the)g(w)m(a)m(y)g(an)f(assignmen)m(t)891
3663 y(follo)m(w)m(ed)30 b(b)m(y)f(a)h(semicolon)f(prin)m(ts)f(out)i
(normally)-8 b(.)39 b(\(The)29 b(di\013erence)g(is)g(that)h(if)891
3776 y(the)k FJ(WRITE)e FQ(is)g(in)g(a)h FJ(FOR)f FQ(statemen)m(t)j
(and)e(the)g(left-hand)f(side)h(of)g(the)g(assign-)891
3889 y(men)m(t)c(is)e(an)h(arra)m(y)g(p)s(osition)e(or)i(something)f
(similar)f(con)m(taining)h(the)h(v)-5 b(ariable)891 4002
y(of)33 b(the)f FJ(FOR)g FQ(iteration,)g(then)g(the)h(v)-5
b(alue)32 b(of)g(that)h(v)-5 b(ariable)31 b(is)h(inserted)f(in)g(the)
891 4115 y(prin)m(tout.\))664 4175 y @beginspecial @setspecial
@endspecial 775 4303 a(3.)46 b(Arbitrary)23 b(strings)g(of)h(c)m
(haracters,)j(preceded)c(and)h(follo)m(w)m(ed)f(b)m(y)h(double-quote)
891 4416 y(marks)30 b(\(e.g.,)j FJ("string")p FQ(\).)664
4653 y(The)i(items)g(sp)s(eci\014ed)f(b)m(y)i(a)g(single)e
FJ(WRITE)g FQ(statemen)m(t)j(prin)m(t)e(side)f(b)m(y)i(side)e(on)i(one)
664 4766 y(line.)h(\(The)23 b(line)e(is)i(brok)m(en)g(automatically)g
(if)f(it)g(is)h(to)s(o)g(long.\))39 b(Strings)21 b(prin)m(t)h(exactly)
664 4879 y(as)31 b(quoted.)41 b(The)30 b FJ(WRITE)e FQ(command)j
(itself)e(ho)m(w)m(ev)m(er)j(do)s(es)e(not)g(return)f(a)i(v)-5
b(alue.)p eop
%%Page: 121 121
121 120 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(121)241
555 y(The)21 b(prin)m(t)f(line)g(is)g(closed)h(at)h(the)g(end)f(of)g(a)
h FJ(WRITE)e FQ(command)h(ev)-5 b(aluation.)38 b(Therefore)241
668 y(the)23 b(command)f FJ(WRITE)47 b("";)24 b FQ(\(sp)s(ecifying)d
(nothing)h(to)i(b)s(e)e(prin)m(ted)f(except)j(the)f(empt)m(y)241
781 y(string\))29 b(causes)i(a)g(line)e(to)i(b)s(e)f(skipp)s(ed.)241
944 y FD(Examples:)241 1047 y @beginspecial @setspecial
@endspecial 352 1166 a FQ(1.)46 b(If)30 b FJ(A)g FQ(is)f
FJ(X+5)p FQ(,)h FJ(B)g FQ(is)g(itself,)f FJ(C)h FQ(is)f(123,)j
FJ(M)e FQ(is)g(an)g(arra)m(y)-8 b(,)32 b(and)d FJ(Q)p
FQ(=3,)i(then)817 1376 y FH(write)41 b(m\(q\):=a,")f(",b/c,")h(THANK)g
(YOU";)468 1586 y FQ(will)28 b(set)j FJ(M\(3\))e FQ(to)i
FJ(x+5)e FQ(and)h(prin)m(t)817 1796 y FH(M\(Q\))42 b(:=)g(X)i(+)f(5)g
(B/123)e(THANK)h(YOU)468 2019 y FQ(The)f(blanks)f(b)s(et)m(w)m(een)j
(the)f FJ(5)f FQ(and)g FJ(B)p FQ(,)h(and)f(the)g FJ(3)h
FQ(and)f FJ(T)p FQ(,)g(come)i(from)e(the)468 2132 y(blanks)29
b(in)g(the)i(quoted)f(strings.)241 2187 y @beginspecial
@setspecial @endspecial 352 2306 a(2.)46 b(T)-8 b(o)31
b(prin)m(t)e(a)i(table)f(of)g(the)h(squares)f(of)h(the)f(in)m(tegers)h
(from)f(1)g(to)h(20:)817 2516 y FH(for)42 b(i:=1:20)f(do)i(write)e(i,")
h(",i^2;)241 2601 y @beginspecial @setspecial @endspecial
352 2726 a FQ(3.)k(T)-8 b(o)28 b(prin)m(t)f(a)h(table)f(of)h(the)g
(squares)g(of)f(the)h(in)m(tegers)g(from)g(1)g(to)g(20,)i(and)d(at)h
(the)468 2825 y(same)j(time)f(store)h(them)f(in)f(p)s(ositions)g(1)h
(to)h(20)h(of)e(an)g(arra)m(y)h FJ(A:)817 3035 y FH(for)42
b(i:=1:20)f(do)i(<<a\(i\):=i^2;)38 b(write)k(i,")g(",a\(i\)>>;)468
3245 y FQ(This)29 b(will)e(giv)m(e)k(us)f(t)m(w)m(o)i(columns)d(of)h(n)
m(um)m(b)s(ers.)39 b(If)30 b(w)m(e)h(had)f(used)817 3455
y FH(for)42 b(i:=1:20)f(do)i(write)e(i,")h(",a\(i\):=i^2;)468
3678 y FQ(w)m(e)31 b(w)m(ould)e(also)h(get)i FJ(A\()p
FQ(i)p FJ(\))46 b(:=)78 b FQ(rep)s(eated)30 b(on)g(eac)m(h)i(line.)241
3733 y @beginspecial @setspecial @endspecial 352 3852
a(4.)46 b(The)36 b(follo)m(wing)f(more)h(complete)h(example)g
(calculates)f(the)h(famous)f(f)g(and)g(g)468 3952 y(series,)j(\014rst)d
(rep)s(orted)h(in)f(Sconzo,)k(P)-8 b(.,)40 b(LeSc)m(hac)m(k,)h(A.)c
(R.,)j(and)c(T)-8 b(ob)s(ey)g(,)40 b(R.,)468 4051 y(\\Sym)m(b)s(olic)22
b(Computation)h(of)h(f)g(and)f(g)h(Series)e(b)m(y)i(Computer",)h
(Astronomical)468 4151 y(Journal)k(70)i(\(Ma)m(y)h(1965\).)512
4361 y FH(x1:=)42 b(-sig*\(mu+2*eps\))o($)512 4461 y(x2:=)g(eps)g(-)h
(2*sig^2$)512 4560 y(x3:=)f(-3*mu*sig$)512 4660 y(f:=)g(1$)512
4759 y(g:=)g(0$)512 4859 y(for)g(i:=)g(1)h(step)f(1)i(until)d(10)i(do)g
(begin)642 4959 y(f1:=)f(-mu*g+x1*df\(f,eps)o(\)+)o(x2*)o(df)o(\(f,)o
(si)o(g\))o(+x3)o(*d)o(f\(f)o(,m)o(u\);)p eop
%%Page: 122 122
122 121 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(122)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)1066 555 y
FH(write)41 b("f\(",i,"\))f(:=)j(",f1;)1066 655 y(g1:=)f
(f+x1*df\(g,eps\)+x)o(2*)o(df)o(\(g,)o(si)o(g\)+)o(x3)o(*d)o(f\(g)o(,m)
o(u\);)1066 754 y(write)f("g\(",i,"\))f(:=)j(",g1;)1066
854 y(f:=f1$)1066 954 y(g:=g1$)1022 1053 y(end;)891 1265
y FQ(A)g(p)s(ortion)f(of)h(the)g(output,)j(to)d(illustrate)e(the)i
(prin)m(tout)f(from)g(the)h FJ(WRITE)891 1365 y FQ(command,)31
b(is)e(as)i(follo)m(ws:)1589 1576 y FH(...)42 b(<prior)f(output>)g(...)
2068 1776 y(2)935 1875 y(F\(4\))h(:=)h(MU*\(3*EPS)d(-)j(15*SIG)84
b(+)44 b(MU\))935 2075 y(G\(4\))e(:=)h(6*SIG*MU)2461
2274 y(2)935 2373 y(F\(5\))f(:=)h(15*SIG*MU*\()c(-)k(3*EPS)e(+)j(7*SIG)
85 b(-)43 b(MU\))2068 2573 y(2)935 2672 y(G\(5\))f(:=)h(MU*\(9*EPS)d(-)
j(45*SIG)84 b(+)44 b(MU\))1589 2872 y(...)e(<more)g(output>)e(...)664
3098 y @beginspecial @setspecial @endspecial 166 x FR(8.3.5)113
b(Suppression)38 b(of)f(Zeros)664 3486 y FQ(It)c(is)e(sometimes)i(anno)
m(ying)f(to)h(ha)m(v)m(e)h(zero)f(assignmen)m(ts)f(\(i.e.)47
b(assignmen)m(ts)32 b(of)h(the)664 3599 y(form)g FJ(<expression>)44
b(:=)j(0)p FQ(\))33 b(prin)m(ted,)f(esp)s(ecially)g(in)f(prin)m(ting)g
(large)i(arra)m(ys)g(with)664 3712 y(man)m(y)f(zero)h(elemen)m(ts.)45
b(The)31 b(output)h(from)f(suc)m(h)g(assignmen)m(ts)h(can)g(b)s(e)f
(suppressed)664 3825 y(b)m(y)f(turning)f(on)h(the)h(switc)m(h)f
FJ(NERO)p FQ(.)664 3969 y @beginspecial @setspecial @endspecial
149 x FR(8.3.6)113 b(F)m(OR)-9 b(TRAN)36 b(St)m(yle)g(Output)i(Of)f
(Expressions)664 4339 y FQ(It)31 b(is)g(naturally)e(p)s(ossible)g(to)j
(ev)-5 b(aluate)31 b(expressions)f(n)m(umerically)f(in)h(REDUCE)h(b)m
(y)664 4452 y(giving)k(all)h(v)-5 b(ariables)35 b(and)g
(sub-expressions)g(n)m(umerical)g(v)-5 b(alues.)58 b(Ho)m(w)m(ev)m(er,)
40 b(as)c(w)m(e)664 4565 y(p)s(oin)m(ted)c(out)g(elsewhere)g(the)h
(user)f(m)m(ust)g(declare)g(real)h(arithmetical)e(op)s(eration)h(b)m(y)
664 4678 y(turning)42 b(on)h(the)h(switc)m(h)f FJ(ROUNDED)p
FQ(.)f(Ho)m(w)m(ev)m(er,)49 b(it)43 b(should)f(b)s(e)g(remem)m(b)s
(ered)h(that)664 4791 y(arithmetic)27 b(in)f(REDUCE)i(is)e(not)i
(particularly)d(fast,)k(since)d(results)h(are)h(in)m(terpreted)664
4904 y(rather)37 b(than)g(ev)-5 b(aluated)38 b(in)d(a)j(compiled)e
(form.)60 b(The)37 b(user)g(with)f(a)h(large)g(amoun)m(t)p
eop
%%Page: 123 123
123 122 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(123)241
555 y(of)35 b(n)m(umerical)f(computation)h(after)h(all)e(necessary)i
(algebraic)f(manipulations)d(ha)m(v)m(e)241 668 y(b)s(een)f(p)s
(erformed)g(is)g(therefore)i(w)m(ell)e(advised)g(to)i(p)s(erform)e
(these)i(calculations)e(in)g(a)241 781 y(F)m(OR)-8 b(TRAN)36
b(or)f(similar)e(system.)56 b(F)-8 b(or)37 b(this)d(purp)s(ose,)h
(REDUCE)h(o\013ers)f(facilities)241 894 y(for)30 b(users)f(to)j(pro)s
(duce)d(F)m(OR)-8 b(TRAN)31 b(compatible)f(\014les)f(for)h(n)m
(umerical)f(pro)s(cessing.)241 1057 y(First,)41 b(when)e(the)g(switc)m
(h)g FJ(FORT)f FQ(is)h(on,)j(the)d(system)h(will)d(prin)m(t)h
(expressions)g(in)g(a)241 1170 y(F)m(OR)-8 b(TRAN)34
b(notation.)49 b(Expressions)31 b(b)s(egin)h(in)g(column)g(sev)m(en.)49
b(If)33 b(an)g(expression)241 1282 y(extends)e(o)m(v)m(er)i(one)f
(line,)f(a)h(con)m(tin)m(uation)f(mark)g(\(.\))45 b(follo)m(w)m(ed)32
b(b)m(y)f(a)h(blank)e(app)s(ears)241 1395 y(on)36 b(subsequen)m(t)f
(cards.)58 b(After)36 b(a)g(certain)g(n)m(um)m(b)s(er)f(of)h(lines)f
(ha)m(v)m(e)i(b)s(een)e(pro)s(duced)241 1508 y(\(according)25
b(to)g(the)g(v)-5 b(alue)25 b(of)f(the)h(v)-5 b(ariable)24
b FJ(CARD)p 1948 1508 29 4 v 33 w(NO)p FQ(\),)h(a)g(new)f(expression)g
(is)g(started.)241 1621 y(If)e(the)h(expression)e(prin)m(ted)g(arises)h
(from)g(an)h(assignmen)m(t)f(to)i(a)f(v)-5 b(ariable,)23
b(the)g(v)-5 b(ariable)241 1734 y(is)30 b(prin)m(ted)g(as)i(the)f(name)
h(of)f(the)h(expression.)42 b(Otherwise)30 b(the)i(expression)e(is)g
(giv)m(en)241 1847 y(the)i(default)f(name)h FJ(ANS)p
FQ(.)f(An)h(error)f(o)s(ccurs)h(if)f(iden)m(ti\014ers)f(or)h(n)m(um)m
(b)s(ers)g(are)h(outside)241 1960 y(the)e(b)s(ounds)e(p)s(ermitted)h(b)
m(y)i(F)m(OR)-8 b(TRAN.)241 2123 y(A)30 b(second)h(option)f(is)f(to)i
(use)f(the)h FJ(WRITE)e FQ(command)h(to)h(pro)s(duce)e(other)i
(programs.)241 2285 y FD(Example:)241 2435 y FQ(The)f(follo)m(wing)e
(REDUCE)j(statemen)m(ts)284 2641 y FH(on)43 b(fort;)284
2740 y(out)g("forfil";)284 2840 y(write)f("C)217 b(this)42
b(is)h(a)g(fortran)e(program";)284 2940 y(write)h(")h(1)174
b(format\(e13.5\)";)284 3039 y(write)42 b(")261 b(u=1.23";)284
3139 y(write)42 b(")261 b(v=2.17";)284 3238 y(write)42
b(")261 b(w=5.2";)284 3338 y(x:=\(u+v+w\)^11;)284 3438
y(write)42 b("C)217 b(it)43 b(was)f(foolish)f(to)i(expand)e(this)h
(expression";)284 3537 y(write)g(")261 b(print)41 b(1,x";)284
3637 y(write)h(")261 b(end";)284 3737 y(shut)42 b("forfil";)284
3836 y(off)h(fort;)241 4055 y FQ(will)27 b(generate)32
b(a)f(\014le)f FJ(forfil)e FQ(that)j(con)m(tains:)241
4286 y FH(c)43 b(this)f(is)h(a)g(fortran)d(program)284
4386 y(1)174 b(format\(e13.5\))502 4485 y(u=1.23)502
4585 y(v=2.17)502 4685 y(w=5.2)502 4784 y(ans1=1320.*u**3*v)o(*w)o(**7)
o(+1)o(65.)o(*u)o(**)o(3*w)o(**)o(8+5)o(5.)o(*u)o(**2)o(*v)o(**9)o(+4)o
(95.)o(*u)459 4884 y(.)43 b(**2*v**8*w+1980.)o(*u)o(**2)o(*v)o(**7)o
(*w)o(**)o(2+4)o(62)o(0.*)o(u*)o(*2)o(*v*)o(*6)o(*w*)o(*3)o(+)p
eop
%%Page: 124 124
124 123 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(124)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)882 555 y FH(.)43
b(6930.*u**2*v**5*w)o(**)o(4+6)o(93)o(0.*)o(u*)o(*2)o(*v*)o(*4)o(*w*)o
(*5)o(+4)o(620)o(.*)o(u**)o(2*)o(v**)o(3*)882 655 y(.)g
(w**6+1980.*u**2*v)o(**)o(2*w)o(**)o(7+4)o(95)o(.*)o(u**)o(2*)o(v*w)o
(**)o(8+)o(55.)o(*u)o(**2)o(*w)o(**9)o(+)882 754 y(.)g
(11.*u*v**10+110.*)o(u*)o(v**)o(9*)o(w+4)o(95)o(.*)o(u*v)o(**)o(8*w)o
(**)o(2+)o(132)o(0.)o(*u*)o(v*)o(*7*)o(w)882 854 y(.)g
(**3+2310.*u*v**6*)o(w*)o(*4+)o(27)o(72.)o(*u)o(*v)o(**5)o(*w)o(**5)o
(+2)o(31)o(0.*)o(u*)o(v**)o(4*)o(w**)o(6)882 954 y(.)g
(+1320.*u*v**3*w**)o(7+)o(495)o(.*)o(u*v)o(**)o(2*)o(w**)o(8+)o(110)o
(.*)o(u*)o(v*w)o(**)o(9+1)o(1.)o(*u*)o(w)882 1053 y(.)g
(**10+v**11+11.*v*)o(*1)o(0*w)o(+5)o(5.*)o(v*)o(*9)o(*w*)o(*2)o(+16)o
(5.)o(*v)o(**8)o(*w)o(**3)o(+3)o(30.)o(*)882 1153 y(.)g
(v**7*w**4+462.*v*)o(*6)o(*w*)o(*5)o(+46)o(2.)o(*v)o(**5)o(*w)o(**6)o
(+3)o(30)o(.*v)o(**)o(4*w)o(**)o(7+)882 1253 y(.)g(165.*v**3*w**8+55)o
(.*)o(v**)o(2*)o(w**)o(9+)o(11)o(.*v)o(*w)o(**1)o(0+)o(w*)o(*11)926
1352 y(x=u**11+11.*u**)o(10*)o(v+)o(11.)o(*u)o(**1)o(0*)o(w+)o(55.)o
(*u)o(**9)o(*v)o(**)o(2+1)o(10)o(.*u)o(**)o(9*v)o(*)882
1452 y(.)g(w+55.*u**9*w**2+1)o(65)o(.*u)o(**)o(8*v)o(**)o(3+)o(495)o
(.*)o(u**)o(8*)o(v*)o(*2*)o(w+)o(495)o(.*)o(u**)o(8)882
1551 y(.)g(*v*w**2+165.*u**8)o(*w)o(**3)o(+3)o(30.)o(*u)o(**)o(7*v)o
(**)o(4+1)o(32)o(0.)o(*u*)o(*7)o(*v*)o(*3)o(*w+)882 1651
y(.)g(1980.*u**7*v**2*w)o(**)o(2+1)o(32)o(0.*)o(u*)o(*7)o(*v*)o(w*)o
(*3+)o(33)o(0.)o(*u*)o(*7)o(*w*)o(*4)o(+46)o(2.)882 1751
y(.)g(*u**6*v**5+2310.*)o(u*)o(*6*)o(v*)o(*4*)o(w+)o(46)o(20.)o(*u)o
(**6)o(*v)o(**)o(3*w)o(**)o(2+4)o(62)o(0.*)o(u)882 1850
y(.)g(**6*v**2*w**3+231)o(0.)o(*u*)o(*6)o(*v*)o(w*)o(*4)o(+46)o(2.)o
(*u*)o(*6)o(*w)o(**5)o(+4)o(62.)o(*u)o(**5)o(*)882 1950
y(.)g(v**6+2772.*u**5*v)o(**)o(5*w)o(+6)o(930)o(.*)o(u*)o(*5*)o(v*)o
(*4*)o(w*)o(*2)o(+92)o(40)o(.*u)o(**)o(5*v)882 2050 y(.)g
(**3*w**3+6930.*u*)o(*5)o(*v*)o(*2)o(*w*)o(*4)o(+2)o(772)o(.*)o(u**)o
(5*)o(v*)o(w**)o(5+)o(462)o(.*)o(u**)o(5)882 2149 y(.)g
(*w**6+330.*u**4*v)o(**)o(7+2)o(31)o(0.*)o(u*)o(*4)o(*v*)o(*6)o(*w+)o
(69)o(30)o(.*u)o(**)o(4*v)o(**)o(5*w)882 2249 y(.)g(**2+11550.*u**4*v)o
(**)o(4*w)o(**)o(3+1)o(15)o(50)o(.*u)o(**)o(4*v)o(**)o(3*)o(w**)o(4+)o
(693)o(0.)o(*u*)o(*)882 2348 y(.)g(4*v**2*w**5+2310.)o(*u)o(**4)o(*v)o
(*w*)o(*6)o(+3)o(30.)o(*u)o(**4)o(*w)o(**)o(7+1)o(65)o(.*u)o(**)o(3*v)
882 2448 y(.)g(**8+1320.*u**3*v*)o(*7)o(*w+)o(46)o(20.)o(*u)o(**)o(3*v)
o(**)o(6*w)o(**)o(2+)o(924)o(0.)o(*u*)o(*3)o(*v*)o(*)882
2548 y(.)g(5*w**3+11550.*u**)o(3*)o(v**)o(4*)o(w**)o(4+)o(92)o(40.)o
(*u)o(**3)o(*v)o(**)o(3*w)o(**)o(5+4)o(62)o(0.*)o(u)882
2647 y(.)g(**3*v**2*w**6+ans)o(1)664 2747 y(c)218 b(it)42
b(was)h(foolish)d(to)j(expand)e(this)h(expression)926
2847 y(print)f(1,x)926 2946 y(end)664 3190 y FQ(If)34
b(the)g(argumen)m(ts)h(of)f(a)h FJ(WRITE)e FQ(statemen)m(t)j(include)c
(an)i(expression)f(that)h(requires)664 3303 y(con)m(tin)m(uation)c
(records,)g(the)h(output)e(will)f(need)h(editing,)h(since)f(the)h
(output)g(routine)664 3416 y(prin)m(ts)23 b(the)h(argumen)m(ts)g(of)h
FJ(WRITE)d FQ(sequen)m(tially)-8 b(,)25 b(and)e(the)i(con)m(tin)m
(uation)f(mec)m(hanism)664 3529 y(therefore)k(generates)h(its)e
(auxiliary)e(v)-5 b(ariables)26 b(after)i(the)g(preceding)e(expression)
g(has)664 3642 y(b)s(een)k(prin)m(ted.)664 3791 y(Finally)-8
b(,)26 b(since)h(there)g(is)f(no)h(direct)f(analog)i(of)f
FD(list)36 b FQ(in)25 b(F)m(OR)-8 b(TRAN,)28 b(a)g(commen)m(t)g(line)
664 3891 y(of)j(the)f(form)1013 4097 y FH(c)43 b(*****)f(invalid)e
(fortran)h(construct)f(\(list\))h(not)h(printed)664 4316
y FQ(will)28 b(b)s(e)i(prin)m(ted)f(if)g(y)m(ou)i(try)f(to)h(prin)m(t)e
(a)i(list)e(with)g FJ(FORT)g FQ(on.)664 4606 y FN(F)m(OR)-9
b(TRAN)35 b(Output)f(Options)664 4827 y FQ(There)j(are)g(a)h(n)m(um)m
(b)s(er)e(of)h(metho)s(ds)f(a)m(v)-5 b(ailable)37 b(to)g(c)m(hange)i
(the)e(default)f(format)i(of)664 4940 y(the)31 b(F)m(OR)-8
b(TRAN)31 b(output.)p eop
%%Page: 125 125
125 124 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(125)241
555 y(The)42 b(breakup)f(of)h(the)h(expression)e(in)m(to)h(subparts)f
(is)h(suc)m(h)g(that)h(the)f(n)m(um)m(b)s(er)f(of)241
655 y(con)m(tin)m(uation)33 b(lines)e(pro)s(duced)g(is)h(less)g(than)h
(a)g(giv)m(en)g(n)m(um)m(b)s(er.)47 b(This)32 b(n)m(um)m(b)s(er)f(can)
241 754 y(b)s(e)f(mo)s(di\014ed)e(b)m(y)i(the)h(assignmen)m(t)589
960 y FH(card_no)41 b(:=)i(<number>;)241 1180 y FQ(where)34
b FJ(<number>)e FQ(is)i(the)g FD(total)46 b FQ(n)m(um)m(b)s(er)33
b(of)h(cards)h(allo)m(w)m(ed)f(in)f(a)i(statemen)m(t.)55
b(The)241 1292 y(default)29 b(v)-5 b(alue)30 b(of)h FJ(CARD)p
1083 1292 29 4 v 33 w(NO)f FQ(is)f(20.)241 1442 y(The)h(width)e(of)j
(the)f(output)g(expression)f(is)h(also)g(adjustable)g(b)m(y)g(the)g
(assignmen)m(t)589 1648 y FH(fort_width)40 b(:=)j(<integer>;)241
1867 y FQ(whic)m(h)32 b(sets)i(the)g(total)h(width)d(of)i(a)g(giv)m(en)
g(line)e(to)i FJ(<integer>)p FQ(.)49 b(The)33 b(initial)e(F)m(OR-)241
1980 y(TRAN)f(output)g(width)f(is)g(70.)241 2143 y(REDUCE)34
b(automatically)f(inserts)g(a)h(decimal)f(p)s(oin)m(t)g(after)i(eac)m
(h)g(isolated)e(in)m(teger)241 2255 y(co)s(e\016cien)m(t)h(in)e(a)i(F)m
(OR)-8 b(TRAN)34 b(expression)f(\(so)h(that,)h(for)e(example,)h(4)g(b)s
(ecomes)g FJ(4.)241 2368 y FQ(\).)41 b(T)-8 b(o)31 b(prev)m(en)m(t)g
(this,)e(set)i(the)g FJ(PERIOD)d FQ(mo)s(de)i(switc)m(h)g(to)h
FJ(OFF)p FQ(.)241 2531 y(F)m(OR)-8 b(TRAN)43 b(output)f(is)g(normally)f
(pro)s(duced)g(in)g(lo)m(w)m(er)i(case.)78 b(If)42 b(upp)s(er)f(case)i
(is)241 2644 y(desired,)29 b(the)h(switc)m(h)g FJ(FORTUPPER)e
FQ(should)g(b)s(e)i(turned)f(on.)241 2807 y(Finally)-8
b(,)38 b(the)g(default)e(name)i FJ(ANS)f FQ(assigned)g(to)h(an)g
(unnamed)e(expression)g(and)h(its)241 2920 y(subparts)43
b(can)i(b)s(e)e(c)m(hanged)i(b)m(y)g(the)g(op)s(erator)f
FJ(VARNAME)p FQ(.)87 b(This)43 b(tak)m(es)j(a)f(single)241
3033 y(iden)m(ti\014er)d(as)h(argumen)m(t,)48 b(whic)m(h)42
b(then)h(replaces)h FJ(ANS)e FQ(as)i(the)g(expression)e(name.)241
3145 y(The)30 b(v)-5 b(alue)29 b(of)i FJ(VARNAME)d FQ(is)i(its)g
(argumen)m(t.)241 3308 y(F)-8 b(urther)30 b(facilities)e(for)i(the)h
(pro)s(duction)d(of)j(F)m(OR)-8 b(TRAN)31 b(and)f(other)g(language)h
(out-)241 3421 y(put)22 b(are)i(pro)m(vided)e(b)m(y)h(the)g(SCOPE)f
(and)h(GENTRAN)g(pac)m(k)-5 b(agesdescrib)s(ed)23 b(in)f(c)m(hap-)241
3534 y(ters)30 b @beginspecial @setspecial @endspecial(42)i(and)d
@beginspecial @setspecial @endspecial(73)q(.)241 3661
y @beginspecial @setspecial @endspecial 166 x FR(8.3.7)112
b(Sa)m(ving)38 b(Expressions)f(for)h(Later)f(Use)h(as)g(Input)241
4049 y FQ(It)f(is)f(often)h(useful)e(to)j(sa)m(v)m(e)g(an)f(expression)
f(on)h(an)f(external)h(\014le)f(for)h(use)f(later)h(as)241
4162 y(input)22 b(in)h(further)g(calculations.)38 b(The)24
b(commands)g(for)g(op)s(ening)f(and)g(closing)h(output)241
4275 y(\014les)36 b(are)h(explained)e(elsewhere.)60 b(Ho)m(w)m(ev)m
(er,)41 b(w)m(e)c(see)h(in)d(the)j(examples)e(on)h(output)241
4387 y(of)e(expressions)f(that)i(the)g(standard)e(\\natural")h(metho)s
(d)g(of)h(prin)m(ting)d(expressions)241 4500 y(is)h(not)i(compatible)f
(with)g(the)h(input)d(syn)m(tax.)58 b(So)35 b(to)i(prin)m(t)d(the)i
(expression)e(in)h(an)241 4613 y(input)28 b(compatible)i(form)g(w)m(e)h
(m)m(ust)g(inhibit)c(this)i(natural)h(st)m(yle)g(b)m(y)h(turning)d
(o\013)j(the)241 4726 y(switc)m(h)j FJ(NAT)p FQ(.)h(If)g(this)f(is)h
(done,)h(a)g(dollar)e(sign)g(will)e(also)k(b)s(e)e(prin)m(ted)g(at)i
(the)g(end)e(of)241 4839 y(the)c(expression.)p eop
%%Page: 126 126
126 125 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(126)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)664 555 y FD(Example:)664
705 y FQ(The)g(follo)m(wing)f(sequence)i(of)f(commands)1013
911 y FH(off)42 b(nat;)g(out)g("out";)g(x)h(:=)g(\(y+z\)^2;)d(write)h
("end";)1013 1010 y(shut)h("out";)f(on)i(nat;)664 1216
y FQ(will)28 b(generate)k(a)f(\014le)e FJ(out)g FQ(that)i(con)m(tains)
1013 1422 y FH(X)43 b(:=)g(Y**2)f(+)h(2*Y*Z)e(+)j(Z**2$)1013
1522 y(END$)664 1656 y @beginspecial @setspecial @endspecial
159 x FR(8.3.8)113 b(Displa)m(ying)36 b(Expression)h(Structure)664
2023 y FQ(In)43 b(those)g(cases)h(where)f(the)g(\014nal)f(result)g(has)
h(a)h(complicated)e(form,)47 b(it)42 b(is)g(often)664
2123 y(con)m(v)m(enien)m(t)g(to)g(displa)m(y)e(the)h(sk)m(eletal)h
(structure)e(of)i(the)f(answ)m(er.)73 b(The)41 b(op)s(erator)664
2222 y FJ(STRUCTR)p FQ(,)35 b(that)i(tak)m(es)i(a)e(single)e
(expression)h(as)h(argumen)m(t,)i(will)34 b(do)i(this)g(for)g(y)m(ou.)
664 2322 y(Its)31 b(syn)m(tax)f(is:)795 2528 y FH(STRUCTR\(EXPRN:al)o
(ge)o(bra)o(ic)o([,I)o(D1)o(:id)o(en)o(ti)o(fie)o(r[)o(,ID)o(2:)o(id)o
(ent)o(if)o(ier)o(]])o(\);)664 2747 y FQ(The)g(structure)f(is)g(prin)m
(ted)g(e\013ectiv)m(ely)h(as)h(a)f(tree,)h(in)e(whic)m(h)f(the)j
(subparts)d(are)j(laid)664 2860 y(out)d(with)e(auxiliary)f(names.)40
b(If)27 b(the)g(optional)g FJ(ID1)f FQ(is)h(absen)m(t,)h(the)g
(auxiliary)d(names)664 2973 y(are)40 b(pre\014xed)f(b)m(y)g(the)h(ro)s
(ot)g FJ(ANS)p FQ(.)f(This)f(ro)s(ot)i(ma)m(y)h(b)s(e)e(c)m(hanged)h(b)
m(y)g(the)g(op)s(erator)664 3086 y FJ(VARNAME)p FQ(.)28
b(If)i(the)g(optional)f FJ(ID1)g FQ(is)h(presen)m(t,)g(and)f(is)g(an)h
(arra)m(y)h(name,)f(the)g(subparts)664 3199 y(are)25
b(named)e(as)i(elemen)m(ts)f(of)h(that)f(arra)m(y)-8
b(,)27 b(otherwise)d FJ(ID1)f FQ(is)g(used)g(as)i(the)f(ro)s(ot)h
(pre\014x.)664 3311 y(\(The)30 b(second)h(optional)e(argumen)m(t)i
FJ(ID2)f FQ(is)f(explained)g(later.\))664 3474 y(The)j
FJ(EXPRN)g FQ(can)h(b)s(e)f(either)g(a)h(scalar)g(or)f(a)h(matrix)f
(expression.)47 b(Use)33 b(of)g(an)m(y)g(other)664 3587
y(will)28 b(result)h(in)g(an)h(error.)664 3750 y FD(Example:)664
3913 y FQ(Let)41 b(us)e(supp)s(ose)g(that)h(the)h(w)m(orkspace)f(con)m
(tains)h FJ(\(\(A+B\)^2+C\)^3+D)p FQ(.)36 b(Then)j(the)664
4025 y(input)29 b FJ(STRUCTR)45 b(WS;)30 b FQ(will)e(\(with)h
FJ(EXP)h FQ(o\013)7 b(\))31 b(result)e(in)g(the)i(output:)p
eop
%%Page: 127 127
127 126 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.3.)72 b(OUTPUT)29 b(OF)i(EXPRESSIONS)1403 b FQ(127)589
555 y FH(ANS3)720 754 y(where)1374 954 y(3)851 1053 y(ANS3)42
b(:=)h(ANS2)85 b(+)43 b(D)1374 1253 y(2)851 1352 y(ANS2)f(:=)h(ANS1)85
b(+)43 b(C)851 1551 y(ANS1)f(:=)h(A)g(+)g(B)241 1782
y FQ(The)35 b(w)m(orkspace)i(remains)e(unc)m(hanged)h(after)g(this)f
(op)s(eration,)i(since)f FJ(STRUCTR)70 b FQ(in)241 1882
y(the)22 b(default)g(situation)f(returns)g(no)h(v)-5
b(alue)22 b(\(if)f FJ(STRUCTR)f FQ(is)i(used)f(as)i(a)f
(sub-expression,)241 1982 y(its)g(v)-5 b(alue)22 b(is)g(tak)m(en)i(to)g
(b)s(e)e(0\).)39 b(In)22 b(addition,)h(the)g(sub-expressions)e(are)i
(normally)e(only)241 2081 y(displa)m(y)m(ed)32 b(and)h(not)g(retained.)
50 b(If)33 b(y)m(ou)g(wish)f(to)i(access)h(the)f(sub-expressions)d
(with)241 2181 y(their)24 b(displa)m(y)m(ed)g(names,)j(the)f(switc)m(h)
f FJ(SAVESTRUCTR)d FQ(should)i(b)s(e)h(turned)f(on.)39
b(In)25 b(this)241 2280 y(case,)36 b FJ(STRUCTR)c FQ(returns)h(a)i
(list)e(whose)g(\014rst)h(elemen)m(t)g(is)g(a)g(represen)m(tation)g
(for)g(the)241 2380 y(expression,)26 b(and)f(subsequen)m(t)g(elemen)m
(ts)h(are)g(the)g(sub-expression)e(relations.)38 b(Th)m(us,)241
2480 y(with)29 b FJ(SAVESTRUCTR)e FQ(on,)k FJ(STRUCTR)45
b(WS)30 b FQ(in)f(the)i(ab)s(o)m(v)m(e)g(example)f(w)m(ould)g(return)
1243 2594 y FH(3)610 b(2)589 2694 y({ANS3,ANS3=ANS2)81
b(+)44 b(D,ANS2=ANS1)82 b(+)43 b(C,ANS1=A)e(+)i(B})241
2900 y FQ(The)e FJ(PART)g FQ(op)s(erator)h(can)h(b)s(e)e(used)g(to)i
(retriev)m(e)f(the)h(required)d(parts)i(of)g(the)g(ex-)241
2999 y(pression.)69 b(F)-8 b(or)41 b(example,)i(to)e(get)h(the)f(v)-5
b(alue)40 b(of)g FJ(ANS2)f FQ(in)h(the)g(ab)s(o)m(v)m(e,)45
b(one)40 b(could)241 3099 y(sa)m(y:)589 3305 y FH(part\(ws,3,2\);)241
3524 y FQ(If)25 b FJ(FORT)g FQ(is)h(on,)h(then)f(the)g(results)f(are)h
(prin)m(ted)f(in)g(the)h(rev)m(erse)h(order;)g(the)f(algorithm)241
3637 y(in)36 b(fact)j(guaran)m(teeing)g(that)g(no)f(sub-expression)e
(will)f(b)s(e)i(referenced)h(b)s(efore)g(it)f(is)241
3750 y(de\014ned.)h(The)27 b(second)g(optional)f(argumen)m(t)h
FJ(ID2)g FQ(ma)m(y)g(also)g(b)s(e)g(used)f(in)g(this)g(case)i(to)241
3863 y(name)21 b(the)h(actual)f(expression)f(\(or)i(expressions)e(in)g
(the)h(case)i(of)e(a)h(matrix)e(argumen)m(t\).)241 4026
y FD(Example:)241 4188 y FQ(Let)40 b(us)f(supp)s(ose)g(that)h
FJ(M)p FQ(,)g(a)g(2)h(b)m(y)e(1)i(matrix,)g(con)m(tains)f(the)h(elemen)
m(ts)f FJ(\(\(a+b\)^2)241 4301 y(+)47 b(c\)^3)g(+)g(d)60
b FQ(and)g FJ(\(a)47 b(+)h(b\)*\(c)e(+)h(d\))60 b FQ(resp)s(ectiv)m
(ely)-8 b(,)68 b(and)59 b(that)i FJ(V)f FQ(has)g(b)s(een)241
4414 y(declared)55 b(to)i(b)s(e)f(an)g(arra)m(y)-8 b(.)119
b(With)56 b FJ(EXP)f FQ(o\013)i(and)e FJ(FORT)g FQ(on,)63
b(the)57 b(statemen)m(t)241 4527 y FJ(structr\(2*m,v,k\);)25
b FQ(will)j(result)h(in)g(the)i(output)502 4758 y FH(V\(1\)=A+B)502
4857 y(V\(2\)=V\(1\)**2+C)502 4957 y(V\(3\)=V\(2\)**3+D)p
eop
%%Page: 128 128
128 127 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(128)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)926 555 y FH(V\(4\)=C+D)926
655 y(K\(1,1\)=2.*V\(3\))926 754 y(K\(2,1\)=2.*V\(1\)*)o(V\(4)o(\))664
903 y @beginspecial @setspecial @endspecial 188 x FE(8.4)136
b(Changing)45 b(the)g(In)l(ternal)h(Order)f(of)g(V)-11
b(ariables)664 1330 y FQ(The)44 b(in)m(ternal)g(ordering)f(of)i(v)-5
b(ariables)43 b(\(more)i(sp)s(eci\014cally)d(k)m(ernels\))j(can)g(ha)m
(v)m(e)h(a)664 1430 y(signi\014can)m(t)38 b(e\013ect)j(on)e(the)g
(space)h(and)e(time)h(asso)s(ciated)g(with)f(a)i(calculation.)66
b(In)664 1529 y(its)39 b(default)g(state,)44 b(REDUCE)c(uses)f(a)i(sp)s
(eci\014c)d(order)i(for)f(this)g(whic)m(h)g(ma)m(y)h(v)-5
b(ary)664 1629 y(b)s(et)m(w)m(een)28 b(sessions.)39 b(Ho)m(w)m(ev)m
(er,)30 b(it)d(is)g(p)s(ossible)e(for)i(the)h(user)f(to)h(c)m(hange)h
(this)d(in)m(ternal)664 1729 y(order)k(b)m(y)g(means)h(of)f(the)h
(declaration)f FJ(KORDER)p FQ(.)f(The)g(syn)m(tax)i(for)f(this)g(is:)
1013 1935 y FH(korder)41 b(v1,...,vn;)664 2154 y FQ(where)21
b(the)h FJ(Vi)f FQ(are)h(k)m(ernels.)38 b(With)21 b(this)f
(declaration,)k(the)e FJ(Vi)f FQ(are)h(ordered)f(in)m(ternally)664
2267 y(ahead)33 b(of)g(an)m(y)g(other)g(k)m(ernels)f(in)f(the)i
(system.)48 b FJ(V1)32 b FQ(has)g(the)h(highest)f(order,)h
FJ(V2)f FQ(the)664 2380 y(next)j(highest,)g(and)e(so)i(on.)52
b(A)35 b(further)e(call)g(of)i FJ(KORDER)e FQ(replaces)h(a)h(previous)d
(one.)664 2492 y FJ(KORDER)46 b(NIL;)29 b FQ(resets)i(the)g(in)m
(ternal)e(order)h(to)h(the)f(system)h(default.)664 2655
y(Unlik)m(e)g(the)i FJ(ORDER)d FQ(declaration,)j(that)f(has)g(a)h
(purely)d(cosmetic)j(e\013ect)h(on)e(the)g(w)m(a)m(y)664
2768 y(results)24 b(are)h(prin)m(ted,)g(the)g(use)f(of)h
FJ(KORDER)f FQ(can)h(ha)m(v)m(e)h(a)f(signi\014can)m(t)f(e\013ect)i(on)
f(compu-)664 2881 y(tation)f(time.)38 b(In)22 b(critical)g(cases)i
(then,)h(the)e(user)g(can)h(exp)s(erimen)m(t)e(with)g(the)h(ordering)
664 2994 y(of)31 b(the)f(v)-5 b(ariables)29 b(used)h(to)h(determine)e
(the)i(optim)m(um)e(set)i(for)f(a)h(giv)m(en)g(problem.)664
3149 y @beginspecial @setspecial @endspecial 181 x FE(8.5)136
b(Obtaining)45 b(P)l(arts)h(of)f(Algebraic)h(Expressions)664
3583 y FQ(There)d(are)g(man)m(y)g(o)s(ccasions)g(where)g(it)f(is)g
(desirable)g(to)h(obtain)g(a)g(sp)s(eci\014c)f(part)664
3696 y(of)k(an)f(expression,)j(or)d(ev)m(en)h(c)m(hange)g(suc)m(h)f(a)h
(part)f(to)h(another)g(expression.)84 b(A)664 3809 y(n)m(um)m(b)s(er)27
b(of)h(op)s(erators)g(are)g(a)m(v)-5 b(ailable)27 b(in)g(REDUCE)h(for)f
(this)g(purp)s(ose,)g(and)g(will)f(b)s(e)664 3922 y(describ)s(ed)j(in)g
(this)g(section.)42 b(In)30 b(addition,)f(op)s(erators)h(for)h
(obtaining)e(sp)s(eci\014c)g(parts)664 4035 y(of)d(p)s(olynomials)d
(and)j(rational)f(functions)f(\(suc)m(h)i(as)g(a)g(denominator\))g(are)
g(describ)s(ed)664 4147 y(in)j(another)i(section.)664
4275 y @beginspecial @setspecial @endspecial 166 x FR(8.5.1)113
b(COEFF)38 b(Op)s(erator)664 4649 y FQ(Syn)m(tax:)1013
4855 y FH(COEFF\(EXPRN:poly)o(no)o(mia)o(l,)o(VAR)o(:k)o(er)o(nel)o(\))
p eop
%%Page: 129 129
129 128 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.5.)72 b(OBT)-8 b(AINING)31 b(P)-8 b(AR)g(TS)30 b(OF)h(ALGEBRAIC)f
(EXPRESSIONS)354 b FQ(129)241 555 y FJ(COEFF)28 b FQ(is)h(an)h(op)s
(erator)g(that)h(partitions)d FJ(EXPRN)h FQ(in)m(to)h(its)f(v)-5
b(arious)29 b(co)s(e\016cien)m(ts)i(with)241 668 y(resp)s(ect)i(to)h
FJ(VAR)e FQ(and)g(returns)g(them)h(as)g(a)g(list,)g(with)f(the)h(co)s
(e\016cien)m(t)h(indep)s(enden)m(t)241 781 y(of)c FJ(VAR)g
FQ(\014rst.)241 944 y(Under)j(normal)f(circumstances,)j(an)f(error)f
(results)g(if)g FJ(EXPRN)f FQ(is)h(not)h(a)g(p)s(olynomial)241
1057 y(in)c FJ(VAR)p FQ(,)g(although)h(the)g(co)s(e\016cien)m(ts)h
(themselv)m(es)f(can)h(b)s(e)e(rational)h(as)g(long)g(as)g(they)241
1170 y(do)j(not)h(dep)s(end)e(on)h FJ(VAR)p FQ(.)g(Ho)m(w)m(ev)m(er,)k
(if)c(the)g(switc)m(h)g FJ(RATARG)f FQ(is)h(on,)h(denominators)241
1282 y(are)41 b(not)h(c)m(hec)m(k)m(ed)h(for)e(dep)s(endence)g(on)g
FJ(VAR)p FQ(,)f(and)h(are)h(tak)m(en)g(to)g(b)s(e)f(part)g(of)g(the)241
1395 y(co)s(e\016cien)m(ts.)241 1545 y FD(Example:)589
1751 y FH(coeff\(\(y^2+z\)^3/z)o(,y\))o(;)241 1957 y
FQ(returns)29 b(the)h(result)677 2163 y FH(2)589 2262
y({Z)43 b(,0,3*Z,0,3,0,1/Z})o(.)241 2468 y FQ(whereas)589
2674 y FH(coeff\(\(y^2+z\)^3/y)o(,y\))o(;)241 2880 y
FQ(giv)m(es)30 b(an)h(error)f(if)f FJ(RATARG)g FQ(is)g(o\013,)i(and)f
(the)h(result)677 3086 y FH(3)348 b(2)589 3185 y({Z)43
b(/Y,0,3*Z)d(/Y,0,3*Z/Y,0,1/Y})241 3405 y FQ(if)29 b
FJ(RATARG)g FQ(is)g(on.)241 3567 y(The)34 b(length)g(of)h(the)g(result)
f(of)h FJ(COEFF)e FQ(is)h(the)h(highest)f(p)s(o)m(w)m(er)g(of)h
FJ(VAR)f FQ(encoun)m(tered)241 3680 y(plus)29 b(1.)44
b(In)31 b(the)g(ab)s(o)m(v)m(e)i(examples)d(it)h(is)g(7.)44
b(In)30 b(addition,)g(the)i(v)-5 b(ariable)30 b FJ(HIGH)p
2967 3680 29 4 v 33 w(POW)g FQ(is)241 3793 y(set)c(to)h(the)f(highest)f
(non-zero)i(p)s(o)m(w)m(er)f(found)e(in)h FJ(EXPRN)g
FQ(during)e(the)k(ev)-5 b(aluation,)26 b(and)241 3906
y FJ(LOW)p 391 3906 V 33 w(POW)66 b FQ(to)34 b(the)f(lo)m(w)m(est)h
(non-zero)g(p)s(o)m(w)m(er,)h(or)e(zero)h(if)e(there)i(is)e(a)i
(constan)m(t)g(term.)241 4019 y(If)c FJ(EXPRN)f FQ(is)g(a)i(constan)m
(t,)h(then)e FJ(HIGH)p 1565 4019 V 33 w(POW)g FQ(and)f
FJ(LOW)p 2092 4019 V 34 w(POW)g FQ(are)i(b)s(oth)f(set)h(to)g(zero.)241
4164 y @beginspecial @setspecial @endspecial 148 x FR(8.5.2)112
b(COEFFN)38 b(Op)s(erator)241 4520 y FQ(The)31 b FJ(COEFFN)f
FQ(op)s(erator)i(is)f(designed)g(to)i(giv)m(e)f(the)g(user)f(a)h
(particular)f(co)s(e\016cien)m(t)h(of)241 4620 y(a)27
b(v)-5 b(ariable)26 b(in)f(a)j(p)s(olynomial,)d(as)i(opp)s(osed)f(to)i
FJ(COEFF)d FQ(that)j(returns)e(all)g(co)s(e\016cien)m(ts.)241
4720 y FJ(COEFFN)i FQ(is)i(used)f(with)g(the)i(syn)m(tax)589
4925 y FH(COEFFN\(EXPRN:poly)o(nom)o(ia)o(l,V)o(AR)o(:k)o(ern)o(el)o
(,N:)o(in)o(te)o(ger)o(\))p eop
%%Page: 130 130
130 129 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(130)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)664 555 y FQ(It)h(returns)e
(the)h FL(n)1288 522 y FF(th)1389 555 y FQ(co)s(e\016cien)m(t)h(of)f
FJ(VAR)g FQ(in)f(the)h(p)s(olynomial)e FJ(EXPRN)p FQ(.)664
700 y @beginspecial @setspecial @endspecial 148 x FR(8.5.3)113
b(P)-9 b(AR)g(T)35 b(Op)s(erator)664 1057 y FQ(Syn)m(tax:)1013
1262 y FH(PART\(EXPRN:algeb)o(ra)o(ic[)o(,I)o(NTE)o(XP)o(:i)o(nte)o(ge)
o(r]\))664 1482 y FQ(This)28 b(op)s(erator)h(w)m(orks)g(on)g(the)h
(form)e(of)i(the)f(expression)f(as)h(prin)m(ted)f FD(or)k(as)g(it)g
(would)664 1595 y(have)41 b(b)-5 b(e)g(en)41 b(printe)-5
b(d)42 b(at)f(that)g(p)-5 b(oint)42 b(in)f(the)f(c)-5
b(alculation)48 b FQ(b)s(earing)38 b(in)f(mind)g(all)h(the)664
1707 y(relev)-5 b(an)m(t)44 b(switc)m(h)f(settings)g(at)h(that)g(p)s
(oin)m(t.)79 b(The)43 b(reader)h(therefore)f(needs)g(some)664
1820 y(familiarit)m(y)32 b(with)h(the)h(w)m(a)m(y)h(that)g(expressions)
d(are)j(represen)m(ted)f(in)f(pre\014x)g(form)g(in)664
1933 y(REDUCE)43 b(to)g(use)g(these)g(op)s(erators)g(e\013ectiv)m(ely)
-8 b(.)79 b(F)-8 b(urthermore,)46 b(it)d(is)f(assumed)664
2046 y(that)34 b FJ(PRI)f FQ(is)f FJ(ON)h FQ(at)i(that)f(p)s(oin)m(t)e
(in)g(the)i(calculation.)49 b(The)33 b(reason)h(for)f(this)g(is)f(that)
664 2159 y(with)h FJ(PRI)g FQ(o\013,)j(an)d(expression)g(is)g(prin)m
(ted)g(b)m(y)h(w)m(alking)f(the)h(tree)g(represen)m(ting)g(the)664
2272 y(expression)i(in)m(ternally)-8 b(.)60 b(T)-8 b(o)37
b(sa)m(v)m(e)i(space,)h(it)c(is)g(nev)m(er)i(actually)f(transformed)f
(in)m(to)664 2385 y(the)41 b(equiv)-5 b(alen)m(t)40 b(pre\014x)f
(expression)g(as)i(o)s(ccurs)f(when)f FJ(PRI)h FQ(is)f(on.)71
b(Ho)m(w)m(ev)m(er,)45 b(the)664 2498 y(op)s(erations)33
b(on)h(p)s(olynomials)d(describ)s(ed)h(elsewhere)i(can)g(b)s(e)f
(equally)g(w)m(ell)g(used)g(in)664 2611 y(this)c(case)j(to)f(obtain)f
(the)g(relev)-5 b(an)m(t)31 b(parts.)664 2760 y(The)42
b(ev)-5 b(aluation)42 b(pro)s(ceeds)g(recursiv)m(ely)g(do)m(wn)g(the)g
(in)m(teger)h(expression)f(list.)76 b(In)664 2860 y(other)31
b(w)m(ords,)882 3066 y FH(PART\(<expression)o(>,<)o(in)o(teg)o(er)o
(1>,)o(<i)o(nt)o(ege)o(r2)o(>\))1056 3165 y(->)87 b(PART\(PART\(<expre)
o(ss)o(ion)o(>,)o(<i)o(nte)o(ge)o(r1>)o(\),)o(<i)o(nte)o(ge)o(r2>)o(\))
664 3371 y FQ(and)30 b(so)h(on,)f(and)1013 3577 y FH(PART\(<expression)
o(>\))37 b(->)86 b(<expression>.)664 3796 y FJ(INTEXP)29
b FQ(can)i(b)s(e)e(an)m(y)i(expression)e(that)i(ev)-5
b(aluates)31 b(to)g(an)f(in)m(teger.)42 b(If)30 b(the)g(in)m(teger)h
(is)664 3909 y(p)s(ositiv)m(e,)j(then)g(that)g(term)g(of)g(the)h
(expression)d(is)h(found.)50 b(If)34 b(the)g(in)m(teger)g(is)f(0,)j
(the)664 4022 y(op)s(erator)29 b(is)e(returned.)39 b(Finally)-8
b(,)28 b(if)f(the)i(in)m(teger)g(is)e(negativ)m(e,)k(the)e(coun)m(ting)
f(is)f(from)664 4135 y(the)k(tail)e(of)i(the)f(expression)g(rather)g
(than)g(the)h(head.)664 4285 y(F)-8 b(or)27 b(example,)h(if)d(the)i
(expression)e FJ(a+b)h FQ(is)f(prin)m(ted)h(as)g FJ(A+B)g
FQ(\(i.e.,)i(the)f(ordering)e(of)i(the)664 4384 y(v)-5
b(ariables)29 b(is)h(alphab)s(etical\),)f(then)1013 4590
y FH(part\(a+b,2\))82 b(->)130 b(B)1013 4690 y(part\(a+b,-1\))38
b(->)130 b(B)664 4789 y(and)1013 4889 y(part\(a+b,0\))82
b(->)87 b(PLUS)p eop
%%Page: 131 131
131 130 bop 241 299 a @beginspecial @setspecial @endspecial
FM(8.5.)72 b(OBT)-8 b(AINING)31 b(P)-8 b(AR)g(TS)30 b(OF)h(ALGEBRAIC)f
(EXPRESSIONS)354 b FQ(131)241 555 y(An)31 b(op)s(erator)g
FJ(ARGLENGTH)e FQ(is)h(a)m(v)-5 b(ailable)31 b(to)h(determine)e(the)i
(n)m(um)m(b)s(er)e(of)h(argumen)m(ts)241 655 y(of)26
b(the)g(top)g(lev)m(el)g(op)s(erator)g(in)e(an)i(expression.)38
b(If)26 b(the)g(expression)e(do)s(es)i(not)g(con)m(tain)241
754 y(a)31 b(top)f(lev)m(el)g(op)s(erator,)h(then)f FP(\000)p
FQ(1)h(is)e(returned.)40 b(F)-8 b(or)31 b(example,)589
960 y FH(arglength\(a+b+c\))37 b(->)87 b(3)589 1060 y
(arglength\(f\(\)\))125 b(->)87 b(0)589 1160 y(arglength\(a\))213
b(->)87 b(-1)241 1305 y @beginspecial @setspecial @endspecial
148 x FR(8.5.4)112 b(Substituting)36 b(for)i(P)m(arts)e(of)i
(Expressions)241 1674 y FJ(PART)c FQ(ma)m(y)j(also)e(b)s(e)g(used)g(to)
h(substitute)f(for)g(a)h(giv)m(en)g(part)g(of)f(an)h(expression.)55
b(In)241 1787 y(this)26 b(case,)j(the)e FJ(PART)f FQ(construct)h(app)s
(ears)f(on)h(the)h(left-hand)e(side)g(of)h(an)g(assignmen)m(t)241
1900 y(statemen)m(t,)39 b(and)c(the)h(expression)e(to)j(replace)e(the)h
(giv)m(en)g(part)f(on)h(the)g(righ)m(t-hand)241 2013
y(side.)241 2162 y(F)-8 b(or)31 b(example,)f(with)f(the)i(normal)e
(settings)i(of)f(the)h(REDUCE)f(switc)m(hes:)589 2368
y FH(xx)43 b(:=)g(a+b;)589 2468 y(part\(xx,2\))d(:=)j(c;)130
b(->)86 b(A+C)589 2568 y(part\(c+d,0\))39 b(:=)k(-;)130
b(->)43 b(C-D)241 2787 y FQ(Note)32 b(that)g FJ(xx)e
FQ(in)g(the)h(ab)s(o)m(v)m(e)h(is)e(not)i(c)m(hanged)f(b)m(y)g(this)f
(substitution.)41 b(In)30 b(addition,)241 2900 y(unlik)m(e)i
(expressions)h(suc)m(h)h(as)g(arra)m(y)h(and)e(matrix)h(elemen)m(ts)g
(that)h(ha)m(v)m(e)g(an)f FD(instant)241 3013 y(evaluation)47
b FQ(prop)s(ert)m(y)-8 b(,)42 b(the)e(v)-5 b(alues)38
b(of)i FJ(part\(xx,2\))d FQ(and)h FJ(part\(c+d,0\))f
FQ(are)j(also)241 3126 y(not)30 b(c)m(hanged.)p eop
%%Page: 132 132
132 131 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(132)35 b FM(CHAPTER)30 b(8.)71 b(DISPLA)-8 b(Y)31
b(AND)g(STR)m(UCTURING)f(OF)g(EXPRESSIONS)p eop
%%Page: 133 133
133 132 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(9)241 1693 y FT(P)-6 b(olynomials)75 b(and)i(Rationals)241
2186 y FQ(Man)m(y)34 b(op)s(erations)e(in)h(computer)g(algebra)g(are)h
(concerned)f(with)g(p)s(olynomials)d(and)241 2286 y(rational)44
b(functions.)83 b(In)44 b(this)g(section,)49 b(w)m(e)c(review)f(some)h
(of)g(the)h(switc)m(hes)e(and)241 2385 y(op)s(erators)c(a)m(v)-5
b(ailable)39 b(for)h(this)f(purp)s(ose.)67 b(These)40
b(are)g(in)f(addition)f(to)i(those)h(that)241 2485 y(w)m(ork)35
b(on)g(general)h(expressions)d(\(suc)m(h)j(as)f FJ(DF)g
FQ(and)g FJ(INT)p FQ(\))f(describ)s(ed)f(elsewhere.)55
b(In)241 2585 y(the)23 b(case)h(of)f(op)s(erators,)h(the)f(argumen)m
(ts)g(are)h(\014rst)e(simpli\014ed)d(b)s(efore)j(the)h(op)s(erations)
241 2684 y(are)45 b(applied.)82 b(In)44 b(addition,)i(they)f(op)s
(erate)h(only)d(on)i(argumen)m(ts)g(of)g(prescrib)s(ed)241
2784 y(t)m(yp)s(es,)30 b(and)f(pro)s(duce)g(a)h(t)m(yp)s(e)g(mismatc)m
(h)f(error)h(if)f(giv)m(en)g(argumen)m(ts)h(whic)m(h)f(cannot)241
2883 y(b)s(e)35 b(in)m(terpreted)g(in)f(the)i(required)e(mo)s(de)i
(with)e(the)i(curren)m(t)g(switc)m(h)f(settings.)57 b(F)-8
b(or)241 2983 y(example,)29 b(if)f(an)g(argumen)m(t)i(is)d(required)g
(to)j(b)s(e)e(a)h(k)m(ernel)g(and)f FJ(a/2)g FQ(is)g(used)g(\(with)g
(no)241 3083 y(other)i(rules)f(for)h FJ(A)p FQ(\),)h(an)f(error)589
3289 y FH(A/2)43 b(invalid)d(as)j(kernel)241 3508 y FQ(will)27
b(result.)241 3671 y(With)40 b(the)i(exception)f(of)h(those)f(that)h
(select)g(v)-5 b(arious)40 b(parts)h(of)g(a)h(p)s(olynomial)c(or)241
3783 y(rational)26 b(function,)g(these)h(op)s(erations)f(ha)m(v)m(e)h
(p)s(oten)m(tially)f(signi\014can)m(t)f(e\013ects)j(on)e(the)241
3896 y(space)32 b(and)f(time)g(asso)s(ciated)h(with)e(a)h(giv)m(en)h
(calculation.)43 b(The)31 b(user)g(should)e(there-)241
4009 y(fore)k(exp)s(erimen)m(t)e(with)h(their)f(use)i(in)e(a)i(giv)m
(en)g(calculation)f(in)f(order)h(to)h(determine)241 4122
y(the)d(optim)m(um)g(set)h(for)f(a)h(giv)m(en)f(problem.)241
4272 y(One)35 b(suc)m(h)h(op)s(eration)f(pro)m(vided)f(b)m(y)i(the)g
(system)g(is)f(an)h(op)s(erator)g FJ(LENGTH)70 b FQ(whic)m(h)241
4371 y(returns)25 b(the)i(n)m(um)m(b)s(er)e(of)h(top)h(lev)m(el)f
(terms)g(in)f(the)i(n)m(umerator)f(of)h(its)f(argumen)m(t.)40
b(F)-8 b(or)241 4471 y(example,)589 4677 y FH(length)42
b(\(\(a+b+c\)^3/\(c+d)o(\)\);)241 4883 y FQ(has)24 b(the)i(v)-5
b(alue)24 b(10.)40 b(T)-8 b(o)25 b(get)h(the)g(n)m(um)m(b)s(er)d(of)i
(terms)g(in)f(the)h(denominator,)g(one)h(w)m(ould)1667
5187 y(133)p eop
%%Page: 134 134
134 133 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(134)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FQ(\014rst)27 b(select)h(the)g
(denominator)f(b)m(y)g(the)h(op)s(erator)g FJ(DEN)e FQ(and)h(then)g
(call)g FJ(LENGTH)p FQ(,)f(as)i(in)1013 761 y FH(length)41
b(den)h(\(\(a+b+c\)^3/\(c+d\)\))o(;)664 980 y FQ(Other)31
b(op)s(erations)g(curren)m(tly)g(supp)s(orted,)f(the)i(relev)-5
b(an)m(t)31 b(switc)m(hes)h(and)e(op)s(erators,)664 1093
y(and)g(the)h(required)d(argumen)m(t)j(and)f(v)-5 b(alue)30
b(mo)s(des)f(of)i(the)f(latter,)h(follo)m(w.)664 1248
y @beginspecial @setspecial @endspecial 181 x FE(9.1)136
b(Con)l(trolling)46 b(the)f(Expansion)h(of)f(Expressions)664
1682 y FQ(The)30 b(switc)m(h)f FJ(EXP)g FQ(con)m(trols)i(the)f
(expansion)f(of)h(expressions.)39 b(If)30 b(it)f(is)g(o\013,)i(no)f
(expan-)664 1795 y(sion)c(of)g(p)s(o)m(w)m(ers)h(or)f(pro)s(ducts)f(of)
i(expressions)e(o)s(ccurs.)39 b(Users)26 b(should)e(note)k(ho)m(w)m(ev)
m(er)664 1908 y(that)37 b(in)d(this)h(case)i(results)e(come)i(out)g(in)
d(a)j(normal)e(but)g(not)h(necessarily)f(canoni-)664
2021 y(cal)h(form.)55 b(This)33 b(means)i(that)h(zero)g(expressions)e
(simplify)e(to)k(zero,)i(but)d(that)h(t)m(w)m(o)664 2134
y(equiv)-5 b(alen)m(t)30 b(expressions)f(need)h(not)h(necessarily)e
(simplify)e(to)k(the)g(same)f(form.)664 2283 y FD(Example:)42
b FQ(With)29 b FJ(EXP)h FQ(on,)g(the)h(t)m(w)m(o)h(expressions)1013
2489 y FH(\(a+b\)*\(a+2*b\))664 2695 y FQ(and)1013 2901
y FH(a^2+3*a*b+2*b^2)664 3120 y FQ(will)41 b(b)s(oth)i(simplify)d(to)k
(the)g(latter)g(form.)80 b(With)43 b FJ(EXP)f FQ(o\013,)48
b(they)c(w)m(ould)e(remain)664 3233 y(unc)m(hanged,)h(unless)c(the)i
(complete)g(factoring)g FJ(\(ALLFAC\))d FQ(option)j(w)m(ere)g(in)e
(force.)664 3346 y FJ(EXP)30 b FQ(is)f(normally)g(on.)664
3495 y(Sev)m(eral)37 b(op)s(erators)f(that)h(exp)s(ect)g(a)g(p)s
(olynomial)c(as)k(an)f(argumen)m(t)h(b)s(eha)m(v)m(e)g(di\013er-)664
3595 y(en)m(tly)27 b(when)e FJ(EXP)h FQ(is)f(o\013,)j(since)e(there)g
(is)g(often)h(only)e(one)i(term)g(at)g(the)f(top)h(lev)m(el.)39
b(F)-8 b(or)664 3695 y(example,)30 b(with)g FJ(EXP)f
FQ(o\013)1013 3901 y FH(length\(\(a+b+c\)^3)o(/\()o(c+d)o(\)\))o(;)664
4120 y FQ(returns)g(the)i(v)-5 b(alue)30 b(1.)664 4257
y @beginspecial @setspecial @endspecial 199 x FE(9.2)136
b(F)-11 b(actorization)45 b(of)h(P)l(olynomials)664 4709
y FQ(REDUCE)31 b(is)f(capable)h(of)g(factorizing)g(univ)-5
b(ariate)29 b(and)i(m)m(ultiv)-5 b(ariate)30 b(p)s(olynomials)664
4822 y(that)h(ha)m(v)m(e)g(in)m(teger)f(co)s(e\016cien)m(ts,)h
(\014nding)c(all)i(factors)i(that)f(also)g(ha)m(v)m(e)h(in)m(teger)f
(co)s(ef-)664 4935 y(\014cien)m(ts.)45 b(The)31 b(pac)m(k)-5
b(age)34 b(for)d(doing)g(this)g(w)m(as)h(written)f(b)m(y)h(Dr.)44
b(Arth)m(ur)31 b(C.)h(Norman)p eop
%%Page: 135 135
135 134 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.2.)72 b(F)-10 b(A)m(CTORIZA)i(TION)29 b(OF)i(POL)-8
b(YNOMIALS)998 b FQ(135)241 555 y(and)38 b(Ms.)66 b(P)-8
b(.)40 b(Mary)f(Ann)f(Mo)s(ore)h(at)h(The)e(Univ)m(ersit)m(y)g(of)h
(Cam)m(bridge.)65 b(It)39 b(is)f(de-)241 668 y(scrib)s(ed)26
b(in)h(P)-8 b(.)29 b(M.)f(A.)h(Mo)s(ore)g(and)f(A.)g(C.)g(Norman,)h
(\\Implemen)m(ting)e(a)i(P)m(olynomial)241 781 y(F)-8
b(actorization)37 b(and)e(GCD)g(P)m(ac)m(k)-5 b(age",)41
b(Pro)s(c.)55 b(SYMSA)m(C)36 b('81,)i(A)m(CM)e(\(New)g(Y)-8
b(ork\))241 894 y(\(1981\),)33 b(109-116.)241 1057 y(The)g(easiest)h(w)
m(a)m(y)g(to)g(use)f(this)g(facilit)m(y)f(is)h(to)h(turn)e(on)h(the)h
(switc)m(h)f FJ(FACTOR)p FQ(,)f(whic)m(h)241 1170 y(causes)k(all)e
(expressions)g(to)i(b)s(e)f(output)g(in)f(a)i(factored)g(form.)56
b(F)-8 b(or)36 b(example,)h(with)241 1282 y FJ(FACTOR)28
b FQ(on,)j(the)g(expression)e FJ(A^2-B^2)f FQ(is)h(returned)h(as)g
FJ(\(A+B\)*\(A-B\))p FQ(.)241 1432 y(It)38 b(is)f(also)h(p)s(ossible)e
(to)j(factorize)g(a)g(giv)m(en)f(expression)f(explicitly)-8
b(.)62 b(The)37 b(op)s(erator)241 1532 y FJ(FACTORIZE)28
b FQ(that)j(in)m(v)m(ok)m(es)g(this)e(facilit)m(y)h(is)f(used)h(with)f
(the)h(syn)m(tax)459 1737 y FH(FACTORIZE\(EXPRN)o(:po)o(ly)o(nom)o(ia)o
(l[,)o(IN)o(TE)o(XP:)o(pr)o(ime)37 b(integer]\):list,)241
1943 y FQ(the)g(optional)f(argumen)m(t)i(of)f(whic)m(h)f(will)e(b)s(e)i
(describ)s(ed)f(later.)61 b(Th)m(us)36 b(to)i(\014nd)d(and)241
2043 y(displa)m(y)28 b(all)i(factors)h(of)f(the)h(cyclotomic)g(p)s
(olynomial)d FL(x)2206 2010 y FO(105)2336 2043 y FP(\000)20
b FQ(1,)31 b(one)f(could)g(write:)589 2249 y FH(factorize\(x^105-1)o
(\);)241 2455 y FQ(The)h(result)f(is)h(a)h(list)e(of)i(factor,exp)s
(onen)m(t)h(pairs.)43 b(In)30 b(the)i(ab)s(o)m(v)m(e)h(example,)f
(there)f(is)241 2554 y(no)j(o)m(v)m(erall)h(n)m(umerical)e(factor)i(in)
e(the)h(result,)h(so)g(the)f(results)f(will)f(consist)i(only)f(of)241
2654 y(p)s(olynomials)19 b(in)h(x.)38 b(The)22 b(n)m(um)m(b)s(er)e(of)i
(suc)m(h)g(p)s(olynomials)d(can)j(b)s(e)f(found)g(b)m(y)h(using)e(the)
241 2754 y(op)s(erator)31 b FJ(LENGTH)p FQ(.)f(If)h(there)h(is)e(a)i(n)
m(umerical)e(factor,)j(as)e(in)f(factorizing)i(12)p FL(x)2961
2721 y FO(2)3022 2754 y FP(\000)20 b FQ(12,)241 2853
y(that)27 b(factor)h(will)d(app)s(ear)h(as)h(the)h(\014rst)e(mem)m(b)s
(er)g(of)i(the)f(result.)38 b(It)27 b(will)e(ho)m(w)m(ev)m(er)j(not)241
2953 y(b)s(e)35 b(factored)i(further.)55 b(Prime)35 b(factors)i(of)f
(suc)m(h)f(n)m(um)m(b)s(ers)f(can)j(b)s(e)e(found,)h(using)e(a)241
3053 y(probabilistic)27 b(algorithm,)i(b)m(y)i(turning)d(on)i(the)h
(switc)m(h)f FJ(IFACTOR)p FQ(.)e(F)-8 b(or)32 b(example,)589
3258 y FH(on)43 b(ifactor;)d(factorize\(12x^2-1)o(2\);)241
3464 y FQ(w)m(ould)29 b(result)g(in)g(the)i(output)589
3670 y FH({{2,2},{3,1},{X)38 b(+)43 b(1,1},{X)e(-)i(1,1}}.)241
3889 y FQ(If)29 b(the)h(\014rst)f(argumen)m(t)h(of)g
FJ(FACTORIZE)d FQ(is)i(an)g(in)m(teger,)i(it)e(will)e(b)s(e)i(decomp)s
(osed)h(in)m(to)241 4002 y(its)g(prime)e(comp)s(onen)m(ts,)j(whether)f
(or)g(not)h FJ(IFACTOR)d FQ(is)i(on.)241 4165 y(Note)37
b(that)f(the)f FJ(IFACTOR)f FQ(switc)m(h)h(only)f(a\013ects)j(the)f
(result)e(of)i FJ(FACTORIZE)p FQ(.)d(It)j(has)241 4278
y(no)30 b(e\013ect)i(if)d(the)i FJ(FACTOR)d FQ(switc)m(h)i(is)g(also)g
(on.)241 4441 y(The)38 b(order)g(in)f(whic)m(h)g(the)i(factors)g(o)s
(ccur)f(in)f(the)i(result)e(\(with)h(the)h(exception)f(of)241
4554 y(a)43 b(p)s(ossible)e(o)m(v)m(erall)i(n)m(umerical)f(co)s
(e\016cien)m(t)h(whic)m(h)f(comes)i(\014rst\))f(can)g(b)s(e)f(system)
241 4666 y(dep)s(enden)m(t)35 b(and)g(should)g(not)h(b)s(e)f(relied)g
(on.)58 b(Similarly)32 b(it)k(should)e(b)s(e)i(noted)g(that)241
4779 y(an)m(y)26 b(pair)e(of)i(individual)21 b(factors)27
b(can)f(b)s(e)f(negated)i(without)e(altering)g(their)f(pro)s(duct,)241
4892 y(and)30 b(that)h(REDUCE)f(ma)m(y)h(sometimes)f(do)g(that.)p
eop
%%Page: 136 136
136 135 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(136)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FQ(The)36 b(factorizer)g(w)m(orks)g
(b)m(y)g(\014rst)g(reducing)e(m)m(ultiv)-5 b(ariate)35
b(problems)f(to)j(univ)-5 b(ariate)664 668 y(ones)28
b(and)e(then)h(solving)f(the)i(univ)-5 b(ariate)26 b(ones)h(mo)s(dulo)f
(small)f(primes.)38 b(It)28 b(normally)664 781 y(selects)35
b(b)s(oth)f(ev)-5 b(aluation)35 b(p)s(oin)m(ts)e(and)h(primes)f(using)g
(a)j(random)d(n)m(um)m(b)s(er)h(genera-)664 894 y(tor)e(that)f(should)e
(lead)i(to)h(di\013eren)m(t)e(detailed)g(b)s(eha)m(vior)g(eac)m(h)i
(time)f(an)m(y)h(particular)664 1007 y(problem)26 b(is)h(tac)m(kled.)41
b(If,)28 b(for)g(some)g(reason,)h(it)e(is)g(kno)m(wn)h(that)g(a)h
(certain)e(\(probably)664 1120 y(univ)-5 b(ariate\))32
b(factorization)i(can)g(b)s(e)e(p)s(erformed)g(e\013ectiv)m(ely)i(with)
e(a)h(kno)m(wn)g(prime,)664 1233 y FJ(P)j FQ(sa)m(y)-8
b(,)39 b(this)c(v)-5 b(alue)35 b(of)h FJ(P)g FQ(can)g(b)s(e)f(handed)g
(to)i FJ(FACTORIZE)d FQ(as)i(a)g(second)g(argumen)m(t.)664
1346 y(An)27 b(error)g(will)e(o)s(ccur)j(if)e(a)i(non-prime)e(is)g(pro)
m(vided)h(to)h FJ(FACTORIZE)d FQ(in)h(this)g(manner.)664
1458 y(It)38 b(is)g(also)g(an)g(error)f(to)i(sp)s(ecify)e(a)i(prime)d
(that)j(divides)d(the)i(discriminan)m(t)d(of)k(the)664
1571 y(p)s(olynomial)29 b(b)s(eing)i(factored,)i(but)e(users)g(should)f
(note)i(that)h(this)d(condition)h(is)g(not)664 1684 y(c)m(hec)m(k)m(ed)
i(b)m(y)d(the)g(program,)h(so)f(this)g(capabilit)m(y)f(should)f(b)s(e)i
(used)g(with)f(care.)664 1834 y(F)-8 b(actorization)31
b(can)e(b)s(e)f(p)s(erformed)g(o)m(v)m(er)i(a)g(n)m(um)m(b)s(er)d(of)j
(p)s(olynomial)c(co)s(e\016cien)m(t)k(do-)664 1933 y(mains)40
b(in)g(addition)g(to)i(in)m(tegers.)74 b(The)41 b(particular)f
(description)f(of)j(the)g(relev)-5 b(an)m(t)664 2033
y(domain)31 b(should)f(b)s(e)i(consulted)f(to)i(see)f(if)f
(factorization)i(is)e(supp)s(orted.)44 b(F)-8 b(or)33
b(exam-)664 2133 y(ple,)d(the)g(follo)m(wing)f(statemen)m(ts)j(will)c
(factorize)k FL(x)2425 2100 y FO(4)2484 2133 y FQ(+)20
b(1)31 b(mo)s(dulo)e(7:)1013 2339 y FH(setmod)41 b(7;)1013
2438 y(on)i(modular;)1013 2538 y(factorize\(x^4+1\))o(;)664
2744 y FQ(The)24 b(factorization)h(mo)s(dule)e(is)h(pro)m(vided)f(with)
g(a)i(trace)g(facilit)m(y)f(that)h(ma)m(y)g(b)s(e)f(useful)664
2843 y(as)29 b(a)g(w)m(a)m(y)h(of)f(monitoring)e(progress)i(on)f(large)
h(problems,)f(and)g(of)h(satisfying)f(curios-)664 2943
y(it)m(y)h(ab)s(out)g(the)h(in)m(ternal)e(w)m(orkings)g(of)h(the)h(pac)
m(k)-5 b(age.)42 b(The)29 b(most)h(simple)d(use)i(of)g(this)664
3043 y(is)k(enabled)f(b)m(y)h(issuing)e(the)j(REDUCE)f(command)h
FJ(on)47 b(trfac;)33 b FQ(.)50 b(F)-8 b(ollo)m(wing)33
b(this,)664 3142 y(all)39 b(calls)g(to)h(the)g(factorizer)h(will)c
(generate)k(informativ)m(e)e(messages)i(rep)s(orting)d(on)664
3242 y(suc)m(h)33 b(things)g(as)h(the)f(reduction)g(of)h(m)m(ultiv)-5
b(ariate)32 b(to)j(univ)-5 b(ariate)32 b(cases,)j(the)f(c)m(hoice)664
3341 y(of)c(a)h(prime)d(and)i(the)g(reconstruction)g(of)g(full)e
(factors)j(from)e(their)g(images.)41 b(F)-8 b(urther)664
3441 y(lev)m(els)24 b(of)g(detail)g(in)f(the)h(trace)i(are)e(in)m
(tended)g(mainly)e(for)i(system)h(tuners)e(and)h(for)g(the)664
3541 y(in)m(v)m(estigation)29 b(of)g(susp)s(ected)g(bugs.)39
b(F)-8 b(or)30 b(example,)f FJ(TRALLFAC)e FQ(giv)m(es)i(tracing)g
(infor-)664 3640 y(mation)34 b(at)h(all)f(lev)m(els)g(of)g(detail.)52
b(The)34 b(switc)m(h)g(that)h(can)g(b)s(e)f(set)h(b)m(y)f
FJ(on)47 b(timings;)664 3740 y FQ(mak)m(es)31 b(it)e(p)s(ossible)e(for)
j(one)g(who)f(is)g(familiar)f(with)g(the)i(algorithms)f(used)g(to)h
(deter-)664 3840 y(mine)j(what)h(part)f(of)h(the)g(factorization)h(co)s
(de)f(is)f(consuming)f(the)i(most)h(resources.)664 3939
y FJ(on)47 b(overview)p FQ(;)23 b(reduces)f(the)h(amoun)m(t)f(of)h
(detail)e(presen)m(ted)h(in)f(other)i(forms)e(of)h(trace.)664
4039 y(Other)30 b(forms)g(of)g(trace)i(output)e(are)h(enabled)e(b)m(y)h
(directiv)m(es)g(of)h(the)f(form)1013 4245 y FH(symbolic)40
b(set!-trace!-facto)o(r\()o(<n)o(umb)o(er)o(>,<)o(fi)o(le)o(nam)o(e>)o
(\);)664 4451 y FQ(where)29 b(useful)e(n)m(um)m(b)s(ers)h(are)i(1,)g
(2,)g(3)g(and)f(100,)i(101,)g(...)41 b(.)f(This)27 b(facilit)m(y)i(is)f
(in)m(tended)664 4550 y(to)37 b(mak)m(e)h(it)e(p)s(ossible)e(to)j
(disco)m(v)m(er)g(in)e(fairly)f(great)k(detail)d(what)i(just)f(some)g
(small)664 4650 y(part)f(of)g(the)g(co)s(de)h(has)e(b)s(een)h(doing)f
(|)g(the)i(n)m(um)m(b)s(ers)d(refer)i(mainly)e(to)j(depths)e(of)664
4749 y(recursion)e(when)h(the)g(factorizer)h(calls)f(itself,)g(and)g
(to)i(the)e(split)f(b)s(et)m(w)m(een)i(its)f(w)m(ork)664
4849 y(forming)j(and)g(factorizing)h(images)g(and)f(reconstructing)g
(full)f(factors)j(from)e(these.)664 4949 y(If)e FJ(NIL)f
FQ(is)g(used)g(in)f(place)i(of)g(a)h(\014lename)e(the)h(trace)h(output)
f(requested)g(is)f(directed)p eop
%%Page: 137 137
137 136 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.3.)72 b(CANCELLA)-8 b(TION)29 b(OF)i(COMMON)f(F)-10
b(A)m(CTORS)801 b FQ(137)241 555 y(to)28 b(the)f(standard)g(output)g
(stream.)40 b(After)27 b(use)g(of)h(this)e(trace)j(facilit)m(y)d(the)h
(generated)241 655 y(trace)k(\014les)f(should)e(b)s(e)i(closed)g(b)m(y)
g(calling)589 861 y FH(symbolic)41 b(close!-trace!-fi)o(le)o(s\()o(\);)
241 1080 y FD(NOTE:)29 b FQ(Using)g(the)i(factorizer)g(with)e
FJ(MCD)h FQ(o\013)g(will)e(result)h(in)g(an)i(error.)241
1235 y @beginspecial @setspecial @endspecial 181 x FE(9.3)135
b(Cancellation)47 b(of)e(Common)h(F)-11 b(actors)241
1669 y FQ(F)j(acilities)40 b(are)g(a)m(v)-5 b(ailable)40
b(in)g(REDUCE)g(for)g(cancelling)g(common)h(factors)g(in)e(the)241
1782 y(n)m(umerators)27 b(and)g(denominators)f(of)i(expressions,)e(at)j
(the)e(option)g(of)g(the)h(user.)39 b(The)241 1895 y(system)27
b(will)e(p)s(erform)h(this)g(greatest)j(common)f(divisor)d(computation)
i(if)g(the)g(switc)m(h)241 2008 y FJ(GCD)i FQ(is)h(on.)40
b(\()p FJ(GCD)30 b FQ(is)g(normally)e(o\013.\))241 2170
y(A)34 b(c)m(hec)m(k)h(is)e(automatically)h(made,)h(ho)m(w)m(ev)m(er,)i
(for)d(common)g(v)-5 b(ariable)33 b(and)g(n)m(umer-)241
2283 y(ical)i(pro)s(ducts)f(in)h(the)h(n)m(umerators)f(and)g
(denominators)g(of)h(expressions,)g(and)f(the)241 2396
y(appropriate)29 b(cancellations)h(made.)241 2559 y(When)35
b FJ(GCD)g FQ(is)f(on,)j(and)e FJ(EXP)g FQ(is)f(o\013,)k(a)e(c)m(hec)m
(k)h(is)e(made)g(for)g(square)h(free)f(factors)i(in)241
2672 y(an)27 b(expression.)38 b(This)26 b(includes)e(separating)j(out)h
(and)e(indep)s(enden)m(tly)e(c)m(hec)m(king)k(the)241
2785 y(con)m(ten)m(t)40 b(of)f(a)g(giv)m(en)g(p)s(olynomial)d(where)i
(appropriate.)65 b(\(F)-8 b(or)40 b(an)f(explanation)e(of)241
2898 y(these)g(terms,)i(see)f(An)m(thon)m(y)f(C.)g(Hearn,)i(\\Non-Mo)s
(dular)e(Computation)f(of)h(P)m(oly-)241 3011 y(nomial)j(GCDs)i(Using)f
(T)-8 b(rial)40 b(Division",)j(Pro)s(c.)75 b(EUR)m(OSAM)42
b(79,)j(published)38 b(as)241 3123 y(Lecture)43 b(Notes)h(on)e(Comp.)77
b(Science,)45 b(Springer-V)-8 b(erlag,)45 b(Berlin,)f(No)g(72)f
(\(1979\))241 3236 y(227-239.\))241 3399 y FD(Example:)38
b FQ(With)23 b FJ(EXP)g FQ(o\013)h(and)f FJ(GCD)g FQ(on,)i(the)f(p)s
(olynomial)d FJ(a*c+a*d+b*c+b*d)f FQ(w)m(ould)241 3512
y(b)s(e)30 b(returned)f(as)h FJ(\(A+B\)*\(C+D\))p FQ(.)241
3675 y(Under)35 b(normal)g(circumstances,)j(GCDs)e(are)h(computed)f
(using)f(an)h(algorithm)f(de-)241 3788 y(scrib)s(ed)40
b(in)i(the)h(ab)s(o)m(v)m(e)h(pap)s(er.)76 b(It)43 b(is)f(also)h(p)s
(ossible)d(in)h(REDUCE)i(to)g(compute)241 3901 y(GCDs)30
b(using)f(an)h(alternativ)m(e)g(algorithm,)f(called)h(the)g(EZGCD)g
(Algorithm,)f(whic)m(h)241 4013 y(uses)e(mo)s(dular)f(arithmetic.)39
b(The)27 b(switc)m(h)g FJ(EZGCD)p FQ(,)g(if)g(on)h(in)e(addition)g(to)i
FJ(GCD)p FQ(,)g(mak)m(es)241 4126 y(this)h(happ)s(en.)241
4289 y(In)d(non-trivial)f(cases,)k(the)e(EZGCD)g(algorithm)f(is)g
(almost)i(alw)m(a)m(ys)f(b)s(etter)g(than)g(the)241 4402
y(basic)g(algorithm,)g(often)h(b)m(y)f(orders)g(of)g(magnitude.)39
b(W)-8 b(e)29 b(therefore)f FD(str)-5 b(ongly)37 b FQ(advise)241
4515 y(users)f(to)i(use)e(the)h FJ(EZGCD)f FQ(switc)m(h)g(where)h(they)
g(ha)m(v)m(e)h(the)f(resources)g(a)m(v)-5 b(ailable)37
b(for)241 4628 y(supp)s(orting)28 b(the)i(pac)m(k)-5
b(age.)241 4791 y(F)d(or)34 b(a)f(description)f(of)h(the)g(EZGCD)g
(algorithm,)g(see)h(J.)f(Moses)h(and)f(D.Y.Y.)i(Y)-8
b(un,)241 4903 y(\\The)29 b(EZ)f(GCD)h(Algorithm",)g(Pro)s(c.)40
b(A)m(CM)30 b(1973,)h(A)m(CM,)f(New)f(Y)-8 b(ork)29 b(\(1973\))j(159-)p
eop
%%Page: 138 138
138 137 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(138)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FQ(166.)664 718 y FD(NOTE:)34
b FQ(This)g(pac)m(k)-5 b(age)37 b(shares)e(co)s(de)g(with)f(the)i
(factorizer,)h(so)f(a)f(certain)g(amoun)m(t)664 831 y(of)c(trace)g
(information)e(can)i(b)s(e)e(pro)s(duced)g(using)g(the)h(factorizer)i
(trace)f(switc)m(hes.)664 976 y @beginspecial @setspecial
@endspecial 148 x FR(9.3.1)113 b(Determining)35 b(the)i(GCD)g(of)h(Tw)m
(o)f(P)m(olynomials)664 1332 y FQ(This)29 b(op)s(erator,)i(used)e(with)
g(the)i(syn)m(tax)1013 1538 y FH(GCD\(EXPRN1:polyn)o(om)o(ial)o(,E)o
(XPR)o(N2)o(:p)o(oly)o(no)o(mia)o(l\))o(:p)o(oly)o(no)o(mia)o(l,)664
1757 y FQ(returns)41 b(the)h(greatest)h(common)f(divisor)e(of)i(the)g
(t)m(w)m(o)h(p)s(olynomials)38 b FJ(EXPRN1)j FQ(and)664
1870 y FJ(EXPRN2)p FQ(.)664 2020 y FD(Examples:)1013
2226 y FH(gcd\(x^2+2*x+1,x^)o(2+)o(3*x)o(+2)o(\))d(->)86
b(X+1)1013 2325 y(gcd\(2*x^2-2*y^2,)o(4*)o(x+4)o(*y)o(\))38
b(->)86 b(2*X+2*Y)1013 2425 y(gcd\(x^2+y^2,x-y\))386
b(->)86 b(1.)664 2580 y @beginspecial @setspecial @endspecial
181 x FE(9.4)136 b(W)-11 b(orking)45 b(with)g(Least)h(Common)f
(Multiples)664 3014 y FQ(Greatest)33 b(common)e(divisor)d(calculations)
i(can)h(often)g(b)s(ecome)g(exp)s(ensiv)m(e)f(if)g(exten-)664
3127 y(siv)m(e)43 b(w)m(ork)f(with)f(large)i(rational)f(expressions)f
(is)g(required.)76 b(Ho)m(w)m(ev)m(er,)48 b(in)41 b(man)m(y)664
3240 y(cases,)29 b(the)f(only)e(signi\014can)m(t)g(cancellations)h
(arise)f(from)h(the)h(fact)g(that)f(there)h(are)f(of-)664
3353 y(ten)k(common)h(factors)g(in)d(the)i(v)-5 b(arious)30
b(denominators)h(whic)m(h)e(are)j(com)m(bined)e(when)664
3465 y(t)m(w)m(o)36 b(rationals)d(are)h(added.)52 b(Since)33
b(these)h(denominators)g(tend)f(to)i(b)s(e)f(smaller)f(and)664
3578 y(more)27 b(regular)f(in)f(structure)i(than)f(the)h(n)m
(umerators,)h(considerable)d(sa)m(vings)h(in)g(b)s(oth)664
3691 y(time)c(and)g(space)h(can)f(o)s(ccur)g(if)f(a)i(full)d(GCD)j(c)m
(hec)m(k)h(is)d(made)h(when)f(the)i(denominators)664
3804 y(are)k(com)m(bined)f(and)h(only)f(a)h(partial)f(c)m(hec)m(k)i
(when)e(n)m(umerators)h(are)g(constructed.)40 b(In)664
3917 y(other)d(w)m(ords,)i(the)e(true)g(least)g(common)g(m)m(ultiple)e
(of)i(the)g(denominators)f(is)g(com-)664 4030 y(puted)k(at)i(eac)m(h)g
(step.)72 b(The)41 b(switc)m(h)f FJ(LCM)g FQ(is)g(a)m(v)-5
b(ailable)40 b(for)h(this)f(purp)s(ose,)i(and)e(is)664
4143 y(normally)29 b(on.)664 4292 y(In)h(addition,)f(the)h(op)s(erator)
h FJ(LCM)p FQ(,)f(used)f(with)g(the)i(syn)m(tax)1013
4498 y FH(LCM\(EXPRN1:polyn)o(om)o(ial)o(,E)o(XPR)o(N2)o(:p)o(oly)o(no)
o(mia)o(l\))o(:p)o(oly)o(no)o(mia)o(l,)664 4717 y FQ(returns)48
b(the)h(least)g(common)g(m)m(ultiple)e(of)i(the)g(t)m(w)m(o)h(p)s
(olynomials)c FJ(EXPRN1)i FQ(and)664 4830 y FJ(EXPRN2)p
FQ(.)p eop
%%Page: 139 139
139 138 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.5.)72 b(CONTR)m(OLLING)29 b(USE)h(OF)h(COMMON)f(DENOMINA)-8
b(TORS)306 b FQ(139)241 555 y FD(Examples:)589 761 y
FH(lcm\(x^2+2*x+1,x^2)o(+3*)o(x+)o(2\))37 b(->)86 b(X**3)42
b(+)i(4*X**2)d(+)i(5*X)f(+)h(2)589 861 y(lcm\(2*x^2-2*y^2,4)o(*x+)o(4*)
o(y\))37 b(->)86 b(4*\(X**2)41 b(-)i(Y**2\))241 1016
y @beginspecial @setspecial @endspecial 181 x FE(9.5)135
b(Con)l(trolling)47 b(Use)e(of)h(Common)f(Denominators)241
1450 y FQ(When)40 b(t)m(w)m(o)i(rational)d(functions)g(are)i(added,)i
(REDUCE)d(normally)e(pro)s(duces)i(an)241 1563 y(expression)26
b(o)m(v)m(er)i(a)g(common)f(denominator.)39 b(Ho)m(w)m(ev)m(er,)30
b(if)c(the)i(user)e(do)s(es)h(not)h(w)m(an)m(t)241 1676
y(denominators)21 b(com)m(bined,)i(he)e(or)h(she)g(can)g(turn)e(o\013)j
(the)f(switc)m(h)f FJ(MCD)43 b FQ(whic)m(h)20 b(con)m(trols)241
1788 y(this)30 b(pro)s(cess.)43 b(The)31 b(latter)g(switc)m(h)g(is)f
(particularly)f(useful)h(if)g(no)h(greatest)i(common)241
1901 y(divisor)27 b(calculations)h(are)i(desired,)e(or)h(excessiv)m(e)h
(di\013eren)m(tiation)e(of)i(rational)e(func-)241 2014
y(tions)h(is)h(required.)241 2177 y FD(CA)n(UTION:)g
FQ(With)i FJ(MCD)g FQ(o\013,)h(results)e(are)i(not)g(guaran)m(teed)g
(to)g(come)g(out)g(in)e(either)241 2290 y(normal)f(or)h(canonical)g
(form.)44 b(In)30 b(other)i(w)m(ords,)f(an)h(expression)e(equiv)-5
b(alen)m(t)31 b(to)h(zero)241 2403 y(ma)m(y)i(in)f(fact)i(not)g(b)s(e)e
(simpli\014ed)e(to)j(zero.)53 b(This)32 b(option)i(is)f(therefore)i
(most)f(useful)241 2516 y(for)c(a)m(v)m(oiding)g(expression)f(sw)m(ell)
g(during)f(in)m(termediate)j(parts)f(of)g(a)h(calculation.)241
2678 y FJ(MCD)e FQ(is)h(normally)e(on.)241 2833 y @beginspecial
@setspecial @endspecial 182 x FE(9.6)135 b(REMAINDER)46
b(Op)t(erator)241 3254 y FQ(This)28 b(op)s(erator)j(is)e(used)h(with)f
(the)i(syn)m(tax)459 3460 y FH(REMAINDER\(EXPRN)o(1:p)o(ol)o(yno)o(mi)o
(al,)o(EX)o(PR)o(N2:)o(po)o(lyn)o(om)o(ia)o(l\):)o(po)o(lyn)o(om)o(ial)
o(.)241 3679 y FQ(It)39 b(returns)f(the)h(remainder)e(when)h
FJ(EXPRN1)f FQ(is)h(divided)f(b)m(y)h FJ(EXPRN2)p FQ(.)65
b(This)37 b(is)h(the)241 3792 y(true)31 b(remainder)e(based)i(on)g(the)
g(in)m(ternal)f(ordering)g(of)h(the)g(v)-5 b(ariables,)30
b(and)h(not)g(the)241 3905 y(pseudo-remainder.)48 b(The)34
b(pseudo-remainder)65 b(and)33 b(in)g(general)g(pseudo-division)241
4018 y(of)28 b(p)s(olynomials)e(can)j(b)s(e)f(calculated)g(after)i
(loading)d(the)i FJ(polydiv)d FQ(pac)m(k)-5 b(age.)42
b(Please)241 4131 y(refer)30 b(to)h(the)g(do)s(cumen)m(tation)f(of)g
(this)g(pac)m(k)-5 b(age)32 b(for)e(details.)241 4280
y FD(Examples:)589 4486 y FH(remainder\(\(x+y\)*\()o(x+2)o(*y)o(\),x)o
(+3)o(*y)o(\))38 b(->)86 b(2*Y**2)589 4586 y(remainder\(2*x+y,2)o(\))
561 b(->)86 b(Y.)241 4805 y FD(CA)n(UTION:)40 b FQ(In)i(the)h(default)f
(case,)k(remainders)41 b(are)i(calculated)g(o)m(v)m(er)h(the)e(in)m
(te-)241 4918 y(gers.)e(If)29 b(y)m(ou)g(need)g(the)g(remainder)f(with)
f(resp)s(ect)i(to)h(another)f(domain,)g(it)f(m)m(ust)h(b)s(e)p
eop
%%Page: 140 140
140 139 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(140)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FQ(declared)30 b(explicitly)-8
b(.)664 705 y FD(Example:)1013 911 y FH(remainder\(x^2-2,)o(x+)o(sqr)o
(t\()o(2\)\))o(;)37 b(->)43 b(X^2)f(-)i(2)1013 1010 y(load_package)38
b(arnum;)1013 1110 y(defpoly)j(sqrt2**2-2;)1013 1209
y(remainder\(x^2-2,)o(x+)o(sqr)o(t2)o(\);)c(->)43 b(0)664
1365 y @beginspecial @setspecial @endspecial 181 x FE(9.7)136
b(RESUL)-11 b(T)g(ANT)43 b(Op)t(erator)664 1785 y FQ(This)29
b(is)g(used)h(with)f(the)h(syn)m(tax)882 1991 y FH(RESULTANT\(EXPRN1)o
(:po)o(ly)o(nom)o(ia)o(l,E)o(XP)o(RN)o(2:p)o(ol)o(yno)o(mi)o(al)o(,VA)o
(R:)o(ker)o(ne)o(l\):)1013 2091 y(polynomial.)664 2310
y FQ(It)i(computes)g(the)g(resultan)m(t)f(of)h(the)g(t)m(w)m(o)h(giv)m
(en)f(p)s(olynomials)d(with)h(resp)s(ect)i(to)h(the)664
2423 y(giv)m(en)40 b(v)-5 b(ariable,)42 b(the)e(co)s(e\016cien)m(ts)h
(of)f(the)g(p)s(olynomials)d(can)k(b)s(e)e(tak)m(en)i(from)f(an)m(y)664
2536 y(domain.)83 b(The)44 b(result)f(can)i(b)s(e)f(iden)m(ti\014ed)f
(as)i(the)g(determinan)m(t)f(of)h(a)g(Sylv)m(ester)664
2649 y(matrix,)36 b(but)e(can)h(often)g(also)g(b)s(e)f(though)m(t)i(of)
f(informally)d(as)j(the)g(result)f(obtained)664 2761
y(when)25 b(the)i(giv)m(en)f(v)-5 b(ariable)25 b(is)g(eliminated)g(b)s
(et)m(w)m(een)i(the)f(t)m(w)m(o)i(input)c(p)s(olynomials.)36
b(If)664 2874 y(the)30 b(t)m(w)m(o)h(input)c(p)s(olynomials)g(ha)m(v)m
(e)k(a)f(non-trivial)d(GCD)j(their)f(resultan)m(t)g(v)-5
b(anishes.)664 3037 y(The)33 b(switc)m(h)h FJ(Bezout)e
FQ(con)m(trols)i(the)g(computation)g(of)g(the)g(resultan)m(ts.)50
b(It)34 b(is)f(o\013)h(b)m(y)664 3150 y(default.)43 b(In)31
b(this)f(case)j(a)e(subresultan)m(t)f(algorithm)h(is)f(used.)43
b(If)31 b(the)h(switc)m(h)e(Bezout)664 3263 y(is)e(turned)g(on,)h(the)h
(resultan)m(t)e(is)g(computed)h(via)g(the)g(Bezout)h(Matrix.)41
b(Ho)m(w)m(ev)m(er,)31 b(in)664 3376 y(the)g(latter)f(case,)i(only)e(p)
s(olynomial)d(co)s(e\016cien)m(ts)k(are)g(p)s(ermitted.)p
eop
%%Page: 141 141
141 140 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.8.)72 b(DECOMPOSE)29 b(OPERA)-8 b(TOR)1488 b FQ(141)241
555 y(The)26 b(sign)g(con)m(v)m(en)m(tions)h(used)f(b)m(y)h(the)f
(resultan)m(t)h(function)e(follo)m(w)h(those)h(in)e(R.)i(Lo)s(os,)241
668 y(\\Computing)35 b(in)g(Algebraic)g(Extensions")h(in)f(\\Computer)g
(Algebra)h(|)g(Sym)m(b)s(olic)241 781 y(and)e(Algebraic)h
(Computation",)h(Second)f(Ed.,)h(Edited)e(b)m(y)h(B.)h(Buc)m(h)m(b)s
(erger,)h(G.E.)241 894 y(Collins)42 b(and)i(R.)i(Lo)s(os,)j(Springer-V)
-8 b(erlag,)48 b(1983.)86 b(Namely)-8 b(,)50 b(with)43
b FJ(A)i FQ(and)g FJ(B)f FQ(not)241 1007 y(dep)s(enden)m(t)29
b(on)h FJ(X)p FQ(:)1592 1238 y FH(deg\(p\)*deg\(q\))372
1337 y(resultant\(p\(x\),)o(q\()o(x\),)o(x\))o(=)38 b(\(-1\))565
b(*resultant\(q,p,)o(x\))1461 1537 y(deg\(p\))372 1636
y(resultant\(a,p\(x)o(\),)o(x\))124 b(=)44 b(a)372 1835
y(resultant\(a,b,x)o(\))255 b(=)44 b(1)241 2079 y FD(Examples:)1853
2310 y FH(2)372 2410 y(resultant\(x/r*u)o(+y)o(,u*)o(y,)o(u\))124
b(->)87 b(-)43 b(y)241 2654 y FD(c)-5 b(alculation)34
b(in)f(an)g(algebr)-5 b(aic)33 b(extension:)372 2885
y FH(load)41 b(arnum;)372 2984 y(defpoly)f(sqrt2**2)g(-)k(2;)372
3184 y(resultant\(x)39 b(+)k(sqrt2,sqrt2)c(*)k(x)g(+1,x\))f(->)g(-1)241
3428 y FD(or)33 b(in)g(a)g(mo)-5 b(dular)35 b(domain:)372
3659 y FH(setmod)41 b(17;)372 3758 y(on)h(modular;)372
3957 y(resultant\(2x+1,)o(3x)o(+4,)o(x\))168 b(->)43
b(5)241 4106 y @beginspecial @setspecial @endspecial
188 x FE(9.8)135 b(DECOMPOSE)45 b(Op)t(erator)241 4533
y FQ(The)29 b FJ(DECOMPOSE)f FQ(op)s(erator)i(tak)m(es)h(a)g(m)m(ultiv)
-5 b(ariate)29 b(p)s(olynomial)e(as)j(argumen)m(t,)h(and)241
4633 y(returns)h(an)h(expression)f(and)g(a)i(list)d(of)j(equations)e
(from)h(whic)m(h)f(the)h(original)f(p)s(oly-)241 4732
y(nomial)d(can)h(b)s(e)g(found)f(b)m(y)h(comp)s(osition.)40
b(Its)30 b(syn)m(tax)h(is:)459 4938 y FH(DECOMPOSE\(EXPRN)o(:po)o(ly)o
(nom)o(ia)o(l\):)o(li)o(st)o(.)p eop
%%Page: 142 142
142 141 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(142)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FQ(F)g(or)31 b(example:)882
761 y FH(decompose\(x^8-88)o(*x^)o(7+)o(292)o(4*)o(x^6)o(-4)o(39)o(12*)
o(x^)o(5+2)o(63)o(43)o(1*x)o(^4)o(-)1536 861 y(218900*x^3+65690)o(*x)o
(^2-)o(77)o(00*)o(x+)o(23)o(4\))1492 960 y(2)784 b(2)523
b(2)1274 1060 y(->)43 b({U)86 b(+)44 b(35*U)e(+)h(234,)f(U=V)86
b(+)43 b(10*V,)e(V=X)86 b(-)43 b(22*X})2277 1160 y(2)882
1259 y(decompose\(u^2+v^)o(2+2)o(u*)o(v+1)o(\))81 b(->)43
b({W)86 b(+)43 b(1,)g(W=U)f(+)h(V})664 1478 y FQ(Users)33
b(should)e(note)i(ho)m(w)m(ev)m(er)h(that,)g(unlik)m(e)d
(factorization,)k(this)c(decomp)s(osition)h(is)664 1591
y(not)f(unique.)664 1746 y @beginspecial @setspecial
@endspecial 182 x FE(9.9)136 b(INTERPOL)44 b(op)t(erator)664
2167 y FQ(Syn)m(tax:)1013 2373 y FH(INTERPOL\(<values)o(>,)o(<va)o(ri)o
(abl)o(e>)o(,<)o(poi)o(nt)o(s>\))o(;)664 2592 y FQ(where)32
b FJ(<values>)e FQ(and)h FJ(<points>)f FQ(are)i(lists)f(of)h(equal)g
(length)f(and)h FJ(<variable>)d FQ(is)664 2705 y(an)h(algebraic)h
(expression)e(\(preferably)g(a)i(k)m(ernel\).)664 2868
y FJ(INTERPOL)i FQ(generates)k(an)e(in)m(terp)s(olation)e(p)s
(olynomial)g FD(f)54 b FQ(in)34 b(the)i(giv)m(en)f(v)-5
b(ariable)34 b(of)664 2981 y(degree)24 b(length\()p FJ(<values>)p
FQ(\)-1.)37 b(The)23 b(unique)f(p)s(olynomial)f FD(f)42
b FQ(is)23 b(de\014ned)f(b)m(y)h(the)h(prop-)664 3094
y(ert)m(y)32 b(that)g(for)f(corresp)s(onding)e(elemen)m(ts)j
FD(v)41 b FQ(of)31 b FJ(<values>)e FQ(and)i FD(p)37 b
FQ(of)32 b FJ(<points>)d FQ(the)664 3206 y(relation)h
FL(f)10 b FQ(\()p FL(p)p FQ(\))25 b(=)g FL(v)33 b FQ(holds.)664
3369 y(The)22 b(Aitk)m(en-Neville)g(in)m(terp)s(olation)e(algorithm)i
(is)f(used)h(whic)m(h)f(guaran)m(tees)i(a)g(stable)664
3482 y(result)29 b(ev)m(en)j(with)d(rounded)f(n)m(um)m(b)s(ers)h(and)h
(an)g(ill-conditioned)d(problem.)664 3637 y @beginspecial
@setspecial @endspecial 181 x FE(9.10)136 b(Obtaining)64
b(P)l(arts)f(of)h(P)l(olynomials)h(and)e(Ratio-)1038
3968 y(nals)664 4221 y FQ(These)41 b(op)s(erators)g(select)h(v)-5
b(arious)40 b(parts)g(of)h(a)h(p)s(olynomial)c(or)j(rational)f
(function)664 4333 y(structure.)48 b(Except)33 b(for)f(the)h(cost)h(of)
f(rearrangemen)m(t)h(of)e(the)h(structure,)h(these)f(op-)664
4446 y(erations)d(tak)m(e)i(v)m(ery)f(little)e(time)h(to)h(p)s(erform.)
664 4609 y(F)-8 b(or)39 b(those)f(op)s(erators)g(in)e(this)h(section)g
(that)i(tak)m(e)g(a)f(k)m(ernel)f FJ(VAR)g FQ(as)h(their)f(second)664
4722 y(argumen)m(t,)30 b(an)f(error)f(results)g(if)f(the)i(\014rst)f
(expression)g(is)g(not)h(a)g(p)s(olynomial)d(in)i FJ(VAR)p
FQ(,)664 4835 y(although)k(the)h(co)s(e\016cien)m(ts)g(themselv)m(es)g
(can)g(b)s(e)f(rational)g(as)g(long)h(as)f(they)h(do)g(not)664
4948 y(dep)s(end)e(on)h FJ(VAR)p FQ(.)g(Ho)m(w)m(ev)m(er,)k(if)31
b(the)i(switc)m(h)f FJ(RATARG)e FQ(is)i(on,)h(denominators)f(are)h(not)
p eop
%%Page: 143 143
143 142 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.10.)72 b(OBT)-8 b(AINING)31 b(P)-8 b(AR)g(TS)31
b(OF)f(POL)-8 b(YNOMIALS)30 b(AND)h(RA)-8 b(TIONALS)53
b FQ(143)241 555 y(c)m(hec)m(k)m(ed)31 b(for)d(dep)s(endence)g(on)h
FJ(VAR)p FQ(,)f(and)g(are)i(tak)m(en)g(to)f(b)s(e)g(part)f(of)h(the)h
(co)s(e\016cien)m(ts.)241 700 y @beginspecial @setspecial
@endspecial 148 x FR(9.10.1)112 b(DEG)37 b(Op)s(erator)241
1057 y FQ(This)28 b(op)s(erator)j(is)e(used)h(with)f(the)i(syn)m(tax)
589 1262 y FH(DEG\(EXPRN:polynom)o(ial)o(,V)o(AR:)o(ke)o(rn)o(el\))o
(:i)o(nte)o(ge)o(r.)241 1482 y FQ(It)k(returns)e(the)i(leading)f
(degree)h(of)g(the)g(p)s(olynomial)d FJ(EXPRN)h FQ(in)h(the)h(v)-5
b(ariable)33 b FJ(VAR)p FQ(.)241 1595 y(If)d FJ(VAR)f
FQ(do)s(es)h(not)h(o)s(ccur)f(as)h(a)f(v)-5 b(ariable)30
b(in)f FJ(EXPRN)p FQ(,)g(0)i(is)e(returned.)241 1744
y FD(Examples:)589 1950 y FH(deg\(\(a+b\)*\(c+2*d\))o(^2,)o(a\))37
b(->)86 b(1)589 2050 y(deg\(\(a+b\)*\(c+2*d\))o(^2,)o(d\))37
b(->)86 b(2)589 2149 y(deg\(\(a+b\)*\(c+2*d\))o(^2,)o(e\))37
b(->)86 b(0.)241 2355 y FQ(Note)31 b(also)g(that)g(if)e
FJ(RATARG)g FQ(is)g(on,)589 2561 y FH(deg\(\(a+b\)^3/a,a\))299
b(->)86 b(3)241 2780 y FQ(since)27 b(in)g(this)g(case,)j(the)f
(denominator)e FJ(A)h FQ(is)f(considered)g(part)i(of)f(the)g(co)s
(e\016cien)m(ts)h(of)241 2893 y(the)g(n)m(umerator)g(in)e
FJ(A)p FQ(.)i(With)f FJ(RATARG)f FQ(o\013,)j(ho)m(w)m(ev)m(er,)h(an)d
(error)h(w)m(ould)e(result)h(in)g(this)241 3006 y(case.)241
3133 y @beginspecial @setspecial @endspecial 166 x FR(9.10.2)112
b(DEN)37 b(Op)s(erator)241 3507 y FQ(This)28 b(is)i(used)f(with)g(the)i
(syn)m(tax:)589 3713 y FH(DEN\(EXPRN:rationa)o(l\):)o(po)o(lyn)o(om)o
(ia)o(l.)241 3932 y FQ(It)k(returns)g(the)g(denominator)g(of)h(the)f
(rational)g(expression)f FJ(EXPRN)p FQ(.)h(If)g FJ(EXPRN)f
FQ(is)g(a)241 4045 y(p)s(olynomial,)28 b(1)i(is)g(returned.)241
4195 y FD(Examples:)589 4401 y FH(den\(x/y^2\))127 b(->)86
b(Y**2)589 4500 y(den\(100/6\))127 b(->)86 b(3)938 4600
y([since)41 b(100/6)h(is)h(first)e(simplified)e(to)k(50/3])589
4700 y(den\(a/4+b/6\))c(->)86 b(12)589 4799 y(den\(a+b\))215
b(->)86 b(1)241 4933 y @beginspecial @setspecial @endspecial
eop
%%Page: 144 144
144 143 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(144)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FR(9.10.3)113 b(LCOF)38
b(Op)s(erator)664 763 y FQ(LCOF)30 b(is)f(used)h(with)f(the)i(syn)m
(tax)1013 969 y FH(LCOF\(EXPRN:polyn)o(om)o(ial)o(,V)o(AR:)o(ke)o(rn)o
(el\))o(:p)o(oly)o(no)o(mi)o(al.)664 1188 y FQ(It)41
b(returns)e(the)h(leading)g(co)s(e\016cien)m(t)h(of)f(the)h(p)s
(olynomial)d FJ(EXPRN)g FQ(in)i(the)g(v)-5 b(ariable)664
1301 y FJ(VAR)p FQ(.)30 b(If)g FJ(VAR)f FQ(do)s(es)h(not)h(o)s(ccur)f
(as)h(a)g(v)-5 b(ariable)29 b(in)g FJ(EXPRN)p FQ(,)g
FJ(EXPRN)g FQ(is)g(returned.)p eop
%%Page: 145 145
145 144 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.10.)72 b(OBT)-8 b(AINING)31 b(P)-8 b(AR)g(TS)31
b(OF)f(POL)-8 b(YNOMIALS)30 b(AND)h(RA)-8 b(TIONALS)53
b FQ(145)241 555 y FD(Examples:)589 761 y FH(lcof\(\(a+b\)*\(c+2*d)o
(\)^2)o(,a)o(\))38 b(->)86 b(C**2+4*C*D+4*D**)o(2)589
861 y(lcof\(\(a+b\)*\(c+2*d)o(\)^2)o(,d)o(\))38 b(->)86
b(4*\(A+B\))589 960 y(lcof\(\(a+b\)*\(c+2*d)o(\),e)o(\))125
b(->)86 b(A*C+2*A*D+B*C+2*)o(B*)o(D)241 1099 y @beginspecial
@setspecial @endspecial 155 x FR(9.10.4)112 b(LPO)m(WER)37
b(Op)s(erator)241 1462 y FQ(Syn)m(tax:)589 1668 y FH
(LPOWER\(EXPRN:poly)o(nom)o(ia)o(l,V)o(AR)o(:k)o(ern)o(el)o(\):p)o(ol)o
(yn)o(omi)o(al)o(.)241 1887 y FQ(LPO)m(WER)28 b(returns)e(the)i
(leading)f(p)s(o)m(w)m(er)h(of)g FJ(EXPRN)e FQ(with)h(resp)s(ect)h(to)g
FJ(VAR)p FQ(.)g(If)f FJ(EXPRN)241 2000 y FQ(do)s(es)j(not)g(dep)s(end)f
(on)h FJ(VAR)p FQ(,)g(1)h(is)e(returned.)241 2149 y FD(Examples:)589
2355 y FH(lpower\(\(a+b\)*\(c+2)o(*d\))o(^2)o(,a\))37
b(->)86 b(A)589 2455 y(lpower\(\(a+b\)*\(c+2)o(*d\))o(^2)o(,d\))37
b(->)86 b(D**2)589 2554 y(lpower\(\(a+b\)*\(c+2)o(*d\))o(,e)o(\))125
b(->)86 b(1)241 2700 y @beginspecial @setspecial @endspecial
148 x FR(9.10.5)112 b(L)-9 b(TERM)37 b(Op)s(erator)241
3056 y FQ(Syn)m(tax:)589 3262 y FH(LTERM\(EXPRN:polyn)o(omi)o(al)o(,VA)
o(R:)o(ke)o(rne)o(l\))o(:po)o(ly)o(no)o(mia)o(l.)241
3481 y FQ(L)-8 b(TERM)38 b(returns)g(the)h(leading)e(term)i(of)g
FJ(EXPRN)e FQ(with)g(resp)s(ect)i(to)h FJ(VAR)p FQ(.)e(If)g
FJ(EXPRN)241 3594 y FQ(do)s(es)30 b(not)g(dep)s(end)f(on)h
FJ(VAR)p FQ(,)g FJ(EXPRN)f FQ(is)g(returned.)241 3743
y FD(Examples:)589 3949 y FH(lterm\(\(a+b\)*\(c+2*)o(d\)^)o(2,)o(a\))37
b(->)86 b(A*\(C**2+4*C*D+4*D)o(**2)o(\))589 4049 y
(lterm\(\(a+b\)*\(c+2*)o(d\)^)o(2,)o(d\))37 b(->)86 b(4*D**2*\(A+B\))
589 4148 y(lterm\(\(a+b\)*\(c+2*)o(d\),)o(e\))124 b(->)86
b(A*C+2*A*D+B*C+2*B)o(*D)241 4367 y FD(Comp)-5 b(atibility)29
b(Note:)65 b FQ(In)23 b(some)i(earlier)f(v)m(ersions)f(of)i(REDUCE,)g
FJ(LTERM)e FQ(returned)g FJ(0)241 4480 y FQ(if)28 b(the)h
FJ(EXPRN)e FQ(did)g(not)i(dep)s(end)f(on)g FJ(VAR)p FQ(.)h(In)f(the)h
(presen)m(t)g(v)m(ersion,)g FJ(EXPRN)e FQ(is)h(alw)m(a)m(ys)241
4593 y(equal)i(to)h FJ(LTERM\(EXPRN,VAR\))26 b FQ(+)k
FJ(REDUCT\(EXPRN,VAR\))p FQ(.)241 4738 y @beginspecial
@setspecial @endspecial eop
%%Page: 146 146
146 145 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(146)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FR(9.10.6)113 b(MAINV)-12
b(AR)35 b(Op)s(erator)664 763 y FQ(Syn)m(tax:)1013 969
y FH(MAINVAR\(EXPRN:po)o(ly)o(nom)o(ia)o(l\):)o(ex)o(pr)o(ess)o(io)o
(n.)664 1188 y FQ(Returns)23 b(the)h(main)f(v)-5 b(ariable)23
b(\(based)h(on)f(the)i(in)m(ternal)d(p)s(olynomial)f(represen)m
(tation\))664 1301 y(of)31 b FJ(EXPRN)p FQ(.)e(If)h FJ(EXPRN)f
FQ(is)g(a)i(domain)e(elemen)m(t,)i(0)g(is)e(returned.)664
1464 y FD(Examples:)664 1613 y FQ(Assuming)g FJ(A)h FQ(has)g(higher)f
(k)m(ernel)h(order)g(than)g FJ(B)p FQ(,)g FJ(C)p FQ(,)h(or)f
FJ(D)p FQ(:)1013 1819 y FH(mainvar\(\(a+b\)*\(c)o(+2)o(*d\))o(^2)o(\))
38 b(->)86 b(A)1013 1919 y(mainvar\(2\))650 b(->)86 b(0)664
2053 y @beginspecial @setspecial @endspecial 159 x FR(9.10.7)113
b(NUM)37 b(Op)s(erator)664 2420 y FQ(Syn)m(tax:)1013
2626 y FH(NUM\(EXPRN:ration)o(al)o(\):p)o(ol)o(yno)o(mi)o(al)o(.)664
2845 y FQ(Returns)28 b(the)i(n)m(umerator)f(of)g(the)g(rational)f
(expression)g FJ(EXPRN)p FQ(.)g(If)h FJ(EXPRN)e FQ(is)i(a)g(p)s(oly-)
664 2958 y(nomial,)g(that)i(p)s(olynomial)d(is)h(returned.)664
3108 y FD(Examples:)1013 3314 y FH(num\(x/y^2\))83 b(->)j(X)1013
3413 y(num\(100/6\))126 b(->)87 b(50)1013 3513 y(num\(a/4+b/6\))38
b(->)87 b(3*A+2*B)1013 3613 y(num\(a+b\))214 b(->)87
b(A+B)664 3747 y @beginspecial @setspecial @endspecial
159 x FR(9.10.8)113 b(REDUCT)36 b(Op)s(erator)664 4114
y FQ(Syn)m(tax:)1013 4320 y FH(REDUCT\(EXPRN:pol)o(yn)o(omi)o(al)o(,VA)
o(R:)o(ke)o(rne)o(l\))o(:po)o(ly)o(no)o(mia)o(l.)664
4539 y FQ(Returns)30 b(the)g(reductum)f(of)i FJ(EXPRN)e
FQ(with)g(resp)s(ect)h(to)h FJ(VAR)e FQ(\(i.e.,)i(the)g(part)f(of)g
FJ(EXPRN)664 4652 y FQ(left)38 b(after)g(the)g(leading)e(term)i(is)f
(remo)m(v)m(ed\).)63 b(If)38 b FJ(EXPRN)e FQ(do)s(es)h(not)h(dep)s(end)
e(on)i(the)664 4765 y(v)-5 b(ariable)29 b FJ(VAR)p FQ(,)h(0)h(is)e
(returned.)664 4914 y FD(Examples:)p eop
%%Page: 147 147
147 146 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.11.)72 b(POL)-8 b(YNOMIAL)31 b(COEFFICIENT)e(ARITHMETIC)648
b FQ(147)459 555 y FH(reduct\(\(a+b\)*\(c)o(+2*)o(d\))o(,a\))37
b(->)86 b(B*\(C)42 b(+)h(2*D\))459 655 y(reduct\(\(a+b\)*\(c)o(+2*)o
(d\))o(,d\))37 b(->)86 b(C*\(A)42 b(+)h(B\))459 754 y
(reduct\(\(a+b\)*\(c)o(+2*)o(d\))o(,e\))37 b(->)86 b(0)241
974 y FD(Comp)-5 b(atibility)32 b(Note:)68 b FQ(In)26
b(some)i(earlier)e(v)m(ersions)g(of)h(REDUCE,)g FJ(REDUCT)f
FQ(returned)241 1087 y FJ(EXPRN)32 b FQ(if)g(it)h(did)f(not)i(dep)s
(end)e(on)h FJ(VAR)p FQ(.)g(In)g(the)h(presen)m(t)f(v)m(ersion,)h
FJ(EXPRN)e FQ(is)h(alw)m(a)m(ys)241 1199 y(equal)d(to)h
FJ(LTERM\(EXPRN,VAR\))26 b FQ(+)k FJ(REDUCT\(EXPRN,VAR\))p
FQ(.)241 1354 y @beginspecial @setspecial @endspecial
182 x FE(9.11)135 b(P)l(olynomial)47 b(Co)t(e\016cien)l(t)f(Arithmetic)
241 1788 y FQ(REDUCE)36 b(allo)m(ws)g(for)h(a)g(v)-5
b(ariet)m(y)37 b(of)g(n)m(umerical)e(domains)h(for)g(the)h(n)m
(umerical)e(co-)241 1901 y(e\016cien)m(ts)h(of)g(p)s(olynomials)d(used)
i(in)f(calculations.)56 b(The)35 b(default)g(mo)s(de)g(is)g(in)m(teger)
241 2014 y(arithmetic,)i(although)e(the)i(p)s(ossibilit)m(y)32
b(of)k(using)f(real)h(co)s(e\016cien)m(ts)g(has)g(b)s(een)g(dis-)241
2127 y(cussed)28 b(elsewhere.)40 b(Rational)28 b(co)s(e\016cien)m(ts)h
(ha)m(v)m(e)h(also)f(b)s(een)f(a)m(v)-5 b(ailable)28
b(b)m(y)g(using)f(in-)241 2240 y(teger)32 b(co)s(e\016cien)m(ts)h(in)d
(b)s(oth)h(the)g(n)m(umerator)h(and)f(denominator)f(of)i(an)f
(expression,)241 2353 y(using)26 b(the)h FJ(ON)47 b(DIV)27
b FQ(option)g(to)h(prin)m(t)e(the)i(co)s(e\016cien)m(ts)g(as)f
(rationals.)39 b(Ho)m(w)m(ev)m(er,)30 b(RE-)241 2466
y(DUCE)37 b(includes)d(sev)m(eral)k(other)f(co)s(e\016cien)m(t)h
(options)e(in)g(its)g(basic)g(v)m(ersion)h(whic)m(h)241
2579 y(w)m(e)e(shall)e(describ)s(e)h(in)g(this)g(section.)54
b(All)34 b(suc)m(h)h(co)s(e\016cien)m(t)g(mo)s(des)g(are)g(supp)s
(orted)241 2692 y(in)26 b(a)h(table-driv)m(en)f(manner)g(so)i(that)g
(it)e(is)g(straigh)m(tforw)m(ard)h(to)h(extend)f(the)h(range)f(of)241
2805 y(p)s(ossibilities.)35 b(A)28 b(description)e(of)i(ho)m(w)g(to)g
(do)g(this)e(is)h(giv)m(en)h(in)f(R.J.)g(Bradford,)h(A.C.)241
2918 y(Hearn,)37 b(J.A.)f(P)m(adget)h(and)e(E.)h(Sc)m(hr)s(\177)-48
b(ufer,)35 b(\\Enlarging)g(the)g(REDUCE)h(Domain)f(of)241
3030 y(Computation,")30 b(Pro)s(c.)41 b(of)30 b(SYMSA)m(C)g('86,)i(A)m
(CM,)f(New)g(Y)-8 b(ork)31 b(\(1986\),)i(100{106.)241
3180 y @beginspecial @setspecial @endspecial 144 x FR(9.11.1)112
b(Rational)36 b(Co)s(e\016cien)m(ts)h(in)g(P)m(olynomials)241
3545 y FQ(Instead)25 b(of)h(treating)g(rational)f(n)m(um)m(b)s(ers)f
(as)i(the)g(n)m(umerator)f(and)g(denominator)g(of)h(a)241
3658 y(rational)g(expression,)i(it)f(is)f(also)h(p)s(ossible)e(to)k
(use)e(them)g(as)h(p)s(olynomial)d(co)s(e\016cien)m(ts)241
3771 y(directly)-8 b(.)40 b(This)28 b(is)i(accomplished)f(b)m(y)h
(turning)e(on)j(the)f(switc)m(h)g FJ(RATIONAL)p FQ(.)241
3934 y FD(Example:)42 b FQ(With)30 b FJ(RATIONAL)e FQ(o\013,)j(the)g
(input)e(expression)g FJ(a/2)h FQ(w)m(ould)f(b)s(e)h(con)m(v)m(erted)
241 4047 y(in)m(to)24 b(a)h(rational)f(expression,)h(whose)f(n)m
(umerator)g(w)m(as)h FJ(A)f FQ(and)g(denominator)g(2.)39
b(With)241 4160 y FJ(RATIONAL)30 b FQ(on,)i(the)g(same)h(input)d(w)m
(ould)h(b)s(ecome)h(a)h(rational)e(expression)g(with)g(n)m(u-)241
4272 y(merator)22 b FJ(1/2*A)f FQ(and)g(denominator)g
FJ(1)p FQ(.)38 b(Th)m(us)21 b(the)h(latter)g(can)g(b)s(e)f(used)h(in)e
(op)s(erations)241 4385 y(that)31 b(require)e(p)s(olynomial)e(input)i
(whereas)h(the)h(former)f(could)f(not.)241 4530 y @beginspecial
@setspecial @endspecial eop
%%Page: 148 148
148 147 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(148)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FR(9.11.2)113 b(Real)36
b(Co)s(e\016cien)m(ts)h(in)g(P)m(olynomials)664 777 y
FQ(The)h(switc)m(h)f FJ(ROUNDED)f FQ(p)s(ermits)h(the)h(use)g(of)g
(arbitrary)f(sized)h(real)f(co)s(e\016cien)m(ts)i(in)664
890 y(p)s(olynomial)25 b(expressions.)38 b(The)27 b(actual)h(precision)
d(of)j(these)g(co)s(e\016cien)m(ts)g(can)g(b)s(e)e(set)664
1002 y(b)m(y)f(the)f(op)s(erator)h FJ(PRECISION)p FQ(.)47
b(F)-8 b(or)25 b(example,)h FJ(precision)45 b(50;)26
b FQ(sets)f(the)g(precision)664 1115 y(to)35 b(\014ft)m(y)g(decimal)f
(digits.)51 b(The)34 b(default)g(precision)f(is)g(system)i(dep)s(enden)
m(t)f(and)g(can)664 1228 y(b)s(e)e(found)f(b)m(y)h FJ(precision)46
b(0;)p FQ(.)g(In)32 b(this)f(mo)s(de,)i(denominators)e(are)i
(automatically)664 1341 y(made)e(monic,)f(and)f(an)i(appropriate)e
(adjustmen)m(t)h(is)g(made)g(to)h(the)g(n)m(umerator.)664
1504 y FD(Example:)51 b FQ(With)34 b FJ(ROUNDED)g FQ(on,)i(the)f(input)
e(expression)h FJ(a/2)g FQ(w)m(ould)g(b)s(e)g(con)m(v)m(erted)664
1617 y(in)m(to)d(a)f(rational)g(expression)f(whose)h(n)m(umerator)h(is)
e FJ(0.5*A)g FQ(and)h(denominator)f FJ(1)p FQ(.)664 1766
y(In)m(ternally)-8 b(,)37 b(REDUCE)f(uses)g(\015oating)g(p)s(oin)m(t)f
(n)m(um)m(b)s(ers)f(up)h(to)i(the)g(precision)d(sup-)664
1866 y(p)s(orted)20 b(b)m(y)g(the)g(underlying)e(mac)m(hine)h(hardw)m
(are,)k(and)c(so-called)h FD(big\015o)-5 b(ats)22 b FQ(for)e(higher)664
1966 y(precision)35 b(or)h(whenev)m(er)h(necessary)f(to)i(represen)m(t)
e(n)m(um)m(b)s(ers)f(whose)h(v)-5 b(alue)36 b(cannot)664
2065 y(b)s(e)26 b(represen)m(ted)g(in)f(\015oating)h(p)s(oin)m(t.)39
b(The)26 b(in)m(ternal)f(precision)f(is)h(t)m(w)m(o)j(decimal)d(digits)
664 2165 y(greater)36 b(than)e(the)g(external)h(precision)d(to)j(guard)
f(against)h(roundo\013)e(inaccuracies.)664 2264 y(Big\015oats)c
(represen)m(t)f(the)g(fraction)f(and)h(exp)s(onen)m(t)f(parts)h(of)g(a)
g(\015oating-p)s(oin)m(t)f(n)m(um-)664 2364 y(b)s(er)j(b)m(y)i(means)f
(of)g(\(arbitrary)g(precision\))f(in)m(tegers,)i(whic)m(h)e(is)g(a)i
(more)f(precise)g(rep-)664 2464 y(resen)m(tation)36 b(in)d(man)m(y)j
(cases)f(than)g(the)g(mac)m(hine)g(\015oating)g(p)s(oin)m(t)f
(arithmetic,)i(but)664 2563 y(not)f(as)g(e\016cien)m(t.)54
b(If)34 b(a)h(case)g(arises)f(where)h(use)f(of)h(the)f(mac)m(hine)h
(arithmetic)e(leads)664 2663 y(to)27 b(problems,)f(a)h(user)f(can)h
(force)g(REDUCE)g(to)g(use)f(the)h(big\015oat)g(represen)m(tation)f(at)
664 2763 y(all)h(precisions)f(b)m(y)i(turning)e(on)i(the)h(switc)m(h)e
FJ(ROUNDBF)p FQ(.)f(In)i(rare)g(cases,)h(this)e(switc)m(h)h(is)664
2862 y(turned)h(on)i(b)m(y)f(the)g(system,)h(and)f(the)h(user)e
(informed)g(b)m(y)h(the)h(message)1013 3068 y FH(ROUNDBF)41
b(turned)g(on)h(to)h(increase)d(accuracy)664 3287 y FQ(Rounded)h(n)m
(um)m(b)s(ers)g(are)i(normally)d(prin)m(ted)h(to)i(the)g(sp)s
(eci\014ed)d(precision.)75 b(Ho)m(w-)664 3400 y(ev)m(er,)31
b(if)d(the)h(user)g(wishes)f(to)i(prin)m(t)d(suc)m(h)i(n)m(um)m(b)s
(ers)f(with)g(less)h(precision,)f(the)h(prin)m(t-)664
3513 y(ing)j(precision)f(can)i(b)s(e)f(set)h(b)m(y)g(the)g(command)f
FJ(PRINT)p 2589 3513 29 4 v 33 w(PRECISION)p FQ(.)63
b(F)-8 b(or)34 b(example,)664 3626 y FJ(print)p 910 3626
V 33 w(precision)45 b(5;)29 b FQ(will)d(cause)j(suc)m(h)g(n)m(um)m(b)s
(ers)e(to)j(b)s(e)e(prin)m(ted)f(with)g(\014v)m(e)i(digits)664
3739 y(maxim)m(um.)664 3902 y(Under)37 b(normal)g(circumstances)h(when)
f FJ(ROUNDED)f FQ(is)h(on,)j(REDUCE)e(con)m(v)m(erts)i(the)664
4014 y(n)m(um)m(b)s(er)25 b(1.0)i(to)g(the)f(in)m(teger)g(1.)40
b(If)26 b(this)f(is)g(not)h(desired,)f(the)i(switc)m(h)e
FJ(NOCONVERT)f FQ(can)664 4127 y(b)s(e)30 b(turned)f(on.)664
4290 y(Num)m(b)s(ers)g(that)h(are)g(stored)g(in)m(ternally)d(as)j
(big\015oats)g(are)g(normally)e(prin)m(ted)g(with)h(a)664
4403 y(space)i(b)s(et)m(w)m(een)h(ev)m(ery)f(\014v)m(e)g(digits)e(to)i
(impro)m(v)m(e)g(readabilit)m(y)-8 b(.)40 b(If)30 b(this)g(feature)h
(is)f(not)664 4516 y(required,)f(it)h(can)h(b)s(e)e(suppressed)g(b)m(y)
h(turning)e(o\013)j(the)g(switc)m(h)f FJ(BFSPACE)p FQ(.)664
4679 y(F)-8 b(urther)34 b(information)e(on)h(the)h(big\015oat)g
(arithmetic)f(ma)m(y)h(b)s(e)f(found)f(in)h(T.)g(Sasaki,)664
4792 y(\\Man)m(ual)46 b(for)e(Arbitrary)g(Precision)g(Real)h
(Arithmetic)f(System)h(in)e(REDUCE",)664 4904 y(Departmen)m(t)37
b(of)e(Computer)g(Science,)h(Univ)m(ersit)m(y)f(of)g(Utah,)i(T)-8
b(ec)m(hnical)35 b(Note)i(No.)p eop
%%Page: 149 149
149 148 bop 241 299 a @beginspecial @setspecial @endspecial
FM(9.11.)72 b(POL)-8 b(YNOMIAL)31 b(COEFFICIENT)e(ARITHMETIC)648
b FQ(149)241 555 y(TR-8)30 b(\(1979\).)241 718 y(When)45
b(a)h(real)f(n)m(um)m(b)s(er)f(is)h(input,)i(it)f(is)e(normally)g
(truncated)h(to)i(the)e(precision)241 831 y(in)38 b(e\013ect)j(at)f
(the)g(time)g(the)f(n)m(um)m(b)s(er)g(is)f(read.)68 b(If)40
b(it)f(is)f(desired)g(to)j(k)m(eep)f(the)g(full)241 944
y(precision)23 b(of)i(all)e(n)m(um)m(b)s(ers)h(input,)g(the)h(switc)m
(h)f FJ(ADJPREC)f FQ(\(for)i FD(adjust)j(pr)-5 b(e)g(cision)7
b FQ(\))27 b(can)241 1057 y(b)s(e)j(turned)g(on.)43 b(While)30
b(on,)h FJ(ADJPREC)e FQ(will)g(automatically)i(increase)g(the)g
(precision,)241 1170 y(when)h(necessary)-8 b(,)36 b(to)e(matc)m(h)h
(that)f(of)g(an)m(y)g(in)m(teger)g(or)f(real)h(input,)e(and)h(a)h
(message)241 1282 y(prin)m(ted)29 b(to)i(inform)d(the)j(user)f(of)g
(the)h(precision)d(increase.)241 1445 y(When)33 b FJ(ROUNDED)e
FQ(is)i(on,)h(rational)f(n)m(um)m(b)s(ers)f(are)h(normally)f(con)m(v)m
(erted)j(to)f(rounded)241 1558 y(represen)m(tation.)39
b(Ho)m(w)m(ev)m(er,)29 b(if)c(a)i(user)e(wishes)f(to)j(k)m(eep)g(suc)m
(h)f(n)m(um)m(b)s(ers)e(in)h(a)h(rational)241 1671 y(form)45
b(un)m(til)f(used)g(in)g(an)i(op)s(eration)f(that)h(returns)e(a)i(real)
f(n)m(um)m(b)s(er,)j(the)e(switc)m(h)241 1784 y FJ(ROUNDALL)28
b FQ(can)j(b)s(e)e(turned)g(o\013.)42 b(This)28 b(switc)m(h)i(is)f
(normally)g(on.)241 1947 y(Results)35 b(from)h(rounded)f(calculations)g
(are)i(returned)e(in)g(rounded)g(form)h(with)f(t)m(w)m(o)241
2060 y(exceptions:)40 b(if)28 b(the)i(result)f(is)f(recognized)i(as)f
FJ(0)h FQ(or)f FJ(1)g FQ(to)h(the)g(curren)m(t)f(precision,)f(the)241
2172 y(in)m(teger)j(result)e(is)g(returned.)241 2317
y @beginspecial @setspecial @endspecial 149 x FR(9.11.3)112
b(Mo)s(dular)38 b(Num)m(b)s(er)f(Co)s(e\016cien)m(ts)g(in)g(P)m
(olynomials)241 2687 y FQ(REDUCE)24 b(includes)f(facilities)g(for)h
(manipulating)e(p)s(olynomials)g(whose)j(co)s(e\016cien)m(ts)241
2800 y(are)h(computed)f(mo)s(dulo)g(a)h(giv)m(en)f(base.)40
b(T)-8 b(o)26 b(use)f(this)g(option,)h(t)m(w)m(o)h(commands)f(m)m(ust)
241 2913 y(b)s(e)k(used;)h FJ(SETMOD)e(<integer>)p FQ(,)f(to)k(set)f
(the)h(prime)d(mo)s(dulus,)f(and)j FJ(ON)47 b(MODULAR)29
b FQ(to)241 3026 y(cause)k(the)g(actual)g(mo)s(dular)e(calculations)h
(to)i(o)s(ccur.)48 b(F)-8 b(or)33 b(example,)h(with)d
FJ(setmod)241 3139 y(3;)c FQ(and)f FJ(on)48 b(modular;)p
FQ(,)25 b(the)i(p)s(olynomial)d FJ(\(a+2*b\)^3)h FQ(w)m(ould)g(b)s
(ecome)j FJ(A^3+2*B^3)p FQ(.)241 3288 y(The)23 b(argumen)m(t)h(of)g
FJ(SETMOD)e FQ(is)h(ev)-5 b(aluated)23 b(algebraically)-8
b(,)25 b(except)f(that)h(non-mo)s(dular)241 3388 y(\(in)m(teger\))31
b(arithmetic)f(is)f(used.)40 b(Th)m(us)30 b(the)g(sequence)589
3594 y FH(setmod)42 b(3;)g(on)h(modular;)d(setmod)h(7;)241
3813 y FQ(will)27 b(correctly)k(set)g(the)g(mo)s(dulus)c(to)32
b(7.)241 3976 y(Mo)s(dular)25 b(n)m(um)m(b)s(ers)f(are)j(b)m(y)f
(default)g(represen)m(ted)g(b)m(y)g(in)m(tegers)h(in)e(the)h(in)m(terv)
-5 b(al)26 b([0,p-)241 4089 y(1])d(where)g(p)f(is)g(the)h(curren)m(t)f
(mo)s(dulus.)36 b(Sometimes)22 b(it)h(is)f(more)h(con)m(v)m(enien)m(t)h
(to)f(use)g(an)241 4201 y(equiv)-5 b(alen)m(t)37 b(symmetric)g
(represen)m(tation)g(in)g(the)g(in)m(terv)-5 b(al)37
b([-p/2+1,p/2],)42 b(or)37 b(more)241 4314 y(precisely)g([-\015o)s
(or\(\(p-1\)/2\),)43 b(ceiling\(\(p-1\)/2\)],)f(esp)s(ecially)37
b(if)g(the)i(mo)s(dular)d(n)m(um-)241 4427 y(b)s(ers)21
b(map)g(ob)5 b(jects)23 b(that)f(include)e(negativ)m(e)j(quan)m
(tities.)37 b(The)22 b(switc)m(h)f FJ(BALANCED)p 3060
4427 29 4 v 32 w(MOD)241 4540 y FQ(allo)m(ws)29 b(y)m(ou)i(to)g(select)
g(the)g(symmetric)f(represen)m(tation)g(for)g(output.)241
4703 y(Users)i(should)e(note)j(that)g(the)g(mo)s(dular)d(calculations)h
(are)i(on)f(the)h(p)s(olynomial)c(co-)241 4816 y(e\016cien)m(ts)i(only)
-8 b(.)41 b(It)31 b(is)f(not)h(curren)m(tly)f(p)s(ossible)e(to)j
(reduce)g(the)g(exp)s(onen)m(ts)f(since)h(no)241 4929
y(c)m(hec)m(k)i(for)f(a)g(prime)f(mo)s(dulus)e(is)i(made)h(\(whic)m(h)f
(w)m(ould)f(allo)m(w)i FL(x)2522 4896 y FF(p)p Fu(\000)p
FO(1)2683 4929 y FQ(to)h(b)s(e)e(reduced)p eop
%%Page: 150 150
150 149 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(150)737 b FM(CHAPTER)29 b(9.)72 b(POL)-8 b(YNOMIALS)29
b(AND)j(RA)-8 b(TIONALS)664 555 y FQ(to)37 b(1)g(mo)s(d)e(p\).)58
b(Note)38 b(also)e(that)h(an)m(y)f(division)d(b)m(y)j(a)h(n)m(um)m(b)s
(er)e(not)h(co-prime)g(with)664 668 y(the)31 b(mo)s(dulus)c(will)h
(result)h(in)g(the)i(error)f(\\In)m(v)-5 b(alid)29 b(mo)s(dular)f
(division".)664 795 y @beginspecial @setspecial @endspecial
166 x FR(9.11.4)113 b(Complex)36 b(Num)m(b)s(er)h(Co)s(e\016cien)m(ts)g
(in)g(P)m(olynomials)664 1170 y FQ(Although)20 b(REDUCE)h(routinely)e
(treats)i(the)g(square)g(of)f(the)h(v)-5 b(ariable)20
b FD(i)30 b FQ(as)20 b(equiv)-5 b(alen)m(t)664 1269 y(to)26
b FP(\000)p FQ(1,)g(this)e(is)g(not)i(su\016cien)m(t)e(to)i(reduce)f
(expressions)e(in)m(v)m(olving)h FD(i)34 b FQ(to)26 b(lo)m(w)m(est)g
(terms,)664 1369 y(or)38 b(to)g(factor)h(suc)m(h)e(expressions)g(o)m(v)
m(er)i(the)f(complex)f(n)m(um)m(b)s(ers.)61 b(F)-8 b(or)39
b(example,)g(in)664 1468 y(the)31 b(default)e(case,)1013
1674 y FH(factorize\(a^2+1\))o(;)664 1880 y FQ(giv)m(es)i(the)f(result)
1013 2086 y FH({{A**2+1,1}})664 2292 y FQ(and)1013 2498
y FH(\(a^2+b^2\)/\(a+i*b)o(\))664 2704 y FQ(is)37 b(not)i(reduced)e
(further.)63 b(Ho)m(w)m(ev)m(er,)43 b(if)37 b(the)i(switc)m(h)e
FJ(COMPLEX)g FQ(is)g(turned)g(on,)j(full)664 2803 y(complex)27
b(arithmetic)g(is)g(then)g(carried)g(out.)40 b(In)26
b(other)i(w)m(ords,)g(the)g(ab)s(o)m(v)m(e)h(factoriza-)664
2903 y(tion)h(will)e(giv)m(e)j(the)f(result)1013 3109
y FH({{A)42 b(+)h(I,1},{A)e(-)i(I,1}})664 3328 y FQ(and)30
b(the)h(quotien)m(t)f(will)e(b)s(e)i(reduced)f(to)i FJ(A-I*B)p
FQ(.)664 3491 y(The)k(switc)m(h)g FJ(COMPLEX)f FQ(ma)m(y)i(b)s(e)f(com)
m(bined)g(with)f FJ(ROUNDED)g FQ(to)i(giv)m(e)g(complex)f(real)664
3604 y(n)m(um)m(b)s(ers;)29 b(the)i(appropriate)e(arithmetic)h(is)f(p)s
(erformed)g(in)g(this)h(case.)664 3766 y(Complex)k(conjugation)h(is)f
(used)h(to)g(remo)m(v)m(e)i(complex)e(n)m(um)m(b)s(ers)e(from)i
(denomina-)664 3879 y(tors)f(of)g(expressions.)50 b(T)-8
b(o)34 b(do)g(this)f(if)g FJ(COMPLEX)e FQ(is)i(o\013,)j(y)m(ou)e(m)m
(ust)g(turn)e(the)i(switc)m(h)664 3992 y FJ(RATIONALIZE)27
b FQ(on.)p eop
%%Page: 151 151
151 150 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(10)241 1693 y FT(Substitution)78 b(Commands)241 2187
y FQ(An)29 b(imp)s(ortan)m(t)f(class)h(of)h(commands)f(in)f(REDUCE)h
(de\014ne)g(substitutions)e(for)i(v)-5 b(ari-)241 2300
y(ables)25 b(and)f(expressions)h(to)h(b)s(e)f(made)g(during)e(the)j(ev)
-5 b(aluation)25 b(of)g(expressions.)38 b(Suc)m(h)241
2413 y(substitutions)g(use)j(the)g(pre\014x)f(op)s(erator)i
FJ(SUB)p FQ(,)e(v)-5 b(arious)40 b(forms)g(of)i(the)f(command)241
2526 y FJ(LET)p FQ(,)29 b(and)h(rule)f(sets.)241 2681
y @beginspecial @setspecial @endspecial 181 x FE(10.1)135
b(SUB)45 b(Op)t(erator)241 3102 y FQ(Syn)m(tax:)589 3308
y FH(SUB\(<substitution)o(_li)o(st)o(>,E)o(XP)o(RN)o(1:a)o(lg)o(ebr)o
(ai)o(c\))o(:al)o(ge)o(bra)o(ic)241 3514 y FQ(where)30
b FJ(<substitution)p 1134 3514 29 4 v 30 w(list>)f FQ(is)h(a)h(list)e
(of)h(one)h(or)f(more)h(equations)f(of)g(the)h(form)589
3720 y FH(VAR:kernel=EXPRN:)o(alg)o(eb)o(rai)o(c)241
3939 y FQ(or)f(a)h(k)m(ernel)f(that)h(ev)-5 b(aluates)31
b(to)g(suc)m(h)f(a)h(list.)241 4101 y(The)d FJ(SUB)h
FQ(op)s(erator)g(giv)m(es)h(the)f(algebraic)g(result)f(of)h(replacing)f
(ev)m(ery)i(o)s(ccurrence)f(of)241 4214 y(the)j(v)-5
b(ariable)31 b FJ(VAR)g FQ(in)f(the)i(expression)f FJ(EXPRN1)f
FQ(b)m(y)i(the)g(expression)f FJ(EXPRN)p FQ(.)g(Sp)s(ecif-)241
4327 y(ically)-8 b(,)30 b FJ(EXPRN1)g FQ(is)g(\014rst)g(ev)-5
b(aluated)31 b(using)f(all)g(a)m(v)-5 b(ailable)30 b(rules.)42
b(Next)32 b(the)f(substitu-)241 4440 y(tions)c(are)i(made,)g(and)e
(\014nally)f(the)j(substituted)d(expression)h(is)h(reev)-5
b(aluated.)40 b(When)241 4553 y(more)e(than)h(one)f(v)-5
b(ariable)37 b(o)s(ccurs)i(in)e(the)h(substitution)e(list,)k(the)e
(substitution)e(is)241 4666 y(p)s(erformed)f(b)m(y)i(recursiv)m(ely)f
(w)m(alking)g(do)m(wn)g(the)h(tree)h(represen)m(ting)e
FJ(EXPRN1)p FQ(,)h(and)241 4779 y(replacing)j(ev)m(ery)j
FJ(VAR)e FQ(found)f(b)m(y)i(the)f(appropriate)g FJ(EXPRN)p
FQ(.)g(The)g FJ(EXPRN)f FQ(are)i(not)241 4892 y(themselv)m(es)f(searc)m
(hed)g(for)f(an)m(y)h(o)s(ccurrences)g(of)g(the)g(v)-5
b(arious)40 b FJ(VAR)p FQ(s.)70 b(The)40 b(trivial)1667
5187 y(151)p eop
%%Page: 152 152
152 151 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(152)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)664 555 y FQ(case)j FJ(SUB\(EXPRN1\))27 b
FQ(returns)i(the)i(algebraic)f(v)-5 b(alue)30 b(of)g
FJ(EXPRN1)p FQ(.)664 705 y FD(Examples:)2233 911 y FH(2)610
b(2)882 1010 y(sub\({x=a+y,y=y+1)o(},x)o(^2)o(+y^)o(2\))37
b(->)43 b(A)86 b(+)44 b(2*A*Y)d(+)i(2*Y)86 b(+)43 b(2*Y)g(+)g(1)664
1216 y FQ(and)30 b(with)f FJ(s)47 b(:=)h FP(f)p FJ(x=a+y,y=y+1)p
FP(g)p FQ(,)2233 1422 y FH(2)610 b(2)882 1522 y(sub\(s,x^2+y^2\))561
b(->)43 b(A)86 b(+)44 b(2*A*Y)d(+)i(2*Y)86 b(+)43 b(2*Y)g(+)g(1)664
1741 y FQ(Note)32 b(that)f(the)f(global)g(assignmen)m(ts)g
FJ(x:=a+y)p FQ(,)f(etc.,)j(do)e(not)h(tak)m(e)h(place.)664
1903 y FJ(EXPRN1)26 b FQ(can)h(b)s(e)g(an)m(y)g(v)-5
b(alid)26 b(algebraic)h(expression)f(whose)h(t)m(yp)s(e)g(is)f(suc)m(h)
h(that)h(a)g(sub-)664 2016 y(stitution)22 b(pro)s(cess)h(is)f
(de\014ned)g(for)h(it)g(\(e.g.,)j(scalar)d(expressions,)h(lists)e(and)g
(matrices\).)664 2129 y(An)j(error)f(will)e(o)s(ccur)j(if)f(an)h
(expression)f(of)h(an)f(in)m(v)-5 b(alid)23 b(t)m(yp)s(e)i(for)g
(substitution)d(o)s(ccurs)664 2242 y(either)30 b(in)f
FJ(EXPRN)g FQ(or)h FJ(EXPRN1)p FQ(.)664 2405 y(The)g(braces)h(around)e
(the)h(substitution)f(list)g(ma)m(y)i(also)f(b)s(e)g(omitted,)g(as)h
(in:)2233 2636 y FH(2)610 b(2)882 2735 y(sub\(x=a+y,y=y+1,)o(x^2)o(+y)o
(^2\))124 b(->)43 b(A)86 b(+)44 b(2*A*Y)d(+)i(2*Y)86
b(+)43 b(2*Y)g(+)g(1)664 2891 y @beginspecial @setspecial
@endspecial 181 x FE(10.2)136 b(LET)44 b(Rules)664 3324
y FQ(Unlik)m(e)34 b(substitutions)f(in)m(tro)s(duced)g(via)h
FJ(SUB)p FQ(,)h FJ(LET)f FQ(rules)f(are)j(global)e(in)f(scop)s(e)j(and)
664 3437 y(sta)m(y)c(in)d(e\013ect)j(un)m(til)c(replaced)i(or)g
FJ(CLEAR)p FQ(ed.)664 3587 y(The)g(simplest)f(use)h(of)g(the)h
FJ(LET)e FQ(statemen)m(t)j(is)e(in)f(the)i(form)1013
3793 y FH(LET)42 b(<substitution)c(list>)664 3998 y FQ(where)26
b FJ(<substitution)45 b(list>)25 b FQ(is)g(a)j(list)d(of)i(rules)e
(separated)i(b)m(y)g(commas,)h(eac)m(h)g(of)664 4098
y(the)j(form:)1013 4304 y FH(<variable>)39 b(=)k(<expression>)664
4510 y FQ(or)839 4716 y FH(<prefix)d(operator>\(<argume)o(nt)o(>,.)o
(..)o(,<)o(arg)o(um)o(ent)o(>\))d(=)43 b(<expression>)664
4922 y FQ(or)p eop
%%Page: 153 153
153 152 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.2.)72 b(LET)30 b(R)m(ULES)2078 b FQ(153)415 555
y FH(<argument>)40 b(<infix)h(operator>,...,)c(<argument>)j(=)j
(<expression>)241 761 y FQ(F)-8 b(or)31 b(example,)589
967 y FH(let)43 b({x)g(=)g(y^2,)807 1067 y(h\(u,v\))e(=)j(u)f(-)g(v,)
807 1166 y(cos\(pi/3\))d(=)j(1/2,)807 1266 y(a*b)g(=)g(c,)807
1365 y(l+m)g(=)g(n,)807 1465 y(w^3)g(=)g(2*z)f(-)h(3,)807
1565 y(z^10)f(=)h(0})241 1784 y FQ(The)38 b(list)f(brac)m(k)m(ets)i
(can)g(b)s(e)f(left)g(out)g(if)g(preferred.)63 b(The)38
b(ab)s(o)m(v)m(e)h(rules)e(could)h(also)241 1897 y(ha)m(v)m(e)31
b(b)s(een)f(en)m(tered)h(as)g(sev)m(en)g(separate)g FJ(LET)e
FQ(statemen)m(ts.)241 2060 y(After)42 b(suc)m(h)g FJ(LET)f
FQ(rules)f(ha)m(v)m(e)k(b)s(een)d(input,)i FJ(X)f FQ(will)d(alw)m(a)m
(ys)k(b)s(e)e(ev)-5 b(aluated)42 b(as)g(the)241 2172
y(square)27 b(of)g FJ(Y)p FQ(,)g(and)g(so)g(on.)40 b(This)25
b(is)i(so)g(ev)m(en)h(if)e(at)i(the)g(time)f(the)g FJ(LET)g
FQ(rule)f(w)m(as)h(input,)241 2285 y(the)e(v)-5 b(ariable)24
b FJ(Y)h FQ(had)g(a)h(v)-5 b(alue)25 b(other)g(than)g
FJ(Y)p FQ(.)h(\(In)f(con)m(trast,)j(the)d(assignmen)m(t)g
FJ(x:=y^2)241 2398 y FQ(will)g(set)j FJ(X)g FQ(equal)f(to)i(the)f
(square)g(of)g(the)g(curren)m(t)f(v)-5 b(alue)28 b(of)g
FJ(Y)p FQ(,)f(whic)m(h)g(could)g(b)s(e)g(quite)241 2511
y(di\013eren)m(t.\))241 2674 y(The)36 b(rule)g FJ(let)47
b(a*b=c)36 b FQ(means)h(that)h(whenev)m(er)f FJ(A)f FQ(and)h
FJ(B)g FQ(are)g(b)s(oth)g(factors)h(in)e(an)241 2787
y(expression)42 b(their)h(pro)s(duct)f(will)f(b)s(e)h(replaced)h(b)m(y)
h FJ(C)p FQ(.)f(F)-8 b(or)44 b(example,)j FJ(a^5*b^7*w)241
2900 y FQ(w)m(ould)29 b(b)s(e)h(replaced)f(b)m(y)i FJ(c^5*b^2*w)p
FQ(.)241 3062 y(The)21 b(rule)f(for)h FJ(l+m)f FQ(will)f(not)i(only)f
(replace)i(all)e(o)s(ccurrences)h(of)h FJ(l+m)e FQ(b)m(y)h
FJ(N)p FQ(,)g(but)g(will)e(also)241 3175 y(normally)29
b(replace)i FJ(L)g FQ(b)m(y)f FJ(n-m)p FQ(,)h(but)f(not)h
FJ(M)g FQ(b)m(y)g FJ(n-l)p FQ(.)42 b(A)31 b(more)g(complete)g
(description)241 3288 y(of)f(this)g(case)h(is)e(giv)m(en)i(in)e
(Section)h @beginspecial @setspecial @endspecial(10.2.5)r(.)241
3451 y(The)23 b(rule)g(p)s(ertaining)f(to)j FJ(w^3)e
FQ(will)e(apply)i(to)i(an)m(y)f(p)s(o)m(w)m(er)g(of)g
FJ(W)g FQ(greater)h(than)f(or)g(equal)241 3564 y(to)31
b(the)f(third.)241 3727 y(Note)36 b(esp)s(ecially)d(the)i(last)f
(example,)i FJ(let)47 b(z^10=0)p FQ(.)52 b(This)33 b(declaration)h
(means,)i(in)241 3840 y(e\013ect:)50 b(ignore)34 b(the)h(ten)m(th)f(or)
h(an)m(y)g(higher)e(p)s(o)m(w)m(er)h(of)g FJ(Z)p FQ(.)h(Suc)m(h)e
(declarations,)i(when)241 3952 y(appropriate,)h(often)h(sp)s(eed)e(up)f
(a)j(computation)f(to)g(a)g(considerable)f(degree.)58
b(\(See)241 4065 y(Section)30 b @beginspecial @setspecial
@endspecial(10.4)i(for)e(more)h(details.\))241 4228 y(An)m(y)21
b(new)g(op)s(erators)h(o)s(ccurring)e(in)h(suc)m(h)g
FJ(LET)g FQ(rules)f(will)f(b)s(e)i(automatically)g(declared)241
4341 y FJ(OPERATOR)29 b FQ(b)m(y)j(the)f(system,)i(if)d(the)i(rules)e
(are)i(b)s(eing)e(read)i(from)f(a)h(\014le.)43 b(If)31
b(they)h(are)241 4454 y(b)s(eing)39 b(en)m(tered)j(in)m(teractiv)m(ely)
-8 b(,)44 b(the)d(system)g(will)e(ask)i FJ(DECLARE)e
FQ(...)73 b FJ(OPERATOR?)38 b FQ(.)241 4567 y(Answ)m(er)30
b FJ(Y)g FQ(or)g FJ(N)g FQ(and)g(hit)p 1150 4479 314
4 v 1150 4592 4 113 v 58 w FG(Return)p 1460 4592 V 1150
4595 314 4 v 28 w FQ(.)241 4716 y(In)j(eac)m(h)j(of)e(these)g
(examples,)h(substitutions)d(are)j(only)e(made)h(for)g(the)g(explicit)f
(ex-)241 4816 y(pressions)j(giv)m(en;)41 b(i.e.,)f(none)e(of)f(the)h(v)
-5 b(ariables)37 b(ma)m(y)h(b)s(e)f(considered)f(arbitrary)h(in)241
4916 y(an)m(y)30 b(sense.)41 b(F)-8 b(or)31 b(example,)g(the)f(command)
p eop
%%Page: 154 154
154 153 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(154)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)1013 555 y FH(let)42 b(h\(u,v\))f(=)i(u)h(-)f(v;)664
774 y FQ(will)25 b(cause)j FJ(h\(u,v\))d FQ(to)j(ev)-5
b(aluate)28 b(to)g FJ(U)48 b(-)f(V)p FQ(,)28 b(but)e(will)f(not)i
(a\013ect)i FJ(h\(u,z\))d FQ(or)h FJ(H)g FQ(with)664
887 y(an)m(y)k(argumen)m(ts)g(other)f(than)g(precisely)f(the)i(sym)m(b)
s(ols)e FJ(U,V)p FQ(.)664 1050 y(These)36 b(simple)e
FJ(LET)i FQ(rules)f(are)h(on)h(the)f(same)h(logical)e(lev)m(el)h(as)h
(assignmen)m(ts)f(made)664 1163 y(with)27 b(the)h(:=)f(op)s(erator.)41
b(An)27 b(assignmen)m(t)h FJ(x)47 b(:=)g(p+q)27 b FQ(cancels)h(a)g
(rule)f FJ(let)47 b(x)g(=)h(y^2)664 1276 y FQ(made)31
b(earlier,)e(and)h(vice)g(v)m(ersa.)664 1425 y FD(CA)n(UTION:)f
FQ(A)h(recursiv)m(e)g(rule)f(suc)m(h)h(as)1013 1631 y
FH(let)42 b(x)h(=)h(x)f(+)g(1;)664 1837 y FQ(is)g(erroneous,)k(since)c
(an)m(y)h(subsequen)m(t)f(ev)-5 b(aluation)43 b(of)h
FJ(X)f FQ(w)m(ould)g(lead)g(to)h(a)g(non-)664 1937 y(terminating)29
b(c)m(hain)h(of)h(substitutions:)926 2143 y FH(x)43 b(->)g(x)g(+)g(1)g
(->)g(\(x)g(+)g(1\))g(+)g(1)g(->)g(\(\(x)f(+)h(1\))g(+)g(1\))g(+)g(1)g
(->)g(...)664 2348 y FQ(Similarly)-8 b(,)27 b(coupled)j(substitutions)e
(suc)m(h)i(as)1013 2554 y FH(let)42 b(l)h(=)h(m)f(+)g(n,)g(n)g(=)g(l)g
(+)g(r;)664 2760 y FQ(w)m(ould)31 b(lead)g(to)i(the)f(same)g(error.)45
b(As)32 b(a)g(result,)g(if)f(y)m(ou)h(try)g(to)g(ev)-5
b(aluate)33 b(an)f FJ(X)p FQ(,)f FJ(L)h FQ(or)664 2860
y FJ(N)e FQ(de\014ned)f(as)i(ab)s(o)m(v)m(e,)h(y)m(ou)e(will)e(get)k
(an)e(error)g(suc)m(h)g(as)1013 3066 y FH(X)43 b(improperly)c(defined)i
(in)i(terms)e(of)i(itself)664 3272 y FQ(Arra)m(y)30 b(and)f(matrix)g
(elemen)m(ts)h(can)g(app)s(ear)f(on)g(the)h(left-hand)e(side)h(of)h(a)g
FJ(LET)e FQ(state-)664 3371 y(men)m(t.)41 b(Ho)m(w)m(ev)m(er,)32
b(b)s(ecause)e(of)g(their)f FD(instant)k(evaluation)38
b FQ(prop)s(ert)m(y)-8 b(,)29 b(it)h(is)f(the)g(v)-5
b(alue)664 3471 y(of)31 b(the)f(elemen)m(t)h(that)g(is)f(substituted)e
(for,)j(rather)f(than)g(the)h(elemen)m(t)f(itself.)40
b(E.g.,)1013 3677 y FH(array)h(a\(5\);)1013 3776 y(a\(2\))h(:=)h(b;)
1013 3876 y(let)f(a\(2\))g(=)h(c;)664 4095 y FQ(results)23
b(in)g FJ(B)h FQ(b)s(eing)e(substituted)h(b)m(y)h FJ(C)p
FQ(;)g(the)g(assignmen)m(t)g(for)g FJ(a\(2\))e FQ(do)s(es)i(not)h(c)m
(hange.)664 4258 y(Finally)-8 b(,)42 b(if)d(an)h(error)g(o)s(ccurs)g
(in)f(an)m(y)i(equation)f(in)f(a)i FJ(LET)f FQ(statemen)m(t)i
(\(including)664 4371 y(generalized)37 b(statemen)m(ts)i(in)m(v)m
(olving)c FJ(FOR)47 b(ALL)36 b FQ(and)h FJ(SUCH)47 b(THAT\))p
FQ(,)35 b(the)j(remaining)664 4484 y(rules)29 b(are)i(not)f(ev)-5
b(aluated.)664 4611 y @beginspecial @setspecial @endspecial
eop
%%Page: 155 155
155 154 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.2.)72 b(LET)30 b(R)m(ULES)2078 b FQ(155)241 555
y FR(10.2.1)112 b(F)m(OR)38 b(ALL)f(.)19 b(.)g(.)g(LET)241
763 y FQ(If)33 b(a)i(substitution)d(for)i(all)f(p)s(ossible)e(v)-5
b(alues)34 b(of)g(a)g(giv)m(en)g(argumen)m(t)h(of)f(an)g(op)s(erator)
241 863 y(is)k(required,)i(the)g(declaration)f FJ(FOR)47
b(ALL)38 b FQ(ma)m(y)j(b)s(e)d(used.)67 b(The)39 b(syn)m(tax)h(of)g
(suc)m(h)f(a)241 963 y(command)30 b(is)589 1168 y FH(FOR)43
b(ALL)f(<variable>,...,<v)o(ar)o(ia)o(ble)o(>)938 1268
y(<LET)g(statement>)e(<terminator>)241 1474 y FQ(e.g.,)589
1680 y FH(for)j(all)f(x,y)g(let)h(h\(x,y\))e(=)i(x-y;)589
1780 y(for)g(all)f(x)h(let)g(k\(x,y\))e(=)i(x^y;)241
1999 y FQ(The)32 b(\014rst)g(of)g(these)h(declarations)f(w)m(ould)g
(cause)h FJ(h\(a,b\))d FQ(to)k(b)s(e)e(ev)-5 b(aluated)32
b(as)h FJ(A-B)p FQ(,)241 2112 y FJ(h\(u+v,u+w\))d FQ(to)k(b)s(e)f
FJ(V-W)p FQ(,)g(etc.)51 b(If)33 b(the)g(op)s(erator)h(sym)m(b)s(ol)e
FJ(H)h FQ(is)f(used)h(with)f(more)h(or)241 2225 y(few)m(er)d(argumen)m
(t)h(places,)g(not)f(t)m(w)m(o,)i(the)f FJ(LET)f FQ(w)m(ould)f(ha)m(v)m
(e)i(no)g(e\013ect,)h(and)e(no)g(error)241 2337 y(w)m(ould)f(result.)
241 2500 y(The)41 b(second)g(declaration)h(w)m(ould)e(cause)i
FJ(k\(a,y\))e FQ(to)i(b)s(e)f(ev)-5 b(aluated)42 b(as)f
FJ(a^y)p FQ(,)j(but)241 2613 y(w)m(ould)29 b(ha)m(v)m(e)j(no)e
(e\013ect)i(on)e FJ(k\(a,z\))f FQ(since)g(the)i(rule)e(didn't)g(sa)m(y)
i FJ(FOR)47 b(ALL)g(Y)30 b FQ(...)41 b(.)241 2776 y(Where)h(w)m(e)h
(used)f FJ(X)g FQ(and)g FJ(Y)g FQ(in)f(the)h(examples,)j(an)m(y)e(v)-5
b(ariables)41 b(could)h(ha)m(v)m(e)h(b)s(een)241 2889
y(used.)c(This)26 b(use)i(of)h(a)f(v)-5 b(ariable)27
b(do)s(esn't)h(a\013ect)i(the)e(v)-5 b(alue)28 b(it)g(ma)m(y)g(ha)m(v)m
(e)i(outside)d(the)241 3002 y FJ(LET)h FQ(statemen)m(t.)42
b(Ho)m(w)m(ev)m(er,)32 b(y)m(ou)d(should)e(remem)m(b)s(er)i(what)g(v)-5
b(ariables)27 b(y)m(ou)j(actually)241 3115 y(used.)56
b(If)36 b(y)m(ou)g(w)m(an)m(t)h(to)f(delete)g(the)g(rule)f(subsequen)m
(tly)-8 b(,)36 b(y)m(ou)h(m)m(ust)e(use)h(the)g(same)241
3227 y(v)-5 b(ariables)29 b(in)g(the)h FJ(CLEAR)f FQ(command.)241
3377 y(It)35 b(is)f(p)s(ossible)e(to)k(use)e(more)h(complicated)g
(expressions)e(as)i(a)g(template)h(for)e(a)h FJ(LET)241
3477 y FQ(statemen)m(t,)k(as)d(explained)e(in)g(the)i(section)g(on)g
(substitutions)d(for)j(general)f(expres-)241 3576 y(sions.)44
b(In)32 b(nearly)f(all)g(cases,)i(the)g(rule)d(will)g(b)s(e)h
(accepted,)j(and)d(a)i(consisten)m(t)f(appli-)241 3676
y(cation)37 b(made)f(b)m(y)h(the)g(system.)59 b(Ho)m(w)m(ev)m(er,)41
b(if)35 b(there)i(is)f(a)h(sole)f(constan)m(t)i(or)f(a)g(sole)241
3775 y(free)25 b(v)-5 b(ariable)24 b(on)h(the)g(left-hand)f(side)g(of)h
(a)g(rule)f(\(e.g.,)k FJ(let)47 b(2=3)24 b FQ(or)h FJ(for)47
b(all)g(x)g(let)241 3875 y(x=2\))p FQ(,)29 b(then)h(the)h(system)f(is)g
(unable)f(to)i(handle)e(the)h(rule,)g(and)f(the)i(error)f(message)589
4081 y FH(Substitution)39 b(for)j(...)h(not)f(allowed)241
4300 y FQ(will)27 b(b)s(e)j(issued.)39 b(An)m(y)30 b(v)-5
b(ariable)29 b(listed)g(in)g(the)h FJ(FOR)47 b(ALL)29
b FQ(part)h(will)e(ha)m(v)m(e)j(its)f(sym)m(b)s(ol)241
4413 y(preceded)36 b(b)m(y)g(an)g(equal)f(sign:)52 b
FJ(X)35 b FQ(in)g(the)i(ab)s(o)m(v)m(e)g(example)f(will)d(app)s(ear)j
(as)g FJ(=X)p FQ(.)g(An)241 4526 y(error)22 b(will)e(also)i(o)s(ccur)g
(if)g(a)h(v)-5 b(ariable)21 b(in)g(the)i FJ(FOR)46 b(ALL)22
b FQ(part)g(is)g(not)g(prop)s(erly)f(matc)m(hed)241 4639
y(on)30 b(b)s(oth)g(sides)f(of)h(the)h FJ(LET)e FQ(equation.)241
4784 y @beginspecial @setspecial @endspecial eop
%%Page: 156 156
156 155 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(156)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)664 555 y FR(10.2.2)113 b(F)m(OR)37 b(ALL)h(.)19
b(.)f(.)h(SUCH)38 b(THA)-9 b(T)36 b(.)19 b(.)f(.)h(LET)664
777 y FQ(If)33 b(a)i(substitution)c(is)i(desired)f(for)i(more)g(than)f
(a)h(single)f(v)-5 b(alue)33 b(of)h(a)g(v)-5 b(ariable)33
b(in)f(an)664 890 y(op)s(erator)k(or)g(other)g(expression,)h(but)e(not)
h(all)f(v)-5 b(alues,)37 b(a)f(conditional)e(form)i(of)g(the)664
1002 y FJ(FOR)47 b(ALL)g(...LET)29 b FQ(declaration)h(can)g(b)s(e)g
(used.)664 1152 y FD(Example:)1013 1358 y FH(for)42 b(all)h(x)g(such)f
(that)g(numberp)e(x)j(and)g(x<0)f(let)g(h\(x\)=0;)664
1577 y FQ(will)31 b(cause)j FJ(h\(-5\))f FQ(to)h(b)s(e)f(ev)-5
b(aluated)34 b(as)g(0,)h(but)e FJ(H)g FQ(of)h(a)g(p)s(ositiv)m(e)e(in)m
(teger,)k(or)d(of)h(an)664 1690 y(argumen)m(t)e(that)g(is)f(not)h(an)f
(in)m(teger)h(at)g(all,)f(w)m(ould)g(not)h(b)s(e)e(a\013ected.)46
b(An)m(y)32 b(b)s(o)s(olean)664 1803 y(expression)d(can)i(follo)m(w)f
(the)g FJ(SUCH)47 b(THAT)29 b FQ(k)m(eyw)m(ords.)664
1948 y @beginspecial @setspecial @endspecial 148 x FR(10.2.3)113
b(Remo)m(ving)36 b(Assignmen)m(ts)g(and)i(Substitution)e(Rules)664
2304 y FQ(The)g(user)g(ma)m(y)g(remo)m(v)m(e)i(all)d(assignmen)m(ts)h
(and)g(substitution)e(rules)h(from)h(an)m(y)g(ex-)664
2404 y(pression)29 b(b)m(y)h(the)h(command)f FJ(CLEAR)p
FQ(,)f(in)g(the)i(form)1013 2610 y FH(CLEAR)41 b(<expression>,...,)o
(<ex)o(pr)o(es)o(sio)o(n>)o(<te)o(rm)o(in)o(ato)o(r>)664
2816 y FQ(e.g.)1013 3022 y FH(clear)g(x,)i(h\(x,y\);)664
3227 y FQ(Because)j(of)f(their)f FD(instant)i(evaluation)53
b FQ(prop)s(ert)m(y)-8 b(,)48 b(arra)m(y)e(and)e(matrix)g(elemen)m(ts)
664 3327 y(cannot)31 b(b)s(e)f(cleared)g(with)f FJ(CLEAR)p
FQ(.)g(F)-8 b(or)32 b(example,)e(if)f FJ(A)h FQ(is)g(an)g(arra)m(y)-8
b(,)32 b(y)m(ou)e(m)m(ust)g(sa)m(y)1013 3533 y FH(a\(3\))42
b(:=)h(0;)664 3739 y FQ(rather)30 b(than)1013 3945 y
FH(clear)41 b(a\(3\);)664 4164 y FQ(to)31 b(\\clear")h(elemen)m(t)e
FJ(a\(3\))p FQ(.)664 4327 y(On)f(the)h(other)g(hand,)f(a)h(whole)f
(arra)m(y)h(\(or)g(matrix\))f FJ(A)h FQ(can)g(b)s(e)f(cleared)h(b)m(y)f
(the)h(com-)664 4440 y(mand)f FJ(clear)46 b(a)p FQ(;)30
b(This)e(means)i(m)m(uc)m(h)g(more)g(than)f(resetting)h(to)h(0)f(all)f
(the)h(elemen)m(ts)664 4552 y(of)e FJ(A)p FQ(.)f(The)g(fact)h(that)g
FJ(A)f FQ(is)f(an)i(arra)m(y)-8 b(,)29 b(and)d(what)i(its)e(dimensions)
f(are,)k(are)e(forgotten,)664 4665 y(so)k FJ(A)f FQ(can)g(b)s(e)g
(rede\014ned)f(as)i(another)g(t)m(yp)s(e)f(of)h(ob)5
b(ject,)31 b(for)f(example)g(an)h(op)s(erator.)664 4828
y(The)40 b(more)g(general)g(t)m(yp)s(es)h(of)f FJ(LET)f
FQ(declarations)h(can)h(also)f(b)s(e)f(deleted)h(b)m(y)g(using)664
4941 y FJ(CLEAR)p FQ(.)d(Simply)f(rep)s(eat)i(the)h FJ(LET)e
FQ(rule)g(to)i(b)s(e)f(deleted,)i(using)d FJ(CLEAR)g
FQ(in)g(place)h(of)p eop
%%Page: 157 157
157 156 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.2.)72 b(LET)30 b(R)m(ULES)2078 b FQ(157)241 555
y FJ(LET)p FQ(,)37 b(and)f(omitting)h(the)h(equal)f(sign)f(and)h(righ)m
(t-hand)f(part.)62 b(The)37 b(same)h(dumm)m(y)241 668
y(v)-5 b(ariables)30 b(m)m(ust)i(b)s(e)g(used)f(in)g(the)h
FJ(FOR)47 b(ALL)31 b FQ(part,)h(and)g(the)g(b)s(o)s(olean)f(expression)
g(in)241 781 y(the)h FJ(SUCH)46 b(THAT)31 b FQ(part)g(m)m(ust)g(b)s(e)g
(written)g(the)h(same)g(w)m(a)m(y)-8 b(.)46 b(\(The)31
b(placing)f(of)i(blanks)241 894 y(do)s(esn't)e(ha)m(v)m(e)i(to)f(b)s(e)
e(iden)m(tical.\))241 1043 y FD(Example:)41 b FQ(The)30
b FJ(LET)g FQ(rule)589 1249 y FH(for)43 b(all)f(x)h(such)f(that)g
(numberp)f(x)i(and)f(x<0)h(let)f(h\(x\)=0;)241 1455 y
FQ(can)30 b(b)s(e)g(erased)h(b)m(y)f(the)h(command)589
1661 y FH(for)43 b(all)f(x)h(such)f(that)g(numberp)f(x)i(and)f(x<0)h
(clear)e(h\(x\);)241 1807 y @beginspecial @setspecial
@endspecial 147 x FR(10.2.4)112 b(Ov)m(erlapping)37 b(LET)h(Rules)241
2176 y FJ(CLEAR)d FQ(is)h(not)h(the)g(only)f(w)m(a)m(y)i(to)f(delete)g
(a)g FJ(LET)f FQ(rule.)59 b(A)37 b(new)f FJ(LET)g FQ(rule)g(iden)m
(tical)241 2289 y(to)41 b(the)f(\014rst,)j(but)c(with)g(a)i(di\013eren)
m(t)f(expression)f(after)h(the)h(equal)f(sign,)i(replaces)241
2402 y(the)28 b(\014rst.)40 b(Replacemen)m(ts)29 b(are)g(also)f(made)h
(in)e(other)h(cases)i(where)e(the)g(existing)g(rule)241
2514 y(w)m(ould)k(b)s(e)i(in)e(con\015ict)i(with)f(the)h(new)f(rule.)51
b(F)-8 b(or)34 b(example,)h(a)f(rule)f(for)h FJ(x^4)f
FQ(w)m(ould)241 2627 y(replace)25 b(a)h(rule)e(for)h
FJ(x^5)p FQ(.)38 b(The)25 b(user)g(should)e(ho)m(w)m(ev)m(er)k(b)s(e)e
(cautioned)g(against)h(ha)m(ving)241 2740 y(sev)m(eral)31
b FJ(LET)e FQ(rules)h(in)f(e\013ect)j(that)f(relate)g(to)h(the)f(same)g
(expression.)40 b(No)31 b(guaran)m(tee)241 2853 y(can)25
b(b)s(e)f(giv)m(en)h(as)g(to)h(whic)m(h)e(rules)f(will)g(b)s(e)h
(applied)f(b)m(y)i(REDUCE)f(or)h(in)f(what)h(order.)241
2966 y(It)30 b(is)g(b)s(est)g(to)h FJ(CLEAR)e FQ(an)h(old)f(rule)h(b)s
(efore)f(en)m(tering)i(a)g(new)e(related)i FJ(LET)e FQ(rule.)241
3111 y @beginspecial @setspecial @endspecial 148 x FR(10.2.5)112
b(Substitutions)36 b(for)i(General)f(Expressions)241
3481 y FQ(The)25 b(examples)g(of)g(substitutions)e(discussed)h(in)g
(other)i(sections)f(ha)m(v)m(e)i(in)m(v)m(olv)m(ed)e(v)m(ery)241
3594 y(simple)c(rules.)36 b(Ho)m(w)m(ev)m(er,)27 b(the)c(substitution)e
(mec)m(hanism)h(used)g(in)f(REDUCE)i(is)f(v)m(ery)241
3707 y(general,)30 b(and)g(can)h(handle)e(arbitrarily)e(complicated)j
(rules)f(without)h(di\016cult)m(y)-8 b(.)241 3856 y(The)21
b(general)i(substitution)d(mec)m(hanism)h(used)h(in)f(REDUCE)h(is)f
(discussed)f(in)h(Hearn,)241 3956 y(A.)35 b(C.,)h(\\REDUCE,)f(A)g
(User-Orien)m(ted)f(In)m(teractiv)m(e)i(System)e(for)h(Algebraic)f
(Sim-)241 4055 y(pli\014cation,")50 b(In)m(teractiv)m(e)e(Systems)f
(for)f(Exp)s(erimen)m(tal)g(Applied)e(Mathematics,)241
4155 y(\(edited)32 b(b)m(y)g(M.)g(Klerer)f(and)h(J.)g(Reinfelds\),)f
(Academic)h(Press,)h(New)f(Y)-8 b(ork)33 b(\(1968\),)241
4255 y(79-90,)g(and)d(Hearn.)42 b(A.)31 b(C.,)g(\\The)f(Problem)g(of)h
(Substitution,")e(Pro)s(c.)41 b(1968)32 b(Sum-)241 4354
y(mer)f(Institute)f(on)h(Sym)m(b)s(olic)e(Mathematical)j(Computation,)f
(IBM)g(Programming)241 4454 y(Lab)s(oratory)23 b(Rep)s(ort)f(FSC)h
(69-0312)i(\(1969\).)41 b(F)-8 b(or)24 b(the)f(reasons)g(giv)m(en)g(in)
e(these)i(refer-)241 4553 y(ences,)k(REDUCE)e(do)s(es)g(not)g(attempt)i
(to)e(implemen)m(t)f(a)i(general)f(pattern)g(matc)m(hing)241
4653 y(algorithm.)59 b(Ho)m(w)m(ev)m(er,)41 b(the)c(presen)m(t)f
(system)h(uses)g(far)f(more)h(sophisticated)f(tec)m(h-)241
4753 y(niques)31 b(than)h(those)g(discussed)f(in)g(the)h(ab)s(o)m(v)m
(e)i(pap)s(ers.)45 b(It)33 b(is)e(no)m(w)h(p)s(ossible)e(for)i(the)241
4852 y(rules)d(app)s(earing)g(in)g(argumen)m(ts)h(of)h
FJ(LET)e FQ(to)j(ha)m(v)m(e)f(the)g(form)p eop
%%Page: 158 158
158 157 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(158)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)1013 555 y FH(<substitution)38 b(expression>)h(=)k
(<expression>)664 774 y FQ(where)36 b(an)m(y)g(rule)f(to)i(whic)m(h)e
(a)h(sensible)e(meaning)i(can)g(b)s(e)g(assigned)f(is)g(p)s(ermitted.)
664 887 y(Ho)m(w)m(ev)m(er,)42 b(this)36 b(meaning)g(can)i(v)-5
b(ary)37 b(according)h(to)g(the)f(form)g(of)h FJ(<substitution)664
1000 y(expression>)p FQ(.)71 b(The)41 b(seman)m(tic)g(rules)f(asso)s
(ciated)i(with)e(the)i(application)d(of)j(the)664 1113
y(substitution)c(are)i(completely)f(consisten)m(t,)k(but)c(somewhat)h
(complicated)f(b)m(y)h(the)664 1226 y(pragmatic)28 b(need)g(to)h(p)s
(erform)e(suc)m(h)h(substitutions)d(as)k(e\016cien)m(tly)f(as)g(p)s
(ossible.)37 b(The)664 1339 y(follo)m(wing)29 b(rules)g(explain)g(ho)m
(w)h(the)h(ma)5 b(jorit)m(y)30 b(of)h(the)f(cases)h(are)g(handled.)664
1502 y(T)-8 b(o)24 b(b)s(egin)f(with,)h(the)g FJ(<substitution)44
b(expression>)21 b FQ(is)i(\014rst)g(partly)g(simpli\014ed)d(b)m(y)664
1615 y(collecting)h(lik)m(e)g(terms)g(and)f(putting)g(iden)m(ti\014ers)
g(\(and)h(k)m(ernels\))g(in)e(the)j(system)f(order.)664
1727 y(Ho)m(w)m(ev)m(er,)31 b(no)c(substitutions)f(are)i(p)s(erformed)e
(on)i(an)m(y)g(part)g(of)g(the)g(expression)e(with)664
1840 y(the)37 b(exception)f(of)h(expressions)e(with)g(the)h
FD(instant)j(evaluation)45 b FQ(prop)s(ert)m(y)-8 b(,)38
b(suc)m(h)e(as)664 1953 y(arra)m(y)c(and)f(matrix)f(elemen)m(ts,)i
(whose)f(actual)h(v)-5 b(alues)30 b(are)i(used.)43 b(It)31
b(should)e(also)j(b)s(e)664 2066 y(noted)h(that)h(the)f(system)h(order)
e(used)h(is)f(not)h(c)m(hangeable)h(b)m(y)f(the)g(user,)g(ev)m(en)h
(with)664 2179 y(the)d FJ(KORDER)d FQ(command.)41 b(Sp)s(eci\014c)29
b(cases)i(are)g(then)f(handled)e(as)j(follo)m(ws:)664
2280 y @beginspecial @setspecial @endspecial 775 2412
a(1.)46 b(If)26 b(the)h(resulting)d(simpli\014ed)e(rule)j(has)h(a)h
(left-hand)e(side)g(that)i(is)e(an)h(iden)m(ti\014er,)891
2525 y(an)j(expression)f(with)f(a)j(top-lev)m(el)f(algebraic)f(op)s
(erator)i(or)e(a)i(p)s(o)m(w)m(er,)f(then)g(the)891 2638
y(rule)h(is)f(added)h(without)f(further)g(c)m(hange)j(to)f(the)f
(appropriate)g(table.)664 2692 y @beginspecial @setspecial
@endspecial 775 2811 a(2.)46 b(If)36 b(the)h(op)s(erator)g(*)g(app)s
(ears)e(at)j(the)e(top)h(lev)m(el)f(of)h(the)f(simpli\014ed)d
(left-hand)891 2910 y(side,)26 b(then)g(an)m(y)g(constan)m(t)h(argumen)
m(ts)f(in)e(that)j(expression)d(are)i(mo)m(v)m(ed)h(to)g(the)891
3010 y(righ)m(t-hand)d(side)f(of)i(the)f(rule.)38 b(The)24
b(remaining)e(left-hand)i(side)f(is)g(then)i(added)891
3109 y(to)32 b(the)e(appropriate)g(table.)40 b(F)-8 b(or)31
b(example,)1240 3316 y FH(let)42 b(2*x*y=3)891 3522 y
FQ(b)s(ecomes)1240 3729 y FH(let)g(x*y=3/2)891 3948 y
FQ(so)k(that)g FJ(x*y)f FQ(is)f(added)h(to)h(the)g(pro)s(duct)e
(substitution)f(table,)49 b(and)c(when)891 4061 y(this)38
b(rule)g(is)g(applied,)h(the)g(expression)f FJ(x*y)g
FQ(b)s(ecomes)h(3/2,)k(but)38 b FJ(X)h FQ(or)f FJ(Y)h
FQ(b)m(y)891 4174 y(themselv)m(es)31 b(are)g(not)f(replaced.)664
4228 y @beginspecial @setspecial @endspecial 775 4347
a(3.)46 b(If)29 b(the)g(op)s(erators)f FJ(+)p FQ(,)h
FJ(-)g FQ(or)f FJ(/)h FQ(app)s(ear)f(at)h(the)g(top)g(lev)m(el)f(of)h
(the)g(simpli\014ed)c(left-)891 4446 y(hand)i(side,)h(all)f(but)h(the)g
(\014rst)f(term)h(is)f(mo)m(v)m(ed)i(to)g(the)g(righ)m(t-hand)d(side)h
(of)i(the)891 4546 y(rule.)40 b(Th)m(us)29 b(the)i(rules)1240
4752 y FH(let)42 b(l+m=n,)g(x/2=y,)f(a-b=c)891 4959 y
FQ(b)s(ecome)p eop
%%Page: 159 159
159 158 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.2.)72 b(LET)30 b(R)m(ULES)2078 b FQ(159)817 555
y FH(let)42 b(l=n-m,)f(x=2*y,)g(a=c+b.)241 779 y FQ(One)29
b(problem)f(that)i(can)g(o)s(ccur)f(in)f(this)g(case)j(is)d(that)j(if)d
(a)i(quan)m(ti\014ed)e(expression)g(is)241 879 y(mo)m(v)m(ed)33
b(to)g(the)f(righ)m(t-hand)f(side,)h(a)h(giv)m(en)f(free)g(v)-5
b(ariable)31 b(migh)m(t)h(no)g(longer)g(app)s(ear)241
979 y(on)k(the)h(left-hand)e(side,)i(resulting)e(in)g(an)h(error)g(b)s
(ecause)h(of)f(the)h(unmatc)m(hed)f(free)241 1078 y(v)-5
b(ariable.)39 b(E.g.,)589 1284 y FH(for)k(all)f(x,y)g(let)h
(f\(x\)+f\(y\)=x*y)241 1490 y FQ(w)m(ould)29 b(b)s(ecome)589
1696 y FH(for)43 b(all)f(x,y)g(let)h(f\(x\)=x*y-f\(y\))241
1915 y FQ(whic)m(h)29 b(no)h(longer)g(has)g FJ(Y)g FQ(on)h(b)s(oth)e
(sides.)241 2065 y(The)f(fact)i(that)g(arra)m(y)g(and)e(matrix)g
(elemen)m(ts)i(are)f(ev)-5 b(aluated)29 b(in)f(the)h(left-hand)g(side)
241 2164 y(of)d(rules)e(can)i(lead)f(to)i(confusion)d(at)i(times.)39
b(Consider)24 b(for)h(example)h(the)g(statemen)m(ts)589
2370 y FH(array)42 b(a\(5\);)f(let)i(x+a\(2\)=3;)d(let)i(a\(3\)=4;)241
2589 y FQ(The)34 b(left-hand)f(side)g(of)i(the)g(\014rst)e(rule)g(will)
f(b)s(ecome)j FJ(X)p FQ(,)f(and)g(the)h(second)f(0.)54
b(Th)m(us)241 2702 y(the)27 b(\014rst)g(rule)f(will)f(b)s(e)i(instan)m
(tiated)g(as)h(a)g(substitution)d(for)j FJ(X)p FQ(,)f(and)g(the)h
(second)f(will)241 2815 y(result)i(in)g(an)h(error.)241
2978 y(The)40 b(order)f(in)g(whic)m(h)g(a)i(list)e(of)h(rules)f(is)g
(applied)g(is)g(not)h(easily)g(understandable)241 3091
y(without)f(a)i(detailed)e(kno)m(wledge)h(of)g(the)h(system)f
(simpli\014cation)d(proto)s(col.)70 b(It)40 b(is)241
3204 y(also)d(p)s(ossible)d(for)j(this)f(order)h(to)h(c)m(hange)g(from)
e(release)i(to)g(release,)h(as)e(impro)m(v)m(ed)241 3317
y(substitution)j(tec)m(hniques)j(are)g(implemen)m(ted.)77
b(Users)43 b(should)d(therefore)k(assume)241 3429 y(that)30
b(the)g(order)g(of)g(application)e(of)j(rules)d(is)h(arbitrary)-8
b(,)30 b(and)f(program)h(accordingly)-8 b(.)241 3592
y(After)30 b(a)g(substitution)d(has)j(b)s(een)f(made,)h(the)g
(expression)e(b)s(eing)g(ev)-5 b(aluated)30 b(is)f(reex-)241
3705 y(amined)c(in)g(case)j(a)f(new)e(allo)m(w)m(ed)i(substitution)d
(has)i(b)s(een)g(generated.)40 b(This)25 b(pro)s(cess)241
3818 y(is)k(con)m(tin)m(ued)h(un)m(til)f(no)h(more)h(substitutions)d
(can)i(b)s(e)g(made.)241 3967 y(As)f(men)m(tioned)g(elsewhere,)h(when)e
(a)i(substitution)d(expression)i(app)s(ears)g(in)f(a)i(pro)s(d-)241
4067 y(uct,)42 b(the)e(substitution)d(is)h(made)i(if)e(that)i
(expression)e(divides)f(the)j(pro)s(duct.)67 b(F)-8 b(or)241
4167 y(example,)30 b(the)h(rule)589 4373 y FH(let)43
b(a^2*c)e(=)i(3*z;)241 4592 y FQ(w)m(ould)25 b(cause)i
FJ(a^2*c*x)d FQ(to)k(b)s(e)d(replaced)h(b)m(y)h FJ(3*Z*X)e
FQ(and)g FJ(a^2*c^2)g FQ(b)m(y)h FJ(3*Z*C)p FQ(.)f(If)h(the)241
4705 y(substitution)33 b(is)j(desired)e(only)h(when)g(the)i
(substitution)c(expression)i(app)s(ears)g(in)g(a)241
4818 y(pro)s(duct)c(with)g(the)i(explicit)e(p)s(o)m(w)m(ers)h(supplied)
d(in)i(the)i(rule,)f(the)h(command)f FJ(MATCH)241 4930
y FQ(should)c(b)s(e)i(used)f(instead.)p eop
%%Page: 160 160
160 159 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(160)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)664 555 y FQ(F)-8 b(or)31 b(example,)1013
761 y FH(match)41 b(a^2*c)h(=)h(3*z;)664 980 y FQ(w)m(ould)34
b(cause)h FJ(a^2*c*x)d FQ(to)k(b)s(e)e(replaced)g(b)m(y)g
FJ(3*Z*X)p FQ(,)g(but)g FJ(a^2*c^2)e FQ(w)m(ould)i(not)h(b)s(e)664
1093 y(replaced.)40 b FJ(MATCH)28 b FQ(can)h(also)g(b)s(e)g(used)f
(with)g(the)h FJ(FOR)47 b(ALL)28 b FQ(constructions)h(describ)s(ed)664
1206 y(ab)s(o)m(v)m(e.)664 1356 y(T)-8 b(o)27 b(remo)m(v)m(e)h
(substitution)c(rules)h(of)h(the)h(t)m(yp)s(e)f(discussed)f(in)g(this)g
(section,)j(the)e FJ(CLEAR)664 1455 y FQ(command)d(can)g(b)s(e)f(used,)
i(com)m(bined,)g(if)e(necessary)-8 b(,)25 b(with)d(the)h(same)g
FJ(FOR)47 b(ALL)22 b FQ(clause)664 1555 y(with)29 b(whic)m(h)g(the)i
(rule)e(w)m(as)i(de\014ned,)e(for)h(example:)1013 1761
y FH(for)42 b(all)h(x)g(clear)e(log\(e^x\),e^log\(x\))o(,c)o(os\()o(w*)
o(t+)o(the)o(ta)o(\(x\))o(\);)664 1980 y FQ(Note,)d(ho)m(w)m(ev)m(er,)f
(that)e(the)g(arbitrary)f(v)-5 b(ariable)33 b(names)i(in)e(this)h(case)
i FD(must)44 b FQ(b)s(e)34 b(the)664 2093 y(same)d(as)g(those)f(used)g
(in)f(de\014ning)g(the)h(substitution.)664 2247 y @beginspecial
@setspecial @endspecial 182 x FE(10.3)136 b(Rule)45 b(Lists)664
2682 y FQ(Rule)29 b(lists)f(o\013er)i(an)f(alternativ)m(e)h(approac)m
(h)g(to)h(de\014ning)c(substitutions)g(that)k(is)d(dif-)664
2795 y(feren)m(t)d(from)g(either)f FJ(SUB)g FQ(or)g FJ(LET)p
FQ(.)g(In)g(fact,)j(they)e(pro)m(vide)f(the)h(b)s(est)f(features)h(of)g
(b)s(oth,)664 2908 y(since)k(they)h(ha)m(v)m(e)h(all)d(the)i
(capabilities)e(of)i FJ(LET)p FQ(,)f(but)g(the)g(rules)g(can)g(also)h
(b)s(e)f(applied)664 3020 y(lo)s(cally)f(as)i(is)f(p)s(ossible)e(with)h
FJ(SUB)p FQ(.)h(In)g(time,)h(they)g(will)d(b)s(e)i(used)g(more)g(and)g
(more)h(in)664 3133 y(REDUCE.)37 b(Ho)m(w)m(ev)m(er,)j(since)c(they)g
(are)h(relativ)m(ely)f(new,)h(m)m(uc)m(h)g(of)f(the)h(REDUCE)664
3246 y(co)s(de)31 b(y)m(ou)f(see)h(uses)f(the)h(older)e(constructs.)664
3396 y(A)i(rule)e(list)g(is)g(a)i(list)e(of)h FD(rules)39
b FQ(that)31 b(ha)m(v)m(e)g(the)g(syn)m(tax)882 3602
y FH(<expression>)39 b(=>)j(<expression>)d(\(WHEN)j(<boolean)e
(expression>\))664 3808 y FQ(F)-8 b(or)31 b(example,)1013
4013 y FH({cos\(~x\)*cos\(~y\))37 b(=>)43 b(\(cos\(x+y\)+cos\(x)o(-y\))
o(\)/)o(2,)1056 4113 y(cos\(~n*pi\))258 b(=>)43 b(\(-1\)^n)e(when)h
(remainder\(n,2\)=)o(0})664 4319 y FQ(The)23 b(tilde)g(preceding)f(a)j
(v)-5 b(ariable)22 b(marks)h(that)i(v)-5 b(ariable)22
b(as)i FD(fr)-5 b(e)g(e)31 b FQ(for)24 b(that)g(rule,)g(m)m(uc)m(h)664
4419 y(as)33 b(a)g(v)-5 b(ariable)32 b(in)f(a)j FJ(FOR)47
b(ALL)31 b FQ(clause)i(in)f(a)h FJ(LET)f FQ(statemen)m(t.)49
b(The)33 b(\014rst)f(o)s(ccurrence)664 4518 y(of)27 b(that)h(v)-5
b(ariable)26 b(in)g(eac)m(h)i(relev)-5 b(an)m(t)28 b(rule)d(m)m(ust)i
(b)s(e)g(so)g(mark)m(ed)g(on)g(input,)f(otherwise)664
4618 y(inconsisten)m(t)k(results)f(can)h(o)s(ccur.)41
b(F)-8 b(or)31 b(example,)f(the)h(rule)e(list)1013 4824
y FH({cos\(~x\)*cos\(~y\))37 b(=>)43 b(\(cos\(x+y\)+cos\(x)o(-y\))o
(\)/)o(2,)1056 4923 y(cos\(x\)^2)346 b(=>)43 b(\(1+cos\(2x\)\)/2})p
eop
%%Page: 161 161
161 160 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.3.)72 b(R)m(ULE)31 b(LISTS)2055 b FQ(161)241 555
y(designed)43 b(to)i(replace)g(pro)s(ducts)e(of)h(cosines,)k(w)m(ould)c
(not)g(b)s(e)g(correct,)49 b(since)44 b(the)241 668 y(second)30
b(rule)f(w)m(ould)g(only)g(apply)g(to)i(the)f(explicit)f(argumen)m(t)i
FJ(X)p FQ(.)f(Later)g(o)s(ccurrences)241 781 y(in)38
b(the)h(same)g(rule)f(ma)m(y)i(also)f(b)s(e)f(mark)m(ed,)k(but)c(this)g
(is)g(optional)g(\(in)m(ternally)-8 b(,)41 b(all)241
894 y(suc)m(h)d(rules)f(are)i(stored)g(with)e(eac)m(h)j(relev)-5
b(an)m(t)39 b(v)-5 b(ariable)38 b(explicitly)e(mark)m(ed\).)66
b(The)241 1007 y(optional)36 b FJ(WHEN)f FQ(clause)h(allo)m(ws)g
(constrain)m(ts)h(to)g(b)s(e)f(placed)g(on)h(the)f(application)f(of)241
1120 y(the)30 b(rule,)g(m)m(uc)m(h)g(as)h(the)f FJ(SUCH)47
b(THAT)29 b FQ(clause)h(in)f(a)i FJ(LET)f FQ(statemen)m(t.)241
1269 y(A)g(rule)f(list)g(ma)m(y)i(b)s(e)f(named,)g(for)g(example)589
1475 y FH(trig1)42 b(:=)h({cos\(~x\)*cos\(~y\))37 b(=>)42
b(\(cos\(x+y\)+cos\(x-y)o(\)\)/)o(2,)1025 1575 y(cos\(~x\)*sin\(~y\))c
(=>)k(\(sin\(x+y\)-sin\(x-y)o(\)\)/)o(2,)1025 1674 y
(sin\(~x\)*sin\(~y\))c(=>)k(\(cos\(x-y\)-cos\(x+y)o(\)\)/)o(2,)1025
1774 y(cos\(~x\)^2)302 b(=>)42 b(\(1+cos\(2*x\)\)/2,)1025
1874 y(sin\(~x\)^2)302 b(=>)42 b(\(1-cos\(2*x\)\)/2};)241
2093 y FQ(Suc)m(h)h(named)h(rule)e(lists)h(ma)m(y)h(b)s(e)f(insp)s
(ected)g(as)h(needed.)81 b(E.g.,)49 b(the)44 b(command)241
2206 y FJ(trig1;)28 b FQ(w)m(ould)i(cause)h(the)f(ab)s(o)m(v)m(e)i
(list)d(to)i(b)s(e)f(prin)m(ted.)241 2355 y(Rule)j(lists)g(ma)m(y)i(b)s
(e)f(used)g(in)f(t)m(w)m(o)i(w)m(a)m(ys.)54 b(They)34
b(can)h(b)s(e)f(globally)f(instan)m(tiated)h(b)m(y)241
2455 y(means)c(of)h(the)f(command)g FJ(LET)p FQ(.)g(F)-8
b(or)31 b(example,)589 2661 y FH(let)43 b(trig1;)241
2867 y FQ(w)m(ould)30 b(cause)j(the)f(ab)s(o)m(v)m(e)h(list)e(of)h
(rules)f(to)h(b)s(e)g(globally)e(activ)m(e)j(from)f(then)f(on)h(un)m
(til)241 2966 y(cancelled)e(b)m(y)g(the)g(command)h FJ(CLEARRULES)p
FQ(,)c(as)k(in)589 3172 y FH(clearrules)40 b(trig1;)241
3378 y FJ(CLEARRULES)27 b FQ(has)j(the)h(syn)m(tax)589
3584 y FH(CLEARRULES)40 b(<rule)h(list>|<name)e(of)k(rule)f
(list>\(,...\))d(.)241 3790 y FQ(The)f(second)h(w)m(a)m(y)h(to)g(use)f
(rule)e(lists)h(is)g(to)i(in)m(v)m(ok)m(e)g(them)f(lo)s(cally)e(b)m(y)i
(means)g(of)g(a)241 3889 y FJ(WHERE)29 b FQ(clause.)40
b(F)-8 b(or)31 b(example)589 4095 y FH(cos\(a\)*cos\(b+c\))720
4195 y(where)42 b({cos\(~x\)*cos\(~y\))37 b(=>)42 b
(\(cos\(x+y\)+cos\(x-y)o(\)\)/)o(2})o(;)241 4401 y FQ(or)589
4607 y FH(cos\(a\)*sin\(b\))d(where)i(trigrules;)241
4813 y FQ(The)30 b(syn)m(tax)h(of)f(an)g(expression)f(with)h(a)g
FJ(WHERE)f FQ(clause)h(is:)p eop
%%Page: 162 162
162 161 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(162)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)1013 555 y FH(<expression>)1187 655 y(WHERE)42
b(<rule>|<rule)c(list>\(,<rule>|<ru)o(le)f(list>)42 b(...\))664
861 y FQ(so)31 b(the)f(\014rst)g(example)g(ab)s(o)m(v)m(e)i(could)d
(also)h(b)s(e)g(written)1013 1067 y FH(cos\(a\)*cos\(b+c\))1144
1166 y(where)41 b(cos\(~x\)*cos\(~y\))d(=>)k(\(cos\(x+y\)+cos\(x-y)o
(\)\))o(/2;)664 1372 y FQ(The)32 b(e\013ect)i(of)e(this)f(construct)i
(is)e(that)i(the)g(rule)e(list\(s\))g(in)g(the)i FJ(WHERE)e
FQ(clause)h(only)664 1472 y(apply)37 b(to)i(the)f(expression)f(on)g
(the)i(left)e(of)i FJ(WHERE)p FQ(.)d(They)i(ha)m(v)m(e)h(no)f(e\013ect)
i(outside)664 1571 y(the)d(expression.)58 b(In)36 b(particular,)h(they)
f(do)h(not)g(a\013ect)h(previously)c(de\014ned)h FJ(WHERE)664
1671 y FQ(clauses)30 b(or)h FJ(LET)e FQ(statemen)m(ts.)42
b(F)-8 b(or)32 b(example,)e(the)h(sequence)882 1877 y
FH(let)42 b(a=2;)882 1977 y(a)h(where)f(a=>4;)882 2076
y(a;)664 2282 y FQ(w)m(ould)29 b(result)h(in)f(the)h(output)882
2488 y FH(4)882 2687 y(2)664 2893 y FQ(Although)f FJ(WHERE)g
FQ(has)h(a)h(precedence)f(less)g(than)f(an)m(y)i(other)f(in\014x)f(op)s
(erator,)h(it)g(still)664 2993 y(binds)23 b(higher)g(than)i(k)m(eyw)m
(ords)g(suc)m(h)g(as)g FJ(ELSE)p FQ(,)f FJ(THEN)p FQ(,)h
FJ(DO)p FQ(,)f FJ(REPEAT)g FQ(and)g(so)h(on.)39 b(Th)m(us)664
3092 y(the)31 b(expression)1013 3298 y FH(if)43 b(a=2)f(then)g(3)h
(else)f(a+2)g(where)g(a=3)664 3504 y FQ(will)28 b(parse)i(as)1013
3710 y FH(if)43 b(a=2)f(then)g(3)h(else)f(\(a+2)g(where)f(a=3\))664
3929 y FJ(WHERE)36 b FQ(ma)m(y)h(b)s(e)g(used)f(to)i(in)m(tro)s(duce)e
(auxiliary)f(v)-5 b(ariables)35 b(in)h(sym)m(b)s(olic)g(mo)s(de)g(ex-)
664 4042 y(pressions,)25 b(as)h(describ)s(ed)e(in)g(Section)i
@beginspecial @setspecial @endspecial(16.4)q(.)40 b(Ho)m(w)m(ev)m(er,)
28 b(the)e(sym)m(b)s(olic)e(mo)s(de)i(use)f(has)664 4155
y(di\013eren)m(t)h(seman)m(tics,)i(so)f(expressions)e(do)i(not)g(carry)
g(from)f(one)h(mo)s(de)f(to)i(the)e(other.)664 4318 y
FD(Comp)-5 b(atibility)45 b(Note:)d FQ(In)e(order)g(to)h(pro)m(vide)f
(compatibilit)m(y)f(with)h(older)g(v)m(ersions)664 4431
y(of)e(rule)e(lists)g(released)h(through)f(the)i(Net)m(w)m(ork)h
(Library)-8 b(,)38 b(it)f(is)f(curren)m(tly)g(p)s(ossible)664
4544 y(to)e(use)f(an)g(equal)g(sign)f(in)m(terc)m(hangeably)h(with)f
(the)i(replacemen)m(t)g(sign)e FJ(=>)g FQ(in)g(rules)664
4656 y(and)f FJ(LET)f FQ(statemen)m(ts.)44 b(Ho)m(w)m(ev)m(er,)33
b(since)e(this)f(will)e(c)m(hange)k(in)e(future)g(v)m(ersions,)h(the)
664 4769 y(replacemen)m(t)h(sign)e(is)g(preferable)g(in)g(rules)f(and)i
(the)g(equal)g(sign)f(in)f(non-rule-based)664 4882 y
FJ(LET)h FQ(statemen)m(ts.)p eop
%%Page: 163 163
163 162 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.3.)72 b(R)m(ULE)31 b(LISTS)2055 b FQ(163)241 555
y FR(Adv)-6 b(anced)38 b(Use)g(of)f(Rule)g(Lists)241
777 y FQ(Some)27 b(adv)-5 b(anced)27 b(features)h(of)f(the)h(rule)e
(list)g(mec)m(hanism)g(mak)m(e)j(it)d(p)s(ossible)f(to)j(write)241
890 y(more)37 b(complicated)f(rules)f(than)i(those)g(discussed)e(so)i
(far,)h(and)e(in)f(man)m(y)i(cases)h(to)241 1002 y(write)29
b(more)i(compact)h(rule)d(lists.)39 b(These)30 b(features)h(are:)377
1250 y FP(\017)46 b FQ(F)-8 b(ree)32 b(op)s(erators)377
1433 y FP(\017)46 b FQ(Double)30 b(slash)f(op)s(erator)377
1616 y FP(\017)46 b FQ(Double)30 b(tilde)f(v)-5 b(ariables.)241
1850 y(A)28 b FN(free)33 b(op)s(erator)c FQ(in)e(the)h(left)h(hand)e
(side)h(of)g(a)h(pattern)g(will)d(matc)m(h)j(an)m(y)g(op)s(erator)241
1950 y(with)37 b(the)i(same)g(n)m(um)m(b)s(er)e(of)i(argumen)m(ts.)65
b(The)38 b(free)h(op)s(erator)g(is)e(written)h(in)f(the)241
2050 y(same)e(st)m(yle)h(as)f(a)h(v)-5 b(ariable.)54
b(F)-8 b(or)36 b(example,)g(the)f(implemen)m(tation)f(of)h(the)h(pro)s
(duct)241 2149 y(rule)29 b(of)h(di\013eren)m(tiation)f(can)i(b)s(e)f
(written)f(as:)241 2355 y FH(operator)40 b(diff,)i(!~f,)f(!~g;)241
2554 y(prule)g(:=)i({diff\(~f\(~x\))c(*)k(~g\(~x\),x\))d(=>)807
2654 y(diff\(f\(x\),x\))f(*)k(g\(x\))f(+)h(diff\(g\(x\),x\))c(*)k
(f\(x\)};)241 2853 y(let)f(prule;)241 3053 y(diff\(sin\(z\)*cos\()o
(z\))o(,z)o(\);)633 3252 y(cos\(z\)*diff\(sin\()o(z\),)o(z\))37
b(+)43 b(diff\(cos\(z\),z\)*s)o(in\()o(z\))241 3458 y
FQ(The)25 b FN(double)k(slash)h(op)s(erator)25 b FQ(ma)m(y)h(b)s(e)f
(used)f(as)i(an)f(alternativ)m(e)h(to)g(a)g(single)e(slash)241
3557 y(\(quotien)m(t\))29 b(in)f(order)g(to)h(matc)m(h)h(quotien)m(ts)f
(prop)s(erly)-8 b(.)38 b(E.g.,)30 b(in)d(the)i(example)f(of)h(the)241
3657 y(Gamma)i(function)e(ab)s(o)m(v)m(e,)j(one)e(can)h(use:)241
3863 y FH(gammarule)40 b(:=)372 3962 y({gamma\(~z\)//\(~c)o(*g)o(amm)o
(a\()o(~zz)o(\)\))81 b(=>)42 b(gamma\(z\)/\(c*gamma)o(\(z)o(z-1)o(\)*)o
(zz\))1025 4062 y(when)g(fixp\(zz)f(-z\))h(and)h(\(zz)f(-z\))g(>0,)415
4162 y(gamma\(~z\)//gamma)o(\(~z)o(z\))37 b(=>)43 b
(gamma\(z\)/\(gamma\()o(zz)o(-1)o(\)*z)o(z\))1025 4261
y(when)f(fixp\(zz)f(-z\))h(and)h(\(zz)f(-z\))g(>0};)241
4461 y(let)g(gammarule;)241 4660 y(gamma\(z\)/gamma\(z)o(+3)o(\);)677
4859 y(1)241 4959 y(----------------)o(--)o(--)o(--)p
eop
%%Page: 164 164
164 163 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(164)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)751 555 y FH(3)261 b(2)708 655 y(z)87 b(+)43
b(6*z)86 b(+)43 b(11*z)f(+)h(6)664 861 y FQ(The)27 b(ab)s(o)m(v)m(e)i
(example)f(su\013ers)f(from)g(the)h(fact)h(that)f(t)m(w)m(o)h(rules)e
(had)g(to)h(b)s(e)f(written)g(in)664 960 y(order)32 b(to)h(p)s(erform)d
(the)i(required)f(op)s(eration.)45 b(This)30 b(can)i(b)s(e)g
(simpli\014ed)c(b)m(y)k(the)g(use)664 1060 y(of)f FN(double)k(tilde)g
(v)-6 b(ariables)p FQ(.)41 b(E.g.)g(the)30 b(rule)g(list)708
1266 y FH(GGrule)41 b(:=)86 b({)839 1365 y(gamma\(~z\)//\(~~c)o(*g)o
(amm)o(a\()o(~zz)o(\)\))81 b(=>)42 b(gamma\(z\)/\(c*gamma)o(\(z)o(z-1)o
(\)*)o(zz\))882 1465 y(when)g(fixp\(zz)f(-z\))h(and)g(\(zz)h(-z\))f
(>0};)664 1684 y FQ(will)22 b(implemen)m(t)g(the)j(same)f(op)s(eration)
g(in)f(a)h(m)m(uc)m(h)g(more)h(compact)g(w)m(a)m(y)-8
b(.)40 b(In)24 b(general,)664 1797 y(double)30 b(tilde)f(v)-5
b(ariables)30 b(are)h(b)s(ound)e(to)j(the)f(neutral)f(elemen)m(t)h
(with)f(resp)s(ect)h(to)h(the)664 1910 y(op)s(eration)e(in)f(whic)m(h)g
(they)i(are)f(used.)714 2065 y(P)m(attern)h(giv)m(en)100
b(Argumen)m(t)31 b(used)98 b(Binding)714 2291 y(~z)31
b(+)f(~~y)284 b(x)658 b(z=x;)31 b(y=0)714 2404 y(~z)g(+)f(~~y)284
b(x+3)542 b(z=x;)31 b(y=3)g(or)f(z=3;)h(y=x)714 2629
y(~z)g(*)g(~~y)309 b(x)658 b(z=x;)31 b(y=1)714 2742 y(~z)g(*)g(~~y)309
b(x*3)568 b(z=x;)31 b(y=3)g(or)f(z=3;)h(y=x)714 2968
y(~z)g(/)g(~~y)309 b(x)658 b(z=x;)31 b(y=1)714 3081 y(~z)g(/)g(~~y)309
b(x/3)568 b(z=x;)31 b(y=3)664 3349 y(Remarks:)51 b(A)35
b(double)f(tilde)g(v)-5 b(ariable)34 b(as)h(the)h(n)m(umerator)f(of)g
(a)h(pattern)f(is)f(not)i(al-)664 3449 y(lo)m(w)m(ed.)41
b(Also,)30 b(using)f(double)g(tilde)g(v)-5 b(ariables)29
b(ma)m(y)i(lead)f(to)h(recursion)e(errors)h(when)664
3548 y(the)h(zero)g(case)g(is)f(not)g(handled)f(prop)s(erly)-8
b(.)664 3754 y FH(let)43 b(f\(~~a)e(*)i(~x,x\))85 b(=>)43
b(a)g(*)g(f\(x,x\))f(when)f(freeof)h(\(a,x\);)664 3954
y(f\(z,z\);)664 4153 y(*****)g(f\(z,z\))f(improperly)e(defined)i(in)i
(terms)e(of)i(itself)664 4352 y(\045)g(BUT:)664 4551
y(let)g(ff\(~~a)e(*)i(~x,x\))969 4651 y(=>)g(a)g(*)g(ff\(x,x\))e(when)h
(freeof)f(\(a,x\))h(and)g(a)h(neq)f(1;)664 4850 y(ff\(z,z\);)1405
4950 y(ff\(z,z\))p eop
%%Page: 165 165
165 164 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.3.)72 b(R)m(ULE)31 b(LISTS)2055 b FQ(165)241 655
y FH(ff\(3*z,z\);)982 754 y(3*ff\(z,z\))241 1048 y FR(Displa)m(ying)36
b(Rules)g(Asso)s(ciated)h(with)g(an)h(Op)s(erator)241
1256 y FQ(The)32 b(op)s(erator)i FJ(SHOWRULES)c FQ(tak)m(es)35
b(a)e(single)f(iden)m(ti\014er)f(as)j(argumen)m(t,)g(and)f(returns)241
1355 y(in)44 b(rule-list)f(form)i(the)h(op)s(erator)f(rules)f(asso)s
(ciated)i(with)e(that)i(argumen)m(t.)87 b(F)-8 b(or)241
1455 y(example:)241 1661 y FH(showrules)40 b(log;)241
1860 y({LOG\(E\))g(=>)j(1,)284 2060 y(LOG\(1\))e(=>)i(0,)502
2259 y(~X)284 2358 y(LOG\(E)85 b(\))44 b(=>)e(~X,)1112
2558 y(1)284 2657 y(DF\(LOG\(~X\),~X\))c(=>)43 b(----})1112
2757 y(~X)241 2976 y FQ(Suc)m(h)33 b(rules)g(can)i(then)f(b)s(e)g
(manipulated)e(further)h(as)i(with)e(an)m(y)h(list.)52
b(F)-8 b(or)35 b(example)241 3089 y FJ(rhs)47 b(first)f(ws;)g
FQ(has)41 b(the)g(v)-5 b(alue)41 b FJ(1)p FQ(.)73 b(Note)43
b(that)f(an)f(op)s(erator)h(ma)m(y)g(ha)m(v)m(e)g(other)241
3202 y(prop)s(erties)28 b(that)i(cannot)g(b)s(e)f(displa)m(y)m(ed)f(in)
g(suc)m(h)h(a)h(form,)g(suc)m(h)f(as)h(the)g(fact)g(it)f(is)g(an)241
3315 y(o)s(dd)g(function,)g(or)i(has)f(a)h(de\014nition)d(de\014ned)h
(as)h(a)h(pro)s(cedure.)241 3608 y FR(Order)37 b(of)h(Application)d(of)
j(Rules)241 3829 y FQ(If)d(rules)f(ha)m(v)m(e)j(o)m(v)m(erlapping)e
(domains,)h(their)e(order)i(of)f(application)f(is)h(imp)s(ortan)m(t.)
241 3942 y(In)k(general,)k(it)d(is)f(v)m(ery)i(di\016cult)d(to)j(sp)s
(ecify)e(this)g(order)h(precisely)-8 b(,)42 b(so)f(that)g(it)e(is)241
4055 y(b)s(est)d(to)i(assume)f(that)g(the)g(order)g(is)f(arbitrary)-8
b(.)59 b(Ho)m(w)m(ev)m(er,)41 b(if)36 b(only)g(one)h(op)s(erator)241
4168 y(is)i(in)m(v)m(olv)m(ed,)j(the)e(order)g(of)g(application)e(of)i
(the)g(rules)f(for)h(this)f(op)s(erator)h(can)g(b)s(e)241
4281 y(determined)29 b(from)h(the)g(follo)m(wing:)241
4411 y @beginspecial @setspecial @endspecial 352 4543
a(1.)46 b(Rules)19 b(con)m(taining)h(at)h(least)g(one)f(free)h(v)-5
b(ariable)19 b(apply)g(b)s(efore)g(all)h(rules)e(without)468
4656 y(free)31 b(v)-5 b(ariables.)241 4694 y @beginspecial
@setspecial @endspecial 352 4844 a(2.)46 b(Rules)29 b(activ)-5
b(ated)32 b(in)d(the)h(most)h(recen)m(t)h FJ(LET)d FQ(command)h(are)h
(applied)d(\014rst.)p eop
%%Page: 166 166
166 165 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(166)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)664 464 y @beginspecial @setspecial @endspecial
775 555 a FQ(3.)46 b FJ(LET)37 b FQ(with)f(sev)m(eral)h(en)m(tries)g
(generate)i(the)e(same)h(order)e(of)i(application)d(as)j(a)891
668 y(corresp)s(onding)29 b(sequence)i(of)f(commands)g(with)f(one)i
(rule)e(or)h(rule)f(set)i(eac)m(h.)664 722 y @beginspecial
@setspecial @endspecial 775 854 a(4.)46 b(Within)36 b(a)h(rule)f(set,)j
(the)f(rules)d(con)m(taining)i(at)h(least)f(one)g(free)h(v)-5
b(ariable)36 b(are)891 967 y(applied)c(in)h(their)f(giv)m(en)i(order.)
51 b(In)33 b(other)h(w)m(ords,)g(the)g(\014rst)g(mem)m(b)s(er)f(of)h
(the)891 1080 y(list)29 b(is)h(applied)e(\014rst.)664
1134 y @beginspecial @setspecial @endspecial 775 1265
a(5.)46 b(Consisten)m(t)31 b(with)f(the)i(\014rst)e(item,)h(an)m(y)h
(rule)e(in)g(a)h(rule)f(list)g(that)i(con)m(tains)f(no)891
1378 y(free)g(v)-5 b(ariables)29 b(is)g(applied)g(after)h(all)g(rules)f
(con)m(taining)h(free)g(v)-5 b(ariables.)664 1621 y FD(Example:)41
b FQ(The)30 b(follo)m(wing)f(rule)f(set)j(enables)e(the)i(computation)f
(of)g(exact)h(v)-5 b(alues)30 b(of)664 1721 y(the)h(Gamma)g(function:)
1013 1926 y FH(operator)40 b(gamma,gamma_error)o(;)1013
2026 y(gamma_rules)f(:=)1013 2126 y({gamma\(~x\)=>sqrt)o(\(p)o(i\)/)o
(2)e(when)42 b(x=1/2,)1056 2225 y(gamma\(~n\)=>factor)o(ial)o(\(n)o
(-1\))37 b(when)42 b(fixp)g(n)h(and)f(n>0,)1056 2325
y(gamma\(~n\)=>gamma_)o(err)o(or)o(\(n\))37 b(when)42
b(fixp)g(n,)1056 2425 y(gamma\(~x\)=>\(x-1\)*)o(gam)o(ma)o(\(x-)o(1\))
37 b(when)42 b(fixp\(2*x\))e(and)i(x>1,)1056 2524 y
(gamma\(~x\)=>gamma\()o(x+1)o(\)/)o(x)c(when)j(fixp\(2*x\)};)664
2730 y FQ(Here,)k(rule)39 b(b)m(y)i(rule,)i(cases)f(of)f(kno)m(wn)f(or)
h(de\014nitely)f(uncomputable)f(v)-5 b(alues)41 b(are)664
2830 y(sorted)34 b(out;)h(e.g.)52 b(the)33 b(rule)f(leading)h(to)h(the)
g(error)f(expression)f(will)f(b)s(e)i(applied)e(for)664
2929 y(negativ)m(e)24 b(in)m(tegers)f(only)-8 b(,)24
b(since)d(the)i(p)s(ositiv)m(e)f(in)m(tegers)g(are)h(caugh)m(t)h(b)m(y)
e(the)h(preceding)664 3029 y(rule,)43 b(and)e(the)h(last)f(rule)f(will)
f(apply)h(for)h(negativ)m(e)i(o)s(dd)d(m)m(ultiples)f(of)i(1)p
FL(=)p FQ(2)i(only)-8 b(.)664 3129 y(Alternativ)m(ely)30
b(the)h(\014rst)e(rule)g(could)h(ha)m(v)m(e)h(b)s(een)f(written)f(as)
1013 3335 y FH(gamma\(1/2\))39 b(=>)k(sqrt\(pi\)/2,)664
3554 y FQ(but)33 b(then)g(the)h(case)h FL(x)30 b FQ(=)g(1)p
FL(=)p FQ(2)35 b(should)d(b)s(e)h(excluded)f(in)g(the)i
FJ(WHEN)e FQ(part)i(of)f(the)h(last)664 3667 y(rule)c(explicitly)e(b)s
(ecause)j(a)g(rule)e(without)h(free)h(v)-5 b(ariables)30
b(cannot)h(tak)m(e)h(precedence)664 3780 y(o)m(v)m(er)g(the)e(other)h
(rules.)664 3916 y @beginspecial @setspecial @endspecial
199 x FE(10.4)136 b(Asymptotic)45 b(Commands)664 4354
y FQ(In)24 b(expansions)g(of)g(p)s(olynomials)e(in)m(v)m(olving)i(v)-5
b(ariables)23 b(that)i(are)g(kno)m(wn)g(to)g(b)s(e)f(small,)664
4454 y(it)37 b(is)g(often)i(desirable)c(to)k(thro)m(w)f(a)m(w)m(a)m(y)h
(all)e(p)s(o)m(w)m(ers)h(of)g(these)g(v)-5 b(ariables)36
b(b)s(ey)m(ond)i(a)664 4554 y(certain)26 b(p)s(oin)m(t)g(to)h(a)m(v)m
(oid)g(unnecessary)f(computation.)39 b(The)26 b(command)g
FJ(LET)g FQ(ma)m(y)h(b)s(e)664 4653 y(used)j(to)h(do)f(this.)40
b(F)-8 b(or)31 b(example,)f(if)f(only)g(p)s(o)m(w)m(ers)i(of)f
FJ(X)g FQ(up)f(to)i FJ(x^7)f FQ(are)g(needed,)h(the)664
4753 y(command)1013 4959 y FH(let)42 b(x^8)h(=)g(0;)p
eop
%%Page: 167 167
167 166 bop 241 299 a @beginspecial @setspecial @endspecial
FM(10.4.)72 b(ASYMPTOTIC)29 b(COMMANDS)1373 b FQ(167)241
555 y(will)27 b(cause)k(the)g(system)f(to)i(delete)e(all)f(p)s(o)m(w)m
(ers)i(of)f FJ(X)g FQ(higher)f(than)h(7.)241 718 y FD(CA)n(UTION:)g
FQ(This)g(particular)g(simpli\014cation)e(w)m(orks)k(di\013eren)m(tly)f
(from)g(most)h(sub-)241 831 y(stitution)i(mec)m(hanisms)h(in)g(REDUCE)h
(in)e(that)j(it)e(is)g(applied)f(during)f(p)s(olynomial)241
944 y(manipulation)22 b(rather)j(than)g(to)i(the)e(whole)g(ev)-5
b(aluated)25 b(expression.)38 b(Th)m(us,)25 b(with)f(the)241
1057 y(ab)s(o)m(v)m(e)30 b(rule)d(in)h(e\013ect,)i FJ(x^10/x^5)d
FQ(w)m(ould)h(giv)m(e)h(the)g(result)e(zero,)j(since)f(the)g(n)m
(umera-)241 1170 y(tor)c(w)m(ould)e(simplify)f(to)j(zero.)40
b(Similarly)21 b FJ(x^20/x^10)h FQ(w)m(ould)h(giv)m(e)j(a)f
FJ(Zero)46 b(divisor)241 1282 y FQ(error)34 b(message,)j(since)c(b)s
(oth)h(n)m(umerator)h(and)e(denominator)h(w)m(ould)f(\014rst)h
(simplify)241 1395 y(to)d(zero.)241 1545 y(The)26 b(metho)s(d)g(just)h
(describ)s(ed)d(is)i(not)h(adequate)h(when)e(expressions)f(in)m(v)m
(olv)m(e)i(sev)m(eral)241 1644 y(v)-5 b(ariables)32 b(ha)m(ving)g
(di\013eren)m(t)h(degrees)h(of)f(smallness.)48 b(In)33
b(this)f(case,)j(it)e(is)f(necessary)241 1744 y(to)43
b(supply)d(an)j(asymptotic)g(w)m(eigh)m(t)g(to)g(eac)m(h)h(v)-5
b(ariable)41 b(and)h(coun)m(t)h(up)f(the)h(total)241
1844 y(w)m(eigh)m(t)33 b(of)g(eac)m(h)h(pro)s(duct)e(in)f(an)i
(expanded)f(expression)g(b)s(efore)g(deciding)f(whether)241
1943 y(to)f(k)m(eep)g(the)f(term)g(or)g(not.)41 b(There)29
b(are)g(t)m(w)m(o)i(asso)s(ciated)e(commands)g(in)f(the)h(system)241
2043 y(to)j(p)s(ermit)e(this)g(t)m(yp)s(e)i(of)g(asymptotic)g
(constrain)m(t.)44 b(The)31 b(command)h FJ(WEIGHT)61
b FQ(tak)m(es)241 2143 y(a)31 b(list)e(of)h(equations)g(of)h(the)f
(form)589 2348 y FH(<kernel)41 b(form>)h(=)h(<number>)241
2568 y FQ(where)32 b FJ(<number>)e FQ(m)m(ust)j(b)s(e)e(a)i(p)s(ositiv)
m(e)f(in)m(teger)h(\(not)g(just)f(ev)-5 b(aluate)33 b(to)h(a)e(p)s
(ositiv)m(e)241 2681 y(in)m(teger\).)41 b(This)27 b(command)h(assigns)g
(the)h(w)m(eigh)m(t)h FJ(<number>)c FQ(to)k(the)f(relev)-5
b(an)m(t)29 b(k)m(ernel)241 2793 y(form.)55 b(A)36 b(c)m(hec)m(k)h(is)d
(then)h(made)g(in)g(all)f(algebraic)h(ev)-5 b(aluations)35
b(to)h(see)g(if)e(the)i(total)241 2906 y(w)m(eigh)m(t)21
b(of)g(the)h(term)f(is)f(greater)i(than)f(the)g(w)m(eigh)m(t)g(lev)m
(el)g(assigned)f(to)i(the)f(calculation.)241 3019 y(If)32
b(it)g(is,)h(the)g(term)f(is)g(deleted.)47 b(T)-8 b(o)34
b(compute)f(the)f(total)i(w)m(eigh)m(t)f(of)g(a)g(pro)s(duct,)f(the)241
3132 y(individual)22 b(w)m(eigh)m(ts)27 b(of)h(eac)m(h)g(k)m(ernel)e
(form)h(are)g(m)m(ultiplied)d(b)m(y)i(their)h(corresp)s(onding)241
3245 y(p)s(o)m(w)m(ers)j(and)g(then)g(added.)241 3395
y(The)36 b(w)m(eigh)m(t)i(lev)m(el)f(of)g(the)g(system)g(is)g
(initially)c(set)38 b(to)g(1.)61 b(The)36 b(user)h(ma)m(y)g(c)m(hange)
241 3494 y(this)29 b(setting)i(b)m(y)f(the)g(command)589
3700 y FH(wtlevel)41 b(<number>;)241 3919 y FQ(whic)m(h)28
b(sets)h FJ(<number>)e FQ(as)i(the)g(new)g(w)m(eigh)m(t)g(lev)m(el)g
(of)g(the)g(system.)41 b FJ(<number>)27 b FQ(m)m(ust)241
4032 y(ev)-5 b(aluate)35 b(to)g(a)g(p)s(ositiv)m(e)e(in)m(teger.)53
b(WTLEVEL)34 b(will)e(also)i(allo)m(w)g(NIL)g(as)h(an)f(argu-)241
4145 y(men)m(t,)d(in)e(whic)m(h)g(case)i(the)g(curren)m(t)f(w)m(eigh)m
(t)h(lev)m(el)f(is)f(returned.)p eop
%%Page: 168 168
168 167 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(168)886 b FM(CHAPTER)29 b(10.)72 b(SUBSTITUTION)29
b(COMMANDS)p eop
%%Page: 169 169
169 168 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(11)241 1693 y FT(File)76 b(Handling)h(Commands)241
2187 y FQ(In)31 b(man)m(y)i(applications,)e(it)g(is)h(desirable)e(to)j
(load)f(previously)e(prepared)h(REDUCE)241 2300 y(\014les)c(in)m(to)i
(the)g(system,)g(or)g(to)h(write)e(output)g(on)h(other)f(\014les.)40
b(REDUCE)28 b(o\013ers)h(four)241 2413 y(commands)21
b(for)h(this)f(purp)s(ose,)h(namely)-8 b(,)23 b FJ(IN)p
FQ(,)f FJ(OUT)p FQ(,)f FJ(SHUT)p FQ(,)g FJ(LOAD)p FQ(,)g(and)g
FJ(LOAD)p 2843 2413 29 4 v 33 w(PACKAGE)p FQ(.)241 2526
y(The)35 b(\014rst)71 b(three)36 b(op)s(erators)g(are)g(describ)s(ed)e
(here;)39 b FJ(LOAD)c FQ(and)g FJ(LOAD)p 2711 2526 V
33 w(PACKAGE)f FQ(are)241 2639 y(discussed)28 b(in)h(Section)h
@beginspecial @setspecial @endspecial(18.2)r(.)241 2776
y @beginspecial @setspecial @endspecial 199 x FE(11.1)135
b(IN)45 b(Command)241 3215 y FQ(This)25 b(command)j(tak)m(es)g(a)g
(list)e(of)i(\014le)e(names)i(as)f(argumen)m(t)h(and)f(directs)g(the)g
(system)241 3314 y(to)d(input)d(eac)m(h)j(\014le)f(\(that)h(should)d
(con)m(tain)j(REDUCE)f(statemen)m(ts)i(and)e(commands\))241
3414 y(in)m(to)39 b(the)h(system.)69 b(File)39 b(names)h(can)g(either)f
(b)s(e)g(an)h(iden)m(ti\014er)d(or)j(a)g(string.)68 b(The)241
3514 y(explicit)33 b(format)i(of)g(these)g(will)d(b)s(e)i(system)h(dep)
s(enden)m(t)e(and,)j(in)d(man)m(y)i(cases,)i(site)241
3613 y(dep)s(enden)m(t.)83 b(The)44 b(explicit)f(instructions)f(for)j
(the)g(implemen)m(tation)e(b)s(eing)g(used)241 3713 y(should)28
b(therefore)j(b)s(e)f(consulted)f(for)h(further)f(details.)40
b(F)-8 b(or)31 b(example:)589 3919 y FH(in)43 b(f1,"ggg.rr.s";)241
4138 y FQ(will)d(\014rst)i(load)g(\014le)g FJ(F1)p FQ(,)j(then)e
FJ(ggg.rr.s)p FQ(.)75 b(When)43 b(a)g(semicolon)f(is)f(used)h(as)h(the)
241 4251 y(terminator)27 b(of)h(the)h(IN)e(statemen)m(t,)k(the)d
(statemen)m(ts)i(in)c(the)j(\014le)e(are)h(ec)m(ho)s(ed)g(on)g(the)241
4364 y(terminal)c(or)h(written)f(on)h(the)h(curren)m(t)f(output)g
(\014le.)38 b(If)25 b($)h(is)e(used)h(as)g(the)h(terminator,)241
4477 y(the)44 b(input)e(is)h(not)h(sho)m(wn.)81 b(Ec)m(hoing)44
b(of)g(all)f(or)h(part)g(of)g(the)g(input)e(\014le)h(can)h(b)s(e)241
4590 y(prev)m(en)m(ted,)27 b(ev)m(en)f(if)e(a)i(semicolon)f(w)m(as)h
(used,)f(b)m(y)h(placing)e(an)h FJ(off)47 b(echo;)26
b FQ(command)241 4703 y(in)j(the)h(input)f(\014le.)241
4865 y(Files)h(to)h(b)s(e)f(read)h(using)e FJ(IN)i FQ(should)d(end)j
(with)e FJ(;END;)p FQ(.)41 b(Note)32 b(the)f(t)m(w)m(o)h(semicolons!)
1667 5187 y(169)p eop
%%Page: 170 170
170 169 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(170)844 b FM(CHAPTER)30 b(11.)72 b(FILE)30 b(HANDLING)i(COMMANDS)664
555 y FQ(First)26 b(of)g(all,)g(this)g(is)f(protection)h(against)h
(obscure)f(di\016culties)e(the)i(user)g(will)d(ha)m(v)m(e)28
b(if)664 668 y(there)21 b(are,)i(b)m(y)e(mistak)m(e,)i(more)e
FJ(BEGIN)p FQ(s)e(than)i FJ(END)p FQ(s)e(on)i(the)g(\014le.)36
b(Secondly)-8 b(,)23 b(it)d(triggers)664 781 y(some)31
b(\014le)e(con)m(trol)h(b)s(o)s(ok-k)m(eeping)g(whic)m(h)f(ma)m(y)i
(impro)m(v)m(e)f(system)g(e\016ciency)-8 b(.)41 b(If)30
b FJ(END)664 894 y FQ(is)g(omitted,)g(an)g(error)g(message)i
FJ("End-of-file)44 b(read")29 b FQ(will)f(o)s(ccur.)664
1049 y @beginspecial @setspecial @endspecial 181 x FE(11.2)136
b(OUT)45 b(Command)664 1483 y FQ(This)31 b(command)h(tak)m(es)i(a)e
(single)f(\014le)h(name)g(as)g(argumen)m(t,)i(and)e(directs)f(output)h
(to)664 1596 y(that)37 b(\014le)f(from)g(then)h(on,)h(un)m(til)d
(another)i FJ(OUT)f FQ(c)m(hanges)i(the)e(output)h(\014le,)g(or)g
FJ(SHUT)664 1709 y FQ(closes)e(it.)52 b(Output)33 b(can)i(go)g(to)g
(only)e(one)i(\014le)f(at)h(a)f(time,)i(although)d(man)m(y)i(can)g(b)s
(e)664 1822 y(op)s(en.)73 b(If)41 b(the)g(\014le)g(has)g(previously)e
(b)s(een)h(used)h(for)g(output)g(during)e(the)i(curren)m(t)664
1935 y(job,)33 b(and)f(not)g FJ(SHUT)p FQ(,)g(the)g(new)g(output)g(is)g
(app)s(ended)e(to)k(the)e(end)g(of)g(the)h(\014le.)46
b(An)m(y)664 2047 y(existing)26 b(\014le)h(is)f(erased)h(b)s(efore)g
(its)g(\014rst)f(use)h(for)g(output)g(in)f(a)h(job,)h(or)f(if)f(it)h
(had)g(b)s(een)664 2160 y FJ(SHUT)i FQ(b)s(efore)h(the)h(new)f
FJ(OUT)p FQ(.)664 2323 y(T)-8 b(o)33 b(output)e(on)h(the)g(terminal)f
(without)g(closing)g(the)h(output)g(\014le,)f(the)i(reserv)m(ed)f
(\014le)664 2436 y(name)j(T)g(\(for)g(terminal\))e(ma)m(y)j(b)s(e)e
(used.)53 b(F)-8 b(or)36 b(example,)g FJ(out)47 b(ofile;)35
b FQ(will)d(direct)664 2549 y(output)23 b(to)h(the)f(\014le)f
FJ(OFILE)f FQ(and)i FJ(out)47 b(t;)24 b FQ(will)d(direct)h(output)h(to)
h(the)f(user's)f(terminal.)664 2712 y(The)33 b(output)f(sen)m(t)i(to)f
(the)g(\014le)f(will)f(b)s(e)h(in)f(the)i(same)h(form)e(that)i(it)e(w)m
(ould)g(ha)m(v)m(e)i(on)664 2825 y(the)26 b(terminal.)37
b(In)25 b(particular)f FJ(x^2)g FQ(w)m(ould)h(app)s(ear)f(on)i(t)m(w)m
(o)g(lines,)f(an)h FJ(X)f FQ(on)g(the)h(lo)m(w)m(er)664
2937 y(line)33 b(and)h(a)h(2)g(on)g(the)f(line)f(ab)s(o)m(v)m(e.)55
b(If)34 b(the)h(purp)s(ose)e(of)i(the)f(output)h(\014le)e(is)h(to)h(sa)
m(v)m(e)664 3050 y(results)f(to)j(b)s(e)d(read)i(in)e(later,)j(this)d
(is)h(not)g(an)h(appropriate)e(form.)56 b(W)-8 b(e)36
b(\014rst)f(m)m(ust)664 3163 y(turn)41 b(o\013)h(the)g
FJ(NAT)e FQ(switc)m(h)i(that)g(sp)s(eci\014es)e(that)i(output)g(should)
d(b)s(e)i(in)g(standard)664 3276 y(mathematical)31 b(notation.)664
3426 y FD(Example:)40 b FQ(T)-8 b(o)26 b(create)i(a)e(\014le)g
FJ(ABCD)f FQ(from)g(whic)m(h)g(it)h(will)e(b)s(e)h(p)s(ossible)f(to)j
(read)f({)g(using)664 3525 y FJ(IN)k FQ({)h(the)f(v)-5
b(alue)30 b(of)h(the)f(expression)f FJ(XYZ)p FQ(:)708
3731 y FH(off)42 b(echo$)260 b(\045)43 b(needed)e(if)i(your)f(input)f
(is)i(from)f(a)h(file.)708 3831 y(off)f(nat$)304 b(\045)43
b(output)e(in)i(IN-readable)c(form.)i(Each)h(expression)1362
3930 y(\045)h(printed)d(will)i(end)h(with)f(a)h($)g(.)708
4030 y(out)f(abcd$)260 b(\045)43 b(output)e(to)i(new)f(file)708
4130 y(linelength)d(72$)k(\045)g(for)f(systems)f(with)h(fixed)f(input)h
(line)g(length.)708 4229 y(xyz:=xyz;)258 b(\045)43 b(will)f(output)f
("XYZ)h(:=)g(")i(followed)c(by)j(the)f(value)1362 4329
y(\045)h(of)f(XYZ)708 4429 y(write)f(";end"$)85 b(\045)43
b(standard)d(for)i(ending)f(files)h(for)g(IN)708 4528
y(shut)g(abcd$)216 b(\045)43 b(save)f(ABCD,)f(return)g(to)i(terminal)d
(output)708 4628 y(on)j(nat$)695 b(\045)43 b(restore)e(usual)h(output)f
(form)664 4783 y @beginspecial @setspecial @endspecial
eop
%%Page: 171 171
171 170 bop 241 299 a @beginspecial @setspecial @endspecial
FM(11.3.)72 b(SHUT)30 b(COMMAND)1804 b FQ(171)241 555
y FE(11.3)135 b(SHUT)45 b(Command)241 808 y FQ(This)21
b(command)h(tak)m(es)j(a)e(list)e(of)i(names)g(of)g(\014les)f(that)h
(ha)m(v)m(e)i(b)s(een)d(previously)e(op)s(ened)241 921
y(via)30 b(an)g FJ(OUT)g FQ(statemen)m(t)i(and)e(closes)g(them.)41
b(Most)31 b(systems)g(require)e(this)g(action)i(b)m(y)241
1034 y(the)42 b(user)g(b)s(efore)f(he)i(ends)e(the)h(REDUCE)g(job)g
(\(if)g(not)g(so)s(oner\),)k(otherwise)41 b(the)241 1147
y(output)32 b(ma)m(y)h(b)s(e)e(lost.)47 b(If)32 b(a)h(\014le)e(is)h(sh)
m(ut)g(and)g(a)g(further)f FJ(OUT)h FQ(command)g(issued)f(for)241
1260 y(the)f(same)h(\014le,)f(the)g(\014le)g(is)f(erased)i(b)s(efore)f
(the)g(new)g(output)g(is)g(written.)241 1422 y(If)23
b(it)h(is)f(the)i(curren)m(t)f(output)f(\014le)h(that)g(is)f(sh)m(ut,)j
(output)d(will)f(switc)m(h)i(to)g(the)h(terminal.)241
1535 y(A)m(ttempts)35 b(to)g(sh)m(ut)e(\014les)g(that)i(ha)m(v)m(e)g
(not)f(b)s(een)g(op)s(ened)f(b)m(y)h FJ(OUT)p FQ(,)f(or)h(an)g(input)e
(\014le,)241 1648 y(will)27 b(lead)j(to)i(errors.)p eop
%%Page: 172 172
172 171 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(172)844 b FM(CHAPTER)30 b(11.)72 b(FILE)30 b(HANDLING)i(COMMANDS)p
eop
%%Page: 173 173
173 172 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(12)241 1693 y FT(Commands)76 b(for)i(In)-6 b(teractiv)g(e)241
1942 y(Use)241 2436 y FQ(REDUCE)21 b(is)f(designed)f(as)j(an)e(in)m
(teractiv)m(e)i(system,)i(but)c(naturally)f(it)i(can)g(also)g(op)s(er-)
241 2549 y(ate)28 b(in)e(a)h(batc)m(h)h(pro)s(cessing)e(or)h(bac)m
(kground)g(mo)s(de)g(b)m(y)g(taking)g(its)g(input)e(command)241
2662 y(b)m(y)37 b(command)h(from)f(the)i(relev)-5 b(an)m(t)38
b(input)e(stream.)63 b(There)37 b(is)g(a)i(basic)e(di\013erence,)241
2775 y(ho)m(w)m(ev)m(er,)42 b(b)s(et)m(w)m(een)d(in)m(teractiv)m(e)g
(and)e(batc)m(h)i(use)f(of)h(the)f(system.)65 b(In)37
b(the)i(former)241 2888 y(case,)g(whenev)m(er)e(the)g(system)g(disco)m
(v)m(ers)g(an)g(am)m(biguit)m(y)f(at)h(some)h(p)s(oin)m(t)d(in)h(a)h
(cal-)241 3001 y(culation,)c(suc)m(h)g(as)g(a)h(forgotten)g(t)m(yp)s(e)
f(assignmen)m(t)g(for)g(instance,)h(it)f(asks)g(the)g(user)241
3114 y(for)e(the)g(correct)h(in)m(terpretation.)42 b(In)30
b(batc)m(h)i(op)s(eration,)f(it)f(is)g(not)i(practical)e(to)i(ter-)241
3227 y(minate)i(the)i(calculation)e(at)i(suc)m(h)e(p)s(oin)m(ts)g(and)h
(require)e(resubmission)f(of)j(the)h(job,)241 3340 y(so)k(the)h(system)
f(mak)m(es)h(the)g(most)g(ob)m(vious)e(guess)i(of)f(the)h(user's)e(in)m
(ten)m(tions)h(and)241 3453 y(con)m(tin)m(ues)30 b(the)h(calculation.)
241 3615 y(There)h(is)f(also)h(a)h(di\013erence)e(in)g(the)i(handling)c
(of)k(errors.)46 b(In)31 b(the)h(former)g(case,)i(the)241
3728 y(computation)c(can)g(con)m(tin)m(ue)g(since)f(the)h(user)f(has)h
(the)g(opp)s(ortunit)m(y)e(to)i(correct)h(the)241 3841
y(mistak)m(e.)52 b(In)33 b(batc)m(h)i(mo)s(de,)g(the)f(error)g(ma)m(y)h
(lead)e(to)i(consequen)m(t)g(erroneous)f(\(and)241 3954
y(p)s(ossibly)c(time)i(consuming\))g(computations.)48
b(So)33 b(in)f(the)h(default)f(case,)j(no)e(further)241
4067 y(ev)-5 b(aluation)25 b(o)s(ccurs,)i(although)f(the)g(remainder)e
(of)j(the)f(input)e(is)h(c)m(hec)m(k)m(ed)j(for)e(syn)m(tax)241
4180 y(errors.)37 b(A)21 b(message)i FJ("Continuing)44
b(with)j(parsing)f(only")20 b FQ(informs)f(the)i(user)g(that)241
4293 y(this)29 b(is)g(happ)s(ening.)38 b(On)30 b(the)g(other)h(hand,)e
(the)i(switc)m(h)e FJ(ERRCONT)p FQ(,)g(if)g(on,)h(will)e(cause)241
4406 y(the)i(system)h(to)g(con)m(tin)m(ue)g(ev)-5 b(aluating)29
b(expressions)g(after)i(suc)m(h)f(errors)g(o)s(ccur.)241
4568 y(When)36 b(a)g(syn)m(tactical)h(error)e(o)s(ccurs,)j(the)e(place)
g(where)g(the)g(system)g(detected)h(the)241 4681 y(error)30
b(is)g(mark)m(ed)h(with)f(three)h(dollar)e(signs)h(\($$$\).)44
b(In)30 b(in)m(teractiv)m(e)i(mo)s(de,)f(the)g(user)241
4794 y(can)f(then)g(use)g FJ(ED)f FQ(to)i(correct)h(the)e(error,)g(or)g
(ret)m(yp)s(e)h(the)f(command.)40 b(When)30 b(a)h(non-)241
4907 y(syn)m(tactical)h(error)g(o)s(ccurs)f(in)g(in)m(teractiv)m(e)i
(mo)s(de,)f(the)g(command)g(b)s(eing)e(ev)-5 b(aluated)1667
5187 y(173)p eop
%%Page: 174 174
174 173 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(174)498 b FM(CHAPTER)30 b(12.)71 b(COMMANDS)31 b(F)m(OR)g(INTERA)m
(CTIVE)e(USE)664 555 y FQ(at)36 b(the)g(time)f(the)h(last)f(error)g(o)s
(ccurred)f(is)h(sa)m(v)m(ed,)j(and)d(ma)m(y)h(later)f(b)s(e)g(reev)-5
b(aluated)664 668 y(b)m(y)30 b(the)h(command)f FJ(RETRY)p
FQ(.)664 823 y @beginspecial @setspecial @endspecial
181 x FE(12.1)136 b(Referencing)46 b(Previous)f(Results)664
1244 y FQ(It)39 b(is)e(often)i(useful)e(to)j(b)s(e)e(able)g(to)h
(reference)g(results)e(of)i(previous)e(computations)664
1343 y(during)25 b(a)h(REDUCE)h(session.)38 b(F)-8 b(or)28
b(this)d(purp)s(ose,)h(REDUCE)h(main)m(tains)e(a)i(history)664
1443 y(of)c(all)e(in)m(teractiv)m(e)i(inputs)d(and)h(the)i(results)e
(of)h(all)f(in)m(teractiv)m(e)i(computations)f(during)664
1543 y(a)32 b(giv)m(en)f(session.)42 b(These)31 b(results)f(are)h
(referenced)g(b)m(y)g(the)h(command)e(n)m(um)m(b)s(er)g(that)664
1642 y(REDUCE)c(prin)m(ts)e(automatically)h(in)g(in)m(teractiv)m(e)h
(mo)s(de.)39 b(T)-8 b(o)26 b(use)g(an)f(input)f(expres-)664
1742 y(sion)31 b(in)g(a)h(new)f(computation,)h(one)h(writes)e
FJ(input\()p FL(n)p FJ(\))p FQ(,)f(where)h FL(n)g FQ(is)g(the)h
(command)664 1842 y(n)m(um)m(b)s(er.)45 b(T)-8 b(o)33
b(use)f(an)g(output)g(expression,)f(one)i(writes)e FJ(WS\()p
FL(n)p FJ(\))p FQ(.)45 b FJ(WS)31 b FQ(references)i(the)664
1941 y(previous)g(command.)53 b(E.g.,)36 b(if)d(command)h(n)m(um)m(b)s
(er)g(1)g(w)m(as)h FJ(INT\(X-1,X\))p FQ(;)d(and)i(the)664
2041 y(result)29 b(of)i(command)f(n)m(um)m(b)s(er)f(7)i(w)m(as)g
FJ(X-1)p FQ(,)e(then)1013 2247 y FH(2*input\(1\)-ws\(7\))o(^2)o(;)664
2453 y FQ(w)m(ould)g(giv)m(e)i(the)g(result)e FJ(-1)p
FQ(,)h(whereas)1013 2659 y FH(2*ws\(1\)-ws\(7\)^2;)664
2878 y FQ(w)m(ould)f(yield)g(the)i(same)f(result,)g(but)g
FD(without)40 b FQ(a)31 b(recomputation)f(of)h(the)f(in)m(tegral.)664
3040 y(The)22 b(op)s(erator)h FJ(DISPLAY)d FQ(is)h(a)m(v)-5
b(ailable)22 b(to)h(displa)m(y)d(previous)h(inputs.)36
b(If)22 b(its)f(argumen)m(t)664 3153 y(is)32 b(a)i(p)s(ositiv)m(e)e(in)
m(teger,)j FD(n)e FQ(sa)m(y)-8 b(,)35 b(then)e(the)h(previous)d(n)i
(inputs)e(are)j(displa)m(y)m(ed.)48 b(If)33 b(its)664
3266 y(argumen)m(t)27 b(is)e FJ(ALL)h FQ(\(or)g(in)f(fact)i(an)m(y)g
(non-n)m(umerical)e(expression\),)h(then)g(all)f(previous)664
3379 y(inputs)j(are)j(displa)m(y)m(ed.)664 3534 y @beginspecial
@setspecial @endspecial 181 x FE(12.2)136 b(In)l(teractiv)l(e)47
b(Editing)664 3968 y FQ(It)36 b(is)f(p)s(ossible)e(when)h(w)m(orking)h
(in)m(teractiv)m(ely)h(to)g(edit)f(an)m(y)h(REDUCE)g(input)d(that)664
4081 y(comes)26 b(from)e(the)h(user's)f(terminal,)g(and)g(also)h(some)g
(user-de\014ned)e(pro)s(cedure)g(de\014ni-)664 4194 y(tions.)40
b(A)m(t)30 b(the)g(top)g(lev)m(el,)f(one)h(can)f(access)i(an)m(y)f
(previous)e(command)h(string)f(b)m(y)i(the)664 4307 y(command)h
FJ(ed\()p FL(n)p FJ(\))p FQ(,)f(where)g(n)g(is)g(the)h(desired)f
(command)g(n)m(um)m(b)s(er)g(as)h(prompted)f(b)m(y)664
4420 y(the)c(system)f(in)g(in)m(teractiv)m(e)h(mo)s(de.)39
b FJ(ED)p FQ(;)25 b(\(i.e.)39 b(no)25 b(argumen)m(t\))i(accesses)g(the)
e(previous)664 4533 y(command.)664 4695 y(After)f FJ(ED)e
FQ(has)i(b)s(een)e(called,)i(y)m(ou)g(can)g(no)m(w)f(edit)g(the)g
(displa)m(y)m(ed)f(string)g(using)g(a)i(string)664 4808
y(editor)30 b(with)f(the)i(follo)m(wing)e(commands:)p
eop
%%Page: 175 175
175 174 bop 241 299 a @beginspecial @setspecial @endspecial
FM(12.2.)72 b(INTERA)m(CTIVE)30 b(EDITING)1507 b FQ(175)577
543 y FJ(B)863 b FQ(mo)m(v)m(e)32 b(p)s(oin)m(ter)d(to)i(b)s(eginning)
577 656 y FJ(C<character>)335 b FQ(replace)30 b(next)h(c)m(haracter)h
(b)m(y)e FD(char)-5 b(acter)577 769 y FJ(D)863 b FQ(delete)31
b(next)f(c)m(haracter)577 882 y FJ(E)863 b FQ(end)30
b(editing)f(and)g(reread)i(text)577 995 y FJ(F<character>)335
b FQ(mo)m(v)m(e)66 b(p)s(oin)m(ter)d(to)i(next)g(o)s(ccurrence)g(of)
1488 1107 y FD(char)-5 b(acter)577 1234 y FJ(I<string><escape>)95
b FQ(insert)29 b FD(string)39 b FQ(in)29 b(fron)m(t)i(of)f(p)s(oin)m
(ter)577 1347 y FJ(K<character>)335 b FQ(delete)31 b(all)e(c)m
(haracters)j(un)m(til)c FD(char)-5 b(acter)577 1460 y
FJ(P)863 b FQ(prin)m(t)29 b(string)g(from)h(curren)m(t)g(p)s(oin)m(ter)
577 1573 y FJ(Q)863 b FQ(giv)m(e)31 b(up)e(with)g(error)h(exit)577
1686 y FJ(S<string><escape>)95 b FQ(searc)m(h)29 b(for)g(\014rst)f(o)s
(ccurrence)h(of)f FD(string)p FQ(,)i(p)s(o-)1488 1799
y(sitioning)e(p)s(oin)m(ter)h(just)h(b)s(efore)g(it)577
1912 y FJ(space)f FQ(or)h FJ(X)483 b FQ(mo)m(v)m(e)32
b(p)s(oin)m(ter)d(righ)m(t)h(one)h(c)m(haracter.)241
2067 y(The)26 b(ab)s(o)m(v)m(e)i(table)f(can)h(b)s(e)e(displa)m(y)m(ed)
g(online)f(b)m(y)i(t)m(yping)f(a)i(question)e(mark)h(follo)m(w)m(ed)241
2180 y(b)m(y)22 b(a)h(carriage)g(return)f(to)h(the)f(editor.)38
b(The)22 b(editor)g(prompts)g(with)f(an)h(angle)h(brac)m(k)m(et.)241
2293 y(Commands)35 b(can)h(b)s(e)g(com)m(bined)f(on)h(a)h(single)e
(line,)h(and)f(all)g(command)h(sequences)241 2406 y(m)m(ust)30
b(b)s(e)g(follo)m(w)m(ed)g(b)m(y)g(a)h(carriage)g(return)e(to)i(b)s
(ecome)g(e\013ectiv)m(e.)241 2555 y(Th)m(us,)h(to)h(c)m(hange)h(the)e
(command)h FJ(x)47 b(:=)g(a+1;)32 b FQ(to)i FJ(x)47 b(:=)g(a+2)p
FQ(;)33 b(and)f(cause)h(it)f(to)h(b)s(e)241 2655 y(executed,)e(the)g
(follo)m(wing)e(edit)h(command)g(sequence)g(could)g(b)s(e)g(used:)589
2861 y FH(f1c2e<return>.)241 3067 y FQ(The)23 b(in)m(teractiv)m(e)h
(editor)f(ma)m(y)h(also)g(b)s(e)f(used)f(to)j(edit)e(a)h
(user-de\014ned)e(pro)s(cedure)g(that)241 3166 y(has)30
b(not)h(b)s(een)e(compiled.)39 b(T)-8 b(o)31 b(do)f(this,)g(one)h(sa)m
(ys:)589 3372 y FH(editdef)41 b(<id>;)241 3591 y FQ(where)g
FJ(<id>)f FQ(is)g(the)i(name)f(of)g(the)h(pro)s(cedure.)72
b(The)41 b(pro)s(cedure)f(de\014nition)f(will)241 3704
y(then)c(b)s(e)h(displa)m(y)m(ed)e(in)h(editing)g(mo)s(de,)i(and)e(ma)m
(y)i(then)f(b)s(e)f(edited)g(and)h(rede\014ned)241 3817
y(on)30 b(exiting)g(from)f(the)i(editor.)241 3980 y(Some)36
b(v)m(ersions)g(of)h(REDUCE)f(no)m(w)h(include)d(input)g(editing)i
(that)h(uses)f(the)g(capa-)241 4093 y(bilities)31 b(of)k(mo)s(dern)e
(windo)m(w)g(systems.)54 b(Please)34 b(consult)g(y)m(our)h(system)f
(dep)s(enden)m(t)241 4206 y(do)s(cumen)m(tation)28 b(to)h(see)g(if)f
(this)f(is)g(p)s(ossible.)38 b(Suc)m(h)28 b(editing)f(tec)m(hniques)h
(are)h(usually)241 4319 y(m)m(uc)m(h)h(easier)g(to)i(use)e(then)g
FJ(ED)f FQ(or)i FJ(EDITDEF)p FQ(.)241 4456 y @beginspecial
@setspecial @endspecial eop
%%Page: 176 176
176 175 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(176)498 b FM(CHAPTER)30 b(12.)71 b(COMMANDS)31 b(F)m(OR)g(INTERA)m
(CTIVE)e(USE)664 555 y FE(12.3)136 b(In)l(teractiv)l(e)47
b(File)e(Con)l(trol)664 808 y FQ(If)d(input)f(is)g(coming)h(from)g(an)h
(external)f(\014le,)j(the)e(system)f(treats)i(it)e(as)g(a)h(batc)m(h)
664 921 y(pro)s(cessed)36 b(calculation.)56 b(If)35 b(the)i(user)e
(desires)g(in)m(teractiv)m(e)h(resp)s(onse)f(in)g(this)g(case,)664
1034 y(he)c(can)g(include)e(the)i(command)f FJ(on)48
b(int)p FQ(;)30 b(in)g(the)h(\014le.)41 b(Lik)m(ewise,)30
b(he)h(can)g(issue)f(the)664 1147 y(command)22 b FJ(off)47
b(int)p FQ(;)24 b(in)d(the)h(main)f(program)h(if)f(he)g(do)s(es)h(not)g
(desire)f(con)m(tin)m(ual)h(ques-)664 1260 y(tioning)29
b(from)h(the)g(system.)41 b(Regardless)30 b(of)g(the)g(setting)g(of)h
FJ(INT)p FQ(,)e(input)f(commands)664 1372 y(from)37 b(a)h(\014le)e(are)
i(not)f(k)m(ept)h(in)e(the)i(system,)h(and)e(so)g(cannot)h(b)s(e)f
(edited)f(using)g FJ(ED)p FQ(.)664 1485 y(Ho)m(w)m(ev)m(er,)d(man)m(y)d
(implemen)m(tations)f(of)i(REDUCE)f(pro)m(vide)g(a)g(link)f(to)i(an)f
(external)664 1598 y(system)25 b(editor)g(that)g(can)h(b)s(e)e(used)g
(for)h(suc)m(h)g(editing.)37 b(The)25 b(sp)s(eci\014c)e(instructions)g
(for)664 1711 y(the)31 b(particular)d(implemen)m(tation)h(should)g(b)s
(e)h(consulted)f(for)h(information)f(on)h(this.)664 1874
y(Tw)m(o)c(commands)f(are)h(a)m(v)-5 b(ailable)25 b(in)f(REDUCE)h(for)h
(in)m(teractiv)m(e)g(use)f(of)h(\014les.)38 b FJ(PAUSE)p
FQ(;)664 1987 y(ma)m(y)23 b(b)s(e)f(inserted)f(at)i(an)m(y)f(p)s(oin)m
(t)f(in)g(an)h(input)e(\014le.)38 b(When)22 b(this)f(command)h(is)f
(encoun-)664 2100 y(tered)31 b(on)f(input,)e(the)j(system)f(prin)m(ts)f
(the)h(message)h FJ(CONT?)e FQ(on)h(the)h(user's)e(terminal)664
2213 y(and)35 b(halts.)55 b(If)35 b(the)g(user)g(resp)s(onds)e
FJ(Y)i FQ(\(for)h(y)m(es\),)i(the)d(calculation)g(con)m(tin)m(ues)g
(from)664 2326 y(that)j(p)s(oin)m(t)f(in)f(the)i(\014le.)61
b(If)37 b(the)h(user)f(resp)s(onds)f FJ(N)h FQ(\(for)h(no\),)h(con)m
(trol)f(is)f(returned)664 2439 y(to)32 b(the)g(terminal,)e(and)h(the)g
(user)g(can)h(input)d(further)h(statemen)m(ts)j(and)e(commands.)664
2551 y(Later)41 b(on)f(he)g(can)g(use)g(the)g(command)g
FJ(cont;)j FQ(to)e(transfer)f(con)m(trol)g(bac)m(k)h(to)g(the)664
2664 y(p)s(oin)m(t)34 b(in)g(the)i(\014le)e(follo)m(wing)g(the)i(last)f
FJ(PAUSE)f FQ(encoun)m(tered.)56 b(A)35 b(top-lev)m(el)h
FJ(pause;)664 2777 y FQ(from)30 b(the)h(user's)e(terminal)g(has)h(no)h
(e\013ect.)p eop
%%Page: 177 177
177 176 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(13)241 1693 y FT(Matrix)77 b(Calculations)241 2187
y FQ(A)29 b(v)m(ery)g(p)s(o)m(w)m(erful)e(feature)j(of)f(REDUCE)f(is)g
(the)h(ease)h(with)e(whic)m(h)f(matrix)i(calcula-)241
2300 y(tions)k(can)i(b)s(e)e(p)s(erformed.)51 b(T)-8
b(o)35 b(extend)f(our)f(syn)m(tax)i(to)g(this)e(class)h(of)g
(calculations)241 2413 y(w)m(e)k(need)g(to)g(add)f(another)i(pre\014x)d
(op)s(erator,)41 b FJ(MAT)p FQ(,)74 b(and)38 b(a)g(further)e(v)-5
b(ariable)37 b(and)241 2526 y(expression)29 b(t)m(yp)s(e)h(as)h(follo)m
(ws:)241 2677 y @beginspecial @setspecial @endspecial
182 x FE(13.1)135 b(MA)-11 b(T)44 b(Op)t(erator)241 3111
y FQ(This)19 b(pre\014x)g(op)s(erator)i(is)f(used)g(to)h(represen)m(t)g
FL(n)q FP(\002)q FL(m)f FQ(matrices.)37 b FJ(MAT)20 b
FQ(has)g FD(n)h FQ(argumen)m(ts)241 3224 y(in)m(terpreted)35
b(as)h(ro)m(ws)g(of)g(the)g(matrix,)h(eac)m(h)g(of)f(whic)m(h)f(is)g(a)
h(list)f(of)h FD(m)g FQ(expressions)241 3337 y(represen)m(ting)29
b(elemen)m(ts)i(in)e(that)i(ro)m(w.)41 b(F)-8 b(or)31
b(example,)f(the)h(matrix)1473 3434 y FB( )1580 3522
y FL(a)85 b(b)99 b(c)1580 3634 y(d)84 b(e)f(f)1932 3434
y FB(!)241 3819 y FQ(w)m(ould)29 b(b)s(e)h(written)f(as)i
FJ(mat\(\(a,b,c\),\(d,e,f\)\))p FQ(.)241 3982 y(Note)g(that)g(the)g
(single)e(column)g(matrix)1602 4079 y FB( )1709 4166
y FL(x)1711 4279 y(y)1803 4079 y FB(!)241 4464 y FQ(b)s(ecomes)i
FJ(mat\(\(x\),\(y\)\))p FQ(.)39 b(The)30 b(inside)f(paren)m(theses)i
(are)g(required)f(to)h(distinguish)241 4577 y(it)f(from)g(the)g(single)
f(ro)m(w)i(matrix)1553 4673 y FB(\020)1644 4768 y FL(x)83
b(y)1868 4673 y FB(\021)241 4959 y FQ(that)31 b(w)m(ould)e(b)s(e)h
(written)f(as)i FJ(mat\(\(x,y\)\))p FQ(.)1667 5187 y(177)p
eop
%%Page: 178 178
178 177 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(178)1041 b FM(CHAPTER)29 b(13.)72 b(MA)-8 b(TRIX)31
b(CALCULA)-8 b(TIONS)664 464 y @beginspecial @setspecial
@endspecial 91 x FE(13.2)136 b(Matrix)45 b(V)-11 b(ariables)664
795 y FQ(An)30 b(iden)m(ti\014er)f(ma)m(y)i(b)s(e)f(declared)g(a)h
(matrix)f(v)-5 b(ariable)29 b(b)m(y)i(the)f(declaration)g
FJ(MATRIX)p FQ(.)664 894 y(The)41 b(size)g(of)g(the)g(matrix)g(ma)m(y)g
(b)s(e)g(declared)f(explicitly)f(in)h(the)h(matrix)g(declara-)664
994 y(tion,)32 b(or)h(b)m(y)f(default)f(in)g(assigning)f(suc)m(h)i(a)h
(v)-5 b(ariable)31 b(to)h(a)h(matrix)e(expression.)45
b(F)-8 b(or)664 1094 y(example,)1013 1299 y FH(matrix)41
b(x\(2,1\),y\(3,4\),z;)664 1519 y FQ(declares)35 b FJ(X)g
FQ(to)i(b)s(e)d(a)i(2)g(x)f(1)h(\(column\))f(matrix,)h
FJ(Y)f FQ(to)h(b)s(e)f(a)h(3)g(x)f(4)h(matrix)f(and)f
FJ(Z)i FQ(a)664 1632 y(matrix)30 b(whose)g(size)g(is)g(to)h(b)s(e)f
(declared)f(later.)664 1781 y(Matrix)42 b(declarations)f(can)h(app)s
(ear)g(an)m(ywhere)f(in)g(a)h(program.)75 b(Once)42 b(a)g(sym)m(b)s(ol)
664 1881 y(is)d(declared)h(to)h(name)f(a)h(matrix,)h(it)e(can)h(not)f
(also)g(b)s(e)g(used)f(to)i(name)g(an)f(arra)m(y)-8 b(,)664
1980 y(op)s(erator)38 b(or)g(a)g(pro)s(cedure,)g(or)g(used)f(as)h(an)f
(ordinary)f(v)-5 b(ariable.)62 b(It)38 b(can)g(ho)m(w)m(ev)m(er)664
2080 y(b)s(e)i(redeclared)g(to)h(b)s(e)e(a)i(matrix,)h(and)e(its)g
(size)g(ma)m(y)h(b)s(e)e(c)m(hanged)i(at)g(that)g(time.)664
2179 y(Note)e(ho)m(w)m(ev)m(er)f(that)g(matrices)f(once)g(declared)g
(are)g FD(glob)-5 b(al)48 b FQ(in)36 b(scop)s(e,)j(and)d(so)i(can)664
2279 y(then)31 b(b)s(e)f(referenced)h(an)m(ywhere)g(in)e(the)i
(program.)42 b(In)30 b(other)h(w)m(ords,)g(a)g(declaration)664
2379 y(within)21 b(a)i(blo)s(c)m(k)g(\(or)g(a)h(pro)s(cedure\))e(do)s
(es)h(not)g(limit)e(the)i(scop)s(e)g(of)h(the)f(matrix)f(to)i(that)664
2478 y(blo)s(c)m(k,)30 b(nor)f(do)s(es)g(the)g(matrix)g(go)h(a)m(w)m(a)
m(y)i(on)d(exiting)g(the)g(blo)s(c)m(k)g(\(use)h FJ(CLEAR)e
FQ(instead)664 2578 y(for)40 b(this)g(purp)s(ose\).)69
b(An)40 b(elemen)m(t)h(of)f(a)h(matrix)f(is)f(referred)h(to)h(in)e(the)
h(exp)s(ected)664 2678 y(manner;)32 b(th)m(us)f FJ(x\(1,1\))f
FQ(giv)m(es)i(the)g(\014rst)f(elemen)m(t)h(of)g(the)g(matrix)f
FJ(X)g FQ(de\014ned)f(ab)s(o)m(v)m(e.)664 2777 y(References)23
b(to)g(elemen)m(ts)g(of)f(a)h(matrix)f(whose)g(size)g(has)g(not)h(y)m
(et)g(b)s(een)f(declared)f(leads)664 2877 y(to)36 b(an)e(error.)54
b(All)33 b(elemen)m(ts)i(of)g(a)h(matrix)e(whose)g(size)h(is)f
(declared)g(are)h(initialized)664 2976 y(to)d(0.)45 b(As)31
b(a)h(result,)f(a)g(matrix)g(elemen)m(t)h(has)f(an)h
FD(instant)i(evaluation)40 b FQ(prop)s(ert)m(y)31 b(and)664
3076 y(cannot)h(stand)f(for)h(itself.)43 b(If)31 b(this)f(is)h
(required,)f(then)h(an)g(op)s(erator)h(should)e(b)s(e)h(used)664
3176 y(to)g(name)g(the)f(matrix)g(elemen)m(ts)h(as)f(in:)1013
3382 y FH(matrix)41 b(m;)i(operator)d(x;)86 b(m)44 b(:=)e
(mat\(\(x\(1,1\),x\(1,2)o(\)\))o(;)664 3537 y @beginspecial
@setspecial @endspecial 181 x FE(13.3)136 b(Matrix)45
b(Expressions)664 3957 y FQ(These)30 b(follo)m(w)g(the)h(normal)e
(rules)g(of)i(matrix)f(algebra)g(as)h(de\014ned)e(b)m(y)i(the)f(follo)m
(wing)664 4057 y(syn)m(tax:)1013 4263 y FH(<matrix)41
b(expression>)e(::=)1449 4362 y(MAT<matrix)g(description>|<mat)o(ri)o
(x)e(variable>|)1449 4462 y(<scalar)j(expression>*<matr)o(ix)d
(expression>|)1449 4562 y(<matrix)j(expression>*<matr)o(ix)d
(expression>)1449 4661 y(<matrix)j(expression>+<matr)o(ix)d
(expression>|)1449 4761 y(<matrix)j(expression>^<inte)o(ger)o(>|)1449
4861 y(<matrix)g(expression>/<matr)o(ix)d(expression>)p
eop
%%Page: 179 179
179 178 bop 241 299 a @beginspecial @setspecial @endspecial
FM(13.4.)72 b(OPERA)-8 b(TORS)29 b(WITH)i(MA)-8 b(TRIX)31
b(AR)m(GUMENTS)689 b FQ(179)241 555 y(Sums)32 b(and)i(pro)s(ducts)f(of)
h(matrix)f(expressions)g(m)m(ust)h(b)s(e)f(of)i(compatible)e(size;)j
(oth-)241 668 y(erwise)i(an)g(error)h(will)d(result)i(during)e(their)i
(ev)-5 b(aluation.)66 b(Similarly)-8 b(,)38 b(only)g(square)241
781 y(matrices)e(ma)m(y)g(b)s(e)f(raised)g(to)i(a)f(p)s(o)m(w)m(er.)57
b(A)36 b(negativ)m(e)h(p)s(o)m(w)m(er)f(is)f(computed)g(as)h(the)241
894 y(in)m(v)m(erse)41 b(of)h(the)f(matrix)g(raised)g(to)h(the)g
(corresp)s(onding)d(p)s(ositiv)m(e)i(p)s(o)m(w)m(er.)74
b FJ(a/b)40 b FQ(is)241 1007 y(in)m(terpreted)29 b(as)i
FJ(a*b^\(-1\))p FQ(.)241 1170 y FD(Examples:)241 1319
y FQ(Assuming)d FJ(X)i FQ(and)f FJ(Y)h FQ(ha)m(v)m(e)h(b)s(een)f
(declared)f(as)i(matrices,)f(the)g(follo)m(wing)f(are)h(matrix)241
1419 y(expressions)589 1625 y FH(y)589 1724 y(y^2*x-3*y^\(-2\)*x)589
1824 y(y)44 b(+)f(mat\(\(1,a\),\(b,c\)\))o(/2)241 2043
y FQ(The)32 b(computation)h(of)g(the)h(quotien)m(t)f(of)g(t)m(w)m(o)h
(matrices)g(normally)d(uses)h(a)i(t)m(w)m(o-step)241
2156 y(elimination)29 b(metho)s(d)j(due)f(to)i(Bareiss.)46
b(An)32 b(alternativ)m(e)h(metho)s(d)e(using)g(Cramer's)241
2269 y(metho)s(d)46 b(is)f(also)i(a)m(v)-5 b(ailable.)88
b(This)45 b(is)h(usually)e(less)i(e\016cien)m(t)h(than)f(the)h(Bareiss)
241 2382 y(metho)s(d)31 b(unless)e(the)j(matrices)g(are)f(large)h(and)f
(dense,)g(although)g(w)m(e)h(ha)m(v)m(e)h(no)e(solid)241
2495 y(statistics)24 b(on)g(this)f(as)i(y)m(et.)40 b(T)-8
b(o)24 b(use)g(Cramer's)g(metho)s(d)g(instead,)h(the)f(switc)m(h)g
FJ(CRAMER)241 2608 y FQ(should)k(b)s(e)i(turned)f(on.)241
2744 y @beginspecial @setspecial @endspecial 199 x FE(13.4)135
b(Op)t(erators)46 b(with)f(Matrix)h(Argumen)l(ts)241
3196 y FQ(The)23 b(op)s(erator)g FJ(LENGTH)f FQ(applied)f(to)j(a)g
(matrix)e(returns)g(a)i(list)e(of)i(the)f(n)m(um)m(b)s(er)f(of)i(ro)m
(ws)241 3309 y(and)e(columns)f(in)g(the)i(matrix.)38
b(Other)22 b(op)s(erators)g(useful)f(in)g(matrix)h(calculations)g(are)
241 3422 y(de\014ned)h(in)f(the)j(follo)m(wing)d(subsections.)38
b(A)m(tten)m(tion)25 b(is)e(also)h(dra)m(wn)f(to)i(the)f(LINALG)241
3535 y(\(c)m(hapter)31 b @beginspecial @setspecial @endspecial(52)q(\))
g(and)e(NORMF)m(ORM)j(\(c)m(hapter)f @beginspecial @setspecial
@endspecial(57)q(\))g(pac)m(k)-5 b(ages.)241 3684 y @beginspecial
@setspecial @endspecial 143 x FR(13.4.1)112 b(DET)37
b(Op)s(erator)241 4035 y FQ(Syn)m(tax:)589 4241 y FH
(DET\(EXPRN:matrix_)o(exp)o(re)o(ssi)o(on)o(\):)o(alg)o(eb)o(rai)o(c.)
241 4447 y FQ(The)e(op)s(erator)g FJ(DET)g FQ(is)f(used)g(to)i
(represen)m(t)g(the)f(determinan)m(t)g(of)g(a)h(square)f(matrix)241
4547 y(expression.)k(E.g.,)589 4753 y FH(det\(y^2\))241
4959 y FQ(is)d(a)h(scalar)g(expression)f(whose)g(v)-5
b(alue)37 b(is)f(the)h(determinan)m(t)f(of)h(the)h(square)e(of)h(the)p
eop
%%Page: 180 180
180 179 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(180)1041 b FM(CHAPTER)29 b(13.)72 b(MA)-8 b(TRIX)31
b(CALCULA)-8 b(TIONS)664 555 y FQ(matrix)30 b FJ(Y)p
FQ(,)g(and)1013 761 y FH(det)42 b(mat\(\(a,b,c\),\(d,e,)o(f\))o(,\(g)o
(,h)o(,j)o(\)\);)664 980 y FQ(is)30 b(a)g(scalar)h(expression)e(whose)h
(v)-5 b(alue)30 b(is)f(the)i(determinan)m(t)f(of)g(the)h(matrix)1884
1101 y FB(0)1884 1247 y(B)1884 1300 y(@)1998 1182 y FL(a)90
b(b)105 b(c)1998 1295 y(d)89 b(e)g(f)1998 1407 y(g)f(h)95
b(j)2360 1101 y FB(1)2360 1247 y(C)2360 1300 y(A)664
1659 y FQ(Determinan)m(t)46 b(expressions)e(ha)m(v)m(e)i(the)g
FD(instant)h(evaluation)54 b FQ(prop)s(ert)m(y)-8 b(.)85
b(In)45 b(other)664 1758 y(w)m(ords,)30 b(the)h(statemen)m(t)1013
1964 y FH(let)42 b(det)h(mat\(\(a,b\),\(c,d\))o(\))38
b(=)43 b(2;)664 2184 y FQ(sets)37 b(the)f FD(value)42
b FQ(of)37 b(the)f(determinan)m(t)f(to)i(2,)h(and)d(do)s(es)h(not)g
(set)g(up)f(a)h(rule)f(for)h(the)664 2296 y(determinan)m(t)30
b(itself.)664 2424 y @beginspecial @setspecial @endspecial
166 x FR(13.4.2)113 b(MA)-9 b(TEIGEN)35 b(Op)s(erator)664
2798 y FQ(Syn)m(tax:)1013 3004 y FH(MATEIGEN\(EXPRN:m)o(at)o(rix)o(_e)o
(xpr)o(es)o(si)o(on,)o(ID)o(\):l)o(is)o(t.)664 3223 y
FJ(MATEIGEN)g FQ(calculates)h(the)h(eigen)m(v)-5 b(alue)37
b(equation)f(and)g(the)h(corresp)s(onding)e(eigen-)664
3336 y(v)m(ectors)27 b(of)e(a)g(matrix,)h(using)d(the)i(v)-5
b(ariable)24 b FJ(ID)g FQ(to)i(denote)f(the)g(eigen)m(v)-5
b(alue.)39 b(A)25 b(square)664 3449 y(free)34 b(decomp)s(osition)f(of)h
(the)g(c)m(haracteristic)g(p)s(olynomial)d(is)i(carried)g(out.)51
b(The)34 b(re-)664 3562 y(sult)h(is)f(a)i(list)e(of)i(lists)e(of)i(3)g
(elemen)m(ts,)h(where)e(the)h(\014rst)f(elemen)m(t)h(is)f(a)g(square)h
(free)664 3675 y(factor)g(of)f(the)g(c)m(haracteristic)h(p)s
(olynomial,)e(the)h(second)g(its)f(m)m(ultiplicit)m(y)e(and)j(the)664
3787 y(third)24 b(the)j(corresp)s(onding)d(eigen)m(v)m(ector)k(\(as)f
(an)f FD(n)g FQ(b)m(y)g(1)g(matrix\).)39 b(If)26 b(the)g(square)g(free)
664 3900 y(decomp)s(osition)f(w)m(as)h(successful,)g(the)g(pro)s(duct)f
(of)h(the)g(\014rst)f(elemen)m(ts)i(in)d(the)i(lists)f(is)664
4013 y(the)j(minimal)e(p)s(olynomial.)37 b(In)27 b(the)i(case)g(of)f
(degeneracy)-8 b(,)30 b(sev)m(eral)f(eigen)m(v)m(ectors)h(can)664
4126 y(exist)39 b(for)f(the)h(same)g(eigen)m(v)-5 b(alue,)41
b(whic)m(h)d(manifests)g(itself)f(in)h(the)h(app)s(earance)g(of)664
4239 y(more)31 b(than)f(one)h(arbitrary)e(v)-5 b(ariable)29
b(in)g(the)i(eigen)m(v)m(ector.)43 b(T)-8 b(o)31 b(extract)h(the)f(v)-5
b(arious)664 4352 y(parts)30 b(of)h(the)f(result)g(use)g(the)g(op)s
(erations)g(de\014ned)f(on)h(lists.)664 4501 y FD(Example:)42
b FQ(The)29 b(command)1013 4707 y FH(mateigen\(mat\(\(2,)o(-1)o(,1\))o
(,\()o(0,1)o(,1)o(\),)o(\(-1)o(,1)o(,1\))o(\),)o(et)o(a\);)664
4913 y FQ(giv)m(es)i(the)f(output)p eop
%%Page: 181 181
181 180 bop 241 299 a @beginspecial @setspecial @endspecial
FM(13.4.)72 b(OPERA)-8 b(TORS)29 b(WITH)i(MA)-8 b(TRIX)31
b(AR)m(GUMENTS)689 b FQ(181)589 555 y FH({{ETA)42 b(-)h(1,2,)677
754 y([ARBCOMPLEX\(1\)])677 854 y([)566 b(])677 954 y
([ARBCOMPLEX\(1\)])677 1053 y([)g(])677 1153 y([)261
b(0)g(])677 1352 y(},)633 1551 y({ETA)42 b(-)h(2,1,)677
1751 y([)261 b(0)g(])677 1850 y([)566 b(])677 1950 y([ARBCOMPLEX\(2\)])
677 2050 y([)g(])677 2149 y([ARBCOMPLEX\(2\)])677 2348
y(}})241 2483 y @beginspecial @setspecial @endspecial
159 x FR(13.4.3)112 b(TP)37 b(Op)s(erator)241 2850 y
FQ(Syn)m(tax:)589 3056 y FH(TP\(EXPRN:matrix_e)o(xpr)o(es)o(sio)o(n\))o
(:m)o(atr)o(ix)o(.)241 3275 y FQ(This)28 b(op)s(erator)j(tak)m(es)h(a)f
(single)e(matrix)g(argumen)m(t)i(and)f(returns)f(its)h(transp)s(ose.)
241 3420 y @beginspecial @setspecial @endspecial 148
x FR(13.4.4)112 b(T)-9 b(race)37 b(Op)s(erator)241 3776
y FQ(Syn)m(tax:)589 3982 y FH(TRACE\(EXPRN:matri)o(x_e)o(xp)o(res)o(si)
o(on)o(\):a)o(lg)o(ebr)o(ai)o(c.)241 4201 y FQ(The)30
b(op)s(erator)g FJ(TRACE)f FQ(is)h(used)f(to)i(represen)m(t)g(the)f
(trace)i(of)e(a)h(square)f(matrix.)241 4346 y @beginspecial
@setspecial @endspecial 149 x FR(13.4.5)112 b(Matrix)37
b(Cofactors)241 4703 y FQ(Syn)m(tax:)328 4909 y FH(COFACTOR\(EXPRN:m)o
(at)o(rix)o(_e)o(xpr)o(es)o(sio)o(n,)o(RO)o(W:i)o(nt)o(ege)o(r,)o(CO)o
(LUM)o(N:)o(int)o(eg)o(er\))o(:)p eop
%%Page: 182 182
182 181 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(182)1041 b FM(CHAPTER)29 b(13.)72 b(MA)-8 b(TRIX)31
b(CALCULA)-8 b(TIONS)1144 555 y FH(algebraic)664 774
y FQ(The)31 b(op)s(erator)g FJ(COFACTOR)e FQ(returns)h(the)i(cofactor)h
(of)e(the)g(elemen)m(t)h(in)e(ro)m(w)h FJ(ROW)g FQ(and)664
887 y(column)d FJ(COLUMN)g FQ(of)i(the)g(matrix)e FJ(MATRIX)p
FQ(.)g(Errors)h(o)s(ccur)g(if)f FJ(ROW)h FQ(or)h FJ(COLUMN)d
FQ(do)j(not)664 1000 y(simplify)d(to)k(in)m(teger)g(expressions)e(or)h
(if)g FJ(MATRIX)e FQ(is)i(not)g(square.)664 1141 y @beginspecial
@setspecial @endspecial 148 x FR(13.4.6)113 b(NULLSP)-9
b(A)m(CE)36 b(Op)s(erator)664 1498 y FQ(Syn)m(tax:)1013
1703 y FH(NULLSPACE\(EXPRN:)o(ma)o(tri)o(x_)o(exp)o(re)o(ss)o(ion)o
(\):)o(lis)o(t)664 1923 y FJ(NULLSPACE)31 b FQ(calculates)j(for)f(a)h
(matrix)f FJ(A)g FQ(a)h(list)e(of)h(linear)f(indep)s(enden)m(t)f(v)m
(ectors)k(\(a)664 2036 y(basis\))j(whose)g(linear)e(com)m(binations)h
(satisfy)h(the)g(equation)g FL(Ax)h FQ(=)f(0.)64 b(The)38
b(basis)664 2148 y(is)32 b(pro)m(vided)f(in)g(a)j(form)e(suc)m(h)g
(that)h(as)g(man)m(y)g(upp)s(er)e(comp)s(onen)m(ts)h(as)h(p)s(ossible)e
(are)664 2261 y(isolated.)664 2424 y(Note)c(that)f(with)e
FJ(b)48 b(:=)f(nullspace)e(a)25 b FQ(the)h(expression)e
FJ(length)47 b(b)25 b FQ(is)f(the)i FD(nul)5 b(lity)34
b FQ(of)664 2537 y(A,)j(and)e(that)i FJ(second)46 b(length)g(a)i(-)f
(length)f(b)36 b FQ(calculates)g(the)h FD(r)-5 b(ank)47
b FQ(of)36 b(A.)g(The)664 2650 y(rank)i(of)h(a)g(matrix)f(expression)f
(can)i(also)f(b)s(e)g(found)f(more)i(directly)e(b)m(y)h(the)h
FJ(RANK)664 2763 y FQ(op)s(erator)31 b(describ)s(ed)d(b)s(elo)m(w.)664
2912 y FD(Example:)42 b FQ(The)29 b(command)1013 3118
y FH(nullspace)40 b(mat\(\(1,2,3,4\),\(5)o(,6)o(,7)o(,8\))o(\);)664
3337 y FQ(giv)m(es)31 b(the)f(output)1013 3564 y FH({)1056
3664 y([)44 b(1)86 b(])1056 3763 y([)174 b(])1056 3863
y([)44 b(0)86 b(])1056 3962 y([)174 b(])1056 4062 y([)44
b(-)f(3])1056 4162 y([)174 b(])1056 4261 y([)44 b(2)86
b(])1056 4361 y(,)1056 4461 y([)44 b(0)86 b(])1056 4560
y([)174 b(])1056 4660 y([)44 b(1)86 b(])1056 4759 y([)174
b(])1056 4859 y([)44 b(-)f(2])1056 4959 y([)174 b(])p
eop
%%Page: 183 183
183 182 bop 241 299 a @beginspecial @setspecial @endspecial
FM(13.5.)72 b(MA)-8 b(TRIX)31 b(ASSIGNMENTS)1515 b FQ(183)633
555 y FH([)43 b(1)87 b(])633 655 y(})241 899 y FQ(In)39
b(addition)g(to)i(the)f(REDUCE)g(matrix)g(form,)i FJ(NULLSPACE)c
FQ(accepts)j(as)g(input)d(a)241 1012 y(matrix)d(giv)m(en)h(as)g(a)g
(list)e(of)i(lists,)g(that)g(is)f(in)m(terpreted)g(as)h(a)g(ro)m(w)g
(matrix.)57 b(If)35 b(that)241 1125 y(form)28 b(of)h(input)d(is)i(c)m
(hosen,)i(the)f(v)m(ectors)h(in)d(the)i(result)f(will)e(b)s(e)i
(represen)m(ted)g(b)m(y)h(lists)241 1238 y(as)40 b(w)m(ell.)68
b(This)38 b(additional)f(input)h(syn)m(tax)j(facilitates)e(the)h(use)g
(of)g FJ(NULLSPACE)d FQ(in)241 1351 y(applications)28
b(di\013eren)m(t)i(from)g(classical)g(linear)e(algebra.)241
1495 y @beginspecial @setspecial @endspecial 149 x FR(13.4.7)112
b(RANK)36 b(Op)s(erator)241 1852 y FQ(Syn)m(tax:)589
2058 y FH(RANK\(EXPRN:matrix)o(_ex)o(pr)o(ess)o(io)o(n\))o(:in)o(te)o
(ger)241 2277 y FJ(RANK)g FQ(calculates)i(the)f(rank)g(of)h(its)f
(argumen)m(t,)j(that,)g(lik)m(e)c FJ(NULLSPACE)f FQ(can)j(either)241
2390 y(b)s(e)d(a)h(standard)e(matrix)h(expression,)h(or)g(a)g(list)e
(of)i(lists,)f(that)h(can)g(b)s(e)f(in)m(terpreted)241
2503 y(either)30 b(as)g(a)h(ro)m(w)f(matrix)g(or)h(a)f(set)h(of)g
(equations.)241 2666 y FJ(Example:)589 2896 y FH(rank)42
b(mat\(\(a,b,c\),\(d,e,)o(f\)\))o(;)241 3140 y FQ(returns)29
b(the)h(v)-5 b(alue)30 b(2.)241 3277 y @beginspecial
@setspecial @endspecial 200 x FE(13.5)135 b(Matrix)46
b(Assignmen)l(ts)241 3729 y FQ(Matrix)33 b(expressions)e(ma)m(y)j(app)s
(ear)f(in)e(the)j(righ)m(t-hand)e(side)g(of)h(assignmen)m(t)g(state-)
241 3842 y(men)m(ts.)39 b(If)24 b(the)i(left-hand)d(side)h(of)h(the)h
(assignmen)m(t,)g(whic)m(h)d(m)m(ust)i(b)s(e)f(a)i(v)-5
b(ariable,)25 b(has)241 3955 y(not)34 b(already)f(b)s(een)g(declared)h
(a)g(matrix,)g(it)g(is)f(declared)g(b)m(y)h(default)f(to)i(the)f(size)f
(of)241 4068 y(the)f(righ)m(t-hand)e(side.)44 b(The)31
b(v)-5 b(ariable)30 b(is)h(then)g(set)i(to)f(the)g(v)-5
b(alue)31 b(of)h(the)g(righ)m(t-hand)241 4181 y(side.)241
4331 y(Suc)m(h)i(an)h(assignmen)m(t)g(ma)m(y)h(b)s(e)e(used)h(v)m(ery)g
(con)m(v)m(enien)m(tly)h(to)g(\014nd)d(the)j(solution)d(of)241
4430 y(a)f(set)g(of)g(linear)e(equations.)45 b(F)-8 b(or)32
b(example,)g(to)h(\014nd)d(the)i(solution)e(of)i(the)g(follo)m(wing)241
4530 y(set)f(of)f(equations)589 4736 y FH(a11*x\(1\))41
b(+)i(a12*x\(2\))d(=)j(y1)589 4835 y(a21*x\(1\))e(+)i(a22*x\(2\))d(=)j
(y2)p eop
%%Page: 184 184
184 183 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(184)1041 b FM(CHAPTER)29 b(13.)72 b(MA)-8 b(TRIX)31
b(CALCULA)-8 b(TIONS)664 555 y FQ(w)m(e)31 b(simply)d(write)1013
761 y FH(x)43 b(:=)g(1/mat\(\(a11,a12\),)o(\(a)o(21,)o(a2)o(2\))o(\)*m)
o(at)o(\(\(y)o(1\))o(,\()o(y2\))o(\);)664 917 y @beginspecial
@setspecial @endspecial 180 x FE(13.6)136 b(Ev)-7 b(aluating)46
b(Matrix)f(Elemen)l(ts)664 1350 y FQ(Once)39 b(an)g(elemen)m(t)g(of)h
(a)f(matrix)f(has)h(b)s(een)f(assigned,)j(it)d(ma)m(y)i(b)s(e)e
(referred)g(to)i(in)664 1463 y(standard)30 b(arra)m(y)i(elemen)m(t)f
(notation.)43 b(Th)m(us)30 b FJ(y\(2,1\))f FQ(refers)i(to)g(the)h
(elemen)m(t)f(in)f(the)664 1576 y(second)h(ro)m(w)f(and)g(\014rst)f
(column)h(of)g(the)h(matrix)e FJ(Y)p FQ(.)p eop
%%Page: 185 185
185 184 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(14)241 1693 y FT(Pro)6 b(cedures)241 2174 y FQ(It)31
b(is)f(often)i(useful)d(to)j(name)g(a)f(statemen)m(t)i(for)e(rep)s
(eated)h(use)f(in)e(calculations)i(with)241 2274 y(v)-5
b(arying)42 b(parameters,)47 b(or)c(to)h(de\014ne)e(a)i(complete)f(ev)
-5 b(aluation)43 b(pro)s(cedure)f(for)h(an)241 2373 y(op)s(erator.)70
b(REDUCE)40 b(o\013ers)g(a)h(pro)s(cedural)d(declaration)i(for)f(this)g
(purp)s(ose.)69 b(Its)241 2473 y(general)30 b(syn)m(tax)h(is:)328
2679 y FH([<procedural)39 b(type>])i(PROCEDURE)f(<name>[<varlist)o(>])o
(;<s)o(ta)o(tem)o(en)o(t>;)241 2885 y FQ(where)589 3091
y FH(<varlist>)g(::=)j(\(<variable>,...)o(,<v)o(ar)o(iab)o(le)o(>\))241
3310 y FQ(This)28 b(will)g(b)s(e)i(explained)e(more)j(fully)d(in)h(the)
i(follo)m(wing)d(sections.)241 3473 y(In)g(the)h(algebraic)g(mo)s(de)g
(of)g(REDUCE)g(the)h FJ(<procedure)45 b(type>)27 b FQ(can)j(b)s(e)e
(omitted,)241 3586 y(since)37 b(the)i(default)e(is)g
FJ(ALGEBRAIC)p FQ(.)f(Pro)s(cedures)i(of)g(t)m(yp)s(e)g
FJ(INTEGER)f FQ(or)h FJ(REAL)f FQ(ma)m(y)241 3698 y(also)f(b)s(e)h
(used.)59 b(In)36 b(the)h(former)f(case,)k(the)d(system)g(c)m(hec)m(ks)
h(that)f(the)g(v)-5 b(alue)36 b(of)h(the)241 3811 y(pro)s(cedure)h(is)g
(an)i(in)m(teger.)68 b(A)m(t)40 b(presen)m(t,)i(suc)m(h)d(c)m(hec)m
(king)h(is)e(not)i(done)f(for)g(a)h(real)241 3924 y(pro)s(cedure,)f
(although)e(this)g(will)e(c)m(hange)40 b(in)c(the)i(future)f(when)g(a)i
(more)f(complete)241 4037 y(t)m(yp)s(e)29 b(c)m(hec)m(king)g(mec)m
(hanism)f(is)g(installed.)38 b(Users)28 b(should)f(therefore)i(only)f
(use)g(these)241 4150 y(t)m(yp)s(es)i(when)g(appropriate.)39
b(An)30 b(empt)m(y)h(v)-5 b(ariable)29 b(list)g(ma)m(y)i(also)g(b)s(e)e
(omitted.)241 4313 y(All)g(user-de\014ned)g(pro)s(cedures)g(are)h
(automatically)h(declared)e(to)j(b)s(e)d(op)s(erators.)241
4462 y(In)g(order)h(to)h(allo)m(w)f(users)g(relativ)m(ely)f(easy)i
(access)h(to)f(the)g(whole)e(REDUCE)h(source)241 4562
y(program,)35 b(system)f(pro)s(cedures)e(are)j(not)f(protected)h
(against)f(user)f(rede\014nition.)49 b(If)241 4661 y(a)31
b(pro)s(cedure)e(is)g(rede\014ned,)h(a)g(message)589
4867 y FH(***)43 b(<procedure)c(name>)j(REDEFINED)1667
5187 y FQ(185)p eop
%%Page: 186 186
186 185 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(186)1537 b FM(CHAPTER)30 b(14.)72 b(PR)m(OCEDURES)664
555 y FQ(is)31 b(prin)m(ted.)44 b(If)32 b(this)f(o)s(ccurs,)h(and)f
(the)i(user)e(is)g(not)h(rede\014ning)e(his)h(o)m(wn)h(pro)s(cedure,)
664 668 y(he)42 b(is)f(w)m(ell)h(advised)f(to)h(rename)h(it,)i(and)c(p)
s(ossibly)e(start)k(o)m(v)m(er)h(\(b)s(ecause)e(he)g(has)664
781 y FD(alr)-5 b(e)g(ady)36 b FQ(rede\014ned)25 b(some)h(in)m(ternal)f
(pro)s(cedure)f(whose)i(correct)h(functioning)c(ma)m(y)k(b)s(e)664
894 y(required)i(for)h(his)f(job!\))664 1057 y(All)j(required)f(pro)s
(cedures)h(should)f(b)s(e)h(de\014ned)g(at)h(the)g(top)h(lev)m(el,)f
(since)g(they)g(ha)m(v)m(e)664 1170 y(global)i(scop)s(e)h(throughout)g
(a)g(program.)57 b(In)35 b(particular,)h(an)g(attempt)h(to)f(de\014ne)g
(a)664 1282 y(pro)s(cedure)29 b(within)f(a)j(pro)s(cedure)e(will)f
(cause)j(an)f(error)g(to)h(o)s(ccur.)664 1437 y @beginspecial
@setspecial @endspecial 182 x FE(14.1)136 b(Pro)t(cedure)44
b(Heading)664 1871 y FQ(Eac)m(h)28 b(pro)s(cedure)e(has)h(a)g(heading)f
(consisting)g(of)i(the)f(w)m(ord)g FJ(PROCEDURE)d FQ(\(optionally)664
1984 y(preceded)35 b(b)m(y)g(the)h(w)m(ord)e FJ(ALGEBRAIC)p
FQ(\),)g(follo)m(w)m(ed)h(b)m(y)g(the)g(name)g(of)h(the)f(pro)s(cedure)
664 2097 y(to)28 b(b)s(e)f(de\014ned,)g(and)g(follo)m(w)m(ed)f(b)m(y)i
(its)e(formal)h(parameters)h({)f(the)h(sym)m(b)s(ols)e(that)i(will)664
2210 y(b)s(e)g(used)f(in)g(the)h(b)s(o)s(dy)e(of)i(the)h(de\014nition)c
(to)k(illustrate)d(what)i(is)f(to)i(b)s(e)f(done.)39
b(There)664 2323 y(are)31 b(three)g(cases:)664 2410 y
@beginspecial @setspecial @endspecial 775 2547 a(1.)46
b(No)33 b(parameters.)45 b(Simply)29 b(follo)m(w)i(the)g(pro)s(cedure)g
(name)h(with)e(a)i(terminator)891 2647 y(\(semicolon)e(or)h(dollar)e
(sign\).)1240 2859 y FH(procedure)40 b(abc;)891 3084
y FQ(When)31 b(suc)m(h)g(a)h(pro)s(cedure)e(is)g(used)h(in)e(an)j
(expression)d(or)j(command,)f FJ(abc\(\))p FQ(,)891 3196
y(with)f(empt)m(y)g(paren)m(theses,)h(m)m(ust)f(b)s(e)g(written.)664
3252 y @beginspecial @setspecial @endspecial 775 3371
a(2.)46 b(One)38 b(parameter.)63 b(Enclose)37 b(it)g(in)f(paren)m
(theses)i FD(or)48 b FQ(just)37 b(lea)m(v)m(e)i(at)g(least)f(one)891
3470 y(space,)32 b(then)e(follo)m(w)f(with)g(a)i(terminator.)1240
3682 y FH(procedure)40 b(abc\(x\);)891 3894 y FQ(or)1240
4106 y FH(procedure)g(abc)i(x;)664 4199 y @beginspecial
@setspecial @endspecial 775 4317 a FQ(3.)k(More)30 b(than)f(one)g
(parameter.)41 b(Enclose)29 b(them)g(in)f(paren)m(theses,)h(separated)h
(b)m(y)891 4417 y(commas,)i(then)e(follo)m(w)f(with)g(a)i(terminator.)
1240 4629 y FH(procedure)40 b(abc\(x,y,z\);)p eop
%%Page: 187 187
187 186 bop 241 299 a @beginspecial @setspecial @endspecial
FM(14.2.)72 b(PR)m(OCEDURE)31 b(BOD)m(Y)1704 b FQ(187)241
555 y(Referring)36 b(to)i(the)g(last)g(example,)h(if)d(later)i(in)e
(some)i(expression)e(b)s(eing)g(ev)-5 b(aluated)241 668
y(the)28 b(sym)m(b)s(ols)f FJ(abc\(u,p*q,123\))d FQ(app)s(ear,)k(the)g
(op)s(erations)g(of)g(the)g(pro)s(cedure)f(b)s(o)s(dy)241
781 y(will)32 b(b)s(e)i(carried)f(out)i(as)g(if)e FJ(X)i
FQ(had)f(the)g(same)h(v)-5 b(alue)34 b(as)h FJ(U)g FQ(do)s(es,)g
FJ(Y)f FQ(the)h(same)g(v)-5 b(alue)241 894 y(as)30 b
FJ(p*q)f FQ(do)s(es,)g(and)h FJ(Z)f FQ(the)h(v)-5 b(alue)29
b(123.)42 b(The)29 b(v)-5 b(alues)29 b(of)h FJ(X)p FQ(,)g
FJ(Y)p FQ(,)g FJ(Z)p FQ(,)f(after)i(the)f(pro)s(cedure)241
1007 y(b)s(o)s(dy)e(op)s(erations)g(are)i(completed)g(are)f(unc)m
(hanged.)40 b(So,)30 b(normally)-8 b(,)29 b(are)h(the)f(v)-5
b(alues)241 1120 y(of)38 b FJ(U)p FQ(,)g FJ(P)p FQ(,)g
FJ(Q)p FQ(,)g(and)g(\(of)h(course\))f(123.)66 b(\(This)37
b(is)g(tec)m(hnically)g(referred)h(to)h(as)f(call)g(b)m(y)241
1233 y(v)-5 b(alue.\))241 1395 y(The)32 b(reader)g(will)e(ha)m(v)m(e)k
(noted)f(the)g(w)m(ord)f FD(normal)5 b(ly)43 b FQ(a)33
b(few)f(lines)f(earlier.)46 b(The)32 b(call)241 1508
y(b)m(y)e(v)-5 b(alue)30 b(protections)g(can)h(b)s(e)f(b)m(ypassed)g
(if)f(necessary)-8 b(,)31 b(as)g(describ)s(ed)d(elsewhere.)241
1661 y @beginspecial @setspecial @endspecial 181 x FE(14.2)135
b(Pro)t(cedure)45 b(Bo)t(dy)241 2095 y FQ(F)-8 b(ollo)m(wing)36
b(the)h(delimiter)e(that)i(ends)f(the)h(pro)s(cedure)f(heading)f(m)m
(ust)i(b)s(e)f(a)i FD(single)241 2208 y FQ(statemen)m(t)33
b(de\014ning)c(the)i(action)g(to)h(b)s(e)e(p)s(erformed)g(or)h(the)g(v)
-5 b(alue)30 b(to)i(b)s(e)f(deliv)m(ered.)241 2321 y(A)k(terminator)g
(m)m(ust)g(follo)m(w)f(the)h(statemen)m(t.)57 b(If)35
b(it)f(is)h(a)g(semicolon,)h(the)f(name)g(of)241 2434
y(the)k(pro)s(cedure)f(just)h(de\014ned)f(is)g(prin)m(ted.)66
b(It)39 b(is)g(not)g(prin)m(ted)f(if)g(a)i(dollar)d(sign)h(is)241
2547 y(used.)241 2709 y(If)25 b(the)h(result)e(w)m(an)m(ted)j(is)d(giv)
m(en)i(b)m(y)g(a)g(form)m(ula)e(of)i(some)g(kind,)f(the)h(b)s(o)s(dy)e
(is)h(just)g(that)241 2822 y(form)m(ula,)30 b(using)e(the)j(v)-5
b(ariables)29 b(in)g(the)i(pro)s(cedure)e(heading.)241
2985 y FD(Simple)k(Example:)241 3134 y FQ(If)21 b FJ(f\(x\))f
FQ(is)h(to)i(mean)e FJ(\(x+5\)*\(x+6\)/\(x+7\))p FQ(,)e(the)j(en)m
(tire)g(pro)s(cedure)e(de\014nition)f(could)241 3234
y(read)589 3440 y FH(procedure)40 b(f)j(x;)g(\(x+5\)*\(x+6\)/\(x+7\))o
(;)241 3659 y FQ(Then)35 b FJ(f\(10\))g FQ(w)m(ould)f(ev)-5
b(aluate)37 b(to)g(240/17,)j FJ(f\(a-6\))35 b FQ(to)i
FJ(A*\(A-1\)/\(A+1\))p FQ(,)d(and)h(so)241 3772 y(on.)241
3935 y FD(Mor)-5 b(e)33 b(Complic)-5 b(ate)g(d)35 b(Example:)241
4098 y FQ(Supp)s(ose)d(w)m(e)i(need)g(a)g(function)f
FJ(p\(n,x\))f FQ(that,)k(for)d(an)m(y)h(p)s(ositiv)m(e)f(in)m(teger)i
FJ(N)p FQ(,)e(is)g(the)241 4210 y(Legendre)44 b(p)s(olynomial)d(of)j
(order)g FD(n)p FQ(.)81 b(W)-8 b(e)45 b(can)g(de\014ne)e(this)g(op)s
(erator)h(using)e(the)241 4323 y(textb)s(o)s(ok)31 b(form)m(ula)e
(de\014ning)g(these)h(functions:)1003 4573 y FL(p)1049
4587 y FF(n)1096 4573 y FQ(\()p FL(x)p FQ(\))c(=)1367
4512 y(1)p 1350 4552 80 4 v 1350 4636 a FL(n)p FQ(!)1504
4512 y FL(d)1551 4479 y FF(n)p 1480 4552 143 4 v 1480
4636 a FL(dy)1575 4610 y FF(n)1962 4512 y FQ(1)p 1672
4552 626 4 v 1672 4657 a(\()p FL(y)1755 4631 y FO(2)1815
4657 y FP(\000)20 b FQ(2)p FL(xy)j FQ(+)d(1\))2252 4594
y Fy(1)p 2253 4606 31 4 v 2253 4648 a(2)2308 4426 y FB(\014)2308
4476 y(\014)2308 4526 y(\014)2308 4576 y(\014)2308 4625
y(\014)2335 4679 y FF(y)r FO(=0)241 4846 y FQ(Put)30
b(in)m(to)g(w)m(ords,)g(the)g(Legendre)g(p)s(olynomial)e
FL(p)1951 4860 y FF(n)1997 4846 y FQ(\()p FL(x)p FQ(\))j(is)e(the)h
(result)g(of)g(substituting)241 4959 y FL(y)40 b FQ(=)d(0)h(in)f(the)h
FL(n)850 4926 y FF(th)957 4959 y FQ(partial)f(deriv)-5
b(ativ)m(e)37 b(with)f(resp)s(ect)i(to)h FL(y)h FQ(of)e(a)g(certain)g
(fraction)p eop
%%Page: 188 188
188 187 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(188)1537 b FM(CHAPTER)30 b(14.)72 b(PR)m(OCEDURES)664
555 y FQ(in)m(v)m(olving)29 b FL(x)h FQ(and)g FL(y)s
FQ(,)g(then)h(dividing)c(that)k(b)m(y)f FL(n)p FQ(!.)664
705 y(This)f(v)m(erbal)h(form)m(ula)f(can)i(easily)e(b)s(e)h(written)g
(in)f(REDUCE:)1013 911 y FH(procedure)40 b(p\(n,x\);)1144
1010 y(sub\(y=0,df\(1/\(y)o(^2-)o(2*)o(x*y)o(+1)o(\)^)o(\(1/)o(2\))o
(,y,)o(n\))o(\))1318 1110 y(/\(for)h(i:=1:n)h(product)e(i\);)664
1316 y FQ(Ha)m(ving)31 b(input)d(this)h(de\014nition,)g(the)h
(expression)f(ev)-5 b(aluation)1013 1522 y FH(2p\(2,w\);)664
1727 y FQ(w)m(ould)29 b(result)h(in)f(the)h(output)1144
1933 y FH(2)1013 2033 y(3*W)86 b(-)43 b(1)g(.)664 2252
y FQ(If)31 b(the)h(desired)e(pro)s(cess)h(is)f(b)s(est)h(describ)s(ed)f
(as)i(a)f(series)g(of)h(steps,)g(then)f(a)h(group)f(or)664
2365 y(comp)s(ound)e(statemen)m(t)j(can)f(b)s(e)f(used.)p
eop
%%Page: 189 189
189 188 bop 241 299 a @beginspecial @setspecial @endspecial
FM(14.3.)72 b(USING)31 b(LET)e(INSIDE)h(PR)m(OCEDURES)1071
b FQ(189)241 555 y FD(Example:)241 705 y FQ(The)22 b(ab)s(o)m(v)m(e)i
(Legendre)f(p)s(olynomial)e(example)h(can)h(b)s(e)g(rewritten)f(as)h(a)
g(series)f(of)i(steps)241 804 y(instead)29 b(of)i(a)g(single)e(form)m
(ula)g(as)i(follo)m(ws:)589 1010 y FH(procedure)40 b(p\(n,x\);)677
1110 y(begin)h(scalar)g(seed,deriv,top,fa)o(ct)o(;)895
1209 y(seed:=1/\(y^2)d(-)43 b(2*x*y)f(+1\)^\(1/2\);)895
1309 y(deriv:=df\(seed,)o(y,n)o(\);)895 1409 y(top:=sub\(y=0,de)o(riv)o
(\);)895 1508 y(fact:=for)d(i:=1:n)j(product)e(i;)895
1608 y(return)h(top/fact)677 1708 y(end;)241 1913 y FQ(Pro)s(cedures)32
b(ma)m(y)i(also)f(b)s(e)g(de\014ned)f(recursiv)m(ely)-8
b(.)49 b(In)33 b(other)g(w)m(ords,)h(the)g(pro)s(cedure)241
2013 y(b)s(o)s(dy)27 b(can)i(include)d(references)j(to)g(the)g(pro)s
(cedure)e(name)i(itself,)f(or)g(to)i(other)e(pro)s(ce-)241
2113 y(dures)c(that)i(themselv)m(es)f(reference)h(the)f(giv)m(en)g(pro)
s(cedure.)38 b(As)25 b(an)g(example,)i(w)m(e)e(can)241
2212 y(de\014ne)k(the)i(Legendre)f(p)s(olynomial)e(through)i(its)g
(standard)f(recurrence)h(relation:)589 2418 y FH(procedure)40
b(p\(n,x\);)720 2518 y(if)j(n<0)f(then)g(rederr)f("Invalid)g(argument)f
(to)j(P\(N,X\)")764 2617 y(else)f(if)g(n=0)h(then)f(1)764
2717 y(else)g(if)g(n=1)h(then)f(x)764 2817 y(else)g
(\(\(2*n-1\)*x*p\(n-1)o(,x)o(\)-)o(\(n-)o(1\))o(*p\()o(n-)o(2,)o(x\)\))
o(/n)o(;)241 3036 y FQ(The)31 b(op)s(erator)g FJ(REDERR)f
FQ(in)g(the)i(ab)s(o)m(v)m(e)h(example)e(pro)m(vides)f(for)h(a)h
(simple)e(error)h(exit)241 3149 y(from)42 b(an)g(algebraic)h(pro)s
(cedure)e(\(and)h(also)h(a)g(blo)s(c)m(k\).)77 b(It)43
b(can)g(tak)m(e)h(a)f(string)e(as)241 3262 y(argumen)m(t.)241
3424 y(It)25 b(should)e(b)s(e)h(noted)h(ho)m(w)m(ev)m(er)h(that)f(all)f
(the)h(ab)s(o)m(v)m(e)h(de\014nitions)d(of)i FJ(p\(n,x\))e
FQ(are)i(quite)241 3537 y(ine\016cien)m(t)i(if)h(extensiv)m(e)g(use)g
(is)g(to)h(b)s(e)e(made)i(of)f(suc)m(h)g(p)s(olynomials,)e(since)i(eac)
m(h)h(call)241 3650 y(e\013ectiv)m(ely)40 b(recomputes)f(all)e(lo)m(w)m
(er)j(order)e(p)s(olynomials.)64 b(It)39 b(w)m(ould)e(b)s(e)i(b)s
(etter)g(to)241 3763 y(store)28 b(these)h(expressions)e(in)g(an)h(arra)
m(y)-8 b(,)29 b(and)f(then)g(use)f(sa)m(y)i(the)f(recurrence)g
(relation)241 3876 y(to)h(compute)g(only)f(those)h(p)s(olynomials)d
(that)j(ha)m(v)m(e)h(not)f(already)f(b)s(een)g(deriv)m(ed.)39
b(W)-8 b(e)241 3989 y(lea)m(v)m(e)32 b(it)d(as)i(an)f(exercise)h(for)f
(the)h(reader)f(to)h(write)f(suc)m(h)g(a)g(de\014nition.)241
4126 y @beginspecial @setspecial @endspecial 199 x FE(14.3)135
b(Using)46 b(LET)e(Inside)i(Pro)t(cedures)241 4578 y
FQ(By)32 b(using)e FJ(LET)g FQ(instead)h(of)h(an)f(assignmen)m(t)g(in)f
(the)i(pro)s(cedure)e(b)s(o)s(dy)g(it)h(is)g(p)s(ossible)241
4691 y(to)36 b(b)m(ypass)g(the)g(call-b)m(y-v)-5 b(alue)35
b(protection.)58 b(If)35 b FJ(X)h FQ(is)f(a)h(formal)f(parameter)h(or)g
(lo)s(cal)241 4804 y(v)-5 b(ariable)34 b(of)h(the)h(pro)s(cedure)e
(\(i.e.)55 b(is)34 b(in)g(the)i(heading)e(or)h(in)f(a)i(lo)s(cal)e
(declaration\),)241 4917 y(and)c FJ(LET)f FQ(is)g(used)h(instead)g(of)g
FJ(:=)g FQ(to)h(mak)m(e)g(an)g(assignmen)m(t)f(to)h FJ(X)p
FQ(,)f(e.g.)p eop
%%Page: 190 190
190 189 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(190)1537 b FM(CHAPTER)30 b(14.)72 b(PR)m(OCEDURES)1013
555 y FH(let)42 b(x)h(=)h(123;)664 799 y FQ(then)39 b(it)g(is)f(the)h
(v)-5 b(ariable)38 b(that)i(is)e(the)h(v)-5 b(alue)39
b(of)g FJ(X)g FQ(that)g(is)g(c)m(hanged.)67 b(This)37
b(e\013ect)664 912 y(also)e(o)s(ccurs)f(with)f(lo)s(cal)h(v)-5
b(ariables)33 b(de\014ned)g(in)g(a)i(blo)s(c)m(k.)53
b(If)34 b(the)g(v)-5 b(alue)34 b(of)h FJ(X)f FQ(is)g(not)664
1025 y(a)e(v)-5 b(ariable,)31 b(but)g(a)h(more)g(general)g(expression,)
f(then)g(it)g(is)g(that)h(expression)f(that)h(is)664
1138 y(used)g(on)g(the)g(left-hand)f(side)g(of)i(the)f
FJ(LET)f FQ(statemen)m(t.)49 b(F)-8 b(or)32 b(example,)h(if)e
FJ(X)h FQ(had)g(the)664 1251 y(v)-5 b(alue)30 b FJ(p*q)p
FQ(,)g(it)g(is)f(as)i(if)e FJ(let)47 b(p*q)g(=)g(123)30
b FQ(had)g(b)s(een)f(executed.)664 1408 y @beginspecial
@setspecial @endspecial 179 x FE(14.4)136 b(LET)44 b(Rules)i(as)f(Pro)t
(cedures)664 1840 y FQ(The)27 b FJ(LET)g FQ(statemen)m(t)j(o\013ers)e
(an)f(alternativ)m(e)h(syn)m(tax)h(and)e(seman)m(tics)h(for)f(pro)s
(cedure)664 1953 y(de\014nition.)664 2102 y(In)j(place)g(of)1013
2308 y FH(procedure)40 b(abc\(x,y,z\);)f(<procedure)g(body>;)664
2514 y FQ(one)31 b(can)g(write)1013 2720 y FH(for)42
b(all)h(x,y,z)e(let)h(abc\(x,y,z\))e(=)j(<procedure)c(body>;)664
2939 y FQ(There)30 b(are)h(sev)m(eral)g(di\013erences)e(to)i(note.)664
3089 y(If)e(the)h(pro)s(cedure)f(b)s(o)s(dy)f(con)m(tains)i(an)f
(assignmen)m(t)h(to)g(one)g(of)g(the)g(formal)e(parame-)664
3188 y(ters,)j(e.g.)1013 3394 y FH(x)43 b(:=)g(123;)664
3613 y FQ(in)f(the)h FJ(PROCEDURE)d FQ(case)k(it)e(is)g(a)h(v)-5
b(ariable)41 b(holding)g(a)i(cop)m(y)h(of)f(the)g(\014rst)f(actual)664
3726 y(argumen)m(t)31 b(that)g(is)e(c)m(hanged.)42 b(The)30
b(actual)g(argumen)m(t)h(is)f(not)g(c)m(hanged.)664 3889
y(In)21 b(the)h FJ(LET)f FQ(case,)k(the)d(actual)g(argumen)m(t)g(is)f
(c)m(hanged.)39 b(Th)m(us,)22 b(if)f FJ(ABC)g FQ(is)g(de\014ned)f
(using)664 4002 y FJ(LET)p FQ(,)33 b(and)g FJ(abc\(u,v,w\))d
FQ(is)j(ev)-5 b(aluated,)34 b(the)g(v)-5 b(alue)33 b(of)h
FJ(U)f FQ(c)m(hanges)h(to)g(123.)51 b(That)34 b(is,)664
4115 y(the)28 b FJ(LET)f FQ(form)g(of)h(de\014nition)e(allo)m(ws)h(the)
h(user)f(to)h(b)m(ypass)f(the)h(protections)g(that)h(are)664
4228 y(enforced)c(b)m(y)h(the)f(call)f(b)m(y)i(v)-5 b(alue)24
b(con)m(v)m(en)m(tions)j(of)e(standard)f FJ(PROCEDURE)f
FQ(de\014nitions.)664 4377 y FD(Example:)54 b FQ(W)-8
b(e)37 b(tak)m(e)h(our)e(earlier)f FJ(FACTORIAL)f FQ(pro)s(cedure)h
(and)h(write)g(it)f(as)i(a)g FJ(LET)664 4477 y FQ(statemen)m(t.)1013
4683 y FH(for)42 b(all)h(n)g(let)f(factorial)e(n)j(=)1536
4782 y(begin)e(scalar)h(m,s;)1536 4882 y(m:=1;)f(s:=n;)p
eop
%%Page: 191 191
191 190 bop 241 299 a @beginspecial @setspecial @endspecial
FM(14.4.)72 b(LET)30 b(R)m(ULES)g(AS)g(PR)m(OCEDURES)1257
b FQ(191)938 555 y FH(l1:)42 b(if)h(s=0)g(then)f(return)f(m;)1112
655 y(m:=m*s;)1112 754 y(s:=s-1;)1112 854 y(go)i(to)g(l1)938
954 y(end;)241 1173 y FQ(The)34 b(reader)h(will)e(notice)i(that)h(w)m
(e)g(in)m(tro)s(duced)d(a)j(new)f(lo)s(cal)f(v)-5 b(ariable,)35
b FJ(S)p FQ(,)g(and)g(set)241 1286 y(it)h(equal)f(to)i
FJ(N)p FQ(.)g(The)e(original)g(form)h(of)g(the)h(pro)s(cedure)e(con)m
(tained)h(the)h(statemen)m(t)241 1399 y FJ(n:=n-1;)p
FQ(.)69 b(If)41 b(the)f(user)g(ask)m(ed)i(for)e(the)h(v)-5
b(alue)40 b(of)h FJ(factorial\(5\))c FQ(then)j FJ(N)h
FQ(w)m(ould)241 1512 y(corresp)s(ond)28 b(to,)k(not)e(just)f(ha)m(v)m
(e)i(the)f(v)-5 b(alue)30 b(of,)g(5,)h(and)e(REDUCE)h(w)m(ould)f(ob)5
b(ject)31 b(to)241 1625 y(trying)e(to)i(execute)h(the)f(statemen)m(t)h
(5)f(:=)f(5)21 b FP(\000)e FQ(1.)241 1774 y(If)30 b FJ(PQR)f
FQ(is)h(a)g(pro)s(cedure)g(with)f(no)h(parameters,)589
1980 y FH(procedure)40 b(pqr;)720 2079 y(<procedure)g(body>;)241
2285 y FQ(it)30 b(can)g(b)s(e)g(written)g(as)g(a)h FJ(LET)e
FQ(statemen)m(t)k(quite)c(simply:)589 2491 y FH(let)43
b(pqr)f(=)h(<procedure)d(body>;)241 2710 y FQ(T)-8 b(o)34
b(call)g FD(pr)-5 b(o)g(c)g(e)g(dur)g(e)44 b FJ(PQR)p
FQ(,)33 b(if)g(de\014ned)g(in)g(the)h(latter)h(form,)f(the)h(empt)m(y)f
(paren)m(theses)241 2823 y(w)m(ould)40 b(not)h(b)s(e)g(used:)61
b(use)41 b FJ(PQR)g FQ(not)g FJ(PQR\(\))f FQ(where)h(a)g(call)g(on)g
(the)g(pro)s(cedure)f(is)241 2936 y(needed.)241 3086
y(The)25 b(t)m(w)m(o)h(notations)g(for)f(a)g(pro)s(cedure)f(with)g(no)h
(argumen)m(ts)h(can)g(b)s(e)e(com)m(bined.)38 b FJ(PQR)241
3185 y FQ(can)30 b(b)s(e)g(de\014ned)f(in)g(the)i(standard)e
FJ(PROCEDURE)f FQ(form.)41 b(Then)29 b(a)i FJ(LET)e FQ(statemen)m(t)589
3391 y FH(let)43 b(pqr)f(=)h(pqr\(\);)241 3610 y FQ(w)m(ould)29
b(allo)m(w)h(a)h(user)e(to)i(use)f FJ(PQR)g FQ(instead)g(of)g
FJ(PQR\(\))f FQ(in)g(calling)g(the)h(pro)s(cedure.)241
3760 y(A)40 b(feature)g(a)m(v)-5 b(ailable)39 b(with)g
FJ(LET)p FQ(-de\014ned)f(pro)s(cedures)h(and)g(not)h(with)f(pro)s
(cedures)241 3859 y(de\014ned)29 b(in)g(the)i(standard)e(w)m(a)m(y)i
(is)f(the)g(p)s(ossibilit)m(y)d(of)k(de\014ning)d(partial)h(functions.)
415 4065 y FH(for)42 b(all)h(x)g(such)f(that)g(numberp)f(x)i(let)f
(uvw\(x\)=<procedur)o(e)c(body>;)241 4285 y FQ(No)m(w)c
FJ(UVW)e FQ(of)i(an)f(in)m(teger)h(w)m(ould)e(b)s(e)g(calculated)i(as)f
(prescrib)s(ed)e(b)m(y)i(the)h(pro)s(cedure)241 4397
y(b)s(o)s(dy)-8 b(,)38 b(while)d FJ(UVW)i FQ(of)g(a)h(general)f
(argumen)m(t,)j(suc)m(h)d(as)g FJ(Z)g FQ(or)g FJ(p+q)g
FQ(\(assuming)f(these)241 4510 y(ev)-5 b(aluate)32 b(to)g(themselv)m
(es\))g(w)m(ould)e(simply)f(sta)m(y)k FJ(uvw\(z\))c FQ(or)j
FJ(uvw\(p+q\))d FQ(as)j(the)f(case)241 4623 y(ma)m(y)g(b)s(e.)241
4778 y @beginspecial @setspecial @endspecial eop
%%Page: 192 192
192 191 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(192)1537 b FM(CHAPTER)30 b(14.)72 b(PR)m(OCEDURES)664
555 y FE(14.5)136 b(REMEMBER)45 b(Statemen)l(t)664 795
y FQ(Setting)30 b(the)h(remem)m(b)s(er)f(option)f(for)i(an)f(algebraic)
g(pro)s(cedure)f(b)m(y)882 1001 y FH(REMEMBER)40 b(\(PROCNAME:procedu)o
(re\))o(;)664 1220 y FQ(sa)m(v)m(es)27 b(all)e(in)m(termediate)g
(results)g(of)h(suc)m(h)f(pro)s(cedure)g(ev)-5 b(aluations,)26
b(including)c(recur-)664 1333 y(siv)m(e)34 b(calls.)50
b(Subsequen)m(t)32 b(calls)h(to)i(the)f(pro)s(cedure)e(can)i(then)g(b)s
(e)f(determined)f(from)664 1446 y(the)k(sa)m(v)m(ed)h(results,)f(and)g
(th)m(us)f(the)h(n)m(um)m(b)s(er)e(of)i(ev)-5 b(aluations)36
b(\(or)g(the)g(complexit)m(y\))664 1558 y(can)e(b)s(e)f(reduced.)50
b(This)32 b(mo)s(de)h(of)h(ev)-5 b(alation)34 b(costs)g(extra)h(memory)
-8 b(,)35 b(of)f(course.)51 b(In)664 1671 y(addition,)29
b(the)i(pro)s(cedure)e(m)m(ust)h(b)s(e)g(free)g(of)h(side{e\013ects.)
664 1834 y(The)i(follo)m(wing)e(examples)i(sho)m(w)g(the)g(e\013ect)i
(of)e(the)g(remem)m(b)s(er)g(statemen)m(t)i(on)e(t)m(w)m(o)664
1947 y(w)m(ell{kno)m(wn)d(examples.)664 2178 y FH(procedure)40
b(H\(n\);)259 b(\045)44 b(Hofstadter's)38 b(function)708
2277 y(if)43 b(numberp)d(n)j(then)708 2377 y(<<)g(cnn)f(:=)h(cnn)f(+1;)
129 b(\045)44 b(counts)d(the)h(calls)708 2477 y(if)h(n)g(<)g(3)g(then)f
(1)h(else)f(H\(n-H\(n-1\)\)+H\(n-)o(H\(n)o(-2)o(\)\)>)o(>;)664
2676 y(remember)e(h;)664 2875 y(>)j(<<)g(cnn)f(:=)h(0;)g(H\(100\);)e
(cnn>>;)664 3074 y(100)664 3274 y(\045)i(H)h(has)e(been)g(called)f(100)
h(times)g(only.)664 3473 y(procedure)e(A\(m,n\);)171
b(\045)44 b(Ackermann)c(function)708 3672 y(if)j(m=0)f(then)g(n+1)g
(else)751 3772 y(if)h(n=0)f(then)g(A\(m-1,1\))f(else)751
3871 y(A\(m-1,A\(m,n-1\)\);)664 4071 y(remember)f(a;)664
4270 y(A\(3,3\);)p eop
%%Page: 193 193
193 192 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(15)241 1693 y FT(User)76 b(Con)-6 b(tributed)78 b(P)-6
b(ac)g(k)-13 b(ages)241 2187 y FQ(The)30 b(complete)h(REDUCE)f(system)h
(includes)d(a)j(n)m(um)m(b)s(er)e(of)i(pac)m(k)-5 b(ages)32
b(con)m(tributed)241 2300 y(b)m(y)k(users)f(that)h(are)g(pro)m(vided)f
(as)h(a)g(service)g(to)h(the)f(user)f(comm)m(unit)m(y)-8
b(.)58 b(Questions)241 2413 y(regarding)29 b(these)i(pac)m(k)-5
b(ages)32 b(should)d(b)s(e)h(directed)f(to)i(their)f(individual)c
(authors.)241 2576 y(All)g(suc)m(h)h(pac)m(k)-5 b(ages)30
b(ha)m(v)m(e)f(b)s(een)e(precompiled)e(as)j(part)g(of)f(the)h
(installation)e(pro)s(cess.)241 2689 y(Ho)m(w)m(ev)m(er,)k(man)m(y)d(m)
m(ust)g(b)s(e)g(sp)s(eci\014cally)e(loaded)i(b)s(efore)g(they)g(can)h
(b)s(e)e(used.)39 b(\(Those)241 2802 y(that)27 b(are)f(loaded)g
(automatically)h(are)f(so)h(noted)f(in)f(their)h(description.\))38
b(Y)-8 b(ou)26 b(should)241 2915 y(also)38 b(consult)f(the)h(user)f
(notes)i(for)e(y)m(our)h(particular)f(implemen)m(tation)f(for)i
(further)241 3028 y(information)32 b(on)h(whether)h(this)e(is)h
(necessary)-8 b(.)52 b(If)33 b(it)g(is,)h(the)g(relev)-5
b(an)m(t)34 b(command)f(is)241 3141 y FJ(LOAD)p 439 3141
29 4 v 33 w(PACKAGE)p FQ(,)22 b(whic)m(h)f(tak)m(es)k(a)f(list)e(of)h
(one)g(or)h(more)f(pac)m(k)-5 b(age)25 b(names)e(as)h(argumen)m(t,)241
3253 y(for)30 b(example:)589 3484 y FH(load_package)39
b(algint;)241 3728 y FQ(although)30 b(this)f(syn)m(tax)i(ma)m(y)g(v)-5
b(ary)30 b(from)g(implemen)m(tation)f(to)i(implemen)m(tation.)241
3891 y(Nearly)j(all)e(these)j(pac)m(k)-5 b(ages)36 b(come)f(with)d
(separate)j(do)s(cumen)m(tation)f(and)g(test)h(\014les)241
4004 y(\(except)43 b(those)f(noted)g(here)g(that)h(ha)m(v)m(e)g(no)f
(additional)e(do)s(cumen)m(tation\),)45 b(whic)m(h)241
4117 y(is)33 b(included,)f(along)h(with)g(the)h(source)g(of)g(the)g
(pac)m(k)-5 b(age,)36 b(in)d(the)h(REDUCE)f(system)241
4230 y(distribution.)61 b(These)38 b(items)g(should)e(b)s(e)i(studied)f
(for)h(an)m(y)h(additional)d(details)i(on)241 4343 y(the)30
b(use)g(of)h(a)g(particular)d(pac)m(k)-5 b(age.)241 4505
y(P)m(art)31 b(2)g(of)f(this)f(man)m(ual)h(con)m(tains)h(short)f(do)s
(cumen)m(tation)g(for)g(the)h(pac)m(k)-5 b(ages)377 4743
y FP(\017)46 b FQ(ALGINT:)31 b(In)m(tegration)g(of)f(square)g(ro)s(ots)
h(\(c)m(hapter)g @beginspecial @setspecial @endspecial(20)q(\);)377
4930 y FP(\017)46 b FQ(APPL)-8 b(YSYM:)27 b(In\014nitesimal)d
(symmetries)h(of)i(di\013eren)m(tial)e(equations)i(\(c)m(hap-)1667
5187 y(193)p eop
%%Page: 194 194
194 193 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(194)665 b FM(CHAPTER)30 b(15.)72 b(USER)29 b(CONTRIBUTED)h(P)-8
b(A)m(CKA)m(GES)891 555 y FQ(ter)31 b @beginspecial @setspecial
@endspecial(21)q(\);)801 743 y FP(\017)45 b FQ(ARNUM:)32
b(An)e(algebraic)g(n)m(um)m(b)s(er)f(pac)m(k)-5 b(age)32
b(\(c)m(hapter)g @beginspecial @setspecial @endspecial(22)q(\);)801
930 y FP(\017)45 b FQ(ASSIST:)29 b(Useful)g(utilities)f(for)i(v)-5
b(arious)30 b(applications)e(\(c)m(hapter)k @beginspecial
@setspecial @endspecial(23)q(\);)801 1118 y FP(\017)45
b FQ(A)-10 b(VECTOR:)30 b(A)h(v)m(ector)h(algebra)e(and)g(calculus)f
(pac)m(k)-5 b(age)32 b(\(c)m(hapter)f @beginspecial @setspecial
@endspecial(25)q(\);)801 1306 y FP(\017)45 b FQ(BOOLEAN:)31
b(A)f(pac)m(k)-5 b(age)33 b(for)d(b)s(o)s(olean)f(algebra)i(\(c)m
(hapter)g @beginspecial @setspecial @endspecial(26)q(\);)801
1493 y FP(\017)45 b FQ(CALI:)22 b(A)g(pac)m(k)-5 b(age)24
b(for)d(computational)h(comm)m(utativ)m(e)h(algebra)f(\(c)m(hapter)g
@beginspecial @setspecial @endspecial(27)q(\);)801 1681
y FP(\017)45 b FQ(CAMAL:)31 b(Calculations)e(in)g(celestial)h(mec)m
(hanics)g(\(c)m(hapter)i @beginspecial @setspecial @endspecial(28\);)
801 1869 y FP(\017)45 b FQ(CHANGEVR:)23 b(Change)f(of)f(Indep)s(enden)m
(t)g(V)-8 b(ariable\(s\))21 b(in)g(DEs)h(\(c)m(hapter)g
@beginspecial @setspecial @endspecial(30)q(\);)801 2056
y FP(\017)45 b FQ(COMP)-8 b(A)m(CT:)31 b(P)m(ac)m(k)-5
b(age)33 b(for)d(compacting)h(expressions)e(\(c)m(hapter)j
@beginspecial @setspecial @endspecial(31\);)801 2244
y FP(\017)45 b FQ(CONTFR:)31 b(Appro)m(ximation)f(of)i(a)g(n)m(um)m(b)s
(er)e(b)m(y)h(con)m(tin)m(ued)g(fractions)g(\(c)m(hap-)891
2357 y(ter)g FN(??)q FQ(\);)801 2544 y FP(\017)45 b FQ(CRA)m(CK:)c
(Solving)e(o)m(v)m(erdetermined)h(systems)h(of)g(PDEs)f(or)h(ODEs)f
(\(c)m(hap-)891 2657 y(ter)31 b @beginspecial @setspecial
@endspecial(32)q(\);)801 2845 y FP(\017)45 b FQ(CVIT:)30
b(F)-8 b(ast)32 b(calculation)e(of)g(Dirac)h(gamma)g(matrix)f(traces)h
(\(c)m(hapter)g @beginspecial @setspecial @endspecial(33)q(\);)801
3033 y FP(\017)45 b FQ(DEFINT:)31 b(A)g(de\014nite)e(in)m(tegration)h
(in)m(terface)h(for)g(REDUCE)f(\(c)m(hapter)h @beginspecial
@setspecial @endspecial(34)q(\);)801 3220 y FP(\017)45
b FQ(DESIR:)53 b(Di\013eren)m(tial)g(linear)e(homogeneous)j(equation)f
(solutions)e(in)h(the)891 3333 y(neigh)m(b)s(orho)s(o)s(d)28
b(of)j(irregular)d(and)i(regular)g(singular)e(p)s(oin)m(ts)h(\(c)m
(hapter)j @beginspecial @setspecial @endspecial(35\);)801
3521 y FP(\017)45 b FQ(DFP)-8 b(AR)g(T:)32 b(Deriv)-5
b(ativ)m(es)31 b(of)g(generic)f(functions)f(\(c)m(hapter)i
@beginspecial @setspecial @endspecial(36)q(\);)801 3708
y FP(\017)45 b FQ(DUMMY:)27 b(Canonical)c(form)i(of)f(expressions)g
(with)f(dumm)m(y)h(v)-5 b(ariables)23 b(\(c)m(hap-)891
3821 y(ter)31 b @beginspecial @setspecial @endspecial(37)q(\);)801
4009 y FP(\017)45 b FQ(EX)m(CALC:)31 b(A)f(di\013eren)m(tial)f
(geometry)j(pac)m(k)-5 b(age)32 b(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(39)q(\);)801 4197 y FP(\017)45
b FQ(FPS:)31 b(Automatic)g(calculation)e(of)i(formal)e(p)s(o)m(w)m(er)i
(series)f(\(c)m(hapter)h @beginspecial @setspecial @endspecial(41)q
(\);)801 4384 y FP(\017)45 b FQ(FIDE:)23 b(Finite)e(di\013erence)h
(metho)s(d)g(for)g(partial)f(di\013eren)m(tial)f(equations)i(\(c)m
(hap-)891 4497 y(ter)31 b @beginspecial @setspecial @endspecial(40)q
(\);)801 4685 y FP(\017)45 b FQ(GENTRAN:)31 b(A)g(co)s(de)f(generation)
h(pac)m(k)-5 b(age)32 b(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(42)q(\);)801 4872 y FP(\017)45
b FQ(GNUPLOT:)31 b(Displa)m(y)e(of)i(functions)e(and)h(surfaces)g(\(c)m
(hapter)h @beginspecial @setspecial @endspecial(44)q(\);)p
eop
%%Page: 195 195
195 194 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(195)377 555 y FP(\017)46 b FQ(GR)m(OEBNER:)31
b(A)g(Gr\177)-45 b(obner)29 b(basis)h(pac)m(k)-5 b(age)32
b(\(c)m(hapter)f @beginspecial @setspecial @endspecial(45)q(\);)377
743 y FP(\017)46 b FQ(IDEALS:)30 b(Arithmetic)g(for)g(p)s(olynomial)d
(ideals)i(\(c)m(hapter)j @beginspecial @setspecial @endspecial(46)q
(\);)377 930 y FP(\017)46 b FQ(INEQ:)30 b(Supp)s(ort)e(for)j(solving)e
(inequalities)e(\(c)m(hapter)32 b @beginspecial @setspecial
@endspecial(47)q(\);)377 1118 y FP(\017)46 b FQ(INVBASE:)31
b(A)f(pac)m(k)-5 b(age)33 b(for)d(computing)f(in)m(v)m(olutiv)m(e)h
(bases)g(\(c)m(hapter)i @beginspecial @setspecial @endspecial(48)q(\);)
377 1306 y FP(\017)46 b FQ(LAPLA)m(CE:)30 b(Laplace)h(and)f(in)m(v)m
(erse)g(Laplace)h(transforms)e(\(c)m(hapter)j @beginspecial
@setspecial @endspecial(49\);)377 1493 y FP(\017)46 b
FQ(LIE:)27 b(F)-8 b(unctions)27 b(for)g(the)h(classi\014cation)e(of)h
(real)h(n-dimensional)c(Lie)j(algebras)468 1606 y(\(c)m(hapter)k
@beginspecial @setspecial @endspecial(50)q(\);)377 1794
y FP(\017)46 b FQ(LIMITS:)30 b(A)g(pac)m(k)-5 b(age)32
b(for)f(\014nding)d(limits)g(\(c)m(hapter)j @beginspecial
@setspecial @endspecial(51)q(\);)377 1982 y FP(\017)46
b FQ(LINALG:)31 b(Linear)e(algebra)i(pac)m(k)-5 b(age)32
b(\(c)m(hapter)f @beginspecial @setspecial @endspecial(52)q(\);)377
2169 y FP(\017)46 b FQ(MODSR:)31 b(Mo)s(dular)d(solv)m(e)j(and)f(ro)s
(ots)g(\(c)m(hapter)i @beginspecial @setspecial @endspecial(54)q(\);)
377 2357 y FP(\017)46 b FQ(NCPOL)-8 b(Y:)30 b(Non{comm)m(utativ)m(e)j
(p)s(olynomial)28 b(ideals)h(\(c)m(hapter)i @beginspecial
@setspecial @endspecial(56)q(\);)377 2544 y FP(\017)46
b FQ(NORMF)m(ORM:)32 b(Computation)d(of)i(matrix)e(normal)h(forms)f
(\(c)m(hapter)j @beginspecial @setspecial @endspecial(57)q(\);)377
2732 y FP(\017)46 b FQ(NUMERIC:)31 b(Solving)d(n)m(umerical)h(problems)
g(\(c)m(hapter)i @beginspecial @setspecial @endspecial(58)q(\);)377
2920 y FP(\017)46 b FQ(ODESOL)-10 b(VE:)30 b(Ordinary)e(di\013eren)m
(tial)g(equations)i(solv)m(er)h(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(59)q(\);)377 3107 y FP(\017)46
b FQ(OR)-8 b(THO)m(VEC:)30 b(Manipulation)f(of)h(scalars)g(and)g(v)m
(ectors)i(\(c)m(hapter)f @beginspecial @setspecial @endspecial(60)q
(\);)377 3295 y FP(\017)46 b FQ(PHYSOP:)30 b(Op)s(erator)g(calculus)f
(in)g(quan)m(tum)h(theory)g(\(c)m(hapter)i @beginspecial
@setspecial @endspecial(61)q(\);)377 3483 y FP(\017)46
b FQ(PM:)31 b(A)f(REDUCE)h(pattern)f(matc)m(her)h(\(c)m(hapter)h
@beginspecial @setspecial @endspecial(62)q(\);)377 3670
y FP(\017)46 b FQ(RANDPOL)-8 b(Y:)31 b(A)g(random)e(p)s(olynomial)f
(generator)k(\(c)m(hapter)f @beginspecial @setspecial
@endspecial(64)q(\);)377 3858 y FP(\017)46 b FQ(REA)m(CTEQN:)32
b(Supp)s(ort)d(for)j(c)m(hemical)g(reaction)g(equation)g(systems)g(\(c)
m(hap-)468 3971 y(ter)f @beginspecial @setspecial @endspecial(66)q(\);)
377 4158 y FP(\017)46 b FQ(RESET:)29 b(Co)s(de)h(to)h(reset)g(REDUCE)g
(to)g(its)e(initial)f(state)k(\(c)m(hapter)f @beginspecial
@setspecial @endspecial(68)q(\);)377 4346 y FP(\017)46
b FQ(RESIDUE:)30 b(A)h(residue)e(pac)m(k)-5 b(age)32
b(\(c)m(hapter)f @beginspecial @setspecial @endspecial(69)q(\);)377
4534 y FP(\017)46 b FQ(RLFI:)31 b(REDUCE)f(LaT)-8 b(eX)31
b(form)m(ula)f(in)m(terface)h(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(70)q(\);)377 4721 y FP(\017)46
b FQ(RSOL)-10 b(VE:)29 b(Rational/in)m(teger)i(p)s(olynomial)d(solv)m
(ers)i(\(c)m(hapter)i @beginspecial @setspecial @endspecial(72)q(\);)
377 4909 y FP(\017)46 b FQ(R)m(OOTS:)30 b(A)g(REDUCE)g(ro)s(ot)h
(\014nding)d(pac)m(k)-5 b(age)32 b(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(71)q(\);)p eop
%%Page: 196 196
196 195 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(196)665 b FM(CHAPTER)30 b(15.)72 b(USER)29 b(CONTRIBUTED)h(P)-8
b(A)m(CKA)m(GES)801 555 y FP(\017)45 b FQ(SCOPE:)30 b(REDUCE)g(source)g
(co)s(de)h(optimization)e(pac)m(k)-5 b(age)33 b(\(c)m(hapter)e
@beginspecial @setspecial @endspecial(73)q(\);)801 743
y FP(\017)45 b FQ(SETS:)30 b(A)g(basic)g(set)h(theory)f(pac)m(k)-5
b(age)33 b(\(c)m(hapter)e @beginspecial @setspecial @endspecial(74)q
(\);)801 930 y FP(\017)45 b FQ(SPDE:)27 b(A)g(pac)m(k)-5
b(age)29 b(for)d(\014nding)e(symmetry)j(groups)f(of)h(PDE's)g(\(c)m
(hapter)g @beginspecial @setspecial @endspecial(76)q(\);)801
1118 y FP(\017)45 b FQ(SPECFN:)30 b(P)m(ac)m(k)-5 b(age)34
b(for)c(sp)s(ecial)f(functions)g(\(c)m(hapter)i @beginspecial
@setspecial @endspecial(77)q(\);)801 1306 y FP(\017)45
b FQ(SPECFN2:)c(P)m(ac)m(k)-5 b(age)33 b(for)d(sp)s(ecial)f(sp)s(ecial)
g(functions)g(\(c)m(hapter)j @beginspecial @setspecial
@endspecial(78\);)801 1493 y FP(\017)45 b FQ(SUM:)31
b(A)g(pac)m(k)-5 b(age)32 b(for)e(series)g(summation)f(\(c)m(hapter)i
@beginspecial @setspecial @endspecial(79)q(\);)801 1681
y FP(\017)45 b FQ(SYMMETR)-8 b(Y:)31 b(Op)s(erations)e(on)i(symmetric)e
(matrices)i(\(c)m(hapter)g @beginspecial @setspecial
@endspecial(81)q(\);)801 1869 y FP(\017)45 b FQ(T)-8
b(A)g(YLOR:)31 b(Manipulation)d(of)j(T)-8 b(a)m(ylor)31
b(series)e(\(c)m(hapter)j @beginspecial @setspecial @endspecial(82)q
(\);)801 2056 y FP(\017)45 b FQ(TPS:)30 b(A)h(truncated)f(p)s(o)m(w)m
(er)g(series)g(pac)m(k)-5 b(age)32 b(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(83)q(\);)801 2244 y FP(\017)45
b FQ(TRI:)30 b(T)-8 b(eX)31 b(REDUCE)g(in)m(terface)g(\(c)m(hapter)g
@beginspecial @setspecial @endspecial(84)q(\);)801 2431
y FP(\017)45 b FQ(TRIGSIMP:)28 b(Simpli\014cation)d(and)j
(factorization)i(of)e(trigonometric)h(and)f(h)m(y-)891
2544 y(p)s(erb)s(olic)g(functions)h(\(c)m(hapter)i @beginspecial
@setspecial @endspecial(85)q(\);)801 2732 y FP(\017)45
b FQ(X)m(COLOR:)37 b(Calculation)e(of)j(the)f(color)g(factor)h(in)d
(non-ab)s(elian)g(gauge)j(\014eld)891 2845 y(theories)31
b(\(c)m(hapter)g @beginspecial @setspecial @endspecial(87)q(\);)801
3033 y FP(\017)45 b FQ(XIDEAL:)31 b(Gr\177)-45 b(obner)30
b(Bases)h(for)f(exterior)h(algebra)f(\(c)m(hapter)i @beginspecial
@setspecial @endspecial(88)q(\);)801 3220 y FP(\017)45
b FQ(WU:)32 b(W)-8 b(u)30 b(algorithm)g(for)g(p)s(olynomial)e(systems)i
(\(c)m(hapter)h @beginspecial @setspecial @endspecial(86)q(\);)801
3408 y FP(\017)45 b FQ(ZEILBER)m(G:)36 b(A)g(pac)m(k)-5
b(age)38 b(for)d(inde\014nite)e(and)i(de\014nite)g(summation)f(\(c)m
(hap-)891 3521 y(ter)d @beginspecial @setspecial @endspecial(89)q(\);)
801 3708 y FP(\017)45 b FQ(ZTRANS:)30 b FL(Z)7 b FQ(-transform)30
b(pac)m(k)-5 b(age)32 b(\(c)m(hapter)f @beginspecial
@setspecial @endspecial(90)q(\);)p eop
%%Page: 197 197
197 196 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(16)241 1693 y FT(Sym)-6 b(b)6 b(olic)76 b(Mo)6 b(de)241
2187 y FQ(A)m(t)24 b(the)g(system)g(lev)m(el,)h(REDUCE)f(is)f(based)g
(on)h(a)g(v)m(ersion)f(of)h(the)g(programming)e(lan-)241
2300 y(guage)34 b(Lisp)e(kno)m(wn)h(as)g FD(Standar)-5
b(d)39 b(Lisp)g FQ(whic)m(h)32 b(is)g(describ)s(ed)g(in)g(J.)h(Marti,)h
(Hearn,)241 2413 y(A.)e(C.,)g(Griss,)f(M.)h(L.)g(and)f(Griss,)g(C.,)h
(\\Standard)f(LISP)f(Rep)s(ort")i(SIGPLAN)g(No-)241 2526
y(tices,)41 b(A)m(CM,)e(New)g(Y)-8 b(ork,)41 b(14,)h(No)d(10)g
(\(1979\))i(48-68.)67 b(W)-8 b(e)39 b(shall)e(assume)h(in)g(this)241
2639 y(section)26 b(that)h(the)g(reader)f(is)f(familiar)f(with)h(the)i
(material)f(in)f(that)i(pap)s(er.)38 b(This)25 b(also)241
2752 y(assumes)g(implicitly)c(that)26 b(the)f(reader)g(has)g(a)h
(reasonable)f(kno)m(wledge)g(ab)s(out)g(Lisp)f(in)241
2865 y(general,)31 b(sa)m(y)h(at)g(the)f(lev)m(el)g(of)g(the)g(LISP)f
(1.5)j(Programmer's)e(Man)m(ual)g(\(McCarth)m(y)-8 b(,)241
2978 y(J.,)33 b(Abrahams,)g(P)-8 b(.)34 b(W.,)g(Edw)m(ards,)e(D.)i(J.,)
f(Hart,)h(T.)f(P)-8 b(.)33 b(and)g(Levin,)f(M.)h(I.,)h(\\LISP)241
3091 y(1.5)i(Programmer's)f(Man)m(ual",)i(M.I.T.)e(Press,)h(1965\))h
(or)e(an)m(y)h(of)f(the)g(b)s(o)s(oks)g(men-)241 3204
y(tioned)29 b(at)i(the)f(end)g(of)g(this)f(section.)41
b(P)m(ersons)30 b(unfamiliar)d(with)i(this)g(material)g(will)241
3317 y(ha)m(v)m(e)i(some)g(di\016cult)m(y)e(understanding)f(this)h
(section.)241 3479 y(Although)49 b(REDUCE)i(is)e(designed)g(primarily)e
(for)j(algebraic)g(calculations,)55 b(its)241 3592 y(source)26
b(language)g(is)e(general)i(enough)g(to)g(allo)m(w)f(for)h(a)g(full)d
(range)j(of)g(Lisp-lik)m(e)e(sym)m(b-)241 3705 y(olic)29
b(calculations.)40 b(T)-8 b(o)30 b(ac)m(hiev)m(e)h(this)e(generalit)m
(y)-8 b(,)31 b(ho)m(w)m(ev)m(er,)g(it)f(is)f(necessary)h(to)h(pro-)241
3818 y(vide)e(the)i(user)f(with)f(t)m(w)m(o)j(mo)s(des)e(of)h(ev)-5
b(aluation,)30 b(namely)g(an)h(algebraic)f(mo)s(de)g(and)241
3931 y(a)k(sym)m(b)s(olic)e(mo)s(de.)50 b(T)-8 b(o)34
b(en)m(ter)g(sym)m(b)s(olic)e(mo)s(de,)i(the)g(user)f(t)m(yp)s(es)g
FJ(symbolic;)68 b FQ(\(or)241 4044 y FJ(lisp;)p FQ(\))26
b(and)g(to)h(return)f(to)h(algebraic)f(mo)s(de)g(one)h(t)m(yp)s(es)f
FJ(algebraic;)p FQ(.)37 b(Ev)-5 b(aluations)241 4157
y(pro)s(ceed)29 b(di\013eren)m(tly)f(in)g(eac)m(h)j(mo)s(de)e(so)h(the)
g(user)e(is)h(advised)f(to)i(c)m(hec)m(k)i(what)d(mo)s(de)241
4270 y(he)h(is)f(in)g(if)h(a)h(puzzling)d(error)i(arises.)40
b(He)31 b(can)g(\014nd)e(his)f(mo)s(de)i(b)m(y)h(t)m(yping)589
4500 y FH(eval_mode;)241 4744 y FQ(The)f(curren)m(t)g(mo)s(de)g(will)d
(then)k(b)s(e)e(prin)m(ted)g(as)i FJ(ALGEBRAIC)d FQ(or)i
FJ(SYMBOLIC)p FQ(.)241 4907 y(Expression)i(ev)-5 b(aluation)34
b(ma)m(y)h(pro)s(ceed)g(in)e(either)h(mo)s(de)g(at)h(an)m(y)g(lev)m(el)
f(of)g(a)h(calcu-)1667 5187 y(197)p eop
%%Page: 198 198
198 197 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(198)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)664
555 y FQ(lation,)h(pro)m(vided)f(the)i(results)e(are)i(passed)f(from)g
(mo)s(de)g(to)i(mo)s(de)e(in)f(a)i(compatible)664 668
y(manner.)75 b(One)42 b(simply)e(pre\014xes)h(the)h(relev)-5
b(an)m(t)43 b(expression)e(b)m(y)h(the)g(appropriate)664
781 y(mo)s(de.)e(If)28 b(the)h(mo)s(de)f(name)h(pre\014xes)e(an)i
(expression)e(at)j(the)e(top)h(lev)m(el,)g(it)f(will)e(then)664
894 y(b)s(e)k(handled)e(as)j(if)e(the)i(global)e(system)i(mo)s(de)f
(had)f(b)s(een)h(c)m(hanged)h(for)f(the)g(scop)s(e)h(of)664
1007 y(that)g(particular)e(calculation.)664 1170 y(F)-8
b(or)31 b(example,)g(if)e(the)i(curren)m(t)f(mo)s(de)g(is)f
FJ(ALGEBRAIC)p FQ(,)f(then)i(the)h(commands)p eop
%%Page: 199 199
199 198 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(199)589 555 y FH(symbolic)41 b(car)h('\(a\);)589
655 y(x+y;)241 886 y FQ(will)24 b(cause)k(the)f(\014rst)f(expression)g
(to)i(b)s(e)e(ev)-5 b(aluated)28 b(and)e(prin)m(ted)g(in)f(sym)m(b)s
(olic)h(mo)s(de)241 985 y(and)40 b(the)h(second)h(in)d(algebraic)i(mo)s
(de.)72 b(Only)40 b(the)h(second)g(ev)-5 b(aluation)40
b(will)f(th)m(us)241 1085 y(a\013ect)32 b(the)e(expression)f(w)m
(orkspace.)42 b(On)29 b(the)i(other)g(hand,)e(the)i(statemen)m(t)589
1291 y FH(x)44 b(+)f(symbolic)d(car)i('\(12\);)241 1510
y FQ(will)27 b(result)j(in)f(the)h(algebraic)g(v)-5 b(alue)30
b FJ(X+12)p FQ(.)241 1673 y(The)38 b(use)g(of)g FJ(SYMBOLIC)e
FQ(\(and)i(equiv)-5 b(alen)m(tly)37 b FJ(ALGEBRAIC)p
FQ(\))f(in)h(this)g(manner)h(is)f(the)241 1786 y(same)26
b(as)g(an)m(y)g(op)s(erator.)39 b(That)26 b(means)g(that)g(paren)m
(theses)g(could)f(b)s(e)g(omitted)h(in)e(the)241 1898
y(ab)s(o)m(v)m(e)38 b(examples)e(since)g(the)h(meaning)f(is)g(ob)m
(vious.)59 b(In)36 b(other)h(cases,)i(paren)m(theses)241
2011 y(m)m(ust)30 b(b)s(e)g(used,)g(as)g(in)589 2242
y FH(symbolic\(x)40 b(:=)j('a\);)241 2473 y FQ(Omitting)29
b(the)h(paren)m(theses,)h(as)g(in)589 2679 y FH(symbolic)41
b(x)i(:=)g(a;)241 2885 y FQ(w)m(ould)29 b(b)s(e)h(wrong,)g(since)g(it)g
(w)m(ould)f(parse)h(as)589 3091 y FH(symbolic\(x\))39
b(:=)k(a;)241 3297 y FQ(F)-8 b(or)39 b(con)m(v)m(enience,)i(it)d(is)f
(assumed)h(that)h(an)m(y)f(op)s(erator)h(whose)f FD(\014rst)48
b FQ(argumen)m(t)38 b(is)241 3396 y(quoted)26 b(is)f(b)s(eing)g(ev)-5
b(aluated)27 b(in)d(sym)m(b)s(olic)h(mo)s(de,)i(regardless)e(of)i(the)f
(mo)s(de)g(in)f(e\013ect)241 3496 y(at)31 b(that)g(time.)40
b(Th)m(us,)30 b(the)g(\014rst)g(example)g(ab)s(o)m(v)m(e)i(could)d(b)s
(e)h(equally)f(w)m(ell)g(written:)589 3702 y FH(car)43
b('\(a\);)241 3921 y FQ(Except)25 b(where)f(explicit)f(limitations)g
(ha)m(v)m(e)j(b)s(een)e(made,)i(most)f(REDUCE)g(algebraic)241
4034 y(constructions)c(carry)h(o)m(v)m(er)h(in)m(to)f(sym)m(b)s(olic)e
(mo)s(de.)37 b(Ho)m(w)m(ev)m(er,)26 b(there)c(are)g(some)g(di\013er-)
241 4147 y(ences.)42 b(First,)30 b(expression)f(ev)-5
b(aluation)30 b(no)m(w)h(b)s(ecomes)g(Lisp)e(ev)-5 b(aluation.)41
b(Secondly)-8 b(,)241 4260 y(assignmen)m(t)37 b(statemen)m(ts)h(are)g
(handled)d(di\013eren)m(tly)-8 b(,)38 b(as)f(w)m(e)g(shall)f(discuss)f
(shortly)-8 b(.)241 4373 y(Thirdly)g(,)24 b(lo)s(cal)h(v)-5
b(ariables)25 b(and)g(arra)m(y)h(elemen)m(ts)g(are)h(initialized)22
b(to)27 b FJ(NIL)e FQ(rather)h(than)241 4485 y FJ(0)p
FQ(.)39 b(\(In)27 b(fact,)j(an)m(y)e(v)-5 b(ariables)26
b(not)i(explicitly)d(declared)i FJ(INTEGER)e FQ(are)j(also)g
(initialized)241 4598 y(to)k FJ(NIL)f FQ(in)f(algebraic)i(mo)s(de,)g
(but)f(the)h(algebraic)f(ev)-5 b(aluator)32 b(recognizes)g
FJ(NIL)f FQ(as)h FJ(0)p FQ(.\))241 4711 y(Finally)-8
b(,)29 b(function)g(de\014nitions)f(follo)m(w)h(the)i(con)m(v)m(en)m
(tions)g(of)g(Standard)e(Lisp.)241 4874 y(T)-8 b(o)34
b(b)s(egin)e(with,)h(w)m(e)h(men)m(tion)f(a)h(few)g(extensions)f(to)h
(our)f(basic)g(syn)m(tax)h(whic)m(h)e(are)p eop
%%Page: 200 200
200 199 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(200)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)664
555 y FQ(designed)f(primarily)e(if)j(not)g(exclusiv)m(ely)f(for)h(sym)m
(b)s(olic)f(mo)s(de.)664 708 y @beginspecial @setspecial
@endspecial 182 x FE(16.1)136 b(Sym)l(b)t(olic)45 b(In\014x)f(Op)t
(erators)664 1143 y FQ(There)22 b(are)h(three)g(binary)e(in\014x)g(op)s
(erators)i(in)e(REDUCE)i(in)m(tended)e(for)h(use)h(in)e(sym)m(b-)664
1256 y(olic)32 b(mo)s(de,)g(namely)g(.)46 b FJ(\(CONS\),)f(EQ)j(and)f
(MEMQ)p FQ(.)31 b(The)h(precedence)g(of)h(these)f(op)s(er-)664
1369 y(ators)f(w)m(as)g(giv)m(en)f(in)f(another)i(section.)664
1522 y @beginspecial @setspecial @endspecial 181 x FE(16.2)136
b(Sym)l(b)t(olic)45 b(Expressions)664 1956 y FQ(These)32
b(consist)f(of)h(scalar)g(v)-5 b(ariables)31 b(and)g(op)s(erators)h
(and)f(follo)m(w)g(the)i(normal)d(rules)664 2069 y(of)h(the)f(Lisp)f
(meta)i(language.)664 2218 y FD(Examples:)1013 2424 y
FH(x)1013 2524 y(car)42 b(u)h(.)h(reverse)c(v)1013 2624
y(simp)i(\(u+v^2\))664 2777 y @beginspecial @setspecial
@endspecial 181 x FE(16.3)136 b(Quoted)45 b(Expressions)664
3211 y FQ(Because)30 b(sym)m(b)s(olic)e(ev)-5 b(aluation)28
b(requires)g(that)h(eac)m(h)h(v)-5 b(ariable)28 b(or)h(expression)f
(has)h(a)664 3324 y(v)-5 b(alue,)27 b(it)e(is)g(necessary)h(to)h(add)e
(to)i(REDUCE)f(the)g(concept)h(of)f(a)g(quoted)g(expression)664
3437 y(b)m(y)39 b(analogy)h(with)e(the)i(Lisp)d FJ(QUOTE)h
FQ(function.)67 b(This)37 b(is)i(pro)m(vided)e(b)m(y)j(the)f(single)664
3550 y(quote)31 b(mark)f FJ(')p FQ(.)41 b(F)-8 b(or)31
b(example,)891 3779 y FJ('a)317 b FQ(represen)m(ts)30
b(the)g(Lisp)f(S-expression)g FJ(\(quote)46 b(a\))891
3892 y('\(a)h(b)h(c\))30 b FQ(represen)m(ts)g(the)g(Lisp)f
(S-expression)g FJ(\(quote)46 b(\(a)h(b)h(c\)\))664 4109
y FQ(Note,)40 b(ho)m(w)m(ev)m(er,)g(that)d(strings)f(are)h(constan)m
(ts)h(and)e(therefore)h(ev)-5 b(aluate)37 b(to)h(them-)664
4208 y(selv)m(es)33 b(in)e(sym)m(b)s(olic)g(mo)s(de.)48
b(Th)m(us,)32 b(to)i(prin)m(t)d(the)i(string)e FJ("A)48
b(String")p FQ(,)31 b(one)i(w)m(ould)664 4308 y(write)1013
4514 y FH(prin2)41 b("A)i(String";)664 4733 y FQ(Within)32
b(a)j(quoted)f(expression,)f(iden)m(ti\014er)f(syn)m(tax)j(rules)d(are)
i(those)h(of)f(REDUCE.)664 4846 y(Th)m(us)41 b FJ(\(A)48
b(!.)94 b(B\))42 b FQ(is)f(the)i(list)e(consisting)g(of)h(the)h(three)f
(elemen)m(ts)h FJ(A)p FQ(,)f FJ(.)p FQ(,)j(and)d FJ(B)p
FQ(,)664 4959 y(whereas)30 b FJ(\(A)48 b(.)f(B\))30 b
FQ(is)f(the)i(dotted)g(pair)e(of)h FJ(A)g FQ(and)g FJ(B)p
FQ(.)p eop
%%Page: 201 201
201 200 bop 241 299 a @beginspecial @setspecial @endspecial
FM(16.4.)72 b(LAMBD)m(A)32 b(EXPRESSIONS)1511 b FQ(201)241
464 y @beginspecial @setspecial @endspecial 91 x FE(16.4)135
b(Lam)l(b)t(da)45 b(Expressions)241 808 y FJ(LAMBDA)27
b FQ(expressions)g(pro)m(vide)g(the)i(means)f(for)h(constructing)f
(Lisp)f FJ(LAMBDA)f FQ(expres-)241 921 y(sions)j(in)g(sym)m(b)s(olic)g
(mo)s(de.)40 b(They)30 b(ma)m(y)h(not)g(b)s(e)e(used)h(in)f(algebraic)h
(mo)s(de.)241 1070 y(Syn)m(tax:)589 1276 y FH(<LAMBDA)41
b(expression>)e(::=)938 1376 y(LAMBDA)i(<varlist><termina)o(to)o(r><)o
(st)o(at)o(eme)o(nt)o(>)241 1582 y FQ(where)589 1788
y FH(<varlist>)f(::=)j(\(<variable>,...)o(,<v)o(ar)o(iab)o(le)o(>\))241
1994 y FQ(e.g.,)589 2199 y FH(lambda)f(\(x,y\);)f(car)h(x)h(.)g(cdr)g
(y;)241 2405 y FQ(is)29 b(equiv)-5 b(alen)m(t)30 b(to)h(the)g(Lisp)d
FJ(LAMBDA)h FQ(expression)589 2611 y FH(\(lambda)41 b(\(x)i(y\))g
(\(cons)e(\(car)h(x\))h(\(cdr)f(y\)\)\))241 2830 y FQ(The)30
b(paren)m(theses)g(ma)m(y)h(b)s(e)f(omitted)g(in)f(sp)s(ecifying)g(the)
h(v)-5 b(ariable)29 b(list)g(if)h(desired.)241 2993 y
FJ(LAMBDA)i FQ(expressions)g(ma)m(y)i(b)s(e)f(used)g(in)g(sym)m(b)s
(olic)f(mo)s(de)h(in)g(place)g(of)h(pre\014x)f(op)s(er-)241
3106 y(ators,)e(or)f(as)h(an)f(argumen)m(t)h(of)g(the)f(reserv)m(ed)h
(w)m(ord)f FJ(FUNCTION)p FQ(.)241 3255 y(In)24 b(those)i(cases)h(where)
d(a)i FJ(LAMBDA)e FQ(expression)g(is)g(used)h(to)h(in)m(tro)s(duce)e
(lo)s(cal)h(v)-5 b(ariables)241 3355 y(to)32 b(a)m(v)m(oid)f
(recomputation,)h(a)f FJ(WHERE)f FQ(statemen)m(t)j(can)e(also)g(b)s(e)g
(used.)42 b(F)-8 b(or)32 b(example,)241 3455 y(the)e(expression)589
3661 y FH(\(lambda)41 b(\(x,y\);)g(list\(car)g(x,cdr)g(x,car)h(y,cdr)f
(y\)\))764 3760 y(\(reverse)f(u,reverse)g(v\))241 3966
y FQ(can)30 b(also)h(b)s(e)e(written)502 4172 y FH({car)42
b(x,cdr)g(x,car)f(y,cdr)h(y})h(where)e(x=reverse)f(u,y=reverse)f(v)241
4391 y FQ(Where)26 b(p)s(ossible,)e FJ(WHERE)h FQ(syn)m(tax)h(is)f
(preferred)f(to)j FJ(LAMBDA)d FQ(syn)m(tax,)j(since)e(it)h(is)e(more)
241 4504 y(natural.)241 4641 y @beginspecial @setspecial
@endspecial eop
%%Page: 202 202
202 201 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(202)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)664
555 y FE(16.5)136 b(Sym)l(b)t(olic)45 b(Assignmen)l(t)g(Statemen)l(ts)
664 808 y FQ(In)32 b(sym)m(b)s(olic)e(mo)s(de,)j(if)e(the)h(left)g
(side)f(of)h(an)g(assignmen)m(t)g(statemen)m(t)i(is)d(a)i(v)-5
b(ariable,)664 921 y(a)28 b FJ(SETQ)e FQ(of)i(the)f(righ)m(t-hand)f
(side)g(to)j(that)e(v)-5 b(ariable)27 b(o)s(ccurs.)39
b(If)27 b(the)g(left-hand)g(side)f(is)664 1034 y(an)f(expression,)h(it)
f(m)m(ust)g(b)s(e)g(of)g(the)h(form)f(of)g(an)g(arra)m(y)h(elemen)m(t,)
h(otherwise)e(an)g(error)664 1147 y(will)g(result.)39
b(F)-8 b(or)28 b(example,)g FJ(x:=y)f FQ(translates)g(in)m(to)h
FJ(\(SETQ)46 b(X)i(Y\))26 b FQ(whereas)i FJ(a\(3\))47
b(:=)664 1260 y(3)31 b FQ(will)d(b)s(e)i(v)-5 b(alid)29
b(if)h FJ(A)h FQ(has)f(b)s(een)g(previously)f(declared)h(a)i(single)d
(dimensioned)f(arra)m(y)664 1372 y(of)j(at)g(least)f(four)g(elemen)m
(ts.)664 1509 y @beginspecial @setspecial @endspecial
200 x FE(16.6)136 b(F)l(OR)45 b(EA)l(CH)g(Statemen)l(t)664
1961 y FQ(The)26 b FJ(FOR)47 b(EACH)25 b FQ(form)h(of)h(the)g
FJ(FOR)e FQ(statemen)m(t,)30 b(designed)25 b(for)h(iteration)g(do)m(wn)
g(a)h(list,)664 2074 y(is)j(more)g(general)g(in)g(sym)m(b)s(olic)e(mo)s
(de.)41 b(Its)30 b(syn)m(tax)h(is:)1013 2305 y FH(FOR)42
b(EACH)g(ID:identifier)c({IN|ON})j(LST:list)1187 2405
y({DO|COLLECT|JOIN|)o(PR)o(ODU)o(CT)o(|S)o(UM})c(EXPRN:S-expr)664
2649 y FQ(As)27 b(in)e(algebraic)h(mo)s(de,)i(if)d(the)i(k)m(eyw)m(ord)
g FJ(IN)f FQ(is)g(used,)g(iteration)h(is)e(on)i(eac)m(h)g(elemen)m(t)
664 2762 y(of)g(the)g(list.)38 b(With)27 b FJ(ON)p FQ(,)f(iteration)h
(is)f(on)g(the)h(whole)f(list)g(remaining)f(at)i(eac)m(h)h(p)s(oin)m(t)
e(in)664 2875 y(the)35 b(iteration.)51 b(As)34 b(a)h(result,)f(w)m(e)h
(ha)m(v)m(e)g(the)g(follo)m(wing)d(equiv)-5 b(alence)34
b(b)s(et)m(w)m(een)h(eac)m(h)664 2988 y(form)30 b(of)h
FJ(FOR)47 b(EACH)29 b FQ(and)g(the)i(v)-5 b(arious)29
b(mapping)g(functions)g(in)g(Lisp:)p 1506 3123 1306 4
v 1504 3236 4 113 v 1699 3236 V 1751 3202 a FJ(DO)194
b(COLLECT)g(JOIN)p 2810 3236 V 1506 3239 1306 4 v 1504
3352 4 113 v 1556 3318 a(IN)p 1699 3352 V 99 w(MAPC)146
b(MAPCAR)98 b(MAPCAN)p 2810 3352 V 1504 3465 V 1556 3431
a(ON)p 1699 3465 V 99 w(MAP)146 b(MAPLIST)98 b(MAPCON)p
2810 3465 V 1506 3469 1306 4 v 664 3646 a FD(Example:)42
b FQ(T)-8 b(o)30 b(list)f(eac)m(h)j(elemen)m(t)f(of)f(the)h(list)e
FJ(\(a)47 b(b)h(c\))p FQ(:)1013 3852 y FH(for)42 b(each)g(x)h(in)g
('\(a)f(b)i(c\))e(collect)f(list)h(x;)664 4001 y @beginspecial
@setspecial @endspecial 187 x FE(16.7)136 b(Sym)l(b)t(olic)45
b(Pro)t(cedures)664 4428 y FQ(All)20 b(the)i(functions)e(describ)s(ed)f
(in)h(the)h(Standard)f(Lisp)g(Rep)s(ort)h(are)h(a)m(v)-5
b(ailable)21 b(to)h(users)664 4528 y(in)38 b(sym)m(b)s(olic)g(mo)s(de.)
67 b(Additional)37 b(functions)h(ma)m(y)i(also)f(b)s(e)g(de\014ned)f
(as)i(sym)m(b)s(olic)664 4627 y(pro)s(cedures.)55 b(F)-8
b(or)36 b(example,)g(to)h(de\014ne)d(the)i(Lisp)e(function)g
FJ(ASSOC)p FQ(,)g(the)h(follo)m(wing)664 4727 y(could)30
b(b)s(e)f(used:)1013 4933 y FH(symbolic)40 b(procedure)g(assoc\(u,v\);)
p eop
%%Page: 203 203
203 202 bop 241 299 a @beginspecial @setspecial @endspecial
FM(16.8.)72 b(ST)-8 b(AND)m(ARD)32 b(LISP)d(EQUIV)-10
b(ALENT)30 b(OF)g(REDUCE)h(INPUT)291 b FQ(203)720 555
y FH(if)43 b(null)f(v)h(then)f(nil)764 655 y(else)g(if)g(u)i(=)f(caar)f
(v)h(then)f(car)g(v)764 754 y(else)g(assoc\(u,)e(cdr)i(v\);)241
960 y FQ(If)k(the)g(default)g(mo)s(de)g(w)m(ere)g(sym)m(b)s(olic,)j
(then)d FJ(SYMBOLIC)e FQ(could)i(b)s(e)f(omitted)i(in)241
1060 y(the)h(ab)s(o)m(v)m(e)h(de\014nition.)90 b FJ(MACRO)p
FQ(s)46 b(ma)m(y)j(b)s(e)e(de\014ned)f(b)m(y)i(pre\014xing)e(the)i(k)m
(eyw)m(ord)241 1160 y FJ(PROCEDURE)29 b FQ(b)m(y)i(the)g(w)m(ord)g
FJ(MACRO)p FQ(.)g(\(In)g(fact,)h(ordinary)e(functions)g(ma)m(y)i(b)s(e)
f(de\014ned)241 1259 y(with)j(the)h(k)m(eyw)m(ord)h FJ(EXPR)69
b FQ(pre\014xing)33 b FJ(PROCEDURE)g FQ(as)i(w)m(as)h(used)e(in)g(the)i
(Standard)241 1359 y(Lisp)29 b(Rep)s(ort.\))40 b(F)-8
b(or)31 b(example,)g(w)m(e)g(could)e(de\014ne)h(a)g FJ(MACRO)47
b(CONSCONS)28 b FQ(b)m(y)589 1565 y FH(symbolic)41 b(macro)g(procedure)
f(conscons)g(l;)720 1664 y(expand\(cdr)g(l,'cons\);)241
1884 y FQ(Another)27 b(form)g(of)h(macro,)g(the)g FJ(SMACRO)e
FQ(is)g(also)h(a)m(v)-5 b(ailable.)40 b(These)27 b(are)h(describ)s(ed)d
(in)241 1996 y(the)32 b(Standard)f(Lisp)f(Rep)s(ort.)46
b(The)31 b(Rep)s(ort)h(also)g(de\014nes)f(a)i(function)d(t)m(yp)s(e)j
FJ(FEXPR)p FQ(.)241 2109 y(Ho)m(w)m(ev)m(er,)e(its)d(use)g(is)f
(discouraged)h(since)g(it)g(is)f(hard)h(to)h(implemen)m(t)e(e\016cien)m
(tly)-8 b(,)29 b(and)241 2222 y(most)39 b(uses)g(can)h(b)s(e)f
(replaced)f(b)m(y)i(macros.)68 b(A)m(t)40 b(the)f(presen)m(t)h(time,)h
(there)f(are)g(no)241 2335 y FJ(FEXPR)p FQ(s)29 b(in)g(the)h(core)h
(REDUCE)g(system.)241 2490 y @beginspecial @setspecial
@endspecial 181 x FE(16.8)135 b(Standard)45 b(Lisp)g(Equiv)-7
b(alen)l(t)46 b(of)f(Reduce)g(Input)241 2924 y FQ(A)35
b(user)g(can)g(obtain)g(the)g(Standard)g(Lisp)e(equiv)-5
b(alen)m(t)35 b(of)g(his)f(REDUCE)h(input)f(b)m(y)241
3037 y(turning)40 b(on)h(the)h(switc)m(h)g FJ(DEFN)e
FQ(\(for)i(de\014nition\).)73 b(The)42 b(system)f(then)h(prin)m(ts)e
(the)241 3150 y(Lisp)31 b(translation)g(of)i(his)f(input)e(but)i(do)s
(es)h(not)f(ev)-5 b(aluate)34 b(it.)47 b(Normal)32 b(op)s(eration)g(is)
241 3263 y(resumed)d(when)g FJ(DEFN)h FQ(is)f(turned)g(o\013.)241
3400 y @beginspecial @setspecial @endspecial 199 x FE(16.9)135
b(Comm)l(unicating)47 b(with)e(Algebraic)g(Mo)t(de)241
3852 y FQ(One)29 b(of)h(the)g(principal)d(motiv)-5 b(ations)29
b(for)h(a)g(user)g(of)g(the)g(algebraic)f(facilities)f(of)i(RE-)241
3965 y(DUCE)i(to)i(learn)e(ab)s(out)g(sym)m(b)s(olic)f(mo)s(de)h(is)g
(that)h(it)f(giv)m(es)h(one)g(access)h(to)f(a)g(wider)241
4078 y(range)f(of)h(tec)m(hniques)f(than)g(is)f(p)s(ossible)f(in)h
(algebraic)h(mo)s(de)g(alone.)46 b(F)-8 b(or)34 b(example,)241
4191 y(if)25 b(a)h(user)g(wishes)f(to)h(use)g(parts)g(of)h(the)f
(system)g(de\014ned)f(in)g(the)h(basic)g(system)g(source)241
4304 y(co)s(de,)31 b(or)g(re\014ne)f(their)g(algebraic)g(co)s(de)h
(de\014nitions)e(to)i(mak)m(e)h(them)f(more)g(e\016cien)m(t,)241
4416 y(then)39 b(it)g(is)f(necessary)i(to)g(understand)d(the)j(source)g
(language)f(in)f(fairly)g(complete)241 4529 y(detail.)53
b(Moreo)m(v)m(er,)39 b(it)34 b(is)g(also)h(necessary)g(to)h(kno)m(w)f
(a)g(little)f(more)h(ab)s(out)f(the)i(w)m(a)m(y)241 4642
y(REDUCE)43 b(op)s(erates)g(in)m(ternally)-8 b(.)77 b(Basically)-8
b(,)46 b(REDUCE)d(considers)f(expressions)241 4755 y(in)36
b(t)m(w)m(o)j(forms:)55 b(pre\014x)36 b(form,)j(whic)m(h)e(follo)m(w)g
(the)g(normal)g(Lisp)f(rules)g(of)i(function)241 4868
y(comp)s(osition,)25 b(and)g(so-called)g(canonical)g(form,)h(whic)m(h)e
(uses)g(a)i(completely)f(di\013eren)m(t)p eop
%%Page: 204 204
204 203 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(204)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)664
555 y FQ(syn)m(tax.)664 718 y(Once)c(these)g(details)f(are)i(understo)s
(o)s(d,)e(the)h(most)g(critical)f(problem)f(faced)j(b)m(y)e(a)i(user)
664 831 y(is)j(ho)m(w)g(to)h(mak)m(e)h(expressions)d(and)g(pro)s
(cedures)g(comm)m(unicate)i(b)s(et)m(w)m(een)h(sym)m(b)s(olic)664
944 y(and)c(algebraic)g(mo)s(de.)39 b(The)28 b(purp)s(ose)e(of)i(this)f
(section)i(is)e(to)i(teac)m(h)g(a)g(user)e(the)h(basic)664
1057 y(principles)f(for)j(this.)664 1219 y(If)e(one)h(w)m(an)m(ts)g(to)
g(ev)-5 b(aluate)29 b(an)f(expression)f(in)g(algebraic)h(mo)s(de,)h
(and)e(then)h(use)g(that)664 1332 y(expression)22 b(in)f(sym)m(b)s
(olic)g(mo)s(de)h(calculations,)i(or)f(vice)f(v)m(ersa,)k(the)d
(easiest)g(w)m(a)m(y)h(to)f(do)664 1445 y(this)g(is)g(to)i(assign)e(a)i
(v)-5 b(ariable)23 b(to)i(that)f(expression)f(whose)h(v)-5
b(alue)24 b(is)f(easily)g(obtainable)664 1558 y(in)35
b(b)s(oth)g(mo)s(des.)57 b(T)-8 b(o)37 b(facilitate)e(this,)i(a)f
(declaration)g FJ(SHARE)e FQ(is)h(a)m(v)-5 b(ailable.)57
b FJ(SHARE)664 1671 y FQ(tak)m(es)35 b(a)e(list)f(of)h(iden)m
(ti\014ers)e(as)i(argumen)m(t,)h(and)f(marks)f(these)i(v)-5
b(ariables)31 b(as)i(ha)m(ving)664 1784 y(recognizable)h(v)-5
b(alues)34 b(in)e(b)s(oth)h(mo)s(des.)52 b(The)33 b(declaration)h(ma)m
(y)g(b)s(e)g(used)f(in)f(either)664 1897 y(mo)s(de.)664
2046 y(E.g.,)1013 2252 y FH(share)41 b(x,y;)664 2471
y FQ(sa)m(ys)31 b(that)g FJ(X)f FQ(and)g FJ(Y)g FQ(will)e(receiv)m(e)j
(v)-5 b(alues)30 b(to)h(b)s(e)e(used)h(in)f(b)s(oth)h(mo)s(des.)664
2634 y(If)42 b(a)h FJ(SHARE)e FQ(declaration)h(is)g(made)h(for)f(a)h(v)
-5 b(ariable)41 b(with)g(a)i(previously)e(assigned)664
2747 y(algebraic)30 b(v)-5 b(alue,)30 b(that)h(v)-5 b(alue)30
b(is)g(also)g(made)g(a)m(v)-5 b(ailable)30 b(in)f(sym)m(b)s(olic)g(mo)s
(de.)664 2892 y @beginspecial @setspecial @endspecial
148 x FR(16.9.1)113 b(P)m(assing)37 b(Algebraic)f(Mo)s(de)i(V)-9
b(alues)37 b(to)g(Sym)m(b)s(olic)e(Mo)s(de)664 3248 y
FQ(If)24 b(one)h(wishes)e(to)i(w)m(ork)g(with)e(parts)h(of)h(an)g
(algebraic)f(mo)s(de)g(expression)f(in)h(sym)m(b)s(olic)664
3348 y(mo)s(de,)31 b(one)g(simply)d(mak)m(es)j(an)g(assignmen)m(t)f(of)
h(a)g(shared)f(v)-5 b(ariable)29 b(to)j(the)f(relev)-5
b(an)m(t)664 3448 y(expression)44 b(in)f(algebraic)i(mo)s(de.)84
b(F)-8 b(or)45 b(example,)j(if)c(one)h(wishes)f(to)h(w)m(ork)g(with)664
3547 y FJ(\(a+b\)^2)p FQ(,)29 b(one)h(w)m(ould)g(sa)m(y)-8
b(,)31 b(in)e(algebraic)i(mo)s(de:)1013 3753 y FH(x)43
b(:=)g(\(a+b\)^2;)664 3959 y FQ(assuming)23 b(that)h
FJ(X)g FQ(w)m(as)g(declared)f(shared)g(as)h(ab)s(o)m(v)m(e.)40
b(If)24 b(w)m(e)g(no)m(w)g(c)m(hange)h(to)g(sym)m(b)s(olic)664
4059 y(mo)s(de)30 b(and)g(sa)m(y)1013 4265 y FH(x;)664
4470 y FQ(its)g(v)-5 b(alue)30 b(will)e(b)s(e)h(prin)m(ted)g(as)i(a)g
(pre\014x)e(form)h(with)f(the)h(syn)m(tax:)1013 4676
y FH(\(*SQ)42 b(<standard)e(quotient>)g(T\))664 4896
y FQ(This)c(particular)g(format)h(re\015ects)h(the)g(fact)g(that)g(the)
g(algebraic)f(mo)s(de)g(pro)s(cessor)p eop
%%Page: 205 205
205 204 bop 241 299 a @beginspecial @setspecial @endspecial
FM(16.9.)72 b(COMMUNICA)-8 b(TING)31 b(WITH)g(ALGEBRAIC)f(MODE)566
b FQ(205)241 555 y(curren)m(tly)42 b(lik)m(es)f(to)j(transfer)e
(pre\014x)g(forms)g(from)g(command)h(to)g(command,)j(but)241
668 y(do)s(esn't)29 b(lik)m(e)g(to)h(recon)m(v)m(ert)h(standard)e
(forms)g(\(whic)m(h)f(represen)m(t)i(p)s(olynomials\))d(and)241
781 y(standard)f(quotien)m(ts)g(bac)m(k)i(to)f(a)g(true)g(Lisp)e
(pre\014x)g(form)i(for)f(the)h(expression)e(\(whic)m(h)241
894 y(w)m(ould)k(result)h(in)f(excessiv)m(e)j(computation\).)42
b(So)30 b FJ(*SQ)g FQ(is)g(used)g(to)h(tell)f(the)h(algebraic)241
1007 y(pro)s(cessor)39 b(that)h(it)f(is)g(dealing)f(with)g(a)i
(pre\014x)e(form)h(whic)m(h)g(is)f(really)g(a)i(standard)241
1120 y(quotien)m(t)24 b(and)f(the)h(second)g(argumen)m(t)h(\()p
FJ(T)f FQ(or)g FJ(NIL)p FQ(\))f(tells)g(it)g(whether)h(it)f(needs)h
(further)241 1233 y(pro)s(cessing)29 b(\(essen)m(tially)-8
b(,)30 b(an)h FD(alr)-5 b(e)g(ady)35 b(simpli\014e)-5
b(d)41 b FQ(\015ag\).)241 1382 y(So)25 b(to)i(get)f(the)g(true)g
(standard)f(quotien)m(t)g(form)h(in)e(sym)m(b)s(olic)g(mo)s(de,)i(one)g
(needs)g FJ(CADR)241 1482 y FQ(of)k(the)h(v)-5 b(ariable.)39
b(E.g.,)589 1688 y FH(z)44 b(:=)e(cadr)g(x;)241 1907
y FQ(w)m(ould)29 b(store)i(in)e FJ(Z)h FQ(the)h(standard)e(quotien)m(t)
i(form)f(for)g FJ(\(a+b\)^2)p FQ(.)241 2070 y(Once)h(y)m(ou)g(ha)m(v)m
(e)i(this)d(expression,)g(y)m(ou)h(can)h(no)m(w)f(manipulate)e(it)i(as)
g(y)m(ou)h(wish.)41 b(T)-8 b(o)241 2182 y(facilitate)31
b(this,)h(a)g(standard)f(set)i(of)f(selectors)g(and)f(constructors)h
(are)h(a)m(v)-5 b(ailable)31 b(for)241 2295 y(getting)g(at)g(parts)f
(of)h(the)f(form.)40 b(Those)31 b(presen)m(tly)e(de\014ned)g(are)i(as)g
(follo)m(ws:)p eop
%%Page: 206 206
206 205 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(206)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)1744
555 y Ft(REDUCE)j(Selectors)1233 732 y FJ(DENR)99 b FQ(denominator)29
b(of)i(standard)e(quotien)m(t)1233 901 y FJ(LC)195 b
FQ(leading)29 b(co)s(e\016cien)m(t)i(of)g(p)s(olynomial)1233
1071 y FJ(LDEG)99 b FQ(leading)29 b(degree)i(of)g(p)s(olynomial)1233
1240 y FJ(LPOW)99 b FQ(leading)29 b(p)s(o)m(w)m(er)h(of)h(p)s
(olynomial)1233 1409 y FJ(LT)195 b FQ(leading)29 b(term)h(of)h(p)s
(olynomial)1233 1579 y FJ(MVAR)99 b FQ(main)29 b(v)-5
b(ariable)29 b(of)i(p)s(olynomial)1233 1748 y FJ(NUMR)99
b FQ(n)m(umerator)30 b(\(of)h(standard)f(quotien)m(t\))1233
1917 y FJ(PDEG)99 b FQ(degree)31 b(of)f(a)h(p)s(o)m(w)m(er)1233
2087 y FJ(RED)147 b FQ(reductum)29 b(of)i(p)s(olynomial)1233
2256 y FJ(TC)195 b FQ(co)s(e\016cien)m(t)31 b(of)g(a)f(term)1233
2426 y FJ(TDEG)99 b FQ(degree)31 b(of)f(a)h(term)1233
2595 y FJ(TPOW)99 b FQ(p)s(o)m(w)m(er)30 b(of)h(a)g(term)1657
2936 y Ft(REDUCE)i(Constructors)1011 3113 y FJ(.+)99
b FQ(add)30 b(a)h(term)f(to)h(a)g(p)s(olynomial)1011
3282 y FJ(./)99 b FQ(divide)28 b(\(t)m(w)m(o)k(p)s(olynomials)c(to)j
(get)h(quotien)m(t\))1011 3452 y FJ(.*)99 b FQ(m)m(ultiply)28
b(p)s(o)m(w)m(er)i(b)m(y)g(co)s(e\016cien)m(t)i(to)f(pro)s(duce)e(term)
1011 3621 y FJ(.^)99 b FQ(raise)30 b(a)h(v)-5 b(ariable)29
b(to)i(a)g(p)s(o)m(w)m(er)664 3874 y(F)-8 b(or)43 b(example,)i(to)e
(\014nd)d(the)j(n)m(umerator)f(of)g(the)g(standard)g(quotien)m(t)g(ab)s
(o)m(v)m(e,)47 b(one)664 3974 y(could)30 b(sa)m(y:)1013
4180 y FH(numr)42 b(z;)664 4386 y FQ(or)31 b(to)g(\014nd)d(the)j
(leading)e(term)i(of)f(the)h(n)m(umerator:)1013 4592
y FH(lt)43 b(numr)f(z;)664 4811 y FQ(Con)m(v)m(ersion)28
b(b)s(et)m(w)m(een)h(v)-5 b(arious)28 b(data)h(structures)f(is)f
(facilitated)h(b)m(y)g(the)h(use)f(of)h(a)f(set)664 4924
y(of)h(functions)e(de\014ned)g(for)h(this)f(purp)s(ose.)38
b(Those)29 b(curren)m(tly)e(implemen)m(ted)g(include:)p
eop
%%Page: 207 207
207 206 bop 241 299 a @beginspecial @setspecial @endspecial
FM(16.9.)72 b(COMMUNICA)-8 b(TING)31 b(WITH)g(ALGEBRAIC)f(MODE)566
b FQ(207)291 582 y FJ(!*A2F)98 b FQ(con)m(v)m(ert)32
b(an)e(algebraic)g(expression)f(to)i(a)g(standard)f(form.)40
b(If)30 b(result)629 695 y(is)f(rational,)h(an)g(error)g(results;)291
865 y FJ(!*A2K)98 b FQ(con)m(v)m(erts)41 b(an)f(algebraic)f(expression)
g(to)i(a)f(k)m(ernel.)69 b(If)39 b(this)g(is)g(not)629
978 y(p)s(ossible,)28 b(an)i(error)g(results;)291 1147
y FJ(!*F2A)98 b FQ(con)m(v)m(erts)32 b(a)e(standard)g(form)g(to)h(an)f
(algebraic)g(expression;)291 1316 y FJ(!*F2Q)98 b FQ(con)m(v)m(ert)32
b(a)f(standard)e(form)h(to)h(a)g(standard)e(quotien)m(t;)291
1486 y FJ(!*K2F)98 b FQ(con)m(v)m(ert)32 b(a)f(k)m(ernel)e(to)j(a)e
(standard)g(form;)291 1655 y FJ(!*K2Q)98 b FQ(con)m(v)m(ert)32
b(a)f(k)m(ernel)e(to)j(a)e(standard)g(quotien)m(t;)291
1824 y FJ(!*P2F)98 b FQ(con)m(v)m(ert)32 b(a)f(standard)e(p)s(o)m(w)m
(er)i(to)g(a)f(standard)g(form;)291 1994 y FJ(!*P2Q)98
b FQ(con)m(v)m(ert)32 b(a)f(standard)e(p)s(o)m(w)m(er)i(to)g(a)f
(standard)g(quotien)m(t;)291 2163 y FJ(!*Q2F)98 b FQ(con)m(v)m(ert)34
b(a)f(standard)f(quotien)m(t)h(to)g(a)g(standard)f(form.)47
b(If)32 b(the)h(quo-)629 2276 y(tien)m(t)d(denominator)g(is)f(not)i(1,)
g(an)f(error)g(results;)291 2445 y FJ(!*Q2K)98 b FQ(con)m(v)m(ert)24
b(a)e(standard)g(quotien)m(t)h(to)g(a)f(k)m(ernel.)38
b(If)22 b(this)f(is)g(not)i(p)s(ossible,)629 2558 y(an)30
b(error)g(results;)291 2728 y FJ(!*T2F)98 b FQ(con)m(v)m(ert)32
b(a)f(standard)e(term)i(to)g(a)f(standard)g(form)291
2897 y FJ(!*T2Q)98 b FQ(con)m(v)m(ert)32 b(a)f(standard)e(term)i(to)g
(a)f(standard)g(quotien)m(t.)241 3073 y @beginspecial
@setspecial @endspecial 127 x FR(16.9.2)112 b(P)m(assing)37
b(Sym)m(b)s(olic)f(Mo)s(de)i(V)-9 b(alues)37 b(to)g(Algebraic)f(Mo)s
(de)241 3422 y FQ(In)29 b(order)g(to)i(pass)e(the)h(v)-5
b(alue)30 b(of)g(a)g(shared)f(v)-5 b(ariable)29 b(from)g(sym)m(b)s
(olic)g(mo)s(de)g(to)i(alge-)241 3534 y(braic)19 b(mo)s(de,)k(the)d
(only)g(thing)f(to)i(do)g(is)e(mak)m(e)j(sure)d(that)i(the)g(v)-5
b(alue)20 b(in)f(sym)m(b)s(olic)g(mo)s(de)241 3647 y(is)26
b(a)i(pre\014x)e(expression.)39 b(E.g.,)29 b(one)e(uses)g
FJ(\(expt)46 b(\(plus)h(a)g(b\))g(2\))27 b FQ(for)g FJ(\(a+b\)^2)p
FQ(,)f(or)241 3760 y(the)j(format)g(\()p FJ(*sq)47 b(<standard)f
(quotient>)f(t)p FQ(\))29 b(as)g(describ)s(ed)e(ab)s(o)m(v)m(e.)41
b(Ho)m(w)m(ev)m(er,)32 b(if)241 3873 y(y)m(ou)26 b(ha)m(v)m(e)i(b)s
(een)d(w)m(orking)h(with)f(parts)h(of)g(a)h(standard)e(form)h(they)g
(will)e(probably)g(not)241 3986 y(b)s(e)30 b(in)f(this)g(form.)40
b(In)30 b(that)h(case,)g(y)m(ou)g(can)g(do)f(the)h(follo)m(wing:)241
4081 y @beginspecial @setspecial @endspecial 352 4211
a(1.)46 b(If)40 b(it)f(is)h(a)g(standard)f(quotien)m(t,)44
b(call)39 b FJ(PREPSQ)f FQ(on)i(it.)70 b(This)38 b(tak)m(es)k(a)f
(stand-)468 4324 y(ard)36 b(quotien)m(t)h(as)g(argumen)m(t,)i(and)d
(returns)f(a)j(pre\014x)d(expression.)58 b(Alterna-)468
4437 y(tiv)m(ely)-8 b(,)48 b(y)m(ou)d(can)f(call)g FJ(MK!*SQ)e
FQ(on)i(it,)k(whic)m(h)43 b(returns)g(a)h(pre\014x)f(form)h(lik)m(e)468
4550 y(\()p FJ(*SQ)j(<standard)f(quotient>)f(T\))30 b
FQ(and)g(a)m(v)m(oids)h(translation)e(of)i(the)f(expres-)468
4663 y(sion)f(in)m(to)i(a)g(true)f(pre\014x)f(form.)241
4716 y @beginspecial @setspecial @endspecial 352 4846
a(2.)46 b(If)24 b(it)g(is)f(a)h(standard)g(form,)h(call)e
FJ(PREPF)g FQ(on)h(it.)38 b(This)23 b(tak)m(es)j(a)e(standard)g(form)f
(as)468 4959 y(argumen)m(t,)29 b(and)e(returns)f(the)i(equiv)-5
b(alen)m(t)27 b(pre\014x)g(expression.)38 b(Alternativ)m(ely)-8
b(,)p eop
%%Page: 208 208
208 207 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(208)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)891
555 y FQ(y)m(ou)h(can)g(con)m(v)m(ert)h(it)e(to)h(a)g(standard)e
(quotien)m(t)i(and)e(then)i(call)e FJ(MK!*SQ)p FQ(.)664
610 y @beginspecial @setspecial @endspecial 775 743 a(3.)46
b(If)e(it)f(is)f(a)i(part)f(of)h(a)g(standard)f(form,)j(y)m(ou)e(m)m
(ust)f(usually)f(\014rst)g(build)f(up)891 856 y(a)j(standard)e(form)g
(out)h(of)g(it,)j(and)d(then)f(go)i(to)g(step)e(2.)79
b(The)43 b(con)m(v)m(ersion)891 969 y(functions)24 b(describ)s(ed)g
(earlier)g(ma)m(y)i(b)s(e)f(used)f(for)h(this)f(purp)s(ose.)38
b(F)-8 b(or)26 b(example,)664 1044 y @beginspecial @setspecial
@endspecial 930 1156 a(\(a\))46 b(If)26 b FJ(Z)g FQ(is)f(an)h
(expression)f(whic)m(h)g(is)g(a)i(term,)g FJ(!*T2F)46
b(Z)26 b FQ(is)f(a)i(standard)e(form.)664 1196 y @beginspecial
@setspecial @endspecial 925 1302 a(\(b\))45 b(If)30 b
FJ(Z)g FQ(is)g(a)h(standard)e(p)s(o)m(w)m(er,)i FJ(!*P2F)46
b(Z)30 b FQ(is)g(a)g(standard)g(form.)664 1342 y @beginspecial
@setspecial @endspecial 935 1449 a(\(c\))46 b(If)30 b
FJ(Z)g FQ(is)g(a)h(v)-5 b(ariable,)29 b(y)m(ou)i(can)f(pass)g(it)g
(direct)g(to)h(algebraic)f(mo)s(de.)664 1673 y(F)-8 b(or)34
b(example,)g(to)f(pass)g(the)g(leading)f(term)h(of)h
FJ(\(a+b\)^2)d FQ(bac)m(k)i(to)h(algebraic)f(mo)s(de,)664
1772 y(one)e(could)e(sa)m(y:)1013 1978 y FH(y:=)42 b(mk!*sq)f(!*t2q)h
(lt)h(numr)f(z;)664 2197 y FQ(where)28 b FJ(Y)f FQ(has)h(b)s(een)g
(declared)f(shared)g(as)i(ab)s(o)m(v)m(e.)41 b(If)27
b(y)m(ou)i(no)m(w)f(go)h(bac)m(k)f(to)h(algebraic)664
2310 y(mo)s(de,)h(y)m(ou)h(can)g(w)m(ork)f(with)f FJ(Y)h
FQ(in)f(the)i(usual)e(w)m(a)m(y)-8 b(.)664 2455 y @beginspecial
@setspecial @endspecial 149 x FR(16.9.3)113 b(Complete)36
b(Example)664 2825 y FQ(The)24 b(follo)m(wing)g(is)f(the)i(complete)h
(co)s(de)f(for)f(doing)g(the)h(ab)s(o)m(v)m(e)h(steps.)39
b(The)24 b(end)g(result)664 2938 y(will)k(b)s(e)i(that)h(the)f(square)g
(of)h(the)f(leading)g(term)g(of)g(\()p FL(a)21 b FQ(+)f
FL(b)p FQ(\))2762 2905 y FO(2)2832 2938 y FQ(is)30 b(calculated.)664
3169 y FH(share)42 b(x,y;)695 b(\045)44 b(declare)c(X)j(and)g(Y)g(as)g
(shared)664 3268 y(x)g(:=)g(\(a+b\)^2;)563 b(\045)44
b(store)d(\(a+b\)^2)g(in)i(X)664 3368 y(symbolic;)737
b(\045)44 b(transfer)c(to)j(symbolic)d(mode)664 3468
y(z)j(:=)g(cadr)f(x;)609 b(\045)44 b(store)d(a)i(true)f(standard)e
(quotient)h(in)i(Z)664 3567 y(lt)g(numr)f(z;)696 b(\045)44
b(print)d(the)h(leading)f(term)h(of)h(the)1797 3667 y(\045)h(numerator)
39 b(of)k(Z)664 3766 y(y)g(:=)g(mk!*sq)e(!*t2q)h(numr)g(z;)g(\045)i
(store)d(the)h(prefix)g(form)f(of)i(this)1797 3866 y(\045)h(leading)c
(term)i(in)h(Y)664 3966 y(algebraic;)693 b(\045)44 b(return)d(to)h
(algebraic)e(mode)664 4065 y(y^2;)957 b(\045)44 b(evaluate)c(square)h
(of)i(the)f(leading)f(term)1797 4165 y(\045)j(of)e(\(a+b\)^2)664
4299 y @beginspecial @setspecial @endspecial 159 x FR(16.9.4)113
b(De\014ning)37 b(Pro)s(cedures)h(for)f(In)m(termo)s(de)g(Comm)m
(unication)664 4666 y FQ(If)28 b(one)i(wishes)d(to)i(de\014ne)f(a)h
(pro)s(cedure)f(in)f(sym)m(b)s(olic)h(mo)s(de)g(for)g(use)h(as)g(an)g
(op)s(erator)664 4766 y(in)e(algebraic)g(mo)s(de,)h(it)g(is)e
(necessary)j(to)f(declare)g(this)f(fact)h(to)h(the)f(system)g(b)m(y)f
(using)664 4866 y(the)k(declaration)f FJ(OPERATOR)e FQ(in)h(sym)m(b)s
(olic)g(mo)s(de.)40 b(Th)m(us)p eop
%%Page: 209 209
209 208 bop 241 299 a @beginspecial @setspecial @endspecial
FM(16.10.)73 b(RLISP)29 b('88)2135 b FQ(209)589 555 y
FH(symbolic)41 b(operator)f(leadterm;)241 774 y FQ(w)m(ould)32
b(declare)g(the)i(pro)s(cedure)d FJ(LEADTERM)g FQ(as)i(an)g(algebraic)g
(op)s(erator.)49 b(This)31 b(dec-)241 887 y(laration)g
FD(must)41 b FQ(b)s(e)32 b(made)g(in)f(sym)m(b)s(olic)f(mo)s(de)i(as)g
(the)h(e\013ect)g(in)e(algebraic)h(mo)s(de)f(is)241 1000
y(di\013eren)m(t.)40 b(The)30 b(v)-5 b(alue)30 b(of)g(suc)m(h)g(a)h
(pro)s(cedure)e(m)m(ust)h(b)s(e)g(a)h(pre\014x)e(form.)241
1163 y(The)40 b(algebraic)g(pro)s(cessor)g(will)e(pass)i(argumen)m(ts)h
(to)h(suc)m(h)e(pro)s(cedures)f(in)h(pre\014x)241 1276
y(form.)49 b(Therefore)34 b(if)e(y)m(ou)i(w)m(an)m(t)g(to)h(w)m(ork)e
(with)f(the)i(argumen)m(ts)g(as)g(standard)e(quo-)241
1389 y(tien)m(ts)22 b(y)m(ou)g(m)m(ust)g(\014rst)f(con)m(v)m(ert)i
(them)f(to)h(that)f(form)f(b)m(y)h(using)e(the)i(function)f
FJ(SIMP!*)p FQ(.)241 1502 y(This)38 b(function)g(tak)m(es)k(a)e
(pre\014x)f(form)g(as)h(argumen)m(t)g(and)g(returns)e(the)i(ev)-5
b(aluated)241 1615 y(standard)29 b(quotien)m(t.)241 1764
y(F)-8 b(or)37 b(example,)h(if)d(y)m(ou)i(w)m(an)m(t)g(to)g(de\014ne)f
(a)h(pro)s(cedure)e FJ(LEADTERM)f FQ(whic)m(h)i(giv)m(es)g(the)241
1864 y(leading)29 b(term)h(of)h(an)f(algebraic)g(expression,)g(one)g
(could)g(do)g(this)f(as)i(follo)m(ws:)241 2070 y FH(symbolic)40
b(operator)g(leadterm;)g(\045)j(Declare)e(LEADTERM)f(as)j(a)g(symbolic)
1461 2169 y(\045)g(mode)f(procedure)e(to)j(be)g(used)f(in)1461
2269 y(\045)h(algebraic)d(mode.)241 2468 y(symbolic)g(procedure)g
(leadterm)g(u;)j(\045)g(Define)e(LEADTERM.)372 2568 y(mk!*sq)g(!*t2q)g
(lt)i(numr)f(simp!*)f(u;)241 2787 y FQ(Note)35 b(that)g(this)e(op)s
(erator)h(has)g(a)h(di\013eren)m(t)e(e\013ect)j(than)e(the)g(op)s
(erator)g FJ(LTERM)f FQ(.)h(In)241 2900 y(the)29 b(latter)h(case,)g
(the)g(calculation)e(is)g(done)h(with)f(resp)s(ect)h(to)h(the)g(second)
f(argumen)m(t)241 3013 y(of)36 b(the)h(op)s(erator.)59
b(In)36 b(the)g(example)g(here,)i(w)m(e)f(simply)d(extract)k(the)e
(leading)f(term)241 3126 y(with)29 b(resp)s(ect)h(to)h(the)g(system's)g
(c)m(hoice)g(of)f(main)g(v)-5 b(ariable.)241 3288 y(Finally)d(,)24
b(if)f(y)m(ou)h(wish)f(to)i(use)f(the)g(algebraic)g(ev)-5
b(aluator)24 b(on)h(an)f(argumen)m(t)g(in)f(a)i(sym)m(b-)241
3401 y(olic)k(mo)s(de)h(de\014nition,)f(the)h(function)f
FJ(REVAL)g FQ(can)i(b)s(e)e(used.)40 b(The)30 b(one)h(argumen)m(t)f(of)
241 3514 y FJ(REVAL)22 b FQ(m)m(ust)i(b)s(e)f(the)h(pre\014x)e(form)i
(of)g(an)f(expression.)38 b FJ(REVAL)22 b FQ(returns)g(the)i(ev)-5
b(aluated)241 3627 y(expression)29 b(as)i(a)f(true)g(Lisp)f(pre\014x)g
(form.)241 3782 y @beginspecial @setspecial @endspecial
181 x FE(16.10)136 b(Rlisp)45 b('88)241 4216 y FQ(Rlisp)c('88)k(is)e(a)
i(sup)s(erset)e(of)h(the)g(Rlisp)e(that)i(has)g(b)s(een)f
(traditionally)f(used)h(for)241 4329 y(the)37 b(supp)s(ort)e(of)i
(REDUCE.)g(It)g(is)f(fully)f(do)s(cumen)m(ted)i(in)e(the)j(b)s(o)s(ok)e
(Marti,)j(J.B.,)241 4442 y(\\RLISP)f('88:)60 b(An)39
b(Ev)m(olutionary)f(Approac)m(h)i(to)g(Program)f(Design)g(and)g
(Reuse",)241 4555 y(W)-8 b(orld)34 b(Scien)m(ti\014c,)g(Singap)s(ore)g
(\(1993\).)55 b(Rlisp)32 b('88)k(adds)d(to)i(the)g(traditional)e(Rlisp)
241 4668 y(the)d(follo)m(wing)f(facilities:)241 4772
y @beginspecial @setspecial @endspecial 352 4905 a(1.)46
b(more)21 b(general)f(v)m(ersions)g(of)h(the)f(lo)s(oping)f(constructs)
i FJ(for)p FQ(,)h FJ(repeat)d FQ(and)h FJ(while)p FQ(;)p
eop
%%Page: 210 210
210 209 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(210)1370 b FM(CHAPTER)30 b(16.)72 b(SYMBOLIC)30 b(MODE)664
464 y @beginspecial @setspecial @endspecial 775 555 a
FQ(2.)46 b(supp)s(ort)29 b(for)h(a)h(bac)m(kquote)h(construct;)664
610 y @beginspecial @setspecial @endspecial 775 743 a(3.)46
b(supp)s(ort)29 b(for)h(activ)m(e)i(commen)m(ts;)664
798 y @beginspecial @setspecial @endspecial 775 930 a(4.)46
b(supp)s(ort)29 b(for)h(v)m(ectors)i(of)f(the)f(form)g(name[index];)664
991 y @beginspecial @setspecial @endspecial 775 1118
a(5.)46 b(supp)s(ort)29 b(for)h(simple)f(structures;)664
1173 y @beginspecial @setspecial @endspecial 775 1306
a(6.)46 b(supp)s(ort)29 b(for)h(records.)664 1543 y(In)36
b(addition,)h(\\{")h(is)d(a)i(letter)g(in)e(Rlisp)g('88.)60
b(In)36 b(other)h(w)m(ords,)h FJ(A-B)e FQ(is)f(an)i(iden)m(ti-)664
1656 y(\014er,)h(not)f(the)g(di\013erence)f(of)h(the)g(iden)m
(ti\014ers)e FJ(A)h FQ(and)g FJ(B)p FQ(.)h(If)f(the)h(latter)g
(construct)g(is)664 1769 y(required,)29 b(it)g(is)g(necessary)i(to)f
(put)g(spaces)g(around)f(the)h(-)h(c)m(haracter.)42 b(F)-8
b(or)30 b(compati-)664 1882 y(bilit)m(y)g(b)s(et)m(w)m(een)j(the)g(t)m
(w)m(o)g(v)m(ersions)f(of)g(Rlisp,)f(w)m(e)h(recommend)g(this)f(con)m
(v)m(en)m(tion)j(b)s(e)664 1995 y(used)c(in)f(all)g(sym)m(b)s(olic)g
(mo)s(de)h(programs.)664 2158 y(T)-8 b(o)33 b(use)f(Rlisp)d('88,)34
b(t)m(yp)s(e)e FJ(on)48 b(rlisp88;)p FQ(.)43 b(This)30
b(switc)m(hes)i(to)h(sym)m(b)s(olic)e(mo)s(de)g(with)664
2270 y(the)38 b(Rlisp)d('88)j(syn)m(tax)g(and)f(extensions.)62
b(While)36 b(in)g(this)g(en)m(vironmen)m(t,)j(it)e(is)g(im-)664
2383 y(p)s(ossible)c(to)j(switc)m(h)f(to)i(algebraic)e(mo)s(de,)i(or)e
(pre\014x)f(expressions)h(b)m(y)g(\\algebraic".)664 2496
y(Ho)m(w)m(ev)m(er,)d(sym)m(b)s(olic)c(mo)s(de)h(programs)g(written)g
(in)f(Rlisp)f('88)k(ma)m(y)f(b)s(e)f(run)f(in)g(alge-)664
2609 y(braic)34 b(mo)s(de)g(pro)m(vided)g(the)h(rlisp88)e(pac)m(k)-5
b(age)37 b(has)d(b)s(een)g(loaded.)54 b(W)-8 b(e)36 b(also)e(exp)s(ect)
664 2722 y(that)j(man)m(y)f(of)h(the)f(extensions)g(de\014ned)f(in)g
(Rlisp)f('88)j(will)d(migrate)i(to)h(the)f(basic)664
2835 y(Rlisp)i(o)m(v)m(er)k(time.)71 b(T)-8 b(o)41 b(return)f(to)h
(traditional)e(Rlisp)f(or)j(to)g(switc)m(h)f(to)h(algebraic)664
2948 y(mo)s(de,)30 b(sa)m(y)h(\\o\013)h(rlisp88".)664
3103 y @beginspecial @setspecial @endspecial 181 x FE(16.11)136
b(References)664 3537 y FQ(There)29 b(are)h(a)g(n)m(um)m(b)s(er)e(of)i
(useful)d(b)s(o)s(oks)i(whic)m(h)f(can)i(giv)m(e)g(y)m(ou)f(further)g
(information)664 3650 y(ab)s(out)h(LISP)-8 b(.)30 b(Here)h(is)f(a)g
(selection:)664 3813 y(Allen,)f(J.R.,)i(\\The)f(Anatom)m(y)i(of)e
(LISP",)g(McGra)m(w)i(Hill,)c(New)j(Y)-8 b(ork,)31 b(1978.)664
3975 y(McCarth)m(y)24 b(J.,)g(P)-8 b(.W.)24 b(Abrahams,)g(J.)f(Edw)m
(ards,)h(T.P)-8 b(.)23 b(Hart)g(and)f(M.I.)i(Levin,)f(\\LISP)664
4088 y(1.5)32 b(Programmer's)e(Man)m(ual",)h(M.I.T.)g(Press,)f(1965.)
664 4251 y(T)-8 b(ouretzky)g(,)35 b(D.S,)e(\\LISP:)f(A)h(Gen)m(tle)g
(In)m(tro)s(duction)f(to)h(Sym)m(b)s(olic)e(Computation",)664
4364 y(Harp)s(er)f(&)g(Ro)m(w,)h(New)f(Y)-8 b(ork,)32
b(1984.)664 4527 y(Winston,)e(P)-8 b(.H.)31 b(and)f(Horn,)g(B.K.P)-8
b(.,)32 b(\\LISP",)f(Addison-W)-8 b(esley)g(,)30 b(1981.)p
eop
%%Page: 211 211
211 210 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(17)241 1693 y FT(Calculations)76 b(in)h(High)g(Energy)241
1942 y(Ph)-6 b(ysics)241 2436 y FQ(A)36 b(set)h(of)g(REDUCE)g(commands)
f(is)f(pro)m(vided)g(for)i(users)e(in)m(terested)i(in)e(sym)m(b)s(olic)
241 2549 y(calculations)d(in)g(high)f(energy)j(ph)m(ysics.)47
b(Sev)m(eral)33 b(extensions)g(to)h(our)e(basic)h(syn)m(tax)241
2662 y(are)21 b(necessary)-8 b(,)23 b(ho)m(w)m(ev)m(er,)i(to)c(allo)m
(w)f(for)h(the)f(di\013eren)m(t)g(data)i(structures)e(encoun)m(tered.)
241 2817 y @beginspecial @setspecial @endspecial 182
x FE(17.1)135 b(High)46 b(Energy)f(Ph)l(ysics)g(Op)t(erators)241
3251 y FQ(W)-8 b(e)28 b(b)s(egin)e(b)m(y)h(in)m(tro)s(ducing)e(three)i
(new)g(op)s(erators)g(required)f(in)g(these)h(calculations.)241
3396 y @beginspecial @setspecial @endspecial 149 x FR(17.1.1)112
b(.)50 b(\(Cons\))37 b(Op)s(erator)241 3753 y FQ(Syn)m(tax:)589
3959 y FH(\(EXPRN1:vector_ex)o(pre)o(ss)o(ion)o(\))982
4058 y(.)43 b(\(EXPRN2:vector_e)o(xp)o(res)o(si)o(on\))o(:a)o(lg)o(ebr)
o(ai)o(c.)241 4277 y FQ(The)28 b(binary)e FJ(.)40 b FQ(op)s(erator,)29
b(whic)m(h)f(is)f(normally)g(used)g(to)j(denote)f(the)f(addition)f(of)i
(an)241 4390 y(elemen)m(t)j(to)g(the)g(fron)m(t)f(of)h(a)g(list,)e(can)
i(also)g(b)s(e)f(used)f(in)g(algebraic)i(mo)s(de)f(to)h(denote)241
4503 y(the)43 b(scalar)g(pro)s(duct)f(of)h(t)m(w)m(o)h(Loren)m(tz)g
(four-v)m(ectors.)80 b(F)-8 b(or)44 b(this)e(to)i(happ)s(en,)g(the)241
4616 y(second)38 b(argumen)m(t)g(m)m(ust)f(b)s(e)h(recognizable)f(as)h
(a)g(v)m(ector)i(expression)c(at)j(the)f(time)241 4729
y(of)d(ev)-5 b(aluation.)53 b(With)34 b(this)f(meaning,)j(this)d(op)s
(erator)i(is)f(often)h(referred)f(to)h(as)g(the)241 4842
y FD(dot)j FQ(op)s(erator.)i(In)27 b(the)h(presen)m(t)h(system,)f(the)h
(index)d(handling)g(routines)h(all)g(assume)241 4955
y(that)i(Loren)m(tz)i(four-v)m(ectors)f(are)f(used,)g(but)f(these)i
(routines)e(could)g(b)s(e)h(rewritten)f(to)1667 5187
y(211)p eop
%%Page: 212 212
212 211 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(212)192 b FM(CHAPTER)30 b(17.)72 b(CALCULA)-8 b(TIONS)29
b(IN)h(HIGH)h(ENER)m(GY)g(PHYSICS)664 555 y FQ(handle)e(other)i(cases.)
664 705 y(Comp)s(onen)m(ts)36 b(of)g(v)m(ectors)i(can)f(b)s(e)e
(represen)m(ted)i(b)m(y)f(including)d(represen)m(tations)j(of)664
804 y(unit)24 b(v)m(ectors)j(in)d(the)i(system.)39 b(Th)m(us)25
b(if)f FJ(EO)h FQ(represen)m(ts)g(the)h(unit)e(v)m(ector)j
FJ(\(1,0,0,0\))p FQ(,)664 904 y FJ(\(p.eo\))36 b FQ(represen)m(ts)i
(the)f(zeroth)i(comp)s(onen)m(t)e(of)h(the)g(four-v)m(ector)h(P)-8
b(.)38 b(Our)e(metric)664 1004 y(and)d(notation)g(follo)m(ws)f(Bjork)m
(en)h(and)g(Drell)f(\\Relativistic)g(Quan)m(tum)g(Mec)m(hanics")664
1103 y(\(McGra)m(w-Hill,)h(New)g(Y)-8 b(ork,)34 b(1965\).)49
b(Similarly)-8 b(,)30 b(an)i(arbitrary)f(comp)s(onen)m(t)i
FJ(P)f FQ(ma)m(y)664 1203 y(b)s(e)k(represen)m(ted)g(b)m(y)g
FJ(\(p.u\))p FQ(.)58 b(If)35 b(con)m(traction)j(o)m(v)m(er)g(comp)s
(onen)m(ts)e(of)g(v)m(ectors)i(is)e(re-)664 1302 y(quired,)29
b(then)h(the)h(declaration)f FJ(INDEX)f FQ(m)m(ust)h(b)s(e)f(used.)40
b(Th)m(us)1013 1508 y FH(index)h(u;)664 1714 y FQ(declares)30
b FJ(U)g FQ(as)h(an)f(index,)f(and)h(the)h(simpli\014cation)c(of)1013
1920 y FH(p.u)42 b(*)h(q.u)664 2126 y FQ(w)m(ould)29
b(result)h(in)1013 2332 y FH(P.Q)664 2551 y FQ(The)j(metric)f(tensor)i
FL(g)1462 2518 y FF(\026\027)1581 2551 y FQ(ma)m(y)f(b)s(e)g(represen)m
(ted)g(b)m(y)g FJ(\(u.v\))p FQ(.)47 b(If)33 b(con)m(traction)h(o)m(v)m
(er)g FJ(U)664 2664 y FQ(and)c FJ(V)g FQ(is)f(required,)g(then)h(they)h
(should)d(b)s(e)i(declared)g(as)g(indices.)664 2827 y(Errors)f(o)s
(ccur)i(if)e(indices)f(are)j(not)g(prop)s(erly)d(matc)m(hed)j(in)e
(expressions.)664 2989 y(If)39 b(a)g(user)f(later)h(wishes)f(to)h(remo)
m(v)m(e)i(the)e(index)f(prop)s(ert)m(y)g(from)g(sp)s(eci\014c)g(v)m
(ectors,)664 3102 y(he)32 b(can)g(do)g(it)f(with)g(the)h(declaration)f
FJ(REMIND)p FQ(.)f(Th)m(us)h FJ(remind)46 b(v1...vn;)31
b FQ(remo)m(v)m(es)664 3215 y(the)i(index)e(\015ags)i(from)f(the)h(v)-5
b(ariables)31 b FJ(V1)h FQ(through)g FJ(Vn)p FQ(.)47
b(Ho)m(w)m(ev)m(er,)35 b(these)e(v)-5 b(ariables)664
3328 y(remain)29 b(v)m(ectors)j(in)d(the)i(system.)664
3473 y @beginspecial @setspecial @endspecial 148 x FR(17.1.2)113
b(G)37 b(Op)s(erator)h(for)f(Gamma)h(Matrices)664 3830
y FQ(Syn)m(tax:)1013 4035 y FH(G\(ID:identifier[)o(,E)o(XPR)o(N:)o(vec)
o(to)o(r_)o(exp)o(re)o(ssi)o(on)o(]\))1362 4135 y(:gamma_matrix_e)o
(xpr)o(es)o(si)o(on.)664 4354 y FJ(G)22 b FQ(is)f(an)h(n-ary)g(op)s
(erator)g(used)f(to)i(denote)g(a)f(pro)s(duct)f(of)h
FL(\015)27 b FQ(matrices)22 b(con)m(tracted)i(with)664
4467 y(Loren)m(tz)32 b(four-v)m(ectors.)44 b(Gamma)32
b(matrices)f(are)h(asso)s(ciated)f(with)f(fermion)g(lines)f(in)664
4580 y(a)i(F)-8 b(eynman)30 b(diagram.)40 b(If)30 b(more)g(than)g(one)h
(suc)m(h)f(line)e(o)s(ccurs,)i(then)g(a)h(di\013eren)m(t)e(set)664
4693 y(of)d FL(\015)31 b FQ(matrices)25 b(\(op)s(erating)h(in)e(indep)s
(enden)m(t)f(spin)h(spaces\))i(is)f(required)f(to)i(represen)m(t)664
4806 y(eac)m(h)37 b(line.)54 b(T)-8 b(o)35 b(facilitate)h(this,)f(the)h
(\014rst)e(argumen)m(t)i(of)g FJ(G)f FQ(is)f(a)i(line)d(iden)m
(ti\014cation)664 4919 y(iden)m(ti\014er)c(\(not)i(a)f(n)m(um)m(b)s
(er\))g(used)f(to)j(distinguish)26 b(di\013eren)m(t)k(lines.)p
eop
%%Page: 213 213
213 212 bop 241 299 a @beginspecial @setspecial @endspecial
FM(17.1.)72 b(HIGH)31 b(ENER)m(GY)g(PHYSICS)e(OPERA)-8
b(TORS)893 b FQ(213)241 555 y(Th)m(us)589 761 y FH(g\(l1,p\))41
b(*)i(g\(l2,q\))241 980 y FQ(denotes)33 b(the)h(pro)s(duct)e(of)h
FL(\015)5 b FJ(.p)33 b FQ(asso)s(ciated)g(with)f(a)i(fermion)e(line)f
(iden)m(ti\014ed)g(as)j FJ(L1)p FQ(,)241 1093 y(and)27
b FL(\015)5 b FJ(.q)27 b FQ(asso)s(ciated)h(with)e(another)i(line)e
(iden)m(ti\014ed)g(as)i FJ(L2)e FQ(and)h(where)h FJ(p)f
FQ(and)g FJ(q)g FQ(are)241 1206 y(Loren)m(tz)h(four-v)m(ectors.)41
b(A)27 b(pro)s(duct)f(of)h FL(\015)32 b FQ(matrices)c(asso)s(ciated)f
(with)f(the)i(same)f(line)241 1319 y(ma)m(y)k(b)s(e)e(written)h(in)f(a)
i(con)m(tracted)h(form.)241 1468 y(Th)m(us)589 1674 y
FH(g\(l1,p1,p2,...,p3)o(\))38 b(=)43 b(g\(l1,p1\)*g\(l1,p2)o(\)*)o(..)o
(.*g)o(\(l)o(1,p)o(3\))37 b(.)241 1894 y FQ(The)c(v)m(ector)i
FJ(A)f FQ(is)e(reserv)m(ed)i(in)f(argumen)m(ts)h(of)g(G)g(to)g(denote)g
(the)g(sp)s(ecial)e FL(\015)39 b FQ(matrix)241 2006 y
FL(\015)293 1973 y FO(5)332 2006 y FQ(.)i(Th)m(us)620
2220 y FJ(g\(l,a\))148 b FQ(=)91 b FL(\015)1270 2187
y FO(5)1670 2220 y FQ(asso)s(ciated)31 b(with)e(the)h(line)f
FJ(L)620 2393 y(g\(l,p,a\))52 b FQ(=)91 b FL(\015)5 b
FQ(.p)30 b FP(\002)p FL(\015)1499 2360 y FO(5)1670 2393
y FQ(asso)s(ciated)h(with)e(the)h(line)f FJ(L)p FQ(.)241
2606 y FL(\015)293 2573 y FF(\026)368 2606 y FQ(\(asso)s(ciated)g(with)
f(the)h(line)e FJ(L)p FQ(\))h(ma)m(y)h(b)s(e)f(written)g(as)h
FJ(g\(l,u\))p FQ(,)e(with)h FJ(U)g FQ(\015agged)h(as)241
2719 y(an)h(index)f(if)g(con)m(traction)j(o)m(v)m(er)g
FJ(U)e FQ(is)f(required.)241 2882 y(The)i(notation)i(of)f(Bjork)m(en)g
(and)g(Drell)f(is)g(assumed)g(in)g(all)g(op)s(erations)g(in)m(v)m
(olving)f FL(\015)241 2995 y FQ(matrices.)241 3118 y
@beginspecial @setspecial @endspecial 166 x FR(17.1.3)112
b(EPS)37 b(Op)s(erator)241 3492 y FQ(Syn)m(tax:)633 3698
y FH(EPS\(EXPRN1:vecto)o(r_e)o(xp)o(res)o(si)o(on)o(,..)o(.,)o(EXP)o
(RN)o(4:)o(vec)o(to)o(r_e)o(xp)o(\))764 3797 y(:vector_exp.)241
4016 y FQ(The)31 b(op)s(erator)g FJ(EPS)g FQ(has)g(four)g(argumen)m
(ts,)h(and)f(is)g(used)f(only)h(to)h(denote)g(the)g(com-)241
4129 y(pletely)41 b(an)m(tisymmetric)g(tensor)h(of)g(order)g(4)g(and)f
(its)h(con)m(traction)h(with)e(Loren)m(tz)241 4242 y(four-v)m(ectors.)h
(Th)m(us)568 4510 y FL(\017)605 4525 y FF(ij)t(k)r(l)751
4510 y FQ(=)847 4313 y FB(8)847 4388 y(>)847 4413 y(<)847
4562 y(>)847 4587 y(:)962 4397 y FQ(+1)84 b(if)29 b FL(i;)15
b(j;)g(k)s(;)g(l)34 b FQ(is)c(an)g(ev)m(en)h(p)s(erm)m(utation)f(of)g
(0,1,2,3)962 4510 y FP(\000)p FQ(1)84 b(if)29 b(an)h(o)s(dd)f(p)s(erm)m
(utation)998 4623 y(0)119 b(otherwise)241 4846 y(A)30
b(con)m(traction)h(of)f(the)h(form)e FL(\017)1327 4860
y FF(ij)t(\026\027)1469 4846 y FL(p)1515 4860 y FF(\026)1561
4846 y FL(q)1602 4860 y FF(\027)1675 4846 y FQ(ma)m(y)i(b)s(e)e
(written)g(as)i FJ(eps\(i,j,p,q\))p FQ(,)c(with)241 4959
y FJ(I)j FQ(and)g FJ(J)g FQ(\015agged)h(as)f(indices,)f(and)h(so)g(on.)
p eop
%%Page: 214 214
214 213 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(214)192 b FM(CHAPTER)30 b(17.)72 b(CALCULA)-8 b(TIONS)29
b(IN)h(HIGH)h(ENER)m(GY)g(PHYSICS)664 464 y @beginspecial
@setspecial @endspecial 91 x FE(17.2)136 b(V)-11 b(ector)45
b(V)-11 b(ariables)664 795 y FQ(Apart)34 b(from)f(the)i(line)d(iden)m
(ti\014cation)g(iden)m(ti\014er)g(in)h(the)h FJ(G)f FQ(op)s(erator,)j
(all)c(other)j(ar-)664 894 y(gumen)m(ts)30 b(of)g(the)g(op)s(erators)g
(in)e(this)h(section)h(are)g(v)m(ectors.)42 b(V)-8 b(ariables)29
b(used)g(as)h(suc)m(h)664 994 y(m)m(ust)g(b)s(e)g(declared)g(so)h(b)m
(y)f(the)g(t)m(yp)s(e)h(declaration)f FJ(VECTOR)p FQ(,)59
b(for)30 b(example:)1013 1200 y FH(vector)85 b(p1,p2;)664
1419 y FQ(declares)36 b FJ(P1)f FQ(and)g FJ(P2)g FQ(to)h(b)s(e)f(v)m
(ectors.)58 b(V)-8 b(ariables)35 b(declared)g(as)h(indices)e(or)i(giv)m
(en)g(a)664 1532 y(mass)30 b(are)h(automatically)f(declared)g(v)m
(ector)i(b)m(y)e(these)h(declarations.)664 1687 y @beginspecial
@setspecial @endspecial 181 x FE(17.3)136 b(Additional)45
b(Expression)h(T)l(yp)t(es)664 2121 y FQ(Tw)m(o)31 b(additional)d
(expression)h(t)m(yp)s(es)h(are)h(necessary)g(for)f(high)f(energy)i
(calculations,)664 2234 y(namely)664 2379 y @beginspecial
@setspecial @endspecial 148 x FR(17.3.1)113 b(V)-9 b(ector)36
b(Expressions)664 2748 y FQ(These)e(follo)m(w)g(the)g(normal)f(rules)g
(of)h(v)m(ector)i(com)m(bination.)51 b(Th)m(us)33 b(the)i(pro)s(duct)e
(of)664 2861 y(a)g(scalar)f(or)h(n)m(umerical)d(expression)i(and)f(a)i
(v)m(ector)h(expression)d(is)g(a)i(v)m(ector,)i(as)e(are)664
2974 y(the)28 b(sum)f(and)g(di\013erence)g(of)h(v)m(ector)h
(expressions.)38 b(If)28 b(these)g(rules)e(are)i(not)g(follo)m(w)m(ed,)
664 3087 y(error)j(messages)h(are)g(prin)m(ted.)41 b(F)-8
b(urthermore,)32 b(if)e(the)i(system)f(\014nds)e(an)i(undeclared)664
3200 y(v)-5 b(ariable)26 b(where)h(it)g(exp)s(ects)h(a)f(v)m(ector)i(v)
-5 b(ariable,)27 b(it)g(will)d(ask)k(the)f(user)g(in)f(in)m(teractiv)m
(e)664 3313 y(mo)s(de)36 b(whether)g(to)h(mak)m(e)g(that)g(v)-5
b(ariable)35 b(a)i(v)m(ector)h(or)e(not.)59 b(In)36 b(batc)m(h)h(mo)s
(de,)h(the)664 3426 y(declaration)c(will)e(b)s(e)h(made)i
(automatically)f(and)g(the)g(user)g(informed)f(of)h(this)f(b)m(y)i(a)
664 3539 y(message.)664 3702 y FJ(Examples:)664 3851
y FQ(Assuming)d FJ(P)h FQ(and)g FJ(Q)g FQ(ha)m(v)m(e)h(b)s(een)f
(declared)g(v)m(ectors,)j(the)e(follo)m(wing)d(are)j(v)m(ector)h(ex-)
664 3951 y(pressions)1013 4157 y FH(p)1013 4256 y(2*q/3)1013
4356 y(2*x*y*p)41 b(-)i(p.q*q/\(3*q.q\))664 4575 y FQ(whereas)30
b FJ(p*q)g FQ(and)g FJ(p/q)f FQ(are)i(not.)664 4722 y
@beginspecial @setspecial @endspecial eop
%%Page: 215 215
215 214 bop 241 299 a @beginspecial @setspecial @endspecial
FM(17.4.)72 b(TRA)m(CE)30 b(CALCULA)-8 b(TIONS)1508 b
FQ(215)241 555 y FR(17.3.2)112 b(Dirac)37 b(Expressions)241
777 y FQ(These)j(denote)i(those)f(expressions)e(whic)m(h)h(in)m(v)m
(olv)m(e)h FL(\015)46 b FQ(matrices.)72 b(A)40 b FL(\015)46
b FQ(matrix)40 b(is)241 890 y(implicitly)31 b(a)k(4)h
FP(\002)e FQ(4)i(matrix,)g(and)e(so)h(the)g(pro)s(duct,)h(sum)e(and)g
(di\013erence)h(of)g(suc)m(h)241 1002 y(expressions,)26
b(or)h(the)g(pro)s(duct)f(of)h(a)g(scalar)g(and)g(Dirac)g(expression)e
(is)h(again)h(a)g(Dirac)241 1115 y(expression.)38 b(There)25
b(are)h(no)f(Dirac)h(v)-5 b(ariables)24 b(in)g(the)i(system,)h(so)f
(whenev)m(er)g(a)g(scalar)241 1228 y(v)-5 b(ariable)33
b(app)s(ears)i(in)e(a)j(Dirac)f(expression)e(without)h(an)h(asso)s
(ciated)h FL(\015)k FQ(matrix)34 b(ex-)241 1341 y(pression,)h(an)f
(implicit)e(unit)i(4)h(b)m(y)g(4)g(matrix)g(is)f(assumed.)53
b(F)-8 b(or)36 b(example,)g FJ(g\(l,p\))241 1454 y(+)47
b(m)34 b FQ(denotes)h FJ(g\(l,p\))46 b(+)i(m*<unit)d(4)j(by)f(4)h
(matrix>)p FQ(.)i(Multiplication)32 b(of)i(Dirac)241
1567 y(expressions,)29 b(as)i(for)f(matrix)f(expressions,)h(is)f(of)i
(course)f(non-comm)m(utativ)m(e.)241 1722 y @beginspecial
@setspecial @endspecial 181 x FE(17.4)135 b(T)-11 b(race)45
b(Calculations)241 2156 y FQ(When)d(a)g(Dirac)g(expression)f(is)g(ev)-5
b(aluated,)46 b(the)c(system)g(computes)g(one)h(quarter)241
2269 y(of)38 b(the)g(trace)g(of)g(eac)m(h)h FL(\015)k
FQ(matrix)37 b(pro)s(duct)g(in)f(the)i(expansion)f(of)h(the)f
(expression.)241 2382 y(One)32 b(quarter)g(of)h(eac)m(h)g(trace)h(is)d
(tak)m(en)j(in)d(order)h(to)h(a)m(v)m(oid)g(confusion)e(b)s(et)m(w)m
(een)i(the)241 2495 y(trace)h(of)f(the)h(scalar)f FJ(M)p
FQ(,)g(sa)m(y)-8 b(,)35 b(and)e FJ(M)f FQ(represen)m(ting)h
FJ(M)47 b(*)h(<unit)e(4)i(by)f(4)g(matrix>)p FQ(.)241
2608 y(Con)m(traction)31 b(o)m(v)m(er)g(indices)e(o)s(ccurring)g(in)g
(suc)m(h)h(expressions)g(is)f(also)h(p)s(erformed.)40
b(If)241 2720 y(an)30 b(unmatc)m(hed)g(index)f(is)h(found)f(in)g(suc)m
(h)h(an)g(expression,)f(an)i(error)f(o)s(ccurs.)241 2883
y(The)c(algorithms)g(used)h(for)f(trace)j(calculations)d(are)h(the)h(b)
s(est)e(a)m(v)-5 b(ailable)27 b(at)h(the)f(time)241 2996
y(this)g(system)i(w)m(as)f(pro)s(duced.)39 b(F)-8 b(or)29
b(example,)g(in)e(addition)f(to)j(the)g(algorithm)e(dev)m(el-)241
3109 y(op)s(ed)35 b(b)m(y)g(Chisholm)e(for)i(con)m(tracting)i(indices)d
(in)g(pro)s(ducts)h(of)g(traces,)k(REDUCE)241 3222 y(uses)h(the)g
(elegan)m(t)h(algorithm)f(of)g(Kahane)g(for)g(con)m(tracting)i(indices)
c(in)h FL(\015)45 b FQ(matrix)241 3335 y(pro)s(ducts.)56
b(These)36 b(algorithms)f(are)h(describ)s(ed)e(in)h(Chisholm,)g(J.)h
(S.)f(R.,)j(Il)d(Nuo)m(v)m(o)241 3448 y(Cimen)m(to)g(X,)h(30,)i(426)f
(\(1963\))h(and)d(Kahane,)i(J.,)g(Journal)d(Math.)56
b(Ph)m(ys.)g(9,)38 b(1732)241 3561 y(\(1968\).)241 3710
y(It)31 b(is)e(p)s(ossible)f(to)k(prev)m(en)m(t)f(the)g(trace)h
(calculation)e(o)m(v)m(er)i(an)m(y)f(line)e(iden)m(ti\014er)g(b)m(y)h
(the)241 3810 y(declaration)g FJ(NOSPUR)p FQ(.)f(F)-8
b(or)31 b(example,)589 4016 y FH(nospur)42 b(l1,l2;)241
4221 y FQ(will)e(mean)k(that)f(no)h(traces)g(are)f(tak)m(en)i(of)e
FL(\015)48 b FQ(matrix)43 b(terms)g(in)m(v)m(olving)f(the)h(line)241
4321 y(n)m(um)m(b)s(ers)26 b FJ(L1)h FQ(and)g FJ(L2)p
FQ(.)39 b(Ho)m(w)m(ev)m(er,)31 b(in)26 b(some)i(calculations)f(in)m(v)m
(olving)f(more)i(than)f(one)241 4421 y(line,)i(a)h(catastrophic)h
(error)589 4627 y FH(This)42 b(NOSPUR)f(option)h(not)g(implemented)241
4846 y FQ(can)32 b(o)s(ccur)g(\(for)h(the)f(reason)g(stated!\))48
b(If)31 b(y)m(ou)i(encoun)m(ter)g(this)e(error,)h(please)g(let)g(us)241
4959 y(kno)m(w!)p eop
%%Page: 216 216
216 215 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(216)192 b FM(CHAPTER)30 b(17.)72 b(CALCULA)-8 b(TIONS)29
b(IN)h(HIGH)h(ENER)m(GY)g(PHYSICS)664 555 y FQ(A)j(trace)h(of)f(a)g
FL(\015)k FQ(matrix)33 b(expression)g(in)m(v)m(olving)f(a)i(line)e
(iden)m(ti\014er)g(whic)m(h)g(has)i(b)s(een)664 668 y(declared)c
FJ(NOSPUR)f FQ(ma)m(y)i(b)s(e)e(later)i(tak)m(en)g(b)m(y)f(making)g
(the)h(declaration)f FJ(SPUR)p FQ(.)664 831 y(See)h(also)f(the)h(CVIT)e
(pac)m(k)-5 b(age)33 b(for)d(an)g(alternativ)m(e)h(mec)m(hanism)f(\(c)m
(hapter)h @beginspecial @setspecial @endspecial(33)q(\).)664
991 y @beginspecial @setspecial @endspecial 176 x FE(17.5)136
b(Mass)45 b(Declarations)664 1407 y FQ(It)34 b(is)e(often)i(necessary)g
(to)g(put)f(a)h(particle)e(\\on)i(the)g(mass)f(shell")f(in)h(a)g
(calculation.)664 1506 y(This)c(can,)i(of)f(course,)h(b)s(e)f
(accomplished)f(with)g(a)i FJ(LET)e FQ(command)h(suc)m(h)g(as)1013
1712 y FH(let)42 b(p.p=)g(m^2;)664 1918 y FQ(but)29 b(an)g(alternativ)m
(e)g(metho)s(d)g(is)f(pro)m(vided)g(b)m(y)h(t)m(w)m(o)i(commands)e
FJ(MASS)f FQ(and)g FJ(MSHELL)p FQ(.)664 2018 y FJ(MASS)h
FQ(tak)m(es)j(a)f(list)e(of)i(equations)f(of)g(the)h(form:)1013
2223 y FH(<vector)41 b(variable>)e(=)44 b(<scalar)c(variable>)664
2429 y FQ(for)30 b(example,)1013 2635 y FH(mass)42 b(p1=m,)f(q1=mu;)664
2841 y FQ(The)31 b(only)g(e\013ect)i(of)e(this)g(command)g(is)g(to)h
(asso)s(ciate)g(the)g(relev)-5 b(an)m(t)32 b(scalar)f(v)-5
b(ariable)664 2941 y(as)31 b(a)g(mass)f(with)f(the)h(corresp)s(onding)f
(v)m(ector.)42 b(If)30 b(w)m(e)h(no)m(w)f(sa)m(y)1013
3147 y FH(mshell)41 b(<vector)g(variable>,...,<)o(vec)o(to)o(r)d
(variable>;)664 3353 y FQ(and)29 b(a)g(mass)g(has)g(b)s(een)f(asso)s
(ciated)h(with)f(these)i(argumen)m(ts,)f(a)h(substitution)d(of)i(the)
664 3452 y(form)1013 3658 y FH(<vector)41 b(variable>.<vect)o(or)c
(variable>)j(=)j(<mass>^2)664 3877 y FQ(is)30 b(set)h(up.)39
b(An)30 b(error)g(results)f(if)h(the)g(v)-5 b(ariable)29
b(has)h(no)h(preassigned)e(mass.)664 4032 y @beginspecial
@setspecial @endspecial 182 x FE(17.6)136 b(Example)664
4466 y FQ(W)-8 b(e)36 b(giv)m(e)e(here)g(as)h(an)f(example)g(of)g(a)g
(simple)f(calculation)g(in)g(high)g(energy)h(ph)m(ysics)664
4579 y(the)24 b(computation)f(of)h(the)g(Compton)f(scattering)h
(cross-section)g(as)g(giv)m(en)f(in)f(Bjork)m(en)664
4692 y(and)30 b(Drell)f(Eqs.)41 b(\(7.72\))32 b(through)e(\(7.74\).)43
b(W)-8 b(e)31 b(wish)e(to)i(compute)g(the)f(trace)i(of)p
eop
%%Page: 217 217
217 216 bop 241 299 a @beginspecial @setspecial @endspecial
FM(17.6.)72 b(EXAMPLE)2133 b FQ(217)475 650 y FL(\013)533
617 y FO(2)p 475 690 98 4 v 501 774 a FQ(2)608 592 y
FB(\022)679 650 y FL(k)729 617 y Fu(0)p 679 690 74 4
v 690 774 a FL(k)762 592 y FB(\023)823 606 y FO(2)878
592 y FB(\022)949 649 y FL(\015)5 b(:p)1072 664 y FF(f)1138
649 y FQ(+)20 b FL(m)p 949 690 360 4 v 1066 774 a FQ(2)p
FL(m)1318 592 y FB(\023)c(\022)1466 650 y FL(\015)5 b(:e)1585
617 y Fu(0)1609 650 y FL(\015)g(:e\015)g(:k)1852 664
y FF(i)p 1466 690 416 4 v 1576 774 a FQ(2)p FL(k)s(:p)1742
788 y FF(i)1911 711 y FQ(+)2012 649 y FL(\015)g(:e\015)g(:e)2250
616 y Fu(0)2275 649 y FL(\015)g(:k)2399 664 y FF(f)p
2012 690 433 4 v 2120 774 a FQ(2)p FL(k)2215 747 y Fu(0)2239
774 y FL(:p)2310 788 y FF(i)2455 592 y FB(\023)15 b(\022)2602
650 y FL(\015)5 b(:p)2725 664 y FF(i)2774 650 y FQ(+)20
b FL(m)p 2602 690 343 4 v 2711 774 a FQ(2)p FL(m)2954
592 y FB(\023)1174 847 y(\022)1245 905 y FL(\015)5 b(:k)1369
919 y FF(i)1398 905 y FL(\015)g(:e\015)g(:e)1636 872
y Fu(0)p 1245 945 416 4 v 1356 1029 a FQ(2)p FL(k)s(:p)1522
1043 y FF(i)1691 966 y FQ(+)1792 904 y FL(\015)g(:k)1916
919 y FF(f)1962 904 y FL(\015)g(:e)2081 871 y Fu(0)2105
904 y FL(\015)g(:e)p 1792 945 433 4 v 1899 1029 a FQ(2)p
FL(k)1994 1002 y Fu(0)2018 1029 y FL(:p)2089 1043 y FF(i)2235
847 y FB(\023)241 1202 y FQ(where)36 b FL(k)557 1216
y FF(i)622 1202 y FQ(and)g FL(k)852 1217 y FF(f)934 1202
y FQ(are)h(the)g(four-momen)m(ta)h(of)f(incoming)e(and)h(outgoing)h
(photons)241 1315 y(\(with)28 b(p)s(olarization)g(v)m(ectors)i
FL(e)g FQ(and)f FL(e)1581 1282 y Fu(0)1633 1315 y FQ(and)g(lab)s
(oratory)g(energies)g FL(k)j FQ(and)d FL(k)2901 1282
y Fu(0)2954 1315 y FQ(resp)s(ec-)241 1428 y(tiv)m(ely\))h(and)g
FL(p)749 1442 y FF(i)777 1428 y FQ(,)g FL(p)878 1443
y FF(f)954 1428 y FQ(are)h(inciden)m(t)e(and)g(\014nal)g(electron)i
(four-momen)m(ta.)241 1628 y(Omitting)g(therefore)i(an)f(o)m(v)m(erall)
h(factor)1740 1592 y FF(\013)1785 1569 y Fy(2)p 1714
1607 133 4 v 1714 1661 a FO(2)p FF(m)1811 1642 y Fy(2)1871
1534 y FB(\020)1931 1592 y FF(k)1970 1569 y Fs(0)p 1931
1607 61 4 v 1942 1659 a FF(k)2002 1534 y FB(\021)2051
1557 y FO(2)2123 1628 y FQ(w)m(e)g(need)f(to)h(\014nd)e(one)i(quarter)
241 1751 y(of)d(the)h(trace)g(of)738 1944 y(\()p FL(\015)5
b(:p)896 1959 y FF(f)962 1944 y FQ(+)20 b FL(m)p FQ(\))1183
1825 y FB(\022)1254 1883 y FL(\015)5 b(:e)1373 1850 y
Fu(0)1397 1883 y FL(\015)g(:e\015)g(:k)1640 1897 y FF(i)p
1254 1923 416 4 v 1364 2006 a FQ(2)p FL(k)s(:p)1530 2020
y FF(i)1700 1944 y FQ(+)1801 1882 y FL(\015)g(:e\015)g(:e)2039
1849 y Fu(0)2063 1882 y FL(\015)g(:k)2187 1897 y FF(f)p
1801 1923 433 4 v 1908 2006 a FQ(2)p FL(k)2003 1980 y
Fu(0)2027 2006 y FL(:p)2098 2020 y FF(i)2243 1825 y FB(\023)2320
1944 y FQ(\()p FL(\015)g(:p)2478 1958 y FF(i)2527 1944
y FQ(+)19 b FL(m)p FQ(\))1174 2098 y FB(\022)1245 2156
y FL(\015)5 b(:k)1369 2170 y FF(i)1398 2156 y FL(\015)g(:e\015)g(:e)
1636 2123 y Fu(0)p 1245 2196 416 4 v 1356 2279 a FQ(2)p
FL(k)s(:p)1522 2293 y FF(i)1691 2217 y FQ(+)1792 2155
y FL(\015)g(:k)1916 2170 y FF(f)1962 2155 y FL(\015)g(:e)2081
2122 y Fu(0)2105 2155 y FL(\015)g(:e)p 1792 2196 433
4 v 1899 2279 a FQ(2)p FL(k)1994 2253 y Fu(0)2018 2279
y FL(:p)2089 2293 y FF(i)2235 2098 y FB(\023)241 2453
y FQ(A)39 b(straigh)m(tforw)m(ard)g(REDUCE)g(program)g(for)g(this,)i
(with)d(appropriate)g(substitu-)241 2553 y(tions)29 b(\(using)h
FJ(P1)f FQ(for)i FL(p)1048 2567 y FF(i)1076 2553 y FQ(,)f
FJ(PF)g FQ(for)g FL(p)1442 2568 y FF(f)1487 2553 y FQ(,)h
FJ(KI)e FQ(for)i FL(k)1855 2567 y FF(i)1913 2553 y FQ(and)f
FJ(KF)g FQ(for)g FL(k)2402 2568 y FF(f)2448 2553 y FQ(\))g(is)284
2758 y FH(on)43 b(div;)f(\045)h(this)f(gives)g(output)f(in)i(same)e
(form)h(as)h(Bjorken)e(and)h(Drell.)284 2858 y(mass)g(ki=)h(0,)f(kf=)h
(0,)f(p1=)h(m,)g(pf=)f(m;)h(vector)e(e,ep;)284 2958 y(\045)j(if)e(e)h
(is)g(used)f(as)h(a)g(vector,)e(it)i(loses)e(its)h(scalar)f(identity)g
(as)284 3057 y(\045)261 b(the)43 b(base)f(of)g(natural)f(logarithms.)
284 3157 y(mshell)g(ki,kf,p1,pf;)284 3257 y(let)i(p1.e=)e(0,)i(p1.ep=)e
(0,)i(p1.pf=)e(m^2+ki.kf,)e(p1.ki=)i(m*k,p1.kf=)459 3356
y(m*kp,)g(pf.e=)h(-kf.e,)f(pf.ep=)g(ki.ep,)g(pf.ki=)g(m*kp,)h(pf.kf=)
459 3456 y(m*k,)g(ki.e=)f(0,)i(ki.kf=)e(m*\(k-kp\),)f(kf.ep=)h(0,)i
(e.e=)f(-1,)459 3555 y(ep.ep=-1;)284 3655 y(for)h(all)f(p)h(let)g
(gp\(p\)=)e(g\(l,p\)+m;)284 3755 y(comment)g(this)h(is)h(just)f(to)g
(save)g(us)h(a)g(lot)g(of)f(writing;)284 3854 y(gp\(pf\)*\(g\(l,ep,e,)o
(ki)o(\)/\()o(2*)o(ki.)o(p1)o(\))c(+)43 b(g\(l,e,ep,kf\)/\(2)o(*kf)o
(.p)o(1\)\))372 3954 y(*)g(gp\(p1\)*\(g\(l,ki,)o(e,e)o(p\))o(/\(2)o(*k)
o(i.p)o(1\))37 b(+)43 b(g\(l,kf,ep,e\)/)459 4054 y(\(2*kf.p1\)\)$)284
4153 y(write)f("The)g(Compton)e(cxn)j(is",ws;)241 4372
y FQ(\(W)-8 b(e)32 b(use)f FJ(P1)g FQ(instead)f(of)h
FJ(PI)g FQ(in)f(the)h(ab)s(o)m(v)m(e)h(to)g(a)m(v)m(oid)g(confusion)d
(with)h(the)h(reserv)m(ed)241 4485 y(v)-5 b(ariable)29
b FJ(PI)p FQ(\).)241 4635 y(This)f(program)i(will)e(prin)m(t)h(the)i
(follo)m(wing)e(result)1461 4841 y FH(\(-1\))347 b(\(-1\))522
b(2)284 4940 y(The)43 b(Compton)d(cxn)j(is)f(1/2*K*KP)215
b(+)43 b(1/2*K)173 b(*KP)42 b(+)h(2*E.EP)85 b(-)43 b(1)p
eop
%%Page: 218 218
218 217 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(218)192 b FM(CHAPTER)30 b(17.)72 b(CALCULA)-8 b(TIONS)29
b(IN)h(HIGH)h(ENER)m(GY)g(PHYSICS)664 464 y @beginspecial
@setspecial @endspecial 91 x FE(17.7)136 b(Extensions)46
b(to)f(More)g(Than)f(F)-11 b(our)44 b(Dimensions)664
795 y FQ(In)25 b(our)g(discussion)f(so)i(far,)g(w)m(e)h(ha)m(v)m(e)g
(assumed)e(that)h(w)m(e)g(are)g(w)m(orking)g(in)e(the)i(normal)664
894 y(four)g(dimensions)e(of)j(QED)f(calculations.)39
b(Ho)m(w)m(ev)m(er,)30 b(in)25 b(most)i(cases,)h(the)f(programs)664
994 y(will)h(also)i(w)m(ork)h(in)e(an)h(arbitrary)f(n)m(um)m(b)s(er)g
(of)i(dimensions.)38 b(The)30 b(command)1013 1200 y FH(vecdim)41
b(<expression>;)664 1419 y FQ(sets)34 b(the)f(appropriate)g(dimension.)
47 b(The)32 b(dimension)f(can)j(b)s(e)e(sym)m(b)s(olic)g(as)h(w)m(ell)g
(as)664 1532 y(n)m(umerical.)65 b(Users)39 b(should)d(note)k(ho)m(w)m
(ev)m(er,)j(that)c(the)g FJ(EPS)f FQ(op)s(erator)h(and)f(the)h
FL(\015)3613 1546 y FO(5)664 1645 y FQ(sym)m(b)s(ol)30
b(\()p FJ(A)p FQ(\))i(are)f(not)g(prop)s(erly)e(de\014ned)h(in)g(other)
h(than)g(four)g(dimensions)d(and)j(will)664 1758 y(lead)f(to)h(an)f
(error)g(if)g(used.)p eop
%%Page: 219 219
219 218 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(18)241 1693 y FT(REDUCE)76 b(and)i(Rlisp)e(Utilities)241
2187 y FQ(REDUCE)28 b(and)h(its)f(asso)s(ciated)h(supp)s(ort)e
(language)i(system)g(Rlisp)d(include)h(a)i(n)m(um-)241
2300 y(b)s(er)i(of)h(utilities)e(whic)m(h)g(ha)m(v)m(e)k(pro)m(v)m(ed)e
(useful)f(for)g(program)h(dev)m(elopmen)m(t)h(o)m(v)m(er)g(the)241
2413 y(y)m(ears.)49 b(The)33 b(follo)m(wing)e(are)i(supp)s(orted)f(in)f
(most)j(of)f(the)g(implemen)m(tations)e(of)i(RE-)241
2526 y(DUCE)d(curren)m(tly)g(a)m(v)-5 b(ailable.)241
2681 y @beginspecial @setspecial @endspecial 181 x FE(18.1)135
b(The)45 b(Standard)g(Lisp)f(Compiler)241 3115 y FQ(Man)m(y)32
b(v)m(ersions)f(of)h(REDUCE)g(include)d(a)j(Standard)f(Lisp)f(compiler)
g(that)j(is)d(auto-)241 3228 y(matically)37 b(loaded)g(on)h(demand.)63
b(Y)-8 b(ou)39 b(should)d(c)m(hec)m(k)j(y)m(our)f(system)g(sp)s
(eci\014c)f(user)241 3341 y(guide)28 b(to)i(mak)m(e)g(sure)e(y)m(ou)i
(ha)m(v)m(e)g(suc)m(h)f(a)g(compiler.)39 b(T)-8 b(o)30
b(mak)m(e)g(the)f(compiler)f(activ)m(e,)241 3454 y(the)38
b(switc)m(h)f FJ(COMP)f FQ(should)g(b)s(e)h(turned)g(on.)63
b(An)m(y)37 b(further)g(de\014nitions)e(input)h(after)241
3567 y(this)41 b(will)e(b)s(e)j(compiled)f(automatically)-8
b(.)76 b(If)42 b(the)g(compiler)f(used)g(is)g(a)i(deriv)-5
b(ativ)m(e)241 3680 y(v)m(ersion)28 b(of)i(the)f(original)e
(Griss-Hearn)h(compiler,)g(\(M.)i(L.)f(Griss)f(and)h(A.)g(C.)g(Hearn,)
241 3793 y(\\A)j(P)m(ortable)g(LISP)f(Compiler",)g(SOFTW)-10
b(ARE)31 b(|)g(Practice)i(and)e(Exp)s(erience)g(11)241
3906 y(\(1981\))f(541-605\),)j(there)28 b(are)h(other)f(switc)m(hes)g
(that)h(migh)m(t)f(also)g(b)s(e)g(used)f(in)g(this)g(re-)241
4018 y(gard.)39 b(Ho)m(w)m(ev)m(er,)29 b(these)e(additional)d(switc)m
(hes)i(are)h(not)f(supp)s(orted)f(in)g(all)g(compilers.)241
4131 y(They)30 b(are)g(as)h(follo)m(ws:)1667 5187 y(219)p
eop
%%Page: 220 220
220 219 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(220)752 b FM(CHAPTER)29 b(18.)72 b(REDUCE)30 b(AND)i(RLISP)d
(UTILITIES)714 622 y FJ(PLAP)146 b FQ(If)34 b(ON,)h(causes)g(the)f
(prin)m(ting)e(of)j(the)g(p)s(ortable)e(macros)i(pro)s(duced)1052
735 y(b)m(y)c(the)f(compiler;)714 961 y FJ(PGWD)146 b
FQ(If)38 b(ON,)f(causes)i(the)f(prin)m(ting)d(of)j(the)g(actual)g
(assem)m(bly)g(language)1052 1074 y(instructions)28 b(generated)k(from)
e(the)g(macros;)714 1299 y FJ(PWRDS)98 b FQ(If)30 b(ON,)h(causes)f(a)h
(statistic)g(message)g(of)g(the)f(form)1052 1412 y FJ(<function>)45
b(COMPILED,)h(<words>)f(WORDS,)h(<words>)g(LEFT)1052
1525 y FQ(to)38 b(b)s(e)f(prin)m(ted.)61 b(The)37 b(\014rst)f(n)m(um)m
(b)s(er)g(is)h(the)g(n)m(um)m(b)s(er)g(of)g(w)m(ords)g(of)1052
1638 y(binary)h(program)h(space)h(the)g(compiled)e(function)g(to)s(ok,)
43 b(and)c(the)1052 1751 y(second)i(n)m(um)m(b)s(er)f(the)i(n)m(um)m(b)
s(er)d(of)j(w)m(ords)e(left)h(un)m(used)f(in)g(binary)1052
1864 y(program)30 b(space.)664 2069 y @beginspecial @setspecial
@endspecial 141 x FE(18.2)136 b(F)-11 b(ast)45 b(Loading)g(Co)t(de)g
(Generation)h(Program)664 2449 y FQ(In)28 b(most)g(v)m(ersions)f(of)i
(REDUCE,)f(it)f(is)h(p)s(ossible)d(to)k(tak)m(e)h(an)m(y)e(set)h(of)f
(Lisp,)f(Rlisp)f(or)664 2549 y(REDUCE)32 b(commands)g(and)g(build)d(a)k
(fast)g(loading)e(v)m(ersion)h(of)h(them.)46 b(In)32
b(Rlisp)e(or)664 2649 y(REDUCE,)h(one)f(do)s(es)g(the)h(follo)m(wing:)
1056 2854 y FH(faslout)41 b(<filename>;)1056 2954 y(<commands)f(or)j
(IN)g(statements>)1056 3054 y(faslend;)664 3273 y FQ(T)-8
b(o)37 b(load)e(suc)m(h)h(a)h(\014le,)f(one)h(uses)e(the)i(command)f
FJ(LOAD)p FQ(,)f(e.g.)59 b FJ(load)46 b(foo;)38 b FQ(or)e
FJ(load)664 3386 y(foo,bah;)664 3549 y FQ(This)i(pro)s(cess)i(pro)s
(duces)e(a)i(fast-loading)g(v)m(ersion)f(of)h(the)g(original)e(\014le.)
68 b(In)39 b(some)664 3661 y(implemen)m(tations,)27 b(this)e(means)i
(another)g(\014le)f(is)g(created)i(with)e(the)h(same)h(name)f(but)664
3774 y(a)42 b(di\013eren)m(t)e(extension.)73 b(F)-8 b(or)41
b(example,)j(in)c(PSL-based)g(systems,)k(the)d(extension)664
3887 y(is)g FJ(b)g FQ(\(for)g(binary\).)73 b(In)40 b(CSL-based)h
(systems,)j(ho)m(w)m(ev)m(er,)i(this)40 b(pro)s(cess)h(adds)g(the)664
4000 y(fast-loading)30 b(co)s(de)g(to)g(a)h(single)d(\014le)h(in)g
(whic)m(h)g(all)f(suc)m(h)i(co)s(de)g(is)f(stored.)41
b(P)m(articular)664 4113 y(functions)31 b(are)i(pro)m(vided)f(b)m(y)g
(CSL)g(for)g(managing)h(this)e(\014le,)i(and)f(describ)s(ed)e(in)i(the)
664 4226 y(CSL)d(user)h(do)s(cumen)m(tation.)664 4389
y(In)f(doing)g(this)f(build,)f(as)j(with)f(the)g(pro)s(duction)f(of)i
(a)g(Standard)e(Lisp)g(form)h(of)h(suc)m(h)664 4502 y(statemen)m(ts,)36
b(it)c(is)g(imp)s(ortan)m(t)g(to)i(remem)m(b)s(er)e(that)h(some)g(of)g
(the)h(commands)e(m)m(ust)664 4615 y(b)s(e)h(instan)m(tiated)g(during)f
(the)i(building)29 b(pro)s(cess.)50 b(F)-8 b(or)35 b(example,)f(macros)
g(m)m(ust)g(b)s(e)664 4727 y(expanded,)f(and)f(some)g(prop)s(ert)m(y)g
(list)f(op)s(erations)h(m)m(ust)h(happ)s(en.)45 b(The)32
b(REDUCE)664 4840 y(sources)f(should)d(b)s(e)i(consulted)f(for)h
(further)f(details)h(on)g(this.)p eop
%%Page: 221 221
221 220 bop 241 299 a @beginspecial @setspecial @endspecial
FM(18.3.)72 b(THE)30 b(ST)-8 b(AND)m(ARD)32 b(LISP)d(CR)m(OSS)g
(REFERENCE)h(PR)m(OGRAM)167 b FQ(221)241 555 y(T)-8 b(o)43
b(a)m(v)m(oid)g(excessiv)m(e)h(prin)m(tout,)h(input)c(statemen)m(ts)k
(should)c(b)s(e)h(follo)m(w)m(ed)g(b)m(y)h(a)g($)241
668 y(instead)34 b(of)i(the)f(semicolon.)54 b(With)35
b FJ(LOAD)f FQ(ho)m(w)m(ev)m(er,)k(the)d(input)e(do)s(esn't)i(prin)m(t)
f(out)241 781 y(regardless)29 b(of)i(whic)m(h)e(terminator)h(is)g(used)
f(with)g(the)i(command.)241 944 y(If)e(y)m(ou)h(subsequen)m(tly)e(c)m
(hange)j(the)e(source)h(\014les)f(used)f(in)h(pro)s(ducing)e(a)j(fast)g
(loading)241 1057 y(\014le,)42 b(don't)f(forget)g(to)h(rep)s(eat)e(the)
h(ab)s(o)m(v)m(e)h(pro)s(cess)e(in)f(order)h(to)i(up)s(date)d(the)i
(fast)241 1170 y(loading)31 b(\014le)h(corresp)s(ondingly)-8
b(.)45 b(Remem)m(b)s(er)32 b(also)g(that)h(the)g(text)h(whic)m(h)d(is)g
(read)i(in)241 1282 y(during)d(the)j(creation)g(of)f(the)h(fast)g(load)
f(\014le,)g(in)g(the)g(compiling)f(pro)s(cess)h(describ)s(ed)241
1395 y(ab)s(o)m(v)m(e,)c(is)c FD(not)34 b FQ(stored)26
b(in)e(y)m(our)h(REDUCE)g(en)m(vironmen)m(t,)h(but)f(only)f(translated)
h(and)241 1508 y(output.)42 b(If)31 b(y)m(ou)g(w)m(an)m(t)h(to)g(use)f
(the)g(\014le)g(just)f(created,)j(y)m(ou)e(m)m(ust)g(then)g(use)g
FJ(LOAD)f FQ(to)241 1621 y(load)g(the)g(output)g(of)h(the)f
(fast-loading)g(\014le)g(generation)g(program.)241 1784
y(When)35 b(the)g(\014le)g(to)h(b)s(e)e(loaded)h(con)m(tains)h(a)f
(complete)h(pac)m(k)-5 b(age)37 b(for)e(a)h(giv)m(en)f(appli-)241
1897 y(cation,)g FJ(LOAD)p 741 1897 29 4 v 33 w(PACKAGE)d
FQ(rather)h(than)h FJ(LOAD)e FQ(should)g(b)s(e)h(used.)50
b(The)33 b(syn)m(tax)i(is)d(the)241 2010 y(same.)62 b(Ho)m(w)m(ev)m
(er,)42 b FJ(LOAD)p 1124 2010 V 33 w(PACKAGE)36 b FQ(do)s(es)h(some)h
(additional)d(b)s(o)s(okk)m(eeping)i(suc)m(h)g(as)241
2123 y(recording)f(that)i(this)f(pac)m(k)-5 b(age)39
b(has)f(no)m(w)f(b)s(een)g(loaded,)i(that)f(is)e(required)g(for)h(the)
241 2236 y(correct)31 b(op)s(eration)f(of)h(the)f(system.)241
2390 y @beginspecial @setspecial @endspecial 182 x FE(18.3)135
b(The)37 b(Standard)h(Lisp)f(Cross)h(Reference)h(Program)241
2825 y FJ(CREF)i FQ(is)h(a)h(Standard)f(Lisp)f(program)i(for)f(pro)s
(cessing)g(a)h(set)g(of)g(Standard)f(LISP)241 2937 y(function)29
b(de\014nitions)f(to)j(pro)s(duce:)241 3042 y @beginspecial
@setspecial @endspecial 352 3175 a(1.)46 b(A)31 b(\\summary")f(sho)m
(wing:)241 3251 y @beginspecial @setspecial @endspecial
506 3363 a(\(a\))47 b(A)31 b(list)e(of)h(\014les)f(pro)s(cessed;)241
3402 y @beginspecial @setspecial @endspecial 501 3509
a(\(b\))46 b(A)41 b(list)e(of)i(\\en)m(try)h(p)s(oin)m(ts")e
(\(functions)g(whic)m(h)f(are)i(not)g(called)f(or)h(are)668
3622 y(only)30 b(called)f(b)m(y)h(themselv)m(es\);)241
3661 y @beginspecial @setspecial @endspecial 511 3768
a(\(c\))47 b(A)30 b(list)f(of)i(unde\014ned)d(functions)h(\(functions)g
(called)h(but)f(not)i(de\014ned)e(in)668 3881 y(this)g(set)i(of)g
(functions\);)241 3920 y @beginspecial @setspecial @endspecial
501 4027 a(\(d\))46 b(A)40 b(list)e(of)i(v)-5 b(ariables)39
b(that)h(w)m(ere)h(used)e(non-lo)s(cally)f(but)h(not)h(declared)668
4140 y FJ(GLOBAL)29 b FQ(or)h FJ(FLUID)f FQ(b)s(efore)h(their)f(use;)
241 4174 y @beginspecial @setspecial @endspecial 511
4286 a(\(e\))47 b(A)42 b(list)f(of)i(v)-5 b(ariables)41
b(that)i(w)m(ere)f(declared)g FJ(GLOBAL)f FQ(but)g(not)i(used)e(as)668
4399 y FJ(FLUID)p FQ(s,)29 b(i.e.,)i(b)s(ound)d(in)h(a)i(function;)241
4433 y @beginspecial @setspecial @endspecial 517 4545
a(\(f)7 b(\))46 b(A)38 b(list)f(of)h FJ(FLUID)f FQ(v)-5
b(ariables)37 b(that)i(w)m(ere)f(not)h(b)s(ound)d(in)h(a)h(function)f
(so)668 4658 y(that)31 b(one)g(migh)m(t)f(consider)f(declaring)g(them)i
FJ(GLOBAL)p FQ(s;)241 4692 y @beginspecial @setspecial
@endspecial 506 4804 a(\(g\))47 b(A)31 b(list)e(of)h(all)f
FJ(GLOBAL)g FQ(v)-5 b(ariables)29 b(presen)m(t;)241 4843
y @beginspecial @setspecial @endspecial 501 4950 a(\(h\))46
b(A)31 b(list)e(of)h(all)f FJ(FLUID)g FQ(v)-5 b(ariables)29
b(presen)m(t;)p eop
%%Page: 222 222
222 221 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(222)752 b FM(CHAPTER)29 b(18.)72 b(REDUCE)30 b(AND)i(RLISP)d
(UTILITIES)664 464 y @beginspecial @setspecial @endspecial
950 555 a FQ(\(i\))45 b(A)31 b(list)e(of)h(all)g(functions)f(presen)m
(t.)664 615 y @beginspecial @setspecial @endspecial 775
743 a(2.)46 b(A)31 b(\\global)f(v)-5 b(ariable)29 b(usage")j(table,)e
(sho)m(wing)g(for)g(eac)m(h)h(non-lo)s(cal)f(v)-5 b(ariable:)664
819 y @beginspecial @setspecial @endspecial 930 930 a(\(a\))46
b(F)-8 b(unctions)30 b(in)f(whic)m(h)h(it)f(is)h(used)f(as)i(a)g
(declared)f FJ(FLUID)f FQ(or)h FJ(GLOBAL)p FQ(;)664 970
y @beginspecial @setspecial @endspecial 925 1077 a(\(b\))45
b(F)-8 b(unctions)30 b(in)f(whic)m(h)h(it)f(is)h(used)f(but)h(not)h
(declared;)664 1116 y @beginspecial @setspecial @endspecial
935 1223 a(\(c\))46 b(F)-8 b(unctions)30 b(in)f(whic)m(h)h(it)f(is)h(b)
s(ound;)664 1262 y @beginspecial @setspecial @endspecial
925 1369 a(\(d\))45 b(F)-8 b(unctions)30 b(in)f(whic)m(h)h(it)f(is)h(c)
m(hanged)h(b)m(y)f FJ(SETQ)p FQ(.)664 1429 y @beginspecial
@setspecial @endspecial 775 1556 a(3.)46 b(A)31 b(\\function)e(usage")j
(table)e(sho)m(wing)g(for)g(eac)m(h)h(function:)664 1632
y @beginspecial @setspecial @endspecial 930 1744 a(\(a\))46
b(Where)31 b(it)f(is)f(de\014ned;)664 1783 y @beginspecial
@setspecial @endspecial 925 1890 a(\(b\))45 b(F)-8 b(unctions)30
b(whic)m(h)f(call)h(this)f(function;)664 1930 y @beginspecial
@setspecial @endspecial 935 2036 a(\(c\))46 b(F)-8 b(unctions)30
b(called)g(b)m(y)g(it;)664 2076 y @beginspecial @setspecial
@endspecial 925 2182 a(\(d\))45 b(Non-lo)s(cal)31 b(v)-5
b(ariables)29 b(used.)664 2420 y(The)e(program)h(will)d(also)j(c)m(hec)
m(k)h(that)g(functions)d(are)i(called)f(with)g(the)g(correct)i(n)m(um-)
664 2533 y(b)s(er)h(of)g(argumen)m(ts,)h(and)f(prin)m(t)f(a)i
(diagnostic)e(message)j(otherwise.)664 2696 y(The)39
b(output)g(is)g(alphab)s(etized)f(on)h(the)g(\014rst)g(sev)m(en)h(c)m
(haracters)h(of)f(eac)m(h)g(function)664 2808 y(name.)664
2936 y @beginspecial @setspecial @endspecial 166 x FR(18.3.1)113
b(Restrictions)664 3323 y FQ(Algebraic)33 b(pro)s(cedures)f(in)h
(REDUCE)g(are)h(treated)h(as)e(if)g(they)h(w)m(ere)g(sym)m(b)s(olic,)f
(so)664 3436 y(that)28 b(algebraic)e(constructs)h(will)d(actually)j
(app)s(ear)f(as)h(calls)f(to)i(sym)m(b)s(olic)d(functions,)664
3549 y(suc)m(h)30 b(as)h FJ(AEVAL)p FQ(.)664 3676 y @beginspecial
@setspecial @endspecial 166 x FR(18.3.2)113 b(Usage)664
4050 y FQ(T)-8 b(o)36 b(in)m(v)m(ok)m(e)g(the)f(cross)g(reference)g
(program,)i(the)e(switc)m(h)f FJ(CREF)69 b FQ(is)34 b(used.)54
b FJ(on)47 b(cref)664 4150 y FQ(causes)33 b(the)f(cref)g(program)g(to)h
(load)f(and)f(the)i(cross-referencing)f(pro)s(cess)f(to)i(b)s(egin.)664
4250 y(After)e(all)e(the)i(required)d(de\014nitions)g(are)j(loaded,)f
FJ(off)47 b(cref)29 b FQ(will)f(cause)j(the)f(cross-)664
4349 y(reference)e(listing)e(to)j(b)s(e)e(pro)s(duced.)38
b(F)-8 b(or)28 b(example,)h(if)d(y)m(ou)i(wish)e(to)j(cross-reference)
664 4449 y(all)k(functions)f(in)h(the)h(\014le)e FJ(tst.red)p
FQ(,)h(and)g(pro)s(duce)g(the)h(cross-reference)h(listing)c(in)664
4548 y(the)g(\014le)e FJ(tst.crf)p FQ(,)g(the)h(follo)m(wing)f
(sequence)i(can)g(b)s(e)e(used:)1013 4754 y FH(out)42
b("tst.crf";)1013 4854 y(on)h(cref;)1013 4954 y(in)g("tst.red"$)p
eop
%%Page: 223 223
223 222 bop 241 299 a @beginspecial @setspecial @endspecial
FM(18.4.)72 b(PRETTYPRINTING)30 b(REDUCE)g(EXPRESSIONS)636
b FQ(223)589 555 y FH(off)43 b(cref;)589 655 y(shut)f("tst.crf";)241
874 y FQ(T)-8 b(o)28 b(pro)s(cess)e(more)i(than)f(one)h(\014le,)f(more)
g FJ(IN)g FQ(statemen)m(ts)i(ma)m(y)f(b)s(e)f(added)f(b)s(efore)h(the)
241 987 y(call)i(of)i FJ(off)47 b(cref)p FQ(,)29 b(or)i(the)f
FJ(IN)g FQ(statemen)m(t)i(c)m(hanged)f(to)g(include)d(a)j(list)e(of)i
(\014les.)241 1132 y @beginspecial @setspecial @endspecial
148 x FR(18.3.3)112 b(Options)241 1502 y FQ(F)-8 b(unctions)36
b(with)f(the)i(\015ag)g FJ(NOLIST)e FQ(will)f(not)j(b)s(e)f(examined)g
(or)h(output.)59 b(Initially)-8 b(,)241 1615 y(all)31
b(Standard)h(Lisp)e(functions)i(are)g(so)h(\015agged.)48
b(\(In)32 b(fact,)j(they)d(are)h(k)m(ept)g(on)g(a)g(list)241
1727 y FJ(NOLIST!*)p FQ(,)26 b(so)h(if)f(y)m(ou)h(wish)f(to)i(see)f
(references)h(to)g FD(al)5 b(l)27 b FQ(functions,)g(then)g
FJ(CREF)e FQ(should)241 1840 y(b)s(e)30 b(\014rst)f(loaded)h(with)g
(the)g(command)h FJ(load)46 b(cref)p FQ(,)30 b(and)g(this)f(v)-5
b(ariable)29 b(then)i(set)g(to)241 1953 y FJ(NIL)p FQ(\).)241
2116 y(It)36 b(should)f(also)h(b)s(e)g(remem)m(b)s(ered)g(that)h(an)m
(y)g(macros)g(with)e(the)i(prop)s(ert)m(y)f(list)f(\015ag)241
2229 y FJ(EXPAND)p FQ(,)19 b(or,)k(if)d(the)h(switc)m(h)f
FJ(FORCE)g FQ(is)g(on,)j(without)c(the)j(prop)s(ert)m(y)e(list)f
(\015ag)i FJ(NOEXPAND)p FQ(,)241 2342 y(will)f(b)s(e)i(expanded)g(b)s
(efore)h(the)g(de\014nition)d(is)i(seen)h(b)m(y)g(the)g
(cross-reference)g(program,)241 2455 y(so)37 b(this)f(\015ag)i(can)f
(also)g(b)s(e)g(used)f(to)i(select)g(those)f(macros)h(y)m(ou)f(require)
f(expanded)241 2568 y(and)30 b(those)g(y)m(ou)h(do)f(not.)241
2722 y @beginspecial @setspecial @endspecial 182 x FE(18.4)135
b(Prett)l(yprin)l(ting)47 b(Reduce)e(Expressions)241
3157 y FQ(REDUCE)39 b(includes)d(a)k(mo)s(dule)d(for)i(prin)m(ting)e
(REDUCE)i(syn)m(tax)h(in)e(a)h(standard)241 3270 y(format.)g(This)25
b(mo)s(dule)g(is)g(activ)-5 b(ated)27 b(b)m(y)f(the)h(switc)m(h)e
FJ(PRET)p FQ(,)52 b(whic)m(h)25 b(is)g(normally)g(o\013.)241
3432 y(Since)i(the)i(system)g(con)m(v)m(erts)g(algebraic)g(input)d(in)m
(to)j(an)f(equiv)-5 b(alen)m(t)28 b(sym)m(b)s(olic)f(form,)241
3545 y(the)f(prin)m(ting)e(program)h(tries)h(to)g(in)m(terpret)g(this)f
(as)h(an)g(algebraic)f(expression)g(b)s(efore)241 3658
y(prin)m(ting)37 b(it.)66 b(In)38 b(most)h(cases,)k(this)37
b(can)j(b)s(e)e(done)h(successfully)-8 b(.)65 b(Ho)m(w)m(ev)m(er,)43
b(there)241 3771 y(will)22 b(b)s(e)i(o)s(ccasional)h(instances)f(where)
h(results)e(are)i(prin)m(ted)f(in)f(sym)m(b)s(olic)h(mo)s(de)g(form)241
3884 y(that)h(b)s(ears)g(little)e(resem)m(blance)i(to)h(the)f(original)
e(input,)h(ev)m(en)i(though)f(it)f(is)g(formally)241
3997 y(equiv)-5 b(alen)m(t.)241 4160 y(If)34 b(y)m(ou)h(w)m(an)m(t)g
(to)g(prett)m(yprin)m(t)f(a)h(whole)f(\014le,)h(sa)m(y)g
FJ(off)47 b(output,msg;)70 b FQ(and)34 b(\(hop)s(e-)241
4272 y(fully\))22 b(only)g(clean)i(output)f(will)f(result.)37
b(Unlik)m(e)23 b FJ(DEFN)p FQ(,)g(input)e(is)i(also)h(ev)-5
b(aluated)24 b(with)241 4385 y FJ(PRET)59 b FQ(on.)241
4522 y @beginspecial @setspecial @endspecial eop
%%Page: 224 224
224 223 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(224)752 b FM(CHAPTER)29 b(18.)72 b(REDUCE)30 b(AND)i(RLISP)d
(UTILITIES)664 555 y FE(18.5)136 b(Prett)l(yprin)l(ting)46
b(Standard)f(Lisp)g(S-Expressions)664 808 y FQ(REDUCE)23
b(includes)e(a)i(mo)s(dule)f(for)g(prin)m(ting)f(S-expressions)h(in)g
(a)h(standard)f(format.)664 921 y(The)31 b(Standard)f(Lisp)g(function)g
(for)h(this)f(purp)s(ose)f(is)i FJ(PRETTYPRINT)d FQ(whic)m(h)i(tak)m
(es)j(a)664 1034 y(Lisp)c(expression)g(and)h(prin)m(ts)f(the)h
(formatted)h(equiv)-5 b(alen)m(t.)664 1196 y(Users)40
b(can)h(also)f(ha)m(v)m(e)i(their)d(REDUCE)h(input)f(prin)m(ted)f(in)h
(this)h(form)g(b)m(y)g(use)g(of)664 1309 y(the)34 b(switc)m(h)e
FJ(DEFN)p FQ(.)h(This)e(is)i(in)f(fact)i(a)g(con)m(v)m(enien)m(t)g(w)m
(a)m(y)g(to)g(con)m(v)m(ert)h(REDUCE)f(\(or)664 1422
y(Rlisp\))22 b(syn)m(tax)i(in)m(to)g(Lisp.)36 b FJ(off)47
b(msg;)25 b FQ(will)c(prev)m(en)m(t)j(w)m(arning)f(messages)h(from)f(b)
s(eing)664 1535 y(prin)m(ted.)664 1698 y(NOTE:)30 b(When)g
FJ(DEFN)g FQ(is)f(on,)h(input)f(is)g(not)i(ev)-5 b(aluated.)p
eop
%%Page: 225 225
225 224 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(19)241 1693 y FT(Main)-6 b(taining)77 b(REDUCE)241
2187 y FQ(REDUCE)25 b(con)m(tin)m(ues)h(to)h(ev)m(olv)m(e)g(b)s(oth)e
(in)f(terms)i(of)f(the)h(n)m(um)m(b)s(er)f(of)h(facilities)d(a)m(v)-5
b(ail-)241 2300 y(able,)42 b(and)e(the)h(p)s(o)m(w)m(er)f(of)h(the)f
(individual)c(facilities.)69 b(Corrections)40 b(are)h(made)f(as)241
2413 y(bugs)34 b(are)i(disco)m(v)m(ered,)h(and)e(a)m(wkw)m(ard)g
(features)h(simpli\014ed.)52 b(In)34 b(order)h(to)h(pro)m(vide)241
2526 y(users)f(with)h(easy)h(access)h(to)f(suc)m(h)f(enhancemen)m(ts,)j
(a)e FD(REDUCE)g(network)i(libr)-5 b(ary)241 2639 y FQ(has)31
b(b)s(een)g(established)e(from)i(whic)m(h)g(material)f(can)i(b)s(e)f
(extracted)i(b)m(y)e(an)m(y)m(one)i(with)241 2752 y(electronic)d(mail)f
(access)j(to)f(the)f(In)m(ternet)h(computer)g(net)m(w)m(ork.)241
2915 y(In)39 b(addition)f(to)i(miscellaneous)f(do)s(cumen)m(ts,)j
(source)e(and)f(utilit)m(y)f(\014les,)k(the)e(libr-)241
3028 y(ary)31 b(includes)f(a)i(bibliograph)m(y)c(of)k(pap)s(ers)f
(referencing)f(REDUCE)i(whic)m(h)e(con)m(tains)241 3141
y(o)m(v)m(er)h(800)g(en)m(tries.)41 b(Instructions)28
b(on)i(using)f(this)g(library)e(are)k(sen)m(t)f(to)h(all)e(registered)
241 3253 y(REDUCE)35 b(users)g(who)g(pro)m(vide)f(a)i(net)m(w)m(ork)g
(address.)56 b(If)35 b(y)m(ou)g(w)m(ould)g(lik)m(e)f(a)i(more)241
3366 y(complete)g(list)d(of)j(the)f(con)m(ten)m(ts)i(of)f(the)f
(library)-8 b(,)35 b(send)g(to)h FD(r)-5 b(e)g(duc)g(e-netlib@r)g
(and.or)g(g)241 3479 y FQ(the)40 b(single)e(line)g(message)j
FD(send)h(index)51 b FQ(or)40 b FD(help)p FQ(.)69 b(The)40
b(curren)m(t)f(REDUCE)h(infor-)241 3592 y(mation)34 b(pac)m(k)-5
b(age)37 b(can)e(b)s(e)f(obtained)g(from)h(the)g(net)m(w)m(ork)g
(library)e(b)m(y)h(including)e(on)241 3705 y(a)46 b(separate)i(line)c
FD(send)k(info-p)-5 b(ackage)54 b FQ(and)45 b(a)i(demonstration)e
(\014le)h(b)m(y)g(including)241 3818 y(the)f(line)f FD(send)j(demonstr)
-5 b(ation)p FQ(.)89 b(If)45 b(y)m(ou)g(prefer,)k(hard)44
b(copies)h(of)h(the)f(informa-)241 3931 y(tion)e(pac)m(k)-5
b(age)46 b(and)e(the)g(bibliograph)m(y)d(are)k(a)m(v)-5
b(ailable)43 b(from)g(the)i(REDUCE)f(sec-)241 4044 y(retary)h(at)h
(RAND,)h(1700)g(Main)d(Street,)50 b(P)-8 b(.O.)46 b(Bo)m(x)g(2138,)51
b(San)m(ta)46 b(Monica,)k(CA)241 4157 y(90407-2138)32
b(\()p FD(r)-5 b(e)g(duc)g(e@r)g(and.or)g(g)p FQ(\).)45
b(Copies)27 b(of)h(the)h(net)m(w)m(ork)g(library)d(are)j(also)f(main-)
241 4270 y(tained)46 b(at)i(other)g(addresses.)90 b(A)m(t)48
b(the)f(time)g(of)h(writing,)h FD(r)-5 b(e)g(duc)g(e-netlib@c)g(an.nl)
241 4383 y FQ(and)41 b FD(r)-5 b(e)g(duc)g(e-netlib@pi.c)g
(c.u-tokyo.ac.jp)48 b FQ(ma)m(y)42 b(also)g(b)s(e)f(used)f(instead)h
(of)h FD(r)-5 b(e)g(duc)g(e-)241 4495 y(netlib@r)g(and.or)g(g)p
FQ(.)241 4645 y(A)30 b(W)-8 b(orld)30 b(Wide)g(W)-8 b(eb)31
b(REDUCE)f(serv)m(er)h(with)e(URL)589 4851 y FH(http://www.rrz.un)o
(i-k)o(oe)o(ln.)o(de)o(/R)o(EDU)o(CE)o(/)1667 5187 y
FQ(225)p eop
%%Page: 226 226
226 225 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(226)1102 b FM(CHAPTER)30 b(19.)72 b(MAINT)-8 b(AINING)31
b(REDUCE)664 555 y FQ(is)f(also)h(supp)s(orted.)40 b(In)31
b(addition)e(to)i(general)g(information)e(ab)s(out)i(REDUCE,)g(this)664
668 y(serv)m(er)22 b(has)g(p)s(oin)m(ters)f(to)h(the)g(net)m(w)m(ork)h
(library)-8 b(,)22 b(the)g(demonstration)f(v)m(ersions,)i(exam-)664
781 y(ples)29 b(of)h(REDUCE)g(programming,)f(a)h(set)g(of)g(man)m
(uals,)g(and)f(the)h(REDUCE)g(online)664 894 y(help)f(system.)664
1057 y(Finally)-8 b(,)29 b(there)h(is)f(a)i(REDUCE)f(electronic)g
(forum)f(accessible)h(from)g(the)g(same)g(net-)664 1170
y(w)m(orks.)70 b(This)38 b(enables)h(REDUCE)h(users)f(to)i(raise)f
(questions)f(and)g(discuss)f(ideas)664 1282 y(concerning)d(the)g(use)f
(and)h(dev)m(elopmen)m(t)g(of)g(REDUCE)g(with)e(other)j(users.)53
b(Addi-)664 1395 y(tions)30 b(and)g(c)m(hanges)h(to)g(the)g(net)m(w)m
(ork)g(library)d(and)i(new)g(releases)h(of)f(REDUCE)h(are)664
1508 y(also)39 b(announced)f(in)g(this)f(forum.)66 b(An)m(y)39
b(user)f(with)f(appropriate)h(electronic)h(mail)664 1621
y(access)h(is)e(encouraged)h(to)h(register)f(for)f(mem)m(b)s(ership)e
(in)i(this)g(forum.)65 b(T)-8 b(o)39 b(do)f(so,)664 1734
y(send)30 b(a)h(message)g(requesting)f(inclusion)d(to)664
1847 y FD(r)-5 b(e)g(duc)g(e-forum-r)g(e)g(quest@r)g(and.or)g(g)p
FQ(.)p eop
%%Page: 227 227
227 226 bop 241 299 a @beginspecial @setspecial @endspecial
1400 x @beginspecial @setspecial @endspecial 1440 1957
a FI(P)-5 b(art)65 b(I)5 b(I)657 2421 y FT(Additional)76
b(REDUCE)956 2671 y(Do)6 b(cumen)-6 b(tation)1667 5187
y FQ(227)p eop
%%Page: 228 228
228 227 bop 664 299 a @beginspecial @setspecial @endspecial
eop
%%Page: 229 229
229 228 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(229)241 555 y(The)40 b(do)s(cumen)m(tation)i(in)d(this)h
(section)i(w)m(as)f(written)g(using)e(to)j(a)g(large)f(part)g(the)241
668 y(L)265 651 y FO(A)304 668 y FQ(T)355 688 y(E)405
668 y(X)31 b(\014les)e(pro)m(vided)g(b)m(y)i(the)f(authors,)h(and)f
(distributed)d(with)i(REDUCE.)i(There)241 781 y(has)44
b(b)s(een)g(extensiv)m(e)h(editing)f(and)g(m)m(uc)m(h)h(rewriting,)h
(so)f(the)g(resp)s(onsibilit)m(y)c(for)241 894 y(this)32
b(part)h(of)g(the)g(man)m(ual)g(rests)g(with)f(the)h(editor,)g(John)g
(Fitc)m(h.)49 b(It)33 b(is)f(hop)s(ed)g(that)241 1007
y(this)d(v)m(ersion)i(of)g(the)g(do)s(cumen)m(tation)f(con)m(tains)h
(su\016cien)m(t)g(information)e(ab)s(out)h(the)241 1120
y(facilities)23 b(a)m(v)-5 b(ailable)24 b(that)i(a)g(user)e(ma)m(y)i(b)
s(e)e(able)h(to)g(progress.)39 b(It)25 b(delib)s(erately)e(a)m(v)m
(oids)241 1233 y(discussions)18 b(of)k(algorithms)e(or)h(adv)-5
b(anced)21 b(use;)k(for)c(these)h(the)f(pac)m(k)-5 b(age)23
b(author's)e(o)m(wn)241 1346 y(do)s(cumen)m(tation)30
b(should)f(b)s(e)h(consulted.)41 b(In)30 b(general)g(the)h(pac)m(k)-5
b(age)33 b(do)s(cumen)m(tation)241 1458 y(will)g(con)m(tain)k(more)g
(examples)f(and)f(in)g(some)i(cases)g(additional)e(facilities)f(suc)m
(h)i(as)241 1571 y(tracing.)p eop
%%Page: 230 230
230 229 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(230)p eop
%%Page: 231 231
231 230 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(20)241 1693 y FT(ALGINT:)74 b(In)-6 b(tegration)78
b(of)241 1942 y(square)f(ro)6 b(ots)1443 2415 y Fx(James)25
b(Da)n(v)n(enp)r(ort)1189 2506 y(Sc)n(ho)r(ol)h(of)g(Mathematical)h
(Sciences)1424 2598 y(Univ)n(ersit)n(y)e(of)h(Bath)1478
2689 y(Bath)g(BA2)g(7A)-6 b(Y)1596 2780 y(England)1225
2902 y(e{mail:)35 b(jhd@maths.bath.ac.uk)241 3146 y FQ(The)i(pac)m(k)-5
b(age)40 b(supplies)35 b(no)j(new)f(functions,)i(but)e(extends)h(the)g
FJ(INT)f FQ(op)s(erator)i(for)241 3259 y(inde\014nite)24
b(in)m(tegration)i(so)h(it)f(can)h(handle)e(a)i(wider)e(range)i(of)g
(expressions)e(in)m(v)m(olving)241 3371 y(square)41 b(ro)s(ots.)73
b(When)41 b(it)g(is)f(loaded)h(the)g(con)m(trolling)f(switc)m(h)h
FJ(ALGINT)e FQ(is)i(turned)241 3484 y(on.)75 b(If)42
b(it)f(is)g(desired)f(to)j(rev)m(ert)g(to)f(the)g(standard)g(in)m
(tegrator,)k(then)41 b(it)h(ma)m(y)g(b)s(e)241 3597 y(turned)33
b(o\013.)55 b(The)34 b(normal)g(in)m(tegrator)h(can)g(deal)g(with)e
(some)i(square)g(ro)s(ots)g(but)f(in)241 3710 y(an)c(unsystematic)g
(fashion.)241 3941 y FH(1:)43 b(load_package)38 b(algint;)241
4140 y(2:)43 b(int\(sqrt\(sqrt\(a)o(^2)o(+x^)o(2\))o(+x\))o(/x)o(,x\))o
(;)1679 4339 y(2)174 b(2)241 4439 y(sqrt\(a\)*atan\(\(sq)o(rt)o(\(a)o
(\)*s)o(qr)o(t\(s)o(qr)o(t\(a)80 b(+)43 b(x)h(\))f(+)g(x\))1156
4638 y(2)174 b(2)851 4738 y(*sqrt\(a)84 b(+)43 b(x)h(\))1810
4937 y(2)174 b(2)1667 5187 y FQ(231)p eop
%%Page: 232 232
232 231 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(232)166 b FM(CHAPTER)29 b(20.)72 b(ALGINT:)31 b(INTEGRA)-8
b(TION)30 b(OF)g(SQUARE)g(R)m(OOTS)1318 555 y FH(-)43
b(sqrt\(a\)*sqrt\(sqrt)o(\(a)80 b(+)44 b(x)f(\))g(+)g(x\)*a)2233
754 y(2)174 b(2)1318 854 y(-)43 b(sqrt\(a\)*sqrt\(sqrt)o(\(a)80
b(+)44 b(x)f(\))g(+)g(x\)*x\)/\(2)p eop
%%Page: 233 233
233 232 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(233)1025 555 y FH(2)784 b(2)174 b(2)938 655
y(*a)43 b(\)\))g(+)g(2*sqrt\(sqrt\(a)82 b(+)43 b(x)g(\))g(+)g(x\))1374
854 y(2)174 b(2)284 954 y(+)44 b(sqrt\(a\)*log\(sqr)o(t\()o(sqr)o(t\()o
(a)81 b(+)43 b(x)h(\))f(+)g(x\))g(-)g(sqrt\(a\)\))1374
1153 y(2)174 b(2)284 1253 y(-)44 b(sqrt\(a\)*log\(sqr)o(t\()o(sqr)o
(t\()o(a)81 b(+)43 b(x)h(\))f(+)g(x\))g(+)g(sqrt\(a\)\))241
1452 y(3:)g(off)f(algint;)241 1651 y(4:)h(int\(sqrt\(sqrt\(a)o(^2)o
(+x^)o(2\))o(+x\))o(/x)o(,x\))o(;)938 1850 y(2)174 b(2)459
1950 y(sqrt\(sqrt\(a)82 b(+)43 b(x)h(\))f(+)g(x\))241
2050 y(int\(------------)o(--)o(--)o(---)o(--)o(---)o(-,)o(x\))938
2149 y(x)241 2493 y FQ(There)29 b(is)g(also)h(a)g(switc)m(h)f
FJ(TRA)p FQ(,)g(whic)m(h)g(ma)m(y)h(b)s(e)f(set)i(on)e(to)i(pro)m(vide)
e(detailed)g(tracing)241 2606 y(of)h(the)h(algorithm)e(used.)40
b(This)29 b(is)g(not)i(recommended)f(for)g(casual)g(use.)p
eop
%%Page: 234 234
234 233 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(234)166 b FM(CHAPTER)29 b(20.)72 b(ALGINT:)31 b(INTEGRA)-8
b(TION)30 b(OF)g(SQUARE)g(R)m(OOTS)p eop
%%Page: 235 235
235 234 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(21)241 1693 y FT(APPL)-19 b(YSYM:)74 b(In\014nitesimal)241
1942 y(symmetries)h(of)j(di\013eren)-6 b(tial)241 2191
y(equations)1510 2673 y Fx(Thomas)26 b(W)-6 b(olf)580
2764 y(Sc)n(ho)r(ol)27 b(of)f(Mathematical)h(Sciences,)f(Queen)f(Mary)h
(and)f(W)-6 b(est\014eld)26 b(College)1380 2856 y(Univ)n(ersit)n(y)f
(of)h(London)1306 2947 y(London)f(E1)h(4NS,)g(England)1161
3068 y(e{mail:)35 b(T.W)-6 b(olf@maths.qm)n(w.ac.uk)241
3305 y FQ(The)26 b(in)m(v)m(estigation)g(of)g(in\014nitesimal)d
(symmetries)i(of)i(di\013eren)m(tial)e(equations)h(\(DEs\))241
3418 y(with)33 b(computer)i(algebra)g(programs)g(attracted)i
(considerable)c(atten)m(tion)j(o)m(v)m(er)g(the)241 3531
y(last)h(y)m(ears.)64 b(The)38 b(pac)m(k)-5 b(age)40
b FJ(APPLYSYM)35 b FQ(concen)m(trates)40 b(on)e(the)g(implemen)m
(tation)e(of)241 3644 y(applying)30 b(symmetries)i(for)h(calculating)e
(similarit)m(y)f(v)-5 b(ariables)32 b(to)h(p)s(erform)e(a)i(p)s(oin)m
(t)241 3757 y(transformation)c(whic)m(h)f(lo)m(w)m(ers)i(the)g(order)f
(of)h(an)g(ODE)g(or)f(e\013ectiv)m(ely)i(reduces)e(the)241
3870 y(n)m(um)m(b)s(er)e(of)h(explicitly)e(o)s(ccuring)h(indep)s(enden)
m(t)f(v)-5 b(ariables)27 b(of)h(a)h(PDE\(-system\))g(and)241
3983 y(for)37 b(generalising)f(giv)m(en)h(sp)s(ecial)g(solutions)e(of)j
(ODEs/PDEs)g(with)e(new)h(constan)m(t)241 4096 y(parameters.)241
4259 y(A)e(prerequisite)e(for)i(applying)e(symmetries)h(is)g(the)h
(solution)f(of)h(\014rst)g(order)f(quasi-)241 4371 y(linear)27
b(PDEs.)40 b(The)29 b(corresp)s(onding)e(program)i FJ(QUASILINPDE)c
FQ(can)30 b(as)f(w)m(ell)f(b)s(e)g(used)241 4484 y(without)43
b FJ(APPLYSYM)f FQ(for)h(solving)g(\014rst)g(order)h(PDEs)g(whic)m(h)f
(are)h(linear)f(in)f(their)241 4597 y(\014rst)33 b(order)g(deriv)-5
b(ativ)m(e)33 b(and)g(otherwise)g(at)h(most)g(rationally)e(non-linear.)
49 b(The)33 b(fol-)241 4710 y(lo)m(wing)41 b(t)m(w)m(o)i(PDEs)f(are)h
(equations)f(\(2.40\))i(and)d(\(3.12\))k(tak)m(en)e(from)e(E.)i(Kamk)m
(e,)241 4823 y("Lo)s(esungsmetho)s(den)30 b(und)g(Lo)s(esungen)g(v)m
(on)h(Di\013eren)m(tial-)g(gleic)m(h)m(ungen,)g(P)m(artielle)241
4936 y(Di\013eren)m(tialgleic)m(h)m(ungen)e(erster)i(Ordn)m(ung",)e
(B.G.)i(T)-8 b(eubner,)30 b(Stuttgart)h(\(1979\).)1667
5187 y(235)p eop
%%Page: 236 236
236 235 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(236)243 b FM(CHAPTER)29 b(21.)72 b(APPL)-8 b(YSYM:)31
b(INFINITESIMAL)f(SYMMETRIES)664 555 y FH(-----------------)o(--)o(--)o
(---)37 b(Equation)j(2.40)i(----------------)o(---)o(--)o(---)2277
754 y(2)610 b(3)261 b(4)664 854 y(The)43 b(quasilinear)c(PDE:)85
b(0)43 b(=)g(df\(z,x\)*x*y)83 b(+)43 b(2*df\(z,y\)*y)83
b(-)43 b(2*x)926 1053 y(2)435 b(2)87 b(2)708 1153 y(+)43
b(4*x)f(*y*z)g(-)h(2*y)g(*z)f(.)664 1253 y(The)h(equivalent)c
(characteristic)f(system:)1274 1452 y(3)174 b(4)261 b(2)349
b(2)86 b(2)664 1551 y(0=2*\(df\(z,y\)*y)c(-)43 b(x)86
b(+)44 b(2*x)e(*y*z)g(-)h(y)g(*z)g(\))795 1751 y(2)664
1850 y(0=y)g(*\(2*df\(x,y\)*y)38 b(-)43 b(x\))664 2050
y(for)g(the)f(functions:)d(x\(y\))86 b(z\(y\))f(.)664
2149 y(The)43 b(general)d(solution)g(of)j(the)g(PDE)f(is)h(given)e
(through)1362 2348 y(4)479 b(2)348 b(2)1013 2448 y(log\(y\)*x)84
b(-)43 b(log\(y\)*x)d(*y*z)i(-)h(y)g(*z)130 b(sqrt\(y\)*x)664
2548 y(0)43 b(=)h(ff\(------------)o(--)o(---)o(--)o(---)o(--)o(---)o
(--)o(--)o(---)o(,-)o(---)o(--)o(--)o(---)o(\))1492 2647
y(4)174 b(2)959 b(y)1449 2747 y(x)86 b(-)44 b(x)f(*y*z)664
2946 y(with)f(arbitrary)e(function)g(ff\(..\).)664 3145
y(-----------------)o(--)o(--)o(---)d(Equation)j(3.12)i
(----------------)o(---)o(--)o(---)664 3345 y(The)h(quasilinear)c(PDE:)
85 b(0)43 b(=)g(df\(w,x\)*x)d(+)j(df\(w,y\)*a*x)c(+)44
b(df\(w,y\)*b*y)708 3544 y(+)f(df\(w,z\)*c*x)c(+)k(df\(w,z\)*d*y)c(+)k
(df\(w,z\)*f*z.)664 3644 y(The)g(equivalent)c(characteristic)f(system:)
664 3843 y(0=df\(w,x\)*x)664 4142 y(0=df\(z,x\)*x)h(-)k(c*x)g(-)g(d*y)f
(-)h(f*z)664 4441 y(0=df\(y,x\)*x)c(-)k(a*x)g(-)g(b*y)664
4640 y(for)g(the)f(functions:)d(z\(x\))86 b(y\(x\))f(w\(x\))h(.)664
4740 y(The)43 b(general)d(solution)g(of)j(the)g(PDE)f(is)h(given)e
(through)1013 4939 y(a*x)h(+)h(b*y)g(-)g(y)p eop
%%Page: 237 237
237 236 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(237)241 555 y FH(0)43 b(=)g(ff\(-------------)o(--,)o(\()37
b(-)44 b(a*d*x)d(+)i(b*c*x)f(+)h(b*f*z)e(-)j(b*z)e(-)h(c*f*x)720
655 y(b)261 b(b)677 754 y(x)43 b(*b)g(-)g(x)1461 954
y(2)523 b(f)348 b(f)261 b(f)87 b(2)174 b(f)720 1053 y(-)43
b(d*f*y)f(+)h(d*y)f(-)i(f)f(*z)g(+)g(f*z\)/\(x)d(*b*f)i(-)h(x)h(*b)e(-)
i(x)f(*f)86 b(+)43 b(x)g(*f\))546 1253 y(,w\))241 1452
y(with)f(arbitrary)e(function)g(ff\(..\).)241 1696 y
FQ(The)45 b(program)h FJ(DETRAFO)d FQ(can)k(b)s(e)e(used)g(to)h(p)s
(erform)f(p)s(oin)m(t)f(transformations)h(of)241 1809
y(ODEs/PDEs)30 b(\(and)h(-systems\).)241 1972 y(F)-8
b(or)44 b(detailed)e(explanations)f(the)j(user)e(is)g(referred)g(to)i
(the)f(pap)s(er)f FD(Pr)-5 b(o)g(gr)g(ams)47 b(for)241
2084 y(Applying)d(Symmetries)h(of)f(PDEs)e FQ(b)m(y)g(Thomas)h(W)-8
b(olf,)46 b(supplied)39 b(as)k(part)g(of)f(the)241 2197
y(Reduce)31 b(do)s(cumen)m(tation)h(as)g FJ(applysym.tex)c
FQ(and)j(published)d(in)i(the)i(Pro)s(ceedings)241 2310
y(of)e(ISSA)m(C'95)h(-)g(7/95)h(Mon)m(treal,)f(Canada,)g(A)m(CM)g
(Press)e(\(1995\).)p eop
%%Page: 238 238
238 237 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(238)243 b FM(CHAPTER)29 b(21.)72 b(APPL)-8 b(YSYM:)31
b(INFINITESIMAL)f(SYMMETRIES)p eop
%%Page: 239 239
239 238 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(22)241 1693 y FT(ARNUM:)76 b(An)h(algebraic)241 1942
y(n)-6 b(um)g(b)6 b(er)77 b(pac)-6 b(k)-13 b(age)1426
2424 y Fx(Eb)r(erhard)26 b(Sc)n(hr)r(\177)-41 b(ufer)1417
2515 y(Institute)25 b(SCAI.Alg)548 2607 y(German)g(National)i(Researc)n
(h)e(Cen)n(ter)h(for)h(Information)e(T)-6 b(ec)n(hnology)26
b(\(GMD\))1392 2698 y(Sc)n(hloss)g(Birlingho)n(v)n(en)1144
2789 y(D-53754)h(Sankt)e(Augustin,)g(German)n(y)1297
2911 y(e{mail:)35 b(sc)n(hruefer@gmd.de)241 3155 y FQ(Algebraic)28
b(n)m(um)m(b)s(ers)g(are)h(the)g(solutions)e(of)i(an)g(irreducible)d(p)
s(olynomial)g(o)m(v)m(er)k(some)241 3268 y(ground)43
b(domain.)80 b(The)44 b(algebraic)f(n)m(um)m(b)s(er)g
FL(i)h FQ(\(imaginary)f(unit\),)k(for)d(example,)241
3380 y(w)m(ould)d(b)s(e)g(de\014ned)g(b)m(y)h(the)h(p)s(olynomial)c
FL(i)1797 3347 y FO(2)1865 3380 y FQ(+)28 b(1.)76 b(The)42
b(arithmetic)f(of)i(algebraic)241 3493 y(n)m(um)m(b)s(er)38
b FL(s)i FQ(can)g(b)s(e)f(view)m(ed)h(as)g(a)g(p)s(olynomial)d
(arithmetic)i(mo)s(dulo)f(the)i(de\014ning)241 3606 y(p)s(olynomial.)
241 3769 y(The)23 b FJ(ARNUM)f FQ(pac)m(k)-5 b(age)26
b(pro)m(vides)d(a)h(mec)m(hanism)f(to)i(de\014ne)e(other)h(algebraic)g
(n)m(um)m(b)s(ers,)241 3882 y(and)30 b(compute)g(with)f(them.)241
4037 y @beginspecial @setspecial @endspecial 181 x FE(22.1)135
b(DEFPOL)-11 b(Y)241 4471 y FJ(DEFPOLY)21 b FQ(tak)m(es)k(as)e(its)g
(argumen)m(t)h(the)g(de\014ning)d(p)s(olynomial)g(for)i(an)g(algebraic)
g(n)m(um-)241 4584 y(b)s(er,)40 b(or)f(a)h(n)m(um)m(b)s(er)e(of)h
(de\014ning)e(p)s(olynomials)f(for)j(di\013eren)m(t)g(algebraic)g(n)m
(um)m(b)s(ers,)241 4697 y(and)32 b(arranges)h(that)g(arithmetic)f(with)
f(the)i(new)f(sym)m(b)s(ol\(s\))g(is)g(p)s(erformed)f(relativ)m(e)241
4810 y(to)g(these)g(p)s(olynomials.)1667 5187 y(239)p
eop
%%Page: 240 240
240 239 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(240)117 b FM(CHAPTER)29 b(22.)72 b(ARNUM:)31 b(AN)g(ALGEBRAIC)g
(NUMBER)g(P)-8 b(A)m(CKA)m(GE)882 555 y FH(load_package)39
b(arnum;)882 754 y(defpoly)i(sqrt2**2-2;)882 954 y(1/\(sqrt2+1\);)882
1153 y(SQRT2)h(-)h(1)882 1352 y(\(x**2+2*sqrt2*x+)o(2\)/)o(\(x)o(+sq)o
(rt)o(2\);)882 1551 y(X)g(+)g(SQRT2)882 1751 y(on)g(gcd;)882
1950 y(\(x**3+\(sqrt2-2\)*)o(x**)o(2-)o(\(2*)o(sq)o(rt2)o(+3)o(\)*)o
(x-3)o(*s)o(qrt)o(2\))o(/\()o(x**)o(2-)o(2\);)969 2149
y(2)926 2249 y(X)86 b(-)44 b(2*X)e(-)h(3)882 2348 y(--------------)969
2448 y(X)g(-)h(SQRT2)882 2647 y(off)e(gcd;)882 2847 y
(sqrt\(x**2-2*sqrt)o(2*x)o(*y)o(+2*)o(y*)o(*2\))o(;)882
3046 y(ABS\(X)g(-)h(SQRT2*Y\))664 3290 y FQ(The)30 b(follo)m(wing)f
(example)h(in)m(tro)s(duces)f(b)s(oth)2246 3215 y FP(p)p
2322 3215 46 4 v 75 x FQ(2)h(and)g(5)2629 3227 y Fy(1)p
2629 3239 31 4 v 2629 3280 a(3)2674 3290 y FQ(:)795 3521
y FH(defpoly)41 b(sqrt2**2-2,cbrt)o(5**)o(3-)o(5;)795
3720 y(***)h(defining)f(polynomial)e(for)j(primitive)e(element:)882
3919 y(6)305 b(4)348 b(3)g(2)795 4019 y(A1)86 b(-)43
b(6*A1)86 b(-)43 b(10*A1)85 b(+)43 b(12*A1)86 b(-)43
b(60*A1)e(+)i(17)795 4218 y(sqrt2;)1231 4417 y(5)566
b(4)610 b(3)g(2)795 4517 y(48/1187*A1)83 b(+)43 b(45/1187*A1)83
b(-)43 b(320/1187*A1)83 b(-)43 b(780/1187*A1)83 b(+)795
4816 y(735/1187*A1)39 b(-)k(1820/1187)p eop
%%Page: 241 241
241 240 bop 241 299 a @beginspecial @setspecial @endspecial
FM(22.2.)72 b(SPLIT)p 772 299 28 4 v 32 w(FIELD)2014
b FQ(241)372 555 y FH(sqrt2**2;)372 754 y(2)241 891 y
@beginspecial @setspecial @endspecial 200 x FE(22.2)135
b(SPLIT)p 1014 1091 41 4 v 48 w(FIELD)241 1343 y FQ(The)27
b(function)g FJ(SPLIT)p 1025 1343 29 4 v 33 w(FIELD)g
FQ(calculates)h(a)g(primitiv)m(e)e(elemen)m(t)i(of)h(minimal)c(degree)
241 1456 y(for)30 b(whic)m(h)f(a)i(giv)m(en)f(p)s(olynomial)e(splits)g
(in)m(to)j(linear)d(factors.)372 1687 y FH(split_field\(x**)o(3-)o(3*x)
o(+7)o(\);)372 1886 y(***)42 b(Splitting)e(field)h(is)i(generated)d
(by:)459 2086 y(6)348 b(4)g(2)372 2185 y(A5)86 b(-)43
b(18*A5)85 b(+)43 b(81*A5)85 b(+)44 b(1215)764 2584 y(4)435
b(2)372 2683 y({1/126*A5)83 b(-)43 b(5/42*A5)84 b(-)44
b(1/2*A5)d(+)i(2/7,)851 2982 y(4)435 b(2)415 3082 y(-)43
b(\(1/63*A5)84 b(-)43 b(5/21*A5)85 b(+)43 b(4/7\),)720
3381 y(4)436 b(2)372 3480 y(1/126*A5)83 b(-)44 b(5/42*A5)84
b(+)43 b(1/2*A5)e(+)i(2/7})372 3779 y(for)f(each)g(j)h(in)g(ws)f
(product)f(\(x-j\);)415 3979 y(3)372 4078 y(X)86 b(-)43
b(3*X)g(+)g(7)p eop
%%Page: 242 242
242 241 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(242)117 b FM(CHAPTER)29 b(22.)72 b(ARNUM:)31 b(AN)g(ALGEBRAIC)g
(NUMBER)g(P)-8 b(A)m(CKA)m(GE)p eop
%%Page: 243 243
243 242 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(23)241 1693 y FT(ASSIST:)76 b(V)-19 b(arious)76 b(Useful)241
1942 y(Utilities)1453 2415 y Fx(Hub)r(ert)25 b(Caprasse)950
2506 y(D)n(\023)-36 b(epartemen)n(t)24 b(d'Astronomie)h(et)h(d'Astroph)
n(ysique)1075 2598 y(Institut)f(de)h(Ph)n(ysique,)f(B{5,)i(Sart)f
(Tilman)1285 2689 y(B{4000)i(LIEGE)e(1,)h(Belgium)1199
2810 y(e{mail:)35 b(caprasse@vm1.ulg.ac.b)r(e)241 3054
y FQ(The)30 b FJ(ASSIST)e FQ(pac)m(k)-5 b(age)33 b(pro)m(vides)c(a)i(n)
m(um)m(b)s(er)e(of)i(general)f(purp)s(ose)f(functions)g(whic)m(h)241
3167 y(adapt)d(REDUCE)h(to)g(v)-5 b(arious)25 b(calculational)h
(strategies.)40 b(All)25 b(the)i(examples)e(in)h(this)241
3280 y(section)k(require)f(the)i FJ(ASSIST)e FQ(pac)m(k)-5
b(age)32 b(to)f(b)s(e)f(loaded.)241 3435 y @beginspecial
@setspecial @endspecial 181 x FE(23.1)135 b(Con)l(trol)46
b(of)g(Switc)l(hes)241 3869 y FQ(The)27 b(t)m(w)m(o)i(functions)d
FJ(SWITCHES,)45 b(SWITCHORG)53 b FQ(ha)m(v)m(e)29 b(no)e(argumen)m(t)h
(and)f(are)h(called)241 3982 y(as)i(if)g(they)g(w)m(ere)h(mere)g(iden)m
(ti\014ers.)241 4145 y FJ(SWITCHES)d FQ(displa)m(ys)i(the)h(curren)m(t)
f(status)i(of)f(the)g(most)g(often)h(used)e(switc)m(hes)g(when)241
4258 y(manipulating)h(rational)h(functions;)i FJ(EXP)p
FQ(,)f FJ(DIV)p FQ(,)g FJ(MCD)p FQ(,)g FJ(GCD)p FQ(,)g
FJ(ALLFAC)p FQ(,)f FJ(INTSTR)p FQ(,)g FJ(RAT)p FQ(,)241
4371 y FJ(RATIONAL)p FQ(,)f FJ(FACTOR)p FQ(.)h(The)i(switc)m(h)f
FJ(DISTRIBUTE)d FQ(whic)m(h)j(con)m(trols)h(the)f(handling)e(of)241
4483 y(distributed)c(p)s(olynomials)h(is)h(included)f(as)i(w)m(ell)g
(\(see)h(section)g @beginspecial @setspecial @endspecial(23.8)q(\).)241
4646 y FJ(SWITCHORG)37 b FQ(resets)j(\(almost\))g FD(al)5
b(l)41 b FQ(switc)m(hes)e(in)f(the)i(status)g(they)g(ha)m(v)m(e)h(when)
e FN(en-)241 4759 y(tering)50 b FQ(in)m(to)g(REDUCE.)g(\(See)h(also)f
FJ(RESET)p FQ(,)f(c)m(hapter)i @beginspecial @setspecial
@endspecial(68)q(\).)101 b(The)49 b(new)h(switc)m(h)241
4872 y FJ(DISTRIBUTE)27 b FQ(facilitates)j(c)m(hanging)h(p)s
(olynomials)c(to)k(a)g(distributed)d(form.)1667 5187
y(243)p eop
%%Page: 244 244
244 243 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(244)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)664 464 y @beginspecial
@setspecial @endspecial 91 x FE(23.2)136 b(Manipulation)45
b(of)h(the)f(List)g(Structure)664 808 y FQ(F)-8 b(unctions)23
b(for)h(list)e(manipulation)f(are)j(pro)m(vided)f(and)g(are)h
(generalised)f(to)h(deal)f(with)664 921 y(the)31 b(new)f(structure)g
FJ(BAG)p FQ(.)795 1122 y(i.)45 b(Generation)34 b(of)g(a)g(list)e(of)h
(length)g FL(n)g FQ(with)f(its)h(elemen)m(ts)h(initialised)29
b(to)35 b(0)f(and)891 1222 y(also)d(to)g(app)s(end)e(to)i(a)f(list)f
FL(l)k FQ(su\016cien)m(t)d(zeros)h(to)g(mak)m(e)g(it)f(of)g(length)g
FL(n)p FQ(:)1240 1406 y FH(MKLIST)41 b(n;)435 b(\045\045)43
b(n)g(is)g(an)g(INTEGER)1240 1506 y(MKLIST\(l,n\);)300
b(\045\045)43 b(l)g(is)g(List-like,)c(n)44 b(is)e(an)h(INTEGER)770
1690 y FQ(ii.)h(Generation)28 b(of)g(a)g(list)e(of)i(sublists)d(of)i
(length)g FL(n)g FQ(con)m(taining)g FL(p)g FQ(elemen)m(ts)h(equal)891
1790 y(to)k(0)e(and)g FL(n)20 b FP(\000)g FL(p)30 b FQ(elemen)m(ts)h
(equal)e(to)j(1.)1240 1974 y FH(SEQUENCES)40 b(2;)j(==>)f
({{0,0},{0,1},{1,)o(0},)o({1)o(,1})o(})891 2159 y FQ(The)25
b(function)g FJ(KERNLIST)e FQ(transforms)i(an)m(y)h(pre\014x)e(of)i(a)g
(k)m(ernel)f(in)m(to)g(the)h FJ(list)891 2258 y FQ(pre\014x.)40
b(The)30 b(output)g(list)f(is)g(a)i(cop)m(y:)1240 2443
y FH(KERNLIST)40 b(\(<kernel>\);)f(==>)k({<kernel)d(arguments>})891
2627 y FQ(There)f(are)h(four)f(functions)f(to)i(delete)g(elemen)m(ts)f
(from)g(lists.)67 b(The)39 b FJ(DELETE)891 2727 y FQ(function)44
b(deletes)h(the)g(\014rst)f(o)s(ccurrence)h(of)g(its)f(\014rst)g
(argumen)m(t)h(from)g(the)891 2826 y(second,)29 b(while)d
FJ(REMOVE)g FQ(remo)m(v)m(es)j(a)g(n)m(um)m(b)s(ered)d(elemen)m(t.)40
b FJ(DELETE)p 3258 2826 29 4 v 33 w(ALL)27 b FQ(elim-)891
2926 y(inates)39 b(from)g(a)h(list)d FD(al)5 b(l)40 b
FQ(elemen)m(ts)g(equal)e(to)i(its)f(\014rst)f(argumen)m(t.)68
b FJ(DELPAIR)891 3026 y FQ(acts)40 b(on)e(list)e(of)j(pairs)d(and)i
(eliminates)e(from)i(it)g(the)g FD(\014rst)h FQ(pair)e(whose)h(\014rst)
891 3125 y(elemen)m(t)31 b(is)f(equal)g(to)h(its)f(\014rst)f(argumen)m
(t:)1240 3310 y FH(DELETE\(x,{a,b,x,f)o(,x)o(}\))o(;)38
b(==>)k({a,b,f,x})1240 3409 y(REMOVE\({a,b,x,f,x)o(},)o(3\))o(;)c(==>)k
({a,b,f,x})1240 3509 y(DELETE_ALL\(x,{a,b)o(,x)o(,f)o(,x})o(\);)37
b(==>)42 b({a,b,f})1240 3609 y(DELPAIR\(a,{{a,1},)o({b)o(,2)o(},{)o(c,)
o(3}})o(;)37 b(==>)43 b({{b,2},{c,3}})748 3793 y FQ(iv.)h(The)28
b(function)f FJ(ELMULT)g FQ(returns)g(an)i FD(inte)-5
b(ger)28 b FQ(whic)m(h)f(is)h(the)h FD(multiplicity)g
FQ(of)g(its)891 3893 y(\014rst)j(argumen)m(t)h(in)e(the)h(list)g(whic)m
(h)f(is)g(its)h(second)g(argumen)m(t.)47 b(The)32 b(function)891
3992 y FJ(FREQUENCY)40 b FQ(giv)m(es)j(a)g(list)e(of)i(pairs)e(whose)i
(second)f(elemen)m(t)h(indicates)f(the)891 4092 y(n)m(um)m(b)s(er)30
b(of)g(times)g(the)h(\014rst)e(elemen)m(t)i(app)s(ears)f(inside)e(the)i
(original)f(list:)1240 4276 y FH(ELMULT\(x,{a,b,x,f)o(,x)o(}\))37
b(==>)42 b(2)1240 4376 y(FREQUENCY\({a,b,c,)o(a})o(\);)37
b(==>)42 b({{a,2},{b,1},{c,1)o(}})773 4560 y FQ(v.)j(The)35
b(function)g FJ(INSERT)e FQ(inserts)i(a)h(giv)m(en)f(ob)5
b(ject)37 b(in)m(to)e(a)h(list)e(at)i(the)g(w)m(an)m(ted)891
4660 y(p)s(osition.)60 b(The)37 b(functions)f FJ(INSERT)p
2181 4660 V 32 w(KEEP)p 2405 4660 V 34 w(ORDER)g FQ(and)g
FJ(MERGE)p 3138 4660 V 33 w(LIST)g FQ(k)m(eep)j(a)891
4759 y(giv)m(en)22 b(ordering)d(when)h(inserting)g(one)h(elemen)m(t)g
(inside)e(a)j(list)d(or)i(when)g(merging)891 4859 y(t)m(w)m(o)26
b(lists.)38 b(Both)25 b(ha)m(v)m(e)h(3)f(argumen)m(ts.)39
b(The)24 b(last)g(one)h(is)f(the)g(name)h(of)g(a)g(binary)891
4959 y(b)s(o)s(olean)30 b(ordering)f(function:)p eop
%%Page: 245 245
245 244 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.2.)72 b(MANIPULA)-8 b(TION)31 b(OF)f(THE)g(LIST)f(STR)m(UCTURE)
627 b FQ(245)817 555 y FH(ll:={1,2,3}$)817 655 y(INSERT\(x,ll,3\);)37
b(==>)42 b({1,2,x,3})817 754 y(INSERT_KEEP_ORDE)o(R\()o(5,)o(ll,)o(le)o
(ssp)o(\);)37 b(==>)42 b({1,2,3,5})817 854 y(MERGE_LIST\(ll,ll)o(,l)o
(es)o(sp\))o(;)37 b(==>)43 b({1,1,2,2,3,3})324 1075 y
FQ(vi.)i(Algebraic)38 b(lists)g(can)h(b)s(e)f(read)h(from)f(righ)m(t)h
(to)g(left)g(or)g(left)g(to)g(righ)m(t.)66 b(They)468
1187 y FD(lo)-5 b(ok)32 b FQ(symmetrical.)42 b(It)31
b(is)f(sometimes)h(con)m(v)m(enien)m(t)h(to)g(ha)m(v)m(e)g(functions)e
(whic)m(h)468 1300 y(re\015ect)k(this.)50 b(So,)35 b(as)f(w)m(ell)f(as)
h FJ(FIRST)e FQ(and)h FJ(REST)g FQ(this)g(pac)m(k)-5
b(age)36 b(pro)m(vides)c(the)468 1413 y(functions)21
b FJ(LAST)g FQ(and)g FJ(BELAST)p FQ(.)g FJ(LAST)g FQ(giv)m(es)i(the)f
(last)g(elemen)m(t)h(of)f(the)h(list)d(while)468 1526
y FJ(BELAST)29 b FQ(giv)m(es)h(the)h(list)e FD(without)j
FQ(its)d(last)i(elemen)m(t.)468 1639 y(V)-8 b(arious)49
b(additional)f(functions)g(are)j(pro)m(vided.)97 b(They)49
b(are:)80 b FJ(CONS)p FQ(,)49 b FJ(\(.\))p FQ(,)468 1752
y FJ(POSITION)p FQ(,)43 b FJ(DEPTH)p FQ(,)g FJ(PAIR)p
FQ(,)h FJ(APPENDN)p FQ(,)e FJ(REPFIRST)p FQ(,)h FJ(REPLAST)131
b FQ(The)44 b(tok)m(en)468 1865 y(\\dot")f(needs)f(a)g(sp)s(ecial)e
(commen)m(t.)77 b(It)42 b(corresp)s(onds)e(to)j(sev)m(eral)f
(di\013eren)m(t)468 1978 y(op)s(erations.)241 2053 y
@beginspecial @setspecial @endspecial 552 2151 a(1.)k(If)29
b(one)i(applies)d(it)h(on)h(the)g(left)f(of)h(a)h(list,)d(it)i(acts)h
(as)f(the)g FJ(CONS)f FQ(function.)668 2250 y(Note)j(ho)m(w)m(ev)m(er)f
(that)g(blank)e(spaces)i(are)g(required)e(around)g(the)h(dot:)1017
2402 y FH(4)43 b(.)g({a,b};)e(==>)i({4,a,b})241 2450
y @beginspecial @setspecial @endspecial 552 2554 a FQ(2.)j(If)36
b(one)h(applies)d(it)i(on)g(the)h(righ)m(t)f(of)g(a)h(list,)g(it)f(has)
g(the)h(same)f(e\013ect)i(as)668 2654 y(the)31 b FJ(PART)e
FQ(op)s(erator:)1060 2806 y FH({a,b,c}.2;)40 b(==>)i(b)241
2854 y @beginspecial @setspecial @endspecial 552 2971
a FQ(3.)k(If)29 b(one)g(applies)e(it)h(on)h(4{dimensional)e(v)m
(ectors,)k(it)d(acts)i(as)g(in)d(the)i(HEP-)668 3084
y(HYS)h(pac)m(k)-5 b(age)33 b(\(c)m(hapter)e @beginspecial
@setspecial @endspecial(17.1)468 3257 y FJ(POSITION)25
b FQ(returns)i(the)g(p)s(osition)f(of)h(the)h(\014rst)f(o)s(ccurrence)g
(of)h(x)f(in)g(a)h(list)e(or)h(a)468 3357 y(message)i(if)d(x)i(is)f
(not)g(presen)m(t)h(in)e(it.)40 b FJ(DEPTH)26 b FQ(returns)g(an)i
FD(inte)-5 b(ger)28 b FQ(equal)f(to)h(the)468 3456 y(n)m(um)m(b)s(er)g
(of)h(lev)m(els)f(where)h(a)g(list)e(is)h(found)g(if)g(and)g(only)g(if)
g(this)g(n)m(um)m(b)s(er)f(is)h(the)468 3556 y FD(same)g
FQ(for)e(eac)m(h)i(elemen)m(t)f(of)g(the)g(list)f(otherwise)g(it)g
(returns)g(a)h(message)h(telling)468 3656 y(the)33 b(user)f(that)i
(list)d(is)h(of)h FD(une)-5 b(qual)35 b(depth)p FQ(.)49
b FJ(PAIR)32 b FQ(has)g(t)m(w)m(o)j(argumen)m(ts)e(whic)m(h)468
3755 y(m)m(ust)24 b(b)s(e)f(lists.)37 b(It)25 b(returns)d(a)j(list)d
(whose)i(elemen)m(ts)h(are)f FD(lists)j(of)g(two)h(elements.)468
3855 y FQ(The)35 b FL(n)715 3822 y FF(th)821 3855 y FQ(sublist)e(con)m
(tains)j(the)f FL(n)1693 3822 y FF(th)1799 3855 y FQ(elemen)m(t)h(of)g
(the)g(\014rst)f(list)f(and)h(the)h FL(n)3160 3822 y
FF(th)468 3955 y FQ(elemen)m(t)e(of)h(the)f(second)g(list.)50
b(These)33 b(t)m(yp)s(es)h(of)g(lists)f(are)h(called)f
FD(asso)-5 b(ciation)468 4054 y(lists)33 b FQ(or)f(ALISTS)f(in)f(the)j
(follo)m(wing.)44 b FJ(APPENDN)31 b FQ(has)h FD(any)g
FQ(n)m(um)m(b)s(er)f(of)i(lists)d(as)468 4154 y(argumen)m(ts,)f(and)f
(app)s(ends)f(them)h(all.)39 b FJ(REPFIRST)27 b FQ(has)h(t)m(w)m(o)i
(argumen)m(ts.)40 b(The)468 4253 y(\014rst)d(one)h(is)e(an)m(y)i(ob)5
b(ject,)40 b(the)e(second)g(one)f(is)g(a)h(list.)61 b(It)37
b(replaces)h(the)f(\014rst)468 4353 y(elemen)m(t)30 b(of)g(the)g(list)f
(b)m(y)g(the)h(ob)5 b(ject.)41 b FJ(REPREST)28 b FQ(has)i(also)f(t)m(w)
m(o)j(argumen)m(ts.)40 b(It)468 4453 y(replaces)32 b(the)g(rest)g(of)g
(the)g(list)e(b)m(y)i(its)g(\014rst)f(argumen)m(t)h(and)f(returns)g
(the)h(new)468 4552 y(list)d(without)g(destro)m(ying)i(the)f(original)f
(list.)817 4759 y FH(ll:={{a,b}}$)817 4859 y(ll1:=ll.1;)737
b(==>)42 b({a,b})817 4959 y(ll.0;)957 b(==>)42 b(list)p
eop
%%Page: 246 246
246 245 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(246)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)1240 555 y FH(0)43 b(.)g(ll;)871
b(==>)42 b({0,{a,b}})1240 655 y(DEPTH)g(ll;)783 b(==>)42
b(2)1240 754 y(PAIR\(ll1,ll1\);)561 b(==>)42 b({{a,a},{b,b}})1240
854 y(REPFIRST{new,ll\);)429 b(==>)42 b({new})1240 954
y(ll3:=APPENDN\(ll1,)o(ll)o(1,)o(ll1)o(\);)37 b(==>)42
b({a,b,a,b,a,b})1240 1053 y(POSITION\(b,ll3\);)473 b(==>)42
b(2)1240 1153 y(REPREST\(new,ll3\);)429 b(==>)42 b({a,new})722
1365 y FQ(vii.)i(The)57 b(functions)e FJ(ASFIRST)p FQ(,)g
FJ(ASLAST)p FQ(,)g FJ(ASREST)p FQ(,)g FJ(ASFLIST)p FQ(,)g
FJ(ASSLIST)p FQ(,)g(and)891 1464 y FJ(RESTASLIST)34 b
FQ(act)k(on)f(ALISTS)e(or)i(on)f(list)g(of)h(lists)e(of)i(w)m(ell)e
(de\014ned)h(depths)891 1564 y(and)d(ha)m(v)m(e)h(t)m(w)m(o)g(argumen)m
(ts.)49 b(The)33 b(\014rst)f(is)g(the)h(k)m(ey)h(ob)5
b(ject)34 b(whic)m(h)d(one)i(seeks)891 1664 y(to)d(asso)s(ciate)g(in)d
(some)j(w)m(a)m(y)f(to)h(an)f(elemen)m(t)g(of)g(the)g(asso)s(ciation)g
(list)e(whic)m(h)h(is)891 1763 y(the)i(second)g(argumen)m(t.)41
b FJ(ASFIRST)28 b FQ(returns)h(the)g(pair)g(whose)h(\014rst)f(elemen)m
(t)h(is)891 1863 y(equal)21 b(to)h(the)f(\014rst)f(argumen)m(t.)38
b FJ(ASLAST)20 b FQ(returns)g(the)h(pair)f(whose)h(last)f(elemen)m(t)
891 1962 y(is)j(equal)g(to)h(the)g(\014rst)f(argumen)m(t.)39
b FJ(ASREST)22 b FQ(needs)h(a)h FD(list)g FQ(as)f(its)g(\014rst)g
(argumen)m(t.)891 2062 y(The)k(function)f(seeks)i(the)f(\014rst)f
(sublist)f(of)i(a)h(list)e(of)h(lists)f(\(whic)m(h)g(is)g(its)h(second)
891 2162 y(argumen)m(t\))k(equal)d(to)j(its)d(\014rst)h(argumen)m(t)h
(and)f(returns)f(it.)40 b FJ(RESTASLIST)26 b FQ(has)891
2261 y(a)35 b FD(list)i(of)f(keys)f FQ(as)f(its)g(\014rst)g(argumen)m
(ts.)53 b(It)34 b(returns)f(the)i(collection)f(of)g(pairs)891
2361 y(whic)m(h)29 b(meet)i(the)f(criterion)f(of)h FJ(ASREST)p
FQ(.)e FJ(ASFLIST)g FQ(returns)h(a)h(list)e(con)m(taining)891
2461 y FD(al)5 b(l)36 b(p)-5 b(airs)34 b FQ(whic)m(h)d(satisfy)h(to)h
(the)g(criteria)f(of)g(the)h(function)e FJ(ASFIRST)p
FQ(.)g(So)i(the)891 2560 y(output)27 b(is)f(also)i(an)f(ALIST)f(or)h(a)
g(list)f(of)i(lists.)38 b FJ(ASSLIST)25 b FQ(returns)h(a)h(list)f(whic)
m(h)891 2660 y(con)m(tains)38 b FD(al)5 b(l)39 b(p)-5
b(airs)38 b FQ(whic)m(h)e(ha)m(v)m(e)i(their)e(second)h(elemen)m(t)g
(equal)g(to)h(the)f(\014rst)891 2759 y(argumen)m(t.)1240
2971 y FH(lp:={{a,1},{b,2},)o({c)o(,3)o(}}$)1240 3071
y(ASFIRST\(a,lp\);)561 b(==>)42 b({a,1})1240 3170 y(ASLAST\(1,lp\);)605
b(==>)42 b({a,1})1240 3270 y(ASREST\({1},lp\);)517 b(==>)42
b({a,1})1240 3370 y(RESTASLIST\({a,b},)o(lp)o(\);)255
b(==>)42 b({{1},{2}})1240 3469 y(lpp:=APPEND\(lp,lp)o(\)$)1240
3569 y(ASFLIST\(a,lpp\);)517 b(==>)42 b({{a,1},{a,1}})1240
3669 y(ASSLIST\(1,lpp\);)517 b(==>)42 b({{a,1},{a,1}})664
3824 y @beginspecial @setspecial @endspecial 181 x FE(23.3)136
b(The)47 b(Bag)g(Structure)g(and)g(its)h(Asso)t(ciated)g(F)-11
b(unc-)1038 4154 y(tions)664 4394 y FQ(The)25 b(LIST)f(structure)h(of)g
(REDUCE)h(is)e(v)m(ery)i(con)m(v)m(enien)m(t)g(for)f(manipulating)e
(groups)664 4493 y(of)40 b(ob)5 b(jects)39 b(whic)m(h)f(are,)k
FD(a)g(priori)p FQ(,)h(unkno)m(wn.)65 b(This)38 b(structure)g(is)h
(endo)m(w)m(ed)g(with)664 4593 y(other)f(prop)s(erties)d(suc)m(h)i(as)h
(\\mapping")e FD(i.e.)i FQ(the)g(fact)g(that)g(if)e FJ(OP)g
FQ(is)h(an)g(op)s(erator)664 4693 y(one)31 b(gets,)g(b)m(y)g(default,)
1013 4898 y FH(OP\({x,y}\);)39 b(==>)k({OP\(x\),OP\(y\)})p
eop
%%Page: 247 247
247 246 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.3.)61 b(THE)22 b(BA)m(G)h(STR)m(UCTURE)e(AND)i(ITS)e(ASSOCIA)-8
b(TED)21 b(FUNCTIONS)p FQ(247)241 555 y(It)34 b(is)g(not)g(p)s
(ermitted)f(to)i(submit)e(lists)f(to)j(the)g(op)s(erations)f(v)-5
b(alid)32 b(on)i(rings)f(so)i(that)241 668 y(lists)d(cannot)j(b)s(e)e
(indeterminates)f(of)i(p)s(olynomials.)49 b(F)-8 b(requen)m(tly)34
b(pro)s(cedure)e(argu-)241 781 y(men)m(ts)f(cannot)h(b)s(e)e(lists.)42
b(A)m(t)32 b(the)f(other)g(extreme,)i(so)e(to)h(sa)m(y)-8
b(,)33 b(one)e(has)g(the)g FJ(KERNEL)241 894 y FQ(structure)i(asso)s
(ciated)g(to)i(the)e(algebraic)g(declaration)g FJ(operator)p
FQ(.)47 b(This)32 b(structure)241 1007 y(b)s(eha)m(v)m(es)j(as)h(an)f
(\\un)m(break)-5 b(able")35 b(one)g(and,)h(for)f(that)g(reason,)i(b)s
(eha)m(v)m(es)f(lik)m(e)e(an)h(or-)241 1120 y(dinary)d(iden)m
(ti\014er.)51 b(It)35 b(ma)m(y)g(generally)e(b)s(e)h(b)s(ound)e(to)j
(all)f(non-n)m(umeric)f(pro)s(cedure)241 1233 y(parameters)24
b(and)f(it)h(ma)m(y)g(app)s(ear)g(as)g(an)f(ordinary)g(indeterminate)f
(inside)g(p)s(olynom-)241 1346 y(ials.)241 1458 y(The)39
b FJ(BAG)h FQ(structure)f(is)g(in)m(termediate)h(b)s(et)m(w)m(een)h(a)f
(list)f(and)h(an)g(op)s(erator.)70 b(F)-8 b(rom)241 1571
y(the)28 b(op)s(erator)h(it)f(b)s(orro)m(ws)f(the)i(prop)s(ert)m(y)f
(to)h(b)s(e)f(a)g FJ(KERNEL)f FQ(and,)i(therefore,)g(ma)m(y)g(b)s(e)241
1684 y(an)38 b(indeterminate)e(of)i(a)h(p)s(olynomial.)60
b(F)-8 b(rom)39 b(the)f(list)e(structure)i(it)f(b)s(orro)m(ws)g(the)241
1797 y(prop)s(ert)m(y)29 b(to)j(b)s(e)d(a)i FD(c)-5 b(omp)g(osite)33
b FQ(ob)5 b(ject.)241 1952 y FN(De\014nition)p FQ(:)p
241 1965 479 4 v 241 2098 a(A)30 b(bag)h(is)e(an)i(ob)5
b(ject)31 b(endo)m(w)m(ed)g(with)e(the)h(follo)m(wing)f(prop)s(erties:)
241 2198 y @beginspecial @setspecial @endspecial 352
2329 a(1.)46 b(It)c(is)f(a)i FJ(KERNEL)d FQ(comp)s(osed)i(of)g(an)g
(atomic)g(pre\014x)f(\(its)h(en)m(v)m(elop)s(e\))h(and)e(its)468
2442 y(con)m(ten)m(t)32 b(\(miscellaneous)d(ob)5 b(jects\).)241
2501 y @beginspecial @setspecial @endspecial 352 2627
a(2.)46 b(Its)35 b(con)m(ten)m(t)h(ma)m(y)f(b)s(e)f(c)m(hanged)i(in)d
(an)i(analogous)f(w)m(a)m(y)i(as)f(the)g(con)m(ten)m(t)h(of)f(a)468
2740 y(list.)k(During)29 b(these)i(manipulations)d(the)i(name)h(of)f
(the)h(bag)g(is)e FD(c)-5 b(onserve)g(d)p FQ(.)241 2794
y @beginspecial @setspecial @endspecial 352 2925 a(3.)46
b(Prop)s(erties)20 b(ma)m(y)i(b)s(e)f(giv)m(en)g(to)h(the)g(en)m(v)m
(elop)s(e.)38 b(F)-8 b(or)22 b(instance,)h(one)f(ma)m(y)g(declare)468
3038 y(it)30 b FJ(NONCOM)f FQ(or)h FJ(SYMMETRIC)e FQ(etc.)k
FL(:)15 b(:)g(:)241 3311 y FN(Av)-6 b(ailable)35 b(F)-9
b(unctions)p FQ(:)p 241 3324 925 4 v 372 3530 a(i.)45
b(A)34 b(default)e(bag)i(en)m(v)m(elop)s(e)f FJ(BAG)g
FQ(is)f(de\014ned.)49 b(It)33 b(is)g(a)g(reserv)m(ed)h(iden)m
(ti\014er.)48 b(An)468 3629 y(iden)m(ti\014er)35 b(other)j(than)e
FJ(LIST)g FQ(or)h(one)g(whic)m(h)f(is)g(already)h(asso)s(ciated)g(with)
f(a)468 3729 y(b)s(o)s(olean)31 b(function)f(ma)m(y)i(b)s(e)f
(de\014ned)f(as)i(a)g(bag)g(en)m(v)m(elop)s(e)g(through)f(the)h(com-)
468 3828 y(mand)e FJ(PUTBAG)p FQ(.)f(In)h(particular,)f(an)m(y)j(op)s
(erator)f(ma)m(y)g(also)f(b)s(e)h(declared)f(to)h(b)s(e)468
3928 y(a)38 b(bag.)65 b FN(When)43 b(and)h(only)g(when)38
b FQ(the)g(iden)m(ti\014er)e(is)h(not)i(an)f(already)f(de-)468
4028 y(\014ned)25 b(function)h(do)s(es)g FJ(PUTBAG)f
FQ(puts)h(on)g(it)g(the)h(prop)s(ert)m(y)f(of)h(an)f(OPERA)-8
b(TOR)468 4127 y(PREFIX.)31 b(The)e(command:)817 4332
y FH(PUTBAG)41 b(id1,id2,....idn;)468 4536 y FQ(declares)25
b FJ(id1,.....,idn)d FQ(as)k(bag)f(en)m(v)m(elop)s(es.)40
b(Analogously)-8 b(,)26 b(the)g(command)817 4741 y FH(CLEARBAG)40
b(id1,...idn;)468 4959 y FQ(eliminates)29 b(the)h(bag)h(prop)s(ert)m(y)
f(on)g FJ(id1,...,idn)p FQ(.)p eop
%%Page: 248 248
248 247 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(248)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)770 555 y FQ(ii.)44
b(The)30 b(b)s(o)s(olean)g(function)f FJ(BAGP)g FQ(detects)j(the)e(bag)
h(prop)s(ert)m(y)-8 b(.)1240 767 y FH(aa:=bag\(x,y,z\)$)1240
867 y(if)43 b(BAGP)f(aa)h(then)f("ok";)215 b(==>)43 b(ok)745
1078 y FQ(iii.)g(Most)c(functions)d(de\014ned)g(ab)s(o)m(v)m(e)j(for)e
(lists)f(do)i(also)f(w)m(ork)h(for)f(bags.)63 b(More-)891
1178 y(o)m(v)m(er)39 b(functions)c(subsequen)m(tly)h(de\014ned)g(for)g
(SETS)g(\(see)i(section)f @beginspecial @setspecial @endspecial(23.4)r
(\))g(also)891 1277 y(w)m(ork.)44 b(Ho)m(w)m(ev)m(er,)34
b(b)s(ecause)d(of)h(the)g(conserv)-5 b(ation)31 b(of)h(the)f(en)m(v)m
(elop)s(e,)h(they)g(act)891 1377 y(somewhat)f(di\013eren)m(tly)-8
b(.)1240 1589 y FH(PUTBAG)41 b(op;)522 b(==>)42 b(T)1240
1688 y(aa:=op\(x,y,z\)$)1240 1788 y(FIRST)g(op\(x,y,z\);)257
b(==>)42 b(op\(x\))1240 1888 y(REST)g(op\(x,y,z\);)301
b(==>)42 b(op\(y,z\))1240 1987 y(BELAST)f(op\(x,y,z\);)214
b(==>)42 b(op\(x,y\))1240 2087 y(APPEND\(aa,aa\);)343
b(==>)42 b(op\(x,y,z,x,y,z\))1240 2187 y(LENGTH)f(aa;)522
b(==>)42 b(3)1240 2286 y(DEPTH)g(aa;)565 b(==>)42 b(1)891
2511 y FQ(When)f(\\app)s(ending")f(t)m(w)m(o)i(bags)f(with)f
FD(di\013er)-5 b(ent)42 b FQ(en)m(v)m(elop)s(es,)i(the)d(resulting)891
2624 y(bag)30 b(gets)h(the)f(name)g(of)g(the)g(one)f(b)s(ound)f(to)j
(the)e(\014rst)g(parameter)i(of)e FJ(APPEND)p FQ(.)891
2737 y(The)24 b(function)e FJ(LENGTH)g FQ(giv)m(es)i(the)g(actual)g(n)m
(um)m(b)s(er)e(of)i(v)-5 b(ariables)22 b(on)h(whic)m(h)g(the)891
2850 y(op)s(erator)35 b(\(or)g(the)f(function\))f(dep)s(ends.)51
b(The)34 b(NAME)h(of)f(the)h(ENVELOPE)891 2963 y(is)30
b(k)m(ept)h(b)m(y)f(the)h(functions)e FJ(FIRST)p FQ(,)g
FJ(SECOND)p FQ(,)g FJ(LAST)g FQ(and)h FJ(BELAST)p FQ(.)748
3137 y(iv.)44 b(The)33 b(connection)g(b)s(et)m(w)m(een)g(the)g(list)e
(and)h(the)h(bag)h(structures)e(is)f(made)i(easy)891
3237 y(thanks)f(to)g FJ(KERNLIST)e FQ(whic)m(h)g(transforms)h(a)h(bag)g
(in)m(to)f(a)i(list)d(and)h(thanks)g(to)891 3336 y(the)i(co)s(ercion)g
(function)e FJ(LISTBAG)p FQ(.)f(This)h(function)g(has)h(2)h(argumen)m
(ts)g(and)f(is)891 3436 y(used)e(as)h(follo)m(ws:)1240
3648 y FH(LISTBAG\(<list>,<i)o(d>)o(\);)37 b(==>)42 b
(<id>\(<arg_list>\))891 3873 y FQ(The)28 b(iden)m(ti\014er)f
FJ(<id>)g FQ(if)g(allo)m(w)m(ed)i(is)e(automatically)h(declared)g(as)h
(a)g(bag)f(en)m(v)m(e-)891 3986 y(lop)s(e)i(or)g(an)h(error)f(message)h
(is)e(generated.)891 4136 y(Finally)-8 b(,)30 b(t)m(w)m(o)i(b)s(o)s
(olean)d(functions)g(whic)m(h)h(w)m(ork)g(b)s(oth)g(for)h(bags)f(and)g
(lists)g(are)891 4249 y(pro)m(vided.)43 b(They)31 b(are)h
FJ(BAGLISTP)d FQ(and)i FJ(ABAGLISTP)p FQ(.)e(They)i(return)g(T)g(or)g
(NIL)891 4362 y(\(in)c(a)i(conditional)d(statemen)m(t\))k(if)d(their)g
(argumen)m(t)i(is)d(a)j(bag)f(or)g(a)g(list)f(for)h(the)891
4475 y(\014rst)e(one,)i(if)e(their)g(argumen)m(t)h(is)f(a)h(list)e(of)i
(sublists)d(or)i(a)h(bag)g(con)m(taining)g(bags)891 4588
y(for)k(the)f(second)h(one.)p eop
%%Page: 249 249
249 248 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.4.)72 b(SETS)29 b(AND)i(THEIR)f(MANIPULA)-8 b(TION)31
b(FUNCTIONS)456 b FQ(249)241 464 y @beginspecial @setspecial
@endspecial 91 x FE(23.4)135 b(Sets)46 b(and)e(their)i(Manipulation)f
(F)-11 b(unctions)241 808 y FQ(The)37 b(ASSIST)f(pac)m(k)-5
b(age)40 b(mak)m(es)f(the)f(Standard)f(LISP)g(set)h(functions)f(a)m(v)
-5 b(ailable)37 b(in)241 921 y(algebraic)h(mo)s(de)g(and)g(also)g
FD(gener)-5 b(alises)39 b FQ(them)g(so)f(that)h(they)g(can)g(b)s(e)e
(applied)g(on)241 1034 y(bag{lik)m(e)30 b(ob)5 b(jects)31
b(as)g(w)m(ell.)372 1244 y(i.)45 b(The)21 b(constructor)g
FJ(MKSET)f FQ(transforms)g(a)h(list)f(or)h(bag)g(in)m(to)g(a)h(set)f(b)
m(y)g(eliminating)468 1344 y(duplicates.)817 1539 y FH
(MKSET\({1,a,a1}\);)255 b(==>)42 b({1,a})817 1639 y(MKSET)f
(bag\(1,a,a1\);)170 b(==>)42 b(bag\(1,a\))468 1848 y
FJ(SETP)29 b FQ(is)h(a)g(b)s(o)s(olean)g(function)f(whic)m(h)g
(recognises)h(set{lik)m(e)h(ob)5 b(jects.)347 2030 y(ii.)44
b(The)26 b(standard)g(functions)g(are)h FJ(UNION)p FQ(,)f
FJ(INTERSECT)p FQ(,)e FJ(DIFFSET)h FQ(and)h FJ(SYMDIFF)p
FQ(.)468 2143 y(They)g(ha)m(v)m(e)h(t)m(w)m(o)g(argumen)m(ts)g(whic)m
(h)e(m)m(ust)g(b)s(e)h(sets;)i(otherwise)e(an)g(error)f(mes-)468
2256 y(sage)32 b(is)d(issued.)241 2408 y @beginspecial
@setspecial @endspecial 181 x FE(23.5)135 b(General)46
b(Purp)t(ose)f(Utilit)l(y)i(F)-11 b(unctions)372 2842
y FQ(i.)45 b(The)34 b(functions)e FJ(MKIDNEW)p FQ(,)h
FJ(DELLASTDIGIT)p FQ(,)d FJ(DETIDNUM)p FQ(,)j FJ(LIST)p
2719 2842 29 4 v 33 w(TO)p 2848 2842 V 34 w(IDS)g FQ(han-)468
2955 y(dle)d(iden)m(ti\014ers.)38 b FJ(MKIDNEW)29 b FQ(is)g(a)i(v)-5
b(arian)m(t)30 b(of)h FJ(MKID)p FQ(.)468 3089 y FJ(MKIDNEW)g
FQ(has)i(either)g(0)g(or)g(1)h(argumen)m(t.)50 b(It)33
b(generates)h(an)f(iden)m(ti\014er)f(whic)m(h)468 3189
y(has)e(not)h(y)m(et)g(b)s(een)f(used)g(b)s(efore.)817
3384 y FH(MKIDNEW\(\);)39 b(==>)k(g0001)817 3484 y(MKIDNEW\(a\);)c(==>)
j(ag0002)468 3679 y FJ(DELLASTDIGIT)31 b FQ(tak)m(es)k(an)f(in)m(teger)
g(as)h(argumen)m(t,)g(it)f(strips)e(it)i(from)f(its)h(last)468
3779 y(digit.)817 3974 y FH(DELLASTDIGIT)k(45;)43 b(==>)f(4)468
4169 y FJ(DETIDNUM)p FQ(,)26 b(determines)g(the)i(trailing)d(in)m
(teger)j(from)f(an)h(iden)m(ti\014er.)38 b(It)27 b(is)g(con-)468
4269 y(v)m(enien)m(t)c(when)e(one)i(w)m(an)m(ts)g(to)h(mak)m(e)f(a)g
(do)g(lo)s(op)e(starting)i(from)f(a)h(set)g(of)f(indices)468
4369 y FL(a)516 4383 y FO(1)556 4369 y FL(;)15 b(:)g(:)g(:)h(;)f(a)805
4383 y FF(n)853 4369 y FQ(.)817 4564 y FH(DETIDNUM)40
b(a23;)i(==>)g(23)468 4759 y FJ(LIST)p 666 4759 V 33
w(to)p 795 4759 V 34 w(IDS)23 b FQ(generalises)g(the)h(function)e
FJ(MKID)h FQ(to)h(a)g(list)e(of)i(atoms.)39 b(It)24 b(creates)468
4859 y(and)e(in)m(terns)f(an)h(iden)m(ti\014er)e(from)i(the)g
(concatenation)i(of)e(the)h(atoms.)39 b(The)21 b(\014rst)468
4959 y(atom)31 b(cannot)g(b)s(e)f(an)g(in)m(teger.)p
eop
%%Page: 250 250
250 249 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(250)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)1240 555 y FH(LIST_TO_IDS)39
b({a,1,id,10};)g(==>)j(a1id10)891 763 y FQ(The)30 b(function)f
FJ(ODDP)h FQ(detects)h(o)s(dd)e(in)m(tegers.)891 897
y(The)24 b(function)f FJ(FOLLOWLINE)e FQ(is)i(con)m(v)m(enien)m(t)j
(when)d(using)f(the)j(function)d FJ(PRIN2)891 997 y FQ(for)31
b(con)m(trolling)e(la)m(y)m(out.)1240 1191 y FH(<<prin2)41
b(2;)i(prin2)e(5>>$)891 1291 y(25)1240 1391 y(<<prin2)g(2;)i
(followline\(3\);)37 b(prin2)42 b(5>>$)891 1490 y(2)1022
1590 y(5)891 1785 y FQ(The)25 b(function)e FJ(RANDOMLIST)f
FQ(generates)k(a)f(list)e(of)i(p)s(ositiv)m(e)e(random)h(n)m(um)m(b)s
(ers.)891 1884 y(It)g(tak)m(es)h(t)m(w)m(o)f(argumen)m(ts)g(whic)m(h)e
(are)i(b)s(oth)e(in)m(tegers.)39 b(The)23 b(\014rst)f(one)i(indicates)
891 1984 y(the)36 b(range)f(inside)d(whic)m(h)i(the)h(random)f(n)m(um)m
(b)s(ers)f(are)j(c)m(hosen.)54 b(The)35 b(second)891
2083 y(one)c(indicates)e(ho)m(w)i(man)m(y)f(n)m(um)m(b)s(ers)f(are)i
(to)g(b)s(e)f(generated.)1240 2278 y FH(RANDOMLIST\(10,5\);)37
b(==>)42 b({2,1,3,9,6})891 2473 y FJ(MKRANDTABL)24 b
FQ(generates)j(a)f(table)g(of)g(random)f(n)m(um)m(b)s(ers.)38
b(This)24 b(table)i(is)e(either)891 2572 y(a)30 b(one)f(or)h(t)m(w)m(o)
g(dimensional)c(arra)m(y)-8 b(.)42 b(The)28 b(base)h(of)h(random)e(n)m
(um)m(b)s(ers)g(ma)m(y)i(b)s(e)891 2672 y(either)37 b(an)h(in)m(teger)g
(or)f(a)h(\015oating)g(p)s(oin)m(t)e(n)m(um)m(b)s(er.)61
b(In)37 b(this)f(latter)i(case)h(the)891 2772 y(switc)m(h)30
b FJ(rounded)f FQ(m)m(ust)h(b)s(e)g(ON.)g(The)g(function)f(has)i(three)
f(argumen)m(ts.)41 b(The)891 2871 y(\014rst)e(is)f(either)g(a)h(one)g
(in)m(teger)h(or)f(a)g(t)m(w)m(o)h(in)m(teger)f(list.)65
b(The)39 b(second)g(is)f(the)891 2971 y(base)29 b(c)m(hosen)g(to)g
(generate)g(the)g(random)e(n)m(um)m(b)s(ers.)39 b(The)27
b(third)g(is)g(the)h(c)m(hosen)891 3070 y(name)d(for)f(the)g(generated)
h(arra)m(y)-8 b(.)40 b(In)23 b(the)h(example)g(b)s(elo)m(w)g(a)g(t)m(w)
m(o-dimensional)891 3170 y(table)k(of)g(in)m(teger)h(random)e(n)m(um)m
(b)s(ers)f(is)h(generated)i(as)f(arra)m(y)g(elemen)m(ts)h(of)f(the)891
3270 y(iden)m(ti\014er)h FJ(a)p FQ(r.)1240 3464 y FH
(MKRANDTABL\({3,4},)o(10)o(,a)o(r\);)37 b(==>)1545 3564
y(***)43 b(array)e(ar)i(redefined)1850 3664 y({3,4})891
3871 y FQ(The)30 b(output)g(is)g(the)g(arra)m(y)h(dimension.)891
4019 y FJ(COMBNUM\(n,p\))c FQ(giv)m(es)k(the)f(n)m(um)m(b)s(er)f(of)i
(com)m(binations)e(of)h FL(n)g FQ(ob)5 b(jects)31 b(tak)m(en)g
FL(p)891 4132 y FQ(at)h(a)e(time.)41 b(It)30 b(has)g(the)h(t)m(w)m(o)h
(in)m(teger)e(argumen)m(ts)h FL(n)f FQ(and)g FL(p)p FQ(.)891
4266 y FJ(PERMUTATIONS\(n\))38 b FQ(giv)m(es)k(the)f(list)f(of)i(p)s
(erm)m(utations)e(on)i FL(n)f FQ(ob)5 b(jects,)45 b(eac)m(h)891
4366 y(p)s(erm)m(utation)39 b(b)s(eing)f(represen)m(ted)h(as)h(a)g
(list.)66 b FJ(CYCLICPERMLIST)36 b FQ(giv)m(es)k(the)891
4465 y(list)25 b(of)g FD(cyclic)h FQ(p)s(erm)m(utations.)38
b(F)-8 b(or)26 b(b)s(oth)f(functions,)g(the)h(argumen)m(t)g(ma)m(y)g
(also)891 4565 y(b)s(e)k(a)h FJ(bag)p FQ(.)1240 4759
y FH(PERMUTATIONS)39 b({1,2})i(==>)i({{1,2},{2,1}})1240
4859 y(CYCLICPERMLIST)38 b({1,2,3})j(==>)1589 4959 y({{1,2,3},{2,3,1})o
(,{)o(3,1)o(,2)o(}})p eop
%%Page: 251 251
251 250 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.5.)72 b(GENERAL)31 b(PURPOSE)e(UTILITY)g(FUNCTIONS)667
b FQ(251)468 555 y FJ(COMBINATIONS)31 b FQ(giv)m(es)k(a)g(list)e(of)h
(com)m(binations)g(on)g FL(n)g FQ(ob)5 b(jects)35 b(tak)m(en)h
FL(p)e FQ(at)h(a)468 655 y(time.)68 b(The)38 b(\014rst)h(argumen)m(t)h
(is)e(a)i(list)e(\(or)i(a)g(bag\))g(and)f(the)g(second)h(is)e(the)468
754 y(in)m(teger)31 b FL(p)p FQ(.)817 959 y FH(COMBINATIONS\({1,)o(2,)o
(3})o(,2\))37 b(==>)42 b({{2,3},{1,3},{1,2)o(}})468 1177
y FJ(REMSYM)22 b FQ(is)h(a)i(command)e(that)i(erases)f(the)h(REDUCE)e
(commands)h FJ(symmetric)468 1289 y FQ(or)30 b FJ(antisymmetric)p
FQ(.)468 1425 y FJ(SYMMETRIZE)21 b FQ(is)h(a)i(p)s(o)m(w)m(erful)e
(function)g(whic)m(h)h(generate)i(a)f(symmetric)e(expres-)468
1525 y(sion.)38 b(It)24 b(has)g(3)h(argumen)m(ts.)39
b(The)24 b(\014rst)g(is)f(a)i(list)e(\(or)h(a)h(list)e(of)i(lists\))e
(con)m(taining)468 1625 y(the)i(expressions)e(whic)m(h)h(will)e(app)s
(ear)i(as)h(v)-5 b(ariables)23 b(for)i(a)g(k)m(ernel.)38
b(The)24 b(second)468 1724 y(argumen)m(t)33 b(is)f(the)g(k)m
(ernel-name)h(and)f(the)h(third)e(is)g(a)i(p)s(erm)m(utation)f
(function)468 1824 y(whic)m(h)24 b(either)h(exist)g(in)f(the)i
(algebraic)f(or)g(in)f(the)i(sym)m(b)s(olic)e(mo)s(de.)38
b(This)24 b(func-)468 1923 y(tion)30 b(ma)m(y)h(ha)m(v)m(e)g(b)s(een)f
(constructed)g(b)m(y)h(the)f(user.)40 b(Within)29 b(this)g(pac)m(k)-5
b(age)32 b(the)468 2023 y(t)m(w)m(o)g(functions)d FJ(PERMUTATIONS)e
FQ(and)i FJ(CYCLICPERMLIST)e FQ(ma)m(y)k(b)s(e)f(used.)817
2227 y FH(ll:={a,b,c}$)817 2327 y(SYMMETRIZE\(ll,op)o(,c)o(yc)o(lic)o
(pe)o(rml)o(is)o(t\))o(;)38 b(==>)1165 2427 y(OP\(A,B,C\))i(+)j
(OP\(B,C,A\))d(+)j(OP\(C,A,B\))817 2526 y(SYMMETRIZE\(list)37
b(ll,op,cyclicperm)o(lis)o(t\))o(;)h(==>)1165 2626 y(OP\({A,B,C}\))h(+)
44 b(OP\({B,C,A}\))39 b(+)k(OP\({C,A,B}\))468 2830 y
FQ(Notice)31 b(that)f(taking)g(for)g(the)g(\014rst)f(argumen)m(t)h(a)g
(list)f(of)h(lists)e(giv)m(es)i(rise)f(to)i(an)468 2930
y(expression)36 b(where)g(eac)m(h)i(k)m(ernel)f(has)g(a)g
FD(list)i(as)g(ar)-5 b(gument)p FQ(.)62 b(Another)37
b(p)s(ecu-)468 3030 y(liarit)m(y)c(of)h(this)g(function)f(is)g(that,)j
(unless)d(a)i(pattern)f(matc)m(hing)h(is)e(made)i(on)468
3129 y(the)c(op)s(erator)f FJ(OP)p FQ(,)g(it)g(needs)g(to)h(b)s(e)f
(reev)-5 b(aluated.)41 b(Here)31 b(is)e(an)i(illustration:)817
3334 y FH(op\(a,b,c\):=a*b*c)o($)817 3433 y(SYMMETRIZE\(ll,op)o(,c)o
(yc)o(lic)o(pe)o(rml)o(is)o(t\))o(;)38 b(==>)1209 3533
y(OP\(A,B,C\))i(+)j(OP\(B,C,A\))d(+)j(OP\(C,A,B\))817
3633 y(for)f(all)g(x)i(let)e(op\(x,a,b\)=sin\(x*)o(a*)o(b\);)817
3732 y(SYMMETRIZE\(ll,op)o(,c)o(yc)o(lic)o(pe)o(rml)o(is)o(t\))o(;)c
(==>)1253 3832 y(OP\(B,C,A\))h(+)44 b(SIN\(A*B*C\))39
b(+)k(OP\(A,B,C\))468 4050 y FQ(The)d(functions)f FJ(SORTNUMLIST)f
FQ(and)i FJ(SORTLIST)f FQ(are)i(functions)e(whic)m(h)g(sort)468
4162 y(lists.)g(They)30 b(use)g FD(bubblesort)h FQ(and)f
FD(quicksort)g FQ(algorithms.)468 4312 y FJ(SORTNUMLIST)35
b FQ(tak)m(es)k(as)f(argumen)m(t)g(a)g(list)e(of)i(n)m(um)m(b)s(ers.)61
b(It)37 b(sorts)h(it)f(in)f(in-)468 4424 y(creasing)30
b(order.)468 4560 y FJ(SORTLIST)36 b FQ(is)h(a)i(generalisation)e(of)h
(the)h(ab)s(o)m(v)m(e)g(function.)63 b(It)38 b(sorts)g(the)h(list)468
4660 y(according)d(to)i(an)m(y)e(w)m(ell)g(de\014ned)f(ordering.)58
b(Its)36 b(\014rst)g(argumen)m(t)h(is)e(the)i(list)468
4759 y(and)44 b(its)h(second)g(argumen)m(t)g(is)g(the)g(ordering)f
(function.)83 b(The)44 b(con)m(ten)m(t)j(of)468 4859
y(the)33 b(list)e(is)h(not)h(necessary)g(n)m(um)m(b)s(ers)e(but)h(m)m
(ust)g(b)s(e)g(suc)m(h)h(that)g(the)g(ordering)468 4959
y(function)c(has)h(a)h(meaning.)p eop
%%Page: 252 252
252 251 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(252)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)1240 555 y FH(l:={1,3,4,0}$)82
b(SORTNUMLIST)39 b(l;)261 b(==>)42 b({0,1,3,4})1240 655
y(ll:={1,a,tt,z}$)c(SORTLIST\(ll,ord)o(p\))o(;)g(==>)k({a,z,tt,1})891
880 y FQ(Note:)e(using)23 b(these)i(functions)e(for)h(k)m(ernels)g(or)h
(bags)f(ma)m(y)h(b)s(e)f(dangerous)h(since)891 993 y(they)33
b(are)f(destructiv)m(e.)47 b(If)31 b(it)h(is)f(needed,)i(it)f(is)f
(recommended)h(\014rst)f(to)i(apply)891 1106 y FJ(KERNLIST)c
FQ(on)h(them.)891 1243 y(The)39 b(function)g FJ(EXTREMUM)e
FQ(is)h(a)i(generalisation)f(of)g(the)h(functions)e FJ(MIN)h
FQ(and)891 1342 y FJ(MAX)d FQ(to)h(include)d(general)i(orderings.)57
b(It)36 b(is)g(a)g(2)h(argumen)m(ts)f(function.)57 b(The)891
1442 y(\014rst)32 b(is)g(the)h(list)f(and)g(the)h(second)f(is)g(the)h
(ordering)f(function.)46 b(With)32 b(the)h(list)891 1542
y FJ(ll)d FQ(de\014ned)f(in)g(the)i(last)f(example,)g(one)h(gets)1240
1753 y FH(EXTREMUM\(ll,ordp\))o(;)37 b(==>)43 b(1)745
1965 y FQ(iii.)g(There)30 b(are)h(four)f(functions)f(to)i(iden)m(tify)e
(dep)s(endencies.)39 b FJ(FUNCVAR)29 b FQ(tak)m(es)j(an)m(y)891
2065 y(expression)38 b(as)g(argumen)m(t)h(and)f(returns)f(the)i(set)f
(of)h(v)-5 b(ariables)37 b(on)h(whic)m(h)f(it)891 2164
y(dep)s(ends.)i(Constan)m(ts)31 b(are)g(eliminated.)1240
2376 y FH(FUNCVAR\(e+pi+sin\()o(lo)o(g\()o(y\)\))o(;)37
b(==>)43 b({y})891 2588 y FJ(DEPATOM)31 b FQ(has)i(an)g
FN(atom)e FQ(as)i(argumen)m(t.)49 b(It)33 b(returns)e(its)h(argumen)m
(t)i(if)d(it)i(is)f(a)891 2687 y(n)m(um)m(b)s(er)c(or)g(if)f(no)i(dep)s
(endency)e(has)h(previously)e(b)s(een)h(declared.)40
b(Otherwise,)891 2787 y(it)45 b(returns)f(the)h(list)f(of)h(v)-5
b(ariables)44 b(on)h(whic)m(h)f(in)g(dep)s(ends)f(as)j(declared)e(in)
891 2886 y(v)-5 b(arious)30 b FJ(DEPEND)e FQ(declarations.)1240
3098 y FH(DEPEND)41 b(a,x,y;)1240 3198 y(DEPATOM)g(a;)304
b(==>)42 b({x,y})891 3409 y FQ(The)36 b(functions)f FJ(EXPLICIT)f
FQ(and)i FJ(IMPLICIT)e FQ(mak)m(e)j(explicit)d(or)j(implicit)c(the)891
3509 y(dep)s(endencies.)1240 3721 y FH(depend)41 b(a,x;)h(depend)f
(x,y,z;)1240 3820 y(EXPLICIT)f(a;)261 b(==>)42 b(a\(x\(y,z\)\))1240
3920 y(IMPLICIT)e(ws;)217 b(==>)42 b(a)891 4145 y FQ(These)34
b(are)f(useful)f(when)g(one)i(do)s(es)f(not)h(kno)m(w)f(the)h(names)f
(of)h(the)f(v)-5 b(ariables)891 4258 y(and)30 b(\(or\))h(the)g(nature)f
(of)h(the)f(dep)s(endencies.)891 4395 y FJ(KORDERLIST)g
FQ(is)i(a)h(zero)g(argumen)m(t)g(function)f(whic)m(h)f(displa)m(y)g
(the)i(actual)g(or-)891 4495 y(dering.)1240 4706 y FH(KORDER)41
b(x,y,z;)1240 4806 y(KORDERLIST;)257 b(==>)42 b(\(x,y,z\))p
eop
%%Page: 253 253
253 252 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.6.)72 b(PR)m(OPER)-8 b(TIES)30 b(AND)h(FLA)m(GS)1434
b FQ(253)324 555 y(iv.)45 b(A)32 b(function)f FJ(SIMPLIFY)f
FQ(whic)m(h)h(tak)m(es)i(an)f(arbitrary)f(expression)g(is)g(a)m(v)-5
b(ailable)468 655 y(whic)m(h)39 b FD(for)-5 b(c)g(es)41
b FQ(do)m(wn-to-the-b)s(ottom)h(simpli\014cation)36 b(of)k(an)g
(expression.)68 b(It)468 754 y(is)31 b(useful)f(with)h
FJ(SYMMETRIZE)p FQ(.)e(It)k(has)e(also)h(pro)m(v)m(ed)h(useful)d(to)j
(simplify)28 b(some)468 854 y(output)i(expressions)f(of)i(the)f(pac)m
(k)-5 b(age)32 b(EX)m(CALC)f(\(c)m(hapter)g @beginspecial
@setspecial @endspecial(39)q(\).)817 1058 y FH(l:=op\(x,y,z\)$)817
1158 y(op\(x,y,z\):=x*y*z)o($)817 1258 y(SYMMETRIZE\(l,op,)o(cy)o(cl)o
(icp)o(er)o(mli)o(st)o(\);)37 b(==>)1776 1357 y(op\(x,y,z\)+op\(y,)o
(z,x)o(\)+)o(op\()o(z,)o(x,)o(y\))817 1457 y(SIMPLIFY)j(ws;)260
b(==>)43 b(op\(y,z,x\)+op\(z,)o(x,y)o(\)+)o(x*y)o(*z)349
1675 y FQ(v.)j(Filtering)29 b(functions)g(for)h(lists.)468
1824 y FJ(CHECKPROLIST)d FQ(is)i(a)h(b)s(o)s(olean)f(function)g(whic)m
(h)f(c)m(hec)m(ks)k(if)d(the)h(elemen)m(ts)g(of)g(a)468
1937 y(list)19 b(ha)m(v)m(e)j(a)f(de\014nite)e(prop)s(ert)m(y)-8
b(.)38 b(Its)20 b(\014rst)g(argumen)m(t)h(is)e(the)i(list,)h(and)d(its)
h(second)468 2050 y(argumen)m(t)43 b(is)f(a)h(b)s(o)s(olean)f(function)
f(\()p FJ(FIXP)47 b(NUMBERP)f FL(:)15 b(:)g(:)q FQ(\))43
b(or)g(an)g(ordering)468 2162 y(function)29 b(\(as)i
FJ(ORDP)p FQ(\).)468 2298 y FJ(EXTRACTLIST)25 b FQ(extracts)k(from)f
(the)g(list)e(giv)m(en)i(as)g(its)g(\014rst)f(argumen)m(t)h(the)g(ele-)
468 2398 y(men)m(ts)c(whic)m(h)e(satisfy)h(the)g(b)s(o)s(olean)g
(function)f(giv)m(en)h(as)h(its)e(second)i(argumen)m(t.)817
2602 y FH(l:={1,a,b,"st"\)$)817 2702 y(EXTRACTLIST\(l,fi)o(xp)o(\);)168
b(==>)42 b({1})817 2802 y(EXTRACTLIST\(l,st)o(ri)o(ng)o(p\);)37
b(==>)42 b({st})241 2956 y @beginspecial @setspecial
@endspecial 181 x FE(23.6)135 b(Prop)t(erties)46 b(and)f(Flags)241
3389 y FQ(It)38 b(ma)m(y)g(b)s(e)g(useful)e(to)i(pro)m(vide)f
(analogous)i(functions)d(in)h(algebraic)g(mo)s(de)h(to)g(the)241
3502 y(prop)s(erties)j(and)h(\015ags)h(of)g(LISP)-8 b(.)42
b(Just)g(using)f(the)i(sym)m(b)s(olic)e(mo)s(de)i(functions)e(to)241
3615 y(alter)26 b(prop)s(ert)m(y)h(lists)e(of)i(ob)5
b(jects)27 b(ma)m(y)g(easily)f(destro)m(y)i(the)f(in)m(tegrit)m(y)f(of)
h(the)g(system.)241 3728 y(The)40 b(functions)f(whic)m(h)g(are)i(here)g
(describ)s(ed)d FN(do)47 b(ignore)41 b FQ(the)g(prop)s(ert)m(y)f(list)f
(and)241 3841 y(\015ags)44 b(already)f(de\014ned)f(b)m(y)i(the)g
(system)g(itself.)79 b(They)43 b(generate)i(and)e(trac)m(k)i(the)241
3954 y FD(additional)38 b(pr)-5 b(op)g(erties)39 b(and)d(\015ags)f
FQ(that)f(the)g(user)g(issues)e(using)h(them.)51 b(They)33
b(o\013er)241 4067 y(the)d(p)s(ossibilit)m(y)d(of)k(w)m(orking)e(on)i
(prop)s(ert)m(y)e(lists)g(in)g(an)i(algebraic)f(con)m(text.)241
4298 y FN(i.)46 b(Flags)g FQ(T)-8 b(o)33 b(a)g(giv)m(en)f(iden)m
(ti\014er,)g(one)h(ma)m(y)g(asso)s(ciates)g(another)g(one)g(link)m(ed)e
(to)i(it)468 4411 y(\\in)27 b(the)h(bac)m(kground".)40
b(The)27 b(three)h(functions)e FJ(PUTFLAG)p FQ(,)g FJ(DISPLAYFLAG)e
FQ(and)468 4524 y FJ(CLEARFLAG)k FQ(handle)h(them.)468
4660 y FJ(PUTFLAG)i FQ(has)i(3)g(argumen)m(ts.)48 b(The)33
b(\014rst)f(is)g(the)h(iden)m(ti\014er)e(or)i(a)g(list)f(of)h(iden-)468
4759 y(ti\014ers,)k(the)g(second)f(is)g(the)h(name)f(of)h(the)f
(\015ag,)j(the)e(third)d(is)i(T)g(\(true\))h(or)f(0)468
4859 y(\(zero\).)42 b(When)29 b(the)g(third)e(argumen)m(t)i(is)f(T,)h
(it)f(creates)j(the)e(\015ag,)h(when)e(it)g(is)g(0)468
4959 y(it)i(destro)m(ys)h(it.)p eop
%%Page: 254 254
254 253 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(254)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)1240 555 y FH(PUTFLAG\(z1,flag_n)o(am)
o(e,)o(t\);)298 b(==>)43 b(flag_name)1240 655 y(PUTFLAG\({z1,z2},f)o
(la)o(g1)o(_na)o(me)o(,t\))o(;)37 b(==>)43 b(t)1240 754
y(PUTFLAG\(z2,flag1_)o(na)o(me)o(,0\))o(;)255 b(==>)891
966 y FJ(DISPLAYFLAG)28 b FQ(allo)m(ws)h(to)j(extract)f(\015ags.)41
b(Con)m(tin)m(uing)29 b(the)i(example:)1240 1178 y FH(DISPLAYFLAG)39
b(z1;)173 b(==>)43 b({flag_name,flag)o(1_n)o(am)o(e})1240
1277 y(DISPLAYFLAG)c(z2;)173 b(==>)43 b({})891 1502 y
FJ(CLEARFLAG)26 b FQ(is)h(a)h(command)g(whic)m(h)f(clears)h
FD(al)5 b(l)28 b FQ(\015ags)h(asso)s(ciated)f(to)h(the)f(iden-)891
1615 y(ti\014ers)i FL(id)1223 1629 y FO(1)1263 1615 y
FL(;)15 b(:)g(:)g(:)h(;)f(id)1542 1629 y FF(n)1590 1615
y FQ(.)664 1790 y FN(ii.)47 b(Prop)s(erties)f FJ(PUTPROP)32
b FQ(has)h(four)g(argumen)m(ts.)51 b(The)33 b(second)h(argumen)m(t)g
(is)f(the)891 1889 y FD(indic)-5 b(ator)38 b FQ(of)e(the)g(prop)s(ert)m
(y)-8 b(.)56 b(The)36 b(third)d(argumen)m(t)k(ma)m(y)f(b)s(e)f
FD(any)j(valid)g(ex-)891 1989 y(pr)-5 b(ession)p FQ(.)43
b(The)30 b(fourth)f(one)i(is)e(also)i(T)f(or)g(0.)1240
2201 y FH(PUTPROP\(z1,proper)o(ty)o(,x)o(^2,)o(t\))o(;)38
b(==>)k(z1)891 2412 y FQ(In)30 b(general,)h(one)f(en)m(ter)1240
2624 y FH(PUTPROP\(LIST\(idp1)o(,i)o(dp)o(2,.)o(.\))o(,<p)o(ro)o(pn)o
(ame)o(>,)o(<va)o(lu)o(e>,)o(T\))o(;)891 2836 y FQ(If)k(the)g(last)g
(argumen)m(t)h(is)e(0)i(then)f(the)g(prop)s(ert)m(y)f(is)h(remo)m(v)m
(ed.)53 b(T)-8 b(o)34 b(displa)m(y)f(a)891 2935 y(sp)s(eci\014c)h(prop)
s(ert)m(y)-8 b(,)37 b(one)e(uses)g FJ(DISPLAYPROP)d FQ(whic)m(h)h(tak)m
(es)k(t)m(w)m(o)f(argumen)m(ts.)891 3035 y(The)g(\014rst)f(is)g(the)h
(name)g(of)h(the)f(iden)m(ti\014er,)g(the)g(second)g(is)f(the)h
(indicator)f(of)891 3135 y(the)c(prop)s(ert)m(y)-8 b(.)3027
3346 y FH(2)1240 3446 y(DISPLAYPROP\(z1,pr)o(op)o(er)o(ty\))o(;)37
b(==>)43 b({property,x)82 b(})891 3671 y FQ(Finally)-8
b(,)27 b FJ(CLEARPROP)d FQ(is)i(a)h(nary)f(commmand)h(whic)m(h)e
(clears)i FD(al)5 b(l)27 b FQ(prop)s(erties)f(of)891
3784 y(the)31 b(iden)m(ti\014ers)d(whic)m(h)i(app)s(ear)f(as)i(argumen)
m(ts.)664 3939 y @beginspecial @setspecial @endspecial
181 x FE(23.7)136 b(Con)l(trol)46 b(F)-11 b(unctions)664
4373 y FQ(The)32 b(ASSIST)f(pac)m(k)-5 b(age)34 b(also)f(pro)m(vides)e
(additional)g(functions)g(whic)m(h)g(impro)m(v)m(e)i(the)664
4486 y(user)d(con)m(trol)h(of)f(the)h(en)m(vironmen)m(t.)795
4710 y(i.)45 b(The)40 b(\014rst)f(set)i(of)f(functions)f(is)g(comp)s
(osed)h(of)g(unary)f(and)h(binary)e(b)s(o)s(olean)891
4810 y(functions.)i(They)30 b(are:)p eop
%%Page: 255 255
255 254 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.7.)72 b(CONTR)m(OL)30 b(FUNCTIONS)1552 b FQ(255)817
555 y FH(ALATOMP)40 b(x;)174 b(x)43 b(is)g(anything.)817
655 y(ALKERNP)d(x;)174 b(x)43 b(is)g(anything.)817 754
y(DEPVARP\(x,v\);)38 b(x)43 b(is)g(anything.)1427 854
y(\(v)g(is)f(an)h(atom)f(or)h(a)g(kernel\))468 1044 y
FJ(ALATOMP)27 b FQ(has)j(the)f(v)-5 b(alue)29 b(T)g(i\013)g(x)g(is)f
(an)i(in)m(teger)f(or)h(an)f(iden)m(ti\014er)f FD(after)i
FQ(it)f(has)468 1157 y(b)s(een)h(ev)-5 b(aluated)30 b(do)m(wn)g(to)h
(the)g(b)s(ottom.)468 1302 y FJ(ALKERNP)i FQ(has)i(the)g(v)-5
b(alue)35 b(T)g(i\013)f(x)h(is)f(a)i(k)m(ernel)f FD(after)g
FQ(it)g(has)g(b)s(een)f(ev)-5 b(aluated)468 1414 y(do)m(wn)30
b(to)h(the)g(b)s(ottom.)468 1559 y FJ(DEPVARP)d FQ(returns)i(T)g(i\013)
f(the)i(expression)e(x)h(dep)s(ends)f(on)h(v)g(at)h FN(an)m(y)k(lev)m
(el)p FQ(.)468 1703 y(The)27 b(ab)s(o)m(v)m(e)h(functions)e(together)i
(with)e FJ(PRECP)g FQ(ha)m(v)m(e)i(b)s(een)f(declared)f(op)s(erator)468
1816 y(functions)j(to)i(ease)g(the)g(v)m(eri\014cation)f(of)h(their)e
(v)-5 b(alue.)468 1961 y FJ(NORDP)34 b FQ(is)h(essen)m(tially)g(equiv)
-5 b(alen)m(t)35 b(to)h FJ(notORDP)e FQ(when)h(inside)e(a)j
(conditional)468 2074 y(statemen)m(t.)43 b(Otherwise,)29
b(it)h(can)g(b)s(e)g(used)g(while)e FJ(notORDP)h FQ(cannot.)347
2236 y(ii.)44 b(The)28 b(next)g(functions)f(allo)m(w)h(one)h(to)g
FD(analyse)g FQ(and)f(to)h FD(cle)-5 b(an)29 b FQ(the)g(en)m(vironmen)m
(t)468 2336 y(of)i(REDUCE)f(whic)m(h)f(is)g(created)i(b)m(y)g(the)f
(user)g(while)e(w)m(orking)i(in)m(teractiv)m(ely)-8 b(.)468
2436 y(Tw)m(o)31 b(functions)e(are)h(pro)m(vided:)468
2535 y FJ(SHOW)j FQ(allo)m(ws)g(to)h(get)h(the)f(v)-5
b(arious)32 b(iden)m(ti\014ers)g(already)h(assigned)g(and)g(to)i(see)
468 2635 y(their)j(t)m(yp)s(e.)65 b FJ(SUPPRESS)37 b
FQ(selectiv)m(ely)h(clears)h(the)g(used)e(iden)m(ti\014ers)g(or)i
(clears)468 2735 y(them)34 b(all.)49 b(It)34 b(is)e(to)j(b)s(e)d
(stressed)i(that)g(iden)m(ti\014ers)e(assigned)h(from)g(the)g(input)468
2834 y(of)c(\014les)f(are)i FN(ignored)p FQ(.)40 b(Both)30
b(functions)e(ha)m(v)m(e)i(one)f(argumen)m(t)h(and)e(the)h(same)468
2934 y(options)h(for)g(this)f(argumen)m(t:)773 3111 y
FH(SHOW)42 b(\(SUPPRESS\))e(all)773 3210 y(SHOW)i(\(SUPPRESS\))e
(scalars)773 3310 y(SHOW)i(\(SUPPRESS\))e(lists)773 3409
y(SHOW)i(\(SUPPRESS\))e(saveids)171 b(\(for)42 b(saved)f(expressions\))
773 3509 y(SHOW)h(\(SUPPRESS\))e(matrices)773 3609 y(SHOW)i
(\(SUPPRESS\))e(arrays)773 3708 y(SHOW)i(\(SUPPRESS\))e(vectors)1471
3808 y(\(contains)f(vector,)i(index)h(and)g(tvector\))773
3908 y(SHOW)g(\(SUPPRESS\))e(forms)468 4084 y FQ(The)28
b(option)g FJ(all)f FQ(is)h(the)g(most)h(con)m(v)m(enien)m(t)g(for)f
FJ(SHOW)g FQ(but)f(it)h(ma)m(y)h(tak)m(es)h(time)468
4184 y(to)j(get)f(the)g(answ)m(er)g(after)g(one)g(has)g(w)m(ork)m(ed)g
(sev)m(eral)g(hours.)44 b(When)32 b(en)m(tering)468 4284
y(REDUCE)e(the)h(option)f FJ(all)f FQ(for)h FJ(SHOW)g
FQ(giv)m(es:)817 4461 y FH(SHOW)42 b(all;)390 b(==>)43
b(scalars)d(are:)i(NIL)1776 4560 y(arrays)f(are:)h(NIL)1776
4660 y(lists)f(are:)h(NIL)1776 4759 y(matrices)e(are:)i(NIL)1776
4859 y(vectors)e(are:)i(NIL)1776 4959 y(forms)f(are:)h(NIL)p
eop
%%Page: 256 256
256 255 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(256)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)891 555 y FQ(It)e(is)e(a)h(con)m(v)m
(enien)m(t)h(w)m(a)m(y)g(to)g(remem)m(b)s(er)f(the)g(v)-5
b(arious)26 b(options.)39 b(Starting)26 b(from)891 655
y(a)31 b(fresh)f(en)m(vironmen)m(t)1240 864 y FH(a:=b:=1$)1240
964 y(SHOW)42 b(scalars;)215 b(==>)86 b(scalars)40 b(are:)i(\(A)h(B\))
1240 1063 y(SUPPRESS)d(scalars;)h(==>)h(t)1240 1163 y(SHOW)g(scalars;)
215 b(==>)86 b(scalars)40 b(are:)i(NIL)745 1385 y FQ(iii.)h(The)e
FJ(CLEAR)e FQ(function)g(of)i(the)f(system)h(do)s(es)f(not)h(do)g(a)g
(complete)g(cleaning)891 1498 y(of)31 b FJ(OPERATORS)d
FQ(and)i FJ(FUNCTIONS)p FQ(.)f(The)h(follo)m(wing)f(t)m(w)m(o)j
(functions)d(do)i(a)g(more)891 1611 y(complete)f(cleaning)f(and,)g
(also)g(automatically)g(tak)m(es)i(in)m(to)f(accoun)m(t)g(the)g
FD(user)891 1724 y FQ(\015ag)d(and)f(prop)s(erties)e(that)j(the)f
(functions)f FJ(PUTFLAG)f FQ(and)i FJ(PUTPROP)e FQ(ma)m(y)j(ha)m(v)m(e)
891 1837 y(in)m(tro)s(duced.)891 1973 y(Their)40 b(names)h(are)g
FJ(CLEAROP)e FQ(and)i FJ(CLEARFUNCTIONS)p FQ(.)c FJ(CLEAROP)i
FQ(tak)m(es)k(one)891 2073 y(op)s(erator)27 b(as)f(its)f(argumen)m(t.)
40 b FJ(CLEARFUNCTIONS)22 b FQ(is)j(a)i(nary)e(command.)39
b(If)26 b(one)891 2173 y(issues)1240 2382 y FH(CLEARFUNCTIONS)38
b(a1,a2,)j(...)h(,)i(an)e($)891 2604 y FQ(The)31 b(functions)e(with)h
(names)79 b FJ(a1,a2,)46 b(...)h(,an)30 b FQ(are)h(cleared.)42
b(One)31 b(should)891 2717 y(b)s(e)20 b(careful)g(when)f(using)g(this)h
(facilit)m(y)f(since)h(the)h(only)e(functions)g(whic)m(h)g(cannot)891
2830 y(b)s(e)30 b(erased)h(are)f(those)h(whic)m(h)e(are)i(protected)h
(with)d(the)h FJ(lose)f FQ(\015ag.)664 2984 y @beginspecial
@setspecial @endspecial 182 x FE(23.8)136 b(Handling)45
b(of)g(P)l(olynomials)664 3418 y FQ(The)39 b(mo)s(dule)g(con)m(tains)g
(some)i(utilit)m(y)d(functions)g(to)j(handle)d(standard)h(quotien)m(ts)
664 3531 y(and)30 b(sev)m(eral)h(new)f(facilities)e(to)j(manipulate)e
(p)s(olynomials.)795 3753 y(i.)45 b(Tw)m(o)d(functions)d
FJ(ALG)p 1659 3753 29 4 v 34 w(TO)p 1789 3753 V 34 w(SYMB)g
FQ(and)i FJ(SYMB)p 2434 3753 V 33 w(TO)p 2563 3753 V
34 w(ALG)f FQ(allo)m(w)h(the)g(c)m(hanging)g(of)891 3853
y(an)f(expression)e(whic)m(h)g(is)h(in)f(the)i(algebraic)f(standard)g
(quotien)m(t)h(form)f(in)m(to)891 3953 y(a)i(pre\014x)d(lisp)g(form)h
(and)g(vice-v)m(ersa.)70 b(This)37 b(is)i(made)h(in)e(suc)m(h)i(a)g(w)m
(a)m(y)g(that)891 4052 y(the)h(sym)m(b)s(ol)d FJ(list)h
FQ(whic)m(h)g(app)s(ears)g(in)g(the)h(algebraic)g(mo)s(de)f(disapp)s
(ear)f(in)891 4152 y(the)44 b(sym)m(b)s(olic)e(form)h(\(there)h(it)f(b)
s(ecomes)h(a)g(paren)m(thesis)e(\\\(\)")j(\))f(and)f(it)g(is)891
4251 y(rein)m(tro)s(duced)30 b(in)h(the)g(translation)g(from)g(a)h(sym)
m(b)s(olic)d(pre\014x)i(lisp)e(expression)891 4351 y(to)f(an)e
(algebraic)g(one.)39 b(The)26 b(follo)m(wing)f(example)h(sho)m(ws)g(ho)
m(w)h(the)f(w)m(ell-kno)m(wn)891 4451 y(lisp)21 b(function)g
FJ(FLATTENS)g FQ(can)i(b)s(e)f(trivially)e(transp)s(ortd)h(in)m(to)i
(algebraic)f(mo)s(de:)1109 4660 y FH(algebraic)40 b(procedure)g(ecrase)
h(x;)1109 4759 y(lisp)h(symb_to_alg)d(flattens1)h(alg_to_symb)f
(algebraic)h(x;)1153 4959 y(symbolic)g(procedure)g(flattens1)g(x;)p
eop
%%Page: 257 257
257 256 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.8.)72 b(HANDLING)32 b(OF)e(POL)-8 b(YNOMIALS)1220
b FQ(257)730 555 y FH(\045)43 b(ll;)f(==>)g(\(\(A)h(B\))g(\(\(C)f(D\))h
(E\)\))730 655 y(\045)g(flattens1)d(ll;)i(\(A)h(B)g(C)g(D)g(E\))817
754 y(if)f(atom)g(x)i(then)e(list)f(x)j(else)817 854
y(if)e(cdr)h(x)g(then)991 954 y(append\(flattens1)37
b(car)42 b(x,)h(flattens1)d(cdr)i(x\))904 1053 y(else)g(flattens1)e
(car)i(x;)468 1265 y FQ(giv)m(es,)31 b(for)f(instance,)817
1477 y FH(ll:={a,{b,{c},d,)o(e})o(,{)o({{z)o(}})o(}}$)817
1576 y(ECRASE)41 b(ll;)h(==>)h({A,)f(B,)h(C,)f(D,)h(E,)g(Z})347
1788 y FQ(ii.)h FJ(LEADTERM)37 b FQ(and)h FJ(REDEXPR)f
FQ(are)i(the)h(algebraic)e(equiv)-5 b(alen)m(t)39 b(of)g(the)g(sym)m(b)
s(olic)468 1888 y(functions)d FJ(LT)g FQ(and)h FJ(RED)p
FQ(.)f(They)h(giv)m(e)g(the)h FD(le)-5 b(ading)40 b(term)d
FQ(and)g(the)g FD(r)-5 b(e)g(ductum)468 1987 y FQ(of)29
b(a)h(p)s(olynomial.)37 b(They)29 b(also)g(w)m(ork)g(for)g(rational)f
(functions.)39 b(Their)27 b(in)m(terest)468 2087 y(lies)k(in)g(the)i
(fact)g(that)g(they)f(do)g(not)h(require)e(to)i(extract)h(the)e(main)f
(v)-5 b(ariable.)468 2187 y(They)30 b(w)m(ork)g(according)h(to)g(the)f
(curren)m(t)h(ordering)e(of)h(the)h(system:)817 2398
y FH(pol:=x+y+z$)817 2498 y(LEADTERM)40 b(pol;)i(==>)g(x)817
2598 y(korder)f(y,x,z;)817 2697 y(LEADTERM)f(pol;)i(==>)g(y)817
2797 y(REDEXPR)e(pol;)i(==>)h(x)g(+)g(z)468 3022 y FQ(By)f(default,)i
(the)e(represen)m(tation)g(of)f(m)m(ultiv)-5 b(ariate)41
b(p)s(olynomials)e(is)i(recur-)468 3135 y(siv)m(e.)81
b(With)44 b(suc)m(h)f(a)i(represen)m(tation,)i(the)d(function)f
FJ(LEADTERM)f FQ(do)s(es)h(not)468 3248 y(necessarily)28
b(extract)i(a)e(true)h(monom.)40 b(It)28 b(extracts)i(a)f(monom)g(in)e
(the)i(leading)468 3361 y(indeterminate)c(m)m(ultiplied)d(b)m(y)k(a)g
(p)s(olynomial)e(in)g(the)i(other)h(indeterminates.)468
3473 y(Ho)m(w)m(ev)m(er,)35 b(v)m(ery)e(often)g(one)g(needs)f(to)i
(handle)d(true)h(monoms)g(separately)-8 b(.)48 b(In)468
3586 y(that)37 b(case,)i(one)e(needs)f(a)h(p)s(olynomial)c(in)j
FD(distributive)g FQ(form.)58 b(Suc)m(h)36 b(a)h(form)468
3699 y(is)i(pro)m(vided)f(b)m(y)i(the)g(pac)m(k)-5 b(age)42
b(GR)m(OEBNER)f(\(c)m(hapter)g @beginspecial @setspecial
@endspecial(45\).)70 b(The)39 b(facilit)m(y)468 3812
y(there)29 b(ma)m(y)g(b)s(e)e(to)s(o)i(in)m(v)m(olv)m(ed)f(and)g(the)h
(need)f(to)h(load)f(an)g(additional)e(pac)m(k)-5 b(age)468
3925 y(can)37 b(b)s(e)e(a)i(problem.)57 b(So,)38 b(a)f(new)f(switc)m(h)
f(is)h(created)h(to)g(handle)e FD(distribute)-5 b(d)468
4038 y FQ(p)s(olynomials.)38 b(It)29 b(is)g(called)g
FJ(DISTRIBUTE)d FQ(and)j(a)h(new)f(function)f FJ(DISTRIBUTE)468
4151 y FQ(puts)c(a)i(p)s(olynomial)c(in)i(distributiv)m(e)e(form.)39
b(With)24 b(the)i(switc)m(h)e FN(on)p FQ(,)j FJ(LEADTERM)468
4264 y FQ(giv)m(es)k FN(true)f FQ(monoms.)468 4414 y
FJ(MONOM)f FQ(transforms)g(a)i(p)s(olynomial)d(in)m(to)i(a)h(list)e(of)
h(monoms.)41 b(It)30 b(w)m(orks)g(what-)468 4527 y(ev)m(er)h(the)g
(setting)f(of)h(the)f(switc)m(h)g FJ(DISTRIBUTE)p FQ(.)468
4677 y FJ(SPLITTERMS)h FQ(is)i(analoguous)h(to)h FJ(MONOM)d
FQ(except)j(that)g(it)f(giv)m(es)g(a)g(list)f(of)h(t)m(w)m(o)468
4790 y(lists.)68 b(The)39 b(\014rst)h(sublist)d(con)m(tains)j(the)g(p)s
(ositiv)m(e)f(terms)h(while)e(the)i(second)468 4903 y(sublist)28
b(con)m(tains)i(the)h(negativ)m(e)h(terms.)p eop
%%Page: 258 258
258 257 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(258)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)891 555 y FJ(SPLITPLUSMINUS)21
b FQ(giv)m(es)k(a)g(list)e(whose)h(\014rst)g(elemen)m(t)h(is)e(an)i
(expression)e(of)i(the)891 668 y(p)s(ositiv)m(e)32 b(part)f(of)i(the)f
(p)s(olynomial)d(and)j(its)f(second)i(elemen)m(t)f(is)f(its)h(negativ)m
(e)891 781 y(part.)745 969 y(iii.)43 b(Tw)m(o)c(complemen)m(tary)f
(functions)f FJ(LOWESTDEG)e FQ(and)j FJ(DIVPOL)e FQ(are)j(pro)m(vided.)
891 1082 y(The)30 b(\014rst)g(tak)m(es)i(a)f(p)s(olynomial)c(as)k(its)f
(\014rst)g(argumen)m(t)h(and)e(the)i(name)f(of)h(an)891
1194 y(indeterminate)g(as)i(its)e(second)h(argumen)m(t.)47
b(It)32 b(returns)f(the)i FD(lowest)i(de)-5 b(gr)g(e)g(e)33
b FQ(in)891 1307 y(that)k(indeterminate.)56 b(The)35
b(second)h(function)f(tak)m(es)i(t)m(w)m(o)g(p)s(olynomials)d(and)891
1420 y(returns)c(b)s(oth)f(the)i(quotien)m(t)f(and)g(its)g(remainder.)
664 1575 y @beginspecial @setspecial @endspecial 182
x FE(23.9)136 b(Handling)45 b(of)g(T)-11 b(ranscenden)l(tal)46
b(F)-11 b(unctions)664 1996 y FQ(The)29 b(functions)e
FJ(TRIGREDUCE)f FQ(and)i FJ(TRIGEXPAND)e FQ(and)j(the)g(equiv)-5
b(alen)m(t)28 b(ones)h(for)g(h)m(y-)664 2096 y(p)s(erb)s(olic)i
(functions)g FJ(HYPREDUCE)g FQ(and)h FJ(HYPEXPAND)f FQ(mak)m(e)j(the)f
(transformations)f(to)664 2195 y(m)m(ultiple)26 b(argumen)m(ts)j(and)f
(from)h(m)m(ultiple)d(argumen)m(ts)j(to)g(elemen)m(tary)g(argumen)m
(ts.)1013 2401 y FH(aa:=sin\(x+y\)$)1013 2501 y(TRIGEXPAND)39
b(aa;)k(==>)f(SIN\(X\)*COS\(Y\))c(+)43 b(SIN\(Y\)*COS\(X\))1013
2600 y(TRIGREDUCE)c(ws;)k(==>)f(SIN\(Y)g(+)h(X\))664
2806 y FQ(When)38 b(a)g(trigonometric)f(or)h(h)m(yp)s(erb)s(olic)d
(expression)h(is)h(symmetric)g(with)f(resp)s(ect)664
2906 y(to)55 b(the)g(in)m(terc)m(hange)g(of)f FJ(SIN)47
b(\(SINH\))53 b FQ(and)h FJ(COS)47 b(\(COSH\))p FQ(,)53
b(the)h(application)f(of)664 3006 y FJ(TRIG\(HYP\)REDUCE)28
b FQ(ma)m(y)33 b(often)f(lead)g(to)h(great)g(simpli\014cations.)42
b(Ho)m(w)m(ev)m(er,)35 b(if)c(it)h(is)664 3105 y(highly)h(asymmetric,)j
(the)f(rep)s(eated)g(application)e(of)i FJ(TRIG\(HYP\)REDUCE)30
b FQ(follo)m(w)m(ed)664 3205 y(b)m(y)42 b(the)g(use)g(of)g
FJ(TRIG\(HYP\)EXPAND)c FQ(will)i(lead)h(to)i FD(mor)-5
b(e)44 b FQ(complicated)d(but)h(more)664 3304 y(symmetric)30
b(expressions:)1013 3510 y FH(aa:=\(sin\(x\)^2+co)o(s\()o(x\)^)o(2\))o
(^3$)1013 3610 y(TRIGREDUCE)39 b(aa;)k(==>)f(1)1013 3710
y(bb:=1+sin\(x\)^3$)1013 3809 y(TRIGREDUCE)d(bb;)k(==>)1362
3909 y(-)g(SIN\(3*X\))d(+)j(3*SIN\(X\))d(+)k(4)1318 4008
y(----------------)o(---)o(--)o(--)o(---)o(-)1841 4108
y(4)1056 4307 y(TRIGEXPAND)c(ws;)i(==>)1362 4407 y(3)784
b(2)1100 4507 y(SIN\(X\))85 b(-)43 b(3*SIN\(X\)*COS\(X\))81
b(+)43 b(3*SIN\(X\))d(+)j(4)1100 4606 y(----------------)o(---)o(--)o
(---)o(--)o(--)o(---)o(--)o(---)o(--)o(--)o(---)1928
4706 y(4)664 4925 y FQ(See)31 b(also)f(the)h(TRIGSIMP)e(pac)m(k)-5
b(age)33 b(\(c)m(hapter)e @beginspecial @setspecial @endspecial(85)q
(\).)p eop
%%Page: 259 259
259 258 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.10.)73 b(COER)m(CION)29 b(FR)m(OM)i(LISTS)e(TO)g(ARRA)-8
b(YS)31 b(AND)g(CONVERSE)95 b FQ(259)241 464 y @beginspecial
@setspecial @endspecial 91 x FE(23.10)136 b(Co)t(ercion)45
b(from)g(lists)h(to)f(arra)l(ys)h(and)f(con)l(v)l(erse)241
808 y FQ(Sometimes)36 b(when)f(a)i(list)e(is)g(v)m(ery)i(long)f(and)g
(esp)s(ecially)f(if)g(frequen)m(t)h(access)i(to)f(its)241
921 y(elemen)m(ts)h(are)h(needed)f(it)g(is)f(adv)-5 b(an)m(tageous)40
b(\(temp)s(orarily\))d(to)i(transform)f(it)g(in)m(to)241
1034 y(an)g(arra)m(y)-8 b(.)65 b FJ(LIST)p 862 1034 29
4 v 33 w(TO)p 991 1034 V 34 w(ARRAY)37 b FQ(has)h(three)g(argumen)m
(ts.)65 b(The)38 b(\014rst)f(is)h(the)g(list.)63 b(The)241
1147 y(second)44 b(is)f(an)h(in)m(teger)h(whic)m(h)d(indicates)h(the)i
(arra)m(y)f(dimension)e(required.)80 b(The)241 1260 y(third)27
b(is)i(the)h(name)f(of)h(an)f(iden)m(ti\014er)f(whic)m(h)g(will)f(pla)m
(y)i(the)h(role)f(of)h(the)f(arra)m(y)h(name)241 1372
y(generated)42 b(b)m(y)f(it.)72 b(If)41 b(the)g(c)m(hosen)h(dimension)d
(is)h(not)h(compatible)g(with)f(the)h(list)241 1485 y(depth)e(and)g
(structure)h(an)g(error)f(message)i(is)e(issued.)68 b
FJ(ARRAY)p 2501 1485 V 33 w(TO)p 2630 1485 V 34 w(LIST)39
b FQ(do)s(es)g(the)241 1598 y(opp)s(osite)29 b(co)s(ercion.)41
b(It)31 b(tak)m(es)g(the)g(arra)m(y)g(name)f(as)h(its)f(sole)g(argumen)
m(t.)241 1753 y @beginspecial @setspecial @endspecial
182 x FE(23.11)136 b(Handling)45 b(of)g(n{dimensional)h(V)-11
b(ectors)241 2174 y FQ(Explicit)28 b(v)m(ectors)j(in)e
FJ(EUCLIDEAN)f FQ(space)i(ma)m(y)h(b)s(e)e(represen)m(ted)h(b)m(y)g
(list-lik)m(e)f(or)h(bag-)241 2274 y(lik)m(e)42 b(ob)5
b(jects)43 b(of)g(depth)f(1.)78 b(The)42 b(comp)s(onen)m(ts)h(ma)m(y)g
(b)s(e)f(bags)h(but)f(ma)m(y)h FN(not)g FQ(b)s(e)241
2373 y(lists.)57 b(F)-8 b(unctions)36 b(are)h(pro)m(vided)f(to)h(do)f
(the)h(sum,)g(the)g(di\013erence)f(and)g(the)h(scalar)241
2473 y(pro)s(duct.)71 b(When)41 b(space-dimension)e(is)h(three)h(there)
g(are)g(also)g(functions)f(for)g(the)241 2573 y(cross)35
b(and)g(mixed)f(pro)s(ducts.)55 b FJ(SUMVECT)p FQ(,)33
b FJ(MINVECT)p FQ(,)h FJ(SCALVECT)p FQ(,)f FJ(CROSSVECT)g
FQ(ha)m(v)m(e)241 2672 y(t)m(w)m(o)e(argumen)m(ts.)42
b FJ(MPVECT)28 b FQ(has)i(three)h(argumen)m(ts.)546 2878
y FH(l:={1,2,3}$)546 2978 y(ll:=list\(a,b,c\)$)546 3077
y(SUMVECT\(l,ll\);)168 b(==>)43 b({A)g(+)g(1,B)f(+)h(2,C)g(+)g(3})546
3177 y(MINVECT\(l,ll\);)168 b(==>)43 b({)g(-)g(A)g(+)g(1,)g(-)g(B)h(+)f
(2,)f(-)i(C)f(+)g(3})546 3277 y(SCALVECT\(l,ll\);)124
b(==>)43 b(A)g(+)g(2*B)f(+)i(3*C)546 3376 y(CROSSVECT\(l,ll\);)80
b(==>)43 b({)g(-)g(3*B)f(+)i(2*C,3*A)c(-)j(C,)g(-)g(2*A)g(+)g(B})546
3476 y(MPVECT\(l,ll,l\);)124 b(==>)43 b(0)241 3624 y
@beginspecial @setspecial @endspecial 188 x FE(23.12)136
b(Handling)45 b(of)g(Grassmann)g(Op)t(erators)241 4065
y FQ(Grassman)33 b(v)-5 b(ariables)32 b(are)i(often)f(used)g(in)f(ph)m
(ysics.)49 b(F)-8 b(or)34 b(them)f(the)h(m)m(ultiplication)241
4178 y(op)s(eration)h(is)g(asso)s(ciativ)m(e,)i(distributiv)m(e)c(but)i
(an)m(ticomm)m(utativ)m(e.)58 b(The)35 b(basic)g(RE-)241
4291 y(DUCE)k(do)s(es)h(not)g(pro)m(vide)e(this.)68 b(Ho)m(w)m(ev)m(er)
41 b(implemen)m(ting)d(it)h(in)f(full)f(generalit)m(y)241
4404 y(w)m(ould)f(almost)h(certainly)f(decrease)i(the)g(o)m(v)m(erall)f
(e\016ciency)g(of)h(the)f(system.)61 b(This)241 4516
y(small)24 b(mo)s(dule)g(together)j(with)d(the)i(declaration)f(of)h(an)
m(tisymmetry)f(for)h(op)s(erators)f(is)241 4629 y(enough)g(to)h(deal)f
(with)f(most)i(calculations.)38 b(The)25 b(reason)h(is,)g(that)g(a)g
(pro)s(duct)e(of)h(sim-)241 4742 y(ilar)g(an)m(ticomm)m(uting)i(k)m
(ernels)g(can)g(easily)f(b)s(e)h(transformed)f(in)m(to)h(an)g(an)m
(tisymmetric)241 4855 y(op)s(erator)37 b(with)f(as)h(man)m(y)h(indices)
d(as)i(the)h(n)m(um)m(b)s(er)e(of)h(these)h(k)m(ernels.)60
b(Moreo)m(v)m(er,)p eop
%%Page: 260 260
260 259 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(260)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)664 555 y FQ(one)j(ma)m(y)g(also)g
(issue)e(pattern)i(matc)m(hing)f(rules)f(to)j(implemen)m(t)d(the)h(an)m
(ticomm)m(uta-)664 668 y(tivit)m(y)e(of)g(the)h(pro)s(duct.)39
b(The)30 b(functions)f(in)g(this)g(mo)s(dule)g(represen)m(t)h(the)h
(minim)m(um)664 781 y(functionalit)m(y)26 b(required)g(to)j(iden)m
(tify)d(them)i(and)f(to)i(handle)d(their)h(sp)s(eci\014c)f(features.)
664 944 y FJ(PUTGRASS)f FQ(is)h(a)i(\(nary\))f(command)g(whic)m(h)f
(giv)m(e)h(iden)m(ti\014ers)f(the)h(prop)s(ert)m(y)f(to)i(b)s(e)f(the)
664 1057 y(names)j(of)h(Grassmann)f(k)m(ernels.)40 b
FJ(REMGRASS)28 b FQ(remo)m(v)m(es)k(this)d(prop)s(ert)m(y)-8
b(.)664 1219 y FJ(GRASSP)29 b FQ(is)g(a)i(b)s(o)s(olean)e(function)g
(whic)m(h)h(detects)h(Grassmann)f(k)m(ernels.)664 1382
y FJ(GRASSPARITY)43 b FQ(tak)m(es)k(a)f FN(monom)f FQ(as)h(argumen)m(t)
g(and)f(giv)m(es)h(its)f(parit)m(y)-8 b(.)87 b(If)46
b(the)664 1495 y(monom)30 b(is)g(a)h(simple)d(Grassmann)i(k)m(ernel)f
(it)h(returns)g(1.)664 1644 y FJ(GHOSTFACTOR)d FQ(has)k(t)m(w)m(o)g
(argumen)m(ts.)41 b(Eac)m(h)31 b(one)g(is)e(a)i(monom.)41
b(It)30 b(is)g(equal)g(to)1013 1850 y FH(\(-1\)**\(GRASSPARI)o(TY)37
b(u)43 b(*)g(GRASSPARITY)c(v\))664 2056 y FQ(Here)31
b(is)e(an)i(illustration)c(to)k(sho)m(w)g(ho)m(w)f(the)g(ab)s(o)m(v)m
(e)i(functions)d(w)m(ork:)1013 2262 y FH(PUTGRASS)40
b(eta;)1013 2362 y(if)j(GRASSP)e(eta\(1\))g(then)h("Grassmann)d
(kernel";)h(==>)2931 2461 y(Grassmann)g(kernel)1013 2561
y(aa:=eta\(1\)*eta\(2)o(\)-)o(eta)o(\(2)o(\)*e)o(ta)o(\(1)o(\);)299
b(==>)1972 2661 y(AA)43 b(:=)86 b(-)43 b(ETA\(2\)*ETA\(1\))38
b(+)43 b(ETA\(1\)*ETA\(2\))1013 2760 y(GRASSPARITY)c(eta\(1\);)869
b(==>)42 b(1)1013 2860 y(GRASSPARITY)d(\(eta\(1\)*eta\(2\)\);)473
b(==>)42 b(0)1013 2960 y(GHOSTFACTOR\(eta\()o(1\))o(,et)o(a\()o(2\)\))o
(;)517 b(==>)42 b(-1)1013 3059 y(grasskernel:=)1100 3159
y({eta\(~x\)*eta\(~y\))37 b(=>)43 b(-eta)f(y)h(*)g(eta)f(x)i(when)d
(nordp\(x,y\),)1100 3258 y(\(~x\)*\(~x\))f(=>)j(0)g(when)f(grassp)f
(x}$)1013 3358 y(exp:=eta\(1\)^2$)1013 3458 y(exp)h(where)g
(grasskernel;)736 b(==>)42 b(0)1013 3557 y(aa)h(where)e(grasskernel;)
780 b(==>)86 b(-)43 b(2*ETA\(2\)*ETA\(1\))664 3710 y
@beginspecial @setspecial @endspecial 181 x FE(23.13)136
b(Handling)46 b(of)f(Matrices)664 4144 y FQ(There)30
b(are)h(additional)d(facilities)h(for)h(matrices.)795
4355 y(i.)45 b(Often)30 b(one)g(needs)g(to)g(construct)h(some)f
FJ(UNIT)f FQ(matrix)g(of)h(a)g(giv)m(en)g(dimension.)891
4454 y(This)i(construction)h(is)f(p)s(erformed)g(b)m(y)i(the)f
(function)f FJ(UNITMAT)p FQ(.)g(It)h(is)g(a)g(nary)891
4554 y(function.)40 b(The)30 b(command)g(is)1240 4750
y FH(UNITMAT)41 b(M1\(n1\),)g(M2\(n2\),)f(.....Mi\(ni\))f(;)891
4959 y FQ(where)j FJ(M1,...Mi)f FQ(are)h(names)h(of)f(matrices)h(and)89
b FJ(n1,)47 b(n2,)g(...,)g(ni)42 b FQ(are)p eop
%%Page: 261 261
261 260 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.13.)73 b(HANDLING)31 b(OF)g(MA)-8 b(TRICES)1367
b FQ(261)468 555 y(in)m(tegers.)468 692 y FJ(MKIDM)42
b FQ(is)f(a)j(generalisation)e(of)h FJ(MKID)p FQ(.)f(It)h(allo)m(ws)f
(the)h(indexing)e(of)i(matrix)468 792 y(names.)76 b(If)41
b FJ(u)h FQ(and)f FJ(u1)h FQ(are)g(t)m(w)m(o)i(matrices,)h(one)d(can)h
(go)g(from)e(one)i(to)f(the)468 891 y(other:)817 1103
y FH(matrix)f(u\(2,2\);$)84 b(unitmat)40 b(u1\(2\)$)817
1203 y(u1;)i(==>)1165 1302 y([1)87 b(0])1165 1402 y([)174
b(])1165 1502 y([0)87 b(1])817 1701 y(mkidm\(u,1\);)39
b(==>)1165 1801 y([1)87 b(0])1165 1900 y([)174 b(])1165
2000 y([0)87 b(1])468 2225 y FQ(Note:)44 b(MKIDM\(V,1\))33
b(will)28 b(fail)i(ev)m(en)i(if)e(the)h(matrix)g(V1)h(exists,)f(unless)
e(V)i(is)468 2338 y(also)f(a)h(matrix.)468 2475 y(This)h(function)h
(allo)m(ws)h(to)h(mak)m(e)g(lo)s(ops)e(on)h(matrices)g(lik)m(e)g(the)g
(follo)m(wing.)51 b(If)468 2574 y FJ(U,)c(U1,)g(U2,..,)f(U5)30
b FQ(are)h(matrices:)817 2786 y FH(FOR)42 b(I:=1:5)f(DO)i
(U:=U-MKIDM\(U,I\);)347 3011 y FQ(ii.)h(The)28 b(next)h(functions)e
(map)h(matrices)g(on)m(to)i(bag-lik)m(e)f(or)f(list-lik)m(e)f(ob)5
b(jects)29 b(and)468 3124 y(con)m(v)m(ersely)i(they)g(generate)h
(matrices)e(from)g(bags)g(or)h(lists.)468 3261 y FJ(COERCEMAT)d
FQ(transforms)h(the)i(matrix)f(\014rst)f(argumen)m(t)i(in)m(to)f(a)h
(list)e(of)i(lists.)817 3473 y FH(COERCEMAT\(U,id\))468
3698 y FQ(When)36 b FJ(id)f FQ(is)f FJ(list)h FQ(the)h(matrix)f(is)g
(transformed)f(in)m(to)i(a)g(list)f(of)g(lists.)56 b(Oth-)468
3810 y(erwise)34 b(it)h(transforms)f(it)h(in)m(to)g(a)g(bag)g(of)h
(bags)f(whose)g(en)m(v)m(elop)s(e)g(is)f(equal)h(to)468
3923 y FJ(id)p FQ(.)468 4060 y FJ(BAGLMAT)19 b FQ(do)s(es)i(the)h(in)m
(v)m(erse.)37 b(The)21 b FN(\014rst)g FQ(argumen)m(t)h(is)e(the)i
(bag-lik)m(e)f(or)g(list-lik)m(e)468 4160 y(ob)5 b(ject)31
b(while)e(the)h(second)h(argumen)m(t)f(is)g(the)g(matrix)g(iden)m
(ti\014er.)860 4372 y FH(BAGLMAT\(bgl,U\))468 4597 y
FJ(bgl)42 b FQ(b)s(ecomes)h(the)h(matrix)e FJ(U)p FQ(.)h(The)g
(transformation)f(is)g FN(not)h FQ(done)g(if)f FJ(U)g
FQ(is)468 4710 y FD(alr)-5 b(e)g(ady)39 b FQ(the)d(name)g(of)g(a)h
(previously)d(de\014ned)h(matrix,)i(to)f(a)m(v)m(oid)h(acciden)m(tal)
468 4823 y(rede\014nition)28 b(of)j(that)g(matrix.)p
eop
%%Page: 262 262
262 261 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(262)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)770 555 y FQ(ii.)44
b(The)25 b(functions)f FJ(SUBMAT)p FQ(,)g FJ(MATEXTR)p
FQ(,)g FJ(MATEXTC)f FQ(tak)m(e)k(parts)e(of)g(a)h(giv)m(en)f(matrix.)
891 692 y FJ(SUBMAT)k FQ(has)h(three)h(argumen)m(ts.)1284
899 y FH(SUBMAT\(U,nr,nc\))891 1120 y FQ(The)22 b(\014rst)f(is)g(the)i
(matrix)e(name,)j(and)e(the)g(other)g(t)m(w)m(o)i(are)e(the)g(ro)m(w)h
(and)e(column)891 1233 y(n)m(um)m(b)s(ers.)43 b(It)31
b(giv)m(es)h(the)f(submatrix)f(obtained)g(from)h FJ(U)g
FQ(deleting)g(the)g(ro)m(w)h FJ(nr)891 1346 y FQ(and)i(the)h(column)e
FJ(nc)p FQ(.)52 b(When)34 b(one)g(of)h(them)f(is)g(equal)f(to)j(zero)f
(only)e(column)891 1459 y FJ(nc)d FQ(or)h(ro)m(w)f FJ(nr)g
FQ(is)f(deleted.)891 1595 y FJ(MATEXTR)k FQ(and)i FJ(MATEXTC)e
FQ(extract)j(a)g(ro)m(w)f(or)g(a)g(column)f(and)g(place)h(it)g(in)m(to)
g(a)891 1695 y(list-lik)m(e)29 b(or)i(bag-lik)m(e)f(ob)5
b(ject.)1240 1902 y FH(MATEXTR\(U,VN,nr\))1240 2002 y
(MATEXTC\(U,VN,nc\))891 2223 y FQ(where)26 b FJ(U)f FQ(is)f(the)i
(matrix,)g FJ(VN)f FQ(is)g(the)h(\\v)m(ector)h(name",)h
FJ(nr)d FQ(and)f FJ(nc)h FQ(are)h(in)m(tegers.)891 2336
y(If)k FJ(VN)f FQ(is)g(equal)g(to)h FJ(list)f FQ(the)h(v)m(ector)h(is)e
(giv)m(en)g(as)h(a)g(list)f(otherwise)g(it)g(is)g(giv)m(en)891
2449 y(as)i(a)g(bag.)745 2635 y(iii.)43 b(F)-8 b(unctions)34
b(whic)m(h)f(manipulate)f(matrices:)48 b FJ(MATSUBR)p
FQ(,)32 b FJ(MATSUBC)p FQ(,)g FJ(HCONCMAT)p FQ(,)891
2748 y FJ(VCONCMAT)p FQ(,)d FJ(TPMAT)p FQ(,)g FJ(HERMAT)p
FQ(.)891 2884 y FJ(MATSUBR)h FQ(and)g FJ(MATSUBC)f FQ(substitute)h(ro)m
(ws)h(and)f(columns.)42 b(They)30 b(ha)m(v)m(e)j(three)891
2984 y(argumen)m(ts.)1240 3191 y FH(MATSUBR\(U,bgl,nr\))1240
3291 y(MATSUBC\(U,bgl,nc\))891 3512 y FQ(The)j(meaning)f(of)h(the)h(v)
-5 b(ariables)34 b FJ(U,)47 b(nr,)g(nc)36 b FQ(is)f(the)h(same)g(as)h
(ab)s(o)m(v)m(e)g(while)891 3625 y FJ(bgl)g FQ(is)f(a)h(list-lik)m(e)e
(or)i(bag-lik)m(e)g(v)m(ector.)62 b(Its)37 b(length)f(should)f(b)s(e)i
(compatible)891 3738 y(with)30 b(the)g(dimensions)e(of)i(the)h(matrix.)
891 3874 y FJ(HCONCMAT)e FQ(and)g FJ(VCONCMAT)f FQ(concatenate)33
b(t)m(w)m(o)f(matrices.)1240 4082 y FH(HCONCMAT\(U,V\))1240
4181 y(VCONCMAT\(U,V\))891 4402 y FQ(The)i(\014rst)g(function)f
(concatenates)j(horizon)m(tally)-8 b(,)35 b(the)g(second)f(one)h
(concate-)891 4515 y(nates)c(v)m(ertically)-8 b(.)41
b(The)30 b(dimensions)d(m)m(ust)k(matc)m(h.)891 4651
y FJ(TPMAT)37 b FQ(mak)m(es)h(the)g(tensor)g(pro)s(duct)e(of)i(t)m(w)m
(o)h(matrices.)63 b(It)38 b(is)e(also)i(an)g FD(in\014x)891
4751 y FQ(function.)1240 4959 y FH(TPMAT\(U,V\))i(or)i(U)i(TPMAT)d(V)p
eop
%%Page: 263 263
263 262 bop 241 299 a @beginspecial @setspecial @endspecial
FM(23.13.)73 b(HANDLING)31 b(OF)g(MA)-8 b(TRICES)1367
b FQ(263)468 555 y FJ(HERMAT)29 b FQ(tak)m(es)j(the)e(hermitian)e
(conjugate)k(of)f(a)f(matrix)860 767 y FH(HERMAT\(U,HU\))468
992 y FQ(where)44 b FJ(HU)h FQ(is)f(the)h(iden)m(ti\014er)e(for)h(the)i
(hermitian)c(matrix)j(of)g FJ(U)p FQ(.)f(It)h(should)468
1105 y FN(unassigned)40 b FQ(for)f(this)f(function)f(to)j(w)m(ork)f
(successfully)-8 b(.)65 b(This)38 b(is)g(done)h(on)468
1218 y(purp)s(ose)22 b(to)j(prev)m(en)m(t)f(acciden)m(tal)g
(rede\014nition)e(of)i(an)g(already)f(used)g(iden)m(ti\014er.)324
1405 y(iv.)45 b FJ(SETELMAT)33 b FQ(and)i FJ(GETELMAT)e
FQ(are)i(functions)f(of)i(t)m(w)m(o)g(in)m(tegers.)56
b(The)35 b(\014rst)f(one)468 1518 y(reset)27 b(the)g(elemen)m(t)g
FJ(\(i,j\))e FQ(while)g(the)h(second)h(one)g(extract)h(an)f(elemen)m(t)
g(iden-)468 1631 y(ti\014ed)22 b(b)m(y)i FJ(\(i,j\))p
FQ(.)37 b(They)23 b(ma)m(y)h(b)s(e)e(useful)g(when)g(dealing)h(with)f
(matrices)h FD(inside)468 1744 y(pr)-5 b(o)g(c)g(e)g(dur)g(es)p
FQ(.)p eop
%%Page: 264 264
264 263 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(264)497 b FM(CHAPTER)29 b(23.)72 b(ASSIST:)29 b(V)-10
b(ARIOUS)30 b(USEFUL)g(UTILITIES)p eop
%%Page: 265 265
265 264 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(24)241 1693 y FT(A)-19 b(TENSOR:)75 b(P)-6 b(ac)g(k)-13
b(age)76 b(for)241 1942 y(T)-19 b(ensor)76 b(Simpli\014cation)1224
2424 y Fx(V.)25 b(A.)h(Ilyin)f(and)g(A.)h(P)-6 b(.)26
b(Kryuk)n(o)n(v)241 2665 y FQ(T)-8 b(ensors)36 b(are)h(classical)f
(examples)g(for)g(Ob)5 b(jects)37 b(often)g(used)f(in)f(mathematics)i
(and)241 2778 y(ph)m(ysics.)46 b(Indexed)31 b(ob)5 b(jects)34
b(can)f(ha)m(v)m(e)g(v)m(ery)g(complicated)g(and)f(in)m(tricated)g
(prop)s(er-)241 2891 y(ties.)38 b(F)-8 b(or)26 b(example)f(the)g
(Riemann)e(tensor)i(has)g(symmetry)g(prop)s(erties)e(with)g(resp)s(ect)
241 3003 y(to)37 b(p)s(erm)m(utation)f(of)i(indices.)58
b(Moreo)m(v)m(er)39 b(it)e(satis\014es)f(the)h(cyclic)g(iden)m(tit)m(y)
-8 b(.)60 b(There)241 3116 y(are)33 b(a)g(n)m(um)m(b)s(er)e(of)i
(linear)e(iden)m(tities)h(with)f(man)m(y)i(terms)f(in)g(the)h(case)h
(of)e(Riemann-)241 3229 y(Cartan)23 b(geometry)j(with)c(torsion.)38
b(F)-8 b(rom)24 b(the)g(user's)f(p)s(oin)m(t)g(of)h(view,)g(there)g
(are)g(three)241 3342 y(groups)29 b(of)i(tensor)f(prop)s(erties:)377
3563 y FP(\017)46 b FN(S)30 b FQ(-)h(symmetry)f(with)f(resp)s(ect)h(to)
i(index)d(p)s(erm)m(utation;)377 3745 y FP(\017)46 b
FN(I)30 b FQ(-)h(linear)d(iden)m(tities;)377 3926 y FP(\017)46
b FN(D)31 b FQ(-)f(in)m(v)-5 b(ariance)30 b(with)f(resp)s(ect)h(to)h
(renamings)e(of)i(dumm)m(y)e(indices;)241 4147 y(The)k(problem)f(under)
g(in)m(v)m(estigation)h(can)h(b)s(e)f(form)m(ulated)g(as)h(whether)f(t)
m(w)m(o)h(tensor)241 4260 y(expressions)29 b(are)i(equal)e(or)i(not)f
(b)m(y)h(taking)f(in)m(to)g(accoun)m(t)i(S-I-D)f(prop)s(erties.)241
4411 y @beginspecial @setspecial @endspecial 182 x FE(24.1)135
b(Basic)45 b(tensors)h(and)f(tensor)g(expressions)241
4846 y FQ(Under)29 b(basic)g(tensors)g(w)m(e)i(understand)c(the)j(ob)5
b(ject)31 b(with)d(\014nite)h(n)m(um)m(b)s(er)f(of)i(indices)241
4959 y(whic)m(h)c(can)j(ha)m(v)m(e)g(suc)m(h)e(prop)s(erties)g(as)h
FD(symmetry)h FQ(and)e FD(multiterm)32 b(line)-5 b(ar)31
b(identities)1667 5187 y FQ(265)p eop
%%Page: 266 266
266 265 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(266)490 b FM(CHAPTER)30 b(24.)72 b(A)-8 b(TENSOR:)30
b(TENSOR)f(SIMPLIFICA)-8 b(TION)664 555 y FQ(\(including)27
b(the)k FD(symmetry)j(r)-5 b(elations)p FQ(\).)664 668
y(Under)40 b(tensor)h(expression)f(w)m(e)h(understand)e(an)m(y)j
(expression)d(whic)m(h)h(can)h(b)s(e)g(ob-)664 781 y(tained)28
b(from)f(basic)h(tensors)g(b)m(y)g(summation)f(with)g(in)m(teger)i(co)s
(e\016cien)m(ts)g(and)e(m)m(ulti-)664 894 y(plication)i(\(comm)m
(utativ)m(e\))k(of)d(basic)g(tensors.)664 1007 y(It)g(is)e(assumed)h
(that)h(all)f(terms)g(in)f(the)i(tensor)g(expression)e(ha)m(v)m(e)j
(the)e(same)h(n)m(um)m(b)s(er)664 1120 y(of)g(indices.)38
b(Some)30 b(pairs)e(of)h(them)h(are)g(mark)m(ed)f(as)h(dumm)m(y)e
(ones.)41 b(The)29 b(set)h(of)f(non-)664 1233 y(dumm)m(y)i(names)h(ha)m
(v)m(e)i(to)f(b)s(e)e(the)h(same)h(for)f(eac)m(h)h(term)f(in)f(the)i
(tensor)f(expression.)664 1346 y(The)e(names)g(of)h(dummies)d(can)j(b)s
(e)f(arbitrary)-8 b(.)664 1500 y @beginspecial @setspecial
@endspecial 182 x FE(24.2)136 b(Op)t(erators)45 b(for)g(tensors)664
1935 y FQ(Use)32 b FJ(TENSOR)e FQ(to)i(declare)g(tensors)f(and)g
FJ(TCLEAR)f FQ(to)i(remo)m(v)m(e)h(them.)44 b(The)31
b(command)664 2047 y FJ(TSYM)25 b FQ(de\014nes)g(symmetry)g(relations)g
(of)h(basic)f(tensors)h(and)f FJ(KBASIS)f FQ(determines)h(the)664
2160 y FN(K)p FQ(-Basis,)h(whic)m(h)d(is)g(the)i(general)f(name)g(for)g
(a)h(\\triangle")f(set)h(of)f(linear)f(indep)s(enden)m(t)664
2273 y(v)m(ectors)37 b(for)d(a)i(basic)e(tensor)i(considered)d(as)j(a)f
(separate)h(tensor)f(expression.)54 b(It)35 b(is)664
2386 y(p)s(ossible)29 b(to)i(build)d(the)j(sum,)f(the)i(di\013erence)e
(and)g(the)h(m)m(ultiplication)d(for)j(tensors.)664 2499
y(It)h(is)f(assumed)h(that)g(indices)e(with)h(iden)m(tical)g(names)h
(means)g(the)g(summation)f(o)m(v)m(er)664 2612 y(their)f(v)-5
b(alues.)664 2761 y FN(Example)p FQ(:)664 2967 y FH(1:)43
b(load)f(atensor;)664 3167 y(2:)h(tensor)e(s2,a3;)664
3366 y(3:)i(tsym)f(s2\(i,j\))f(-)i(s2\(j,i\),)302 b(\045)43
b(Symmetric)664 3465 y(3:)261 b(a3\(i,j,k\))40 b(+)j(a3\(j,i,k\),)127
b(\045)43 b(Antisymm.)664 3565 y(3:)261 b(a3\(i,j,k\))40
b(-)j(a3\(j,k,i\);)664 3764 y(4:)g(kbasis)e(s2,a3;)1013
3964 y(s2\(j,i\))g(+)i(\(-1\)*s2\(i,j\))1013 4063 y(1)1013
4163 y(a3\(k,i,j\))d(+)j(a3\(j,i,k\))1013 4263 y(a3\(k,j,i\))d(+)j
(\(-1\)*a3\(j,i,k\))1013 4362 y(a3\(i,k,j\))d(+)j(\(-1\)*a3\(j,i,k\))
1013 4462 y(a3\(i,j,k\))d(+)j(a3\(j,i,k\))1013 4561 y(a3\(j,k,i\))d(+)j
(a3\(j,i,k\))1013 4661 y(5)664 4798 y @beginspecial @setspecial
@endspecial eop
%%Page: 267 267
267 266 bop 241 299 a @beginspecial @setspecial @endspecial
FM(24.3.)72 b(SWITCHES)2105 b FQ(267)241 555 y FE(24.3)135
b(Switc)l(hes)241 808 y FQ(There)25 b(are)i(t)m(w)m(o)g(switc)m(hes)f
(de\014ned.)38 b(The)26 b(switc)m(h)f FJ(DUMMYPRI)f FQ(prin)m(ts)g
(dumm)m(y)h(indices)241 921 y(with)d(in)m(ternal)g(names)i(and)f(n)m
(um)m(b)s(ers.)37 b(It's)24 b(default)e(v)-5 b(alue)24
b(is)e FJ(OFF)p FQ(.)h(The)g(other)h(switc)m(h)241 1034
y(called)c FJ(SHORTEST)f FQ(prin)m(ts)g(tensor)j(expressions)d(in)h
(shortest)h(form)g(that)h(w)m(as)f(pro)s(duced)241 1147
y(during)28 b(ev)-5 b(aluation.)40 b(The)30 b(default)g(v)-5
b(alue)29 b(is)h FJ(OFF)p FQ(.)241 1422 y(F)-8 b(or)35
b(further)f(information)f(refer)i(to)h(the)f(do)s(cumen)m(tation)g
(whic)m(h)e(comes)j(with)e(this)241 1535 y(pac)m(k)-5
b(age.)p eop
%%Page: 268 268
268 267 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(268)490 b FM(CHAPTER)30 b(24.)72 b(A)-8 b(TENSOR:)30
b(TENSOR)f(SIMPLIFICA)-8 b(TION)p eop
%%Page: 269 269
269 268 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(25)241 1693 y FT(A)-26 b(VECTOR:)74 b(A)i(v)-6 b(ector)77
b(algebra)241 1942 y(and)g(calculus)g(pac)-6 b(k)-13
b(age)1505 2424 y Fx(Da)n(vid)25 b(Harp)r(er)853 2515
y(Astronom)n(y)g(Unit,)g(Queen)g(Mary)h(and)f(W)-6 b(est\014eld)26
b(College)1380 2607 y(Univ)n(ersit)n(y)f(of)h(London)1479
2698 y(Mile)h(End)e(Road)1306 2789 y(London)g(E1)h(4NS,)g(England)1254
2911 y(e{mail:)35 b(adh@star.qm)n(w.ac.uk)241 3155 y
FQ(This)28 b(pac)m(k)-5 b(age)32 b(pro)m(vides)d(REDUCE)h(with)f(the)h
(abilit)m(y)e(to)j(p)s(erform)e(v)m(ector)i(algebra)241
3268 y(using)j(the)j(same)f(notation)g(as)h(scalar)f(algebra.)57
b(The)36 b(basic)f(algebraic)h(op)s(erations)241 3380
y(are)30 b(supp)s(orted,)e(as)j(are)f(di\013eren)m(tiation)e(and)i(in)m
(tegration)g(of)g(v)m(ectors)h(with)d(resp)s(ect)241
3493 y(to)e(scalar)f(v)-5 b(ariables,)26 b(cross)f(pro)s(duct)g(and)f
(dot)i(pro)s(duct,)g(comp)s(onen)m(t)f(manipulation)241
3606 y(and)h(application)g(of)h(scalar)g(functions)f(\()p
FD(e.g.)39 b FQ(cosine\))28 b(to)f(a)h(v)m(ector)h(to)f(yield)d(a)j(v)m
(ector)241 3719 y(result.)241 3856 y @beginspecial @setspecial
@endspecial 199 x FE(25.1)135 b(V)-11 b(ector)45 b(declaration)i(and)d
(initialisation)241 4295 y FQ(T)-8 b(o)31 b(declare)f(a)h(list)e(of)h
(names)h(to)g(b)s(e)e(v)m(ectors)j(use)e(the)h(VEC)f(command:)372
4501 y FH(VEC)42 b(A,B,C;)241 4720 y FQ(declares)35 b(the)h(v)-5
b(ariables)35 b FJ(A)p FQ(,)g FJ(B)h FQ(and)f FJ(C)g
FQ(to)i(b)s(e)e(v)m(ectors.)58 b(If)35 b(they)h(ha)m(v)m(e)h(already)e
(b)s(een)241 4833 y(assigned)29 b(\(scalar\))i(v)-5 b(alues,)30
b(these)h(will)d(b)s(e)i(lost.)1667 5187 y(269)p eop
%%Page: 270 270
270 269 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(270)779 b FM(CHAPTER)29 b(25.)72 b(A)-10 b(VECTOR:)30
b(VECTOR)f(ALGEBRA)664 555 y FQ(When)42 b(a)g(v)m(ector)i(is)d
(declared)h(using)e(the)i FJ(VEC)f FQ(command,)k(it)d(do)s(es)g(not)g
(ha)m(v)m(e)h(an)664 668 y(initial)28 b(v)-5 b(alue.)664
831 y(If)43 b(a)g(v)m(ector)h(v)-5 b(alue)42 b(is)g(assigned)g(to)i(a)f
(scalar)g(v)-5 b(ariable,)45 b(then)e(that)g(v)-5 b(ariable)42
b(will)664 944 y(automatically)29 b(b)s(e)f(declared)g(as)h(a)g(v)m
(ector)i(and)d(the)h(user)f(will)e(b)s(e)i(noti\014ed)g(that)h(this)664
1057 y(has)h(happ)s(ened.)664 1206 y(A)d(v)m(ector)h(ma)m(y)g(b)s(e)e
(initialised)d(using)i(the)i FJ(AVEC)f FQ(function)f(whic)m(h)h(tak)m
(es)i(three)f(scalar)664 1306 y(argumen)m(ts)k(and)f(returns)f(a)i(v)m
(ector)h(made)e(up)f(from)h(those)h(scalars.)41 b(F)-8
b(or)31 b(example)795 1512 y FH(A)43 b(:=)g(AVEC\(A1,)d(A2,)i(A3\);)664
1731 y FQ(sets)31 b(the)g(comp)s(onen)m(ts)f(of)h(the)f(v)m(ector)i
FJ(A)e FQ(to)h FJ(A1)p FQ(,)f FJ(A2)g FQ(and)g FJ(A3)p
FQ(.)664 1885 y @beginspecial @setspecial @endspecial
182 x FE(25.2)136 b(V)-11 b(ector)45 b(algebra)664 2320
y FQ(\(In)27 b(the)g(examples)f(whic)m(h)g(follo)m(w,)h
FJ(V)p FQ(,)f FJ(V1)p FQ(,)i FJ(V2)e FD(etc)g FQ(are)i(assumed)e(to)h
(b)s(e)g(v)m(ectors)h(while)664 2433 y FJ(S)p FQ(,)i
FJ(S1)p FQ(,)g FJ(S2)g FQ(etc)i(are)e(scalars.\))664
2595 y(The)e(scalar)h(algebra)f(op)s(erators)h(+,-,*)g(and)f(/)h(ma)m
(y)g(b)s(e)f(used)g(with)f(v)m(ector)j(op)s(erands)664
2708 y(according)d(to)h(the)f(rules)e(of)i(v)m(ector)h(algebra.)40
b(Th)m(us)26 b(m)m(ultiplication)e(and)i(division)e(of)664
2821 y(a)j(v)m(ector)h(b)m(y)f(a)g(scalar)f(are)h(b)s(oth)f(allo)m(w)m
(ed,)i(but)e(it)g(is)g(an)g(error)g(to)i(m)m(ultiply)23
b(or)k(divide)664 2934 y(one)k(v)m(ector)h(b)m(y)e(another.)714
3089 y FJ(V)47 b(:=)h(V1)f(+)g(V2)g(-)h(V3;)99 b FQ(Addition)28
b(and)i(subtraction)714 3202 y FJ(V)47 b(:=)h(S1*3*V1;)336
b FQ(Scalar)30 b(m)m(ultiplication)714 3315 y FJ(V)47
b(:=)h(V1/S;)480 b FQ(Scalar)30 b(division)714 3428 y
FJ(V)47 b(:=)h(-V1;)528 b FQ(Negation)664 3583 y(V)-8
b(ector)27 b(m)m(ultiplication)c(is)h(carried)h(out)g(using)f(the)i
(in\014x)d(op)s(erators)j FJ(DOT)e FQ(and)h FJ(CROSS)p
FQ(.)664 3696 y(These)30 b(are)h(de\014ned)f(to)h(ha)m(v)m(e)h(higher)d
(precedence)i(than)f(scalar)h(m)m(ultiplication)d(and)664
3809 y(division.)714 3946 y FJ(V)47 b(:=)h(V1)f(CROSS)f(V2;)433
b FQ(Cross)30 b(pro)s(duct)714 4059 y FJ(S)47 b(:=)h(V1)f(DOT)g(V2;)528
b FQ(Dot)32 b(pro)s(duct)714 4172 y FJ(V)47 b(:=)h(V1)f(CROSS)f(V2)h(+)
h(V3;)714 4285 y(V)f(:=)h(\(V1)f(CROSS)f(V2\))h(+)g(V3;)664
4440 y FQ(The)30 b(last)h(t)m(w)m(o)h(expressions)d(are)i(equiv)-5
b(alen)m(t)30 b(due)g(to)h(the)g(precedence)g(of)g(the)f
FJ(CROSS)664 4553 y FQ(op)s(erator.)664 4715 y(The)g(mo)s(dulus)e(of)i
(a)h(v)m(ector)h(ma)m(y)f(b)s(e)f(calculated)g(using)f(the)h
FJ(VMOD)g FQ(op)s(erator.)795 4946 y FH(S)43 b(:=)g(VMOD)f(V;)p
eop
%%Page: 271 271
271 270 bop 241 299 a @beginspecial @setspecial @endspecial
FM(25.3.)72 b(VECTOR)30 b(CALCULUS)1664 b FQ(271)241
555 y(A)30 b(unit)f(v)m(ector)j(ma)m(y)f(b)s(e)f(generated)h(from)f(an)
m(y)h(v)m(ector)h(using)d(the)h FJ(VMOD)g FQ(op)s(erator.)372
786 y FH(V1)42 b(:=)h(V/\(VMOD)e(V\);)241 1030 y FQ(Comp)s(onen)m(ts)30
b(ma)m(y)h(b)s(e)f(extracted)i(from)e(an)m(y)h(v)m(ector)h(using)d
(index)g(notation)i(in)e(the)241 1143 y(same)i(w)m(a)m(y)g(as)g(an)f
(arra)m(y)-8 b(.)291 1298 y FJ(V)47 b(:=)g(AVEC\(AX,)f(AY,)h(AZ\);)291
1411 y(V\(0\);)909 b FQ(yields)29 b(AX)291 1524 y FJ(V\(1\);)909
b FQ(yields)29 b(A)-8 b(Y)291 1637 y FJ(V\(2\);)909 b
FQ(yields)29 b(AZ)241 1792 y(It)37 b(is)g(also)g(p)s(ossible)e(to)k
(set)f(v)-5 b(alues)36 b(of)i(individual)33 b(comp)s(onen)m(ts.)62
b(F)-8 b(ollo)m(wing)37 b(from)241 1905 y(ab)s(o)m(v)m(e:)372
2135 y FH(V\(1\))k(:=)i(B;)241 2379 y FQ(The)30 b(v)m(ector)i
FJ(V)e FQ(no)m(w)g(has)g(comp)s(onen)m(ts)h FJ(AX)p FQ(,)f
FJ(B)p FQ(,)g FJ(AZ)p FQ(.)241 2542 y(V)-8 b(ectors)44
b(ma)m(y)g(b)s(e)e(used)g(as)h(argumen)m(ts)g(in)f(the)h(di\013eren)m
(tiation)e(and)h(in)m(tegration)241 2655 y(routines)29
b(in)g(place)h(of)h(the)f(dep)s(enden)m(t)g(expression.)291
2810 y FJ(V)47 b(:=)g(AVEC\(X**2,)e(SIN\(X\),)h(Y\);)291
2923 y(DF\(V,X\);)1004 b FQ(yields)28 b(\(2*X,)k(COS\(X\),)f(0\))291
3036 y FJ(INT\(V,X\);)956 b FQ(yields)28 b(\(X**3/3,)34
b(-COS\(X\),)c(Y*X\))241 3191 y(V)-8 b(ectors)29 b(ma)m(y)g(b)s(e)e
(giv)m(en)h(as)h(argumen)m(ts)f(to)h(monomial)e(functions)f(suc)m(h)i
(as)g FJ(SIN)p FQ(,)f FJ(LOG)241 3304 y FQ(and)20 b FJ(TAN)p
FQ(.)g(The)g(result)g(is)g(a)h(v)m(ector)h(obtained)e(b)m(y)h(applying)
e(the)h(function)g(comp)s(onen)m(t-)241 3417 y(wise)29
b(to)i(the)g(argumen)m(t)g(v)m(ector.)291 3572 y FJ(V)47
b(:=)g(AVEC\(A1,)f(A2,)h(A3\);)291 3684 y(SIN\(V\);)813
b FQ(yields)29 b(\(SIN\(A1\),)j(SIN\(A2\),)f(SIN\(A3\)\))241
3855 y @beginspecial @setspecial @endspecial 141 x FE(25.3)135
b(V)-11 b(ector)45 b(calculus)241 4249 y FQ(The)27 b(v)m(ector)i
(calculus)c(op)s(erators)j(div,)f(grad)g(and)g(curl)f(are)h
(recognised.)40 b(The)27 b(Lapla-)241 4362 y(cian)45
b(op)s(erator)g(is)f(also)h(a)m(v)-5 b(ailable)45 b(and)g(ma)m(y)h(b)s
(e)e(applied)f(to)j(scalar)f(and)g(v)m(ector)241 4475
y(argumen)m(ts.)p eop
%%Page: 272 272
272 271 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(272)779 b FM(CHAPTER)29 b(25.)72 b(A)-10 b(VECTOR:)30
b(VECTOR)f(ALGEBRA)714 543 y FJ(V)47 b(:=)h(GRAD)e(S;)195
b FQ(Gradien)m(t)30 b(of)h(a)f(scalar)h(\014eld)714 656
y FJ(S)47 b(:=)h(DIV)f(V;)242 b FQ(Div)m(ergence)31 b(of)g(a)g(v)m
(ector)h(\014eld)714 769 y FJ(V)47 b(:=)h(CURL)e(V1;)147
b FQ(Curl)28 b(of)j(a)f(v)m(ector)i(\014eld)714 882 y
FJ(S)47 b(:=)h(DELSQ)e(S1;)99 b FQ(Laplacian)29 b(of)i(a)f(scalar)h
(\014eld)714 995 y FJ(V)47 b(:=)h(DELSQ)e(V1;)99 b FQ(Laplacian)29
b(of)i(a)f(v)m(ector)i(\014eld)664 1150 y(These)g(op)s(erators)f(ma)m
(y)i(b)s(e)e(used)f(in)h(an)m(y)h(orthogonal)g(curvilinear)c(co)s
(ordinate)k(sys-)664 1263 y(tem.)41 b(The)27 b(user)h(ma)m(y)h(alter)f
(the)g(names)g(of)h(the)f(co)s(ordinates)g(and)f(the)i(v)-5
b(alues)27 b(of)i(the)664 1375 y(scale)34 b(factors.)52
b(Initially)31 b(the)j(co)s(ordinates)g(are)g FJ(X)p
FQ(,)g FJ(Y)f FQ(and)g FJ(Z)h FQ(and)f(the)h(scale)g(factors)664
1488 y(are)d(all)e(unit)m(y)-8 b(.)664 1651 y(There)22
b(are)h(t)m(w)m(o)h(sp)s(ecial)e(v)m(ectors)i(:)36 b
FJ(COORDS)21 b FQ(con)m(tains)i(the)g(names)g(of)f(the)h(co)s
(ordinates)664 1764 y(in)j(the)i(curren)m(t)g(system)f(and)g
FJ(HFACTORS)f FQ(con)m(tains)i(the)f(v)-5 b(alues)27
b(of)h(the)g(scale)g(factors.)664 1927 y(The)i(co)s(ordinate)g(names)h
(ma)m(y)g(b)s(e)e(c)m(hanged)i(using)e(the)i FJ(COORDINATES)c
FQ(op)s(erator.)795 2158 y FH(COORDINATES)39 b(R,THETA,PHI;)664
2402 y FQ(This)29 b(command)h(c)m(hanges)h(the)g(co)s(ordinate)f(names)
g(to)h FJ(R)p FQ(,)g FJ(THETA)e FQ(and)g FJ(PHI)p FQ(.)664
2564 y(The)h(scale)h(factors)g(ma)m(y)g(b)s(e)f(altered)g(using)f(the)h
FJ(SCALEFACTORS)d FQ(op)s(erator.)795 2795 y FH(SCALEFACTORS\(1,R)o(,R)
o(*SI)o(N\()o(THE)o(TA)o(\)\);)664 3039 y FQ(This)i(command)h(c)m
(hanges)h(the)g(scale)g(factors)g(to)g FJ(1)p FQ(,)f
FJ(R)g FQ(and)g FJ(R)47 b(SIN\(THETA\))p FQ(.)664 3202
y(Note)29 b(that)f(the)f(argumen)m(ts)h(of)f FJ(SCALEFACTORS)d
FQ(m)m(ust)j(b)s(e)g(enclosed)f(in)g(paren)m(theses.)664
3315 y(This)j(is)g(not)i(necessary)g(with)e FJ(COORDINATES)p
FQ(.)664 3478 y(When)f(v)m(ector)i(di\013eren)m(tial)d(op)s(erators)i
(are)f(applied)e(to)k(an)e(expression,)g(the)g(curren)m(t)664
3591 y(set)d(of)f(co)s(ordinates)g(are)g(used)f(as)h(the)h(indep)s
(enden)m(t)c(v)-5 b(ariables)23 b(and)h(the)g(scale)g(factors)664
3703 y(are)31 b(emplo)m(y)m(ed)f(in)g(the)g(calculation.)664
3866 y(Sev)m(eral)38 b(co)s(ordinate)g(systems)g(are)h(pre-de\014ned)d
(and)i(ma)m(y)h(b)s(e)e(in)m(v)m(ok)m(ed)i(b)m(y)f(name.)664
3979 y(T)-8 b(o)31 b(see)g(a)g(list)e(of)h(v)-5 b(alid)29
b(names)h(en)m(ter)795 4210 y FH(SYMBOLIC)40 b(!*CSYSTEMS;)664
4454 y FQ(and)30 b(REDUCE)g(will)e(resp)s(ond)h(with)g(something)g(lik)
m(e)795 4685 y FH(\(CARTESIAN)39 b(SPHERICAL)h(CYLINDRICAL\))664
4929 y FQ(T)-8 b(o)31 b(c)m(ho)s(ose)g(a)g(co)s(ordinate)f(system)h(b)m
(y)f(name,)h(use)f(the)g(command)h FJ(GETCSYSTEM)p FQ(.)p
eop
%%Page: 273 273
273 272 bop 241 299 a @beginspecial @setspecial @endspecial
FM(25.3.)72 b(VECTOR)30 b(CALCULUS)1664 b FQ(273)241
555 y(T)-8 b(o)31 b(c)m(ho)s(ose)g(the)g(Cartesian)e(co)s(ordinate)i
(system)f(:)372 761 y FH(GETCSYSTEM)39 b('CARTESIAN;)241
980 y FQ(Note)25 b(the)f(quote)h(whic)m(h)e(pre\014xes)g(the)h(name)h
(of)f(the)g(co)s(ordinate)g(system.)39 b(This)22 b(is)h(re-)241
1093 y(quired)d(b)s(ecause)i FJ(GETCSYSTEM)e FQ(\(and)h(its)h
(complemen)m(t)g FJ(PUTCSYSTEM)p FQ(\))e(is)h(a)i FJ(SYMBOLIC)241
1206 y FQ(pro)s(cedure)29 b(whic)m(h)g(requires)g(a)i(literal)e
(argumen)m(t.)241 1369 y(REDUCE)g(resp)s(onds)e(b)m(y)i(t)m(yping)g(a)h
(list)d(of)j(the)f(co)s(ordinate)g(names)g(in)f(that)i(co)s(ordi-)241
1482 y(nate)h(system.)41 b(The)30 b(example)g(ab)s(o)m(v)m(e)h(w)m
(ould)e(pro)s(duce)h(the)g(resp)s(onse)372 1713 y FH(\(X)42
b(Y)h(Z\))241 1957 y FQ(whilst)372 2187 y FH(GETCSYSTEM)c('SPHERICAL;)
241 2431 y FQ(w)m(ould)29 b(pro)s(duce)372 2662 y FH(\(R)42
b(THETA)g(PHI\))241 2906 y FQ(Note)29 b(that)f(an)m(y)g(attempt)g(to)h
(in)m(v)m(ok)m(e)f(a)g(co)s(ordinate)f(system)h(is)f(sub)5
b(ject)27 b(to)h(the)g(same)241 3019 y(restrictions)f(as)h(the)g
(implied)d(calls)i(to)i FJ(COORDINATES)c FQ(and)i FJ(SCALEFACTORS)p
FQ(.)e(In)j(par-)241 3132 y(ticular,)33 b FJ(GETCSYSTEM)d
FQ(fails)i(if)g(an)m(y)h(of)h(the)f(co)s(ordinate)g(names)g(has)g(b)s
(een)f(assigned)241 3245 y(a)f(v)-5 b(alue)29 b(and)h(the)h(previous)e
(co)s(ordinate)h(system)g(remains)f(in)h(e\013ect.)241
3408 y(A)20 b(user-de\014ned)f(co)s(ordinate)h(system)h(can)f(b)s(e)g
(assigned)f(a)i(name)f(using)f(the)i(command)241 3521
y FJ(PUTCSYSTEM)p FQ(.)28 b(It)i(ma)m(y)h(then)f(b)s(e)g(re-in)m(v)m
(ok)m(ed)h(at)g(a)g(later)f(stage)i(using)d FJ(GETCSYSTEM)p
FQ(.)241 3538 y @beginspecial @setspecial @endspecial
145 x FN(Example)k(1)241 3846 y FQ(W)-8 b(e)23 b(de\014ne)f(a)g
(general)h(co)s(ordinate)f(system)g(with)f(co)s(ordinate)h(names)h
FJ(X)p FQ(,)p FJ(Y)p FQ(,)p FJ(Z)f FQ(and)f(scale)241
3959 y(factors)31 b FJ(H1)p FQ(,)p FJ(H2)p FQ(,)p FJ(H3)e
FQ(:)372 4190 y FH(COORDINATES)39 b(X,Y,Z;)372 4290 y(SCALEFACTORS\(H1)
o(,H)o(2,H)o(3\))o(;)372 4389 y(PUTCSYSTEM)g('GENERAL;)241
4633 y FQ(This)28 b(system)j(ma)m(y)g(later)f(b)s(e)g(in)m(v)m(ok)m(ed)
h(b)m(y)f(en)m(tering)372 4864 y FH(GETCSYSTEM)39 b('GENERAL;)p
eop
%%Page: 274 274
274 273 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(274)779 b FM(CHAPTER)29 b(25.)72 b(A)-10 b(VECTOR:)30
b(VECTOR)f(ALGEBRA)664 464 y @beginspecial @setspecial
@endspecial 91 x FE(25.4)136 b(V)-11 b(olume)45 b(and)f(Line)h(In)l
(tegration)664 808 y FQ(Sev)m(eral)31 b(functions)e(are)j(pro)m(vided)d
(to)j(p)s(erform)d(v)m(olume)i(and)f(line)f(in)m(tegrals.)42
b(These)664 921 y(op)s(erate)e(in)d(an)m(y)i(orthogonal)h(curvilinear)c
(co)s(ordinate)i(system)h(and)f(mak)m(e)i(use)f(of)664
1034 y(the)31 b(scale)f(factors)i(describ)s(ed)c(in)h(the)i(previous)d
(section.)664 1196 y(De\014nite)34 b(in)m(tegrals)g(of)g(scalar)g(and)f
(v)m(ector)j(expressions)c(ma)m(y)j(b)s(e)e(calculated)h(using)664
1309 y(the)d FJ(DEFINT)d FQ(function)p @beginspecial
@setspecial @endspecial -33 x FO(1)1503 1309 y FQ(.)-864
b @beginspecial @setspecial @endspecial 163 x FN(Example)34
b(2)664 1635 y FQ(T)-8 b(o)31 b(calculate)g(the)f(de\014nite)g(in)m
(tegral)g(of)g(sin)o(\()p FL(x)p FQ(\))2325 1602 y FO(2)2395
1635 y FQ(b)s(et)m(w)m(een)h(0)g(and)f(2)p FL(\031)k
FQ(w)m(e)c(en)m(ter)795 1866 y FH(DEFINT\(SIN\(X\)**2)o(,X)o(,0,)o(2*)o
(PI\))o(;)664 2110 y FQ(This)39 b(function)h(is)g(a)h(simple)e
(extension)h(of)h(the)h FJ(INT)e FQ(function)f(taking)i(t)m(w)m(o)h
(extra)664 2223 y(argumen)m(ts,)31 b(the)g(lo)m(w)m(er)f(and)g(upp)s
(er)e(b)s(ounds)h(of)h(in)m(tegration)g(resp)s(ectiv)m(ely)-8
b(.)664 2385 y(De\014nite)24 b(v)m(olume)f(in)m(tegrals)h(ma)m(y)g(b)s
(e)f(calculated)h(using)e(the)i FJ(VOLINTEGRAL)d FQ(function)664
2498 y(whose)30 b(syn)m(tax)h(is)f(as)g(follo)m(ws)g(:)664
2661 y FJ(VOLINTEGRAL)p FQ(\()p FJ(integrand)p FQ(,)c(v)m(ector)32
b FJ(lower-bound)p FQ(,)27 b(v)m(ector)32 b FJ(upper-bound)p
FQ(\);)664 2684 y @beginspecial @setspecial @endspecial
140 x FN(Example)i(3)664 2986 y FQ(In)f(spherical)f(p)s(olar)g(co)s
(ordinates)i(w)m(e)g(ma)m(y)g(calculate)g(the)g(v)m(olume)f(of)h(a)g
(sphere)f(b)m(y)664 3099 y(in)m(tegrating)25 b(unit)m(y)f(o)m(v)m(er)i
(the)f(range)g FL(r)s FQ(=0)f(to)i FJ(RR)p FQ(,)e FL(\022)s
FQ(=0)g(to)i FJ(PI)p FQ(,)e FL(\036)p FQ(=0)i(to)f(2*)p
FL(\031)k FQ(as)c(follo)m(ws)664 3212 y(:)714 3349 y
FJ(VLB)47 b(:=)g(AVEC\(0,0,0\);)335 b FQ(Lo)m(w)m(er)31
b(b)s(ound)714 3462 y FJ(VUB)47 b(:=)g(AVEC\(RR,PI,2*PI\);)95
b FQ(Upp)s(er)29 b(b)s(ound)f(in)h FL(r)m(;)15 b(\022)s(;)g(\036)31
b FQ(resp)s(ectiv)m(ely)714 3575 y FJ(VOLINTORDER)45
b(:=)i(\(0,1,2\);)145 b FQ(The)30 b(order)g(of)g(in)m(tegration)714
3688 y FJ(VOLINTEGRAL\(1,VLB,VUB\);)664 3843 y FQ(Note)41
b(the)g(use)e(of)h(the)g(sp)s(ecial)f(v)m(ector)j FJ(VOLINTORDER)36
b FQ(whic)m(h)j(con)m(trols)h(the)g(order)664 3956 y(in)k(whic)m(h)f
(the)i(in)m(tegrations)f(are)h(carried)f(out.)84 b(This)43
b(v)m(ector)j(should)d(b)s(e)h(set)h(to)664 4069 y(con)m(tain)27
b(the)f(n)m(um)m(b)s(er)f(0,)j(1)f(and)e(2)i(in)e(the)h(required)f
(order.)39 b(The)26 b(\014rst)f(comp)s(onen)m(t)i(of)664
4182 y FJ(VOLINTORDER)e FQ(con)m(tains)k(the)f(index)f(of)h(the)h
(\014rst)e(in)m(tegration)i(v)-5 b(ariable,)27 b(the)i(second)664
4295 y(comp)s(onen)m(t)44 b(is)e(the)i(index)e(of)i(the)f(second)h(in)m
(tegration)f(v)-5 b(ariable)42 b(and)h(the)h(third)664
4408 y(comp)s(onen)m(t)31 b(is)e(the)i(index)e(of)h(the)h(third)d(in)m
(tegration)j(v)-5 b(ariable.)664 4425 y @beginspecial
@setspecial @endspecial 146 x FN(Example)34 b(4)664 4733
y FQ(Supp)s(ose)h(w)m(e)i(wish)e(to)i(calculate)g(the)f(v)m(olume)h(of)
f(a)h(righ)m(t)f(circular)f(cone.)60 b(This)35 b(is)p
664 4795 1196 4 v 768 4848 a Fy(1)802 4880 y @beginspecial
@setspecial @endspecial Fx(Not)26 b(to)g(b)r(e)f(confused)h(with)g(the)
g(DEFINT)f(pac)n(k)l(age)h(describ)r(ed)g(in)f(c)n(hapter)h
@beginspecial @setspecial @endspecial(34)p eop
%%Page: 275 275
275 274 bop 241 299 a @beginspecial @setspecial @endspecial
FM(25.4.)72 b(V)m(OLUME)31 b(AND)g(LINE)f(INTEGRA)-8
b(TION)1007 b FQ(275)241 555 y(equiv)-5 b(alen)m(t)30
b(to)h(in)m(tegrating)f(unit)m(y)f(o)m(v)m(er)j(a)f(conical)f(region)g
(with)f(the)i(b)s(ounds:)291 710 y(z)f(=)g(0)h(to)g(H)303
b(\(H)31 b(=)f(the)h(heigh)m(t)f(of)g(the)h(cone\))291
823 y(r)e(=)h(0)h(to)g(pZ)269 b(\(p)30 b(=)g(ratio)h(of)f(base)h
(diameter)f(to)h(heigh)m(t\))291 936 y(phi)d(=)i(0)h(to)g(2*PI)241
1091 y(W)-8 b(e)24 b(ev)-5 b(aluate)23 b(the)g(v)m(olume)f(b)m(y)h(in)m
(tegrating)g(a)g(series)f(of)h(in\014nitesimally)18 b(thin)j(circular)
241 1204 y(disks)32 b(of)i(constan)m(t)i(z-v)-5 b(alue.)51
b(The)34 b(in)m(tegration)g(is)f(th)m(us)g(p)s(erformed)g(in)g(the)h
(order)f(:)241 1317 y(d\()p FL(\036)p FQ(\))25 b(from)g(0)g(to)h(2)p
FL(\031)s FQ(,)h(dr)d(from)h(0)g(to)h(p*Z,)f(dz)f(from)h(0)h(to)f(H.)h
(The)e(order)h(of)g(the)g(indices)241 1430 y(is)k(th)m(us)h(2,)h(0,)g
(1.)372 1660 y FH(VOLINTORDER)39 b(:=)j(AVEC\(2,0,1\);)372
1760 y(VLB)g(:=)h(AVEC\(0,0,0\);)372 1860 y(VUB)f(:=)h
(AVEC\(P*Z,H,2*PI)o(\);)372 1959 y(VOLINTEGRAL\(1,V)o(LB)o(,VU)o(B\))o
(;)241 2203 y FQ(Line)28 b(in)m(tegrals)h(ma)m(y)h(b)s(e)f(calculated)g
(using)f(the)i FJ(LINEINT)d FQ(and)i FJ(DEFLINEINT)e
FQ(funct-)241 2316 y(ions.)39 b(Their)29 b(general)i(syn)m(tax)g(is)241
2479 y FJ(LINEINT)p FQ(\()p FJ(vector-fnct)p FQ(,)26
b FJ(vector-curve)p FQ(,)h FJ(variable)p FQ(\);)241 2642
y FJ(DEFLINENINT)p FQ(\()p FJ(vector-fnct)p FQ(,)e FJ(vector-curve)p
FQ(,)i FJ(variable)p FQ(,)813 2755 y FJ(lower-bnd)p FQ(,)i
FJ(upper-bnd)p FQ(\);)241 2917 y(where)241 3155 y FJ(vector-fnct)42
b FQ(is)30 b(an)m(y)g(v)m(ector-v)-5 b(alued)32 b(expression;)241
3343 y FJ(vector-curve)42 b FQ(is)23 b(a)h(v)m(ector)h(expression)e
(whic)m(h)f(describ)s(es)g(the)i(path)g(of)f(in)m(tegration)468
3455 y(in)29 b(terms)h(of)h(the)f(indep)s(enden)m(t)f(v)-5
b(ariable;)241 3643 y FJ(variable)43 b FQ(is)29 b(the)i(indep)s(enden)m
(t)d(v)-5 b(ariable;)241 3831 y FJ(lower-bnd)241 4018
y(upper-bnd)43 b FQ(are)31 b(the)h(b)s(ounds)d(of)i(in)m(tegration)h
(in)e(terms)h(of)g(the)h(indep)s(enden)m(t)d(v)-5 b(ari-)468
4131 y(able.)241 4206 y @beginspecial @setspecial @endspecial
163 x FN(Example)33 b(5)241 4518 y FQ(In)k(spherical)g(p)s(olar)g(co)s
(ordinates,)j(w)m(e)f(ma)m(y)g(in)m(tegrate)g(round)e(a)i(line)e(of)h
(constan)m(t)241 4618 y(theta)g(\(`latitude'\))f(to)g(\014nd)e(the)i
(length)f(of)h(suc)m(h)g(a)g(line.)58 b(The)37 b(v)m(ector)h(function)d
(is)241 4717 y(th)m(us)22 b(the)g(tangen)m(t)h(to)g(the)g(`line)d(of)j
(latitude',)g(\(0,0,1\))i(and)c(the)h(path)g(is)g FJ(\(0,LAT,PHI\))241
4817 y FQ(where)29 b FJ(PHI)h FQ(is)f(the)h(indep)s(enden)m(t)e(v)-5
b(ariable.)40 b(W)-8 b(e)31 b(sho)m(w)f(ho)m(w)h(to)g(obtain)e(the)i
(de\014nite)241 4917 y(in)m(tegral)f FD(i.e.)40 b FQ(from)30
b FL(\036)25 b FQ(=)g(0)31 b(to)g(2)p FL(\031)j FQ(:)p
eop
%%Page: 276 276
276 275 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(276)779 b FM(CHAPTER)29 b(25.)72 b(A)-10 b(VECTOR:)30
b(VECTOR)f(ALGEBRA)664 555 y FH(DEFLINEINT\(AVEC\(0)o(,0)o(,1)o(\),A)o
(VE)o(C\(0)o(,L)o(AT,)o(PH)o(I\))o(,PH)o(I,)o(0,2)o(*P)o(I\))o(;)p
eop
%%Page: 277 277
277 276 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(26)241 1693 y FT(BOOLEAN:)74 b(A)j(pac)-6 b(k)-13 b(age)78
b(for)241 1942 y(b)6 b(o)g(olean)78 b(algebra)1470 2424
y Fx(Herb)r(ert)26 b(Melenk)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)r
(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2607 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2698
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1352 2819 y(e{mail:)35
b(melenk@zib.de)241 3063 y FQ(The)d(pac)m(k)-5 b(age)34
b FN(Bo)s(olean)f FQ(supp)s(orts)e(the)i(computation)f(with)f(b)s(o)s
(olean)h(expressions)241 3176 y(in)24 b(the)i(prop)s(ositional)d
(calculus.)38 b(The)25 b(data)h(ob)5 b(jects)26 b(are)g(comp)s(osed)g
(from)f(algebraic)241 3289 y(expressions)34 b(\(\\atomic)j(parts",)g
(\\leafs"\))f(connected)g(b)m(y)f(the)h(in\014x)d(b)s(o)s(olean)i(op)s
(er-)241 3402 y(ators)21 b FN(and)p FQ(,)i FN(or)p FQ(,)g
FN(implies)p FQ(,)g FN(equiv)p FQ(,)g(and)e(the)g(unary)e(pre\014x)h
(op)s(erator)h FN(not)p FQ(.)38 b FN(Bo)s(olean)241 3515
y FQ(allo)m(ws)d(simpli\014cation)d(of)j(expressions)f(built)g(from)h
(these)g(op)s(erators,)j(and)c(to)j(test)241 3628 y(prop)s(erties)j
(lik)m(e)h(equiv)-5 b(alence,)45 b(subset)c(prop)s(ert)m(y)h(etc.)76
b(Also)42 b(the)g(reduction)f(of)h(a)241 3741 y(b)s(o)s(olean)c
(expression)g(b)m(y)h(a)g(partial)f(ev)-5 b(aluation)39
b(and)g(com)m(bination)f(of)h(its)g(atomic)241 3854 y(parts)30
b(is)f(supp)s(orted.)241 4008 y @beginspecial @setspecial
@endspecial 182 x FE(26.1)135 b(En)l(tering)46 b(b)t(o)t(olean)g
(expressions)241 4429 y FQ(In)35 b(order)g(to)i(distinguish)32
b(b)s(o)s(olean)j(data)h(expressions)f(from)g(b)s(o)s(olean)g
(expressions)241 4529 y(in)42 b(the)j(REDUCE)e(programming)g(language)h
(\()p FD(e.g.)81 b FQ(in)43 b(an)h FN(if)g FQ(statemen)m(t\),)49
b(eac)m(h)241 4629 y(expression)36 b(m)m(ust)h(b)s(e)g(tagged)h
(explicitly)d(b)m(y)i(an)h(op)s(erator)f FN(b)s(o)s(olean)p
FQ(.)62 b(Otherwise)241 4728 y(the)42 b(b)s(o)s(olean)f(op)s(erators)i
(are)f(not)h(accepted)h(in)c(the)j(REDUCE)f(algebraic)g(mo)s(de)241
4828 y(input.)37 b(The)25 b(\014rst)f(argumen)m(t)i(of)f
FN(b)s(o)s(olean)h FQ(can)f(b)s(e)g(an)m(y)g(b)s(o)s(olean)f
(expression,)i(whic)m(h)241 4928 y(ma)m(y)31 b(con)m(tain)f(references)
h(to)g(other)g(b)s(o)s(olean)e(v)-5 b(alues.)1667 5187
y(277)p eop
%%Page: 278 278
278 277 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(278)p FM(CHAPTER)21 b(26.)58 b(BOOLEAN:)21 b(A)f(P)-8
b(A)m(CKA)m(GE)22 b(F)m(OR)e(BOOLEAN)g(ALGEBRA)839 555
y FH(load_package)38 b(boolean;)839 655 y(boolean)i(\(a)j(and)f(b)h(or)
g(c\);)839 754 y(q)g(:=)f(boolean\(a)e(and)j(b)g(implies)e(c\);)839
854 y(boolean\(q)e(or)k(not)f(c\);)664 1073 y FQ(Brac)m(k)m(ets)c(are)f
(used)e(to)h(o)m(v)m(erride)g(the)g(op)s(erator)h(precedence)f(as)g
(usual.)56 b(The)35 b(leafs)664 1186 y(or)40 b(atoms)g(of)f(a)h(b)s(o)s
(olean)e(expression)g(are)i(those)g(parts)f(whic)m(h)f(do)h(not)h(con)m
(tain)g(a)664 1299 y(leading)j(b)s(o)s(olean)f(op)s(erator.)81
b(These)44 b(are)g(considered)e(as)i(constan)m(ts)h(during)d(the)664
1412 y(b)s(o)s(olean)30 b(ev)-5 b(aluation.)40 b(There)30
b(are)g(t)m(w)m(o)i(pre-de\014ned)d(v)-5 b(alues:)801
1628 y FP(\017)45 b FN(true)p FQ(,)31 b FN(t)f FQ(or)g
FN(1)801 1807 y FP(\017)45 b FN(false)p FQ(,)31 b FN(nil)f
FQ(or)h FN(0)664 2023 y FQ(These)g(represen)m(t)g(the)g(b)s(o)s(olean)f
(constan)m(ts.)44 b(In)31 b(a)g(result)f(form)h(they)g(are)h(used)e
(only)664 2135 y(as)h FN(1)f FQ(and)g FN(0)p FQ(.)664
2298 y(By)c(default,)g(a)h FN(b)s(o)s(olean)f FQ(expression)e(is)h(con)
m(v)m(erted)j(to)e(a)g(disjunctiv)m(e)e(normal)h(form.)664
2448 y(On)j(output,)h(the)g(op)s(erators)g FN(and)f FQ(and)g
FN(or)h FQ(are)g(represen)m(ted)g(as)g FJ(/\\)f FQ(and)g
FJ(\\/)p FQ(,)h(resp)s(ec-)664 2547 y(tiv)m(ely)-8 b(.)664
2753 y FH(boolean\(true)39 b(and)j(false\);)172 b(->)130
b(0)664 2853 y(boolean\(a)40 b(or)j(not\(b)e(and)i(c\)\);)f(->)g
(boolean\(not\(b\))c(\\/)43 b(not\(c\))e(\\/)i(a\))664
2952 y(boolean\(a)d(equiv)i(not)g(c\);)217 b(->)42 b
(boolean\(not\(a\)/\\c)37 b(\\/)43 b(a/\\not\(c\)\))664
3104 y @beginspecial @setspecial @endspecial 181 x FE(26.2)136
b(Normal)46 b(forms)664 3524 y FQ(The)28 b FN(disjunctiv)m(e)g
FQ(normal)f(form)g(is)g(used)g(b)m(y)h(default.)39 b(Alternativ)m(ely)
27 b(a)i FN(conjunc-)664 3624 y(tiv)m(e)35 b FQ(normal)f(form)h(can)g
(b)s(e)g(selected)g(as)h(simpli\014cation)c(target,)38
b(whic)m(h)c(is)g(a)h(form)664 3723 y(with)30 b(leading)f(op)s(erator)i
FN(and)p FQ(.)43 b(T)-8 b(o)31 b(pro)s(duce)f(that)h(form)f(add)h(the)g
(k)m(eyw)m(ord)g FN(and)g FQ(as)664 3823 y(an)f(additional)f(argumen)m
(t)i(to)g(a)f(call)g(of)h FN(b)s(o)s(olean)p FQ(.)664
4029 y FH(boolean)41 b(\(a)i(or)f(b)i(implies)c(c\);)1536
4128 y(->)882 4228 y(boolean\(not\(a\)/\\)o(not)o(\(b)o(\))e(\\/)k(c\))
664 4427 y(boolean)f(\(a)i(or)f(b)i(implies)c(c,)j(and\);)1536
4527 y(->)882 4627 y(boolean\(\(not\(a\))37 b(\\/)43
b(c\)/\\\(not\(b\))c(\\/)k(c\)\))664 4846 y FQ(Usually)30
b(the)h(result)g(is)f(a)i(fully)d(reduced)i(disjunctiv)m(e)e(or)i
(conjun)m(tiv)m(e)h(normal)e(form,)664 4959 y(where)g(all)f(redundan)m
(t)g(elemen)m(ts)i(ha)m(v)m(e)h(b)s(een)d(eliminated)g(follo)m(wing)g
(the)h(rules)p eop
%%Page: 279 279
279 278 bop 241 299 a @beginspecial @setspecial @endspecial
FM(26.2.)72 b(NORMAL)31 b(F)m(ORMS)1822 b FQ(279)241
555 y FL(a)20 b FP(^)g FL(b)g FP(_)g(:)p FL(a)g FP(^)g
FL(b)25 b FP( )-15 b(!)25 b FL(b)241 718 y(a)20 b FP(_)g
FL(b)g FP(^)g(:)p FL(a)g FP(_)g FL(b)25 b FP( )-15 b(!)25
b FL(b)241 881 y FQ(In)m(ternally)41 b(the)i(full)e(normal)h(forms)g
(are)i(computed)f(as)g(in)m(termediate)f(result;)49 b(in)241
994 y(these)35 b(forms)e(eac)m(h)j(term)f(con)m(tains)f(all)f(leaf)i
(expressions,)f(eac)m(h)i(one)e(exactly)i(once.)241 1106
y(This)28 b(unreduced)h(form)h(is)f(returned)g(when)h(the)g(additional)
f(k)m(eyw)m(ord)i FN(full)f FQ(is)f(set:)p eop
%%Page: 280 280
280 279 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(280)p FM(CHAPTER)21 b(26.)58 b(BOOLEAN:)21 b(A)f(P)-8
b(A)m(CKA)m(GE)22 b(F)m(OR)e(BOOLEAN)g(ALGEBRA)664 555
y FH(boolean)41 b(\(a)i(or)f(b)i(implies)c(c,)j(full\);)1492
655 y(->)664 754 y(boolean\(a/\\b/\\c)38 b(\\/)k(a/\\not\(b\)/\\c)d
(\\/)k(not\(a\)/\\b/\\c)38 b(\\/)43 b(not\(a\)/\\not\(b\)/\\)o(c)1056
954 y(\\/)g(not\(a\)/\\not\(b\)/\\n)o(ot)o(\(c\))o(\))664
1198 y FQ(The)30 b(k)m(eyw)m(ords)h FN(full)f FQ(and)g
FN(and)g FQ(ma)m(y)h(b)s(e)f(com)m(bined.)664 1352 y
@beginspecial @setspecial @endspecial 182 x FE(26.3)136
b(Ev)-7 b(aluation)46 b(of)f(a)g(b)t(o)t(olean)h(expression)664
1787 y FQ(If)36 b(the)g(leafs)g(of)g(the)g(b)s(o)s(olean)g(expression)e
(are)j(algebraic)f(expressions)e(whic)m(h)h(ma)m(y)664
1900 y(ev)-5 b(aluate)37 b(to)f(logical)f(v)-5 b(alues)35
b(b)s(ecause)h(the)f(en)m(vironmen)m(t)h(has)f(c)m(hanged)h(\()p
FD(e.g.)h FQ(v)-5 b(ari-)664 2013 y(ables)43 b(ha)m(v)m(e)h(b)s(een)e
(b)s(ound\),)j(one)e(can)h(re{in)m(v)m(estigate)g(the)f(expression)f
(using)g(the)664 2126 y(op)s(erator)27 b FJ(TESTBOOL)e
FQ(with)h(the)h(b)s(o)s(olean)f(expression)g(as)h(argumen)m(t.)40
b(This)26 b(op)s(erator)664 2238 y(tries)36 b(to)i(ev)-5
b(aluate)37 b(all)e(leaf)i(expressions)e(in)g(REDUCE)i(b)s(o)s(olean)e
(st)m(yle.)60 b(As)37 b(man)m(y)664 2351 y(terms)h(as)h(p)s(ossible)d
(are)i(replaced)g(b)m(y)g(their)f(b)s(o)s(olean)g(v)-5
b(alues;)42 b(the)d(others)f(remain)664 2464 y(unc)m(hanged.)44
b(The)31 b(resulting)f(expression)g(is)g(con)m(tracted)k(to)e(a)g
(minimal)d(form.)43 b(The)664 2577 y(result)35 b FN(1)h
FQ(\(=)g(true\))g(or)g FN(0)g FQ(\(=false\))g(signals)f(that)i(the)f
(complete)g(expression)f(could)664 2690 y(b)s(e)30 b(ev)-5
b(aluated.)664 2840 y(In)40 b(the)g(follo)m(wing)e(example)i(the)h
(leafs)e(are)i(built)d(as)i(n)m(umeric)f(greater)i(test.)71
b(F)-8 b(or)664 2939 y(using)53 b FL(>)28 b FQ(in)f(the)i(expressions)e
(the)i(greater)h(sign)d(m)m(ust)i(b)s(e)e(declared)i(op)s(erator)f
(\014rst.)664 3039 y(The)i(error)g(messages)h(are)g(meaningless.)664
3245 y FH(operator)40 b(>;)664 3344 y(fm:=boolean\(x>v)e(or)k(not)h
(\(u>v\)\);)1013 3444 y(->)839 3544 y(fm)f(:=)h(boolean\(not\(u>v\))37
b(\\/)43 b(x>v\))664 3743 y(v:=10$)e(testbool)g(fm;)795
3942 y(*****)g(u)j(-)f(10)g(invalid)d(as)j(number)795
4042 y(*****)e(x)j(-)f(10)g(invalid)d(as)j(number)1013
4241 y(->)795 4341 y(boolean\(not\(u>10)o(\))37 b(\\/)43
b(x>10\))664 4540 y(x:=3$)f(testbool)e(fm;)795 4739 y(*****)h(u)j(-)f
(10)g(invalid)d(as)j(number)1013 4938 y(->)p eop
%%Page: 281 281
281 280 bop 241 299 a @beginspecial @setspecial @endspecial
FM(26.3.)72 b(EV)-10 b(ALUA)i(TION)31 b(OF)f(A)h(BOOLEAN)f(EXPRESSION)
608 b FQ(281)372 555 y FH(boolean\(not\(u>1)o(0\))o(\))241
754 y(x:=17$)41 b(testbool)f(fm;)372 954 y(*****)h(u)i(-)g(10)g
(invalid)e(as)i(number)589 1153 y(->)415 1253 y(1)p eop
%%Page: 282 282
282 281 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(282)p FM(CHAPTER)21 b(26.)58 b(BOOLEAN:)21 b(A)f(P)-8
b(A)m(CKA)m(GE)22 b(F)m(OR)e(BOOLEAN)g(ALGEBRA)p eop
%%Page: 283 283
283 282 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(27)241 1693 y FT(CALI:)75 b(Computational)241 1942
y(Comm)-6 b(utativ)g(e)76 b(Algebra)1444 2424 y Fx(Hans-Gert)26
b(Gr\177)-38 b(ab)r(e)1013 2515 y(Institut)25 b(f)r(\177)-41
b(ur)27 b(Informatik,)e(Univ)n(ersit\177)-38 b(at)25
b(Leipzig)1360 2607 y(Augustusplatz)h(10)g({)g(11)1329
2698 y(04109)i(Leipzig,)e(German)n(y)1051 2819 y(e{mail:)35
b(graeb)r(e@informatik.uni-leipzig.de)241 3059 y FQ(This)28
b(pac)m(k)-5 b(age)31 b(con)m(tains)f(algorithms)e(for)i(computations)f
(in)f(comm)m(utativ)m(e)j(algebra)241 3172 y(closely)j(related)g(to)h
(the)f(Gr\177)-45 b(obner)34 b(algorithm)f(for)h(ideals)f(and)g(mo)s
(dules.)51 b(Its)34 b(heart)241 3285 y(is)e(a)i(new)f(implemen)m
(tation)f(of)h(the)h(Gr\177)-45 b(obner)33 b(algorithm)f(that)i(also)f
(allo)m(ws)g(for)g(the)241 3398 y(computation)25 b(of)h(syzygies.)39
b(This)23 b(implemen)m(tation)h(is)h(also)g(applicable)e(to)j(submo)s
(d-)241 3511 y(ules)37 b(of)h(free)g(mo)s(dules)e(with)g(generators)j
(represen)m(ted)f(as)g(ro)m(ws)g(of)g(a)g(matrix.)63
b(As)241 3623 y(main)29 b(topics)h(CALI)g(con)m(tains)h(facilities)d
(for)377 3839 y FP(\017)46 b FQ(de\014ning)28 b(rings,)i(ideals)f(and)h
(mo)s(dules,)377 4018 y FP(\017)46 b FQ(computing)30
b(Gr\177)-45 b(obner)29 b(bases)i(and)e(lo)s(cal)h(standard)g(bases,)
377 4196 y FP(\017)46 b FQ(computing)30 b(syzygies,)g(resolutions)f
(and)h(\(graded\))h(Betti)g(n)m(um)m(b)s(ers,)377 4375
y FP(\017)46 b FQ(computing)29 b(\(no)m(w)i(also)f(w)m(eigh)m(ted\))h
(Hilb)s(ert)d(series,)i(m)m(ultiplicities,)d(indep)s(en-)468
4488 y(den)m(t)k(sets,)g(and)e(dimensions,)377 4667 y
FP(\017)46 b FQ(computing)30 b(normal)f(forms)h(and)f(represen)m
(tations,)377 4846 y FP(\017)46 b FQ(computing)34 b(sums,)i(pro)s
(ducts,)g(in)m(tersections,)g(quotien)m(ts,)h(stable)e(quotien)m(ts,)
468 4959 y(elimination)28 b(ideals)h(etc.,)1667 5187
y(283)p eop
%%Page: 284 284
284 283 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(284)693 b FM(CHAPTER)30 b(27.)71 b(CALI:)31 b(COMMUT)-8
b(A)g(TIVE)30 b(ALGEBRA)801 555 y FP(\017)45 b FQ(primalit)m(y)24
b(tests,)j(computation)e(of)h(radicals,)f(unmixed)f(radicals,)h
(equidimen-)891 668 y(sional)30 b(parts,)g(primary)e(decomp)s(ositions)
h(etc.)42 b(of)31 b(ideals)e(and)g(mo)s(dules,)801 856
y FP(\017)45 b FQ(adv)-5 b(anced)42 b(applications)e(of)h(Gr\177)-45
b(obner)41 b(bases)h(\(blo)m(wup,)h(asso)s(ciated)f(graded)891
969 y(ring,)30 b(analytic)g(spread,)g(symmetric)f(algebra,)i(monomial)e
(curv)m(es)i(etc.\),)801 1156 y FP(\017)45 b FQ(applications)40
b(of)h(linear)e(algebra)i(tec)m(hniques)g(to)g(zero)h(dimensional)c
(ideals,)891 1269 y(as)32 b FD(e.g.)g FQ(the)f(F)m(GLM)i(c)m(hange)f
(of)f(term)g(orders,)g(b)s(order)e(bases)i(and)f(a\016ne)i(and)891
1382 y(pro)5 b(jectiv)m(e)31 b(ideals)e(of)i(sets)g(of)f(p)s(oin)m(ts,)
801 1570 y FP(\017)45 b FQ(splitting)23 b(p)s(olynomial)g(systems)i(of)
g(equations)g(mixing)e(factorisation)i(and)g(the)891
1683 y(Gr\177)-45 b(obner)38 b(algorithm,)h(triangular)d(systems,)k
(and)e(di\013eren)m(t)f(v)m(ersions)h(of)g(the)891 1796
y(extended)31 b(Gr\177)-45 b(obner)30 b(factoriser.)664
2033 y(There)41 b(is)f(more)h(extended)g(do)s(cumen)m(tation)f(on)h
(this)f(pac)m(k)-5 b(age)43 b(elsewhere,)g(whic)m(h)664
2146 y(includes)28 b(facilities)h(for)h(tracing)g(and)g(switc)m(hes)g
(to)h(con)m(trol)g(its)f(b)s(eha)m(viour.)p eop
%%Page: 285 285
285 284 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(28)241 1693 y FT(CAMAL:)76 b(Calculations)g(in)241
1942 y(Celestial)g(Mec)-6 b(hanics)1558 2415 y Fx(J.)26
b(P)-6 b(.)26 b(Fitc)n(h)854 2506 y(Sc)n(ho)r(ol)g(of)h(Mathematical)f
(Sciences,)h(Univ)n(ersit)n(y)d(of)j(Bath)1289 2598 y(BA)-6
b(TH)25 b(BA2)h(7A)-6 b(Y,)25 b(England)1224 2719 y(e{mail:)35
b(jp\013@maths.bath.ac.uk)241 2963 y FQ(The)41 b(CAMAL)i(pac)m(k)-5
b(age)44 b(pro)m(vides)d(facilities)f(for)i(calculations)g(in)e(F)-8
b(ourier)42 b(series)241 3076 y(similar)34 b(to)k(those)f(in)f(the)h
(sp)s(ecialist)e(Celestial)h(Mec)m(hanics)h(system)g(of)g(the)h(1970s,)
241 3189 y(and)30 b(the)g(Cam)m(bridge)f(Algebra)i(system)f(in)f
(particular.)241 3343 y @beginspecial @setspecial @endspecial
182 x FE(28.1)135 b(Op)t(erators)46 b(for)f(F)-11 b(ourier)45
b(Series)241 3781 y Fr(HARMONIC)241 3989 y FQ(The)20
b(celestial)f(mec)m(hanics)i(system)f(distinguish)d(b)s(et)m(w)m(een)k
(p)s(olynomial)c(v)-5 b(ariables)19 b(and)241 4089 y(angular)24
b(v)-5 b(ariables.)37 b(All)24 b(angles)g(m)m(ust)h(b)s(e)f(declared)g
(b)s(efore)h(use)f(with)g(the)h FJ(HARMONIC)241 4188
y FQ(function.)589 4394 y FH(harmonic)41 b(theta,)g(phi;)1667
5187 y FQ(285)p eop
%%Page: 286 286
286 285 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(286)666 b FM(CHAPTER)29 b(28.)72 b(CAMAL:)31 b(CELESTIAL)e
(MECHANICS)664 555 y Fr(FOURIER)664 763 y FQ(The)40 b
FJ(FOURIER)e FQ(function)h(co)s(erces)i(its)f(argumen)m(t)h(in)m(to)f
(the)g(domain)f(of)i(a)f(F)-8 b(ourier)664 863 y(Series.)41
b(The)30 b(expression)f(ma)m(y)j(con)m(tain)f FD(sine)f
FQ(and)g FD(c)-5 b(osine)32 b FQ(terms)e(of)h(linear)e(sums)h(of)664
963 y(harmonic)f(v)-5 b(ariables.)1013 1168 y FH(fourier)41
b(sin\(theta\))664 1388 y FQ(F)-8 b(ourier)27 b(series)f(expressions)g
(ma)m(y)i(b)s(e)f(added,)g(subtracted)g(m)m(ultiplies)d(and)j
(di\013eren-)664 1501 y(tiated)g(in)d(the)j(usual)d(REDUCE)i(fashion.)
38 b(Multiplications)23 b(in)m(v)m(olv)m(e)k(the)f(automatic)664
1613 y(linearisation)i(of)j(pro)s(ducts)e(of)h(angular)g(functions.)664
1776 y(There)39 b(are)g(three)h(other)f(functions)f(whic)m(h)g(corresp)
s(ond)g(to)i(the)f(usual)f(restrictiv)m(e)664 1889 y(harmonic)29
b(di\013eren)m(tiation)h(and)f(in)m(tegration,)i(and)f(harmonic)f
(substitution.)664 2182 y Fr(HDIFF)39 b FR(and)f Fr(HINT)664
2391 y FQ(Di\013eren)m(tiate)i(or)g(in)m(tegrate)g(a)g(F)-8
b(ourier)38 b(expression)g(with)g(resp)s(ect)i(to)g(an)f(angular)664
2490 y(v)-5 b(ariable.)39 b(An)m(y)27 b(secular)f(terms)h(in)e(the)i
(in)m(tegration)g(are)h(disregarded)d(without)h(com-)664
2590 y(men)m(t.)839 2796 y FH(load_package)38 b(camal;)839
2895 y(harmonic)i(u;)839 2995 y(bige)h(:=)i(fourier)e(\(sin\(u\))g(+)i
(cos\(2*u\)\);)839 3095 y(aa)f(:=)h(fourier)e(1+hdiff\(bige,u\);)839
3194 y(ff)h(:=)h(hint\(aa*aa*fouri)o(er)37 b(cc,u\);)664
3487 y Fr(HSUB)664 3696 y FQ(The)45 b(op)s(eration)g(of)h(substituting)
d(an)i(angle)g(plus)f(a)i(F)-8 b(ourier)45 b(expression)f(for)h(an)664
3795 y(angles)33 b(and)g(expanding)e(to)j(some)g(degree)g(is)e(called)g
(harmonic)h(substitution.)46 b(The)664 3895 y(function)31
b(tak)m(es)i(5)f(argumen)m(ts;)h(the)f(basic)g(expression,)f(the)h
(angle)g(b)s(eing)e(replaced,)664 3994 y(the)d(angular)f(part)g(of)h
(the)f(replacemen)m(t,)i(the)f(fourier)e(part)h(of)h(the)g(replacemen)m
(t)g(and)664 4094 y(a)k(degree)g(to)g(whic)m(h)e(to)i(expand.)839
4300 y FH(harmonic)40 b(u,v,w,x,y,z;)839 4400 y(xx:=hsub\(fourie)o(r\()
o(\(1-)o(d*)o(d\)*)o(co)o(s\(u)o(\)\))o(,u)o(,u-)o(v+)o(w-x)o(-y)o(+z)o
(,yy)o(,n)o(\);)664 4555 y @beginspecial @setspecial
@endspecial eop
%%Page: 287 287
287 286 bop 241 299 a @beginspecial @setspecial @endspecial
FM(28.2.)72 b(A)31 b(SHOR)-8 b(T)30 b(EXAMPLE)1689 b
FQ(287)241 555 y FE(28.2)135 b(A)45 b(Short)g(Example)241
808 y FQ(The)36 b(follo)m(wing)e(program)i(solv)m(es)h(Kepler's)e
(Equation)h(as)g(a)h(F)-8 b(ourier)36 b(series)f(to)i(the)241
921 y(degree)31 b FL(n)p FQ(.)589 1152 y FH(bige)42 b(:=)h(fourier)e
(0;)589 1251 y(for)i(k:=1:n)e(do)i(<<)677 1351 y(wtlevel)d(k;)677
1451 y(bige:=fourier)e(e)43 b(*)g(hsub\(fourier\(sin)37
b(u\),)42 b(u,)h(u,)g(bige,)f(k\);)589 1550 y(>>;)589
1650 y(write)g("Kepler)f(Eqn)h(solution:",)d(bige$)p
eop
%%Page: 288 288
288 287 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(288)666 b FM(CHAPTER)29 b(28.)72 b(CAMAL:)31 b(CELESTIAL)e
(MECHANICS)p eop
%%Page: 289 289
289 288 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(29)241 1693 y FT(CGB:)76 b(Comprehensiv)-6 b(e)241
1942 y(Gr\177)-116 b(obner)77 b(Bases)1107 2415 y Fx(Andreas)25
b(Dolzmann)g(&)g(Thomas)h(Sturm)870 2506 y(Departmen)n(t)e(of)j
(Mathematics)f(and)f(Computer)g(Science)1392 2598 y(Univ)n(ersit)n(y)f
(of)j(P)n(assau)1292 2689 y(D-94030)g(P)n(assau,)g(German)n(y)808
2812 y(e-mail:)34 b(dolzmann@uni-passau.de,)25 b(sturm@uni-passau.de)
241 3045 y @beginspecial @setspecial @endspecial 185
x FE(29.1)135 b(In)l(tro)t(duction)241 3469 y FQ(Consider)34
b(the)i(ideal)f(basis)f FL(F)48 b FQ(=)34 b FP(f)p FL(ax;)15
b(x)25 b FQ(+)e FL(y)s FP(g)p FQ(.)58 b(T)-8 b(reating)36
b FL(a)g FQ(as)g(a)g(parameter,)i(the)241 3569 y(calling)29
b(sequence)241 3775 y FH(torder\({x,y},lex)o(\)$)241
3875 y(groebner{a*x,x+y)o(};)328 4074 y({x,y})241 4293
y FQ(yields)g FP(f)p FL(x;)15 b(y)s FP(g)33 b FQ(as)e(reduced)g(Gr\177)
-45 b(obner)30 b(basis.)43 b(This)29 b(is,)i(ho)m(w)m(ev)m(er,)i(not)f
(correct)g(under)241 4406 y(the)27 b(sp)s(ecialization)e
FL(a)h FQ(=)f(0.)40 b(The)26 b(reduced)h(Gr\177)-45 b(obner)26
b(basis)g(w)m(ould)g(then)h(b)s(e)f FP(f)p FL(x)14 b
FQ(+)g FL(y)s FP(g)p FQ(.)241 4519 y(T)-8 b(aking)23
b(these)h(results)e(together,)k(w)m(e)e(obtain)f FL(C)32
b FQ(=)24 b FP(f)p FL(x)6 b FQ(+)g FL(y)s(;)15 b(ax;)g(ay)s
FP(g)p FQ(,)27 b(whic)m(h)22 b(is)g(correct)241 4632
y(wrt.)31 b FD(al)5 b(l)33 b FQ(sp)s(ecializations)d(for)h
FL(a)h FQ(including)c(zero)33 b(sp)s(ecializations.)43
b(W)-8 b(e)33 b(call)e(this)g(set)241 4745 y FL(C)37
b FQ(a)30 b FD(c)-5 b(ompr)g(ehensive)35 b(Gr\177)-46
b(obner)34 b(b)-5 b(asis)31 b FQ(\()p Fq(cgb)p FQ(\).)241
4907 y(The)38 b(notion)g(of)h(a)g Fq(cgb)g FQ(and)f(a)h(corresp)s
(onding)e(algorithm)h(has)g(b)s(een)g(in)m(tro)s(duced)1667
5187 y(289)p eop
%%Page: 290 290
290 289 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(290)273 b FM(CHAPTER)30 b(29.)72 b(CGB:)31 b(COMPREHENSIVE)e(GR)3012
276 y(\177)2995 299 y(OBNER)i(BASES)664 555 y FQ(b)s(ei)40
b(W)-8 b(eispfenning)39 b([)p @beginspecial @setspecial
@endspecial(20)q(].)73 b(This)39 b(algorithm)h(w)m(orks)h(b)m(y)g(p)s
(erforming)e(case)j(distinc-)664 668 y(tions)33 b(wrt.)g(parametric)g
(co)s(e\016cien)m(t)h(p)s(olynomials)d(in)g(order)i(to)h(\014nd)e(out)i
(what)f(the)664 781 y(head)27 b(monomials)g(are)g(under)f(all)h(p)s
(ossible)e(sp)s(ecializations.)37 b(It)28 b(do)s(es)f(th)m(us)g(not)h
(only)664 894 y(determine)d(a)h Fq(cgb)p FQ(,)g(but)f(ev)m(en)h
(classi\014es)e(the)i(con)m(tained)g(p)s(olynomials)c(wrt.)k(the)f(sp)s
(e-)664 1007 y(cializations)k(they)h(are)g(relev)-5 b(an)m(t)31
b(for.)40 b(If)29 b(w)m(e)i(k)m(eep)f(the)g(Gr\177)-45
b(obner)30 b(bases)g(for)f(all)g(cases)664 1120 y(separate)44
b(and)d(asso)s(ciate)j(information)c(on)j(the)f(resp)s(ectiv)m(e)h(sp)s
(ecializations)d(with)664 1233 y(them,)c(w)m(e)f(obtain)e(a)i
FD(Gr\177)-46 b(obner)38 b(system)p FQ(.)53 b(F)-8 b(or)35
b(our)f(example,)h(the)g(Gr\177)-45 b(obner)34 b(system)664
1346 y(is)c(the)g(follo)m(wing;)1610 1375 y FB(")1700
1462 y FL(a)c FP(6)p FQ(=)f(0)p 1955 1496 4 113 v 83
w FP(f)p FL(x)c FQ(+)f FL(y)s(;)15 b(ax;)g(ay)s FP(g)1700
1575 y FL(a)26 b FQ(=)f(0)p 1955 1609 V 221 w FP(f)p
FL(x)c FQ(+)f FL(y)s FP(g)2618 1375 y FB(#)2682 1519
y FL(:)664 1746 y FQ(A)37 b Fq(cgb)f FQ(is)g(obtained)g(as)h(the)f
(union)f(of)i(the)g(single)e(Gr\177)-45 b(obner)36 b(bases)g(in)g(a)h
(Gr\177)-45 b(obner)664 1859 y(system.)44 b(It)32 b(has)f(also)g(b)s
(een)g(sho)m(wn)g(that,)i(on)e(the)h(other)f(hand,)g(a)h(Gr\177)-45
b(obner)31 b(system)664 1972 y(can)g(easily)e(b)s(e)h(reconstructed)h
(from)f(a)g(giv)m(en)h Fq(cgb)f FQ([)p @beginspecial
@setspecial @endspecial(20)q(].)664 2135 y(The)22 b(CGB)g(pac)m(k)-5
b(age)24 b(pro)m(vides)c(functions)h(for)g(computing)g(b)s(oth)h
Fq(cgb)p FQ('s)f(and)h(Gr\177)-45 b(obner)664 2247 y(systems,)31
b(and)f(for)g(turning)e(Gr\177)-45 b(obner)30 b(systems)g(in)m(to)h
Fq(cgb)p FQ('s.)664 2402 y @beginspecial @setspecial
@endspecial 182 x FE(29.2)136 b(Using)45 b(the)h(REDLOG)f(P)l(ac)l(k)-7
b(age)664 2836 y FQ(F)f(or)22 b(managing)f(the)g(conditions)f(o)s
(ccurring)g(with)g(the)h Fq(cgb)g FQ(computations,)i(the)f(CGB)664
2949 y(pac)m(k)-5 b(age)24 b(uses)d(the)h(pac)m(k)-5
b(age)24 b(REDLOG)e(implemen)m(ting)e(\014rst-order)g(form)m(ulas,)j([)
p @beginspecial @setspecial @endspecial(6)q(,)f @beginspecial
@setspecial @endspecial(8],)664 3062 y(whic)m(h)29 b(is)h(also)g(part)g
(of)h(the)f Fq(reduce)f FQ(distribution.)664 3217 y @beginspecial
@setspecial @endspecial 182 x FE(29.3)136 b(T)-11 b(erm)44
b(Ordering)h(Mo)t(de)664 3651 y FQ(The)j(CGB)g(pac)m(k)-5
b(age)51 b(uses)c(the)i(settings)f(made)g(with)f(the)h(function)f
FJ(TORDER)g FQ(of)664 3764 y(the)d(GR)m(OEBNER)g(pac)m(k)-5
b(age.)83 b(This)42 b(includes)f(in)h(particular)g(the)i(c)m(hoice)h
(of)f(the)664 3877 y(main)28 b(v)-5 b(ariables.)39 b(All)27
b(v)-5 b(ariables)28 b(not)h(men)m(tioned)f(in)f(the)i(v)-5
b(ariable)28 b(list)f(argumen)m(t)j(of)664 3990 y FJ(TORDER)i
FQ(are)h(parameters.)50 b(The)32 b(only)h(term)g(ordering)f(mo)s(des)g
(recognized)i(b)m(y)g Fq(cgb)664 4103 y FQ(are)d FJ(LEX)e
FQ(and)h FJ(REVGRADLEX)p FQ(.)664 4240 y @beginspecial
@setspecial @endspecial 199 x FE(29.4)136 b(CGB:)44 b(Comprehensiv)l(e)
j(Gr\177)-67 b(obner)44 b(Basis)664 4692 y FQ(The)39
b(function)g FJ(CGB)f FQ(exp)s(ects)i(a)g(list)f FL(F)52
b FQ(of)40 b(expressions.)67 b(It)40 b(returns)f(a)h
Fq(cgb)f FQ(of)h FL(F)664 4805 y FQ(wrt.)30 b(the)h(curren)m(t)f
FJ(TORDER)f FQ(setting.)p eop
%%Page: 291 291
291 290 bop 241 299 a @beginspecial @setspecial @endspecial
FM(29.5.)72 b(GSYS:)30 b(GR)949 276 y(\177)932 299 y(OBNER)h(SYSTEM)
1417 b FQ(291)241 555 y FR(Example:)241 763 y FH(torder\({x,y},lex)o
(\)$)241 863 y(cgb{a*x+y,x+b*y})o(;)241 1062 y({x)43
b(+)g(b*y,a*x)d(+)k(y,\(a*b)d(-)i(1\)*y})241 1261 y(ws;)241
1461 y({b*y)f(+)h(x,)284 1660 y(a*x)g(+)g(y,)284 1859
y(y*\(a*b)e(-)j(1\)})241 2103 y FQ(Note)26 b(that)g(the)f(basis)f
(returned)g(b)m(y)h(the)g FJ(CGB)f FQ(call)h(has)f(not)i(undergone)e
(the)h(standard)241 2216 y(ev)-5 b(aluation)34 b(pro)s(cess:)50
b(The)35 b(returned)f(p)s(olynomials)e(are)k(ordered)f(wrt.)g(the)g(c)m
(hosen)241 2329 y(term)27 b(order.)39 b(Reev)-5 b(aluation)26
b(c)m(hanges)i(this)d(as)i(can)g(b)s(e)f(seen)h(with)f(the)h(output)f
(of)h FJ(WS)p FQ(.)241 2484 y @beginspecial @setspecial
@endspecial 181 x FE(29.5)135 b(GSYS:)44 b(Gr\177)-67
b(obner)45 b(System)241 2918 y FQ(The)36 b(function)g
FJ(GSYS)f FQ(follo)m(ws)h(the)h(same)g(calling)f(con)m(v)m(en)m(tions)i
(as)f FJ(CGB)p FQ(.)f(It)h(returns)241 3031 y(the)30
b(complete)h(Gr\177)-45 b(obner)30 b(system)g(represen)m(ted)h(as)f(a)h
(nested)f(list)744 3250 y FP(f)q(f)p FL(c)874 3264 y
FO(1)914 3250 y FL(;)15 b FP(f)p FL(g)1042 3264 y FO(11)1118
3250 y FL(;)g(:)g(:)g(:)i(;)e(g)1363 3264 y FO(1)p FF(n)1441
3273 y Fy(1)1480 3250 y FP(gg)q FL(;)g(:)g(:)g(:)i(;)e
FP(f)q FL(c)1858 3264 y FF(m)1925 3250 y FL(;)g FP(f)p
FL(g)2053 3264 y FF(m)p FO(1)2156 3250 y FL(;)g(:)g(:)g(:)h(;)f(g)2400
3264 y FO(1)p FF(n)2478 3272 y Fp(m)2542 3250 y FP(gg)q(g)p
FJ(.)241 3469 y FQ(The)27 b FL(c)464 3483 y FF(i)521
3469 y FQ(are)h(conditions)f(in)g(the)h(parameters)g(represen)m(ted)g
(as)g(quan)m(ti\014er-free)g(RED-)241 3582 y(LOG)42 b(form)m(ulas.)78
b(Eac)m(h)43 b(c)m(hoice)h(of)f(parameters)g(will)e(ob)s(ey)h(at)i
(least)f(one)g(of)g(the)241 3695 y FL(c)280 3709 y FF(i)308
3695 y FQ(.)88 b(Whenev)m(er)47 b(a)g(c)m(hoice)g(of)f(parameters)h(ob)
s(eys)f(some)g FL(c)2399 3709 y FF(i)2428 3695 y FQ(,)k(the)d(corresp)s
(onding)241 3808 y FP(f)p FL(g)329 3822 y FF(i)p FO(1)393
3808 y FL(;)15 b(:)g(:)g(:)i(;)e(g)638 3822 y FF(in)705
3832 y Fp(i)736 3808 y FP(g)31 b FQ(is)e(a)i(Gr\177)-45
b(obner)29 b(basis)h(for)g(this)f(c)m(hoice.)241 4101
y FR(Example:)241 4310 y FH(torder\({x,y},lex)o(\)$)241
4409 y(gsys)42 b({a*x+y,x+b*y};)241 4608 y({{a*b)f(-)i(1)h(<>)e(0)i
(and)e(a)h(<>)g(0,)328 4808 y({a*x)f(+)h(y,x)f(+)i(b*y,\(a*b)c(-)j
(1\)*y}},)p eop
%%Page: 292 292
292 291 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(292)273 b FM(CHAPTER)30 b(29.)72 b(CGB:)31 b(COMPREHENSIVE)e(GR)3012
276 y(\177)2995 299 y(OBNER)i(BASES)708 555 y FH({a)43
b(<>)f(0)h(and)g(a*b)f(-)h(1)g(=)h(0,)751 754 y({a*x)e(+)h(y,x)g(+)g
(b*y}},)708 954 y({a)g(=)g(0,{a*x)e(+)i(y,x)f(+)h(b*y}}})664
1198 y FQ(As)31 b(with)e(the)h(function)f FJ(CGB)p FQ(,)h(the)h(con)m
(tained)f(p)s(olynomials)e(remain)h(unev)-5 b(aluated.)664
1361 y(Computing)27 b(a)i(Gr\177)-45 b(obner)28 b(system)h(is)e(not)i
(harder)f(than)g(computing)g(a)h Fq(cgb)p FQ(.)40 b(In)28
b(fact,)664 1473 y FJ(CGB)i FQ(also)g(computes)h(a)f(Gr\177)-45
b(obner)30 b(system)h(and)e(then)h(turns)f(it)h(in)m(to)h(a)g
Fq(cgb)p FQ(.)664 1618 y @beginspecial @setspecial @endspecial
149 x FR(29.5.1)113 b(Switc)m(h)36 b(CGBGEN:)g(Only)i(the)f(Generic)g
(Case)664 1988 y FQ(If)30 b(the)h(switc)m(h)f FJ(CGBGEN)f
FQ(is)g(turned)h(on,)g(b)s(oth)g FJ(GSYS)g FQ(and)f FJ(CGB)h
FQ(will)e(assume)i(all)g(para-)664 2101 y(metric)42 b(co)s(e\016cien)m
(ts)g(to)g(b)s(e)f(non-zero)i(ignoring)d(the)h(other)h(cases.)76
b(F)-8 b(or)42 b FJ(CGB)f FQ(this)664 2214 y(means)36
b(that)g(the)g(result)e(equals|up)g(to)i(auto-reduction|that)g(of)g
FJ(GROEBNER)p FQ(.)e(A)664 2327 y(call)25 b(to)i FJ(GSYS)d
FQ(will)f(return)i(this)g(result)f(as)i(a)g(single)f(case)h(including)d
(the)j(assumptions)664 2440 y(made)31 b(during)d(the)i(computation:)664
2733 y FR(Example:)664 2941 y FH(torder\({x,y},lex\))o($)664
3041 y(on)43 b(cgbgen;)664 3140 y(gsys{a*x+y,x+b*y})o(;)664
3340 y({{a*b)f(-)h(1)g(<>)g(0)g(and)f(a)h(<>)g(0,)751
3539 y({a*x)f(+)h(y,x)g(+)g(b*y,\(a*b)d(-)j(1\)*y}}})664
3738 y(off)g(cgbgen;)664 3894 y @beginspecial @setspecial
@endspecial 180 x FE(29.6)136 b(GSYS2CGB:)43 b(Gr\177)-67
b(obner)45 b(System)g(to)h(CGB)664 4327 y FQ(The)25 b(call)f
FJ(GSYS2CGB)f FQ(turns)h(a)i(giv)m(en)f(Gr\177)-45 b(obner)25
b(system)g(in)m(to)h(a)f Fq(cgb)g FQ(b)m(y)g(constructing)664
4440 y(the)31 b(union)d(of)j(the)f(Gr\177)-45 b(obner)30
b(bases)g(of)h(the)g(single)e(cases.)664 4733 y FR(Example:)664
4941 y FH(torder\({x,y},lex\))o($)p eop
%%Page: 293 293
293 292 bop 241 299 a @beginspecial @setspecial @endspecial
FM(29.7.)59 b(SWITCH)19 b(CGBREAL:)i(COMPUTING)f(O)m(VER)g(THE)g(REAL)g
(NUMBERS)p FQ(293)241 555 y FH(gsys{a*x+y,x+b*y)o(}$)241
655 y(gsys2cgb)40 b(ws;)241 854 y({x)j(+)g(b*y,a*x)d(+)k(y,\(a*b)d(-)i
(1\)*y})241 1010 y @beginspecial @setspecial @endspecial
180 x FE(29.7)135 b(Switc)l(h)32 b(CGBREAL:)g(Computing)g(o)l(v)l(er)h
(the)f(Real)614 1340 y(Num)l(b)t(ers)241 1593 y FQ(All)27
b(computations)h(considered)f(so)h(far)g(ha)m(v)m(e)i(tak)m(en)f(place)
f(o)m(v)m(er)i(the)e(complex)g(n)m(um-)241 1705 y(b)s(ers,)f(more)h
(precisely)-8 b(,)27 b(o)m(v)m(er)i(algebraically)d(closed)h(\014elds.)
38 b(Ov)m(er)28 b(the)g(real)f(n)m(um)m(b)s(ers,)241
1818 y(certain)40 b(branc)m(hes)g(of)h(the)f Fq(cgb)g
FQ(computation)h(can)f(b)s(ecome)h(inconsiten)m(t)f(though)241
1931 y(they)32 b(are)h(not)f(inconsisten)m(t)f(o)m(v)m(er)j(the)e
(complex)g(n)m(um)m(b)s(ers.)44 b(Consider,)31 b(e.g.,)j(a)f(con-)241
2044 y(dition)28 b FL(a)551 2011 y FO(2)611 2044 y FQ(+)20
b(1)26 b(=)f(0.)241 2207 y(When)36 b(turning)f(on)i(the)g(switc)m(h)f
FJ(CGBREAL)p FQ(,)f(all)h(simpli\014cations)d(of)k(conditions)e(are)241
2320 y(p)s(erformed)30 b(o)m(v)m(er)k(the)e(real)g(n)m(um)m(b)s(ers.)44
b(The)32 b(metho)s(ds)f(used)g(for)h(this)f(are)i(describ)s(ed)241
2433 y(in)c([)p @beginspecial @setspecial @endspecial(7)q(].)241
2726 y FR(Example:)241 2934 y FH(torder\({x,y},lex)o(\)$)241
3034 y(off)42 b(cgbreal;)241 3133 y(gsys)g({a*x+y,x-a*y};)372
3333 y(2)241 3432 y({{a)86 b(+)43 b(1)g(<>)g(0)g(and)f(a)h(<>)g(0,)1156
3631 y(2)328 3731 y({a*x)f(+)h(y,x)f(-)i(a*y,\(a)84 b(+)43
b(1\)*y}},)851 3930 y(2)284 4030 y({a)g(<>)g(0)g(and)f(a)87
b(+)43 b(1)g(=)h(0,{a*x)d(+)i(y,x)f(-)h(a*y}},)284 4229
y({a)g(=)g(0,{a*x)e(+)j(y,x)e(-)h(a*y}}})241 4428 y(on)g(cgbreal;)241
4528 y(gsys\({a*x+y,x-a*)o(y})o(\);)241 4727 y({{a)f(<>)h(0,)1156
4927 y(2)p eop
%%Page: 294 294
294 293 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(294)273 b FM(CHAPTER)30 b(29.)72 b(CGB:)31 b(COMPREHENSIVE)e(GR)3012
276 y(\177)2995 299 y(OBNER)i(BASES)751 555 y FH({a*x)42
b(+)h(y,x)g(-)g(a*y,\(a)85 b(+)43 b(1\)*y}},)708 754
y({a)g(=)g(0,{a*x)e(+)i(y,x)f(-)h(a*y}}})664 910 y @beginspecial
@setspecial @endspecial 181 x FE(29.8)136 b(Switc)l(hes)664
1343 y FJ(CGBREAL)44 b FQ(Compute)30 b(o)m(v)m(er)h(the)g(real)f(n)m
(um)m(b)s(ers.)39 b(See)31 b(Section)f @beginspecial
@setspecial @endspecial(29.7)i(for)e(details.)664 1531
y FJ(CGBGS)44 b FQ(Gr\177)-45 b(obner)38 b(simpli\014cation)e(of)j(the)
g(condition.)65 b(The)38 b(switc)m(h)g FJ(CGBGS)f FQ(can)j(b)s(e)891
1644 y(turned)25 b(on)h(for)g(applying)d(adv)-5 b(anced)26
b(algebraic)g(simpli\014cation)d(tec)m(hniques)i(to)891
1757 y(the)31 b(conditions.)39 b(This)28 b(will,)g(in)g(general,)j(slo)
m(w)f(do)m(wn)f(the)h(computation,)h(but)891 1870 y(lead)f(to)h(a)g
(simpler)d(Gr\177)-45 b(obner)30 b(system.)664 2057 y
FJ(CGBSTAT)44 b FQ(Statistics)20 b(of)h(the)g(CGB)g(run.)36
b(The)20 b(switc)m(h)g FJ(CGBSTAT)f FQ(toggles)j(the)f(creation)891
2170 y(and)29 b(output)f(of)i(statistical)e(information)g(on)g(the)i
(CGB)f(run.)39 b(The)28 b(statistical)891 2283 y(information)h(is)h
(prin)m(ted)e(at)k(the)e(end)g(of)g(the)h(run.)664 2471
y FJ(CGBFULLRED)43 b FQ(F)-8 b(ull)40 b(reduction.)74
b(By)42 b(default,)i(the)e(CGB)g(functions)f(p)s(erform)f(full)891
2584 y(reductions)21 b(in)e(con)m(trast)k(to)f(pure)e(top)i
(reductions.)36 b(By)22 b(turning)d(o\013)j(the)f(switc)m(h)891
2697 y FJ(CGBFULLRED)p FQ(,)28 b(reduction)i(can)g(b)s(e)g(restricted)g
(to)h(top)g(reductions.)p eop
%%Page: 295 295
295 294 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(30)241 1693 y FT(CHANGEVR:)74 b(Change)k(of)241 1942
y(Indep)6 b(enden)-6 b(t)78 b(V)-19 b(ariables)75 b(in)241
2191 y(DEs)1564 2664 y Fx(G.)1681 2645 y(\177)1671 2664
y(U\030)-34 b(coluk)769 2755 y(Departmen)n(t)24 b(of)j(Ph)n(ysics,)f
(Middle)g(East)h(T)-6 b(ec)n(hnical)26 b(Univ)n(ersit)n(y)1473
2847 y(Ank)l(ara,)f(T)-6 b(urk)n(ey)1233 2968 y(e{mail:)35
b(ucoluk@trmetu.bitnet)241 3212 y FQ(The)30 b(function)f
FJ(CHANGEVAR)f FQ(has)i(\(at)h(least\))g(four)f(di\013eren)m(t)g
(argumen)m(ts.)377 3449 y FP(\017)46 b FN(FIRST)35 b(AR)m(GUMENT)468
3562 y FQ(is)25 b(a)i(list)d(of)j(the)f(dep)s(enden)m(t)f(v)-5
b(ariables)25 b(of)h(the)g(di\013eren)m(tial)f(equation.)39
b(If)25 b(there)468 3675 y(is)k(only)h(one)h(dep)s(enden)m(t)e(v)-5
b(ariable)29 b(it)h(can)h(b)s(e)e(giv)m(en)i(directly)-8
b(,)30 b(not)g(as)h(a)g(list.)377 3863 y FP(\017)46 b
FN(SECOND)34 b(AR)m(GUMENT)468 3976 y FQ(is)d(a)h(list)f(of)h(the)g
FN(new)f FQ(indep)s(enden)m(t)f(v)-5 b(ariables,)31 b(or)h(in)f(the)h
(case)h(of)f(only)f(one,)468 4089 y(the)g(v)-5 b(ariable.)377
4276 y FP(\017)46 b FN(THIRD)35 b(AR)m(GUMENT,)g(F)m(OUR)-9
b(TH)35 b Fo(etc.)468 4389 y FQ(are)c(equations)f(is)f(of)i(the)f(form)
668 4577 y Fn(old)47 b(variable)e FJ(=)j Fn(a)f(function)f(in)h(new)g
(variables)468 4765 y FQ(The)35 b(left)g(hand)f(side)g(cannot)i(b)s(e)e
(a)i(non-k)m(ernel)e(structure.)55 b(These)35 b(giv)m(e)g(the)468
4877 y(old)30 b(v)-5 b(ariables)29 b(in)g(terms)h(of)g(the)h(new)f
(ones.)1667 5187 y(295)p eop
%%Page: 296 296
296 295 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(296)119 b FM(CHAPTER)30 b(30.)72 b(CHANGEVR:)31 b(CHANGE)f(OF)h(V)
-10 b(ARIABLES)30 b(IN)g(DES)801 555 y FP(\017)45 b FN(LAST)35
b(AR)m(GUMENT)891 668 y FQ(is)c(a)h(list)e(of)i(algebraic)g
(expressions)e(whic)m(h)g(ev)-5 b(aluates)33 b(to)f(di\013eren)m(tial)e
(equat-)891 781 y(ions)39 b(in)e(the)j(usual)d(list)h(notation.)68
b(Again)39 b(it)f(is)g(p)s(ossible)f(to)j(omit)f(the)g(list)891
894 y(form)30 b(if)g(there)g(is)g(only)f FN(one)i FQ(di\013eren)m(tial)
e(equation.)664 1131 y(If)h(the)h(last)f(argumen)m(t)h(is)e(a)i(list)e
(then)h(the)h(result)e(of)h FJ(CHANGEVAR)e FQ(is)i(a)g(list)f(to)s(o.)
664 1294 y(It)k(is)f(p)s(ossible)f(to)j(displa)m(y)d(the)i(en)m(tries)g
(of)h(the)f(in)m(v)m(erse)g(Jacobian.)48 b(T)-8 b(o)34
b(do)f(so,)h(turn)664 1407 y FJ(ON)c FQ(the)g(\015ag)h
FJ(DISPJACOBIAN)p FQ(.)664 1562 y @beginspecial @setspecial
@endspecial 181 x FE(30.1)136 b(An)44 b(example:)61 b(the)46
b(2-D)f(Laplace)g(Equation)664 1996 y FQ(The)30 b(2-dimensional)e
(Laplace)j(equation)f(in)f(Cartesian)h(co)s(ordinates)g(is:)1865
2189 y FL(@)1918 2156 y FO(2)1958 2189 y FL(u)p 1865
2230 145 4 v 1865 2313 a(@)5 b(x)1970 2287 y FO(2)2040
2251 y FQ(+)2141 2189 y FL(@)2194 2156 y FO(2)2234 2189
y FL(u)p 2141 2230 V 2143 2313 a(@)g(y)2244 2287 y FO(2)2321
2251 y FQ(=)25 b(0)664 2493 y(No)m(w)k(assume)f(w)m(e)h(w)m(an)m(t)g
(to)g(obtain)f(the)h(p)s(olar)e(co)s(ordinate)h(form)g(of)g(Laplace)h
(equat-)664 2606 y(ion.)40 b(The)30 b(c)m(hange)h(of)g(v)-5
b(ariables)29 b(is:)1605 2811 y FL(x)d FQ(=)e FL(r)18
b FQ(cos)e FL(\022)s(;)267 b(y)28 b FQ(=)d FL(r)18 b
FQ(sin)c FL(\022)664 3001 y FQ(The)30 b(solution)f(using)g
FJ(CHANGEVAR)f FQ(is)664 3207 y FH(CHANGEVAR\({u},{r,)o(th)o(et)o(a},)o
({x)o(=r*)o(co)o(s)38 b(theta,y=r*sin)g(theta},)1667
3307 y({df\(u\(x,y\),x,2\))o(+df)o(\(u)o(\(x,)o(y\))o(,y)o(,2\))o(})f
(\);)664 3513 y FQ(Here)26 b(w)m(e)g(could)f(omit)g(the)h(curly)e
(braces)i(in)e(the)i(\014rst)e(and)h(last)h(argumen)m(ts)g(\(b)s
(ecause)664 3613 y(those)d(lists)e(ha)m(v)m(e)i(only)f(one)g(mem)m(b)s
(er\))g(and)g(the)g(curly)f(braces)i(in)e(the)h(third)e(argumen)m(t)664
3712 y(\(b)s(ecause)j(they)g(are)h(optional\),)g(but)e(not)h(in)f(the)h
(second.)38 b(So)23 b(one)g(could)f(equiv)-5 b(alen)m(tly)664
3812 y(write)664 4018 y FH(CHANGEVAR\(u,{r,th)o(et)o(a})o(,x=)o(r*)o
(cos)37 b(theta,y=r*sin)h(theta,)1579 4117 y(df\(u\(x,y\),x,2\)+df)o
(\(u\()o(x,)o(y\),)o(y,)o(2\))f(\);)664 4336 y FQ(The)h
FJ(u\(x,y\))e FQ(op)s(erator)i(will)d(b)s(e)i(c)m(hanged)i(to)f
FJ(u\(r,theta\))d FQ(in)i(the)h(result)f(as)h(one)664
4449 y(w)m(ould)22 b(do)h(with)e(p)s(encil)g(and)h(pap)s(er.)38
b FJ(u\(r,theta\))20 b FQ(represen)m(ts)i(the)i(the)f(transformed)664
4562 y(dep)s(enden)m(t)30 b(v)-5 b(ariable.)p eop
%%Page: 297 297
297 296 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(31)241 1693 y FT(COMP)-19 b(A)-6 b(CT:)74 b(P)-6 b(ac)g(k)-13
b(age)77 b(for)241 1942 y(compacting)h(expressions)1425
2424 y Fx(An)n(thon)n(y)23 b(C.)k(Hearn)1620 2515 y(RAND)1505
2607 y(San)n(ta)e(Monica)1346 2698 y(CA)h(90407-2138,)j(U.S.A.)1334
2819 y(e{mail:)35 b(hearn@rand.org)241 3063 y FQ(COMP)-8
b(A)m(CT)35 b(is)g(a)h(pac)m(k)-5 b(age)37 b(of)f(functions)e(for)h
(the)h(reduction)e(of)i(a)g(p)s(olynomial)d(in)241 3176
y(the)25 b(presence)g(of)g(side)f(relations.)38 b(The)24
b(pac)m(k)-5 b(age)27 b(de\014nes)d(one)h(op)s(erator)h(COMP)-8
b(A)m(CT)241 3289 y(whose)30 b(syn)m(tax)h(is:)468 3551
y FN(COMP)-9 b(A)m(CT)p FQ(\()p FL(<)p FD(expr)k(ession)p
FL(>)p FQ(,)32 b FL(<)p FD(list)p FL(>)p FQ(\):)p FL(<)p
FD(expr)-5 b(ession)p FL(>)241 3814 y(<)p FD(expr)g(ession)p
FL(>)36 b FQ(can)g(b)s(e)f(an)m(y)h(w)m(ell-formed)f(algebraic)g
(expression,)h(and)f FL(<)p FD(list)p FL(>)h FQ(an)241
3927 y(expression)d(whose)h(v)-5 b(alue)34 b(is)g(a)h(list)e(of)h
(either)g(expressions)f(or)i(equations.)53 b(F)-8 b(or)35
b(ex-)241 4040 y(ample)415 4270 y FH(compact\(x**2+y**)o(3*x)o(-5)o
(y,{)o(x+)o(y-z)o(,x)o(-y)o(-z1)o(}\))o(;)415 4370 y
(compact\(sin\(x\)**)o(10*)o(co)o(s\(x)o(\)*)o(*3+)o(si)o(n\()o(x\)*)o
(*8)o(*co)o(s\()o(x\))o(**5)o(,)764 4470 y({cos\(x\)**2+sin\(x)o(\)*)o
(*2=)o(1})o(\);)415 4569 y(let)42 b(y)i(=)f({cos\(x\)**2+sin\(x)o(\)*)o
(*2-)o(1})o(;)415 4669 y(compact\(sin\(x\)**)o(10*)o(co)o(s\(x)o(\)*)o
(*3+)o(si)o(n\()o(x\)*)o(*8)o(*co)o(s\()o(x\))o(**5)o(,y)o(\);)241
4913 y FQ(COMP)-8 b(A)m(CT)42 b(applies)e(the)i(relations)f(to)i(the)f
(expression)e(so)j(that)f(an)g(equiv)-5 b(alen)m(t)1667
5187 y(297)p eop
%%Page: 298 298
298 297 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(298)334 b FM(CHAPTER)30 b(31.)72 b(COMP)-8 b(A)m(CT:)30
b(COMP)-8 b(A)m(CTING)31 b(EXPRESSIONS)664 555 y FQ(expression)c
(results)f(with)g(as)i(few)g(terms)f(as)h(p)s(ossible.)38
b(The)27 b(metho)s(d)g(used)g(is)g(brie\015y)664 668
y(as)k(follo)m(ws:)664 780 y @beginspecial @setspecial
@endspecial 775 930 a(1.)46 b(Side)34 b(relations)g(are)h(applied)e
(separately)i(to)h(n)m(umerator)f(and)f(denominator,)891
1043 y(so)e(that)h(the)e(problem)f(is)h(reduced)g(to)h(the)g(reduction)
f(of)g(a)h(p)s(olynomial)d(with)891 1156 y(resp)s(ect)i(to)g(a)g(set)g
(of)f(p)s(olynomial)e(side)h(relations.)664 1211 y @beginspecial
@setspecial @endspecial 775 1344 a(2.)46 b(Reduction)37
b(is)g(p)s(erformed)e(sequen)m(tially)-8 b(,)39 b(so)f(that)g(the)f
(problem)f(is)h(reduced)891 1457 y(further)27 b(to)i(the)g(reduction)e
(of)h(a)h(p)s(olynomial)c(with)i(resp)s(ect)i(to)f(a)h(single)e(p)s
(oly-)891 1570 y(nomial)i(relation.)664 1607 y @beginspecial
@setspecial @endspecial 775 1757 a(3.)46 b(The)30 b(p)s(olynomial)d(b)s
(eing)i(reduced)g(is)g(reordered)g(so)i(that)f(the)g(v)-5
b(ariables)29 b(\(k)m(er-)891 1870 y(nels\))h(o)s(ccurring)f(in)g(the)i
(side)e(relation)h(ha)m(v)m(e)h(least)g(precedence.)664
1930 y @beginspecial @setspecial @endspecial 775 2058
a(4.)46 b(Eac)m(h)31 b(co)s(e\016cien)m(t)f(of)g(the)f(remaining)f(k)m
(ernels)h(\(whic)m(h)g(no)m(w)g(only)g(con)m(tain)h(the)891
2171 y(k)m(ernels)j(in)e(the)i(side)e(relation\))i(is)f(reduced)f(with)
h(resp)s(ect)h(to)g(that)g(side)f(rela-)891 2284 y(tion.)664
2321 y @beginspecial @setspecial @endspecial 775 2471
a(5.)46 b(A)32 b(p)s(olynomial)c(quotien)m(t/remainder)i(calculation)g
(is)g(p)s(erformed)g(on)h(the)g(co-)891 2584 y(e\016cien)m(t.)48
b(The)32 b(remainder)f(is)g(used)h(instead)f(of)i(the)g(original)d(if)i
(it)f(has)i(few)m(er)891 2697 y(terms.)664 2735 y @beginspecial
@setspecial @endspecial 775 2885 a(6.)46 b(The)31 b(remaining)f
(expression)g(is)g(reduced)h(with)f(resp)s(ect)i(to)g(the)f(side)g
(relation)891 2998 y(using)e(a)i(\\nearest)g(neigh)m(b)s(our")e
(approac)m(h.)p eop
%%Page: 299 299
299 298 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(32)241 1693 y FT(CRA)-6 b(CK:)76 b(Solving)241 1942
y(o)-6 b(v)g(erdetermined)76 b(systems)g(of)241 2191
y(PDEs)g(or)i(ODEs)1510 2664 y Fx(Thomas)26 b(W)-6 b(olf)580
2755 y(Sc)n(ho)r(ol)27 b(of)f(Mathematical)h(Sciences,)f(Queen)f(Mary)h
(and)f(W)-6 b(est\014eld)26 b(College)1380 2847 y(Univ)n(ersit)n(y)f
(of)h(London)1306 2938 y(London)f(E1)h(4NS,)g(England)1161
3059 y(e{mail:)35 b(T.W)-6 b(olf@maths.qm)n(w.ac.uk)1480
3211 y(Andreas)26 b(Brand)1356 3302 y(Institut)f(f)r(\177)-41
b(ur)27 b(Informatik)1161 3393 y(F)-6 b(riedric)n(h)25
b(Sc)n(hiller)h(Univ)n(ersit\177)-38 b(at)26 b(Jena)1372
3485 y(07740)h(Jena,)g(German)n(y)1176 3606 y(e{mail:)35
b(maa@hpux.rz.uni-jena.de)241 3847 y FQ(The)62 b(pac)m(k)-5
b(age)65 b(CRA)m(CK)e(aims)f(at)i(solving)d(or)i(at)h(least)f
(partially)e(in)m(tegrat-)241 3960 y(ing)44 b(single)g(ordinary)g
(di\013eren)m(tial)g(equations)h(or)g(partial)f(di\013eren)m(tial)g
(equations)241 4073 y(\(ODEs/PDEs\),)33 b(and)e(systems)g(of)h(them,)g
(exactly)h(and)e(in)f(full)f(generalit)m(y)-8 b(.)45
b(Calcu-)241 4186 y(lations)29 b(done)h(with)f(input)g(DEs)h(include)e
(the)377 4411 y FP(\017)46 b FQ(in)m(tegration)30 b(of)h(exact)h(DEs)e
(and)g(generalised)f(exact)j(DEs)377 4594 y FP(\017)46
b FQ(determination)29 b(of)i(monomial)e(in)m(tegrating)h(factors)377
4776 y FP(\017)46 b FQ(direct)30 b(and)g(indirect)e(separation)i(of)h
(DEs)377 4959 y FP(\017)46 b FQ(systematic)31 b(application)e(of)h(in)m
(tegrabilit)m(y)f(conditions)1667 5187 y(299)p eop
%%Page: 300 300
300 299 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(300)48 b FM(CHAPTER)30 b(32.)72 b(CRA)m(CK:)30 b(O)m(VERDETERMINED)h
(SYSTEMS)e(OF)h(DES)801 555 y FP(\017)45 b FQ(solution)38
b(of)h(single)e(elemen)m(tary)i(ODEs)g(b)m(y)f(using)f(the)i(REDUCE)g
(pac)m(k)-5 b(age)891 668 y(ODESOL)-10 b(VE)30 b(\(c)m(hapter)h
@beginspecial @setspecial @endspecial(59)q(\).)664 906
y(Input)k(DEs)h(ma)m(y)h(b)s(e)f(p)s(olynomially)c(non-linear)j(in)g
(the)h(unkno)m(wn)f(functions)g(and)664 1018 y(their)30
b(deriv)-5 b(ativ)m(es)29 b(and)h(ma)m(y)h(dep)s(end)e(arbitrarily)e
(on)k(the)f(indep)s(enden)m(t)e(v)-5 b(ariables.)664
1181 y(Suitable)29 b(applications)f(of)j(CRA)m(CK)f(are)g(the)h
(solution)e(of)801 1419 y FP(\017)45 b FQ(o)m(v)m(erdetermined)34
b(ODE/PDE-systems)g(\(o)m(v)m(erdetermined)f(here)g(just)g(means)891
1532 y(that)f(the)g(n)m(um)m(b)s(er)e(of)h(unkno)m(wn)f(functions)g(of)
i(all)e(indep)s(enden)m(t)f(v)-5 b(ariables)30 b(is)891
1644 y(less)g(than)g(the)h(n)m(um)m(b)s(er)e(of)h(giv)m(en)h(equations)
f(for)g(these)h(functions\).)801 1832 y FP(\017)45 b
FQ(simple)32 b(non-o)m(v)m(erdetermined)h(DE-systems)i(\(suc)m(h)e(as)h
(c)m(haracteristic)h(ODE-)891 1945 y(systems)c(of)f(\014rst)g(order)g
(quasilinear)e(PDEs\).)664 2182 y(The)20 b(strategy)i(is)e(to)h(ha)m(v)
m(e)g FN(one)g FQ(univ)m(ersal)e(program)h(\(CRA)m(CK\))h(whic)m(h)e
(is)h(as)g(e\013ectiv)m(e)664 2295 y(as)34 b(p)s(ossible)d(for)j
(solving)e(o)m(v)m(erdetermined)i(PDE-systems)g(and)f(man)m(y)h
(application)664 2408 y(programs)21 b(\(suc)m(h)g(as)h(LIEPDE\))f(whic)
m(h)f(merely)g(generate)j(an)e(o)m(v)m(erdetermined)g(PDE-)664
2521 y(system)37 b(dep)s(ending)d(on)i(what)h(is)f(to)h(b)s(e)f(in)m(v)
m(estigated)h(\(for)g(example,)h(symmetries)664 2634
y(or)31 b(conserv)-5 b(ation)30 b(la)m(ws\).)664 2797
y(Examples)g(are:)801 3034 y FP(\017)45 b FQ(the)31 b(in)m(v)m
(estigation)f(of)h(in\014nitesimal)c(symmetries)i(of)i(DEs)f
(\(LIEPDE\),)801 3222 y FP(\017)45 b FQ(the)28 b(determination)e(of)i
(an)f(equiv)-5 b(alen)m(t)27 b(Lagrangian)g(for)g(second)g(order)g
(ODEs)891 3335 y(\(LA)m(GRAN\))801 3522 y FP(\017)45
b FQ(the)39 b(in)m(v)m(estigation)g(of)g(\014rst)f(in)m(tegrals)h(of)g
(ODEs)f(whic)m(h)g(are)h(p)s(olynomial)d(in)891 3635
y(their)30 b(highest)g(deriv)-5 b(ativ)m(e)29 b(\(FIRINT\))801
3823 y FP(\017)45 b FQ(the)30 b(splitting)e(of)i(an)f
FL(n)1689 3790 y FF(th)1789 3823 y FQ(order)g(ODE)g(in)m(to)h(a)g
(\014rst)f(order)g(ODE)h(and)f(an)h(\()p FL(n)18 b FP(\000)891
3936 y FQ(1\))971 3903 y FF(th)1073 3936 y FQ(order)30
b(problem)f(\(DECOMP\))664 4173 y(Other)h(applications)f(where)g(non-o)
m(v)m(erdetermined)i(problems)d(are)j(treated)g(are)801
4411 y FP(\017)45 b FQ(the)21 b(application)e(of)h(in\014nitesimal)d
(symmetries)i(\()p FD(e.g.)k FQ(calculated)d(b)m(y)g(LIEPDE\))891
4524 y(in)30 b(the)g(pac)m(k)-5 b(age)32 b(APPL)-8 b(YSYM)31
b(\(c)m(hapter)g @beginspecial @setspecial @endspecial(21)q(\),)801
4711 y FP(\017)45 b FQ(the)39 b(program)f(QUASILINPDE)g(\(also)h(in)e
(the)i(pac)m(k)-5 b(age)40 b(APPL)-8 b(YSYM\))39 b(for)891
4824 y(solving)30 b(single)f(\014rst)g(order)h(quasilinear)e(PDEs.)p
eop
%%Page: 301 301
301 300 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(301)241 555 y(The)21 b(k)m(ernel)g(pac)m(k)-5
b(age)24 b(for)d(solving)g(o)m(v)m(erdetermined)g(or)h(simple)e(non-o)m
(v)m(erdetermined)241 668 y(DE-systems)25 b(is)f(accessible)g(through)g
(a)h(call)f(to)h(the)g(program)f(CRA)m(CK)g(in)g(the)g(pac)m(k-)241
781 y(age)34 b(CRA)m(CK.)f(All)f(the)h(application)f(programs)h
(\(LIEPDE,)g(LA)m(GRAN,)i(FIRINT,)241 894 y(DECOMP)27
b(except)h(APPL)-8 b(YSYM\))28 b(are)f(con)m(tained)h(in)e(the)h(pac)m
(k)-5 b(age)29 b(CRA)m(CKAPP)-8 b(.)241 1007 y(The)27
b(programs)g(APPL)-8 b(YSYM)28 b(and)e(QUASILINPDE)h(are)h(con)m
(tained)g(in)e(the)h(pac)m(k-)241 1120 y(age)k(APPL)-8
b(YSYM)31 b(\(describ)s(ed)e(in)g(c)m(hapter)i @beginspecial
@setspecial @endspecial(21)q(\).)241 1282 y(Details)f(of)h(the)f(CRA)m
(CK)g(applications)f(can)h(b)s(e)g(found)f(in)g(the)i(example)f
(\014le.)241 1445 y FJ(CRACK)f FQ(is)g(called)h(b)m(y)241
1664 y FJ(CRACK)p FQ(\()p FP(f)p FD(e)-5 b(qu)689 1678
y FO(1)727 1664 y FQ(,)31 b FD(e)-5 b(qu)911 1678 y FO(2)950
1664 y FQ(,)31 b(.)15 b(.)h(.)f(,)31 b FD(e)-5 b(qu)1311
1678 y FF(m)1377 1664 y FP(g)p FQ(,)515 1777 y FP(f)p
FD(ine)g(q)718 1791 y FO(1)758 1777 y FQ(,)30 b FD(ine)-5
b(q)971 1791 y FO(2)1011 1777 y FQ(,)30 b(.)16 b(.)f(.)g(,)31
b FD(ine)-5 b(q)1401 1791 y FF(n)1448 1777 y FP(g)p FQ(,)515
1890 y FP(f)p FD(fun)688 1904 y FO(1)727 1890 y FQ(,)31
b FD(fun)911 1904 y FO(2)950 1890 y FQ(,)g(.)15 b(.)h(.)f(,)31
b FD(fun)1311 1904 y FF(p)1350 1890 y FP(g)p FQ(,)515
2003 y FP(f)p FD(var)686 2017 y FO(1)726 2003 y FQ(,)g
FD(var)908 2017 y FO(2)948 2003 y FQ(,)f(.)16 b(.)f(.)h(,)30
b FD(var)1306 2017 y FF(q)1345 2003 y FP(g)p FQ(\);)241
2222 y FL(m;)15 b(n;)g(p;)g(q)33 b FQ(are)e(arbitrary)-8
b(.)377 2460 y FP(\017)46 b FQ(The)33 b FD(e)-5 b(qu)786
2474 y FF(i)847 2460 y FQ(are)33 b(iden)m(tically)e(v)-5
b(anishing)31 b(partial)h(di\013eren)m(tial)f(expressions,)i
FD(i.e.)468 2573 y FQ(they)23 b(represen)m(t)h(equations)e(0)k(=)f
FD(e)-5 b(qu)1752 2594 y FF(i)1780 2573 y FQ(,)25 b(whic)m(h)d(are)h
(to)h(b)s(e)e(solv)m(ed)h(for)g(the)h(funct-)468 2686
y(ions)d FD(fun)782 2707 y FF(j)841 2686 y FQ(as)h(far)g(as)h(p)s
(ossible,)f(thereb)m(y)g(dra)m(wing)f(only)g(necessary)i(conclusions)
468 2798 y(and)30 b(not)g(restricting)g(the)g(general)h(solution.)377
2986 y FP(\017)46 b FQ(The)38 b FD(ine)-5 b(q)821 3000
y FF(i)888 2986 y FQ(are)40 b(expressions)d(whic)m(h)h(m)m(ust)g(not)h
(v)-5 b(anish)38 b(iden)m(tically)f(for)h(an)m(y)468
3099 y(solution)d(to)i(b)s(e)f(determined,)g FD(i.e.)i
FQ(only)d(suc)m(h)h(solutions)f(are)i(computed)f(for)468
3212 y(whic)m(h)i(none)g(of)h(the)g FD(ine)-5 b(q)1397
3226 y FF(i)1464 3212 y FQ(v)g(anishes)37 b(iden)m(tically)g(in)h(all)f
(indep)s(enden)m(t)g(v)-5 b(ari-)468 3325 y(ables.)377
3512 y FP(\017)46 b FQ(The)35 b(dep)s(endence)g(of)h(the)f(\(scalar\))i
(functions)d FD(fun)2290 3534 y FF(j)2362 3512 y FQ(on)h(p)s(ossibly)e
(a)j(n)m(um)m(b)s(er)468 3625 y(of)41 b(v)-5 b(ariables)39
b(is)h(assumed)g(to)h(ha)m(v)m(e)h(b)s(een)e(de\014ned)g(with)f(DEPEND)
j(rather)468 3738 y(than)h(declaring)f(these)i(functions)e(as)h(op)s
(erators.)80 b(Their)41 b(argumen)m(ts)j(ma)m(y)468 3851
y(themselv)m(es)31 b(only)e(b)s(e)h(indep)s(enden)m(t)e(v)-5
b(ariables)29 b(and)h(not)g(expressions.)377 4039 y FP(\017)46
b FQ(The)26 b(functions)e FD(fun)1173 4061 y FF(j)1236
4039 y FQ(and)h(their)h(deriv)-5 b(ativ)m(es)25 b(ma)m(y)i(only)e(o)s
(ccur)h(p)s(olynomially)-8 b(.)468 4152 y(Other)30 b(unkno)m(wn)f
(functions)g(in)g FD(e)-5 b(qu)1753 4174 y FF(i)1811
4152 y FQ(ma)m(y)31 b(b)s(e)f(represen)m(ted)g(as)h(op)s(erators.)377
4339 y FP(\017)46 b FQ(The)e FD(var)805 4354 y FF(k)891
4339 y FQ(are)h(further)e(indep)s(enden)m(t)e(v)-5 b(ariables,)47
b(whic)m(h)42 b(are)j(not)f(already)468 4452 y(argumen)m(ts)22
b(of)f(an)m(y)g(of)h(the)f FD(fun)1535 4474 y FF(j)1571
4452 y FQ(.)38 b(If)21 b(there)g(are)h(none)e(then)h(the)h(third)d
(argumen)m(t)468 4565 y(is)29 b(the)i(empt)m(y)g(list)e
FP(fg)p FQ(.)377 4753 y FP(\017)46 b FQ(The)29 b(dep)s(endence)f(of)i
(the)f FD(e)-5 b(qu)1533 4775 y FF(i)1591 4753 y FQ(on)29
b(the)h(indep)s(enden)m(t)d(v)-5 b(ariables)28 b(and)h(on)g(con-)468
4866 y(stan)m(ts)i(and)f(functions)f(other)i(than)f FD(fun)1887
4888 y FF(j)1954 4866 y FQ(is)g(arbitrary)-8 b(.)p eop
%%Page: 302 302
302 301 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(302)48 b FM(CHAPTER)30 b(32.)72 b(CRA)m(CK:)30 b(O)m(VERDETERMINED)h
(SYSTEMS)e(OF)h(DES)664 555 y FQ(The)g(result)f(is)h(a)g(list)g(of)g
(solutions)1962 759 y FP(f)p FD(sol)2124 773 y FO(1)2163
759 y FL(;)15 b(:)g(:)g(:)r FP(g)664 964 y FQ(where)30
b(eac)m(h)i(solution)d(is)g(a)i(list)e(of)h(3)h(lists:)664
1183 y FP(ff)p FD(c)-5 b(on)897 1197 y FO(1)936 1183
y FL(;)41 b FD(c)-5 b(on)1144 1197 y FO(2)1183 1183 y
FL(;)15 b(:)g(:)g(:)i(;)40 b FD(c)-5 b(on)1552 1197 y
FF(q)1590 1183 y FP(g)p FQ(,)710 1296 y FP(f)p FD(fun)890
1318 y FF(a)957 1296 y FQ(=)25 b FD(ex)1148 1310 y FF(a)1189
1296 y FL(;)66 b FD(fun)1415 1318 y FF(b)1475 1296 y
FQ(=)24 b FD(ex)1665 1311 y FF(b)1700 1296 y FL(;)15
b(:)g(:)g(:)h(;)66 b FD(fun)2087 1318 y FF(p)2152 1296
y FQ(=)25 b FD(ex)2343 1310 y FF(p)2383 1296 y FP(g)p
FQ(,)710 1410 y FP(f)p FD(fun)890 1431 y FF(c)925 1410
y FL(;)65 b FD(fun)1150 1431 y FF(d)1191 1410 y FL(;)15
b(:)g(:)g(:)h(;)66 b FD(fun)1578 1431 y FF(r)1616 1410
y FP(g)792 b(g)664 1629 y FQ(with)40 b(in)m(teger)i FL(a;)15
b(b;)g(c;)g(d;)g(p;)g(q)s(;)g(r)m(:)44 b FQ(If)d FJ(CRACK)f
FQ(\014nds)f(a)j(con)m(tradiction)f(as)g(0)j(=)f(1)e(then)664
1742 y(there)e(exists)f(no)h(solution)e(and)h(it)g(returns)g(the)g
(empt)m(y)h(list)f FP(fg)p FQ(.)66 b(The)38 b(empt)m(y)h(list)664
1855 y(is)31 b(also)g(returned)g(if)f(no)i(solution)e(exists)h(whic)m
(h)g(do)s(es)g(not)h(violate)g(the)f(inequalities)664
1967 y FD(ine)-5 b(q)822 1981 y FF(i)881 1967 y FP(6)p
FQ(=)31 b(0)p FL(:)k FQ(F)-8 b(or)35 b(example,)f(in)f(the)h(case)h(of)
f(a)g(linear)f(system)h(as)g(input,)f(there)h(is)f(at)664
2080 y(most)e(one)g(solution)e FD(sol)1514 2094 y FO(1)1553
2080 y FQ(.)664 2243 y(The)40 b(expressions)f FD(c)-5
b(on)1486 2257 y FF(i)1555 2243 y FQ(\(if)39 b(there)i(are)f(an)m(y\),)
k(are)c(the)h(remaining)d(necessary)j(and)664 2356 y(su\016cien)m(t)29
b(conditions)g(for)g(the)h(functions)f FD(fun)2300 2378
y FF(c)2335 2356 y FL(;)15 b(:)g(:)g(:)i(;)e FD(fun)2672
2378 y FF(r)2739 2356 y FQ(in)29 b(the)h(third)e(list.)39
b(Those)664 2469 y(functions)32 b(can)h(b)s(e)g(original)e(functions)h
(from)h(the)g(equations)g(to)h(b)s(e)f(solv)m(ed)g(\(of)h(the)664
2582 y(second)e(argumen)m(t)h(of)f(the)g(call)g(of)g
FJ(CRACK)p FQ(\))f(or)h(new)f(functions)g(or)h(constan)m(ts)h(whic)m(h)
664 2695 y(arose)38 b(from)g(in)m(tegrations.)62 b(The)37
b(dep)s(endence)f(of)i(new)f(functions)f(on)i(v)-5 b(ariables)36
b(is)664 2808 y(declared)e(with)e FJ(DEPEND)h FQ(and)g(to)i(visualise)d
(this)g(dep)s(endence)h(the)i(algebraic)e(mo)s(de)664
2921 y(function)i FJ(FARGS)p FQ(\()p FD(fun)1434 2942
y Fm(i)1474 2921 y FQ(\))h(can)g(b)s(e)f(used.)55 b(If)35
b(there)h(are)g(no)g FD(c)-5 b(on)2869 2935 y FF(i)2932
2921 y FQ(then)36 b(all)e(equations)664 3033 y(are)d(solv)m(ed)f(and)g
(the)h(functions)d(in)h(the)i(third)e(list)g(are)h(unconstrained.)664
3196 y(The)e(second)h(list)e(con)m(tains)h(equations)g
FD(fun)2185 3218 y FF(i)2239 3196 y FQ(=)d FD(ex)2430
3210 y FF(i)2486 3196 y FQ(where)j(eac)m(h)i FD(fun)3084
3218 y FF(i)3141 3196 y FQ(is)d(an)i(original)664 3309
y(function)g(and)h FD(ex)1292 3323 y FF(i)1350 3309 y
FQ(is)g(the)g(computed)h(expression)e(for)h FD(fun)2730
3331 y FF(i)2758 3309 y FQ(.)664 3472 y(The)38 b(exact)j(b)s(eha)m
(viour)c(of)i FJ(CRACK)f FQ(can)h(b)s(e)f(mo)s(di\014ed)e(b)m(y)j(in)m
(ternal)f(v)-5 b(ariables,)40 b(and)664 3585 y(there)27
b(is)f(a)h(help)e(system)i(particularly)d(asso)s(ciated)j(with)f
FJ(CRACK)p FQ(.)f(Users)i(are)g(referred)664 3698 y(to)k(the)g
(detailed)e(do)s(cumen)m(tation)i(for)f(more)g(information.)p
eop
%%Page: 303 303
303 302 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(33)241 1693 y FT(CVIT:)75 b(F)-19 b(ast)77 b(calculation)h(of)241
1942 y(Dirac)f(gamma)g(matrix)f(traces)874 2424 y Fx(V.)25
b(Ilyin,)h(A.)f(Kryuk)n(o)n(v,)f(A.)i(Ro)r(diono)n(v)f(and)h(A.)f(T)-6
b(arano)n(v)1253 2515 y(Institute)25 b(for)h(Nuclear)g(Ph)n(ysics)1318
2607 y(Mosco)n(w)h(State)f(Univ)n(ersit)n(y)1341 2698
y(Mosco)n(w,)i(119899)g(Russia)241 2942 y FQ(The)33 b(pac)m(k)-5
b(age)36 b(consists)d(of)h(5)g(sections,)h(and)e(pro)m(vides)f(an)i
(alternativ)m(e)g(to)h(the)e(RE-)241 3055 y(DUCE)k(high-energy)g(ph)m
(ysics)g(system.)62 b(Instead)38 b(of)f(b)s(eing)g(based)g(on)g
(\000-matrices)241 3168 y(as)i(a)f(basis)g(for)g(a)h(Cli\013ord)d
(algebra,)41 b(it)d(is)g(based)g(on)h(treating)g(\000-matrices)f(as)h
(3-j)241 3281 y(sym)m(b)s(ols,)29 b(as)i(describ)s(ed)d(b)m(y)i
(Cvitano)m(vic.)241 3443 y(The)f(functions)f(it)i(pro)m(vides)e(are)j
(the)f(same)g(as)g(those)g(of)g(the)g(standard)f(pac)m(k)-5
b(age.)42 b(It)241 3556 y(do)s(es)30 b(ha)m(v)m(e)h(four)f(switc)m(hes)
g(whic)m(h)f(con)m(trol)i(its)f(b)s(eha)m(viour.)241
3719 y FJ(CVIT)241 3882 y FQ(If)22 b(it)g(is)f(on)h(then)g(use)g
(Kennedy-Cvitano)m(vic)g(algorithm)f(else)h(use)g(standard)g
(facilities.)241 4045 y FJ(CVITOP)241 4207 y FQ(Switc)m(hes)29
b(on)i(Fierz)f(optimisation.)39 b(Default)31 b(is)e(o\013;)241
4370 y FJ(CVITBTR)241 4533 y FQ(Switc)m(hes)g(on)i(the)f(bubbles)e(and)
i(triangles)f(factorisation.)41 b(The)30 b(default)g(is)f(on.)241
4695 y FJ(CVITRACE)241 4858 y FQ(Con)m(trols)h(in)m(ternal)f(tracing)h
(of)h(the)f(CVIT)g(pac)m(k)-5 b(age.)43 b(Default)30
b(is)g(o\013.)1667 5187 y(303)p eop
%%Page: 304 304
304 303 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(304)401 b FM(CHAPTER)30 b(33.)72 b(CVIT:DIRA)m(C)30
b(GAMMA)i(MA)-8 b(TRIX)31 b(TRA)m(CES)664 555 y FH(index)42
b(j1,j2,j3,;)664 754 y(vecdim)f(n$)664 954 y(g\(l,j1,j2,j2,j1\);)708
1253 y(2)664 1352 y(n)664 1651 y(g\(l,j1,j2\)*g\(l1,j)o(3,)o(j1)o(,j2)o
(,j)o(3\);)708 1950 y(2)664 2050 y(n)664 2249 y(g\(l,j1,j2\)*g\(l1,j)o
(3,)o(j1)o(,j3)o(,j)o(2\);)664 2548 y(n*\()i(-)g(n)g(+)g(2\))p
eop
%%Page: 305 305
305 304 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(34)241 1693 y FT(DEFINT:)75 b(De\014nite)241 1942 y(In)-6
b(tegration)77 b(for)h(REDUCE)1167 2424 y Fx(Kerry)25
b(Gask)n(ell)i(and)e(Winfried)h(Neun)826 2515 y(Konrad{Zuse{Zen)n(trum)
f(f)r(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2607 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2698
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1390 2819 y(e{mail:)35
b(neun@zib.de)1411 2971 y(Stanley)26 b(L.)g(Kamen)n(y)1400
3062 y(Los)h(Angeles,)f(U.S.A.)241 3306 y FQ(REDUCE's)f(de\014nite)f
(in)m(tegration)h(pac)m(k)-5 b(age)27 b(is)d(able)h(to)h(calculate)f
(the)g(de\014nite)f(in)m(te-)241 3419 y(grals)40 b(of)h(man)m(y)g
(functions,)h(including)37 b(sev)m(eral)k(sp)s(ecial)e(functions.)71
b(There)40 b(are)h(a)241 3532 y(n)m(um)m(b)s(er)27 b(of)h(parts)g(of)g
(this)f(pac)m(k)-5 b(age,)31 b(including)24 b(con)m(tour)29
b(in)m(tegration.)40 b(The)28 b(inno)m(v)-5 b(a-)241
3645 y(tiv)m(e)26 b(in)m(tegration)h(pro)s(cess)e(is)h(to)g(represen)m
(t)h(eac)m(h)g(function)e(as)h(a)h(Meijer)f(G-function,)241
3758 y(and)e(then)g(calculating)g(the)h(in)m(tegral)f(b)m(y)g(using)f
(the)i(follo)m(wing)e(Meijer)i(G)f(in)m(tegration)241
3871 y(form)m(ula.)242 4052 y FB(Z)325 4079 y Fu(1)288
4241 y FO(0)415 4167 y FL(x)467 4130 y FF(\013)p Fu(\000)p
FO(1)607 4167 y FL(G)679 4130 y FF(st)679 4190 y(uv)775
4023 y FB( )841 4167 y FL(\033)s(x)978 4020 y FB(\014)978
4070 y(\014)978 4120 y(\014)978 4169 y(\014)978 4219
y(\014)1048 4106 y FQ(\()p FL(c)1122 4120 y FF(u)1168
4106 y FQ(\))1046 4230 y(\()p FL(d)1128 4244 y FF(v)1170
4230 y FQ(\))1215 4023 y FB(!)1296 4167 y FL(G)1368 4130
y FF(mn)1368 4190 y(pq)1492 4023 y FB( )1558 4167 y FL(!)s(x)1670
4130 y FF(l)q(=k)1799 4020 y FB(\014)1799 4070 y(\014)1799
4120 y(\014)1799 4169 y(\014)1799 4219 y(\014)1867 4106
y FQ(\()p FL(a)1950 4120 y FF(p)1990 4106 y FQ(\))1873
4230 y(\()p FL(b)1947 4244 y FF(q)1985 4230 y FQ(\))2036
4023 y FB(!)2117 4167 y FL(dx)h FQ(=)g FL(k)s(G)2459
4123 y FF(ij)2459 4195 y(k)r(l)2539 4023 y FB( )2604
4167 y FL(\030)2678 4020 y FB(\014)2678 4070 y(\014)2678
4120 y(\014)2678 4169 y(\014)2678 4219 y(\014)2746 4106
y FQ(\()p FL(g)2824 4121 y FF(k)2868 4106 y FQ(\))2750
4230 y(\()p FL(h)2837 4245 y FF(l)2864 4230 y FQ(\))2913
4023 y FB(!)3112 4167 y FQ(\(1\))241 4482 y(The)g(resulting)g(Meijer)h
(G-function)f(is)h(then)g(retransformed,)g(either)g(directly)f(or)h
(via)241 4594 y(a)31 b(h)m(yp)s(ergeometric)f(function)f
(simpli\014cation,)e(to)k(giv)m(e)g(the)g(answ)m(er.)241
4757 y(The)g(user)g(in)m(terface)h(is)f(via)g(a)h(four)f(argumen)m(t)h
(v)m(ersion)f(of)h(the)g FJ(INT)e FQ(op)s(erator,)j(with)241
4870 y(the)d(lo)m(w)m(er)h(and)f(upp)s(er)e(limits)g(added.)1667
5187 y(305)p eop
%%Page: 306 306
306 305 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(306)p FM(CHAPTER)26 b(34.)65 b(DEFINT:)26 b(DEFINITE)f(INTEGRA)-8
b(TION)25 b(F)m(OR)h(REDUCE)664 555 y FH(load_package)39
b(defint;)664 754 y(int\(sin)i(x,x,0,pi/2\);)1013 954
y(1)p eop
%%Page: 307 307
307 306 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(307)241 555 y FH(int\(log\(x\),x,1,5)o(\);)589
754 y(5*log\(5\))41 b(-)i(4)241 954 y(int\(x*e^\(-1/2x\),)o(x,)o(0,)o
(inf)o(in)o(ity)o(\);)589 1153 y(4)241 1352 y(int\(x^2*cos\(x\)*e)o
(^\()o(-2)o(*x\))o(,x)o(,0,)o(in)o(fin)o(it)o(y\))o(;)677
1551 y(4)589 1651 y(-----)633 1751 y(125)241 1950 y
(int\(x^\(-1\)*besse)o(lj)o(\(2)o(,sq)o(rt)o(\(x\))o(\),)o(x,0)o(,i)o
(nf)o(ini)o(ty)o(\);)589 2149 y(1)241 2348 y(int\(si\(x\),x,0,y\))o(;)
589 2548 y(cos\(y\))f(+)h(si\(y\)*y)d(-)k(1)241 2747
y(int\(besselj\(2,x^)o(\(1)o(/4)o(\)\),)o(x,)o(0,y)o(\);)1200
2946 y(1/4)633 3046 y(4*besselj\(3,y)125 b(\)*y)633 3145
y(----------------)o(---)o(--)982 3245 y(1/4)938 3345
y(y)241 3589 y FQ(The)30 b(DEFINT)h(pac)m(k)-5 b(age)32
b(also)f(de\014nes)e(a)i(n)m(um)m(b)s(er)f(of)g(additional)f
(transforms,)h(suc)m(h)241 3702 y(as)48 b(the)h(Laplace)f(transform)p
@beginspecial @setspecial @endspecial -33 x FO(1)1324
3702 y FQ(,)53 b(the)48 b(Hank)m(el)h(transform,)j(the)d(Y-transform,)j
(the)241 3815 y(K-transform,)41 b(the)f(Struv)m(eH)f(transform,)j(the)d
(F)-8 b(ourier)40 b(sine)e(transform,)j(and)e(the)241
3928 y(F)-8 b(ourier)30 b(cosine)g(transform.)241 4158
y FH(laplace_transfor)o(m\()o(co)o(sh\()o(a*)o(x\),)o(x\))o(;)372
4358 y(-)43 b(s)241 4457 y(---------)328 4557 y(2)174
b(2)284 4656 y(a)87 b(-)43 b(s)p 241 4818 1196 4 v 344
4871 a Fy(1)379 4903 y @beginspecial @setspecial @endspecial
Fx(See)26 b(Chapter)f @beginspecial @setspecial @endspecial(49)i(for)f
(an)g(alternativ)n(e)g(Laplace)h(transform)f(with)g(in)n(v)n(erse)f
(Laplace)i(transform)p eop
%%Page: 308 308
308 307 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(308)p FM(CHAPTER)26 b(34.)65 b(DEFINT:)26 b(DEFINITE)f(INTEGRA)-8
b(TION)25 b(F)m(OR)h(REDUCE)664 555 y FH(laplace_transform)o(\(H)o(ea)o
(vis)o(id)o(e\(x)o(-1)o(\),x)o(\);)751 754 y(1)664 854
y(------)751 954 y(s)708 1053 y(e)43 b(*s)664 1253 y
(hankel_transform\()o(x,)o(x\))o(;)1056 1452 y(n)h(+)f(4)751
1551 y(gamma\(-------\))1144 1651 y(2)664 1751 y(-----------------)o
(--)1013 1850 y(n)g(-)g(2)174 b(2)708 1950 y(gamma\(-------\)*s)1100
2050 y(2)664 2249 y(fourier_sin\(e^\(-x)o(\),)o(x\))o(;)795
2448 y(s)664 2548 y(--------)751 2647 y(2)708 2747 y(s)87
b(+)43 b(1)664 2946 y(fourier_cos\(x,e^\()o(-1)o(/2)o(*x^)o(2\))o(,x\))
o(;)2146 3145 y(2)1536 3245 y(i*s)435 b(s)43 b(/2)708
3345 y(sqrt\()e(-)i(pi\)*erf\(---------)o(\)*s)37 b(+)43
b(e)174 b(*sqrt\(2\))1449 3444 y(sqrt\(2\))664 3544 y
(-----------------)o(--)o(--)o(---)o(--)o(---)o(--)o(---)o(--)o(--)o
(---)o(--)o(---)1449 3644 y(2)1405 3743 y(s)43 b(/2)1362
3843 y(e)173 b(*sqrt\(2\))664 4187 y FQ(It)34 b(is)f(p)s(ossible)e(to)k
(the)f(user)f(to)h(extend)g(the)g(pattern-matc)m(hing)g(pro)s(cess)g(b)
m(y)f(whic)m(h)664 4299 y(the)f(relev)-5 b(an)m(t)32
b(Meijer)f(G)h(represen)m(tation)g(for)g(an)m(y)g(function)e(is)h
(found.)43 b(Details)32 b(can)664 4412 y(b)s(e)e(found)f(in)g(the)i
(complete)f(do)s(cumen)m(tation.)664 4575 y FN(Ac)m(kno)m(wledgemen)m
(t:)39 b FQ(This)25 b(pac)m(k)-5 b(age)29 b(dep)s(ends)c(greatly)i(on)g
(the)h(pioneering)d(w)m(ork)664 4688 y(of)31 b(Victor)f(Adamc)m(hik,)g
(to)h(whom)f(thanks)g(are)h(due.)p eop
%%Page: 309 309
309 308 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(35)241 1693 y FT(DESIR:)76 b(Di\013eren)-6 b(tial)76
b(linear)241 1942 y(homogeneous)i(equation)241 2191 y(solutions)f(in)g
(the)241 2440 y(neigh)-6 b(b)6 b(ourho)g(o)g(d)79 b(of)f(irregular)241
2689 y(and)f(regular)g(singular)g(p)6 b(oin)-6 b(ts)966
3171 y Fx(C.)26 b(Dicrescenzo,)i(F.)e(Ric)n(hard{Jung,)g(E.)g(T)-6
b(ournier)1095 3262 y(Group)r(e)26 b(de)f(Calcul)i(F)-6
b(ormel)25 b(de)h(Grenoble)1444 3354 y(lab)r(oratoire)i(TIM3)1624
3445 y(F)-6 b(rance)1274 3566 y(e{mail:)35 b(dicresc@afp.imag.fr)241
3811 y FQ(This)f(soft)m(w)m(are)j(enables)f(the)g(basis)f(of)h(formal)f
(solutions)g(to)i(b)s(e)e(computed)h(for)g(an)241 3923
y(ordinary)20 b(homogeneous)i(di\013eren)m(tial)e(equation)i(with)e(p)s
(olynomial)f(co)s(e\016cien)m(ts)j(o)m(v)m(er)241 4036
y(Q)32 b(of)h(an)m(y)h(order,)f(in)e(the)j(neigh)m(b)s(ourho)s(o)s(d)c
(of)j(zero)g(\(regular)g(or)g(irregular)e(singular)241
4149 y(p)s(oin)m(t,)e(or)i(ordinary)d(p)s(oin)m(t\).)241
4312 y(This)22 b(soft)m(w)m(are)k(can)e(b)s(e)g(used)f(in)g(t)m(w)m(o)i
(w)m(a)m(ys,)i(directly)c(via)g(the)i FJ(DELIRE)d FQ(pro)s(cedure,)i
(or)241 4425 y(in)m(teractiv)m(ely)d(with)f(the)i FJ(DESIR)e
FQ(pro)s(cedure.)36 b(The)21 b(basic)g(pro)s(cedure)f(is)g(the)i
(fDELIRE)241 4538 y(pro)s(cedure)33 b(whic)m(h)h(enables)g(the)h
(solutions)e(of)i(a)g(linear)e(homogeneous)i(di\013eren)m(tial)241
4651 y(equation)30 b(to)h(b)s(e)f(computed)g(in)f(the)i(neigh)m(b)s
(ourho)s(o)s(d)c(of)k(zero.)241 4813 y(The)26 b FJ(DESIR)f
FQ(pro)s(cedure)h(is)g(a)h(pro)s(cedure)f(without)g(argumen)m(t)h
(whereb)m(y)f FJ(DELIRE)f FQ(can)241 4926 y(b)s(e)36
b(called)f(without)h(preliminary)d(treatmen)m(t)38 b(to)f(the)g(data,)i
(that)e(is)f(to)h(sa)m(y)-8 b(,)39 b(in)d(an)1667 5187
y(309)p eop
%%Page: 310 310
310 309 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(310)499 b FM(CHAPTER)29 b(35.)72 b(DESIR:)30 b(LINEAR)g(HOMOGENEOUS)
g(DES)664 555 y FQ(in)m(teractiv)m(e)38 b(autonomous)f(w)m(a)m(y)-8
b(.)61 b(This)35 b(pro)s(cedure)h(also)h(prop)s(oses)f(some)h
(transfor-)664 668 y(mations)c(on)g(the)g(initial)e(equation.)49
b(This)31 b(allo)m(ws)i(one)g(to)h(start)g(comfortably)f(with)664
781 y(an)i(equation)g(whic)m(h)f(has)i(a)f(non)g(zero)h(singular)d(p)s
(oin)m(t,)j(a)f(p)s(olynomial)e(righ)m(t-hand)664 894
y(side)c(and)h(parameters.)664 1057 y FJ(delire\(x,k,grille,lcoeff,)o
(para)o(m\))664 1219 y FQ(This)c(pro)s(cedure)g(computes)i(formal)f
(solutions)f(of)i(a)g(linear)e(homogeneous)i(di\013eren-)664
1332 y(tial)36 b(equation)g(with)g(p)s(olynomial)e(co)s(e\016cien)m(ts)
j(o)m(v)m(er)h(Q)e(and)g(of)h(an)m(y)g(order,)g(in)f(the)664
1445 y(neigh)m(b)s(ourho)s(o)s(d)25 b(of)k(zero,)h(regular)d(or)h
(irregular)e(singular)g(p)s(oin)m(t.)39 b FJ(x)28 b FQ(is)f(the)i(v)-5
b(ariable,)664 1558 y FJ(k)27 b FQ(is)f(the)h(n)m(um)m(b)s(er)f(of)h
(desired)f(terms)h(\(that)h(is)e(for)h(eac)m(h)h(formal)e(series)h(in)f
FL(x)3296 1572 y FF(t)3352 1558 y FQ(app)s(ear-)664 1671
y(ing)37 b(in)e(p)s(olysol,)j FL(a)1326 1685 y FO(0)1390
1671 y FQ(+)24 b FL(a)1533 1685 y FO(1)1573 1671 y FL(x)1625
1685 y FF(t)1679 1671 y FQ(+)h FL(a)1823 1685 y FO(2)1862
1671 y FL(x)1914 1638 y FO(2)1914 1693 y FF(t)1978 1671
y FQ(+)g FL(:)15 b(:)g(:)26 b FQ(+)e FL(a)2348 1685 y
FF(n)2395 1671 y FL(x)2447 1638 y FF(n)2447 1693 y(t)2519
1671 y FQ(+)g FL(:)15 b(:)g(:)39 b FQ(w)m(e)e(compute)h(the)f
FL(k)28 b FQ(+)d(1)664 1784 y(\014rst)30 b(co)s(e\016cien)m(ts)h
FL(a)1360 1798 y FO(0)1400 1784 y FQ(,)g FL(a)1504 1798
y FO(1)1574 1784 y FQ(to)g FL(a)1733 1799 y FF(k)1776
1784 y FQ(.)41 b(The)30 b(co)s(e\016cien)m(ts)h(of)g(the)g(di\013eren)m
(tial)e(op)s(erator)i(as)664 1897 y(p)s(olynomial)25
b(in)h FL(x)1286 1864 y FF(g)r(r)r(il)q(l)q(e)1460 1897
y FQ(.)40 b(In)26 b(general)i(grille)d(is)h(1.)41 b(The)26
b(argumen)m(t)i FJ(lcoeff)e FQ(is)g(a)i(list)e(of)664
2010 y(co)s(e\016cien)m(ts)g(of)e(the)h(di\013eren)m(tial)e(op)s
(erator)i(\(in)f(increasing)f(order)h(of)h(di\013eren)m(tiation\))664
2123 y(and)30 b FJ(param)e FQ(is)h(a)i(list)d(of)j(parameters.)41
b(The)29 b(pro)s(cedure)g(returns)g(the)h(list)f(of)h(general)664
2236 y(solutions.)664 2466 y FH(lcoeff:={1,x,x,x*)o(*6)o(};)1797
2666 y(6)1013 2765 y(lcoeff)41 b(:=)i({1,x,x,x)d(})664
2964 y(param:={};)1013 3164 y(param)h(:=)i({})664 3363
y(sol:=delire\(x,4,1)o(,l)o(co)o(eff)o(,p)o(ara)o(m\))o(;)1449
3562 y(4)304 b(3)349 b(2)1362 3662 y(xt)86 b(-)43 b(4*xt)86
b(+)43 b(12*xt)85 b(-)43 b(24*xt)f(+)h(24)664 3762 y(sol)g(:=)f
({{{{0,1,---------)o(--)o(---)o(--)o(---)o(--)o(--)o(---)o(--)o(---)o
(--)o(--)o(,1})o(,{)2015 3861 y(12)1231 4060 y(}}},)1885
4260 y(4)697 b(3)1013 4359 y({{{0,1,\(6*log\(xt)o(\)*)o(xt)81
b(-)43 b(18*log\(xt\)*xt)2059 4559 y(2)1405 4658 y(+)g(36*log\(xt\)*xt)
82 b(-)43 b(36*log\(xt\)*xt)1667 4857 y(4)304 b(3)1405
4957 y(-)43 b(5*xt)86 b(+)43 b(9*xt)86 b(-)43 b(36*xt)e(+)i
(36\)/36,0},{})p eop
%%Page: 311 311
311 310 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(311)677 655 y FH(}},)851 854 y(1)589 954 y({{{-------,1,)938
1053 y(4)764 1153 y(4*xt)1025 1352 y(4)305 b(3)348 b(2)764
1452 y(361*xt)84 b(+)44 b(4*xt)85 b(+)43 b(12*xt)85 b(+)44
b(24*xt)d(+)i(24)720 1551 y(-----------------)o(--)o(---)o(--)o(--)o
(---)o(--)o(---)o(--)o(--)o(-,1)o(0})o(,)1505 1651 y(24)677
1850 y({}}}})p eop
%%Page: 312 312
312 311 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(312)499 b FM(CHAPTER)29 b(35.)72 b(DESIR:)30 b(LINEAR)g(HOMOGENEOUS)
g(DES)p eop
%%Page: 313 313
313 312 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(36)241 1693 y FT(DFP)-19 b(AR)g(T:)75 b(Deriv)-13 b(ativ)-6
b(es)76 b(of)241 1942 y(generic)h(functions)1470 2424
y Fx(Herb)r(ert)26 b(Melenk)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)r
(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2607 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2698
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1352 2819 y(e{mail:)35
b(melenk@zib.de)241 3063 y FQ(The)f(pac)m(k)-5 b(age)38
b FJ(DFPART)33 b FQ(supp)s(orts)h(computations)h(with)e(total)j(and)f
(partial)f(deriv)-5 b(a-)241 3176 y(tiv)m(es)39 b(of)h(formal)e
(function)g(ob)5 b(jects.)68 b(Suc)m(h)39 b(computations)g(can)g(b)s(e)
g(useful)e(in)h(the)241 3289 y(con)m(text)32 b(of)f(di\013eren)m(tial)d
(equations)i(or)h(p)s(o)m(w)m(er)f(series)g(expansions.)241
3444 y @beginspecial @setspecial @endspecial 181 x FE(36.1)135
b(Generic)45 b(F)-11 b(unctions)241 3878 y FQ(A)36 b(generic)h
(function)e(is)h(a)h(sym)m(b)s(ol)e(whic)m(h)g(represen)m(ts)i(a)g
(mathematical)g(function.)241 3991 y(The)e(minimal)d(information)i(ab)s
(out)h(a)h(generic)f(function)g(function)f(is)g(the)i(n)m(um)m(b)s(er)
241 4104 y(of)h(its)f(argumen)m(ts.)61 b(In)36 b(order)h(to)g
(facilitate)g(the)g(programming)f(and)g(for)h(a)g(b)s(etter)241
4217 y(readable)28 b(output)g(this)f(pac)m(k)-5 b(age)30
b(assumes)e(that)h(the)g(argumen)m(ts)f(of)h(a)g(generic)f(func-)241
4330 y(tion)34 b(ha)m(v)m(e)i(default)e(names)g(suc)m(h)h(as)g
FL(f)10 b FQ(\()p FL(x;)15 b(y)s FQ(\),)36 b FL(q)s FQ(\()p
FL(r)s(ho;)15 b(phi)p FQ(\).)55 b(A)34 b(generic)h(function)e(is)241
4443 y(declared)d(b)m(y)g(protot)m(yp)s(e)h(form)f(in)f(a)i(statemen)m
(t)241 4665 y FJ(GENERIC)p 583 4665 29 4 v 32 w(FUNCTION)d
FL(f)10 b(name)p FQ(\()p FL(ar)s(g)1471 4679 y FO(1)1510
4665 y FL(;)15 b(ar)s(g)1685 4679 y FO(2)1740 4665 y
FP(\001)g(\001)g(\001)h FL(ar)s(g)1996 4679 y FF(n)2043
4665 y FQ(\);)241 4888 y(where)k FL(f)10 b(name)20 b
FQ(is)g(the)h(\(new\))h(name)f(of)g(a)g(function)f(and)g
FL(ar)s(g)2314 4902 y FF(i)2363 4888 y FQ(are)i(sym)m(b)s(ols)d(for)i
(its)f(for-)1667 5187 y(313)p eop
%%Page: 314 314
314 313 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(314)p FM(CHAPTER)21 b(36.)58 b(DFP)-8 b(AR)g(T:)22
b(DERIV)-10 b(A)i(TIVES)20 b(OF)g(GENERIC)g(FUNCTIONS)664
555 y FQ(mal)27 b(argumen)m(ts.)40 b(In)27 b(the)g(follo)m(wing)f
FL(f)10 b(name)27 b FQ(is)f(referred)h(to)h(as)g(\\generic)g
(function",)664 668 y FL(ar)s(g)799 682 y FO(1)839 668
y FL(;)15 b(ar)s(g)1014 682 y FO(2)1069 668 y FP(\001)g(\001)g(\001)h
FL(ar)s(g)1325 682 y FF(n)1394 668 y FQ(as)23 b(\\generic)f(argumen)m
(ts")h(and)f FL(f)10 b(name)p FQ(\()p FL(ar)s(g)2942
682 y FO(1)2981 668 y FL(;)15 b(ar)s(g)3156 682 y FO(2)3211
668 y FP(\001)g(\001)g(\001)h FL(ar)s(g)3467 682 y FF(n)3514
668 y FQ(\))23 b(as)664 781 y(\\generic)31 b(form".)664
944 y(Examples:)795 1174 y FH(generic_function)37 b(f\(x,y\);)795
1273 y(generic_function)g(g\(z\);)664 1516 y FQ(After)31
b(this)e(declaration)h(REDUCE)g(kno)m(ws)h(that)801 1749
y FP(\017)45 b FQ(there)34 b(are)g(formal)f(partial)g(deriv)-5
b(ativ)m(es)2334 1709 y FF(@)t(f)p 2334 1728 83 4 v 2335
1781 a(@)t(x)2426 1749 y FQ(,)2496 1709 y FF(@)t(f)p
2496 1728 V 2498 1781 a(@)t(y)2632 1709 y(@)t(g)p 2632
1728 78 4 v 2632 1781 a(@)t(z)2752 1749 y FQ(and)34 b(higher)e(ones,)j
(while)891 1862 y(partial)g(deriv)-5 b(ativ)m(es)35 b(of)h
FL(f)46 b FQ(and)35 b FL(g)k FQ(with)c(resp)s(ect)h(to)g(other)h(v)-5
b(ariables)34 b(are)i(as-)891 1975 y(sumed)30 b(as)g(zero,)801
2161 y FP(\017)45 b FQ(expressions)29 b(of)i(the)g(t)m(yp)s(e)f
FL(f)10 b FQ(\(\),)31 b FL(g)s FQ(\(\))g(are)g(abbreviations)e(for)h
FL(f)10 b FQ(\()p FL(x;)15 b(y)s FQ(\),)31 b FL(g)s FQ(\()p
FL(z)t FQ(\),)801 2347 y FP(\017)45 b FQ(expressions)29
b(of)i(the)g(t)m(yp)s(e)f FL(f)10 b FQ(\()p FL(u;)15
b(v)s FQ(\))31 b(are)g(abbreviations)e(for)891 2460 y
FL(sub)p FQ(\()p FL(x)d FQ(=)f FL(u;)15 b(y)28 b FQ(=)d
FL(v)s(;)15 b(f)10 b FQ(\()p FL(x;)15 b(y)s FQ(\)\))801
2658 y FP(\017)45 b FQ(a)31 b(total)g(deriv)-5 b(ativ)m(e)1611
2613 y FF(d)-12 b(f)7 b FO(\()p FF(u;v)r FO(\))p 1611
2637 218 4 v 1676 2689 a FF(dw)1869 2658 y FQ(has)31
b(to)g(b)s(e)e(computed)i(as)2807 2617 y FF(@)t(f)p 2807
2637 83 4 v 2808 2689 a(@)t(x)2915 2622 y(du)p 2909 2637
89 4 v 2909 2689 a(dw)3028 2658 y FQ(+)3129 2617 y FF(@)t(f)p
3129 2637 83 4 v 3131 2689 a(@)t(y)3239 2622 y(dv)p 3231
2637 89 4 v 3231 2689 a(dw)664 2838 y @beginspecial @setspecial
@endspecial 155 x FE(36.2)136 b(P)l(artial)46 b(Deriv)-7
b(ativ)l(es)664 3246 y FQ(The)30 b(op)s(erator)h FJ(DFP)e
FQ(represen)m(ts)h(a)h(partial)e(deriv)-5 b(ativ)m(e:)664
3469 y FJ(DFP)p FQ(\()p FL(expr)m(;)15 b(d)-15 b(f)10
b(ar)s(g)1283 3483 y FO(1)1322 3469 y FL(;)15 b(d)-15
b(f)10 b(ar)s(g)1584 3483 y FO(2)1639 3469 y FP(\001)15
b(\001)g(\001)h FL(d)-15 b(f)10 b(ar)s(g)1982 3483 y
FF(n)2028 3469 y FQ(\);)664 3691 y(where)32 b FL(expr)j
FQ(is)c(a)h(function)f(expression)g(and)h FL(d)-15 b(f)10
b(ar)s(g)2514 3705 y FF(i)2574 3691 y FQ(are)32 b(the)g(di\013eren)m
(tiation)f(v)-5 b(ari-)664 3804 y(ables.)40 b(Examples:)839
4034 y FH(dfp\(f\(\),{x,y}\);)664 4287 y FQ(means)974
4247 y FF(@)1015 4223 y Fy(2)1049 4247 y FF(f)p 952 4266
160 4 v 952 4319 a(@)t(x@)t(y)1152 4287 y FQ(and)839
4504 y FH(dfp\(f\(u,v\),{x,y)o(}\))o(;)664 4733 y FQ(stands)30
b(for)1118 4692 y FF(@)1159 4669 y Fy(2)1194 4692 y FF(f)p
1097 4712 V 1097 4764 a(@)t(x@)t(y)1266 4733 y FQ(\()p
FL(u;)15 b(v)s FQ(\).)42 b(F)-8 b(or)31 b(compatibilit)m(y)e(with)g
(the)i FL(D)s(F)43 b FQ(op)s(erator)30 b(the)h(di\013eren-)664
4846 y(tiation)i(v)-5 b(ariables)32 b(need)i(not)f(b)s(e)g(en)m(tered)h
(in)e(list)h(form;)h(instead)f(the)h(syn)m(tax)g(of)g
FJ(DF)664 4959 y FQ(can)28 b(b)s(e)f(used,)h(where)f(the)h(function)e
(expression)h(is)f(follo)m(w)m(ed)i(b)m(y)f(the)h(di\013eren)m(tiation)
p eop
%%Page: 315 315
315 314 bop 241 299 a @beginspecial @setspecial @endspecial
FM(36.2.)72 b(P)-8 b(AR)g(TIAL)31 b(DERIV)-10 b(A)i(TIVES)1530
b FQ(315)241 555 y(v)-5 b(ariables,)44 b(ev)m(en)m(tually)f(with)e(rep)
s(etition)g(n)m(um)m(b)s(ers.)76 b(Suc)m(h)42 b(forms)g(are)h(in)m
(ternally)241 668 y(con)m(v)m(erted)32 b(to)f(the)f(ab)s(o)m(v)m(e)i
(form)e(with)f(a)i(list)e(as)h(second)h(parameter.)241
831 y(The)h(expression)f FL(expr)k FQ(can)e(b)s(e)f(a)h(generic)g
(function)e(with)h(or)g(without)g(argumen)m(ts,)241 944
y(or)27 b(an)h(arithmetic)f(expression)f(built)g(from)h(generic)h
(functions)e(and)h(other)h(algebraic)241 1057 y(parts.)58
b(In)36 b(the)h(second)f(case)h(the)g(standard)f(di\013eren)m(tiation)f
(rules)g(are)i(applied)d(in)241 1170 y(order)c(to)h(reduce)f(eac)m(h)h
(deriv)-5 b(ativ)m(e)30 b(expressions)f(to)i(a)g(minimal)d(form.)241
1332 y(When)22 b(the)h(switc)m(h)f FJ(NAT)g FQ(is)g(on)g(partial)g
(deriv)-5 b(ativ)m(es)22 b(of)h(generic)g(functions)e(are)i(prin)m(ted)
241 1454 y(in)k(standard)h(index)f(notation,)j(that)f(is)e
FL(f)1683 1468 y FF(xy)1793 1454 y FQ(for)1961 1414 y
FF(@)2002 1390 y Fy(2)2037 1414 y FF(f)p 1940 1433 160
4 v 1940 1486 a(@)t(x@)t(y)2138 1454 y FQ(and)h FL(f)2358
1468 y FF(xy)2438 1454 y FQ(\()p FL(u;)15 b(v)s FQ(\))30
b(for)2846 1414 y FF(@)2887 1390 y Fy(2)2922 1414 y FF(f)p
2825 1433 V 2825 1486 a(@)t(x@)t(y)2994 1454 y FQ(\()p
FL(u;)15 b(v)s FQ(\).)241 1567 y(Therefore)27 b(single)f(c)m(haracters)
i(should)e(b)s(e)g(used)h(for)g(the)g(argumen)m(ts)h(whenev)m(er)f(p)s
(os-)241 1680 y(sible.)39 b(Examples:)328 2011 y FH(generic_function)e
(f\(x,y\);)328 2110 y(generic_function)g(g\(y\);)328
2210 y(dfp\(f\(\),x,2\);)328 2409 y(F)372 2509 y(XX)328
2708 y(dfp\(f\(\)*g\(\),x,2\))o(;)328 2907 y(F)87 b(*G\(\))372
3007 y(XX)328 3206 y(dfp\(f\(\)*g\(\),x,y\))o(;)328 3405
y(F)g(*G\(\))42 b(+)h(F)g(*G)372 3505 y(XY)347 b(X)87
b(Y)241 3849 y FQ(The)42 b(di\013erence)g(b)s(et)m(w)m(een)i(partial)e
(and)g(total)i(deriv)-5 b(ativ)m(es)42 b(is)g(illustrated)f(b)m(y)h
(the)241 3962 y(follo)m(wing)29 b(example:)328 4192 y
FH(generic_function)37 b(h\(x\);)328 4292 y(dfp\(f\(x,h\(x\)\)*g\()o
(h\()o(x\)\))o(,x)o(\);)328 4491 y(F)43 b(\(X,H\(X\)\)*G\(H\(X\)\))372
4591 y(X)328 4790 y(df\(f\(x,h\(x\)\)*g\(h)o(\(x)o(\)\),)o(x\))o(;)p
eop
%%Page: 316 316
316 315 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(316)p FM(CHAPTER)21 b(36.)58 b(DFP)-8 b(AR)g(T:)22
b(DERIV)-10 b(A)i(TIVES)20 b(OF)g(GENERIC)g(FUNCTIONS)751
555 y FH(F)44 b(\(X,H\(X\)\)*G\(H\(X\))o(\))37 b(+)44
b(F)f(\(X,H\(X\)\)*H)c(\(X\)*G\(H\(X\)\))795 655 y(X)871
b(Y)436 b(X)795 854 y(+)43 b(G)g(\(H\(X\)\)*H)e(\(X\)*F\(X,H\(X\)\))926
954 y(Y)348 b(X)664 1193 y FQ(Normally)29 b(partial)h(di\013eren)m
(tials)e(are)j(assumed)f(as)g(non-comm)m(utativ)m(e)751
1419 y FH(dfp\(f\(\),x,y\)-dfp\()o(f\()o(\),y)o(,x)o(\);)751
1618 y(F)131 b(-)43 b(F)795 1718 y(XY)173 b(YX)664 1957
y FQ(Ho)m(w)m(ev)m(er,)40 b(a)d(generic)f(function)f(can)i(b)s(e)f
(declared)f(to)i(ha)m(v)m(e)h(globally)d(in)m(terc)m(hange-)664
2070 y(able)e(partial)f(deriv)-5 b(ativ)m(es)33 b(using)e(the)j
(declaration)e FJ(DFP)p 2633 2070 29 4 v 34 w(COMMUTE)f
FQ(whic)m(h)h(tak)m(es)j(the)664 2182 y(name)41 b(of)h(a)f(generic)g
(function)f(or)h(a)g(generic)g(function)f(form)h(as)g(argumen)m(t.)73
b(F)-8 b(or)664 2295 y(suc)m(h)26 b(a)g(function)f(di\013eren)m
(tiation)f(v)-5 b(ariables)25 b(are)h(rearranged)g(corresp)s(onding)e
(to)j(the)664 2408 y(sequence)k(of)f(the)h(generic)f(v)-5
b(ariables.)751 2634 y FH(generic_function)37 b(q\(x,y\);)751
2734 y(dfp_commute)i(q\(x,y\);)751 2833 y(dfp\(q\(\),{x,y,y}\))e(+)43
b(dfp\(q\(\),{y,x,y}\))37 b(+)44 b(dfp\(q\(\),{y,y,x})o(\);)751
3033 y(3*Q)882 3132 y(XYY)664 3371 y FQ(If)30 b(only)f(a)i(part)f(of)h
(the)f(deriv)-5 b(ativ)m(es)30 b(comm)m(ute,)h(this)f(has)g(to)h(b)s(e)
e(declared)h(using)f(the)664 3484 y(standard)36 b(REDUCE)h(rule)e(mec)m
(hanism.)60 b(Please)37 b(note)g(that)h(then)e(the)h(deriv)-5
b(ativ)m(e)664 3597 y(v)g(ariables)29 b(m)m(ust)h(b)s(e)g(written)g(as)
g(list.)664 3730 y @beginspecial @setspecial @endspecial
199 x FE(36.3)136 b(Substitutions)664 4182 y FQ(When)37
b(a)g(generic)f(form)g(or)h(a)g FJ(DFP)f FQ(expression)f(tak)m(es)j
(part)f(in)e(a)i(substitution)e(the)664 4294 y(follo)m(wing)29
b(steps)h(are)h(p)s(erformed:)664 4379 y @beginspecial
@setspecial @endspecial 775 4507 a(1.)46 b(The)35 b(substitutions)d
(are)j(p)s(erformed)e(for)i(the)g(argumen)m(ts.)54 b(If)34
b(the)h(argumen)m(t)891 4620 y(list)h(is)h(empt)m(y)g(the)h
(substitution)d(is)h(applied)f(to)j(the)g(generic)f(argumen)m(ts)h(of)
891 4733 y(the)46 b(function;)51 b(if)44 b(these)i(c)m(hange,)k(the)45
b(resulting)e(forms)h(are)i(used)e(as)h(new)891 4846
y(actual)34 b(argumen)m(ts.)50 b(If)32 b(the)i(generic)f(function)f
(itself)g(is)g(not)i(a\013ected)h(b)m(y)e(the)891 4959
y(substitution,)c(the)h(pro)s(cess)g(stops)h(here.)p
eop
%%Page: 317 317
317 316 bop 241 299 a @beginspecial @setspecial @endspecial
FM(36.3.)72 b(SUBSTITUTIONS)1839 b FQ(317)241 464 y @beginspecial
@setspecial @endspecial 352 555 a(2.)46 b(If)26 b(the)g(function)f
(name)h(or)g(the)g(generic)g(function)f(form)g(o)s(ccurs)h(as)g(a)h
(left)f(hand)468 668 y(side)32 b(in)h(the)g(substitution)f(list,)h(it)g
(is)f(replaced)h(b)m(y)h(the)f(corresp)s(onding)f(righ)m(t)468
781 y(hand)d(side.)241 818 y @beginspecial @setspecial
@endspecial 352 969 a(3.)46 b(The)27 b(new)f(form)h(is)f(partially)f
(di\013eren)m(tiated)i(according)g(to)g(the)h(list)d(of)j(partial)468
1082 y(deriv)-5 b(ativ)m(e)30 b(v)-5 b(ariables.)241
1119 y @beginspecial @setspecial @endspecial 352 1269
a(4.)46 b(The)32 b(\(ev)m(en)m(tually)h(mo)s(di\014ed\))d(actual)j
(parameters)g(are)g(substituted)e(in)m(to)h(the)468 1382
y(form)41 b(for)g(their)g(corresp)s(onding)e(generic)i(v)-5
b(ariables.)73 b(This)39 b(substitution)g(is)468 1495
y(done)30 b(b)m(y)g(name.)241 1719 y(Examples:)328 1925
y FH(generic_function)37 b(f\(x,y\);)328 2025 y(sub\(y=10,f\(\)\);)328
2224 y(F\(X,10\))328 2423 y(sub\(y=10,dfp\(f\(\))o(,x)o(,2\))o(\);)328
2722 y(F)87 b(\(X,10\))372 2822 y(XX)328 3021 y(sub\(y=10,dfp\(f\(y)o
(,y)o(\),x)o(,2)o(\)\);)328 3220 y(F)g(\(10,10\))372
3320 y(XX)328 3519 y(sub\(f=x**3*y**3,)o(df)o(p\(f)o(\(\))o(,x,)o(2\))o
(\);)546 3718 y(3)328 3818 y(6*X*Y)328 4017 y(generic_function)37
b(ff\(y,z\);)328 4117 y(sub\(f=ff,f\(a,b\)\))o(;)328
4316 y(FF\(B,Z\))p eop
%%Page: 318 318
318 317 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(318)p FM(CHAPTER)21 b(36.)58 b(DFP)-8 b(AR)g(T:)22
b(DERIV)-10 b(A)i(TIVES)20 b(OF)g(GENERIC)g(FUNCTIONS)p
eop
%%Page: 319 319
319 318 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(37)241 1693 y FT(DUMMY:)77 b(Canonical)g(form)g(of)241
1942 y(expressions)f(with)h(dumm)-6 b(y)241 2191 y(v)-13
b(ariables)1523 2664 y Fx(Alain)26 b(Dresse)1246 2755
y(Univ)n(ersit)n(\023)-36 b(e)25 b(Libre)h(de)g(Bruxelles)1131
2847 y(Boulev)l(ard)g(du)f(T)-6 b(riomphe,)25 b(CP)i(210/01)1204
2938 y(B{1050)h(BR)n(UXELLES,)d(Belgium)1298 3059 y(e{mail:)35
b(adresse@ulb.ac.b)r(e)241 3303 y FQ(An)30 b(expression)f(of)h(the)h(t)
m(yp)s(e)1620 3366 y FF(n)1581 3391 y FB(X)1577 3572
y FF(a)p FO(=1)1720 3472 y FL(f)10 b FQ(\()p FL(a)p FQ(\))241
3706 y(for)30 b(an)m(y)h FL(n)e FQ(is)h(simply)e(written)h(as)1649
3819 y FL(f)10 b FQ(\()p FL(a)p FQ(\))241 3986 y(and)30
b FL(a)g FQ(is)f(a)i FD(dummy)g FQ(index.)40 b(If)30
b(the)g(previous)f(expression)g(is)h(written)f(as)1624
4140 y FF(n)1586 4165 y FB(X)1585 4349 y FF(b)p FO(=1)1721
4246 y FL(f)10 b FQ(\()p FL(b)p FQ(\))241 4520 y FL(b)25
b FQ(is)f(also)h(a)g(dumm)m(y)f(index)f(and,)j(ob)m(viously)e(w)m(e)h
(should)e(b)s(e)h(able)h(to)h(get)g(the)f(equalit)m(y)1402
4725 y FL(f)10 b FQ(\()p FL(a)p FQ(\))21 b FP(\000)f
FL(f)10 b FQ(\()p FL(b)p FQ(\);)30 b FP(!)25 b FQ(0)241
4929 y(T)-8 b(o)31 b(declare)f(dumm)m(y)f(v)-5 b(ariables,)29
b(t)m(w)m(o)j(declarations)e(are)h(a)m(v)-5 b(ailable:)1667
5187 y(319)p eop
%%Page: 320 320
320 319 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(320)139 b FM(CHAPTER)30 b(37.)72 b(DUMMY:)32 b(EXPRESSIONS)c(WITH)j
(DUMMY)g(V)-10 b(ARS)795 555 y FQ(i.)263 b FH(dummy_base)40
b(<idp>;)891 702 y FQ(where)30 b FJ(idp)g FQ(is)f(the)i(name)f(of)h(an)
m(y)f(unassigned)f(iden)m(ti\014er.)770 870 y(ii.)262
b FH(dummy_names)39 b(<d>,<dp>,<dpp>)f(....;)664 1077
y FQ(The)e(\014rst)f(declares)h FJ(idp1,)p FP(\001)15
b(\001)g(\001)p FJ(,)47 b(idpn)35 b FQ(as)i(dumm)m(y)e(v)-5
b(ariables)35 b FD(i.e.)i FQ(all)e(v)-5 b(ariables)35
b(of)664 1176 y(the)41 b(form)f(\\)p FJ(idxxx)p FQ(")f(where)h
FJ(xxx)g FQ(is)f(a)i(n)m(um)m(b)s(er)e(will)f(b)s(e)h(dumm)m(y)g(v)-5
b(ariables,)42 b(suc)m(h)664 1276 y(as)e FJ(id1,)47 b(id2,)g(...)94
b(,)48 b(id23)p FQ(.)68 b(The)39 b(second)h(giv)m(es)g(sp)s(ecial)f
(names)g(for)h(dumm)m(y)664 1375 y(v)-5 b(ariables.)40
b(All)29 b(other)h(argumen)m(ts)h(are)g(assumed)e(to)i(b)s(e)f
FJ(free)p FQ(.)664 1475 y(An)g(example:)882 1681 y FH(dummy_base)40
b(dv;)i(==>)g(dv)1318 1880 y(\045)h(dummy)f(indices)e(are)j(dv1,)f
(dv2,)g(dv3,)f(...)882 2079 y(dummy_names)e(i,j,k;)i(==>)i(t)1362
2279 y(\045)g(dummy)e(names)h(are)g(i,j,k.)664 2584 y
FQ(When)30 b(this)g(is)f(done,)h(an)h(expression)e(lik)m(e)882
2790 y FH(op\(dv1\)*sin\(dv2\))o(*ab)o(s\()o(x\)*)o(op)o(\(i\))o(^3)o
(*o)o(p\(d)o(v2)o(\)$)664 3009 y FQ(is)44 b(allo)m(w)m(ed.)83
b(Notice)45 b(that,)k(dumm)m(y)44 b(indices)e(ma)m(y)j(not)g(b)s(e)f
(rep)s(eated)h(\(it)f(is)g(not)664 3122 y(limited)31
b(to)j(tensor)f(calculus\))f(or)i(that)f(they)h(b)s(e)e(rep)s(eated)i
(man)m(y)f(times)g(inside)e(the)664 3235 y(expression.)664
3385 y(By)d(default)f(all)f(op)s(erators)i(with)e(dumm)m(y)h(argumen)m
(ts)g(are)h(assumed)f(to)h(b)s(e)f FD(c)-5 b(ommu-)664
3484 y(tative)27 b FQ(and)f(without)g(symmetry)h(prop)s(erties.)38
b(This)25 b(can)i(b)s(e)f(v)-5 b(aried)26 b(b)m(y)g(declarations)664
3584 y FJ(NONCOM)p FQ(,)19 b FJ(SYMMETRIC)f FQ(and)h
FJ(ANTISYMMETRIC)e FQ(ma)m(y)k(b)s(e)f(used)f(on)h(the)h(op)s(erators.)
37 b(They)664 3683 y(can)31 b(also)f(b)s(e)g(declared)g(an)m(ticomm)m
(utativ)m(e.)882 3889 y FH(anticom)41 b(ao1,)h(ao2;)664
4095 y FQ(More)25 b(complex)g(symmetries)e(can)i(b)s(e)f(handled)f
(with)g FJ(SYMTREE)p FQ(.)g(The)h(corresp)s(onding)664
4195 y(declaration)30 b(for)g(the)h(Riemann)e(tensor)h(is)882
4401 y FH(symtree)41 b(\(r,)h({!+,)g({!-,)g(1,)h(2},)f({!-,)g(3,)h
(4}}\);)664 4620 y FQ(The)21 b(sym)m(b)s(ols)f(!*,)j(!+)e(and)g(!-)g
(at)h(the)g(b)s(eginning)c(of)j(eac)m(h)i(list)c(mean)j(that)f(the)h
(op)s(erator)664 4733 y(has)39 b(no)h(symmetry)-8 b(,)42
b(is)d(symmetric)f(and)h(is)g(an)m(tisymmetric)g(with)f(resp)s(ect)h
(to)i(the)664 4846 y(indices)34 b(inside)f(the)j(list.)55
b(Notice)37 b(that)f(the)g(indices)e(are)i(not)g(designated)f(b)m(y)h
(their)664 4959 y(names)f(but)f(merely)h(b)m(y)f(their)g(natural)g
(order)h(of)g(app)s(earance.)54 b(1)36 b(means)f(the)g(\014rst)p
eop
%%Page: 321 321
321 320 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(321)241 555 y(written)33 b(argumen)m(t)h(of)g
FJ(r)p FQ(,)g(2)h(its)e(second)h(argumen)m(t)g FD(etc.)50
b FQ(In)33 b(the)h(example)g(ab)s(o)m(v)m(e)h(r)241 668
y(is)30 b(symmetric)h(with)g(resp)s(ect)g(to)h(in)m(terc)m(hange)h(of)e
(the)h(pairs)e(of)i(indices)e(1,2)i(and)f(3,4)241 781
y(resp)s(ectiv)m(ely)-8 b(.)p eop
%%Page: 322 322
322 321 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(322)139 b FM(CHAPTER)30 b(37.)72 b(DUMMY:)32 b(EXPRESSIONS)c(WITH)j
(DUMMY)g(V)-10 b(ARS)p eop
%%Page: 323 323
323 322 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(38)241 1693 y FT(EDS:)77 b(Exterior)f(di\013eren)-6
b(tial)241 1942 y(systems)1497 2424 y Fx(Da)n(vid)25
b(Hartley)1154 2515 y(Ph)n(ysics)h(and)f(Mathematical)i(Ph)n(ysics)1030
2607 y(Univ)n(ersit)n(y)d(of)j(Adelaide)f(SA)e(5005,)k(Australia)1031
2698 y(e-mail:)34 b(DHartley@ph)n(ysics.adelaide.edu.au)241
2931 y @beginspecial @setspecial @endspecial 185 x FE(38.1)135
b(In)l(tro)t(duction)241 3368 y FQ(Exterior)27 b(di\013eren)m(tial)f
(systems)i(giv)m(e)g(a)g(geometrical)h(framew)m(ork)e(for)h(partial)e
(di\013er-)241 3481 y(en)m(tial)g(equations)h(and)f(more)h(general)g
(di\013eren)m(tial)f(geometric)i(problems.)38 b(The)26
b(geo-)241 3594 y(metrical)31 b(form)m(ulation)h(has)g(sev)m(eral)g
(adv)-5 b(an)m(tages)34 b(stemming)e(from)g(its)f(co)s(ordinate-)241
3707 y(indep)s(endence,)39 b(including)d(sup)s(erior)h(treatmen)m(t)k
(of)e(nonlinear)e(and)i(global)f(prob-)241 3820 y(lems.)53
b FJ(EDS)34 b FQ(pro)m(vides)g(a)h(n)m(um)m(b)s(er)f(of)h(to)s(ols)f
(for)h(setting)g(up)f(and)g(manipulating)e(ex-)241 3933
y(terior)g(di\013eren)m(tial)e(systems)j(and)e(implemen)m(ts)g(man)m(y)
h(features)h(of)f(the)h(theory)-8 b(.)47 b(Its)241 4046
y(main)25 b(strengths)h(are)h(the)g(abilit)m(y)e(to)i(use)f
(anholonomic)g(or)g(mo)m(ving)g(frames)g(and)g(the)241
4159 y(care)31 b(tak)m(en)g(with)e(nonlinear)g(problems.)241
4321 y(The)h(pac)m(k)-5 b(age)32 b(is)d(loaded)h(b)m(y)h(t)m(yping)120
b FJ(load)47 b(eds;)241 4484 y FQ(Reading)28 b(the)h(full)d(do)s(cumen)
m(tation,)j(whic)m(h)e(comes)j(with)d(this)g(pac)m(k)-5
b(age,)31 b(is)d(strongly)241 4597 y(recommended.)54
b(The)35 b(test)h(\014le)e(eds.tst,)j(whic)m(h)d(is)g(also)h(in)f(the)h
(pac)m(k)-5 b(age,)39 b(pro)m(vides)241 4710 y(three)30
b(inspiring)d(examples)j(on)g(the)h(sub)5 b(ject.)241
4823 y(EDS)28 b(uses)f(E.)h(Sc)m(hr)s(\177)-48 b(ufer's)27
b(EX)m(CALC)h(pac)m(k)-5 b(age)30 b(for)e(the)g(underlying)d(exterior)j
(calcu-)241 4936 y(lus)h(op)s(erations.)1667 5187 y(323)p
eop
%%Page: 324 324
324 323 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(324)252 b FM(CHAPTER)29 b(38.)72 b(EDS:)31 b(EXTERIOR)e
(DIFFERENTIAL)h(SYSTEMS)664 464 y @beginspecial @setspecial
@endspecial 91 x FE(38.2)136 b(Data)46 b(Structures)e(and)h(Concepts)
664 668 y @beginspecial @setspecial @endspecial 143 x
FR(38.2.1)113 b(EDS)664 1033 y FQ(A)31 b(simple)f FP(h)p
FD(EDS)11 b FP(i)p FQ(,)31 b(or)g(exterior)g(di\013eren)m(tial)f
(system,)i(is)e(a)i(triple)d FJ(\(S,)p FQ(\012)p FJ(,M\))p
FQ(,)g(where)664 1146 y FD(M)40 b FQ(is)g(a)h FD(c)-5
b(ofr)g(aming)p FQ(,)46 b FD(S)40 b FQ(is)g(a)h(system)g(on)g
FD(M)p FQ(,)f(and)g(\012)h(is)e(an)i(indep)s(endence)e(condi-)664
1259 y(tion.)g(Exterior)25 b(di\013eren)m(tial)e(equations)i(without)g
(indep)s(endence)e(condition)h(are)i(not)664 1371 y(treated)34
b(b)m(y)e FJ(EDS)p FQ(.)g(\012)g(should)f(b)s(e)h(either)g(a)h(decomp)s
(osable)f FP(h)p FD(p-form)7 b FP(i)34 b FQ(or)e(a)h
FP(h)p FD(system)7 b FP(i)664 1484 y FQ(of)31 b(1-forms)f(on)g
FD(M)p FQ(.)664 1597 y(More)c(generally)f(an)h FP(h)p
FD(EDS)11 b FP(i)25 b FQ(is)f(a)i(list)e(of)i(simple)e
FP(h)p FD(EDS)11 b FP(i)25 b FQ(ob)5 b(jects)26 b(where)f(the)h(v)-5
b(arious)664 1710 y(coframings)30 b(are)h(all)e(disjoin)m(t.)664
1823 y(The)39 b(solutions)g(of)h FD(\(S,)p FQ(\012)p
FD(,M\))f FQ(are)h(in)m(tegral)f(manifolds,)h(or)g(immersions)e(on)h
(whic)m(h)664 1936 y FD(S)d FQ(v)-5 b(anishes)34 b(and)h(the)h(rank)f
(of)g(\012)g(is)g(preserv)m(ed.)56 b(Solutions)34 b(at)i(a)g(single)e
(p)s(oin)m(t)h(are)664 2049 y(describ)s(ed)28 b(b)m(y)j(in)m(tegral)f
(elemen)m(ts.)664 2194 y @beginspecial @setspecial @endspecial
148 x FR(38.2.2)113 b(Coframing)664 2564 y FQ(Within)29
b(the)i(con)m(text)i(of)e FJ(EDS)p FQ(,)f(a)i FD(c)-5
b(ofr)g(aming)32 b FQ(means)f(a)g(real)g(\014nite-dimensional)c(dif-)
664 2676 y(feren)m(tiable)34 b(manifold)f(with)g(a)i(giv)m(en)f(global)
g(cobasis.)53 b(The)34 b(information)f(ab)s(out)i(a)664
2789 y(coframing)23 b(required)f(b)m(y)h FJ(EDS)g FQ(is)f(k)m(ept)j(in)
d(a)i FP(h)p FD(c)-5 b(ofr)g(aming)8 b FP(i)26 b FQ(ob)5
b(ject.)39 b(The)23 b(cobasis)g(is)g(the)664 2902 y(iden)m(tifying)j
(elemen)m(t)i(of)g(an)g FJ(EDS)p FQ(.)f(In)g(addition)f(to)j(the)f
(cobasis,)g(there)g(can)h(b)s(e)e(giv)m(en)664 3015 y
FD(c)-5 b(o)g(or)g(dinates,)34 b(structur)-5 b(e)30 b(e)-5
b(quations)29 b FQ(and)e FD(r)-5 b(estrictions)p FQ(.)41
b(In)27 b(addition)f(to)i(the)g(cobasis,)664 3128 y FD(c)-5
b(o)g(or)g(dinates,)39 b(structur)-5 b(e)36 b(e)-5 b(quations)34
b FQ(and)f FD(r)-5 b(estrictions)35 b FQ(can)e(b)s(e)g(giv)m(en.)49
b(The)32 b(co)s(ordi-)664 3241 y(nates)k(ma)m(y)f(b)s(e)f(an)h
(incomplete)f(or)h(o)m(v)m(ercomplete)i(set.)54 b(The)35
b(structure)f(equations)664 3354 y(express)k(the)h(exterior)f(deriv)-5
b(ativ)m(e)38 b(of)g(the)h(co)s(ordinates)f(and)g(cobasis)g(elemen)m
(ts)h(as)664 3467 y(needed.)h(All)27 b(co)s(ordinate)h(di\013eren)m
(tials)f(m)m(ust)h(b)s(e)g(expressed)g(in)f(terms)i(of)f(the)h(giv)m
(en)664 3580 y(cobasis,)h(but)g(not)h(all)e(cobasis)h(deriv)-5
b(ativ)m(es)30 b(need)g(b)s(e)f(kno)m(wn.)41 b(The)29
b(restrictions)h(are)664 3693 y(a)h(set)g(of)f(inequalities)e
(describing)g(p)s(oin)m(t)i(sets)g(not)h(in)e(the)i(manifold.)664
3806 y(Please)38 b(note)h(that)f(the)g FP(h)p FD(c)-5
b(ofr)g(aming)8 b FP(i)41 b FQ(ob)5 b(ject)39 b(is)e(b)m(y)g(no)h
(means)g(a)g(full)e(description)664 3919 y(of)f(a)h(di\013eren)m
(tiable)d(manifold.)52 b(Ho)m(w)m(ev)m(er,)39 b(the)c
FP(h)p FD(c)-5 b(ofr)g(aming)8 b FP(i)37 b FQ(ob)5 b(ject)36
b(carries)f(su\016-)664 4031 y(cien)m(t)27 b(information)d(ab)s(out)i
(the)g(underlying)d(manifold)h(to)i(allo)m(w)g(a)g(range)h(of)f
(exterior)664 4144 y(systems)31 b(calculations)e(to)i(b)s(e)f(carried)f
(out.)664 4289 y @beginspecial @setspecial @endspecial
149 x FR(38.2.3)113 b(Systems)37 b(and)h(bac)m(kground)h(coframing)664
4659 y FQ(The)25 b(lab)s(el)f FP(h)p FD(system)7 b FP(i)26
b FQ(refers)f(to)h(a)g(list)e FP(f)p FL(<)p FD(p-form)29
b(expr)p FL(>;)15 b(:)g(:)g(:)r FP(g)25 b FQ(of)h(di\013eren)m(tial)d
(forms.)664 4772 y(If)43 b(an)g FJ(EDS)f FQ(op)s(erator)h(also)g
(accepts)h(a)g FP(h)p FD(system)7 b FP(i)44 b FQ(as)f(argumen)m(t,)k
(then)c(an)m(y)g(extra)664 4885 y(information)29 b(whic)m(h)g(is)g
(required)g(is)g(tak)m(en)j(from)e(the)g(bac)m(kground)g(coframing.)p
eop
%%Page: 325 325
325 324 bop 241 299 a @beginspecial @setspecial @endspecial
FM(38.2.)72 b(D)m(A)-8 b(T)g(A)32 b(STR)m(UCTURES)d(AND)i(CONCEPTS)905
b FQ(325)241 555 y(It)37 b(is)g(p)s(ossible)d(to)k(activ)-5
b(ate)39 b(the)f(rules)e(and)g(orderings)g(of)i(a)f FJ(COFRAMING)e
FQ(op)s(erator)241 668 y(globally)-8 b(,)38 b(b)m(y)f(making)g(it)g
(the)g FD(b)-5 b(ackgr)g(ound)40 b(c)-5 b(ofr)g(aming)p
FQ(.)64 b(All)35 b(subsequen)m(t)i FJ(EXCALC)241 781
y FQ(op)s(erations)f(will)f(b)s(e)i(go)m(v)m(erned)h(b)m(y)f(those)h
(rules.)60 b(Op)s(erations)36 b(on)h FP(h)p FD(EDS)11
b FP(i)38 b FQ(ob)5 b(jects)241 894 y(are)31 b(una\013ected,)g(since)e
(their)h(coframings)g(are)g(still)f(activ)-5 b(ated)31
b(lo)s(cally)-8 b(.)241 1039 y @beginspecial @setspecial
@endspecial 148 x FR(38.2.4)112 b(In)m(tegral)37 b(elemen)m(ts)241
1409 y FQ(An)20 b FP(h)p FD(inte)-5 b(gr)g(al)34 b(element)9
b FP(i)21 b FQ(of)g(an)g(exterior)f(system)h(\()p FL(S;)15
b FQ(\012)p FL(;)g(M)10 b FQ(\))22 b(is)d(a)i(subspace)f
FL(P)39 b FP(\032)25 b FL(T)3092 1423 y FF(p)3131 1409
y FL(M)241 1522 y FQ(of)37 b(the)h(tangen)m(t)h(space)f(at)g(some)g(p)s
(oin)m(t)f FL(p)g FP(2)f FL(M)10 b FQ(.)62 b(This)36
b(in)m(tegral)h(elemen)m(t)h(can)g(b)s(e)241 1634 y(represen)m(ted)45
b(b)m(y)g(its)g(annihilator)d FL(P)1572 1601 y Fu(?)1681
1634 y FP(\032)50 b FL(T)1868 1601 y Fu(\003)1855 1657
y FF(p)1907 1634 y FL(M)10 b FQ(,)49 b(comprising)44
b(those)h(1-forms)h(at)241 1747 y FL(p)40 b FQ(whic)m(h)g(annihilate)f
(ev)m(ery)j(v)m(ector)h(in)c FL(P)13 b FQ(.)73 b(This)39
b(can)i(also)g(b)s(e)g(understo)s(o)s(d)e(as)i(a)241
1860 y(maximal)28 b(set)i(of)g(1-forms)g(at)g FL(p)f
FQ(suc)m(h)h(that)g FL(S)g FP(')25 b FQ(0)91 b(\(mo)s(d)30
b FL(P)2396 1827 y Fu(?)2455 1860 y FQ(\))g(and)f(the)h(rank)f(of)h
(\012)241 1973 y(is)f(preserv)m(ed)h(mo)s(dulo)f FL(P)1134
1940 y Fu(?)1193 1973 y FQ(.)241 2086 y(An)e FP(h)p FD(inte)-5
b(gr)g(al)34 b(element)9 b FP(i)27 b FQ(in)f(EDS)h(is)g(a)g
(distribution)d(of)j(1-forms)g(on)h FL(M)10 b FQ(,)28
b(sp)s(eci\014ed)d(as)241 2199 y(a)31 b FP(h)p FD(system)7
b FP(i)31 b FQ(of)g(1-forms.)241 2349 y @beginspecial
@setspecial @endspecial 143 x FR(38.2.5)112 b(Prop)s(erties)36
b(and)j(normal)d(form)241 2714 y FQ(F)-8 b(or)34 b(large)f(problems,)g
(it)f(can)i(require)e(a)h(great)i(deal)e(of)g(computation)g(to)h
(establish)241 2827 y(whether,)23 b(for)e(example,)j(a)e(system)g(is)e
(closed)i(or)f(not.)39 b(In)20 b(order)i(to)g(sa)m(v)m(e)h(recomputing)
241 2939 y(suc)m(h)30 b(prop)s(erties,)f(an)h FP(h)p
FD(EDS)11 b FP(i)30 b FQ(ob)5 b(ject)32 b(carries)e(a)g(list)f(of)i
FP(h)p FD(pr)-5 b(op)g(erties)7 b FP(i)34 b FQ(of)d(the)f(form)468
3127 y FP(fh)p FD(keywor)-5 b(d)9 b FP(i)51 b FJ(=)d
FP(h)p FD(value)7 b FP(i)p FJ(,)p FP(\001)15 b(\001)g(\001)q(g)241
3290 y FQ(where)29 b FP(h)p FD(keywor)-5 b(d)9 b FP(i)32
b FQ(is)c(one)i(of)f FJ(closed)p FQ(,)f FJ(quasilinear)p
FQ(,)f FJ(pfaffian)g FQ(or)i FJ(involutive)p FQ(,)241
3403 y(and)k FP(h)p FD(value)7 b FP(i)34 b FQ(is)e(either)h
FJ(0)g FQ(\(false\))h(or)f FJ(1)g FQ(\(true\).)51 b(These)33
b(prop)s(erties)f(are)i(suppressed)241 3516 y(when)44
b(an)h FP(h)p FD(EDS)11 b FP(i)45 b FQ(is)f(prin)m(ted,)k(unless)43
b(the)i FJ(nat)f FQ(switc)m(h)h(is)f FJ(off)p FQ(.)84
b(They)45 b(can)g(b)s(e)241 3629 y(examined)29 b(using)g(the)i
FJ(PROPERTIES)c FQ(op)s(erator.)241 3741 y(P)m(arts)34
b(of)g(the)g(theory)f(of)h(exterior)g(di\013eren)m(tial)e(systems)i
(apply)e(only)h(at)h(p)s(oin)m(ts)f(on)241 3854 y(the)41
b(underlying)d(manifold)h(where)i(the)g(system)h(is)e(in)g(some)h
(sense)h(non-singular.)241 3967 y(T)-8 b(o)29 b(ensure)g(the)g(theory)g
(applies,)f(EDS)h(automatically)f(w)m(orks)i(all)d(exterior)i(systems)
241 4080 y(\()p FL(S;)15 b FQ(\012)p FL(;)g(M)10 b FQ(\))27
b(in)m(to)g(a)g FD(normal)k(form)p FQ(.)40 b(This)25
b(means)h(that)h(the)g(Pfa\016an)f(comp)s(onen)m(t)h(of)g
FL(S)241 4193 y FQ(and)32 b(the)h(indep)s(endence)e(condition)h(\012)g
(are)h(in)f FD(solve)-5 b(d)34 b FQ(forms,)f(distinguished)d(terms)241
4306 y(from)h(the)h(1-forms)g(in)f FL(S)37 b FQ(ha)m(v)m(e)c(b)s(een)e
(eliminated)f(from)i(the)g(rest)g(of)g FL(S)37 b FQ(and)31
b(from)h(\012)241 4419 y(and)e(an)m(y)i(1-forms)f(in)f
FL(S)36 b FQ(whic)m(h)30 b(v)-5 b(anish)30 b(mo)s(dulo)g(the)h(indep)s
(endence)e(condition)h(are)241 4532 y(remo)m(v)m(ed)h(from)f(the)h
(system)f(and)g(their)f(co)s(e\016cien)m(ts)i(are)g(app)s(ended)e(as)h
(0-forms.)241 4687 y @beginspecial @setspecial @endspecial
eop
%%Page: 326 326
326 325 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(326)252 b FM(CHAPTER)29 b(38.)72 b(EDS:)31 b(EXTERIOR)e
(DIFFERENTIAL)h(SYSTEMS)664 555 y FE(38.3)136 b(The)44
b(EDS)h(P)l(ac)l(k)-7 b(age)664 808 y FQ(In)28 b(the)h(descriptions)d
(of)j(the)g(v)-5 b(arious)27 b(op)s(erators)i(w)m(e)g(de\014ne)f(the)h
(follo)m(wing)e(abbrevi-)664 921 y(ations)j(for)g(function)g
(parameters:)714 1135 y FL(E)5 b FQ(,)31 b FL(E)914 1102
y Fu(0)1324 1135 y FP(h)p FD(EDS)11 b FP(i)714 1248 y
FL(S)554 b FP(h)p FD(system)7 b FP(i)714 1361 y FL(M)j
FQ(,)31 b FL(N)383 b FP(h)p FD(c)-5 b(ofr)g(aming)8 b
FP(i)r FQ(,)31 b(or)f(a)h FP(h)p FD(system)7 b FP(i)32
b FQ(sp)s(ecifying)c(a)j FP(h)p FD(c)-5 b(ofr)g(aming)8
b FP(i)714 1473 y FL(r)569 b FP(h)p FD(inte)-5 b(ger)10
b FP(i)714 1586 y FQ(\012)544 b FP(h)p FD(p-form)7 b
FP(i)714 1699 y FL(f)565 b FP(h)p FD(map)6 b FP(i)714
1812 y FL(r)s(sx)471 b FP(h)p FD(list)33 b(of)g(ine)-5
b(qualities)7 b FP(i)714 1925 y FL(cob)488 b FP(h)p FD(list)33
b(of)g(1-form)g(variables)7 b FP(i)714 2038 y FL(cr)s(d)p
FQ(,)31 b FL(dep)p FQ(,)g FL(ind)100 b FP(h)p FD(list)33
b(of)g(0-form)g(variables)7 b FP(i)714 2151 y FL(dr)s(v)475
b FP(h)p FD(list)33 b(of)g(rules)g(for)g(exterior)g(derivatives)7
b FP(i)714 2264 y FL(pde)475 b FP(h)p FD(list)33 b(of)g(expr)-5
b(essions)34 b(or)g(e)-5 b(quations)7 b FP(i)714 2377
y FL(X)535 b FP(h)p FD(tr)-5 b(ansform)7 b FP(i)714 2490
y FL(T)557 b FP(h)p FD(table)-5 b(au)7 b FP(i)714 2603
y FL(P)552 b FP(h)p FD(inte)-5 b(gr)g(al)34 b(element)9
b FP(i)664 2764 y @beginspecial @setspecial @endspecial
127 x FR(38.3.1)113 b(Constructing)36 b(EDS)h(ob)6 b(jects)664
3112 y FQ(An)34 b(EDS)g FP(h)p FD(c)-5 b(ofr)g(aming)8
b FP(i)36 b FQ(is)d(constructed)h(using)f(the)h FJ(COFRAMING)d
FQ(op)s(erator.)52 b(In)34 b(one)664 3225 y(form)f(it)f(examines)h(the)
g(argumen)m(t)g(for)g(0-form)g(and)g(1-form)g(v)-5 b(ariables.)47
b(The)33 b(more)664 3338 y(basic)26 b(syn)m(tax)h(tak)m(es)h(the)f
FP(h)p FD(c)-5 b(ob)g(asis)7 b FP(i)29 b FQ(as)e(a)g(list)e(of)h
(1-forms,)i FP(h)p FD(c)-5 b(o)g(or)g(dinates)7 b FP(i)31
b FQ(as)c(a)g(list)e(of)664 3451 y(0-forms,)k FP(h)p
FD(r)-5 b(estrictions)7 b FP(i)30 b FQ(as)e(a)f(list)g(of)g
(inequalities)e(and)i FP(h)p FD(structur)-5 b(e)34 b(e)-5
b(quations)7 b FP(i)29 b FQ(as)f(a)664 3564 y(list)k(giving)f(the)j
(exterior)e(deriv)-5 b(ativ)m(es)33 b(of)g(the)g(co)s(ordinates)f(and)h
(cobasis)f(elemen)m(ts.)664 3677 y(All)d(argumen)m(ts)i(except)g(the)g
(cobasis)f(are)h(optional.)664 3790 y(A)21 b(simple)d
FP(h)p FD(EDS)11 b FP(i)20 b FQ(is)f(constructed)i(using)e(the)h
FJ(EDS)f FQ(op)s(erator)i(where)f(the)g FP(h)p FD(indep.)43
b(c)-5 b(ondition)7 b FP(i)664 3903 y FQ(can)49 b(b)s(e)e(either)h(a)g
(decomp)s(osable)f FP(h)p FD(p-form)7 b FP(i)50 b FQ(or)e(a)h
FP(h)p FD(system)7 b FP(i)49 b FQ(of)f(1-forms.)94 b(The)664
4016 y FP(h)p FD(c)-5 b(ofr)g(aming)8 b FP(i)41 b FQ(and)d(the)h
FP(h)p FD(pr)-5 b(op)g(erties)7 b FP(i)42 b FQ(argumen)m(ts)d(can)g(b)s
(e)f(omitted.)66 b(The)38 b FD(EDS)g FQ(is)664 4129 y(put)25
b(in)m(to)g(normal)f(form)g(b)s(efore)h(b)s(eing)f(returned.)38
b(With)24 b FJ(SET)p 2807 4129 29 4 v 34 w(COFRAMING)f
FQ(the)i(bac)m(k-)664 4241 y(ground)30 b(coframing)f(is)h(set.)664
4354 y(The)g(op)s(erator)h FJ(PDS2EDS)d FQ(enco)s(des)i(a)h(PDE)g
(system)f(in)m(to)h(an)f FP(h)p FD(EDS)11 b FP(i)30 b
FQ(ob)5 b(ject.)714 4604 y FJ(COFRAMING)p FQ(\(cob,crd,rsx,drv\))97
b FJ(COFRAMING)p FQ(\(S\))414 b FJ(EDS)p FQ(\(S,\012,M\))714
4717 y FJ(CONTACT)p FQ(\(r,M,N\))549 b FJ(PDE2EDS)p FQ(\(p)s
(de,dep,ind\))96 b FJ(SET)p 3023 4717 V 33 w(COFRAMING)p
FQ(\(M\))714 4830 y FJ(SET)p 864 4830 V 34 w(COFRAMING)p
FQ(\(E\))450 b FJ(SET)p 2056 4830 V 34 w(COFRAMING)p
FQ(\(\))p eop
%%Page: 327 327
327 326 bop 241 299 a @beginspecial @setspecial @endspecial
FM(38.3.)72 b(THE)30 b(EDS)g(P)-8 b(A)m(CKA)m(GE)1703
b FQ(327)241 555 y FN(Example:)241 761 y FH(1:)43 b(load)e(eds;)241
960 y(2:)i(pform)e({x,y,z,p,q}=0,{e)o(\(i\))o(,w)o(\(i,)o(j\))o(}=)o
(1;)241 1160 y(3:)i(indexrange)c({i,j,k}={1,2},{a)o(,b,)o(c})o(={)o
(3};)241 1359 y(4:)k(eds\({d)e(z)i(-)g(p*d)f(x)h(-)h(q*d)e(y,)h(d)g
(p^d)f(q},{d)g(x,d)g(y}\);)241 1558 y(EDS\({d)f(z)i(-)g(p*d)g(x)g(-)g
(q*d)f(y,d)h(p^d)f(q},d)g(x^d)g(y\))241 1757 y(5:)h(OMrules:=index_)o
(ex)o(pan)o(d)37 b({d)43 b(e\(i\)=>-w\(i,-j\)^e\()o(j\))o(,w)o(\(i,)o
(-j)o(\)+w)o(\(j)o(,-i)o(\)=)o(>0)o(}$)241 1957 y(6:)g
(eds\({e\(a\)},{e\(i)o(\)})o(\))38 b(where)j(OMrules;)502
2156 y(3)174 b(1)87 b(2)241 2255 y(EDS\({e)41 b(},{e)h(,e)h(}\))241
2455 y(7:)g(coframing)c(ws;)764 2554 y(3)87 b(2)173 b(1)87
b(2)392 b(1)348 b(2)87 b(2)241 2654 y(coframing\({e)38
b(,w)130 b(,e)43 b(,e)g(},{},{d)e(e)86 b(=>)h(-)43 b(e)g(^w)130
b(,)982 2754 y(1)1263 b(1)895 2853 y(2)217 b(1)87 b(2)764
2953 y(d)43 b(e)87 b(=>)42 b(e)i(^w)130 b(},{}\))1374
3053 y(1)241 3180 y @beginspecial @setspecial @endspecial
166 x FR(38.3.2)112 b(Insp)s(ecting)37 b(EDS)g(ob)6 b(jects)241
3567 y FQ(Using)53 b(these)h(op)s(erators)g(y)m(ou)g(can)g(get)h(parts)
e(of)h(y)m(our)g FP(h)p FD(EDS)11 b FP(i)53 b FQ(ob)5
b(ject.)112 b(The)241 3680 y FJ(PROPERTIES)p FQ(\(E\))31
b(op)s(erator)j(for)f(example)h(returns)e(a)i(list)e(of)i(prop)s
(erties)e(whic)m(h)g(are)241 3793 y(normally)c(not)j(prin)m(ted)e(out,)
i(unless)d(the)j FJ(NAT)e FQ(switc)m(h)h(is)g(o\013.)291
4043 y FJ(COFRAMING)p FQ(\(E\))583 b FJ(COFRAMING)p FQ(\(\))623
b FJ(COBASIS)p FQ(\(M\))291 4156 y FJ(COBASIS)p FQ(\(E\))679
b FJ(COORDINATES)p FQ(\(M\))444 b FJ(COORDINATES)p FQ(\(E\))291
4269 y FJ(STRUCTURE)p 729 4269 29 4 v 31 w(EQUATIONS)p
FQ(\(M\))99 b FJ(STRUCTURE)p 1876 4269 V 32 w(EQUATIONS)p
FQ(\(E\))e FJ(RESTRICTIONS)p FQ(\(M\))291 4382 y FJ(RESTRICTIONS)p
FQ(\(E\))439 b FJ(SYSTEM)p FQ(\(E\))705 b FJ(INDEPENDENCE)p
FQ(\(E\))291 4495 y FJ(PROPERTIES)p FQ(\(E\))535 b FJ(ONE)p
1588 4495 V 33 w(FORMS)p FQ(\(E\))576 b FJ(ONE)p 2713
4495 V 34 w(FORMS)p FQ(\(S\))291 4608 y FJ(ZERO)p 489
4608 V 33 w(FORMS)p FQ(\(E\))550 b FJ(ZERO)p 1636 4608
V 33 w(FORMS)p FQ(\(S\))241 4917 y FN(Example:)p eop
%%Page: 328 328
328 327 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(328)252 b FM(CHAPTER)29 b(38.)72 b(EDS:)31 b(EXTERIOR)e
(DIFFERENTIAL)h(SYSTEMS)664 555 y FH(8:)43 b(depend)e(u,x,y;)g(depend)g
(v,x,y;)664 754 y(9:)i(pde2eds\({df\(u,y,)o(y\))o(=df)o(\(v)o(,x\))o
(,d)o(f\(v)o(,y)o(\)=)o(y*d)o(f\()o(v,x)o(\)})o(\);)664
954 y(EDS\({d)e(u)i(-)h(u)f(*d)g(x)g(-)g(u)g(*d)g(y,)g(d)g(u)87
b(-)43 b(u)130 b(*d)43 b(x)g(-)g(u)130 b(*d)43 b(y,)1187
1053 y(x)348 b(y)392 b(x)174 b(x)43 b(x)349 b(y)43 b(x)882
1253 y(d)g(u)87 b(-)43 b(u)131 b(*d)42 b(x)h(-)h(v)f(*d)g(y,)f(d)i(v)f
(-)g(v)g(*d)g(x)g(-)g(v)g(*y*d)f(y},d)g(x^d)h(y\))1013
1352 y(y)174 b(y)43 b(x)348 b(x)566 b(x)349 b(x)664 1551
y(10:)43 b(dependencies;)664 1751 y({{u,y,x},{v,y,x}})664
1950 y(11:)g(coordinates)c(contact\(3,{x},{)o(u}\))o(;)664
2149 y({x,u,u)i(,u)130 b(,u)217 b(})926 2249 y(x)86 b(x)44
b(x)86 b(x)44 b(x)f(x)664 2448 y(12:)g(fdomain)d(u=u\(x\);)664
2647 y(13:)j(coordinates)c({d)j(u+d)h(y};)664 2847 y({x,y})664
3073 y @beginspecial @setspecial @endspecial 166 x FR(38.3.3)113
b(Manipulating)36 b(EDS)i(ob)6 b(jects)664 3461 y FQ(These)60
b(op)s(erators)g(allo)m(w)g(y)m(ou)g(to)h(manipulate)e(y)m(our)h
FP(h)p FD(EDS)11 b FP(i)60 b FQ(ob)5 b(jects.)130 b(The)664
3574 y FJ(AUGMENT)p FQ(\(E,S\))30 b(op)s(erator,)h(see)h(example)f(b)s
(elo)m(w,)f(app)s(ends)g(the)h(extra)h(forms)e(in)g(the)664
3687 y(second)39 b(argumen)m(t)h(to)g(the)g(system)f(part)g(of)g(the)h
(\014rst.)66 b(The)39 b(original)e FP(h)p FD(EDS)11 b
FP(i)40 b FQ(re-)664 3800 y(mains)31 b(unc)m(hanged.)46
b(As)32 b(another)g(example)g(b)m(y)g(using)f(the)h FJ(TRANSFORM)e
FQ(op)s(erator)j(a)664 3913 y(c)m(hange)i(of)f(the)h(cobasis)e(is)g
(made,)i(where)f(the)g(argumen)m(t)h FP(h)p FD(tr)-5
b(ansform)7 b FP(i)37 b FQ(is)c(a)h(list)f(of)664 4025
y(substitutions.)714 4276 y FJ(AUGMENT)p FQ(\(E,S\))211
b FL(M)41 b FJ(CROSS)29 b FL(N)273 b(E)36 b FJ(CROSS)29
b FL(N)314 b FJ(PULLBACK\(E,f\))714 4388 y(PULLBACK)p
FQ(\(S,f)7 b(\))190 b FJ(PULLBACK)p FQ(\(\012,f)7 b(\))164
b FJ(PULLBACK)p FQ(\(M,f)7 b(\))162 b FJ(RESTRICT)p FQ(\(E,f)7
b(\))714 4501 y FJ(RESTRICT)p FQ(\(S,f)g(\))190 b FJ(RESTRICT)p
FQ(\(\012,f)7 b(\))164 b FJ(RESTRICT)p FQ(\(M,f)7 b(\))162
b FJ(TRANSFORM)p FQ(\(M,X\))714 4614 y FJ(TRANSFORM)p
FQ(\(E,X\))98 b FJ(TRANSFORM)p FQ(\(S,X\))g FJ(TRANSFORM)p
FQ(\(\012,X\))g FJ(LIFT\(E\))664 4924 y FN(Example:)p
eop
%%Page: 329 329
329 328 bop 241 299 a @beginspecial @setspecial @endspecial
FM(38.3.)72 b(THE)30 b(EDS)g(P)-8 b(A)m(CKA)m(GE)1703
b FQ(329)241 555 y FH(\045)43 b(Non-Pfaffian)c(system)i(for)h(a)h
(Monge-Ampere)c(equation)241 754 y(14:)j(PFORM)g({x,y,z}=0$)241
954 y(15:)g(S)h(:=)g(CONTACT\(1,{x,y},)o({z})o(\);)241
1153 y(s)g(:=)g(EDS\({d)e(z)i(-)g(z)g(*d)g(x)g(-)g(z)h(*d)e(y},d)g(x^d)
h(y\))982 1253 y(x)348 b(y)241 1452 y(16:)42 b(S:=)g(AUGMENT\(S,{d)d
(z\(-x\)^d)i(z\(-y\)}\);)241 1651 y(s)i(:=)g(EDS\({d)e(z)i(-)g(z)g(*d)g
(x)g(-)g(z)h(*d)e(y,)982 1751 y(x)348 b(y)677 1950 y(d)43
b(z)g(^d)g(z)g(},d)f(x^d)h(y\))807 2050 y(x)174 b(y)241
2195 y @beginspecial @setspecial @endspecial 148 x FR(38.3.4)112
b(Analysing)37 b(and)h(T)-9 b(esting)37 b(exterior)f(systems)241
2564 y FN(Analysing)f(exterior)g(systems)241 2727 y FQ(This)43
b(section)i(in)m(tro)s(duces)f(higher)f(lev)m(el)i(op)s(erators)g(for)g
(extracting)g(information)241 2840 y(ab)s(out)26 b(exterior)h(systems.)
39 b(Man)m(y)28 b(of)e(them)h(require)e(a)i FP(h)p FD(EDS)11
b FP(i)27 b FQ(in)e(normal)h(form)g(gen-)241 2953 y(erated)32
b(in)e(p)s(ositiv)m(e)g(degree)i(as)f(input,)f(but)h(some)g(can)h(also)
f(analyse)g(a)h FP(h)p FD(system)7 b FP(i)32 b FQ(or)241
3066 y(a)f(single)e FP(h)p FD(p-form)7 b FP(i)q FQ(.)291
3316 y FJ(CARTAN)p 585 3316 29 4 v 32 w(SYSTEM)p FQ(\(E\))467
b FJ(CARTAN)p 1792 3316 V 33 w(SYSTEM)p FQ(\(S\))565
b FJ(CARTAN)p 3087 3316 V 33 w(SYSTEM)p FQ(\(\012\))291
3429 y FJ(CAUCHY)p 585 3429 V 32 w(SYSTEM)p FQ(\(E\))467
b FJ(CAUCHY)p 1792 3429 V 33 w(SYSTEM)p FQ(\(S\))565
b FJ(CAUCHY)p 3087 3429 V 33 w(SYSTEM)p FQ(\(\012\))291
3542 y FJ(CHARACTERS)p FQ(\(E\))595 b FJ(CHARACTERS)p
FQ(\(T\))679 b FJ(CHARACTERS)p FQ(\(E,P\))291 3655 y
FJ(CLOSURE)p FQ(\(E\))739 b FJ(DERIVED)p 1840 3655 V
33 w(SYSTEM)p FQ(\(E\))506 b FJ(DERIVED)p 3135 3655 V
33 w(SYSTEM)p FQ(\(S\))291 3767 y FJ(DIM)p 441 3767 V
33 w(GRASSMANN)p 906 3767 V 32 w(VARIETY)p FQ(\(E\))98
b FJ(DIM)p 1648 3767 V 34 w(GRASSMANN)p 2114 3767 V 32
w(VARIETY)p FQ(\(E,P\))g FJ(DIM)p FQ(\(M\))291 3880 y
FJ(DIM)p FQ(\(E\))931 b FJ(INVOLUTION)p FQ(\(E\))683
b FJ(LINEARISE)p FQ(\(E,P\))291 3993 y FJ(INTEGRAL)p
681 3993 V 32 w(ELEMENT)p FQ(\(E\))323 b FJ(PROLONG)p
FQ(\(E\))827 b FJ(TABLEAU)p FQ(\(E\))291 4106 y FJ(TORSION)p
FQ(\(E\))739 b FJ(GRASSMANN)p 1936 4106 V 32 w(VARIETY)p
FQ(\(E\))241 4311 y FN(T)-9 b(esting)35 b(exterior)g(systems)241
4474 y FQ(The)26 b(follo)m(wing)e(op)s(erators)j(allo)m(w)f(v)-5
b(arious)25 b(prop)s(erties)g(of)h(an)g FP(h)p FD(EDS)11
b FP(i)27 b FQ(to)g(b)s(e)e(c)m(hec)m(k)m(ed.)241 4587
y(The)35 b(result)g(is)f(either)i(a)g FN(1)g FQ(or)f(a)h
FN(0)p FQ(,)i(so)e(these)g(op)s(erators)g(can)g(b)s(e)f(used)g(in)f(b)s
(o)s(olean)241 4700 y(expressions.)73 b(Since)41 b(c)m(hec)m(king)h
(these)g(prop)s(erties)e(is)h(v)m(ery)h(time-consuming,)h(the)241
4813 y(result)35 b(of)i(the)g(\014rst)e(test)j(is)e(stored)g(on)h(the)f
FP(h)p FD(pr)-5 b(op)g(erties)7 b FP(i)41 b FQ(record)36
b(of)h(an)f FP(h)p FD(EDS)11 b FP(i)37 b FQ(to)241 4925
y(a)m(v)m(oid)22 b(re-c)m(hec)m(king.)39 b(This)19 b(memory)j(can)g(b)s
(e)f(cleared)g(using)f(the)i FJ(CLEANUP)d FQ(op)s(earator.)p
eop
%%Page: 330 330
330 329 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(330)252 b FM(CHAPTER)29 b(38.)72 b(EDS:)31 b(EXTERIOR)e
(DIFFERENTIAL)h(SYSTEMS)714 692 y FJ(CLOSED)p FQ(\(E\))194
b FJ(CLOSED)p FQ(\(S\))348 b FJ(CLOSED)p FQ(\(\012\))286
b FJ(INVOLUTIVE)p FQ(\(E\))714 805 y FJ(PFAFFIAN)p FQ(\(E\))98
b FJ(QUASILINEAR)p FQ(\(E\))f FJ(SEMILINEAR)p FQ(\(E\))h
FL(E)35 b FJ(EQUIV)29 b FL(E)3238 772 y Fu(0)664 1084
y @beginspecial @setspecial @endspecial 128 x FR(38.3.5)113
b(Switc)m(hes)664 1433 y FQ(EDS)30 b(pro)m(vides)g(sev)m(eral)g(switc)m
(hes)h(to)g(go)m(v)m(ern)g(the)g(displa)m(y)e(of)h(information)f(and)h
(en-)664 1546 y(hance)37 b(the)h(sp)s(eed)e(or)h(reliabilit)m(y)d(of)j
(the)g(calculations.)60 b(F)-8 b(or)38 b(example)e(the)h(switc)m(h)664
1659 y FJ(EDSVERBOSE)26 b FQ(if)h FJ(ON)h FQ(will)e(displa)m(y)g
(additional)h(information)f(as)j(the)f(calculation)g(pro-)664
1772 y(gresses,)j(whic)m(h)e(migh)m(t)h(generate)i(to)s(o)f(m)m(uc)m(h)
g(output)f(for)g(larger)g(problems.)664 1885 y(All)f(switc)m(hes)h(are)
h FJ(OFF)e FQ(b)m(y)i(default.)714 2048 y FJ(EDSVERBOSE)97
b(EDSDEBUG)g(EDSSLOPPY)g(EDSDISJOINT)g(RANPOS)h(GENPOS)664
2208 y @beginspecial @setspecial @endspecial 133 x FR(38.3.6)113
b(Auxilliary)34 b(functions)664 2562 y FQ(The)42 b(op)s(erators)h(of)g
(this)e(section)i(are)g(designed)e(to)i(ease)h(w)m(orking)e(with)f
(exterior)664 2675 y(forms)30 b(and)g(exterior)g(systems)g(in)g(REDUCE)
g(.)714 2925 y FJ(COORDINATES)p FQ(\(S\))685 b FJ(INVERT)p
FQ(\(X\))541 b FJ(STRUCTURE)p 3453 2925 29 4 v 31 w(EQUATIONS)p
FQ(\(X\))714 3038 y FJ(STRUCTURE)p 1152 3038 V 32 w(EQUATIONS)p
FQ(\(X,)p FL(X)1820 3005 y Fu(\000)p FO(1)1913 3038 y
FQ(\))100 b FJ(LINEAR)p 2342 3038 V 33 w(DIVISORS)p FQ(\(\012\))126
b FJ(EXFACTORS)p FQ(\(\012\))714 3151 y FJ(INDEX)p 960
3151 V 33 w(EXPAND)p FQ(\(ANY\))499 b FJ(PDE2JET)p FQ(\(p)s
(de,dep,ind\))96 b FJ(MKDEPEND)p FQ(\(list\))714 3264
y FJ(DISJOIN)p FQ(\(f,g,...\))730 b FJ(CLEANUP)p FQ(\(E\))499
b FJ(CLEANUP)p FQ(\(M\))714 3377 y FJ(REORDER)p FQ(\(E\))866
b FJ(REORDER)p FQ(\(M\))664 3538 y @beginspecial @setspecial
@endspecial 127 x FR(38.3.7)113 b(Exp)s(erimen)m(tal)35
b(F)-9 b(unctions)664 3887 y FQ(The)30 b(follo)m(wing)f(op)s(erators)i
(are)g(exp)s(erimen)m(tal)e(facilities)f(since,)j(they)f(are)h(either)f
(al-)664 4000 y(gorithmically)c(not)i(w)m(ell-founded,)f(or)h(their)f
(implemen)m(tation)f(is)h(v)m(ery)h(unstable,)g(or)664
4112 y(they)j(ha)m(v)m(e)g(kno)m(wn)f(bugs.)714 4363
y FJ(POINCARE)p FQ(\(\012\))543 b FJ(INVARIANTS)p FQ(\(E,crd\))144
b FJ(INVARIANTS)p FQ(\(S,crd\))714 4475 y FJ(SYMBOL)p
1008 4475 V 33 w(RELATIONS)p FQ(\(E,)p FL(\031)s FQ(\))98
b FJ(SYMBOL)p 2071 4475 V 33 w(MATRIX)p FQ(\(E,)p FL(\030)t
FQ(\))g FJ(CHARACTERISTIC)p 3363 4475 V 31 w(VARIETY)p
FQ(\(E,)p FL(\030)t FQ(\))664 4800 y FN(Example:)p eop
%%Page: 331 331
331 330 bop 241 299 a @beginspecial @setspecial @endspecial
FM(38.3.)72 b(THE)30 b(EDS)g(P)-8 b(A)m(CKA)m(GE)1703
b FQ(331)241 555 y FH(17:)42 b(\045)h(Riemann)e(invariants)e(for)k
(Euler-Poisson-Da)o(rb)o(ou)o(x)38 b(equation.)241 655
y(17:)k(\045)h(Set)g(up)f(the)h(EDS)f(for)g(the)h(equation,)d(and)i
(examine)f(tableau.)241 754 y(17:)h(depend)f(u,x,y;)g(EPD)i
(:=PDE2EDS{DF\(u,)o(x,y)o(\)=)o(-\(d)o(f\()o(u,)o(x\)+)o(df)o(\(u,)o
(y\))o(\)/\()o(x+)o(y\))o(}$)241 954 y(19:)f(tableau)f(EPD;)241
1153 y([d)i(u)304 b(0)131 b(])241 1253 y([)f(x)43 b(x)349
b(])241 1352 y([)610 b(])241 1452 y([)87 b(0)217 b(d)43
b(u)131 b(])241 1551 y([)479 b(y)43 b(y])241 1751 y(20:)f(\045)h
(1-form)e(dx)i(is)g(characteristic:)37 b(construct)j(characteristic)e
(EDS.)241 1850 y(20:)k(xvars)g({};)g(C)h(:=)g(cartan_system)38
b(select\(~f^d)h(x=0,system)h(closure)g(epd\)$)241 2050
y(22:)i(S)h(:=)g(augment\(eds\(syst)o(em)37 b(EPD,d)42
b(y\),C\)$)241 2249 y(23:)g(\045)h(Compute)e(derived)g(flag)241
2348 y(23:)h(while)g(not)g(equiv\(S,S1)d(:=)k(derived_system)38
b(S\))43 b(do)f(S)i(:=)e(S1;)241 2548 y(24:)g(\045)h(Stabilised.)c
(Find)j(the)h(Riemann)d(invariants.)241 2647 y(24:)i(invariants\(S,rev)
o(ers)o(e)37 b(coordinates)i(S\);)241 2847 y({x,)284
3046 y(u)44 b(*x)e(+)h(u)h(*y)e(+)i(u,)328 3145 y(x)261
b(x)328 3345 y(-)43 b(u)130 b(*x)43 b(-)g(u)131 b(*y)42
b(-)i(2*u)e(})459 3444 y(x)h(x)261 b(x)43 b(x)348 b(x)p
eop
%%Page: 332 332
332 331 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(332)252 b FM(CHAPTER)29 b(38.)72 b(EDS:)31 b(EXTERIOR)e
(DIFFERENTIAL)h(SYSTEMS)p eop
%%Page: 333 333
333 332 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(39)241 1693 y FT(EX)-6 b(CALC:)74 b(A)j(di\013eren)-6
b(tial)241 1942 y(geometry)77 b(pac)-6 b(k)-13 b(age)1426
2424 y Fx(Eb)r(erhard)26 b(Sc)n(hr)r(\177)-41 b(ufer)1444
2515 y(GMD,)26 b(Institut)f(I1)1503 2607 y(P)n(ostfac)n(h)i(1316)1180
2698 y(53757)h(St.)34 b(Augustin,)25 b(GERMANY)1297 2819
y(e{mail:)35 b(sc)n(hruefer@gmd.de)241 3063 y FN(EX)m(CALC)25
b FQ(is)h(designed)g(for)h(easy)g(use)g(b)m(y)f(all)g(who)g(are)i
(familiar)c(with)i(the)h(calculus)241 3176 y(of)42 b(Mo)s(dern)f
(Di\013eren)m(tial)h(Geometry)-8 b(.)77 b(Its)42 b(syn)m(tax)g(is)f(k)m
(ept)i(as)f(close)h(as)f(p)s(ossible)241 3289 y(to)35
b(standard)f(textb)s(o)s(ok)h(notations.)54 b(Therefore,)36
b(no)f(great)h(exp)s(erience)e(in)f(writing)241 3402
y(computer)40 b(algebra)f(programs)h(is)f(required.)67
b(It)40 b(is)f(almost)h(p)s(ossible)d(to)k(input)d(to)241
3515 y(the)31 b(computer)h(the)g(same)g(as)f(what)h(w)m(ould)e(ha)m(v)m
(e)j(b)s(een)d(written)h(do)m(wn)g(for)g(a)h(hand-)241
3628 y(calculation.)40 b(F)-8 b(or)31 b(example,)f(the)h(statemen)m(t)
1243 3859 y FH(f*x^y)42 b(+)h(u)g(_|)g(\(y^z^x\))241
4103 y FQ(w)m(ould)21 b(b)s(e)h(recognized)h(b)m(y)g(the)g(program)f
(as)h(a)g(form)m(ula)f(in)m(v)m(olving)f(exterior)i(pro)s(ducts)241
4216 y(and)g(an)h(inner)f(pro)s(duct.)37 b(The)24 b(program)g(is)f
(curren)m(tly)g(able)h(to)g(handle)f(scalar-v)-5 b(alued)241
4329 y(exterior)33 b(forms,)g(v)m(ectors)h(and)f(op)s(erations)f(b)s
(et)m(w)m(een)i(them,)f(as)h(w)m(ell)e(as)h(non-scalar)241
4441 y(v)-5 b(alued)42 b(forms)h(\(indexed)f(forms\).)79
b(With)42 b(this,)k(it)d(should)e(b)s(e)h(an)i(ideal)e(to)s(ol)h(for)
241 4554 y(studying)32 b(di\013eren)m(tial)g(equations,)j(doing)e
(calculations)g(in)g(general)h(relativit)m(y)f(and)241
4667 y(\014eld)d(theories,)i(or)f(doing)g(suc)m(h)g(simple)f(things)g
(as)i(calculating)f(the)h(Laplacian)e(of)i(a)241 4780
y(tensor)f(\014eld)e(for)i(an)f(arbitrary)g(giv)m(en)h(frame.)42
b(With)30 b(the)h(increasing)f(p)s(opularit)m(y)e(of)241
4893 y(this)e(calculus,)h(this)f(program)i(should)d(ha)m(v)m(e)k(an)e
(application)f(in)g(almost)h(an)m(y)h(\014eld)e(of)1667
5187 y(333)p eop
%%Page: 334 334
334 333 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(334)463 b FM(CHAPTER)30 b(39.)72 b(EX)m(CALC:)30 b(DIFFERENTIAL)h
(GEOMETR)-8 b(Y)664 555 y FQ(ph)m(ysics)29 b(and)h(mathematics.)664
704 y @beginspecial @setspecial @endspecial 182 x FE(39.1)136
b(Declarations)664 1139 y FQ(Geometrical)46 b(ob)5 b(jects)46
b(lik)m(e)f(exterior)g(forms)f(or)i(v)m(ectors)g(are)g(in)m(tro)s
(duced)e(to)i(the)664 1252 y(system)38 b(b)m(y)f(declaration)g
(commands.)62 b(The)37 b(declarations)g(can)h(app)s(ear)f(an)m(ywhere)
664 1364 y(in)32 b(a)i(program,)h(but)d(m)m(ust,)j(of)e(course,)i(b)s
(e)e(made)g(prior)f(to)j(the)e(use)g(of)h(the)g(ob)5
b(ject.)664 1477 y(Ev)m(erything)30 b(that)i(has)f(no)g(declaration)f
(is)g(treated)i(as)f(a)h(constan)m(t;)g(therefore)g(zero-)664
1590 y(forms)e(m)m(ust)g(also)h(b)s(e)e(declared.)664
1753 y(An)h(exterior)h(form)e(is)h(in)m(tro)s(duced)f(b)m(y)876
1916 y FN(PF)m(ORM)i FL(<)p FD(de)-5 b(clar)g(ation)1796
1930 y FO(1)1838 1916 y FL(>)p FQ(,)30 b FL(<)p FD(de)-5
b(clar)g(ation)2463 1930 y FO(2)2506 1916 y FL(>)p FQ(,)30
b(.)15 b(.)h(.)f(;)664 2078 y(where)664 2317 y FL(<)p
FD(de)-5 b(clar)g(ation)p FL(>)33 b FQ(::=)d FL(<)p FD(name)p
FL(>)h FP(j)f FL(<)p FD(list)j(of)g(names)p FL(>)p FQ(=)p
FL(<)p FD(numb)-5 b(er)p FL(>)31 b FP(j)f FL(<)p FD(identi\014er)p
FL(>)g FP(j)664 2430 y FL(<)p FD(expr)-5 b(ession)p FL(>)664
2542 y(<)p FD(name)p FL(>)31 b FQ(::=)f FL(<)p FD(identi\014er)p
FL(>)g FP(j)h FL(<)p FD(identi\014er)p FL(>)p FQ(\()p
FL(<)p FD(ar)-5 b(guments)p FL(>)p FQ(\))664 2781 y(F)d(or)31
b(example)882 3005 y FH(pform)42 b(u=k,v=4,f=0,w=d)o(im-)o(1;)664
3244 y FQ(declares)32 b FJ(U)f FQ(to)i(b)s(e)e(an)g(exterior)h(form)g
(of)f(degree)i FJ(K)p FQ(,)f FJ(V)f FQ(to)i(b)s(e)e(a)h(form)f(of)h
(degree)g(4,)h FJ(F)664 3357 y FQ(to)e(b)s(e)f(a)h(form)f(of)g(degree)h
(0)g(\(a)g(function\),)f(and)g FJ(W)g FQ(to)h(b)s(e)e(a)i(form)f(of)h
(degree)g FJ(DIM)p FQ(-1.)664 3519 y(The)f(declaration)f(of)h(v)m
(ectors)i(is)d(similar.)37 b(The)30 b(command)g FJ(TVECTOR)d
FQ(tak)m(es)32 b(a)e(list)f(of)664 3632 y(names.)876
3795 y FN(TVECTOR)g FL(<)p FD(name)1716 3809 y FO(1)1756
3795 y FL(>)p FQ(,)h FL(<)p FD(name)2166 3809 y FO(2)2206
3795 y FL(>)p FQ(,)h(.)15 b(.)g(.)h(;)664 3958 y(F)-8
b(or)28 b(example,)g(to)g(declare)g FJ(X)f FQ(as)g(a)h(v)m(ector)h(and)
e FJ(COMM)f FQ(as)i(a)g(v)m(ector)h(with)d(t)m(w)m(o)j(indices,)664
4071 y(one)i(w)m(ould)e(sa)m(y)882 4295 y FH(tvector)41
b(x,comm\(a,b\);)664 4534 y FQ(The)f(exterior)g(degree)h(of)g(a)g(sym)m
(b)s(ol)e(or)h(a)h(general)f(expression)f(can)i(b)s(e)f(obtained)664
4647 y(with)29 b(the)i(function)876 4809 y FN(EXDEGREE)f
FL(<)p FD(expr)-5 b(ession)p FL(>)p FQ(;)664 4959 y(Example:)p
eop
%%Page: 335 335
335 334 bop 241 299 a @beginspecial @setspecial @endspecial
FM(39.2.)72 b(EXTERIOR)30 b(MUL)-8 b(TIPLICA)g(TION)1254
b FQ(335)459 555 y FH(exdegree\(u)39 b(+)k(3*chris\(k,-k\)\);)459
754 y(1)241 891 y @beginspecial @setspecial @endspecial
200 x FE(39.2)135 b(Exterior)47 b(Multiplication)241
1330 y FQ(Exterior)31 b(m)m(ultiplication)d(b)s(et)m(w)m(een)k
(exterior)f(forms)g(is)f(carried)h(out)g(with)f(the)i(nary)241
1430 y(in\014x)21 b(op)s(erator)i(^)g(\(w)m(edge\).)40
b(F)-8 b(actors)24 b(are)f(ordered)f(according)h(to)h(the)f(usual)e
(ordering)241 1529 y(in)29 b(REDUCE)h(using)f(the)i(comm)m(utation)g
(rule)e(for)h(exterior)g(pro)s(ducts.)459 1735 y FH(pform)41
b(u=1,v=1,w=k;)459 1935 y(u^v;)459 2134 y(U^V)459 2333
y(v^u;)459 2532 y(-)i(U^V)459 2732 y(u^u;)459 2931 y(0)459
3130 y(w^u^v;)720 3329 y(K)459 3429 y(\()g(-)g(1\))g(*U^V^W)459
3628 y(\(3*u-a*w\)^\(w+5*)o(v\)^)o(u;)459 3827 y(A*\(5*U^V^W)c(-)k
(U^W^W\))241 4047 y FQ(It)30 b(is)g(p)s(ossible)e(to)j(declare)f(the)h
(dimension)c(of)k(the)f(underlying)e(space)j(b)m(y)453
4209 y FN(SP)-9 b(A)m(CEDIM)30 b FL(<)p FD(numb)-5 b(er)p
FL(>)31 b FP(j)f FL(<)p FD(identi\014er)p FL(>)p FQ(;)241
4372 y(If)g(an)g(exterior)g(pro)s(duct)f(has)h(a)h(degree)g(higher)e
(than)h(the)g(dimension)e(of)i(the)h(space,)241 4485
y(it)f(is)f(replaced)h(b)m(y)g(0:)241 4640 y @beginspecial
@setspecial @endspecial eop
%%Page: 336 336
336 335 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(336)463 b FM(CHAPTER)30 b(39.)72 b(EX)m(CALC:)30 b(DIFFERENTIAL)h
(GEOMETR)-8 b(Y)664 555 y FE(39.3)136 b(P)l(artial)46
b(Di\013eren)l(tiation)664 808 y FQ(P)m(artial)40 b(di\013eren)m
(tiation)g(is)f(denoted)i(b)m(y)f(the)h(op)s(erator)g
FJ(@)p FQ(.)70 b(Its)41 b(capabilit)m(y)e(is)h(the)664
921 y(same)31 b(as)g(the)f(REDUCE)g FJ(DF)g FQ(op)s(erator.)664
939 y @beginspecial @setspecial @endspecial 145 x FN(Example)k(6)882
1314 y FH(@\(sin)42 b(x,x\);)882 1514 y(COS\(X\))882
1713 y(@\(f,x\);)882 1912 y(0)664 2156 y FQ(An)f(iden)m(ti\014er)e(can)
i(b)s(e)f(declared)g(to)i(b)s(e)e(a)h(function)e(of)i(certain)g(v)-5
b(ariables.)71 b(This)664 2269 y(is)39 b(done)g(with)f(the)i(command)f
FJ(FDOMAIN)p FQ(.)f(The)h(follo)m(wing)f(w)m(ould)h(tell)f(the)i
(partial)664 2382 y(di\013eren)m(tiation)f(op)s(erator)h(that)g
FJ(F)f FQ(is)g(a)h(function)f(of)g(the)h(v)-5 b(ariables)39
b FJ(X)g FQ(and)g FJ(Y)h FQ(and)664 2495 y(that)31 b
FJ(H)f FQ(is)g(a)g(function)f(of)i FJ(X)p FQ(.)882 2726
y FH(fdomain)41 b(f=f\(x,y\),h=h\(x\);)664 2970 y FQ(Applying)28
b FJ(@)i FQ(to)h FJ(F)f FQ(and)g FJ(H)g FQ(w)m(ould)f(result)h(in)882
3201 y FH(@\(x*f,x\);)882 3400 y(F)43 b(+)g(X*@)86 b(F)1187
3500 y(X)882 3699 y(@\(h,y\);)882 3898 y(0)664 4142 y
FQ(The)36 b(partial)f(deriv)-5 b(ativ)m(e)36 b(sym)m(b)s(ol)f(can)i
(also)f(b)s(e)g(an)g(op)s(erator)h(with)e(a)i(single)e(argu-)664
4255 y(men)m(t.)41 b(It)31 b(then)f(represen)m(ts)g(a)h(natural)e(base)
i(elemen)m(t)g(of)f(a)h(tangen)m(t)h(v)m(ector.)664 4410
y @beginspecial @setspecial @endspecial 181 x FE(39.4)136
b(Exterior)46 b(Di\013eren)l(tiation)664 4831 y FQ(Exterior)37
b(di\013eren)m(tiation)f(of)h(exterior)g(forms)g(is)f(carried)h(out)g
(b)m(y)g(the)g(op)s(erator)h FJ(d)p FQ(.)664 4930 y(Pro)s(ducts)30
b(are)g(normally)f(di\013eren)m(tiated)h(out,)p eop
%%Page: 337 337
337 336 bop 241 299 a @beginspecial @setspecial @endspecial
FM(39.5.)72 b(INNER)31 b(PR)m(ODUCT)1800 b FQ(337)459
555 y FH(pform)41 b(x=0,y=k,z=m;)459 754 y(d\(x)h(*)h(y\);)459
954 y(X*d)f(Y)h(+)g(d)h(X^Y)241 1173 y FQ(This)26 b(expansion)g(can)i
(b)s(e)f(suppressed)f(b)m(y)h(the)h(command)g FJ(NOXPND)46
b(D)p FQ(.)27 b(Expansion)f(is)241 1286 y(p)s(erformed)j(again)h(when)f
(the)i(command)f FJ(XPND)47 b(D)30 b FQ(is)f(executed.)241
1449 y(If)37 b(an)h(argumen)m(t)g(of)f(an)h(implicitly)c(de\014ned)i
(function)h(has)g(further)f(dep)s(endencies)241 1561
y(the)30 b(c)m(hain)g(rule)f(will)f(b)s(e)i(applied)e
FD(e.g.)459 1792 y FH(fdomain)40 b(y=y\(z\);)459 1991
y(d)j(f;)459 2191 y(@)86 b(F*d)43 b(X)g(+)g(@)87 b(F*@)f(Y*d)42
b(Z)502 2290 y(X)436 b(Y)174 b(Z)241 2534 y FQ(Expansion)21
b(in)m(to)h(partial)g(deriv)-5 b(ativ)m(es)22 b(can)h(b)s(e)f
(inhibited)d(b)m(y)j FJ(NOXPND)46 b(@)23 b FQ(and)f(enabled)241
2647 y(again)30 b(b)m(y)g FJ(XPND)47 b(@)p FQ(.)241 2802
y @beginspecial @setspecial @endspecial 182 x FE(39.5)135
b(Inner)45 b(Pro)t(duct)241 3236 y FQ(The)c(inner)g(pro)s(duct)g(b)s
(et)m(w)m(een)i(a)f(v)m(ector)i(and)d(an)h(exterior)h(form)e(is)h
(represen)m(ted)241 3349 y(b)m(y)j(the)h(diph)m(thong)p
1006 3349 28 4 v 76 w FP(j)g FQ(\(underscore)f(or-bar\),)k(whic)m(h)44
b(is)h(the)g(notation)h(of)f(man)m(y)241 3462 y(textb)s(o)s(oks.)h(If)
31 b(the)h(exterior)g(form)g(is)f(an)h(exterior)g(pro)s(duct,)f(the)h
(inner)f(pro)s(duct)f(is)241 3575 y(carried)f(through)h(an)m(y)h
(factor.)241 3593 y @beginspecial @setspecial @endspecial
145 x FN(Example)i(7)459 3969 y FH(pform)41 b(x=0,y=k,z=m;)459
4168 y(tvector)f(u,v;)459 4367 y(u)j(_|)g(\(x*y^z\);)851
4566 y(K)459 4666 y(X*\(\()f(-)h(1\))g(*Y^U)e(_|)i(Z)g(+)h(U)f(_|)g
(Y^Z\))241 4811 y @beginspecial @setspecial @endspecial
eop
%%Page: 338 338
338 337 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(338)463 b FM(CHAPTER)30 b(39.)72 b(EX)m(CALC:)30 b(DIFFERENTIAL)h
(GEOMETR)-8 b(Y)664 555 y FE(39.6)136 b(Lie)45 b(Deriv)-7
b(ativ)l(e)664 808 y FQ(The)35 b(Lie)f(deriv)-5 b(ativ)m(e)34
b(can)i(b)s(e)e(tak)m(en)i(b)s(et)m(w)m(een)g(a)f(v)m(ector)h(and)f(an)
g(exterior)f(form)h(or)664 921 y(b)s(et)m(w)m(een)43
b(t)m(w)m(o)h(v)m(ectors.)77 b(It)42 b(is)g(represen)m(ted)g(b)m(y)g
(the)g(in\014x)f(op)s(erator)h FP(j)p 3230 921 28 4 v
75 w FQ(.)76 b(In)42 b(the)664 1034 y(case)29 b(of)e(Lie)g(di\013eren)m
(tiating,)g(an)h(exterior)f(form)g(b)m(y)g(a)h(v)m(ector,)i(the)e(Lie)f
(deriv)-5 b(ativ)m(e)27 b(is)664 1147 y(expressed)j(through)g(inner)e
(pro)s(ducts)h(and)h(exterior)g(di\013eren)m(tiations,)g
FD(i.e.)882 1372 y FH(pform)42 b(z=k;)882 1572 y(tvector)f(u;)882
1771 y(u)i(|_)g(z;)882 1970 y(U)g(_|)g(d)g(Z)g(+)h(d\(U)e(_|)h(Z\))664
2110 y @beginspecial @setspecial @endspecial 192 x FE(39.7)136
b(Ho)t(dge-*)45 b(Dualit)l(y)h(Op)t(erator)664 2554 y
FQ(The)f(Ho)s(dge-*)i(dualit)m(y)d(op)s(erator)i(maps)f(an)g(exterior)h
(form)f(of)g(degree)i FJ(K)e FQ(to)h(an)664 2667 y(exterior)40
b(form)f(of)h(degree)g FJ(N-K)p FQ(,)f(where)g FJ(N)g
FQ(is)g(the)h(dimension)d(of)j(the)f(space.)69 b(The)664
2780 y(double)35 b(application)g(of)i(the)g(op)s(erator)f(m)m(ust)h
(lead)f(bac)m(k)h(to)g(the)g(original)e(exterior)664
2893 y(form)c(up)f(to)i(a)g(factor.)44 b(The)31 b(follo)m(wing)f
(example)h(sho)m(ws)g(ho)m(w)g(the)h(factor)g(is)e(c)m(hosen)664
3006 y(here)882 3232 y FH(spacedim)40 b(n;)882 3332 y(pform)i(x=k;)882
3531 y(#)h(#)g(x;)1231 3730 y(2)1144 3830 y(\(K)86 b(+)43
b(K*N\))882 3929 y(\()g(-)g(1\))435 b(*X*SGN)664 4168
y FQ(The)36 b(indeterminate)f(SGN)h(in)f(the)h(ab)s(o)m(v)m(e)i
(example)e(denotes)g(the)h(sign)e(of)h(the)h(de-)664
4281 y(terminan)m(t)28 b(of)h(the)g(metric.)40 b(It)29
b(can)g(b)s(e)f(assigned)g(a)h(v)-5 b(alue)28 b(or)h(will)d(b)s(e)i
(automatically)664 4394 y(set)36 b(if)f(more)g(of)h(the)f(metric)g
(structure)g(is)g(sp)s(eci\014ed)f(\(via)h(COFRAME\),)h
FD(i.e.)55 b FQ(it)35 b(is)664 4507 y(then)d(set)h(to)g
FL(g)s(=)p FP(j)p FL(g)s FP(j)p FQ(,)i(where)c FL(g)36
b FQ(is)31 b(the)i(determinan)m(t)e(of)i(the)f(metric.)46
b(If)31 b(the)i(Ho)s(dge-*)664 4620 y(op)s(erator)g(app)s(ears)g(in)e
(an)i(exterior)g(pro)s(duct)f(of)h(maximal)f(degree)h(as)h(the)f
(leftmost)664 4733 y(factor,)f(the)e(Ho)s(dge-*)i(is)d(shifted)g(to)i
(the)g(righ)m(t)f(according)g(to)882 4959 y FH(pform)42
b({x,y}=k;)p eop
%%Page: 339 339
339 338 bop 241 299 a @beginspecial @setspecial @endspecial
FM(39.8.)72 b(V)-10 b(ARIA)i(TIONAL)31 b(DERIV)-10 b(A)i(TIVE)1337
b FQ(339)459 655 y FH(#)43 b(x)g(^)g(y;)807 854 y(2)720
954 y(\(K)87 b(+)43 b(K*N\))459 1053 y(\()g(-)g(1\))435
b(*X^#)42 b(Y)241 1197 y @beginspecial @setspecial @endspecial
193 x FE(39.8)135 b(V)-11 b(ariational)47 b(Deriv)-7
b(ativ)l(e)241 1642 y FQ(The)29 b(function)f FJ(VARDF)g
FQ(returns)g(as)i(its)f(v)-5 b(alue)28 b(the)i(v)-5 b(ariation)29
b(of)g(a)h(giv)m(en)g(Lagrangian)241 1755 y(n-form)f(with)g(resp)s(ect)
h(to)g(a)h(sp)s(eci\014ed)d(exterior)i(form)f(\(a)i(\014eld)e(of)h(the)
g(Lagrangian\).)241 1868 y(In)j(the)h(shared)g(v)-5 b(ariable)67
b FJ(BNDEQ!*)p FQ(,)33 b(the)h(expression)f(is)g(stored)i(that)f(has)g
(to)h(yield)241 1981 y(zero)c(if)e(in)m(tegrated)i(o)m(v)m(er)h(the)f
(b)s(oundary)-8 b(.)241 2144 y(Syn)m(tax:)453 2307 y
FN(V)c(ARDF)p FQ(\()p FL(<)p FD(L)-5 b(agr)g(angian)35
b(n-form)p FL(>)p FQ(,)p FL(<)p FD(exterior)f(form)p
FL(>)p FQ(\))241 2329 y @beginspecial @setspecial @endspecial
140 x FN(Example)f(8)328 2700 y FH(spacedim)40 b(4;)328
2899 y(pform)h(l=4,a=1,j=3;)328 3099 y(l:=-1/2*d)f(a)j(^)g(#)g(d)g(a)h
(-)f(a^#)f(j$)87 b(\045Lagrangian)39 b(of)j(the)h(e.m.)f(field)328
3298 y(vardf\(l,a\);)328 3497 y(-)h(\(#)g(J)g(+)g(d)g(#)h(d)f(A\))566
b(\045Maxwell's)39 b(equations)328 3696 y(bndeq!*;)328
3896 y(-)k('A^#)f(d)h(A)872 b(\045Equation)39 b(at)k(the)f(boundary)241
4140 y FQ(F)-8 b(or)23 b(the)g(calculation)e(of)i(the)f(conserv)m(ed)h
(curren)m(ts)g(induced)d(b)m(y)i(symmetry)g(op)s(erators)241
4253 y(\(v)m(ector)32 b(\014elds\),)e(the)g(function)f
FJ(NOETHER)g FQ(is)g(pro)m(vided.)39 b(It)31 b(has)f(the)g(syn)m(tax:)
453 4415 y FN(NOETHER)p FQ(\()p FL(<)p FD(L)-5 b(agr)g(angian)33
b(n-form)p FL(>)p FQ(,)p FL(<)p FD(\014eld)p FL(>)p FQ(,)p
FL(<)p FD(symmetry)i(gener)-5 b(ator)p FL(>)p FQ(\))241
4438 y @beginspecial @setspecial @endspecial 140 x FN(Example)33
b(9)328 4809 y FH(pform)41 b(l=4,a=1,f=2;)p eop
%%Page: 340 340
340 339 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(340)463 b FM(CHAPTER)30 b(39.)72 b(EX)m(CALC:)30 b(DIFFERENTIAL)h
(GEOMETR)-8 b(Y)751 555 y FH(spacedim)41 b(4;)751 754
y(l:=)i(-1/2*d)e(a^#d)h(a;)130 b(\045Free)41 b(Maxwell)g(field;)751
954 y(tvector)g(x\(k\);)347 b(\045An)42 b(unspecified)d(generator;)751
1153 y(noether\(l,a,x\(-k\))o(\);)751 1352 y(\()44 b(-)f(2*d\(X)e
(_|A\)^#)g(d)i(A)h(-)f(\(X)g(_|d)f(A\)^#)g(d)h(A)g(+)g(d)h(A^\(X)d(_|#)
i(d)g(A\)\)/2)1144 1452 y(K)653 b(K)915 b(K)664 1589
y @beginspecial @setspecial @endspecial 199 x FE(39.9)136
b(Handling)45 b(of)g(Indices)664 2041 y FQ(Exterior)23
b(forms)g(and)f(v)m(ectors)j(ma)m(y)f(ha)m(v)m(e)g(indices.)37
b(On)22 b(input,)h(the)h(indices)d(are)j(giv)m(en)664
2154 y(as)g(argumen)m(ts)h(of)f(the)g(ob)5 b(ject.)39
b(A)24 b(p)s(ositiv)m(e)f(argumen)m(t)h(denotes)h(a)f(sup)s(erscript)d
(and)j(a)664 2267 y(negativ)m(e)g(argumen)m(t)g(a)f(subscript.)36
b(On)23 b(output,)h(the)f(indexed)f(quan)m(tit)m(y)h(is)f(displa)m(y)m
(ed)664 2380 y(t)m(w)m(o)32 b(dimensionally)27 b(if)i
FJ(NAT)g FQ(is)h(on.)40 b(Indices)30 b(ma)m(y)h(b)s(e)e(iden)m
(ti\014ers)g(or)h(n)m(um)m(b)s(ers.)664 2397 y @beginspecial
@setspecial @endspecial 145 x FN(Example)k(10)882 2773
y FH(pform)42 b(om\(k,l\)=m,e\(k\)=)o(1;)882 2873 y(e\(k\)^e\(-l\);)926
3072 y(K)882 3172 y(E)h(^E)1056 3271 y(L)882 3470 y(om\(4,-2\);)969
3670 y(4)882 3769 y(OM)1013 3869 y(2)664 4113 y FQ(In)22
b(certain)h(cases,)j(one)d(w)m(ould)f(lik)m(e)g(to)i(inhibit)c(the)j
(summation)f(o)m(v)m(er)i(sp)s(eci\014ed)d(index)664
4226 y(names,)31 b(or)f(at)h(all.)40 b(F)-8 b(or)31 b(this)e(the)i
(command)876 4389 y FN(NOSUM)g FL(<)p FD(indexname)1798
4403 y FO(1)1838 4389 y FL(>)p FQ(,)f(.)16 b(.)f(.)h(;)664
4551 y(and)41 b(the)h(switc)m(h)f FJ(NOSUM)f FQ(are)i(a)m(v)-5
b(ailable.)74 b(The)41 b(command)h FJ(NOSUM)e FQ(has)i(the)f(e\013ect)
664 4664 y(that)32 b(summation)f(is)f(not)i(p)s(erformed)e(o)m(v)m(er)j
(those)f(indices)e(whic)m(h)g(had)h(b)s(een)g(listed.)664
4777 y(The)e(command)g FJ(RENOSUM)e FQ(enables)i(summation)f(again.)41
b(The)29 b(switc)m(h)f FJ(NOSUM)p FQ(,)g(if)h(on,)664
4890 y(inhibits)e(an)m(y)k(summation.)p eop
%%Page: 341 341
341 340 bop 241 299 a @beginspecial @setspecial @endspecial
FM(39.10.)73 b(METRIC)29 b(STR)m(UCTURES)1514 b FQ(341)241
555 y(It)28 b(is)e(p)s(ossible)f(to)k(declare)e(symmetry)h(prop)s
(erties)e(for)h(an)h(indexed)e(quan)m(tit)m(y)i(b)m(y)f(the)241
668 y(command)j FJ(INDEX)p 901 668 29 4 v 33 w(SYMMETRIES)p
FQ(.)e(A)i(protot)m(ypical)h(example)f(is)f(as)i(follo)m(ws)415
899 y FH(index_symmetries)37 b(u\(k,l,m,n\):)i(symmetric)214
b(in)43 b({k,l},{m,n})1679 999 y(antisymmetric)38 b(in)43
b({{k,l},{m,n}},)1156 1098 y(g\(k,l\),h\(k,l\):)38 b(symmetric;)241
1342 y FQ(It)31 b(declares)f(the)h(ob)5 b(ject)32 b FJ(u)e
FQ(symmetric)h(in)e(the)i(\014rst)f(t)m(w)m(o)i(and)e(last)h(t)m(w)m(o)
h(indices)d(and)241 1455 y(an)m(tisymmetric)i(with)g(resp)s(ect)h(to)h
(comm)m(utation)f(of)h(the)f(giv)m(en)g(index)f(pairs.)44
b(If)32 b(an)241 1568 y(ob)5 b(ject)27 b(is)e(completely)h(symmetric)g
(or)g(an)m(tisymmetric,)h(the)f(indices)f(need)h(not)g(to)h(b)s(e)241
1681 y(giv)m(en)j(after)h(the)g(corresp)s(onding)d(k)m(eyw)m(ord)j(as)f
(sho)m(wn)g(ab)s(o)m(v)m(e)i(for)e FJ(g)g FQ(and)g FJ(h)p
FQ(.)241 1838 y @beginspecial @setspecial @endspecial
179 x FE(39.10)136 b(Metric)45 b(Structures)241 2270
y FQ(A)29 b(metric)f(structure)g(is)g(de\014ned)g(in)f
FN(EX)m(CALC)h FQ(b)m(y)g(sp)s(ecifying)f(a)i(set)g(of)g(basis)f(one-)
241 2383 y(forms)i(\(the)g(coframe\))i(together)g(with)d(the)h(metric.)
241 2546 y(Syn)m(tax:)453 2790 y FN(COFRAME)f FL(<)p
FD(identi\014er)p FL(><)p FD(\(index)1843 2804 y FO(1)1883
2790 y FD(\))p FL(>)p FQ(=)p FL(<)p FD(expr)-5 b(ession)2537
2804 y FO(1)2578 2790 y FL(>)p FQ(,)1028 2903 y FL(<)p
FD(identi\014er)p FL(><)p FD(\(index)1843 2917 y FO(2)1883
2903 y FD(\))p FL(>)p FQ(=)p FL(<)p FD(expr)g(ession)2537
2917 y FO(2)2578 2903 y FL(>)p FQ(,)1028 3016 y(.)1028
3128 y(.)1028 3241 y(.)1028 3354 y FL(<)p FD(identi\014er)p
FL(><)p FD(\(index)1843 3368 y FF(n)1891 3354 y FD(\))p
FL(>)p FQ(=)p FL(<)p FD(expr)g(ession)2545 3368 y FF(n)2593
3354 y FL(>)1150 3467 y FN(WITH)29 b(METRIC)h FL(<)p
FD(name)p FL(>)p FQ(=)p FL(<)p FD(expr)-5 b(ession)p
FL(>)p FQ(;)241 3824 y(This)26 b(statemen)m(t)j(automatically)f(sets)g
(the)g(dimension)d(of)j(the)g(space)g(and)f(the)h(index)241
3937 y(range.)55 b(The)35 b(clause)g FJ(WITH)46 b(METRIC)34
b FQ(can)h(b)s(e)g(omitted)g(if)f(the)h(metric)g(is)f(Euclidean)241
4050 y(and)23 b(the)h(shorthand)e FJ(WITH)47 b(SIGNATURE)e
FL(<)p Fn(diagonal)g(elements)p FL(>)21 b FQ(can)j(b)s(e)f(used)g(in)
241 4163 y(the)34 b(case)h(of)g(a)f(pseudo-Euclidean)e(metric.)52
b(The)34 b(splitting)e(of)i(a)h(metric)f(structure)241
4276 y(in)c(its)i(metric)g(tensor)g(co)s(e\016cien)m(ts)h(and)e(basis)g
(one-forms)h(is)f(completely)h(arbitrary)241 4389 y(including)27
b(the)j(extremes)h(of)g(an)f(orthonormal)g(frame)g(and)g(a)h(co)s
(ordinate)f(frame.)p eop
%%Page: 342 342
342 341 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(342)463 b FM(CHAPTER)30 b(39.)72 b(EX)m(CALC:)30 b(DIFFERENTIAL)h
(GEOMETR)-8 b(Y)664 464 y @beginspecial @setspecial @endspecial
91 x FN(Example)34 b(11)708 786 y FH(coframe)40 b(e)k(r=d)e(r,)h
(e\(ph\)=r*d)d(ph)795 886 y(with)i(metric)f(g=e\(r\)*e\(r\)+e\(ph)o
(\)*e)o(\(p)o(h\))o(;)168 b(\045Polar)41 b(coframe)664
1130 y FQ(The)34 b(frame)g(dual)f(to)i(the)g(frame)f(de\014ned)f(b)m(y)
h(the)g FJ(COFRAME)f FQ(command)h(can)g(b)s(e)g(in-)664
1243 y(tro)s(duced)c(b)m(y)g FN(FRAME)g FQ(command.)876
1405 y FN(FRAME)h FL(<)p FD(identi\014er)p FL(>)p FQ(;)664
1568 y(This)g(command)h(causes)h(the)g(dual)e(prop)s(ert)m(y)h(to)h(b)s
(e)f(recognised,)h(and)f(the)g(tangen)m(t)664 1681 y(v)m(ectors)g(of)f
(the)f(co)s(ordinate)g(functions)f(are)i(replaced)f(b)m(y)g(the)h
(frame)f(basis)f(v)m(ectors.)664 1699 y @beginspecial
@setspecial @endspecial 145 x FN(Example)34 b(12)795
2075 y FH(coframe)41 b(b)i(r=d)f(r,b)g(ph=r*d)g(ph,e)g(z=d)g(z;)h
(\045Cylindrical)38 b(coframe;)795 2274 y(frame)j(x;)i(on)g(nero;)795
2473 y(x\(-k\))e(_|)i(b\(l\);)969 2672 y(R)795 2772 y(NS)173
b(:=)43 b(1)882 2872 y(R)1013 3071 y(PH)795 3170 y(NS)261
b(:=)42 b(1)882 3270 y(PH)969 3469 y(Z)795 3569 y(NS)173
b(:=)43 b(1)882 3669 y(Z)795 3868 y(x\(-k\))e(|_)i(x\(-l\);)303
b(\045The)42 b(commutator)d(of)k(the)f(dual)g(frame;)795
4167 y(NS)217 b(:=)43 b(X)87 b(/R)882 4266 y(PH)43 b(R)217
b(PH)795 4565 y(NS)g(:=)43 b(\()g(-)g(X)87 b(\)/R)f(\045i.e.)41
b(it)i(is)g(not)f(a)h(coordinate)d(base;)882 4665 y(R)j(PH)392
b(PH)p eop
%%Page: 343 343
343 342 bop 241 299 a @beginspecial @setspecial @endspecial
FM(39.11.)73 b(RIEMANNIAN)31 b(CONNECTIONS)1210 b FQ(343)241
555 y(As)27 b(a)h(con)m(v)m(enience,)h(the)f(frames)f(can)h(b)s(e)e
(displa)m(y)m(ed)g(at)i(an)m(y)g(p)s(oin)m(t)f(in)f(a)h(program)h(b)m
(y)241 668 y(the)i(command)g FJ(DISPLAYFRAME;)p FQ(.)241
831 y(The)38 b(Ho)s(dge-*)i(dualit)m(y)d(op)s(erator)i(returns)f(the)h
(explicitly)d(constructed)j(dual)e(ele-)241 944 y(men)m(t)28
b(if)e(applied)g(to)i(coframe)g(base)g(elemen)m(ts.)40
b(The)27 b(metric)h(is)e(prop)s(erly)g(tak)m(en)j(in)m(to)241
1057 y(accoun)m(t.)241 1219 y(The)e(total)i(an)m(tisymmetric)e
(Levi-Cevita)g(tensor)h FJ(EPS)f FQ(is)g(also)h(a)m(v)-5
b(ailable.)39 b(The)27 b(v)-5 b(alue)241 1332 y(of)39
b FJ(EPS)f FQ(with)g(an)g(ev)m(en)i(p)s(erm)m(utation)e(of)h(the)g
(indices)e(in)h(a)h(co)m(v)-5 b(arian)m(t)40 b(p)s(osition)d(is)241
1445 y(tak)m(en)31 b(to)g(b)s(e)f(+1.)241 1590 y @beginspecial
@setspecial @endspecial 191 x FE(39.11)136 b(Riemannian)46
b(Connections)241 2034 y FQ(The)38 b(command)g FJ(RIEMANNCONX)e
FQ(is)h(pro)m(vided)g(for)h(calculating)g(the)77 b(connection)39
b(1)241 2147 y(forms.)83 b(The)45 b(v)-5 b(alues)44 b(are)h(stored)g
(on)g(the)g(name)g(giv)m(en)g(to)g FJ(RIEMANNCONX)p FQ(.)d(This)241
2260 y(command)29 b(is)g(far)g(more)h(e\016cien)m(t)g(than)g
(calculating)f(the)h(connection)g(from)f(the)h(dif-)241
2373 y(feren)m(tial)g(of)g(the)h(basis)e(one-forms)h(and)g(using)f
(inner)g(pro)s(ducts.)241 2528 y @beginspecial @setspecial
@endspecial 181 x FE(39.12)136 b(Ordering)45 b(and)f(Structuring)241
2962 y FQ(The)27 b(ordering)g(of)h(an)g(exterior)g(form)g(or)g(v)m
(ector)h(can)g(b)s(e)e(c)m(hanged)i(b)m(y)f(the)g(command)241
3075 y FJ(FORDER)p FQ(.)34 b(In)g(an)h(expression,)h(the)f(\014rst)g
(iden)m(ti\014er)e(or)i(k)m(ernel)g(in)f(the)i(argumen)m(ts)f(of)241
3188 y FJ(FORDER)j FQ(is)h(ordered)g(ahead)i(of)f(the)g(second,)i(and)e
(so)g(on,)i(and)e(ordered)f(ahead)h(of)241 3301 y(all)30
b(not)i(app)s(earing)f(as)g(argumen)m(ts.)45 b(This)30
b(ordering)h(is)f(done)i(on)f(the)h(in)m(ternal)f(lev)m(el)241
3414 y(and)43 b(not)h(only)f(on)h(output.)81 b(The)44
b(execution)g(of)g(this)f(statemen)m(t)j(can)e(therefore)241
3526 y(ha)m(v)m(e)e(tremendous)e(e\013ects)j(on)d(computation)h(time)g
(and)f(memory)h(requiremen)m(ts.)241 3639 y FJ(REMFORDER)27
b FQ(brings)h(bac)m(k)j(standard)e(ordering)f(for)i(those)g(elemen)m
(ts)g(that)h(are)f(listed)241 3752 y(as)g(argumen)m(ts.)241
3915 y(An)h(expression)g(can)h(b)s(e)g(put)f(in)g(a)h(more)g
(structured)f(form)g(b)m(y)h(renaming)f(a)h(sub)s(ex-)241
4028 y(pression.)39 b(This)28 b(is)i(done)g(with)f(the)i(command)f
FJ(KEEP)f FQ(whic)m(h)g(has)h(the)h(syn)m(tax)453 4191
y FN(KEEP)f FL(<)p FD(name)1058 4205 y FO(1)1098 4191
y FL(>)p FQ(=)p FL(<)p FD(expr)-5 b(ession)1715 4205
y FO(1)1755 4191 y FL(>)p FQ(,)p FL(<)p FD(name)2135
4205 y FO(2)2175 4191 y FL(>)p FQ(=)p FL(<)p FD(expr)g(ession)2792
4205 y FO(2)2832 4191 y FL(>)p FQ(,)31 b(.)15 b(.)g(.)241
4353 y(The)30 b(capabilities)g(of)h FJ(KEEP)f FQ(are)h(curren)m(tly)g
(v)m(ery)g(limited.)41 b(Only)30 b(exterior)h(pro)s(ducts)241
4466 y(should)d(o)s(ccur)i(as)h(righ)m(thand)e(sides)g(in)g
FJ(KEEP)p FQ(.)241 4629 y FN(Note:)40 b FQ(This)28 b(is)i(just)f(an)h
(in)m(tro)s(duction)f(to)i(the)f(full)e(p)s(o)m(w)m(er)j(of)f
FJ(EXCALC)p FQ(.)f(The)h(reader)241 4742 y(if)f(referred)h(to)h(the)f
(full)e(do)s(cumen)m(tation.)p eop
%%Page: 344 344
344 343 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(344)463 b FM(CHAPTER)30 b(39.)72 b(EX)m(CALC:)30 b(DIFFERENTIAL)h
(GEOMETR)-8 b(Y)p eop
%%Page: 345 345
345 344 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(40)241 1693 y FT(FIDE:)76 b(Finite)h(di\013erence)241
1942 y(metho)6 b(d)78 b(for)g(partial)241 2191 y(di\013eren)-6
b(tial)75 b(equations)1503 2673 y Fx(Ric)n(hard)26 b(Lisk)l(a)852
2764 y(F)-6 b(acult)n(y)25 b(of)i(Nuclear)f(Science)f(and)h(Ph)n
(ysical)g(Engineering)1218 2856 y(T)-6 b(ec)n(hnical)26
b(Univ)n(ersit)n(y)f(of)h(Prague)989 2947 y(Breho)n(v)l(a)g(7,)g(115)h
(19)f(Prague)h(1,)f(Czec)n(h)g(Republic)1323 3068 y(e{mail:)35
b(tjerl@aci.cvut.cz)241 3312 y FQ(The)27 b(FIDE)h(pac)m(k)-5
b(age)29 b(p)s(erforms)d(automation)i(of)g(the)g(pro)s(cess)f(of)h(n)m
(umerical)e(solving)241 3425 y(partial)f(di\013eren)m(tial)h(equations)
g(systems)h(\(PDES\))g(b)m(y)g(generating)g(\014nite)f(di\013erence)241
3538 y(metho)s(ds.)50 b(In)32 b(the)i(pro)s(cess)f(one)h(can)g(\014nd)e
(sev)m(eral)i(stages)h(in)e(whic)m(h)f(computer)i(al-)241
3651 y(gebra)39 b(can)g(b)s(e)f(used)g(for)g(p)s(erforming)f(routine)h
(analytical)g(calculations,)i(namely:)241 3764 y(transforming)h
(di\013eren)m(tial)h(equations)h(in)m(to)g(di\013eren)m(t)g(co)s
(ordinate)g(systems,)k(dis-)241 3877 y(cretisation)31
b(of)h(di\013eren)m(tial)e(equations,)h(analysis)f(of)i(di\013erence)f
(sc)m(hemes)h(and)f(gen-)241 3990 y(eration)f(of)g(n)m(umerical)f
(programs.)40 b(The)29 b(FIDE)i(pac)m(k)-5 b(age)32 b(consists)e(of)g
(the)g(follo)m(wing)241 4103 y(mo)s(dules:)241 4365 y
FN(EXPRES)46 b FQ(for)30 b(transforming)f(PDES)h(in)m(to)g(an)m(y)h
(orthogonal)f(co)s(ordinate)h(system.)241 4553 y FN(I)s(IMET)44
b FQ(for)30 b(discretisation)f(of)i(PDES)f(b)m(y)g(in)m(tegro-in)m
(terp)s(olation)f(metho)s(d.)241 4740 y FN(APPR)m(O)m(X)46
b FQ(for)21 b(determining)e(the)j(order)e(of)i(appro)m(ximation)e(of)h
(di\013erence)f(sc)m(heme.)241 4928 y FN(CHARPOL)45 b
FQ(for)21 b(calculation)f(of)h(ampli\014cation)e(matrix)h(and)h(c)m
(haracteristic)h(p)s(oly-)1667 5187 y(345)p eop
%%Page: 346 346
346 345 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(346)392 b FM(CHAPTER)29 b(40.)72 b(FIDE:)31 b(FINITE)f(DIFFERENCES)h
(F)m(OR)f(PDES)891 555 y FQ(nomial)22 b(of)i(di\013erence)e(sc)m(heme,)
k(whic)m(h)c(are)i(needed)e(in)g(F)-8 b(ourier)23 b(stabilit)m(y)f
(anal-)891 668 y(ysis.)664 850 y FN(HUR)-12 b(WP)47 b
FQ(for)25 b(p)s(olynomial)d(ro)s(ots)j(lo)s(cating)f(necessary)h(in)e
(v)m(erifying)h(the)h(v)m(on)g(Neu-)891 963 y(mann)30
b(stabilit)m(y)f(condition.)664 1145 y FN(LINBAND)45
b FQ(for)39 b(generating)f(the)h(blo)s(c)m(k)f(of)h(F)m(OR)-8
b(TRAN)39 b(co)s(de,)i(whic)m(h)c(solv)m(es)i(a)891 1258
y(system)27 b(of)f(linear)e(algebraic)i(equations)g(with)f(band)f
(matrix)i(app)s(earing)e(quite)891 1371 y(often)31 b(in)e(di\013erence)
h(sc)m(hemes.)664 1616 y(F)-8 b(or)29 b(more)f(details)e(on)i(this)f
(pac)m(k)-5 b(age)30 b(are)e(giv)m(en)f(in)g(the)h(FIDE)g(do)s(cumen)m
(tation,)h(and)664 1729 y(in)f(the)h(examples.)40 b(A)28
b(\015a)m(v)m(our)i(of)f(its)f(capabilities)f(can)i(b)s(e)f(seen)h
(from)f(the)h(follo)m(wing)664 1842 y(simple)g(example.)664
2070 y FH(off)43 b(exp;)664 2269 y(factor)e(diff;)664
2468 y(on)i(rat,eqfu;)664 2667 y(\045)g(Declare)e(which)h(indexes)e
(will)i(be)h(given)e(to)i(coordinates)664 2767 y(coordinates)c(x,t)k
(into)e(j,m;)664 2966 y(\045)i(Declares)e(uniform)f(grid)i(in)h(x)g
(coordinate)664 3066 y(grid)f(uniform,x;)664 3265 y(\045)h(Declares)e
(dependencies)d(of)43 b(functions)d(on)j(coordinates)664
3365 y(dependence)d(eta\(t,x\),v\(t,x\))o(,ep)o(s\()o(t,x)o(\),)o(p\()o
(t,x)o(\);)664 3564 y(\045)j(Declares)e(p)i(as)g(known)e(function)664
3664 y(given)h(p;)664 3863 y(same)g(eta,v,p;)664 4062
y(iim)h(a,)f(eta,diff\(eta,t\)-e)o(ta)o(*di)o(ff)o(\(v,)o(x\))o(=0)o(,)
839 4162 y(v,diff\(v,t\)+eta)o(/r)o(o*d)o(if)o(f\(p)o(,x)o(\)=0)o(,)839
4261 y(eps,diff\(eps,t\))o(+e)o(ta*)o(p/)o(ro*)o(di)o(ff\()o(v,)o(x\))o
(=0;)664 4560 y(*****************)o(**)o(**)o(***)o(**)o(***)664
4660 y(*****)260 b(Program)e(*****)434 b(IIMET)42 b(Ver)g(1.1.2)664
4759 y(*****************)o(**)o(**)o(***)o(**)o(***)926
4959 y(Partial)e(Differential)f(Equations)p eop
%%Page: 347 347
347 346 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(347)502 555 y FH(=================)o(==)o(===)o(==)o(===)o
(==)o(=)241 754 y(diff\(eta,t\))39 b(-)k(diff\(v,x\)*eta)169
b(=)174 b(0)284 954 y(diff\(p,x\)*eta)241 1053 y(---------------)37
b(+)43 b(diff\(v,t\))171 b(=)j(0)502 1153 y(ro)895 1352
y(diff\(v,x\)*eta*p)241 1452 y(diff\(eps,t\))39 b(+)k(----------------)
o(-)168 b(=)174 b(0)1156 1551 y(ro)284 1850 y(Backtracking)39
b(needed)i(in)i(grid)f(optimalization)241 1950 y(0)h(interpolations)38
b(are)k(needed)f(in)i(x)g(coordinate)328 2050 y(Equation)d(for)j(eta)f
(variable)e(is)j(integrated)c(in)k(half)f(grid)g(point)328
2149 y(Equation)e(for)j(v)g(variable)d(is)j(integrated)c(in)k(half)f
(grid)g(point)328 2249 y(Equation)e(for)j(eps)f(variable)e(is)j
(integrated)c(in)k(half)f(grid)g(point)241 2348 y(0)h(interpolations)38
b(are)k(needed)f(in)i(t)g(coordinate)328 2448 y(Equation)d(for)j(eta)f
(variable)e(is)j(integrated)c(in)k(half)f(grid)g(point)328
2548 y(Equation)e(for)j(v)g(variable)d(is)j(integrated)c(in)k(half)f
(grid)g(point)328 2647 y(Equation)e(for)j(eps)f(variable)e(is)j
(integrated)c(in)k(half)f(grid)g(point)633 2847 y(Equations)e(after)h
(Discretization)d(Using)k(IIM)g(:)633 2946 y(================)o(===)o
(==)o(===)o(==)o(==)o(===)o(==)o(===)o(==)o(==)o(==)241
3145 y(\(4*\(eta\(j,m)d(+)k(1\))g(-)g(eta\(j,m\))d(-)j(eta\(j)f(+)h
(1,m\))459 3345 y(+)g(eta\(j)e(+)j(1,m)e(+)h(1\)\)*hx)e(-)i(\()415
3544 y(\(eta\(j)e(+)i(1,m)g(+)g(1\))g(+)g(eta\(j,m)e(+)i(1\)\))415
3743 y(*\(v\(j)f(+)h(1,m)f(+)h(1\))g(-)g(v\(j,m)f(+)h(1\)\))459
3942 y(+)g(\(eta\(j)e(+)i(1,m\))f(+)h(eta\(j,m\)\)*\(v\(j)38
b(+)43 b(1,m\))f(-)h(v\(j,m\)\)\))284 4142 y(*\(ht\(m)e(+)j(1\))e(+)i
(ht\(m\)\)\)/\(4*\(ht\()o(m)38 b(+)43 b(1\))f(+)i(ht\(m\)\)*hx\))126
b(=)131 b(0)241 4441 y(\(4*\(v\(j,m)40 b(+)j(1\))g(-)g(v\(j,m\))e(-)i
(v\(j)f(+)i(1,m\))d(+)j(v\(j)e(+)h(1,m)f(+)i(1\)\)*hx*ro)328
4640 y(+)f(\(\(eta\(j)e(+)i(1,m)f(+)h(1\))g(+)g(eta\(j,m)e(+)i(1\)\))
459 4839 y(*\(p\(j)e(+)i(1,m)g(+)g(1\))g(-)g(p\(j,m)e(+)j(1\)\))p
eop
%%Page: 348 348
348 347 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(348)392 b FM(CHAPTER)29 b(40.)72 b(FIDE:)31 b(FINITE)f(DIFFERENCES)h
(F)m(OR)f(PDES)926 555 y FH(+)43 b(\(eta\(j)e(+)i(1,m\))f(+)h
(eta\(j,m\)\)*\(p\(j)38 b(+)43 b(1,m\))f(-)h(p\(j,m\)\)\))708
754 y(*\(ht\(m)e(+)i(1\))g(+)g(ht\(m\)\)\)/\(4*\(ht\(m)37
b(+)43 b(1\))g(+)g(ht\(m\)\)*hx*ro\))125 b(=)131 b(0)664
1053 y(\(4*\(eps\(j,m)39 b(+)k(1\))g(-)g(eps\(j,m\))e(-)i(eps\(j)e(+)i
(1,m\))882 1253 y(+)g(eps\(j)f(+)h(1,m)f(+)h(1\)\)*hx*ro)d(+)k(\(\()969
1452 y(eta\(j)e(+)h(1,m)f(+)h(1\)*p\(j)f(+)h(1,m)f(+)h(1\))1013
1651 y(+)g(eta\(j,m)e(+)i(1\)*p\(j,m)d(+)j(1\)\))839
1850 y(*\(v\(j)e(+)i(1,m)g(+)g(1\))f(-)i(v\(j,m)d(+)i(1\)\))g(+)839
2050 y(\(eta\(j)e(+)i(1,m\)*p\(j)d(+)j(1,m\))f(+)h
(eta\(j,m\)*p\(j,m\)\))839 2249 y(*\(v\(j)e(+)i(1,m\))f(-)h
(v\(j,m\)\)\)*\(ht\(m)38 b(+)43 b(1\))g(+)g(ht\(m\)\)\)/\(4)795
2448 y(*\(ht\(m)e(+)i(1\))g(+)g(ht\(m\)\)*hx*ro\))126
b(=)k(0)664 2747 y(clear)42 b(a;)664 2946 y(clearsame;)664
3145 y(cleargiven;)p eop
%%Page: 349 349
349 348 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(41)241 1693 y FT(FPS:)77 b(Automatic)g(calculation)241
1942 y(of)g(formal)g(p)6 b(o)-6 b(w)g(er)77 b(series)1142
2424 y Fx(W)-6 b(olfram)26 b(Ko)r(epf)g(and)f(Winfried)h(Neun)826
2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1066
2819 y(e{mail:)35 b(Ko)r(epf@zib.de)27 b(and)e(Neun@zib.de)241
3058 y FQ(This)j(pac)m(k)-5 b(age)33 b(can)e(expand)f(functions)f(of)h
(certain)h(t)m(yp)s(e)f(in)m(to)h(their)f(corresp)s(onding)241
3171 y(Lauren)m(t-Puiseux)f(series)h(as)g(a)h(sum)e(of)i(terms)f(of)h
(the)f(form)1380 3274 y Fu(1)1356 3299 y FB(X)1351 3483
y FF(k)r FO(=0)1495 3380 y FL(a)1543 3395 y FF(k)1586
3380 y FQ(\()p FL(x)20 b FP(\000)g FL(x)1836 3394 y FO(0)1876
3380 y FQ(\))1911 3342 y FF(k)r(=n)p FO(+)p FF(s)241
3621 y FQ(where)25 b FL(s)g FQ(is)g(the)h(`shift)f(n)m(um)m(b)s(er',)g
FL(n)h FQ(is)e(the)i(`Puiseux)f(n)m(um)m(b)s(er',)g(and)h
FL(x)2694 3635 y FO(0)2759 3621 y FQ(is)e(the)i(`p)s(oin)m(t)241
3734 y(of)k(dev)m(elopmen)m(t'.)42 b(The)30 b(follo)m(wing)e(t)m(yp)s
(es)j(are)g(supp)s(orted:)377 3944 y FP(\017)46 b FN(functions)i(of)f
(`rational)g(t)m(yp)s(e')p FQ(,)c(whic)m(h)d(are)h(either)g(rational)f
(or)h(ha)m(v)m(e)h(a)468 4057 y(rational)30 b(deriv)-5
b(ativ)m(e)30 b(of)g(some)h(order;)377 4234 y FP(\017)46
b FN(functions)c(of)f(`h)m(yp)s(ergeometric)g(t)m(yp)s(e')35
b FQ(where)h FL(a)2412 4249 y FF(k)r FO(+)p FF(m)2572
4234 y FL(=a)2665 4249 y FF(k)2743 4234 y FQ(is)f(a)h(rational)468
4346 y(function)29 b(for)h(some)h(in)m(teger)g FL(m)p
FQ(,)f(the)h(`symmetry)f(n)m(um)m(b)s(er';)377 4523 y
FP(\017)46 b FN(functions)51 b(of)g(`exp-lik)m(e)g(t)m(yp)s(e')43
b FQ(whic)m(h)g(satisfy)g(a)i(linear)d(homogeneous)468
4636 y(di\013eren)m(tial)29 b(equation)h(with)f(constan)m(t)j(co)s
(e\016cien)m(ts.)241 4846 y FJ(FPS\(f,x,x0\))22 b FQ(tries)j(to)h
(\014nd)e(a)h(formal)g(p)s(o)m(w)m(er)g(series)g(expansion)f(for)h
FJ(f)g FQ(with)f(resp)s(ect)241 4959 y(to)35 b(the)g(v)-5
b(ariable)34 b FJ(x)g FQ(at)i(the)f(p)s(oin)m(t)f(of)h(dev)m(elopmen)m
(t)g FJ(x0)p FQ(.)53 b(It)35 b(also)g(w)m(orks)g(for)f(formal)1667
5187 y(349)p eop
%%Page: 350 350
350 349 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(350)811 b FM(CHAPTER)30 b(41.)72 b(FPS:)30 b(F)m(ORMAL)h(PO)m(WER)f
(SERIES)664 555 y FQ(Lauren)m(t)j(\(negativ)m(e)i(exp)s(onen)m(ts\))e
(and)f(Puiseux)g(series)g(\(fractional)h(exp)s(onen)m(ts\).)48
b(If)664 668 y(the)31 b(third)d(argumen)m(t)j(is)f(omitted,)g(then)g
FJ(x0:=0)f FQ(is)h(assumed.)664 818 y(Example:)40 b FJ
(FPS\(asin\(x\)^2,x\))26 b FQ(results)j(in)1056 1123
y FH(2*k)86 b(2*k)566 b(2)87 b(2)1013 1223 y(x)130 b(*2)g
(*factorial\(k\))38 b(*x)664 1322 y(infsum\(----------)o(--)o(--)o(---)
o(--)o(---)o(--)o(---)o(-,)o(k,)o(0,i)o(nf)o(ini)o(ty)o(\))1013
1422 y(factorial\(2*k)g(+)43 b(1\)*\(k)f(+)h(1\))664
1641 y FQ(If)26 b(p)s(ossible,)e(the)j(output)e(is)g(giv)m(en)h(using)f
(factorials.)39 b(In)25 b(some)i(cases,)h(the)e(use)g(of)g(the)664
1754 y(P)m(o)s(c)m(hhammer)d(sym)m(b)s(ol)f FJ(pochhammer\(a,k\))p
FQ(:=)f FL(a)p FQ(\()p FL(a)6 b FQ(+)g(1\))15 b FP(\001)g(\001)g(\001)i
FQ(\()p FL(a)6 b FQ(+)g FL(k)i FP(\000)e FQ(1\))23 b(is)f(necessary)-8
b(.)664 1917 y FJ(SimpleDE\(f,x\))22 b FQ(tries)j(to)h(\014nd)e(a)h
(homogeneous)h(linear)e(di\013eren)m(tial)g(equation)h(with)664
2030 y(p)s(olynomial)33 b(co)s(e\016cien)m(ts)j(for)f
FL(f)44 b FQ(with)34 b(resp)s(ect)h(to)h FL(x)p FQ(.)55
b(Mak)m(e)37 b(sure)d(that)i FL(y)i FQ(is)c(not)i(a)664
2143 y(used)f(v)-5 b(ariable.)56 b(The)35 b(setting)h
FJ(factor)46 b(df;)37 b FQ(is)e(recommended)h(to)g(receiv)m(e)h(a)f
(nicer)664 2255 y(output)30 b(form.)664 2405 y(Examples:)40
b FJ(SimpleDE\(asin\(x\)^2,x\))24 b FQ(then)31 b(results)e(in)1187
2611 y FH(2)664 2710 y(df\(y,x,3\)*\(x)82 b(-)44 b(1\))e(+)h
(3*df\(y,x,2\)*x)c(+)k(df\(y,x\))664 2930 y FQ(The)29
b(depth)f(for)h(the)h(searc)m(h)g(of)f(a)h(di\013eren)m(tial)d
(equation)j(for)f FJ(f)f FQ(is)h(con)m(trolled)g(b)m(y)g(the)664
3043 y(v)-5 b(ariable)39 b FJ(fps_search_depth)p FQ(;)g(higher)g(v)-5
b(alues)39 b(for)g FJ(fps_search_depth)c FQ(will)i(in-)664
3155 y(crease)31 b(the)f(c)m(hance)h(to)f(\014nd)f(the)h(solution,)e
(but)i(increases)f(the)h(complexit)m(y)g(as)g(w)m(ell.)664
3268 y(The)j(default)g(v)-5 b(alue)33 b(for)g FJ(fps_search_depth)c
FQ(is)j(5.)51 b(F)-8 b(or)34 b FJ(FPS\(sin\(x^\(1/3\)\),x\))p
FQ(,)664 3381 y(or)22 b FJ(SimpleDE\(sin\(x^\(1/3\)\),x\))15
b FD(e.g.)p FQ(,)23 b(a)g(setting)f FJ(fps_search_depth:=6)16
b FQ(is)21 b(nec-)664 3494 y(essary)-8 b(.)664 3657 y(The)31
b(output)g(of)h(the)f(FPS)h(pac)m(k)-5 b(age)33 b(can)f(b)s(e)f
(in\015uenced)e(b)m(y)i(the)h(switc)m(h)f FJ(tracefps)p
FQ(.)664 3770 y(Setting)f FJ(on)47 b(tracefps)29 b FQ(causes)h(v)-5
b(arious)30 b(prin)m(ts)f(of)h(in)m(termediate)g(results.)p
eop
%%Page: 351 351
351 350 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(42)241 1693 y FT(GENTRAN:)75 b(A)i(co)6 b(de)241 1942
y(generation)78 b(pac)-6 b(k)-13 b(age)1442 2424 y Fx(Barbara)27
b(L.)f(Gates)1620 2515 y(RAND)1237 2607 y(San)n(ta)g(Monica)g(CA)g
(90407-2138)1624 2698 y(U.S.A.)1434 2849 y(Mic)n(hael)h(C.)f(Dew)n(ar)
775 2941 y(Sc)n(ho)r(ol)g(of)h(Mathematical)f(Sciences,)h(The)f(Univ)n
(ersit)n(y)e(of)j(Bath)1315 3032 y(Bath)f(BA2)g(7A)-6
b(Y,)25 b(England)1209 3153 y(e{mail:)35 b(mcd@maths.bath.ac.uk)241
3397 y FQ(GENTRAN)f(is)f(an)g(automatic)i(co)s(de)f(GENerator)h(and)e
(TRANslator)h(whic)m(h)e(runs)241 3510 y(under)f(REDUCE.)h(It)h
(constructs)g(complete)g(n)m(umerical)e(programs)h(based)h(on)f(sets)
241 3623 y(of)43 b(algorithmic)f(sp)s(eci\014cations)h(and)f(sym)m(b)s
(olic)g(expressions.)79 b(F)-8 b(ormatted)45 b(F)m(OR-)241
3736 y(TRAN,)28 b(RA)-8 b(TF)m(OR,)28 b(P)-8 b(ASCAL)28
b(or)f(C)h(co)s(de)g(can)g(b)s(e)f(generated)i(through)e(a)h(series)f
(of)241 3849 y(in)m(teractiv)m(e)g(commands)e(or)h(under)e(the)i(con)m
(trol)h(of)f(a)g(template)h(pro)s(cessing)d(routine.)241
3962 y(Large)41 b(expressions)f(can)h(b)s(e)f(automatically)h(segmen)m
(ted)h(in)m(to)e(sub)s(expressions)e(of)241 4075 y(manageable)31
b(size,)f(and)g(a)h(sp)s(ecial)e(\014le-handling)e(mec)m(hanism)j(main)
m(tains)g(stac)m(ks)h(of)241 4188 y(op)s(en)f(I/O)i(c)m(hannels)e(to)j
(allo)m(w)d(output)h(to)i(b)s(e)d(sen)m(t)i(to)g(an)m(y)g(n)m(um)m(b)s
(er)e(of)i(\014les)e(sim)m(ul-)241 4301 y(taneously)c(and)f(to)i
(facilitate)f(recursiv)m(e)f(in)m(v)m(o)s(cation)h(of)g(the)h(whole)e
(co)s(de)h(generation)241 4413 y(pro)s(cess.)43 b(GENTRAN)31
b(pro)m(vides)f(the)i(\015exibilit)m(y)c(necessary)k(to)g(handle)e
(most)h(co)s(de)241 4526 y(generation)g(applications.)41
b(It)32 b(is)e(designed)g(to)h(w)m(ork)h(with)d(the)j(SCOPE)d(co)s(de)j
(opti-)241 4639 y(miser.)241 4802 y(GENTRAN)g(is)g(a)g(large)h(system)f
(with)f(a)i(great)h(man)m(y)e(options.)46 b(This)31 b(section)h(will)
241 4915 y(only)23 b(describ)s(e)f(the)j(F)m(OR)-8 b(TRAN)24
b(generation)h(facilities,)e(and)h(in)f(broad)g(outline)g(only)-8
b(.)1667 5187 y(351)p eop
%%Page: 352 352
352 351 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(352)142 b FM(CHAPTER)30 b(42.)72 b(GENTRAN:)31 b(A)f(CODE)g(GENERA)
-8 b(TION)31 b(P)-8 b(A)m(CKA)m(GE)664 555 y FQ(The)30
b(full)e(man)m(ual)i(is)f(a)m(v)-5 b(ailable)30 b(as)h(part)f(of)g(the)
h(REDUCE)f(do)s(cumen)m(tation.)664 710 y @beginspecial
@setspecial @endspecial 181 x FE(42.1)136 b(Simple)45
b(Use)664 1144 y FQ(A)27 b(substan)m(tial)f(subset)g(of)h(all)f
(expressions)f(and)h(statemen)m(ts)j(in)c(the)i(REDUCE)g(pro-)664
1257 y(gramming)41 b(language)h(can)h(b)s(e)e(translated)g(directly)g
(in)m(to)h(n)m(umerical)e(co)s(de.)75 b(The)664 1370
y FN(GENTRAN)30 b FQ(command)g(tak)m(es)i(a)f(REDUCE)f(expression,)f
(statemen)m(t,)j(or)f(pro)s(ce-)664 1483 y(dure)e(de\014nition,)g(and)h
(translates)g(it)g(in)m(to)g(co)s(de)h(in)e(the)h(target)i(language.)
664 1646 y FN(Syn)m(tax:)891 1883 y(GENTRAN)e FD(stmt)i
FQ([)e FN(OUT)g FD(f1,f2,.)14 b(.)g(.)47 b(,fn)30 b FQ(])p
FD(;)664 2121 y(stmt)i FQ(is)d(an)m(y)i(REDUCE)g(expression,)f
(statemen)m(t)i(\(simple,)e(comp)s(ound,)f(or)i(group\),)664
2233 y(or)24 b(pro)s(cedure)f(de\014nition)e(that)k(can)f(b)s(e)f
(translated)h(b)m(y)f(GENTRAN)h(in)m(to)g(the)g(target)664
2346 y(language.)69 b FD(stmt)41 b FQ(ma)m(y)f(con)m(tain)g(an)m(y)g(n)
m(um)m(b)s(er)e(of)i(calls)f(to)h(the)g(sp)s(ecial)e(functions)664
2459 y FN(EV)-12 b(AL)p FQ(,)22 b FN(DECLARE)p FQ(,)e(and)h
FN(LITERAL)p FQ(.)g FD(f1,f2,.)14 b(.)g(.)38 b(,fn)45
b FQ(is)20 b(an)h(optional)f(argumen)m(t)664 2572 y(list)29
b(con)m(taining)h(one)h(or)f(more)h FD(f)p FQ('s,)f(where)g(eac)m(h)i
FD(f)e FQ(is)f(one)i(of:)714 2727 y FD(an)i(atom)101
b FQ(=)f(an)30 b(output)g(\014le)714 2840 y FN(T)354
b FQ(=)100 b(the)30 b(terminal)714 2953 y FN(NIL)242
b FQ(=)100 b(the)30 b(curren)m(t)g(output)g(\014le\(s\))744
3066 y FN(ALL!*)108 b FQ(=)100 b(all)29 b(\014les)g(curren)m(tly)h(op)s
(en)f(for)h(output)1312 3179 y(b)m(y)g(GENTRAN)g(\(see)i(section)e
@beginspecial @setspecial @endspecial(42.6)r(\))664 3334
y(If)i(the)g(optional)g(part)g(of)g(the)h(command)f(is)f(not)h(giv)m
(en,)h(generated)h(co)s(de)e(is)f(simply)664 3447 y(written)h(to)i(the)
f(curren)m(t)f(output)g(\014le.)47 b(Ho)m(w)m(ev)m(er,)36
b(if)c(it)g(is)g(giv)m(en,)i(then)e(the)h(curren)m(t)664
3560 y(output)c(\014le)e(is)h(temp)s(orarily)f(o)m(v)m(erridden.)39
b(Generated)30 b(co)s(de)f(is)f(written)f(to)j(eac)m(h)g(\014le)664
3672 y(represen)m(ted)k(b)m(y)g FD(f1,f2,.)14 b(.)g(.)50
b(,fn)33 b FQ(for)h(this)f(command)h(only)-8 b(.)51 b(Files)33
b(whic)m(h)f(w)m(ere)j(op)s(en)664 3785 y(prior)e(to)j(the)f(call)f(to)
i FN(GENTRAN)e FQ(will)e(remain)i(op)s(en)g(after)h(the)g(call,)h(and)e
(\014les)664 3898 y(whic)m(h)26 b(did)g(not)i(exist)f(prior)f(to)i(the)
g(call)f(will)e(b)s(e)i(created,)i(op)s(ened,)f(written)e(to,)k(and)664
4011 y(closed.)40 b(The)27 b(output)h(stac)m(k)h(will)c(b)s(e)i
(exactly)i(the)f(same)g(b)s(oth)g(b)s(efore)f(and)g(after)i(the)664
4124 y(call.)664 4287 y FN(GENTRAN)h FQ(returns)f(the)i(name\(s\))g(of)
f(the)h(\014le\(s\))f(to)h(whic)m(h)e(co)s(de)i(w)m(as)g(written.)664
4518 y FH(1:)43 b(GENTRANLANG!*)38 b(:=)43 b('FORTRAN$)664
4717 y(2:)g(GENTRAN)664 4817 y(2:)217 b(FOR)43 b(I:=1:N)e(DO)664
4916 y(2:)392 b(V\(I\))42 b(:=)g(0$)p eop
%%Page: 353 353
353 352 bop 241 299 a @beginspecial @setspecial @endspecial
FM(42.2.)72 b(PRECISION)2082 b FQ(353)502 655 y FH(DO)43
b(25001)f(I=1,N)677 754 y(V\(I\)=0.0)241 854 y(25001)f(CONTINUE)241
1087 y @beginspecial @setspecial @endspecial 199 x FE(42.2)135
b(Precision)241 1539 y FQ(By)25 b(default)e FN(GENTRAN)h
FQ(generates)i(constan)m(ts)g(and)e(t)m(yp)s(e)h(declarations)f(in)f
(single)241 1652 y(precision)28 b(form.)40 b(If)29 b(the)h(user)e
(requires)h(double)f(precision)g(output)h(then)g(the)h(switc)m(h)241
1765 y FN(DOUBLE)g FQ(m)m(ust)g(b)s(e)g(set)h FN(ON)p
FQ(.)241 1927 y(T)-8 b(o)34 b(ensure)f(the)h(correct)g(n)m(um)m(b)s(er)
f(of)h(\015oating)f(p)s(oin)m(t)g(digits)f(are)i(generated)h(it)e(ma)m
(y)241 2040 y(b)s(e)i(necessary)h(to)h(use)e(either)h(the)g
FN(PRECISION)e FQ(or)i FN(PRINT!-PRECISION)241 2153 y
FQ(commands.)69 b(The)39 b(former)g(alters)h(the)g(n)m(um)m(b)s(er)f
(of)h(digits)e(REDUCE)i(calculates,)241 2266 y(the)28
b(latter)g(only)f(the)g(n)m(um)m(b)s(er)g(of)h(digits)e(REDUCE)i(prin)m
(ts.)38 b(Eac)m(h)28 b(tak)m(es)h(an)f(in)m(teger)241
2379 y(argumen)m(t.)69 b(It)40 b(is)f(not)h(p)s(ossible)d(to)k(set)f
(the)g(prin)m(ted)e(precision)g(higher)h(than)g(the)241
2492 y(actual)21 b(precision.)35 b(Calling)18 b FN(PRINT!-PRECISION)h
FQ(with)g(a)i(negativ)m(e)h(argumen)m(t)241 2605 y(causes)31
b(the)f(prin)m(ted)f(precision)g(to)i(rev)m(ert)g(to)g(the)f(actual)h
(precision.)241 2746 y @beginspecial @setspecial @endspecial
148 x FR(42.2.1)112 b(The)38 b(EV)-12 b(AL)36 b(F)-9
b(unction)241 3115 y FN(Syn)m(tax:)468 3332 y(EV)d(AL)30
b FD(exp)241 3549 y FN(Argumen)m(t:)468 3765 y FD(exp)23
b FQ(is)f(an)m(y)h(REDUCE)g(expression)f(or)h(statemen)m(t)h(whic)m(h,)
g(after)f(ev)-5 b(alua-)468 3878 y(tion)22 b(b)m(y)h(REDUCE,)g(results)
f(in)f(an)i(expression)f(that)h(can)g(b)s(e)g(translated)468
3991 y(b)m(y)30 b(GENTRAN)h(in)m(to)f(the)h(target)h(language.)241
4207 y(When)k FN(EV)-12 b(AL)36 b FQ(is)g(called)g(on)g(an)g
(expression)g(whic)m(h)f(is)g(to)j(b)s(e)d(translated,)j(it)e(tells)241
4320 y FN(GENTRAN)f FQ(to)h(giv)m(e)f(the)h(expression)e(to)i(REDUCE)f
(for)g(ev)-5 b(aluation)35 b(\014rst,)h(and)241 4433
y(then)30 b(to)h(translate)f(the)h(result)e(of)i(that)g(ev)-5
b(aluation.)241 4660 y FH(f;)372 4859 y(2)241 4959 y(2*X)86
b(-)43 b(5*X)f(+)h(6)p eop
%%Page: 354 354
354 353 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(354)142 b FM(CHAPTER)30 b(42.)72 b(GENTRAN:)31 b(A)f(CODE)g(GENERA)
-8 b(TION)31 b(P)-8 b(A)m(CKA)m(GE)664 555 y FQ(W)g(e)33
b(wish)c(to)j(generate)h(an)e(assignmen)m(t)g(statemen)m(t)j(for)d(the)
g(quotien)m(t)h(of)f(F)h(and)f(its)664 655 y(deriv)-5
b(ativ)m(e.)664 861 y FH(1:)43 b(GENTRAN)664 960 y(1:)261
b(Q)43 b(:=)g(EVAL\(F\)/EVAL\(DF\()o(F,)o(X\)\))o($)926
1160 y(Q=\(2.0*X**2-\(5.)o(0*X)o(\)+)o(6.0)o(\)/)o(\(4.)o(0*)o(X-)o
(5.0)o(\))664 1296 y @beginspecial @setspecial @endspecial
155 x FR(42.2.2)113 b(The)37 b(:=:)51 b(Op)s(erator)664
1672 y FQ(In)25 b(man)m(y)g(applications,)g(assignmen)m(ts)g(m)m(ust)g
(b)s(e)g(generated)h(in)e(whic)m(h)g(the)i(left-hand)664
1785 y(side)31 b(is)f(some)i(kno)m(wn)f(v)-5 b(ariable)30
b(name,)i(but)e(the)i(righ)m(t-hand)e(side)g(is)h(an)g(expression)664
1898 y(that)45 b(m)m(ust)e(b)s(e)g(ev)-5 b(aluated.)82
b(F)-8 b(or)44 b(this)f(reason,)48 b(a)c(sp)s(ecial)e(op)s(erator)i(is)
f(pro)m(vided)664 2011 y(to)f(indicate)e(that)i(the)f(expression)f(on)g
(the)i(righ)m(t-hand)e(side)g(is)g(to)h(b)s(e)g(ev)-5
b(aluated)664 2124 y(prior)31 b(to)i(translation.)45
b(This)30 b(sp)s(ecial)h(op)s(erator)h(is)f FN(:=:)45
b FQ(\()p FD(i.e.)g FQ(the)32 b(usual)f(REDUCE)664 2237
y(assignmen)m(t)f(op)s(erator)h(with)e(an)h(extra)h(\\:")42
b(on)30 b(the)h(righ)m(t\).)664 2259 y @beginspecial
@setspecial @endspecial 140 x FN(Example)j(13)891 2612
y FH(1:)43 b(GENTRAN)891 2711 y(1:)87 b(DERIV)41 b(:=:)i
(DF\(X^4-X^3+2*x^)o(2+1)o(,X)o(\)$)1153 2911 y(DERIV=4.0*X**3-\()o(3.0)
o(*X)o(**)o(2\)+)o(4.)o(0*X)664 3042 y @beginspecial
@setspecial @endspecial 160 x FR(42.2.3)113 b(The)37
b(::=)h(Op)s(erator)664 3423 y FQ(When)h(assignmen)m(ts)f(to)i(matrix)e
(or)h(arra)m(y)g(elemen)m(ts)g(m)m(ust)g(b)s(e)f(generated,)k(man)m(y)
664 3536 y(times)21 b(the)h(indices)d(of)i(the)h(elemen)m(t)g(m)m(ust)f
(b)s(e)f(ev)-5 b(aluated)22 b(\014rst.)37 b(The)21 b(sp)s(ecial)f(op)s
(erator)664 3649 y FN(::=)33 b FQ(can)h(b)s(e)e(used)g(within)f(a)i
(call)f(to)i FN(GENTRAN)e FQ(to)i(indicate)e(that)i(the)f(indices)664
3762 y(of)26 b(the)g(matrix)f(or)h(arra)m(y)g(elemen)m(t)g(on)g(the)g
(left-hand)f(side)g(of)g(the)h(assignmen)m(t)g(are)g(to)664
3875 y(b)s(e)33 b(ev)-5 b(aluated)34 b(prior)e(to)i(translation.)49
b(\(This)32 b(is)h(the)h(usual)e(REDUCE)h(assignmen)m(t)664
3988 y(op)s(erator)e(with)e(an)h(extra)h(\\:")42 b(on)30
b(the)h(left.\))664 4010 y @beginspecial @setspecial
@endspecial 140 x FN(Example)j(14)891 4363 y FQ(W)-8
b(e)38 b(wish)d(to)i(generate)h(assignmen)m(ts)e(whic)m(h)f(assign)h
(zeros)h(to)g(all)e(ele-)891 4462 y(men)m(ts)c(on)f(the)h(main)e
(diagonal)h(of)g(M,)h(an)g(n)e(x)i(n)e(matrix.)891 4660
y FH(10:)43 b(FOR)f(j)h(:=)g(1)g(:)g(8)h(DO)891 4759
y(10:)261 b(GENTRAN)891 4859 y(10:)435 b(M\(j,j\))41
b(::=)i(0$)p eop
%%Page: 355 355
355 354 bop 241 299 a @beginspecial @setspecial @endspecial
FM(42.2.)72 b(PRECISION)2082 b FQ(355)730 555 y FH(M\(1,1\)=0.0)730
655 y(M\(2,2\)=0.0)730 754 y(:)730 854 y(:)730 954 y(M\(8,8\)=0.0)241
1191 y FN(LSETQ)29 b FQ(ma)m(y)i(b)s(e)f(used)f(in)m(terc)m(hangeably)i
(with)e FN(::=)h FQ(on)h(input.)241 1336 y @beginspecial
@setspecial @endspecial 148 x FR(42.2.4)112 b(The)38
b(::=:)50 b(Op)s(erator)241 1706 y FQ(In)35 b(applications)e(in)i(whic)
m(h)f(ev)-5 b(aluated)36 b(expressions)e(are)i(to)h(b)s(e)e(assigned)g
(to)h(arra)m(y)241 1819 y(elemen)m(ts)e(with)e(ev)-5
b(aluated)34 b(subscripts,)f(the)h FN(::=:)47 b FQ(op)s(erator)34
b(can)g(b)s(e)f(used.)50 b(It)34 b(is)f(a)241 1932 y(com)m(bination)f
(of)g(the)h FN(::=)g FQ(and)f FN(:=:)45 b FQ(op)s(erators)32
b(describ)s(ed)f(in)g(sections)h @beginspecial @setspecial
@endspecial(42.2.2)j(and)241 2045 y @beginspecial @setspecial
@endspecial(42.2.3)r(.)-257 b @beginspecial @setspecial
@endspecial 162 x FN(Example)33 b(15)468 2445 y FQ(The)d(follo)m(wing)f
(matrix,)h(M,)h(has)f(b)s(een)f(deriv)m(ed)h(sym)m(b)s(olically:)p
eop
%%Page: 356 356
356 355 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(356)142 b FM(CHAPTER)30 b(42.)72 b(GENTRAN:)31 b(A)f(CODE)g(GENERA)
-8 b(TION)31 b(P)-8 b(A)m(CKA)m(GE)891 555 y FH(\()87
b(A)131 b(0)86 b(-1)130 b(1\))891 655 y(\()654 b(\))891
754 y(\()87 b(0)131 b(B)f(0)g(0\))891 854 y(\()654 b(\))891
954 y(\()44 b(-1)130 b(0)g(C)87 b(-1\))891 1053 y(\()654
b(\))891 1153 y(\()87 b(1)131 b(0)86 b(-1)130 b(D\))891
1343 y FQ(W)-8 b(e)38 b(wish)d(to)j(generate)g(assignmen)m(t)e
(statemen)m(ts)j(for)d(those)h(elemen)m(ts)891 1443 y(on)31
b(the)f(main)g(diagonal)f(of)i(the)f(matrix.)891 1615
y FH(10:)43 b(FOR)f(j)h(:=)g(1)g(:)g(4)h(DO)891 1715
y(10:)261 b(GENTRAN)891 1814 y(10:)435 b(M\(j,j\))41
b(::=:)h(M\(j,j\)$)1153 2014 y(M\(1,1\)=A)1153 2113 y(M\(2,2\)=B)1153
2213 y(M\(3,3\)=C)1153 2312 y(M\(4,4\)=D)664 2517 y FQ(The)30
b(alternativ)m(e)h(alphan)m(umeric)d(iden)m(ti\014er)h(asso)s(ciated)i
(with)e FN(::=:)41 b FQ(is)29 b FN(LRSETQ)p FQ(.)664
2665 y @beginspecial @setspecial @endspecial 182 x FE(42.3)136
b(Explicit)46 b(T)l(yp)t(e)e(Declarations)664 3100 y
FQ(T)m(yp)s(e)49 b(declarations)f(are)i(automatically)f(generated)h
(eac)m(h)h(time)e(a)g(subprogram)664 3212 y(heading)34
b(is)h(generated.)56 b(T)m(yp)s(e)35 b(declarations)g(are)g
(constructed)h(from)f(information)664 3325 y(stored)43
b(in)e(the)h(GENTRAN)g(sym)m(b)s(ol)f(table.)77 b(The)42
b(user)f(can)i(place)f(en)m(tries)g(in)m(to)664 3438
y(the)27 b(sym)m(b)s(ol)f(table)g(explicitly)f(through)h(calls)f(to)j
(the)f(sp)s(ecial)e(GENTRAN)i(function)664 3551 y FN(DECLARE)p
FQ(.)664 3714 y FN(Syn)m(tax:)961 3918 y(DECLARE)j FD(v1,v2,.)14
b(.)g(.)46 b(,vn)30 b FN(:)41 b FD(typ)-5 b(e;)891 4062
y FQ(or)941 4180 y FN(DECLARE)941 4293 y FL(<<)1554 4406
y FD(v11,v12,.)14 b(.)g(.)47 b(,v1n)31 b FN(:)41 b FD(typ)-5
b(e1;)1554 4519 y(v21,v22,.)14 b(.)g(.)47 b(,v2n)31 b
FN(:)41 b FD(typ)-5 b(e2;)1554 4632 y FQ(:)1554 4745
y(:)1554 4858 y FD(vn1,vnn,.)14 b(.)g(.)46 b(,vnn)31
b FN(:)40 b FD(typ)-5 b(en;)941 4970 y FL(>>)p FD(;)p
eop
%%Page: 357 357
357 356 bop 241 299 a @beginspecial @setspecial @endspecial
FM(42.4.)72 b(EXPRESSION)29 b(SEGMENT)-8 b(A)g(TION)1218
b FQ(357)241 555 y FN(Argumen)m(ts:)468 793 y FQ(Eac)m(h)34
b FD(v1,v2,.)14 b(.)g(.)49 b(,vn)32 b FQ(is)h(a)g(list)f(of)h(one)g(or)
g(more)h(v)-5 b(ariables)31 b(\(optionally)468 906 y(subscripted)18
b(to)j(indicate)e(arra)m(y)i(dimensions\),)g(or)f(v)-5
b(ariable)19 b(ranges)i(\(t)m(w)m(o)468 1018 y(letters)29
b(separated)g(b)m(y)f(a)h(\\-"\).)42 b FD(v)p FQ('s)28
b(are)h(not)g(ev)-5 b(aluated)29 b(unless)d(giv)m(en)j(as)468
1131 y(argumen)m(ts)i(to)g FN(EV)-12 b(AL)p FQ(.)468
1282 y(Eac)m(h)24 b FD(typ)-5 b(e)24 b FQ(is)e(a)h(v)-5
b(ariable)22 b(t)m(yp)s(e)i(in)d(the)j(target)g(language.)39
b(Eac)m(h)24 b(m)m(ust)f(b)s(e)468 1395 y(an)37 b(atom,)j(optionally)35
b(preceded)i(b)m(y)f(the)h(atom)h FN(IMPLICIT)p FQ(.)e
FD(typ)-5 b(e)p FQ('s)468 1507 y(are)31 b(not)f(ev)-5
b(aluated)31 b(unless)e(giv)m(en)h(as)h(argumen)m(ts)f(to)h
FN(EV)-12 b(AL)p FQ(.)241 1745 y(The)32 b FN(DECLARE)g
FQ(statemen)m(t)j(can)e(also)g(b)s(e)f(used)g(to)i(declare)f
(subprogram)e(t)m(yp)s(es)241 1858 y(\()p FD(i.e.)87
b FN(SUBR)m(OUTINE)35 b FQ(or)f FN(FUNCTION)p FQ(\))e(for)68
b(F)m(OR)-8 b(TRAN)35 b(and)f(RA)-8 b(TF)m(OR)241 1971
y(co)s(de,)31 b(and)e(function)g(t)m(yp)s(es)i(for)f(all)f(four)h
(languages.)241 2125 y @beginspecial @setspecial @endspecial
182 x FE(42.4)135 b(Expression)46 b(Segmen)l(tation)241
2560 y FQ(Sym)m(b)s(olic)21 b(deriv)-5 b(ations)21 b(can)i(easily)f
(pro)s(duce)g(form)m(ulas)g(that)i(can)f(b)s(e)f(an)m(ywhere)h(from)241
2673 y(a)31 b(few)f(lines)e(to)k(sev)m(eral)e(pages)h(in)e(length.)41
b(Suc)m(h)29 b(form)m(ulas)h(can)h(b)s(e)e(translated)i(in)m(to)241
2786 y(n)m(umerical)k(assignmen)m(t)i(statemen)m(ts,)k(but)c(unless)e
(they)i(are)h(brok)m(en)f(in)m(to)g(smaller)241 2898
y(pieces)45 b(they)g(ma)m(y)g(b)s(e)g(to)s(o)g(long)g(for)g(a)g
(compiler)f(to)i(handle.)83 b(\(The)45 b(maxim)m(um)241
3011 y(n)m(um)m(b)s(er)25 b(of)i(con)m(tin)m(uation)g(lines)e(for)i
(one)g(statemen)m(t)i(allo)m(w)m(ed)e(b)m(y)f(most)i(F)m(OR)-8
b(TRAN)241 3124 y(compilers)20 b(is)i(only)f(19.\))39
b(Therefore)22 b(GENTRAN)h(con)m(tains)f(a)h(segmen)m(tation)g(facilit)
m(y)241 3237 y(whic)m(h)35 b(automatically)i FD(se)-5
b(gments)p FQ(,)40 b(or)d(breaks)g(do)m(wn)f(unreasonably)f(large)i
(expres-)241 3350 y(sions.)241 3513 y(The)h(segmen)m(tation)j(facilit)m
(y)d(generates)j(a)e(sequence)h(of)f(assignmen)m(t)h(statemen)m(ts,)241
3626 y(eac)m(h)d(of)f(whic)m(h)f(assigns)g(a)h(sub)s(expression)d(to)k
(an)f(automatically)g(generated)h(tem-)241 3739 y(p)s(orary)c(v)-5
b(ariable.)50 b(This)32 b(sequence)i(is)f(generated)i(in)e(suc)m(h)g(a)
i(w)m(a)m(y)f(that)h(temp)s(orary)241 3852 y(v)-5 b(ariables)26
b(are)j(re-used)e(as)h(so)s(on)g(as)g(p)s(ossible,)e(thereb)m(y)j(k)m
(eeping)e(the)i(n)m(um)m(b)s(er)d(of)i(au-)241 3964 y(tomatically)34
b(generated)i(v)-5 b(ariables)33 b(to)i(a)g(minim)m(um.)51
b(The)34 b(facilit)m(y)g(can)h(b)s(e)f(turned)241 4077
y(on)39 b(or)g(o\013)h(b)m(y)f(setting)g(the)g(mo)s(de)g(switc)m(h)g
FN(GENTRANSEG)f FQ(accordingly)h(\()p FD(i.e.)241 4190
y FQ(b)m(y)d(calling)g(the)g(REDUCE)h(function)e FN(ON)h
FQ(or)h FN(OFF)f FQ(on)g(it\).)60 b(The)36 b(user)g(can)h(con-)241
4303 y(trol)29 b(the)g(maxim)m(um)f(allo)m(w)m(able)h(expression)f
(size)h(b)m(y)g(setting)g(the)58 b(v)-5 b(ariable)28
b FN(MAX-)241 4416 y(EXPPRINTLEN!*)j FQ(to)i(the)f(maxim)m(um)f(n)m(um)
m(b)s(er)f(of)i(c)m(haracters)h(allo)m(w)m(ed)f(in)f(an)241
4529 y(expression)37 b(prin)m(ted)f(in)h(the)h(target)i(language)e
(\(excluding)f(spaces)i(automatically)241 4642 y(prin)m(ted)h(b)m(y)h
(the)g(formatter\).)75 b(The)40 b FN(GENTRANSEG)h FQ(switc)m(h)g(is)f
(on)h(initially)-8 b(,)241 4755 y(and)30 b FN(MAXEXPPRINTLEN!*)g
FQ(is)f(initialised)e(to)k(800.)241 4892 y @beginspecial
@setspecial @endspecial eop
%%Page: 358 358
358 357 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(358)142 b FM(CHAPTER)30 b(42.)72 b(GENTRAN:)31 b(A)f(CODE)g(GENERA)
-8 b(TION)31 b(P)-8 b(A)m(CKA)m(GE)664 555 y FE(42.5)136
b(T)-11 b(emplate)46 b(Pro)t(cessing)664 808 y FQ(In)c(some)g(co)s(de)g
(generation)h(applications)d(pieces)i(of)g(the)h(target)g(n)m(umerical)
e(pro-)664 921 y(gram)36 b(are)f(kno)m(wn)g(in)f(adv)-5
b(ance.)57 b(A)35 b FD(template)i FQ(\014le)d(con)m(taining)h(a)h
(program)f(outline)664 1034 y(is)i(supplied)e(b)m(y)i(the)h(user,)i
(and)d(form)m(ulas)g(are)h(deriv)m(ed)f(in)f(REDUCE,)i(con)m(v)m(erted)
664 1147 y(to)31 b(n)m(umerical)d(co)s(de,)i(and)f(inserted)g(in)f(the)
i(corresp)s(onding)e(places)i(in)e(the)i(program)664
1260 y(outline)41 b(to)j(form)e(a)h(complete)g(n)m(umerical)e(program.)
78 b(A)43 b(template)g(pro)s(cessor)f(is)664 1372 y(pro)m(vided)29
b(b)m(y)h(GENTRAN)h(for)f(use)g(in)f(these)i(applications.)664
1535 y FN(Syn)m(tax:)891 1771 y(GENTRANIN)f FD(f1,f2,.)14
b(.)g(.)46 b(,fm)31 b FQ([)p FN(OUT)f FD(f1,f2,.)14 b(.)g(.)46
b(,fn)7 b FQ(])p FD(;)664 2007 y FN(Argumen)m(ts:)891
2242 y FD(f1,f2,.)14 b(.)g(.)60 b(,fm)53 b FQ(is)44 b(an)h(argumen)m(t)
h(list)d(con)m(taining)i(one)h(or)f(more)g FD(f)19 b
FQ('s,)891 2355 y(where)30 b(eac)m(h)i FD(f)49 b FQ(is)30
b(one)g(of:)1418 2570 y FD(an)j(atom)101 b FQ(=)e(a)31
b(template)g(\(input\))e(\014le)1418 2683 y FN(T)354
b FQ(=)99 b(the)31 b(terminal)891 2898 y FD(f1,f2,.)14
b(.)g(.)45 b(,fn)35 b FQ(is)28 b(an)g(optional)g(argumen)m(t)g(list)f
(con)m(taining)h(one)h(or)f(more)891 3011 y FD(f)20 b
FQ('s,)30 b(where)g(eac)m(h)i FD(f)49 b FQ(is)30 b(one)g(of:)1198
3226 y FD(an)j(atom)101 b FQ(=)e(an)30 b(output)g(\014le)1198
3339 y FN(T)354 b FQ(=)99 b(the)31 b(terminal)1198 3452
y FN(NIL)242 b FQ(=)99 b(the)31 b(curren)m(t)f(output)g(\014le\(s\))
1198 3565 y FN(ALL!*)138 b FQ(=)99 b(all)29 b(\014les)h(curren)m(tly)f
(op)s(en)h(for)g(output)1795 3678 y(b)m(y)g(GENTRAN)h(\(see)g(section)g
@beginspecial @setspecial @endspecial(42.6)q(\))664 3906
y FN(GENTRANIN)f FQ(pro)s(cesses)g(eac)m(h)h(template)g(\014le)f
FD(f1,f2,.)14 b(.)g(.)46 b(,fm)30 b FQ(sequen)m(tially)-8
b(.)664 4069 y(A)28 b(template)h(\014le)e(ma)m(y)i(con)m(tain)f(an)m(y)
h(n)m(um)m(b)s(er)e(of)h(parts,)h(eac)m(h)g(of)f(whic)m(h)f(is)g
(either)h(an)664 4182 y(activ)m(e)f(or)f(an)g(inactiv)m(e)f(part.)39
b(All)25 b(activ)m(e)i(parts)e(start)i(with)d(the)i(c)m(haracter)i
(sequence)664 4295 y FN(;BEGIN;)33 b FQ(and)g(end)g(with)g
FN(;END;)p FQ(.)50 b(The)33 b(end)g(of)g(the)h(template)g(\014le)f(is)f
(indicated)664 4407 y(b)m(y)e(an)h(extra)g FN(;END;)f
FQ(c)m(haracter)i(sequence.)664 4570 y(Inactiv)m(e)38
b(parts)g(of)g(template)g(\014les)e(are)i(assumed)f(to)h(con)m(tain)g
(co)s(de)g(in)f(the)g(target)664 4683 y(language.)k(All)29
b(inactiv)m(e)i(parts)f(are)h(copied)e(to)i(the)g(output.)664
4846 y(Activ)m(e)d(parts)f(ma)m(y)g(con)m(tain)h(an)m(y)f(n)m(um)m(b)s
(er)f(of)h(REDUCE)f(expressions,)h(statemen)m(ts,)664
4959 y(and)33 b(commands.)49 b(They)32 b(are)i(not)f(copied)g(directly)
f(to)i(the)f(output.)49 b(Instead,)34 b(they)p eop
%%Page: 359 359
359 358 bop 241 299 a @beginspecial @setspecial @endspecial
FM(42.5.)72 b(TEMPLA)-8 b(TE)30 b(PR)m(OCESSING)1448
b FQ(359)241 555 y(are)33 b(giv)m(en)f(to)i(REDUCE)e(for)g(ev)-5
b(aluation)32 b(in)g(algebraic)g(mo)s(de.)47 b(All)31
b(output)h(gener-)241 668 y(ated)37 b(b)m(y)g(eac)m(h)h(ev)-5
b(aluation)36 b(is)g(sen)m(t)i(to)f(the)g(output)g(\014le\(s\).)60
b(Returned)36 b(v)-5 b(alues)36 b(are)241 781 y(only)29
b(prin)m(ted)g(on)h(the)h(terminal.)241 944 y(Activ)m(e)26
b(parts)g(will)c(most)k(lik)m(ely)f(con)m(tain)g(calls)g(to)h
FN(GENTRAN)g FQ(to)g(generate)h(co)s(de.)241 1057 y(This)i(means)h
(that)h(the)g(result)f(of)g(pro)s(cessing)g(a)h(template)g(\014le)f
(will)e(b)s(e)i(the)g(original)241 1170 y(template)h(\014le)e(with)g
(all)g(activ)m(e)j(parts)e(replaced)g(b)m(y)g(generated)i(co)s(de.)241
1332 y(If)i FN(OUT)h FD(f1,f2,.)14 b(.)g(.)50 b(,fn)35
b FQ(is)f(not)h(giv)m(en,)h(generated)g(co)s(de)f(is)f(simply)e
(written)i(to)h(the)241 1445 y(curren)m(t-output)30 b(\014le.)241
1608 y(Ho)m(w)m(ev)m(er,)i(if)e FN(OUT)g FD(f1,f2,.)14
b(.)g(.)46 b(,fn)31 b FQ(is)e(giv)m(en,)i(then)f(the)h(curren)m
(t-output)f(\014le)f(is)h(tem-)241 1721 y(p)s(orarily)j(o)m(v)m
(erridden.)55 b(Generated)36 b(co)s(de)g(is)e(written)h(to)h(eac)m(h)h
(\014le)d(represen)m(ted)i(b)m(y)241 1834 y FD(f1,f2,.)14
b(.)g(.)46 b(,fn)30 b FQ(for)g(this)f(command)h(only)-8
b(.)41 b(Files)29 b(whic)m(h)g(w)m(ere)i(op)s(en)e(prior)g(to)i(the)f
(call)241 1947 y(to)i FN(GENTRANIN)f FQ(will)e(remain)i(op)s(en)g
(after)h(the)g(call,)f(and)g(\014les)g(whic)m(h)f(did)g(not)241
2060 y(exist)j(prior)f(to)i(the)g(call)f(will)e(b)s(e)i(created,)i(op)s
(ened,)f(written)f(to,)i(and)e(closed.)50 b(The)241 2172
y(output-stac)m(k)32 b(will)27 b(b)s(e)j(exactly)h(the)g(same)g(b)s
(oth)e(b)s(efore)h(and)g(after)h(the)f(call.)241 2335
y FN(GENTRANIN)e FQ(returns)g(the)i(names)f(of)h(all)e(\014les)g
(written)h(to)h(b)m(y)f(this)f(command.)p eop
%%Page: 360 360
360 359 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(360)142 b FM(CHAPTER)30 b(42.)72 b(GENTRAN:)31 b(A)f(CODE)g(GENERA)
-8 b(TION)31 b(P)-8 b(A)m(CKA)m(GE)664 464 y @beginspecial
@setspecial @endspecial 91 x FN(Example)34 b(16)891 793
y FQ(Supp)s(ose)28 b(w)m(e)j(wish)d(to)i(generate)i(a)e(F)m(OR)-8
b(TRAN)31 b(subprogram)d(to)j(com-)891 906 y(pute)41
b(the)g(determinan)m(t)g(of)g(a)h(3)f(x)g(3)g(matrix.)72
b(W)-8 b(e)43 b(can)e(construct)g(a)891 1018 y(template)29
b(\014le)e(with)g(an)h(outline)e(of)j(the)f(F)m(OR)-8
b(TRAN)29 b(subprogram)d(and)891 1131 y(REDUCE)31 b(and)e(GENTRAN)i
(commands)f(to)h(\014ll)e(it)g(in:)891 1282 y(Con)m(ten)m(ts)j(of)e
(\014le)g FJ(det.tem)p FQ(:)926 1512 y FH(REAL)42 b(FUNCTION)e
(DET\(M\))926 1612 y(REAL)i(M\(3,3\))664 1712 y(;BEGIN;)926
1811 y(OPERATOR)e(M$)926 1911 y(MATRIX)h(MM\(3,3\)$)926
2011 y(MM)h(:=)h(MAT\()f(\(M\(1,1\),M\(1,2\),M\()o(1,)o(3\))o(\),)1405
2110 y(\(M\(2,1\),M\(2,2\),M\()o(2,)o(3\))o(\),)1405
2210 y(\(M\(3,1\),M\(3,2\),M\()o(3,)o(3\))o(\))c(\)$)926
2309 y(GENTRAN)i(DET)j(:=:)f(DET\(MM\)$)664 2409 y(;END;)926
2509 y(RETURN)926 2608 y(END)664 2708 y(;END;)891 2957
y FQ(No)m(w)29 b(w)m(e)f(can)f(generate)i(a)f(F)m(OR)-8
b(TRAN)28 b(subprogram)e(with)g(the)i(follo)m(w-)891
3057 y(ing)i(REDUCE)g(session:)891 3268 y FH(1:)43 b(GENTRANLANG!*)38
b(:=)43 b('FORTRAN$)891 3468 y(2:)g(GENTRANIN)891 3567
y(2:)261 b("det.tem")891 3667 y(2:)43 b(OUT)g("det.f"$)891
3892 y FQ(Con)m(ten)m(ts)32 b(of)e(\014le)g(det.f:)926
4123 y FH(REAL)42 b(FUNCTION)e(DET\(M\))926 4222 y(REAL)i(M\(3,3\))926
4322 y(DET=M\(3,3\)*M\(2,)o(2\)*)o(M\()o(1,1)o(\)-)o(\(M\()o(3,)o(3\))o
(*M\()o(2,)o(1\)*)o(M\()o(1,)o(2\)\))o(-\()o(M\(3)o(,2)o(\))882
4422 y(.)h(*M\(2,3\)*M\(1,1\)\)+M)o(\(3)o(,2\))o(*M)o(\(2,)o(1\))o(*M)o
(\(1,)o(3\))o(+M\()o(3,)o(1\))o(*M\()o(2,)o(3\)*)o(M\()o(1)882
4521 y(.)g(,2\)-\(M\(3,1\)*M\(2,2)o(\)*)o(M\(1)o(,3)o(\)\))926
4621 y(RETURN)926 4720 y(END)p eop
%%Page: 361 361
361 360 bop 241 299 a @beginspecial @setspecial @endspecial
FM(42.6.)72 b(OUTPUT)30 b(REDIRECTION)1500 b FQ(361)241
464 y @beginspecial @setspecial @endspecial 91 x FE(42.6)135
b(Output)45 b(Redirection)241 808 y FQ(The)32 b FN(GENTRANOUT)g
FQ(and)f FN(GENTRANSHUT)i FQ(commands)f(are)h(iden)m(tical)241
921 y(to)21 b(the)f(REDUCE)h FN(OUT)f FQ(and)f FN(SHUT)i
FQ(commands)f(with)f(the)h(follo)m(wing)f(exceptions:)377
1183 y FP(\017)46 b FN(GENTRANOUT)20 b FQ(and)f FN(GENTRANSHUT)h
FQ(redirect)g FD(only)29 b FQ(co)s(de)21 b(whic)m(h)468
1296 y(is)29 b(prin)m(ted)g(as)i(a)g(side)e(e\013ect)j(of)e(GENTRAN)h
(commands.)377 1484 y FP(\017)46 b FN(GENTRANOUT)d FQ(allo)m(ws)h(more)
g(than)f(one)i(\014le)e(name)h(to)g(b)s(e)g(giv)m(en)g(to)468
1597 y(indicate)32 b(that)i(generated)h(co)s(de)e(is)f(to)i(b)s(e)f
(sen)m(t)h(to)g(t)m(w)m(o)h(or)e(more)g(\014les.)49 b(\(It)33
b(is)468 1710 y(particularly)d(con)m(v)m(enien)m(t)j(to)g(b)s(e)f(able)
f(to)i(ha)m(v)m(e)h(generated)f(co)s(de)g(sen)m(t)f(to)h(the)468
1822 y(terminal)c(screen)h(and)g(one)h(or)f(more)h(\014le)e(sim)m
(ultaneously)-8 b(.\))377 2010 y FP(\017)46 b FN(GENTRANOUT)54
b FQ(do)s(es)g(not)h(automatically)g(erase)g(existing)f(\014les;)66
b(it)468 2123 y(prin)m(ts)33 b(a)h(w)m(arning)f(message)j(on)e(the)g
(terminal)f(and)h(asks)g(the)h(user)e(whether)468 2236
y(the)e(existing)e(\014le)g(should)g(b)s(e)h(erased)g(or)g(the)h(whole)
f(command)g(b)s(e)f(ab)s(orted.)p eop
%%Page: 362 362
362 361 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(362)142 b FM(CHAPTER)30 b(42.)72 b(GENTRAN:)31 b(A)f(CODE)g(GENERA)
-8 b(TION)31 b(P)-8 b(A)m(CKA)m(GE)p eop
%%Page: 363 363
363 362 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(43)241 1693 y FT(GEOMETR)-19 b(Y:)74 b(Mec)-6 b(hanized)241
1942 y(\(Plane\))77 b(Geometry)241 2191 y(Manipulations)1444
2673 y Fx(Hans-Gert)26 b(Gr\177)-38 b(ab)r(e)1238 2764
y(Univ)n(ersit\177)g(at)25 b(Leipzig,)i(German)n(y)1058
2856 y(e-mail:)34 b(graeb)r(e@informatik.uni-leipzig.de)241
3089 y @beginspecial @setspecial @endspecial 184 x FE(43.1)135
b(In)l(tro)t(duction)241 3526 y FQ(This)24 b(pac)m(k)-5
b(age)28 b(pro)m(vides)d(to)s(ols)g(for)h(form)m(ulation)f(and)g(mec)m
(hanized)h(pro)s(ofs)f(of)h(geom-)241 3639 y(etry)k(statemen)m(ts)i(in)
d(the)i(spirit)d(of)j(the)f(\\Chinese)f(Pro)m(v)m(er")j(of)f(W.-T.)g(W)
-8 b(u)30 b([)p @beginspecial @setspecial @endspecial(23)r(])g(and)241
3752 y(the)e(fundamen)m(tal)f(b)s(o)s(ok)g([)p @beginspecial
@setspecial @endspecial(4)q(])h(of)g(S.-C.)f(Chou)g(who)h(pro)m(v)m(ed)
g(512)h(geometry)g(theorems)241 3865 y(with)g(this)g(mec)m(hanized)h
(metho)s(d,)h(see)g(also)f([)p @beginspecial @setspecial
@endspecial(3)q(],)g([)p @beginspecial @setspecial @endspecial(5)q(],)h
([)p @beginspecial @setspecial @endspecial(21)q(],)g([)p
@beginspecial @setspecial @endspecial(22)q(].)241 4027
y(The)i(general)h(idea)g(b)s(ehind)d(this)i(approac)m(h)h(is)f(an)h
(algebraic)g(reform)m(ulation)e(of)i(ge-)241 4140 y(ometric)41
b(conditions)f(using)g(generic)i(co)s(ordinates.)73 b(A)42
b(\(mathematically)f(strong\))241 4253 y(pro)s(of)e(of)h(the)g
(geometry)h(statemen)m(t)h(then)e(ma)m(y)g(b)s(e)g(obtained)f(from)g
(appropriate)241 4366 y(manipulations)23 b(of)k(these)g(algebraic)f
(expressions.)38 b(A)26 b(CAS)g(as,)i(e.g.,)h(Reduce)d(is)g(w)m(ell)241
4479 y(suited)j(to)i(mec)m(hanize)g(these)g(manipulations.)241
4642 y(F)-8 b(or)45 b(a)f(more)h(detailed)e(in)m(tro)s(duction)g(to)i
(the)f(topic)g(see)h(the)g(accompan)m(ying)f(\014le)241
4755 y FJ(geometry.tex)27 b FQ(in)i($REDUCEP)-8 b(A)g(TH/pac)m(k)j
(ages/geometry/.)241 4914 y @beginspecial @setspecial
@endspecial 1667 5187 a(363)p eop
%%Page: 364 364
364 363 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(364)691 b FM(CHAPTER)30 b(43.)72 b(GEOMETR)-8 b(Y:)30
b(PLANE)h(GEOMETR)-8 b(Y)664 555 y FE(43.2)136 b(Basic)45
b(Data)h(T)l(yp)t(es)e(and)h(Constructors)664 808 y FQ(The)32
b(basic)g(data)h(t)m(yp)s(es)g(in)e(this)g(pac)m(k)-5
b(age)35 b(are)e FJ(Scalar,)45 b(Point,)i(Line,)f(Circle1)664
921 y(and)h(Circle)p FQ(.)664 1034 y(The)h(function)f
FJ(POINT\()p FL(a;)15 b(b)p FJ(\))46 b FQ(creates)k(a)e
FJ(Point)f FQ(in)g(the)h(plane)g(with)e(the)j(\()p FL(x;)15
b(y)s FQ(\)-)664 1147 y(co)s(ordinates)40 b(\()p FL(a;)15
b(b)p FQ(\).)73 b(A)41 b FJ(Line)e FQ(is)h(created)h(with)e(the)i
(function)e FJ(LINE\()p FL(a;)15 b(b;)g(c)p FJ(\))41
b FQ(and)664 1260 y(ful\014lls)27 b(the)k(equation)g
FL(ax)20 b FQ(+)g FL(by)j FQ(+)d FL(c)27 b FQ(=)e(0.)42
b(F)-8 b(or)32 b(circles)d(there)i(are)g(t)m(w)m(o)h(constructors.)664
1372 y(Y)-8 b(ou)31 b(can)g(use)f FJ(CIRCLE\()p FL(c)1550
1386 y FO(1)1588 1372 y FL(;)15 b(c)1667 1386 y FO(2)1707
1372 y FL(;)g(c)1786 1386 y FO(3)1826 1372 y FL(;)g(c)1905
1386 y FO(4)1945 1372 y FJ(\))31 b FQ(to)g(create)h(a)f
FJ(Circle)d FQ(where)i(the)h(scalar)f(v)-5 b(ari-)664
1485 y(ables)34 b(solv)m(e)h(the)g(equation)g FL(c)1699
1499 y FO(1)1738 1485 y FQ(\()p FL(x)1825 1452 y FO(2)1888
1485 y FQ(+)23 b FL(y)2030 1452 y FO(2)2069 1485 y FQ(\))h(+)e
FL(c)2260 1499 y FO(2)2300 1485 y FL(x)h FQ(+)g FL(c)2508
1499 y FO(3)2548 1485 y FL(y)j FQ(+)c FL(c)2751 1499
y FO(4)2823 1485 y FQ(=)33 b(0.)53 b(Note)36 b(that)g(lines)664
1598 y(are)30 b(a)g(subset)f(of)h(the)g(circles)f(with)f
FL(c)1945 1612 y FO(1)2010 1598 y FQ(=)d(0.)41 b(The)29
b(other)h(w)m(a)m(y)g(to)h(create)g(a)f FJ(Circle)e FQ(is)664
1711 y(the)35 b(function)f FJ(CIRCLE1\()p FL(M)5 b(;)15
b(s)p FJ(\))p FQ(.)52 b(The)34 b(v)-5 b(ariable)34 b
FL(M)44 b FQ(here)35 b(denotes)g(a)h FJ(Point)d FQ(and)h
FL(s)664 1824 y FQ(the)g(squared)f(radius.)48 b(Please)34
b(note)g(that)g(this)e(pac)m(k)-5 b(age)36 b(mostly)d(uses)g(the)h
(squared)664 1937 y(distances)c(and)g(radiuses.)664 2100
y(There)44 b(are)h(v)-5 b(arious)44 b(functions)f(whose)h(return)f(t)m
(yp)s(e)i(is)e FJ(Scalar)p FQ(.)82 b(Bo)s(oleans)45 b(are)664
2213 y(represen)m(ted)53 b(as)g(extended)f(b)s(o)s(oleans,)58
b(i.e.)53 b(the)g(pro)s(cedure)e(returns)h(a)h FJ(Scalar)664
2326 y FQ(that)45 b(is)e(zero)i(i\013)f(the)g(condition)f(is)h
(ful\014lled.)78 b(F)-8 b(or)45 b(example,)j(the)d(function)e(call)664
2439 y FJ(POINT)p 910 2439 29 4 v 33 w(ON)p 1039 2439
V 34 w(CIRCLE\(P,c\))38 b FQ(returns)h(zero)i(if)f(the)h
FJ(Point)e FL(P)54 b FQ(is)39 b(on)i(the)g(circle,)h(oth-)664
2551 y(erwise)c FL(P)51 b FQ(is)38 b(not)h(on)f(the)h(circle.)65
b(In)37 b(some)i(cases)h(also)e(a)h(non)f(zero)i(result)d(has)i(a)664
2664 y(geometric)44 b(meaning.)79 b(F)-8 b(or)44 b(example,)i
FJ(COLLINEAR\(A,B,C\))39 b FQ(returns)j(the)h(signed)664
2777 y(area)31 b(of)g(the)f(corresp)s(onding)f(parallelogram.)664
2932 y @beginspecial @setspecial @endspecial 181 x FE(43.3)136
b(Pro)t(cedures)664 3366 y FQ(This)30 b(section)i(con)m(tains)g(a)h
(short)e(description)f(of)i(all)f(pro)s(cedures)g(a)m(v)-5
b(ailable)31 b(in)g Fq(Ge-)664 3479 y(ometr)-6 b(y)p
FQ(.)39 b(P)m(er)31 b(con)m(v)m(en)m(tion)h(distances)d(and)h(radiuses)
f(of)i(circles)e(are)i(squared.)664 3741 y FJ(ANGLE)p
910 3741 V 33 w(SUM\(a,b:Scalar\):Scalar)931 3854 y FQ(Returns)e(tan\()
p FL(\013)22 b FQ(+)d FL(\014)5 b FQ(\),)32 b(if)d FL(a)c
FQ(=)g(tan\()p FL(\013)p FQ(\))p FL(;)15 b(b)27 b FQ(=)e(tan)q(\()p
FL(\014)5 b FQ(\).)664 4017 y FJ(ALTITUDE\(A,B,C:Point\):Lin)o(e)931
4130 y FQ(The)30 b(altitude)f(from)h FL(A)g FQ(on)m(to)i
FL(g)s FQ(\()p FL(B)5 b(C)i FQ(\).)664 4293 y FJ(C1)p
766 4293 V 34 w(CIRCLE\(M:Point,sqr:Scala)o(r\):C)o(ircl)o(e)931
4406 y FQ(The)30 b(circle)f(with)g(giv)m(en)i(cen)m(ter)g(and)f
(sqradius.)664 4568 y FJ(CC)p 766 4568 V 34 w
(TANGENT\(c1,c2:Circle\):Sc)o(alar)931 4681 y FQ(Zero)g(i\013)g
FL(c)1286 4695 y FO(1)1356 4681 y FQ(and)f FL(c)1571
4695 y FO(2)1642 4681 y FQ(are)h(tangen)m(t.)664 4844
y FJ(CHOOSE)p 958 4844 V 33 w(PC\(M:Point,r,u\):Point)p
eop
%%Page: 365 365
365 364 bop 241 299 a @beginspecial @setspecial @endspecial
FM(43.3.)72 b(PR)m(OCEDURES)1953 b FQ(365)507 555 y(Cho)s(oses)28
b(a)h(p)s(oin)m(t)e(on)i(the)f(circle)g(around)f FL(M)38
b FQ(with)27 b(radius)g FL(r)507 668 y FQ(using)i(its)h(rational)g
(parametrization)g(with)f(parameter)i FL(u)p FQ(.)241
807 y FJ(CHOOSE)p 535 807 29 4 v 32 w(PL\(a:Line,u\):Point)507
920 y FQ(Cho)s(oses)f(a)h(p)s(oin)m(t)e(on)i FL(a)f FQ(using)f
(parameter)i FL(u)p FQ(.)241 1083 y FJ(CIRCLE\(c1,c2,c3,c4:Scal)o
(ar\):)o(Circ)o(le)507 1196 y FQ(The)f FJ(Circle)f FQ(constructor.)241
1358 y FJ(CIRCLE1\(M:Point,sqr:Sca)o(lar\))o(:Cir)o(cle)o(1)507
1471 y FQ(The)h FJ(Circle1)f FQ(constructor.)241 1634
y FJ(CIRCLE)p 535 1634 V 32 w(CENTER\(c:Circle\):Point)507
1747 y FQ(The)h(cen)m(ter)i(of)e FL(c)p FQ(.)241 1910
y FJ(CIRCLE)p 535 1910 V 32 w(SQRADIUS\(c:Circle\):Scalar)507
2022 y FQ(The)g(sqradius)e(of)j FL(c)p FQ(.)241 2185
y FJ(CL)p 343 2185 V 34 w(TANGENT\(c:Circle,l:Line)o(\):S)o(cala)o(r)
507 2298 y FQ(Zero)g(i\013)e FL(l)j FQ(is)e(tangen)m(t)i(to)f
FL(c)p FQ(.)241 2461 y FJ(COLLINEAR\(A,B,C:Point\):)o(Scal)o(ar)507
2574 y FQ(Zero)g(i\013)g FL(A;)15 b(B)5 b(;)15 b(C)37
b FQ(are)32 b(on)f(a)g(common)h(line.)41 b(In)30 b(general)h(the)507
2687 y(signed)h(area)i(of)f(the)g(parallelogram)f(spanned)f(b)m(y)2353
2664 y FL(~)2312 2687 y(AB)38 b FQ(and)547 2777 y FL(~)507
2800 y(AC)7 b FQ(.)241 2921 y FJ(CONCURRENT\(a,b,c:Line\):)o(Scal)o(ar)
507 3034 y FQ(Zero)31 b(i\013)e FL(a;)15 b(b;)g(c)32
b FQ(ha)m(v)m(e)f(a)g(common)g(p)s(oin)m(t.)241 3196
y FJ(INTERSECTION)p 823 3196 V 31 w(POINT\(a,b:Line\):Point)507
3309 y FQ(The)f(in)m(tersection)g(p)s(oin)m(t)g(of)g(the)h(lines)d
FL(a;)15 b(b)p FQ(.)241 3472 y FJ(L2)p 343 3472 V 34
w(ANGLE\(a,b:Line\):Scalar)507 3585 y FQ(T)-8 b(angens)31
b(of)f(the)h(angle)f(b)s(et)m(w)m(een)h FL(a)g FQ(and)e
FL(b)p FQ(.)241 3748 y FJ(LINE\(a,b,c:Scalar\):Line)507
3861 y FQ(The)h FJ(Line)f FQ(constructor.)241 4023 y
FJ(LOT\(P:Point,a:Line\):Lin)o(e)507 4136 y FQ(The)h(p)s(erp)s
(endicular)c(from)k FL(P)44 b FQ(on)m(to)31 b FL(a)p
FQ(.)241 4299 y FJ(MEDIAN\(A,B,C:Point\):Lin)o(e)507
4412 y FQ(The)f(median)f(line)g(from)h FL(A)g FQ(to)i
FL(B)5 b(C)i FQ(.)241 4575 y FJ(MIDPOINT\(A,B:Point\):Poi)o(nt)507
4688 y FQ(The)30 b(midp)s(oin)m(t)e(of)j FL(AB)5 b FQ(.)241
4850 y FJ(MP\(B,C:Point\):Line)p eop
%%Page: 366 366
366 365 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(366)691 b FM(CHAPTER)30 b(43.)72 b(GEOMETR)-8 b(Y:)30
b(PLANE)h(GEOMETR)-8 b(Y)931 555 y FQ(The)30 b(midp)s(oin)m(t)d(p)s
(erp)s(endicular)g(of)j FL(B)5 b(C)i FQ(.)664 718 y FJ
(ORTHOGONAL\(a,b:Line\):Scal)o(ar)931 831 y FQ(zero)31
b(i\013)e(the)i(lines)e FL(a;)15 b(b)30 b FQ(are)h(orthogonal.)664
994 y FJ(OTHER)p 910 994 29 4 v 33 w(CC)p 1039 994 V
34 w(POINT\(P:Point,c1,c2:Circ)o(le\):)o(Poin)o(t)931
1106 y FL(c)970 1120 y FO(1)1046 1106 y FQ(and)36 b FL(c)1268
1120 y FO(2)1344 1106 y FQ(in)m(tersect)h(at)g FL(P)13
b FQ(.)59 b(The)36 b(pro)s(cedure)f(returns)g(the)931
1219 y(second)30 b(in)m(tersection)g(p)s(oin)m(t.)664
1358 y FJ(OTHER)p 910 1358 V 33 w(CL)p 1039 1358 V 34
w(POINT\(P:Point,c:Circle,l)o(:Lin)o(e\):P)o(oin)o(t)931
1471 y FL(c)45 b FQ(and)f FL(l)i FQ(in)m(tersect)f(at)g
FL(P)13 b FQ(.)84 b(The)44 b(pro)s(cedure)f(returns)g(the)931
1584 y(second)30 b(in)m(tersection)g(p)s(oin)m(t.)664
1723 y FJ(P3)p 766 1723 V 34 w(ANGLE\(A,B,C:Point\):Scala)o(r)931
1836 y FQ(T)-8 b(angens)30 b(of)h(the)f(angle)h(b)s(et)m(w)m(een)2177
1813 y FL(~)2136 1836 y(B)5 b(A)30 b FQ(and)2527 1813
y FL(~)2485 1836 y(B)5 b(C)h FQ(.)664 1999 y FJ(P3)p
766 1999 V 34 w(CIRCLE\(A,B,C:Point\):Circ)o(le)89 b
FQ(or)664 2112 y FJ(P3)p 766 2112 V 34 w(CIRCLE1\(A,B,C:Point\):Cir)o
(cle1)931 2224 y FQ(The)30 b(circle)f(through)h(3)h(giv)m(en)f(p)s(oin)
m(ts.)664 2387 y FJ(P4)p 766 2387 V 34 w(CIRCLE\(A,B,C,D:Point\):Sc)o
(alar)931 2500 y FQ(Zero)g(i\013)g(four)f(giv)m(en)i(p)s(oin)m(ts)e
(are)i(on)f(a)h(common)f(circle.)664 2663 y FJ
(PAR\(P:Point,a:Line\):Line)931 2776 y FQ(The)g(line)e(through)i
FL(P)43 b FQ(parallel)29 b(to)i FL(a)p FQ(.)664 2938
y FJ(PARALLEL\(a,b:Line\):Scalar)931 3051 y FQ(Zero)f(i\013)g(the)g
(lines)f FL(a;)15 b(b)31 b FQ(are)f(parallel.)664 3214
y FJ(PEDALPOINT\(P:Point,a:Line)o(\):Po)o(int)931 3327
y FQ(The)g(p)s(edal)f(p)s(oin)m(t)g(of)h(the)h(p)s(erp)s(endicular)26
b(from)k FL(P)43 b FQ(on)m(to)32 b FL(a)p FQ(.)664 3490
y FJ(POINT\(a,b:Scalar\):Point)931 3603 y FQ(The)e FJ(Point)f
FQ(constructor.)664 3765 y FJ(POINT)p 910 3765 V 33 w(ON)p
1039 3765 V 34 w(BISECTOR\(P,A,B,C:Point\):)o(Scal)o(ar)931
3878 y FQ(Zero)d(i\013)g FL(P)40 b FQ(is)26 b(a)h(p)s(oin)m(t)f(on)g
(the)h(\(inner)f(or)h(outer\))g(bisector)f(of)931 3991
y(the)k(angle)1325 3975 y Fu(6)p 1334 3991 36 3 v 1395
3991 a FL(AB)5 b(C)i FQ(.)664 4130 y FJ(POINT)p 910 4130
29 4 v 33 w(ON)p 1039 4130 V 34 w(CIRCLE\(P:Point,c:Circle\))o(:Sca)o
(lar)89 b FQ(or)664 4243 y FJ(POINT)p 910 4243 V 33 w(ON)p
1039 4243 V 34 w(CIRCLE1\(P:Point,c:Circle)o(1\):S)o(cala)o(r)931
4356 y FQ(Zero)30 b(i\013)g FL(P)43 b FQ(is)29 b(on)i(the)f(circle)g
FL(c)p FQ(.)664 4519 y FJ(POINT)p 910 4519 V 33 w(ON)p
1039 4519 V 34 w(LINE\(P:Point,a:Line\):Sca)o(lar)931
4632 y FQ(Zero)g(i\013)g FL(P)43 b FQ(is)29 b(on)i(the)f(line)f
FL(a)p FQ(.)664 4794 y FJ(PP)p 766 4794 V 34 w(LINE\(A,B:Point\):Line)
931 4907 y FQ(The)h(line)e(through)i FL(A)g FQ(and)g
FL(B)5 b FQ(.)p eop
%%Page: 367 367
367 366 bop 241 299 a @beginspecial @setspecial @endspecial
FM(43.3.)72 b(PR)m(OCEDURES)1953 b FQ(367)241 555 y FJ
(SQRDIST\(A,B:Point\):Scal)o(ar)507 668 y FQ(Square)30
b(of)h(the)f(distance)g(b)s(et)m(w)m(een)h FL(A)g FQ(and)e
FL(B)5 b FQ(.)241 831 y FJ(SYMPOINT\(P:Point,l:Line)o(\):Po)o(int)507
944 y FQ(The)30 b(p)s(oin)m(t)g(symmetric)f(to)i FL(P)44
b FQ(wrt.)30 b(the)g(line)f FL(l)r FQ(.)241 1106 y FJ
(SYMLINE\(a:Line,l:Line\):)o(Line)507 1219 y FQ(The)h(line)f(symmetric)
h(to)h FL(a)f FQ(wrt.)g(the)h(line)d FL(l)r FQ(.)241
1382 y FJ(VARPOINT\(A,B:Point,u\):P)o(oint)507 1495 y
FQ(The)i(p)s(oin)m(t)g FL(D)e FQ(=)d FL(u)20 b FP(\001)g
FL(A)h FQ(+)f(\(1)h FP(\000)e FL(u)p FQ(\))i FP(\001)f
FL(B)5 b FQ(.)241 1820 y Fq(Geometr)-6 b(y)29 b FQ(supplies)e(as)k
(additional)d(to)s(ols)i(the)h(functions)241 2083 y FJ
(EXTRACTMAT\(polys,vars\))507 2196 y FQ(Returns)g(the)h(co)s(e\016cien)
m(t)h(matrix)e(of)h(the)g(list)f(of)h(equations)507 2309
y FL(pol)r(y)s(s)e FQ(that)h(are)f(linear)f(in)g(the)i(v)-5
b(ariables)29 b FL(v)s(ar)s(s)p FQ(.)241 2453 y FJ(RED)p
391 2453 29 4 v 33 w(HOM)p 568 2453 V 34 w(COORDS\(u:)p
FP(f)p FJ(Line,Circle)p FP(g)p FJ(\))507 2566 y FQ(Returns)41
b(the)g(reduced)g(homogeneous)h(co)s(ordinates)f(of)g
FL(u)p FQ(,)507 2678 y(i.e.,)31 b(divides)d(out)j(the)f(con)m(ten)m(t.)
p eop
%%Page: 368 368
368 367 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(368)691 b FM(CHAPTER)30 b(43.)72 b(GEOMETR)-8 b(Y:)30
b(PLANE)h(GEOMETR)-8 b(Y)664 464 y @beginspecial @setspecial
@endspecial 91 x FE(43.4)136 b(Examples)664 668 y @beginspecial
@setspecial @endspecial 140 x FN(Example)34 b(17)664
971 y FQ(Create)d(three)g(p)s(oin)m(ts)e(as)i(the)f(v)m(ertices)h(of)g
(a)g(generic)f(triangle.)664 1084 y FJ(A:=Point\(a1,a2\);)44
b(B:=Point\(b1,b2\);)f(C:=Point\(c1,c2\);)664 1359 y
FQ(The)25 b(midp)s(oin)m(t)e(p)s(erp)s(endiculars)f(of)j(\001)15
b FL(AB)5 b(C)32 b FQ(pass)25 b(through)g(a)h(common)g(p)s(oin)m(t)f
(since)900 1578 y FJ(concurrent\(mp\(A,B\),mp\(B,C\))o(,mp)o(\(C,A)o
(\)\);)664 1798 y FQ(simpli\014es)i(to)k(zero.)664 1858
y @beginspecial @setspecial @endspecial 145 x FN(Example)j(18)664
2166 y FQ(The)c(in)m(tersection)g(p)s(oin)m(t)g(of)g(the)h(midp)s(oin)m
(t)d(p)s(erp)s(endiculars)900 2385 y FJ(M:=intersection)p
1626 2385 29 4 v 31 w(point\(mp\(A,B\),mp\(B,C\)\);)664
2604 y FQ(is)i(the)g(cen)m(ter)i(of)e(the)h(circumscrib)s(ed)c(circle)j
(since)900 2823 y FJ(sqrdist\(M,A\))45 b(-)i(sqrdist\(M,B\);)664
3042 y FQ(simpli\014es)27 b(to)k(zero.)664 3103 y @beginspecial
@setspecial @endspecial 145 x FN(Example)j(19)664 3410
y FD(Euler's)f(line)p FQ(:)891 3630 y(The)25 b(cen)m(ter)g
FL(M)35 b FQ(of)25 b(the)g(circumscrib)s(ed)d(circle,)j(the)g(ortho)s
(cen)m(ter)h FL(H)31 b FQ(and)891 3743 y(the)d(barycen)m(ter)g
FL(S)33 b FQ(are)28 b(collinear)e(and)h FL(S)33 b FQ(divides)25
b FL(M)10 b(H)34 b FQ(with)27 b(ratio)g(1:2.)664 3962
y(Compute)j(the)h(co)s(ordinates)f(of)g(the)h(corresp)s(onding)d(p)s
(oin)m(ts)900 4182 y FJ(M:=intersection)p 1626 4182 V
31 w(point\(mp\(a,b,c\),mp\(b,c,)o(a\)\);)900 4295 y(H:=intersection)p
1626 4295 V 31 w(point\(altitude\(a,b,c\),a)o(ltit)o(ude)o(\(b,c)o
(,a\)\))o(;)900 4407 y(S:=intersection)p 1626 4407 V
31 w(point\(median\(a,b,c\),med)o(ian\()o(b,c)o(,a\)\))o(;)664
4627 y FQ(and)i(then)g(pro)m(v)m(e)h(that)900 4846 y
FJ(collinear\(M,H,S\);)900 4959 y(sqrdist\(S,varpoint\(M,H,2/3)o(\)\);)
p eop
%%Page: 369 369
369 368 bop 241 299 a @beginspecial @setspecial @endspecial
FM(43.4.)72 b(EXAMPLES)2082 b FQ(369)241 555 y(b)s(oth)29
b(simplify)e(to)k(zero.)p eop
%%Page: 370 370
370 369 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(370)691 b FM(CHAPTER)30 b(43.)72 b(GEOMETR)-8 b(Y:)30
b(PLANE)h(GEOMETR)-8 b(Y)p eop
%%Page: 371 371
371 370 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(44)241 1693 y FT(GNUPLOT:)74 b(Displa)-6 b(y)76 b(of)241
1942 y(functions)i(and)f(surfaces)1470 2415 y Fx(Herb)r(ert)26
b(Melenk)826 2506 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2598 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2689 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)1352 2810 y(e{mail:)35 b(melenk@zib.de)241
3054 y FQ(The)42 b FN(gn)m(uplot)i FQ(system)f(pro)m(vides)g(easy)g(to)
h(use)f(graphics)f(output)h(for)g(curv)m(es)g(or)241
3167 y(surfaces)d(whic)m(h)f(are)i(de\014ned)e(b)m(y)i(form)m(ulas)e
(and/or)i(data)g(sets.)72 b(The)40 b(REDUCE)241 3280
y(GNUPLOT)32 b(pac)m(k)-5 b(age)36 b(lets)c(one)i(use)e(the)i(GNUPLOT)e
(graphical)g(output)h(directly)241 3393 y(from)i(inside)e(REDUCE,)j
(either)f(for)h(the)g(in)m(teractiv)m(e)g(displa)m(y)e(of)i(curv)m
(es/surfaces)241 3506 y(or)30 b(for)g(the)h(pro)s(duction)d(of)j
(pictures)e(on)h(pap)s(er.)241 3669 y(F)-8 b(or)36 b(a)h(full)c
(understanding)g(of)j(use)g(of)g(the)g(REDUCE)g(GNUPLOT)f(pac)m(k)-5
b(age)38 b(it)d(is)241 3782 y(b)s(est)30 b(to)h(b)s(e)f(familiar)e
(with)h FN(gn)m(uplot)p FQ(.)241 3944 y(The)e(main)f(command)h(is)f
FJ(PLOT)p FQ(.)h(It)g(accepts)i(an)e(arbitrary)g(list)f(of)h(argumen)m
(ts)h(whic)m(h)241 4057 y(are)j(either)e(an)i(expression)e(to)i(b)s(e)f
(plotted,)g(a)h(range)f(expressions)f(or)i(an)f(option.)328
4288 y FH(load_package)39 b(gnuplot;)328 4388 y(plot\(w=sin\(a\),a=)o
(\(0)e(..)43 b(10\),xlabel="angl)o(e")o(,yl)o(ab)o(el)o(="s)o(in)o
(e"\))o(;)241 4632 y FQ(The)36 b(expression)g(can)h(b)s(e)f(in)f(one)i
(or)g(t)m(w)m(o)h(unkno)m(wns,)f(or)g(a)g(list)f(of)h(t)m(w)m(o)h
(functions)241 4745 y(for)30 b(the)g(x)h(and)e(y)i(v)-5
b(alues.)40 b(It)30 b(can)h(also)f(b)s(e)g(an)g(implicit)d(equation)k
(in)e(2-dimensional)241 4858 y(space.)1667 5187 y(371)p
eop
%%Page: 372 372
372 371 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(372)588 b FM(CHAPTER)29 b(44.)72 b(GNUPLOT:)30 b(PLOTTING)g
(FUNCTIONS)751 555 y FH(plot\(x**3+x*y**3-)o(9x)o(=0\))o(;)664
799 y FQ(The)38 b(dep)s(enden)m(t)f(and)g(indep)s(enden)m(t)f(v)-5
b(ariables)36 b(can)j(b)s(e)e(limited)f(to)i(a)h(range)f(with)664
912 y(the)28 b(syn)m(tax)h(sho)m(wn)e(in)g(the)i(\014rst)e(example.)39
b(If)28 b(omitted)g(the)g(indep)s(enden)m(t)e(v)-5 b(ariables)664
1025 y(range)45 b(from)e(-10)i(to)g(10)g(and)e(the)h(dep)s(enden)m(t)f
(v)-5 b(ariable)43 b(is)g(limited)f(only)h(b)m(y)h(the)664
1138 y(precision)29 b(of)h(the)h(IEEE)f(\015oating)g(p)s(oin)m(t)f
(arithmetic.)664 1301 y(There)21 b(are)i(a)f(great)h(deal)e(of)h
(options,)h(either)e(as)h(k)m(eyw)m(ords)g(or)g(as)g
FJ(variable=string)p FQ(.)664 1414 y(Options)29 b(include:)664
1576 y FJ(title)p FQ(:)39 b(assign)30 b(a)h(heading)e(\(default:)41
b(empt)m(y\))664 1739 y FJ(xlabel)p FQ(:)e(set)31 b(lab)s(el)e(for)h
(the)h(x)f(axis)664 1902 y FJ(ylabel)p FQ(:)39 b(set)31
b(lab)s(el)e(for)h(the)h(y)f(axis)664 2065 y FJ(zlabel)p
FQ(:)39 b(set)31 b(lab)s(el)e(for)h(the)h(z)f(axis)664
2227 y FJ(terminal)p FQ(:)39 b(select)31 b(an)f(output)g(device)664
2390 y FJ(size)p FQ(:)40 b(rescale)30 b(the)h(picture)664
2553 y FJ(view)p FQ(:)40 b(set)31 b(a)f(viewp)s(oin)m(t)664
2715 y FJ(\(no\)contour)p FQ(:)38 b(3d:)i(add)30 b(con)m(tour)h(lines)
664 2878 y FJ(\(no\)surface)p FQ(:)38 b(3d:)i(dra)m(w)30
b(surface)h(\(default:)40 b(y)m(es\))664 3041 y FJ(\(no\)hidden3d)p
FQ(:)e(3d:)i(remo)m(v)m(e)32 b(hidden)c(lines)h(\(default:)40
b(no\))664 3204 y(The)24 b(command)f FJ(PLOTRESET)e FQ(closes)j(the)g
(curren)m(t)g(GNUPLOT)g(windo)m(ws.)36 b(The)24 b(next)664
3317 y(call)30 b(to)h FJ(PLOT)e FQ(will)f(create)k(a)f(new)e(one.)664
3479 y(GNUPLOT)h(is)g(con)m(trolled)g(b)m(y)g(a)h(n)m(um)m(b)s(er)e(of)
h(switc)m(hes.)664 3642 y(Normally)44 b(all)f(in)m(termediate)i(data)g
(sets)g(are)g(deleted)g(after)g(terminating)e(a)i(plot)664
3755 y(session.)39 b(If)27 b(the)h(switc)m(h)f FJ(PLOTKEEP)e
FQ(is)i(set)h(on,)g(the)g(data)h(sets)f(are)g(k)m(ept)g(for)f(ev)m(en)m
(tual)664 3868 y(p)s(ost)j(pro)s(cessing)f(indep)s(enden)m(t)f(of)j
(REDUCE.)664 4031 y(In)22 b(general)h FJ(PLOT)f FQ(tries)g(to)h
(generate)h(smo)s(oth)f(pictures)f(b)m(y)g(ev)-5 b(aluating)22
b(the)h(functions)664 4143 y(at)40 b(in)m(terior)e(p)s(oin)m(ts)g(un)m
(til)g(the)h(distances)g(are)h(\014ne)e(enough.)68 b(This)37
b(can)j(require)e(a)664 4256 y(lot)h(of)h(computing)e(time)h(if)f(the)h
(single)f(function)g(ev)-5 b(aluation)38 b(is)g(exp)s(ensiv)m(e.)66
b(The)664 4369 y(re\014nemen)m(t)35 b(is)f(con)m(trolled)h(b)m(y)g(the)
g(switc)m(h)g FJ(PLOTREFINE)d FQ(whic)m(h)i(is)g(on)h(b)m(y)g(default.)
664 4482 y(When)24 b(y)m(ou)h(turn)e(it)h(o\013)h(the)g(functions)e
(will)e(b)s(e)j(ev)-5 b(aluated)25 b(only)e(at)i(the)g(basic)f(p)s(oin)
m(ts.)664 4645 y(The)34 b(in)m(teger)h(v)-5 b(alue)34
b(of)g(the)h(global)e(v)-5 b(ariable)33 b FJ(PLOT)p 2481
4645 29 4 v 34 w(XMESH)g FQ(de\014nes)g(the)i(n)m(um)m(b)s(er)e(of)664
4758 y(initial)25 b(function)h(ev)-5 b(aluations)26 b(in)g(x)i
(direction)e(for)h FJ(PLOT)p FQ(.)f(F)-8 b(or)28 b(2d)f(graphs)g
(additional)664 4871 y(p)s(oin)m(ts)g(will)f(b)s(e)h(used)h(as)g(long)g
(as)g FJ(plotrefine)e FQ(is)h(on.)40 b(F)-8 b(or)29 b(3d)f(graphs)f
(this)g(n)m(um)m(b)s(er)p eop
%%Page: 373 373
373 372 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(373)241 555 y(de\014nes)29 b(also)g(the)h(n)m(um)m(b)s(er)e
(of)i(mesh)f(lines)f(orthogonal)i(to)g(the)g(x)g(axis.)40
b FJ(PLOT)p 2964 555 29 4 v 33 w(YMESH)241 668 y FQ(de\014nes)d(for)h
(3d)g(plots)f(the)i(n)m(um)m(b)s(er)d(of)j(function)d(ev)-5
b(aluations)38 b(in)f(the)h(y)g(direction)241 781 y(and)30
b(the)g(n)m(um)m(b)s(er)f(of)i(mesh)f(lines)e(orthogonal)j(to)g(the)g
(y)f(axis.)241 944 y(The)38 b(grid)f(for)h(lo)s(calising)e(an)j
(implicitly)c(de\014ned)i(curv)m(e)i(in)e FJ(PLOT)g FQ(consists)h(of)h
(tri-)241 1057 y(angles.)k(These)31 b(are)h(computed)f(initially)d
(equally)i(distributed)f(o)m(v)m(er)j(the)g(x-y)f(plane)241
1170 y(con)m(trolled)37 b(b)m(y)h FJ(PLOT)p 1002 1170
V 33 w(XMESH)p FQ(.)e(The)h(grid)g(is)g(re\014ned)f(adaptiv)m(ely)h(in)
g(sev)m(eral)h(lev)m(els.)241 1282 y(The)30 b(\014nal)f(grid)g(can)h(b)
s(e)g(visualised)e(b)m(y)i(setting)h(on)f(the)g(switc)m(h)g
FJ(SHOW)p 2706 1282 V 33 w(GRID)p FQ(.)p eop
%%Page: 374 374
374 373 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(374)588 b FM(CHAPTER)29 b(44.)72 b(GNUPLOT:)30 b(PLOTTING)g
(FUNCTIONS)p eop
%%Page: 375 375
375 374 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(45)241 1693 y FT(GR)-6 b(OEBNER:)75 b(A)i(Gr\177)-116
b(obner)241 1942 y(basis)76 b(pac)-6 b(k)-13 b(age)1166
2424 y Fx(Herb)r(ert)26 b(Melenk)f(&)h(Winfried)g(Neun)826
2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1352
2819 y(e{mail:)35 b(melenk@zib.de)1673 2941 y(and)1529
3062 y(H.M.)26 b(M\177)-38 b(oller)927 3153 y(F)-6 b(ern)n(univ)n
(ersit\177)-38 b(at)25 b(Hagen)h(FB)g(Math)g(und)e(Informatik)1522
3245 y(P)n(ostfac)n(h)j(940)1295 3336 y(D{58084)g(Hagen,)g(German)n(y)
1025 3457 y(e{mail:)35 b(Mic)n(hael.Mo)r(eller@fern)n(uni-hagen.de)241
3701 y FQ(Gr\177)-45 b(obner)34 b(bases)h(are)g(a)h(v)-5
b(aluable)33 b(to)s(ol)i(for)g(solving)f(problems)f(in)h(connection)h
(with)241 3814 y(m)m(ultiv)-5 b(ariate)23 b(p)s(olynomials,)g(suc)m(h)h
(as)g(solving)f(systems)i(of)f(algebraic)g(equations)g(and)241
3927 y(analysing)29 b(p)s(olynomial)e(ideals.)241 4090
y(The)35 b(GR)m(OEBNER)i(pac)m(k)-5 b(age)38 b(calculates)e(Gr\177)-45
b(obner)36 b(bases)g(using)e(the)i(Buc)m(h)m(b)s(erger)241
4203 y(algorithm.)i(It)26 b(can)h(b)s(e)f(used)f(o)m(v)m(er)j(a)e(v)-5
b(ariet)m(y)27 b(of)f(di\013eren)m(t)g(co)s(e\016cien)m(t)h(domains,)f
(and)241 4316 y(for)k(di\013eren)m(t)g(v)-5 b(ariable)29
b(and)h(term)g(orderings.)241 4470 y @beginspecial @setspecial
@endspecial 182 x FE(45.1)241 4742 y @beginspecial @setspecial
@endspecial 1667 5187 a FQ(375)p eop
%%Page: 376 376
376 375 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(376)242 b FM(CHAPTER)30 b(45.)72 b(GR)m(OEBNER:)31
b(A)f(GR)2555 276 y(\177)2538 299 y(OBNER)h(BASIS)f(P)-8
b(A)m(CKA)m(GE)664 555 y FR(45.1.1)113 b(T)-9 b(erm)36
b(Ordering)664 777 y FQ(In)31 b(the)g(theory)g(of)g(Gr\177)-45
b(obner)31 b(bases,)g(the)h(terms)f(of)g(p)s(olynomials)d(are)k
(considered)e(as)664 890 y(ordered.)39 b(Sev)m(eral)26
b(order)g(mo)s(des)f(are)i(a)m(v)-5 b(ailable)25 b(in)g(the)h(curren)m
(t)g(pac)m(k)-5 b(age,)29 b(including)664 1002 y(the)i(basic)f(mo)s
(des:)1450 1244 y(LEX,)g(GRADLEX,)h(REV)m(GRADLEX)664
1487 y(All)h(orderings)g(are)i(based)f(on)g(an)g(ordering)g(among)h
(the)f(v)-5 b(ariables.)48 b(F)-8 b(or)35 b(eac)m(h)f(pair)664
1599 y(of)k(v)-5 b(ariables)36 b(\()p FL(a;)15 b(b)p
FQ(\))39 b(an)e(order)g(relation)g(m)m(ust)h(b)s(e)f(de\014ned,)h
FD(e.g.)101 b FQ(\\)p FL(a)37 b FP(\035)h FL(b)p FQ(".)62
b(The)664 1712 y(greater)29 b(sign)d FP(\035)h FQ(do)s(es)g(not)g
(represen)m(t)g(a)h(n)m(umerical)e(relation)g(among)i(the)f(v)-5
b(ariables;)664 1825 y(it)36 b(can)h(b)s(e)f(in)m(terpreted)g(only)f
(in)g(terms)i(of)g(form)m(ula)e(represen)m(tation:)53
b(\\)p FL(a)p FQ(")38 b(will)c(b)s(e)664 1938 y(placed)c(in)f(fron)m(t)
i(of)f(\\)p FL(b)p FQ(")h(or)g(\\)p FL(a)p FQ(")g(is)e(more)i
(complicated)f(than)g(\\)p FL(b)p FQ(".)664 2101 y(The)g(sequence)h(of)
f(v)-5 b(ariables)29 b(constitutes)i(this)e(order)h(base.)41
b(So)30 b(the)h(notion)f(of)1927 2293 y FP(f)p FL(x)p
FQ(1)p FL(;)15 b(x)p FQ(2)p FL(;)g(x)p FQ(3)p FP(g)664
2534 y FQ(as)31 b(a)g(list)e(of)h(v)-5 b(ariables)29
b(at)i(the)g(same)g(time)f(means)1871 2726 y FL(x)p FQ(1)c
FP(\035)f FL(x)p FQ(2)h FP(\035)f FL(x)p FQ(3)664 2918
y(with)k(resp)s(ect)i(to)g(the)f(term)h(order.)664 3081
y(If)42 b(terms)g(\(pro)s(ducts)f(of)h(p)s(o)m(w)m(ers)g(of)h(v)-5
b(ariables\))41 b(are)h(compared)g(with)f(LEX,)h(that)664
3194 y(term)26 b(is)f(c)m(hosen)i(whic)m(h)e(has)g(a)i(greater)g(v)-5
b(ariable)25 b(or)h(a)g(higher)f(degree)i(if)e(the)h(greatest)664
3307 y(v)-5 b(ariable)26 b(is)g(the)i(\014rst)e(in)g(b)s(oth.)39
b(With)27 b(GRADLEX)g(the)h(sum)e(of)h(all)f(exp)s(onen)m(ts)h(\(the)
664 3420 y(total)34 b(degree\))g(is)e(compared)h(\014rst,)g(and)f(if)g
(that)h(do)s(es)g(not)g(lead)f(to)i(a)f(decision,)g(the)664
3533 y(LEX)i(metho)s(d)e(is)h(tak)m(en)i(for)e(the)h(\014nal)e
(decision.)52 b(The)34 b(REV)m(GRADLEX)h(metho)s(d)664
3645 y(also)c(compares)g(the)f(total)i(degree)f(\014rst,)f(but)g
(afterw)m(ard)h(it)f(uses)g(the)h(LEX)f(metho)s(d)664
3758 y(in)k(the)g(rev)m(erse)i(direction;)g(this)d(is)h(the)h(metho)s
(d)f(originally)e(used)i(b)m(y)g(Buc)m(h)m(b)s(erger.)664
3871 y(Note)k(that)g(the)f(LEX)g(ordering)f(is)g(iden)m(tical)f(to)j
(the)f(standard)g(REDUCE)f(k)m(ernel)664 3984 y(ordering,)30
b(when)f(K)m(ORDER)h(is)g(set)h(explicitly)d(to)j(the)f(sequence)h(of)f
(v)-5 b(ariables.)664 4147 y(LEX)30 b(is)g(the)g(default)g(term)g
(order)g(mo)s(de)g(in)f(the)i(GR)m(OEBNER)g(pac)m(k)-5
b(age.)664 4300 y @beginspecial @setspecial @endspecial
181 x FE(45.2)136 b(The)44 b(Basic)h(Op)t(erators)664
4594 y @beginspecial @setspecial @endspecial 143 x FR(45.2.1)113
b(T)-9 b(erm)36 b(Ordering)h(Mo)s(de)664 4959 y FD(TORDER)45
b FQ(\()p FL(v)s(l)r FQ(,)p FL(m)p FQ(,[)p FL(p)1419
4973 y FO(1)1460 4959 y FL(;)15 b(p)1546 4973 y FO(2)1585
4959 y FL(;)g(:)g(:)g(:)r FQ(]\);)p eop
%%Page: 377 377
377 376 bop 241 299 a @beginspecial @setspecial @endspecial
FM(45.2.)72 b(THE)30 b(BASIC)g(OPERA)-8 b(TORS)1480 b
FQ(377)468 555 y(where)25 b FL(v)s(l)j FQ(is)c(a)i(v)-5
b(ariable)24 b(list)h(\(or)g(the)h(empt)m(y)g(list)e(if)h(no)g(v)-5
b(ariables)24 b(are)i(declared)468 668 y(explicitly\),)h
FL(m)h FQ(is)f(the)h(name)g(of)g(a)h(term)f(ordering)f(mo)s(de)g(LEX,)i
(GRADLEX,)468 781 y(REVGRADLEX)36 b(\(or)g(another)g(implemen)m(ted)e
(mo)s(de\))i(and)f([)p FL(p)2736 795 y FO(1)2775 781
y FL(;)15 b(p)2861 795 y FO(2)2901 781 y FL(;)g(:)g(:)g(:)q
FQ(])36 b(are)468 894 y(additional)26 b(parameters)j(for)f(the)g(term)h
(ordering)e(mo)s(de)g(\(not)i(needed)f(for)g(the)468
1007 y(basic)i(mo)s(des\).)468 1155 y(TORDER)44 b(sets)h(v)-5
b(ariable)43 b(set)j(and)e(the)g(term)h(ordering)e(mo)s(de.)83
b(The)44 b(de-)468 1268 y(fault)28 b(mo)s(de)g(is)f(LEX.)i(The)f
(previous)f(description)f(is)i(returned)f(as)i(a)g(list)e(with)468
1381 y(corresp)s(onding)36 b(elemen)m(ts.)63 b(Suc)m(h)37
b(a)h(list)e(can)i(alternativ)m(ely)f(passed)h(as)g(sole)468
1494 y(argumen)m(t)31 b(to)g(TORDER.)468 1642 y(If)d(the)g(v)-5
b(ariable)27 b(list)g(is)g(empt)m(y)i(or)f(if)f(the)i(TORDER)e
(declaration)h(is)f(omitted,)468 1755 y(the)k(automatic)g(v)-5
b(ariable)29 b(extraction)i(is)f(activ)-5 b(ated.)241
1938 y FD(GV)c(ARS)45 b FQ(\()p FP(f)p FD(exp)p FQ(1)p
FD(,)34 b(exp)p FQ(2)p FD(,)f FL(:)15 b(:)g(:)q FD(,)33
b(exp)p FL(n)p FP(g)p FQ(\);)468 2087 y(where)d FP(f)p
FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p FL(;)g(:)g(:)g(:)j(;)d(expn)p
FP(g)31 b FQ(is)f(a)g(list)f(of)i(expressions)e(or)h(equations.)468
2235 y(GV)-10 b(ARS)28 b(extracts)i(from)e(the)h(expressions)e
FP(f)p FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p FL(;)g(:)g(:)g(:)j(;)d
(expn)p FP(g)29 b FQ(the)g(k)m(er-)468 2348 y(nels,)39
b(whic)m(h)e(can)h(pla)m(y)g(the)g(role)g(of)g(v)-5 b(ariables)37
b(for)h(a)h(Gr\177)-45 b(obner)37 b(calculation.)468
2461 y(This)29 b(can)h(b)s(e)g(used)g FD(e.g.)72 b FQ(in)29
b(a)i(TORDER)f(declaration.)241 2604 y @beginspecial
@setspecial @endspecial 148 x FR(45.2.2)112 b(GR)m(OEBNER:)36
b(Calculation)f(of)j(a)g(Gr\177)-56 b(obner)37 b(Basis)241
2973 y FD(GR)n(OEBNER)44 b FP(f)p FL(exp)p FQ(1)p FL(;)15
b(exp)p FQ(2)p FL(;)g(:)g(:)g(:)k(;)c(expm)p FP(g)p FQ(;)468
3122 y(where)30 b FP(f)p FL(exp)p FQ(1)p FL(;)15 b(exp)p
FQ(2)p FL(;)g(:)g(:)g(:)j(;)d(expm)p FP(g)31 b FQ(is)f(a)h(list)e(of)h
(expressions)f(or)h(equations.)468 3270 y(GR)m(OEBNER)j(calculates)g
(the)g(Gr\177)-45 b(obner)32 b(basis)g(of)h(the)g(giv)m(en)f(set)i(of)e
(expres-)468 3383 y(sions)d(with)g(resp)s(ect)i(to)g(the)f(curren)m(t)h
(TORDER)e(setting.)468 3531 y(The)36 b(Gr\177)-45 b(obner)36
b(basis)f FP(f)p FQ(1)p FP(g)j FQ(means)e(that)h(the)g(ideal)e
(generated)i(b)m(y)g(the)f(input)468 3644 y(p)s(olynomials)j(is)i(the)i
(whole)e(p)s(olynomial)e(ring,)44 b(or)e(equiv)-5 b(alen)m(tly)d(,)45
b(that)d(the)468 3757 y(input)28 b(p)s(olynomials)g(ha)m(v)m(e)k(no)e
(zeros)h(in)e(common.)468 3905 y(As)h(a)g(side)f(e\013ect,)i(the)f
(sequence)g(of)g(v)-5 b(ariables)29 b(is)f(stored)i(as)g(a)g(REDUCE)g
(list)468 4018 y(in)f(the)i(shared)e(v)-5 b(ariable)29
b FJ(gvarslast)p FQ(.)241 4125 y @beginspecial @setspecial
@endspecial 130 x FN(Example)k(20)372 4461 y FH(torder\({},lex\)$)372
4560 y(groebner{3*x**2)o(*y)k(+)43 b(2*x*y)f(+)h(y)g(+)g(9*x**2)e(+)j
(5*x)e(-)h(3,)372 4660 y(2*x**3*y)d(-)j(x*y)f(-)h(y)h(+)f(6*x**3)e(-)i
(2*x**2)e(-)i(3*x)g(+)g(3,)372 4759 y(x**3*y)e(+)i(x**2*y)e(+)i(3*x**3)
e(+)i(2*x**2)e(};)895 4959 y(2)p eop
%%Page: 378 378
378 377 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(378)242 b FM(CHAPTER)30 b(45.)72 b(GR)m(OEBNER:)31
b(A)f(GR)2555 276 y(\177)2538 299 y(OBNER)h(BASIS)f(P)-8
b(A)m(CKA)m(GE)882 555 y FH({8*X)42 b(-)h(2*Y)86 b(+)43
b(5*Y)g(+)g(3,)1056 754 y(3)262 b(2)926 854 y(2*Y)86
b(-)43 b(3*Y)86 b(-)43 b(16*Y)f(+)h(21})664 1073 y FQ(The)30
b(op)s(eration)g(of)g(GR)m(OEBNER)h(can)g(b)s(e)f(con)m(trolled)g(b)m
(y)g(the)h(follo)m(wing)d(switc)m(hes:)664 1292 y FN(GR)m(OEBOPT)46
b FQ({)30 b(If)g(set)h(ON,)g(the)f(sequence)h(of)g(v)-5
b(ariables)29 b(is)g(optimized)h(with)f(re-)891 1405
y(sp)s(ect)23 b(to)g(execution)g(sp)s(eed;)h(note)f(that)g(the)g
(\014nal)e(list)g(of)i(v)-5 b(ariables)21 b(is)h(a)m(v)-5
b(ailable)891 1518 y(in)30 b(GV)-10 b(ARSLAST.)891 1664
y(An)37 b(explicitly)d(declared)i(dep)s(endency)g(sup)s(ersedes)f(the)i
(v)-5 b(ariable)35 b(optimiza-)891 1777 y(tion.)52 b(By)34
b(default)f(GR)m(OEBOPT)h(is)f(o\013,)i(conserving)f(the)g(original)e
(v)-5 b(ariable)891 1890 y(sequence.)664 2070 y FN(GR)m
(OEBFULLREDUCTION)45 b FQ({)27 b(If)f(set)h(o\013,)h(the)f(reduction)e
(steps)h(during)f(the)891 2183 y(GR)m(OEBNER)51 b(op)s(eration)f(are)g
(limited)e(to)j(the)f(pure)f(head)h(term)g(reduc-)891
2296 y(tion;)43 b(subsequen)m(t)38 b(terms)h(are)g(reduced)f
(otherwise.)66 b(By)39 b(default)f(GR)m(OEB-)891 2409
y(FULLREDUCTION)30 b(is)g(on.)664 2589 y FN(GL)-9 b(TBASIS)46
b FQ({)27 b(If)f(set)i(on,)f(the)g(leading)f(terms)g(of)h(the)g(result)
f(basis)f(are)i(extracted.)891 2702 y(They)h(are)g(collected)g(in)f(a)h
(basis)f(of)h(monomials,)f(whic)m(h)g(is)g(a)m(v)-5 b(ailable)27
b(as)h(v)-5 b(alue)891 2815 y(of)31 b(the)g(global)e(v)-5
b(ariable)29 b(with)g(the)i(name)f(GL)-8 b(TB.)664 2956
y @beginspecial @setspecial @endspecial 148 x FR(45.2.3)113
b(GZER)m(ODIM?:)49 b(T)-9 b(est)37 b(of)h Ft(dim)26 b(=)i(0)664
3326 y FD(GZER)n(ODIM)p FN(!?)44 b FL(bas)891 3439 y
FQ(where)22 b FD(b)-5 b(as)22 b FQ(is)f(a)h(Gr\177)-45
b(obner)21 b(basis)g(in)f(the)i(curren)m(t)g(setting.)38
b(The)21 b(result)g(is)f FD(NIL)p FQ(,)i(if)891 3552
y FD(b)-5 b(as)25 b FQ(is)e(the)h(basis)e(of)i(an)g(ideal)e(of)i(p)s
(olynomials)d(with)i(more)g(than)h(\014nitely)e(man)m(y)891
3664 y(common)33 b(zeros.)47 b(If)32 b(the)h(ideal)e(is)h(zero)h
(dimensional,)d FD(i.e.)80 b FQ(the)33 b(p)s(olynomials)891
3777 y(of)e(the)g(ideal)e(ha)m(v)m(e)j(only)e(\014nitely)e(man)m(y)j
(zeros)g(in)e(common,)i(the)g(result)e(is)h(an)891 3890
y(in)m(teger)37 b FL(k)i FQ(whic)m(h)34 b(is)h(the)h(n)m(um)m(b)s(er)f
(of)h(these)g(common)g(zeros)g(\(coun)m(ted)h(with)891
4003 y(m)m(ultiplicities\).)664 4150 y @beginspecial
@setspecial @endspecial 143 x FR(45.2.4)113 b(GDIMENSION,)36
b(GINDEPENDENT)p 2840 4293 34 4 v 37 w(SETS)664 4514
y FQ(The)44 b(follo)m(wing)e(op)s(erators)i(can)g(b)s(e)f(used)g(to)i
(compute)f(the)g(dimension)d(and)j(the)664 4627 y(indep)s(enden)m(t)30
b(v)-5 b(ariable)31 b(sets)h(of)g(an)g(ideal)e(whic)m(h)h(has)h(the)g
(Gr\177)-45 b(obner)31 b(basis)g FD(b)-5 b(as)32 b FQ(with)664
4740 y(arbitrary)d(term)i(order:)664 4959 y FN(Gdimension)46
b FL(bas)p eop
%%Page: 379 379
379 378 bop 241 299 a @beginspecial @setspecial @endspecial
FM(45.2.)72 b(THE)30 b(BASIC)g(OPERA)-8 b(TORS)1480 b
FQ(379)241 555 y FN(Gindep)s(enden)m(t)p 891 555 32 4
v 38 w(sets)45 b FL(bas)27 b FD(Gindep)-5 b(endent)p
1842 555 28 4 v 35 w(sets)28 b FQ(computes)f(the)h(maximal)e(left)g
(in-)468 668 y(dep)s(enden)m(t)34 b(v)-5 b(ariable)33
b(sets)i(of)f(the)h(ideal,)g(that)g(are)g(the)g(v)-5
b(ariable)33 b(sets)i(whic)m(h)468 781 y(pla)m(y)30 b(the)g(role)g(of)h
(free)f(parameters)h(in)e(the)h(curren)m(t)g(ideal)f(basis.)40
b(Eac)m(h)31 b(set)f(is)468 894 y(a)f(list)e(whic)m(h)h(is)f(a)i
(subset)g(of)f(the)h(v)-5 b(ariable)28 b(list.)38 b(The)29
b(result)e(is)h(a)h(list)e(of)i(these)468 1007 y(sets.)43
b(F)-8 b(or)32 b(an)f(ideal)f(with)g(dimension)e(zero)k(the)f(list)f
(is)g(empt)m(y)-8 b(.)44 b FD(GDimension)468 1120 y FQ(computes)29
b(the)g(dimension)e(of)i(the)g(ideal,)f(whic)m(h)g(is)g(the)h(maxim)m
(um)f(length)g(of)468 1233 y(the)j(indep)s(enden)m(t)d(sets.)241
1378 y @beginspecial @setspecial @endspecial 148 x FR(45.2.5)112
b(GLEX)m(CONVER)-9 b(T:)35 b(Con)m(v)m(ersion)j(to)f(a)g(Lexical)g
(Base)241 1747 y FD(GLEX)n(CONVER)-7 b(T)43 b FQ(\()q
FP(f)p FL(exp;)15 b(:)g(:)g(:)i(;)e(expm)p FP(g)g FQ([)q
FL(;)g FP(f)p FL(v)s(ar)s FQ(1)g FL(:)g(:)g(:)j(;)d(v)s(ar)s(n)p
FP(g)p FQ(])478 1860 y([)p FL(;)g(M)10 b(AX)d(D)s(E)e(G)26
b FQ(=)f FL(mx)p FQ(])15 b([)q FL(;)g(N)10 b(E)5 b(W)13
b(V)20 b(AR)q(S)30 b FQ(=)25 b FP(f)p FL(nv)s FQ(1)p
FL(;)15 b(:)g(:)g(:)j(;)d(nv)s(k)s FP(g)p FQ(])q(\))468
1973 y(where)34 b FP(f)p FL(exp)p FQ(1)p FL(;)15 b(:)g(:)g(:)i(;)e
(expm)p FP(g)35 b FQ(is)e(a)i(Gr\177)-45 b(obner)33 b(basis)g(with)g
FP(f)p FL(v)s(ar)s FQ(1)p FL(;)15 b(:)g(:)g(:)j(;)d(v)s(ar)s(n)p
FP(g)34 b FQ(as)468 2086 y(v)-5 b(ariables)49 b(in)g(the)h(curren)m(t)g
(term)g(order)g(mo)s(de,)55 b FL(mx)50 b FQ(is)f(an)h(in)m(teger,)56
b(and)468 2199 y FP(f)p FL(nv)s FQ(1)p FL(;)15 b(:)g(:)g(:)i(;)e(nv)s
(k)s FP(g)42 b FQ(is)d(a)i(subset)f(of)g(the)h(basis)e(v)-5
b(ariables.)70 b(F)-8 b(or)41 b(this)e(op)s(erator)468
2312 y(the)31 b(source)f(and)g(target)i(v)-5 b(ariable)29
b(sets)i(m)m(ust)f(b)s(e)g(sp)s(eci\014ed)e(explicitly)-8
b(.)241 2574 y(GLEX)m(CONVER)g(T)23 b(con)m(v)m(erts)h(a)f(basis)e(of)i
(a)g(zero-dimensional)e(ideal)g(\(\014nite)h(n)m(um)m(b)s(er)241
2687 y(of)j(isolated)g(solutions\))f(from)g(arbitrary)g(ordering)g(in)m
(to)h(a)h(basis)e(under)f FD(lex)j FQ(ordering.)241 2800
y(During)g(the)i(call)f(of)h(GLEX)m(CONVER)-8 b(T)27
b(the)h(original)e(ordering)g(of)i(the)g(input)e(basis)241
2913 y(m)m(ust)k(b)s(e)g(still)e(activ)m(e.)241 3076
y(NEWV)-10 b(ARS)28 b(de\014nes)f(the)h(new)f(v)-5 b(ariable)27
b(sequence.)40 b(If)27 b(omitted,)i(the)f(original)e(v)-5
b(ari-)241 3189 y(able)40 b(sequence)h(is)e(used.)70
b(If)40 b(only)g(a)h(subset)e(of)i(v)-5 b(ariables)39
b(is)h(sp)s(eci\014ed)e(here,)43 b(the)241 3302 y(partial)32
b(ideal)g(basis)g(is)h(ev)-5 b(aluated.)49 b(F)-8 b(or)34
b(the)g(calculation)e(of)i(a)g(univ)-5 b(ariate)32 b(p)s(olyno-)241
3414 y(mial,)d(NEWV)-10 b(ARS)31 b(should)d(b)s(e)i(a)g(list)f(with)g
(one)i(elemen)m(t.)241 3577 y(MAXDEG)k(is)e(an)i(upp)s(er)d(limit)g
(for)i(the)g(degrees.)53 b(The)33 b(algorithm)h(stops)g(with)f(an)241
3690 y(error)d(message,)h(if)f(this)f(limit)f(is)i(reac)m(hed.)241
3853 y(A)g(w)m(arning)f(o)s(ccurs)i(if)e(the)h(ideal)g(is)f(not)i(zero)
g(dimensional.)241 4016 y(GLEX)m(CONVER)-8 b(T)25 b(is)g(an)g(implemen)
m(tation)f(of)h(the)h(FLGM)g(algorithm.)38 b(Often,)26
b(the)241 4128 y(calculation)20 b(of)h(a)h(Gr\177)-45
b(obner)21 b(basis)f(with)f(a)j(graded)f(ordering)f(and)g(subsequen)m
(t)h(con)m(v)m(er-)241 4241 y(sion)29 b(to)i FD(lex)f
FQ(is)g(faster)g(than)g(a)h(direct)f FD(lex)g FQ(calculation.)40
b(Additionally)-8 b(,)28 b(GLEX)m(CON-)241 4354 y(VER)-8
b(T)31 b(can)h(b)s(e)e(used)h(to)h(transform)f(a)g FD(lex)h
FQ(basis)e(in)m(to)h(one)h(with)e(di\013eren)m(t)h(v)-5
b(ariable)241 4467 y(sequence,)31 b(and)f(it)g(supp)s(orts)f(the)h
(calculation)g(of)h(a)g(univ)-5 b(ariate)29 b(p)s(olynomial.)38
b(If)30 b(the)241 4580 y(latter)37 b(exists,)h(the)f(algorithm)e(is)h
(ev)m(en)h(applicable)e(in)g(the)i(non)f(zero-dimensional)241
4693 y(case,)31 b(if)f(suc)m(h)g(a)h(p)s(olynomial)c(exists.)372
4924 y FH(torder\({{w,p,z,)o(t,)o(s,b)o(},)o(gra)o(dl)o(ex\))p
eop
%%Page: 380 380
380 379 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(380)242 b FM(CHAPTER)30 b(45.)72 b(GR)m(OEBNER:)31
b(A)f(GR)2555 276 y(\177)2538 299 y(OBNER)h(BASIS)f(P)-8
b(A)m(CKA)m(GE)795 655 y FH(g)87 b(:=)f(groebner)e({)43
b(f1)g(:=)g(45*p)f(+)h(35*s)f(-165*b)f(-36,)1056 754
y(35*p)h(+)i(40*z)d(+)j(25*t)e(-)h(27*s,)e(15*w)h(+)h(25*p*s)e(+30*z)h
(-18*t)1013 854 y(-165*b**2,)d(-9*w)j(+)h(15*p*t)85 b(+)43
b(20*z*s,)1013 954 y(w*p)f(+)h(2*z*t)f(-)h(11*b**3,)d(99*w)i(-)h
(11*s*b)f(+3*b**2,)1013 1053 y(b**2)g(+)h(33/50*b)e(+)i(2673/10000};)
751 1253 y(G)h(:=)e({60000*W)f(+)i(9500*B)e(+)i(3969,)926
1452 y(1800*P)e(-)i(3100*B)e(-)i(1377,)926 1651 y(18000*Z)d(+)k
(24500*B)c(+)j(10287,)926 1850 y(750*T)e(-)i(1850*B)e(+)j(81,)926
2050 y(200*S)d(-)i(500*B)f(-)h(9,)1231 2149 y(2)926 2249
y(10000*B)84 b(+)43 b(6600*B)e(+)i(2673})795 2448 y(glexconvert\(g,{w)o
(,p)o(,z,)o(t,)o(s,b)o(},)o(max)o(de)o(g=)o(5,n)o(ew)o(var)o(s=)o({w)o
(}\);)1318 2647 y(2)839 2747 y(100000000*W)82 b(+)43
b(2780000*W)d(+)j(416421)795 2946 y(glexconvert\(g,{w)o(,p)o(,z,)o(t,)o
(s,b)o(},)o(max)o(de)o(g=)o(5,n)o(ew)o(var)o(s=)o({p)o(}\);)1100
3145 y(2)839 3245 y(6000*P)84 b(-)43 b(2360*P)e(+)j(3051)664
3472 y @beginspecial @setspecial @endspecial 166 x FR(45.2.6)113
b(GR)m(OEBNERF:)35 b(F)-9 b(actorizing)36 b(Gr\177)-56
b(obner)38 b(Bases)664 3859 y FQ(If)31 b(Gr\177)-45 b(obner)30
b(bases)i(are)f(computed)g(in)f(order)h(to)h(solv)m(e)f(systems)h(of)f
(equations)g(or)g(to)664 3972 y(\014nd)39 b(the)h(common)g(ro)s(ots)g
(of)g(systems)g(of)h(p)s(olynomials,)e(the)i(factorizing)e(v)m(ersion)
664 4085 y(of)h(the)g(Buc)m(h)m(b)s(erger)g(algorithm)e(can)i(b)s(e)f
(used.)68 b(The)39 b(theoretical)h(bac)m(kground)g(is)664
4198 y(simple:)g(if)30 b(a)h(p)s(olynomial)d FL(p)j FQ(can)g(b)s(e)g
(represen)m(ted)g(as)g(a)g(pro)s(duct)f(of)h(t)m(w)m(o)h(\(or)f(more\))
664 4311 y(p)s(olynomials,)25 b FD(e.g.)69 b FL(h)26
b FQ(=)e FL(f)g FP(\003)14 b FL(g)s FQ(,)29 b(then)e
FL(h)g FQ(v)-5 b(anishes)26 b(if)g(and)h(only)f(if)h(one)g(of)h(the)f
(factors)664 4424 y(v)-5 b(anishes.)70 b(So)40 b(if)f(during)f(the)j
(calculation)f(of)g(a)h(Gr\177)-45 b(obner)40 b(basis)f
FL(h)i FQ(of)f(the)h(ab)s(o)m(v)m(e)664 4537 y(form)28
b(is)f(detected,)k(the)d(whole)g(problem)e(can)j(b)s(e)f(split)e(in)m
(to)i(t)m(w)m(o)i(\(or)f(more\))g(disjoin)m(t)664 4650
y(branc)m(hes.)46 b(Eac)m(h)33 b(of)f(the)h(branc)m(hes)e(is)h(simpler)
d(than)j(the)h(complete)f(problem;)g(this)664 4763 y(sa)m(v)m(es)i
(computing)d(time)h(and)g(space.)47 b(The)31 b(result)g(of)i(this)e(t)m
(yp)s(e)h(of)h(computation)f(is)664 4876 y(a)h(list)e(of)h(\(partial\))
g(Gr\177)-45 b(obner)31 b(bases;)i(the)g(solution)e(set)h(of)h(the)f
(original)e(problem)h(is)p eop
%%Page: 381 381
381 380 bop 241 299 a @beginspecial @setspecial @endspecial
FM(45.2.)72 b(THE)30 b(BASIC)g(OPERA)-8 b(TORS)1480 b
FQ(381)241 555 y(the)31 b(union)e(of)i(the)f(solutions)g(of)h(the)f
(partial)g(problems,)f(ignoring)h(the)g(m)m(ultiplicit)m(y)241
668 y(of)43 b(an)f(individual)d(solution.)76 b(If)43
b(a)g(branc)m(h)f(results)g(in)f(a)j(basis)d FP(f)p FQ(1)p
FP(g)p FQ(,)48 b(then)42 b(there)241 781 y(is)h(no)i(common)g(zero,)k
FD(i.e.)c FQ(no)g(additional)d(solution)i(for)g(the)h(original)e
(problem,)241 894 y(con)m(tributed)29 b(b)m(y)i(this)e(branc)m(h.)241
1184 y FN(GR)m(OEBNERF)35 b(Call)241 1405 y FQ(The)30
b(syn)m(tax)h(of)f(GR)m(OEBNERF)h(is)f(the)g(same)h(as)g(for)f(GR)m
(OEBNER.)559 1610 y FD(GR)n(OEBNERF)p FQ(\()p FP(f)p
FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p FL(;)g(:)g(:)g(:)k(;)c(expm)p
FP(g)p FQ([)p FL(;)g FP(fg)p FL(;)g FP(f)p FL(nz)t FQ(1)p
FL(;)g(:)g(:)g(:)20 b(nz)t(k)s FP(g)p FQ(\);)241 1814
y(where)k FP(f)p FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p
FL(;)g(:)g(:)g(:)k(;)c(expm)p FP(g)25 b FQ(is)f(a)i(giv)m(en)f(list)e
(of)i(expressions)f(or)h(equations,)h(and)241 1927 y
FP(f)p FL(nz)t FQ(1)p FL(;)15 b(:)g(:)g(:)i(nz)t(k)s
FP(g)31 b FQ(is)e(an)i(optional)e(list)g(of)i(p)s(olynomials)c(kno)m
(wn)j(to)h(b)s(e)f(non-zero.)241 2089 y(GR)m(OEBNERF)k(tries)f(to)h
(separate)g(p)s(olynomials)c(in)m(to)j(individual)c(factors)34
b(and)f(to)241 2202 y(branc)m(h)43 b(the)g(computation)g(in)f(a)i
(recursiv)m(e)f(manner)f(\(factorisation)i(tree\).)81
b(The)241 2315 y(result)30 b(is)h(a)h(list)e(of)i(partial)e(Gr\177)-45
b(obner)31 b(bases.)44 b(If)31 b(no)h(factorisation)f(can)h(b)s(e)f
(found)f(or)241 2428 y(if)g(all)g(branc)m(hes)h(but)g(one)h(lead)f(to)h
(the)g(trivial)d(basis)h FP(f)p FQ(1)p FP(g)p FQ(,)k(the)d(result)g
(has)g(only)f(one)241 2541 y(basis;)f(nev)m(ertheless)g(it)f(is)h(a)g
(list)f(of)i(lists)e(of)h(p)s(olynomials.)37 b(If)29
b(no)g(solution)f(is)h(found,)241 2654 y(the)h(result)f(will)e(b)s(e)j
FP(ff)p FQ(1)p FP(gg)p FQ(.)43 b(Multiplicities)26 b(\(one)31
b(factor)g(with)e(a)h(higher)f(p)s(o)m(w)m(er,)h(the)241
2767 y(same)k(partial)f(basis)f(t)m(wice\))j(are)f(deleted)f(as)h
(early)g(as)g(p)s(ossible)d(in)i(order)g(to)h(sp)s(eed)241
2880 y(up)29 b(the)i(calculation.)40 b(The)29 b(factorising)h(is)g(con)
m(trolled)g(b)m(y)g(some)h(switc)m(hes.)241 3042 y(As)c(a)h(side)e
(e\013ect,)k(the)e(sequence)g(of)f(v)-5 b(ariables)26
b(is)h(stored)g(as)h(a)g(REDUCE)f(list)f(in)g(the)241
3155 y(shared)j(v)-5 b(ariable)1534 3375 y(gv)g(arslast)30
b(.)241 3594 y(If)k(GL)-8 b(TBASIS)33 b(is)h(on,)h(a)g(corresp)s
(onding)d(list)h(of)h(leading)g(term)g(bases)g(is)f(also)i(pro-)241
3707 y(duced)29 b(and)h(is)g(a)m(v)-5 b(ailable)29 b(in)g(the)i(v)-5
b(ariable)29 b(GL)-8 b(TB.)241 3869 y(The)25 b(third)g(parameter)i(of)f
(GR)m(OEBNERF)h(allo)m(ws)f(one)g(to)h(declare)f(some)h(p)s(olynom-)241
3982 y(ials)20 b(nonzero.)39 b(If)21 b(an)m(y)h(of)g(these)g(is)f
(found)g(in)f(a)j(branc)m(h)e(of)h(the)g(calculation)f(the)h(branc)m(h)
241 4095 y(is)34 b(cancelled.)55 b(This)34 b(can)h(b)s(e)g(used)f(to)j
(sa)m(v)m(e)f(a)g(substan)m(tial)e(amoun)m(t)i(of)f(computing)241
4208 y(time.)43 b(The)31 b(second)g(parameter)h(m)m(ust)f(b)s(e)g
(included)d(as)k(an)f(empt)m(y)h(list)e(if)g(the)h(third)241
4321 y(parameter)g(is)e(to)i(b)s(e)f(used.)372 4552 y
FH(torder\({x,y},le)o(x\))o($)372 4651 y(groebnerf)39
b({)44 b(3*x**2*y)c(+)j(2*x*y)f(+)h(y)g(+)g(9*x**2)e(+)i(5*x)g(=)g(3,)
895 4751 y(2*x**3*y)d(-)j(x*y)f(-)i(y)f(+)g(6*x**3)e(-)i(2*x**2)e(-)i
(3*x)g(=)g(-3,)938 4851 y(x**3*y)e(+)i(x**2*y)f(+)h(3*x**3)e(+)i
(2*x**2)e(};)p eop
%%Page: 382 382
382 381 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(382)242 b FM(CHAPTER)30 b(45.)72 b(GR)m(OEBNER:)31
b(A)f(GR)2555 276 y(\177)2538 299 y(OBNER)h(BASIS)f(P)-8
b(A)m(CKA)m(GE)969 655 y FH({{Y)43 b(-)g(3,X},)1623 854
y(2)839 954 y({2*Y)e(+)j(2*X)e(-)h(1,2*X)85 b(-)43 b(5*X)g(-)g(5}})664
1198 y FQ(It)31 b(is)f(ob)m(vious)g(here)g(that)h(the)g(solutions)e(of)
i(the)g(equations)f(can)h(b)s(e)f(read)g(o\013)h(imme-)664
1311 y(diately)-8 b(.)664 1473 y(All)29 b(switc)m(hes)h(from)g(GR)m
(OEBNER)h(are)g(v)-5 b(alid)29 b(for)h(GR)m(OEBNERF)h(as)g(w)m(ell:)
1587 1667 y(GR)m(OEBOPT)1587 1780 y(GL)-8 b(TBASIS)1587
1893 y(GR)m(OEBFULLREDUCTION)1587 2006 y(GR)m(OEBST)g(A)g(T)1587
2119 y(TR)m(GR)m(OEB)1587 2232 y(TR)m(GR)m(OEBS)1587
2344 y(TR)m(GR)m(OEB1)664 2627 y FN(Restriction)36 b(of)f(the)f
(Solution)i(Space)664 2848 y FQ(In)f(some)i(applications)d(only)h(a)h
(subset)f(of)h(the)g(complete)h(solution)d(set)j(of)f(a)g(giv)m(en)664
2961 y(set)26 b(of)g(equations)g(is)e(relev)-5 b(an)m(t,)27
b FD(e.g.)67 b FQ(only)24 b(nonnegativ)m(e)j(v)-5 b(alues)25
b(or)g(p)s(ositiv)m(e)g(de\014nite)664 3074 y(v)-5 b(alues)40
b(for)g(the)g(v)-5 b(ariables.)69 b(A)40 b(signi\014can)m(t)g(amoun)m
(t)g(of)h(computing)e(time)h(can)h(b)s(e)664 3187 y(sa)m(v)m(ed)32
b(if)d(nonrelev)-5 b(an)m(t)30 b(computation)g(branc)m(hes)g(can)h(b)s
(e)f(terminated)g(early)-8 b(.)664 3350 y(P)m(ositivit)m(y:)39
b(If)26 b(a)h(p)s(olynomial)d(has)j(no)g(\(strictly\))f(p)s(ositiv)m(e)
g(zero,)j(then)d(ev)m(ery)i(system)664 3463 y(con)m(taining)41
b(it)f(has)h(no)g(nonnegativ)m(e)h(or)f(strictly)f(p)s(ositiv)m(e)g
(solution.)71 b(Therefore,)664 3576 y(the)30 b(Buc)m(h)m(b)s(erger)g
(algorithm)e(tests)j(the)e(co)s(e\016cien)m(ts)i(of)e(the)h(p)s
(olynomials)d(for)i(equal)664 3688 y(sign)k(if)g(requested.)50
b(F)-8 b(or)35 b(example,)f(in)e(13)24 b FP(\003)f FL(x)f
FQ(+)g(15)h FP(\003)g FL(y)j FP(\003)c FL(z)38 b FQ(can)c(b)s(e)f(zero)
i(with)d(real)664 3801 y(nonnegativ)m(e)f(v)-5 b(alues)30
b(for)g FL(x;)15 b(y)34 b FQ(and)c FL(z)35 b FQ(only)29
b(if)h FL(x)25 b FQ(=)g(0)31 b(and)f FL(y)e FQ(=)d(0)31
b(or)g FL(z)e FQ(=)c(0;)32 b(this)d(is)h(a)664 3914 y(sort)i(of)g
(\\factorization)h(b)m(y)e(restriction".)44 b(A)32 b(p)s(olynomial)d
(13)22 b FP(\003)f FL(x)g FQ(+)g(15)h FP(\003)g FL(y)h
FP(\003)f FL(z)j FQ(+)c(20)664 4027 y(nev)m(er)31 b(can)g(v)-5
b(anish)28 b(with)h(nonnegativ)m(e)i(real)f(v)-5 b(ariable)30
b(v)-5 b(alues.)664 4190 y(Zero)37 b(p)s(oin)m(t:)53
b(If)36 b(an)m(y)i(p)s(olynomial)c(in)h(an)i(ideal)f(has)h(an)f
(absolute)h(term,)i(the)e(ideal)664 4303 y(cannot)31
b(ha)m(v)m(e)h(the)e(origin)f(p)s(oin)m(t)h(as)g(a)h(common)g
(solution.)664 4466 y(By)g(setting)f(the)h(shared)f(v)-5
b(ariable)1668 4685 y(GR)m(OEBRESTRICTION)664 4904 y(GR)m(OEBNERF)23
b(is)e(informed)f(of)i(the)g(t)m(yp)s(e)g(of)h(restriction)e(the)h
(user)f(w)m(an)m(ts)i(to)f(imp)s(ose)p eop
%%Page: 383 383
383 382 bop 241 299 a @beginspecial @setspecial @endspecial
FM(45.2.)72 b(THE)30 b(BASIC)g(OPERA)-8 b(TORS)1480 b
FQ(383)241 555 y(on)30 b(the)h(solutions:)291 862 y FD(GR)n
(OEBRESTRICTION:=NONEGA)-7 b(TIVE;)439 975 y FQ(only)29
b(nonnegativ)m(e)j(real)e(solutions)e(are)j(of)g(in)m(terest)291
1182 y FD(GR)n(OEBRESTRICTION:=POSITIVE;)409 1295 y FQ(only)e
(nonnegativ)m(e)i(and)f(nonzero)h(solutions)d(are)j(of)g(in)m(terest)
291 1502 y FD(GR)n(OEBRESTRICTION:=ZER)n(OPOINT;)409
1615 y FQ(only)e(solution)g(sets)i(whic)m(h)e(con)m(tain)i(the)f(p)s
(oin)m(t)g FP(f)p FQ(0)p FL(;)15 b FQ(0)p FL(;)g(:)g(:)g(:)j(;)d
FQ(0)p FP(g)32 b FQ(are)e(or)h(in)m(terest.)241 1827
y(If)43 b(GR)m(OEBNERF)h(detects)h(a)f(p)s(olynomial)d(whic)m(h)h
(formally)g(con\015icts)h(with)f(the)241 1940 y(restriction,)f(it)f
(either)g(splits)e(the)i(calculation)f(in)m(to)h(separate)h(branc)m
(hes,)h(or,)h(if)c(a)241 2053 y(violation)d(of)h(the)g(restriction)f
(is)g(determined,)h(it)g(cancels)g(the)g(actual)g(calculation)241
2166 y(branc)m(h.)241 2293 y @beginspecial @setspecial
@endspecial 166 x FR(45.2.7)112 b(GREDUCE,)37 b(PREDUCE:)e(Reduction)i
(of)g(P)m(olynomials)241 2680 y FN(Bac)m(kground)241
2902 y FQ(Reduction)d(of)i(a)g(p)s(olynomial)c(\\p")k(mo)s(dulo)e(a)i
(giv)m(en)f(sets)h(of)f(p)s(olynomials)e(\\B")j(is)241
3015 y(done)28 b(b)m(y)g(the)h(reduction)f(algorithm)f(incorp)s(orated)
h(in)f(the)i(Buc)m(h)m(b)s(erger)f(algorithm.)241 3305
y FN(Reduction)36 b(via)e(Gr\177)-52 b(obner)36 b(Basis)g(Calculation)
892 3617 y FD(GREDUCE)o FQ(\()p FL(exp;)15 b FP(f)p FL(exp)p
FQ(1)p FL(;)g(exp)p FQ(2)p FL(;)g(:)g(:)g(:)k(;)c(expm)p
FP(g)p FQ(]\);)241 3822 y(where)26 b FD(exp)h FQ(is)e(an)h(expression,)
h(and)f FP(f)p FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p
FL(;)g(:)g(:)g(:)j(;)d(expm)p FP(g)27 b FQ(is)f(a)g(list)g(of)g(an)m(y)
h(n)m(um-)241 3934 y(b)s(er)i(of)i(expressions)e(or)h(equations.)241
4097 y(GREDUCE)53 b(\014rst)f(con)m(v)m(erts)i(the)f(list)f(of)h
(expressions)f FP(f)p FL(exp)p FQ(1)p FL(;)15 b(:)g(:)g(:)i(;)e(expn)p
FP(g)53 b FQ(to)h(a)241 4210 y(Gr\177)-45 b(obner)39
b(basis,)j(and)d(then)h(reduces)g(the)g(giv)m(en)g(expression)f(mo)s
(dulo)g(that)h(basis.)241 4323 y(An)27 b(error)h(results)f(if)f(the)j
(list)d(of)i(expressions)f(is)g(inconsisten)m(t.)39 b(The)27
b(returned)g(v)-5 b(alue)241 4436 y(is)22 b(an)i(expression)e(represen)
m(ting)h(the)h(reduced)f(p)s(olynomial.)35 b(As)24 b(a)g(side)e
(e\013ect,)27 b(GRE-)241 4549 y(DUCE)f(sets)h(the)f(v)-5
b(ariable)25 b FD(gvarslast)j FQ(in)d(the)h(same)h(manner)e(as)i(GR)m
(OEBNER)g(do)s(es.)p eop
%%Page: 384 384
384 383 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(384)242 b FM(CHAPTER)30 b(45.)72 b(GR)m(OEBNER:)31
b(A)f(GR)2555 276 y(\177)2538 299 y(OBNER)h(BASIS)f(P)-8
b(A)m(CKA)m(GE)664 555 y FN(Reduction)36 b(with)e(Resp)s(ect)i(to)e
(Arbitrary)h(P)m(olynomials)1305 886 y FL(P)13 b(R)q(E)5
b(D)s(U)10 b(C)d(E)e FQ(\()p FL(exp;)15 b FP(f)p FL(exp)p
FQ(1)p FL(;)g(exp)p FQ(2)p FL(;)g(:)g(:)g(:)k(;)c(expm)p
FP(g)p FQ(\);)664 1090 y(where)25 b FL(exp)h FQ(is)f(an)g(expression,)h
(and)f FP(f)p FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p
FL(;)g(:)g(:)g(:)j(;)d(expm)p FP(g)27 b FQ(is)d(a)i(list)f(of)g(an)m(y)
h(n)m(um-)664 1203 y(b)s(er)k(of)g(expressions)f(or)h(equations.)664
1366 y(PREDUCE)g(reduces)g(the)g(giv)m(en)h(expression)e(mo)s(dulo)f
(the)j(set)f FP(f)p FL(exp)p FQ(1)p FL(;)15 b(:)g(:)g(:)j(;)d(expm)p
FP(g)p FQ(.)664 1478 y(If)36 b(this)e(set)j(is)d(a)j(Gr\177)-45
b(obner)35 b(basis,)h(the)g(obtained)f(reduced)g(expression)g(is)g
(uniquely)664 1591 y(determined.)119 b(If)57 b(not,)64
b(then)57 b(it)f(dep)s(ends)f(on)i(the)g(subsequence)g(of)g(the)g(sin-)
664 1704 y(gle)f(reduction)f(steps)h(\(see)h @beginspecial
@setspecial @endspecial(45.2.7)s(\).)118 b(PREDUCE)56
b(do)s(es)g(not)g(c)m(hec)m(k)i(whether)664 1817 y FP(f)p
FL(exp)p FQ(1)p FL(;)15 b(exp)p FQ(2)p FL(;)g(:)g(:)g(:)k(;)c(expm)p
FP(g)37 b FQ(is)e(a)i(Gr\177)-45 b(obner)36 b(basis)g(in)f(the)i
(actual)g(order.)59 b(Therefore,)664 1930 y(if)44 b(the)i(expressions)e
(are)h(a)h(Gr\177)-45 b(obner)44 b(basis)g(calculated)h(earlier)g(with)
f(a)h(v)-5 b(ariable)664 2043 y(sequence)38 b(giv)m(en)f(explicitly)e
(or)i(mo)s(di\014ed)e(b)m(y)i(optimisation,)g(the)g(prop)s(er)f(v)-5
b(ariable)664 2156 y(sequence)31 b(and)f(term)g(order)g(m)m(ust)g(b)s
(e)g(activ)-5 b(ated)31 b(\014rst.)664 2174 y @beginspecial
@setspecial @endspecial 131 x FN(Example)j(21)p FQ(\(PREDUCE)d(called)e
(with)h(a)g(Gr\177)-45 b(obner)30 b(basis\):)751 2511
y FH(torder\({x,y},lex\))o(;)751 2611 y(gb:=groebner{3*x*)o(*2)o(*y)37
b(+)43 b(2*x*y)f(+)h(y)g(+)g(9*x**2)f(+)h(5*x)f(-)h(3,)1318
2710 y(2*x**3*y)d(-)j(x*y)g(-)g(y)g(+)g(6*x**3)e(-)j(2*x**2)d(-)i(3*x)f
(+)h(3,)1318 2810 y(x**3*y)e(+)i(x**2*y)e(+)j(3*x**3)d(+)i(2*x**2}$)751
2910 y(preduce)e(\(5*y**2)g(+)i(2*x**2*y)d(+)j(5/2*x*y)e(+)i(3/2*y)1231
3009 y(+)g(8*x**2)e(+)i(3/2*x)f(-)h(9/2,)f(gb\);)926
3209 y(2)882 3308 y(Y)664 3445 y @beginspecial @setspecial
@endspecial 199 x FE(45.3)136 b(Ideal)31 b(Decomp)t(osition)g(&)e
(Equation)i(System)g(Solv-)1038 3794 y(ing)664 4047 y
FQ(Based)46 b(on)f(the)g(elemen)m(tary)h(Gr\177)-45 b(obner)44
b(op)s(erations,)49 b(the)c(GR)m(OEBNER)h(pac)m(k)-5
b(age)664 4160 y(o\013ers)42 b(additional)d(op)s(erators,)45
b(whic)m(h)40 b(allo)m(w)g(the)i(decomp)s(osition)e(of)i(an)f(ideal)f
(or)664 4272 y(of)f(a)f(system)h(of)f(equations)g(do)m(wn)g(to)h(the)f
(individual)c(solutions.)63 b(Details)38 b(of)h(the)664
4385 y(op)s(erators)45 b(GR)m(OESOL)-10 b(VE,)44 b(GR)m(OEBNERF)h(and)f
(IDEALQUOTIENT)g(can)h(b)s(e)664 4498 y(found)29 b(in)g(the)i(full)d
(do)s(cumen)m(tation,)i(with)f(asso)s(ciated)i(functions.)p
eop
%%Page: 385 385
385 384 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(46)241 1693 y FT(IDEALS:)75 b(Arithmetic)i(for)241
1942 y(p)6 b(olynomial)76 b(ideals)1470 2424 y Fx(Herb)r(ert)26
b(Melenk)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)1352 2819 y(e{mail:)35 b(melenk@zib.de)241
3055 y FQ(This)c(pac)m(k)-5 b(age)36 b(implemen)m(ts)31
b(the)j(basic)e(arithmetic)h(for)g(p)s(olynomial)e(ideals)h(b)m(y)h
(ex-)241 3168 y(ploiting)22 b(the)i(Gr\177)-45 b(obner)24
b(bases)g(pac)m(k)-5 b(age)27 b(of)d(REDUCE.)g(In)g(order)g(to)h(sa)m
(v)m(e)g(computing)241 3281 y(time)d(all)g(in)m(termediate)h(Gr\177)-45
b(obner)22 b(bases)h(are)h(stored)f(in)m(ternally)e(suc)m(h)i(that)g
(time)g(con-)241 3394 y(suming)28 b(rep)s(etitions)h(are)i(inhibited.)
37 b(A)31 b(uniform)d(setting)i(facilitates)g(the)h(access.)241
3541 y @beginspecial @setspecial @endspecial 181 x FE(46.1)135
b(Initialization)241 3962 y FQ(Prior)31 b(to)h(an)m(y)h(computation)f
(the)g(set)h(of)f(v)-5 b(ariables)31 b(has)h(to)h(b)s(e)e(declared)h(b)
m(y)g(calling)241 4061 y(the)k(op)s(erator)h FL(I)p 829
4061 28 4 v 40 w(setting)i FQ(.)59 b(F)-8 b(or)37 b(example)f(in)f
(order)h(to)h(initiate)e(computations)h(in)241 4161 y(the)30
b(p)s(olynomial)e(ring)h FL(Q)p FQ([)p FL(x;)15 b(y)s(;)g(z)t
FQ(])32 b(call)415 4367 y FH(I_setting\(x,y,z\))o(;)241
4586 y FQ(A)f(subsequen)m(t)f(call)g(to)i FL(I)p 1138
4586 V 40 w(setting)h FQ(allo)m(ws)e(one)g(to)h(select)f(another)g(set)
h(of)f(v)-5 b(ariables;)241 4699 y(at)39 b(the)f(same)h(time)e(the)i
(in)m(ternal)e(data)i(structures)e(are)i(cleared)f(in)f(order)g(to)i
(free)241 4812 y(memory)30 b(resources.)241 4959 y @beginspecial
@setspecial @endspecial 1667 5187 a(385)p eop
%%Page: 386 386
386 385 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(386)p FM(CHAPTER)21 b(46.)58 b(IDEALS:)21 b(ARITHMETIC)e(F)m(OR)i
(POL)-8 b(YNOMIAL)20 b(IDEALS)664 555 y FE(46.2)136 b(Bases)664
795 y FQ(An)45 b(ideal)e(is)h(represen)m(ted)h(b)m(y)g(a)g(basis)f
(\(set)i(of)f(p)s(olynomials\))e(tagged)j(with)e(the)664
894 y(sym)m(b)s(ol)29 b FL(I)7 b FQ(,)31 b FD(e.g.)795
1100 y FH(u)43 b(:=)g(I\(x*z-y**2,)c(x**3-y*z\);)664
1319 y FQ(Alternativ)m(ely)44 b(a)g(list)f(of)h(p)s(olynomials)d(can)j
(b)s(e)g(used)f(as)h(input)e(basis;)50 b(ho)m(w)m(ev)m(er,)664
1432 y(all)40 b(arithmetic)g(results)g(will)e(b)s(e)i(presen)m(ted)h
(in)f(the)h(ab)s(o)m(v)m(e)h(form.)72 b(The)41 b(op)s(erator)664
1545 y FL(ideal)r FQ(2)p FL(l)r(ist)28 b FQ(allo)m(ws)f(one)g(to)h(con)
m(v)m(ert)h(an)e(ideal)f(basis)f(in)m(to)j(a)f(con)m(v)m(en)m(tional)h
(REDUCE)664 1658 y(list.)664 1778 y @beginspecial @setspecial
@endspecial 166 x FR(46.2.1)113 b(Op)s(erators)664 2165
y FQ(Because)39 b(of)f(syn)m(tactical)h(restrictions)d(in)h(REDUCE,)h
(sp)s(ecial)e(op)s(erators)i(ha)m(v)m(e)h(to)664 2278
y(b)s(e)30 b(used)f(for)i(ideal)e(arithmetic:)1056 2501
y FH(.+)523 b(ideal)41 b(sum)i(\(infix\))1056 2601 y(.*)523
b(ideal)41 b(product)g(\(infix\))1056 2701 y(.:)523 b(ideal)41
b(quotient)f(\(infix\))1056 2800 y(./)523 b(ideal)41
b(quotient)f(\(infix\))1056 2900 y(.=)523 b(ideal)41
b(equality)f(test)i(\(infix\))1056 2999 y(subset)347
b(ideal)41 b(inclusion)f(test)i(\(infix\))1056 3099 y(intersection)83
b(ideal)41 b(intersection)e(\(prefix,binary\))1056 3199
y(member)347 b(test)42 b(for)g(membership)d(in)k(an)g(ideal)1754
3298 y(\(infix:)e(polynomial)e(and)j(ideal\))1056 3398
y(gb)523 b(Groebner)40 b(basis)h(of)i(an)g(ideal)e(\(prefix,)g(unary\))
1056 3498 y(ideal2list)171 b(convert)40 b(ideal)i(basis)f(to)i
(polynomial)d(list)1754 3597 y(\(prefix,unary\))664 3833
y FQ(Example:)839 4056 y FH(I\(x+y,x^2\))f(.*)k(I\(x-z\);)926
4256 y(2)958 b(2)174 b(2)795 4355 y(I\(X)86 b(+)43 b(X*Y)f(-)i(X*Z)e(-)
h(Y*Z,X*Y)84 b(-)44 b(Y)f(*Z\))664 4578 y FQ(Note)32
b(that)f(ideal)e(equalit)m(y)h(cannot)h(b)s(e)f(tested)h(with)e(the)i
(REDUCE)f(equal)g(sign:)795 4784 y FH(I\(x,y\))85 b(=)43
b(I\(y,x\))302 b(is)43 b(false)795 4884 y(I\(x,y\))e(.=)i(I\(y,x\))302
b(is)43 b(true)p eop
%%Page: 387 387
387 386 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(47)241 1693 y FT(INEQ:)75 b(Supp)6 b(ort)79 b(for)e(solving)241
1942 y(inequalities)1470 2424 y Fx(Herb)r(ert)26 b(Melenk)826
2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1352
2819 y(e{mail:)35 b(melenk@zib.de)241 3063 y FQ(This)h(pac)m(k)-5
b(age)40 b(supp)s(orts)35 b(the)j(op)s(erator)g FN(ineq)p
1915 3063 32 4 v 38 w(solv)m(e)h FQ(that)f(tries)f(to)i(solv)m(es)f
(single)241 3176 y(inequalities)26 b(and)i(sets)h(of)g(coupled)f
(inequalities.)37 b(The)29 b(follo)m(wing)e(t)m(yp)s(es)i(of)f(systems)
241 3289 y(are)j(supp)s(orted)d @beginspecial @setspecial
@endspecial -33 x FO(1)859 3289 y FQ(:)377 3527 y FP(\017)46
b FQ(only)30 b(n)m(umeric)f(co)s(e\016cien)m(ts)i(\(no)f(parametric)h
(system\),)377 3714 y FP(\017)46 b FQ(a)23 b(linear)d(system)i(of)h
(mixed)e(equations)g(and)h FL(<)p FQ(=)f({)i FL(>)p FQ(=)e
(inequalities,)h(applying)468 3827 y(the)31 b(metho)s(d)e(of)i(F)-8
b(ourier)30 b(and)g(Motzkin,)377 4015 y FP(\017)46 b
FQ(a)38 b(univ)-5 b(ariate)36 b(inequalit)m(y)g(with)g
FL(<)p FQ(=,)j FL(>)p FQ(=,)f FL(>)g FQ(or)f FL(<)g FQ(op)s(erator)h
(and)f(p)s(olyno-)468 4128 y(mial)d(or)i(rational)f(left{hand)f(and)h
(righ)m(t{hand)g(sides,)h(or)f(a)h(system)g(of)g(suc)m(h)468
4241 y(inequalities)28 b(with)h(only)g(one)i(v)-5 b(ariable.)241
4478 y(Syn)m(tax:)1075 4697 y FJ(INEQ)p 1273 4697 29
4 v 34 w(SOLVE\()p FL(<)p FJ(expr)p FL(>)44 b FJ([,)p
FL(<)p FJ(vl)p FL(>)p FJ(]\))p 241 4759 1196 4 v 344
4812 a Fy(1)379 4844 y @beginspecial @setspecial @endspecial
Fx(F)-6 b(or)23 b(linear)h(optimization)f(problems)f(please)i(use)f
(the)g(op)r(erator)g Fl(simplex)g Fx(of)h(the)f Fl(linalg)h
Fx(pac)n(k-)241 4935 y(age)i(\(section)h @beginspecial
@setspecial @endspecial(52.5)1667 5187 y FQ(387)p eop
%%Page: 388 388
388 387 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(388)87 b FM(CHAPTER)30 b(47.)71 b(INEQ:)31 b(SUPPOR)-8
b(T)29 b(F)m(OR)i(SOL)-10 b(VING)30 b(INEQUALITIES)664
555 y FQ(where)35 b FL(<)p FQ(expr)p FL(>)f FQ(is)h(an)g(inequalit)m(y)
f(or)h(a)h(list)e(of)h(coupled)f(inequalities)f(and)i(equat-)664
668 y(ions,)e(and)e(the)i(optional)f(argumen)m(t)h FL(<)p
FQ(vl)p FL(>)e FQ(is)h(a)g(single)g(v)-5 b(ariable)31
b(\(k)m(ernel\))i(or)f(a)h(list)664 781 y(of)44 b(v)-5
b(ariables)43 b(\(k)m(ernels\).)82 b(If)43 b(not)h(sp)s(eci\014ed,)i
(they)e(are)h(extracted)g(automatically)664 894 y(from)35
b FL(<)p FQ(expr)p FL(>)p FQ(.)54 b(F)-8 b(or)36 b(m)m(ultiv)-5
b(ariate)34 b(input)f(an)i(explicit)f(v)-5 b(ariable)34
b(list)g(sp)s(eci\014es)g(the)664 1007 y(elimination)28
b(sequence:)41 b(the)31 b(last)f(mem)m(b)s(er)g(is)f(the)i(most)f(sp)s
(eci\014c)f(one.)664 1170 y(An)39 b(error)g(message)h(o)s(ccurs)f(if)f
(the)h(input)f(cannot)h(b)s(e)g(pro)s(cessed)g(b)m(y)g(the)g(curren)m
(t)664 1282 y(algorithms.)664 1445 y(The)45 b(result)f(is)g(a)i(list.)
83 b(It)46 b(is)e(empt)m(y)h(if)f(the)i(system)f(has)g(no)g(feasible)f
(solution.)664 1558 y(Otherwise)22 b(the)h(result)f(presen)m(ts)h(the)g
(admissible)d(ranges)k(as)f(set)g(of)h(equations)e(where)664
1671 y(eac)m(h)46 b(v)-5 b(ariable)44 b(is)g(equated)h(to)h(one)f
(expression)f(or)g(to)i(an)f(in)m(terv)-5 b(al.)83 b(The)45
b(most)664 1784 y(sp)s(eci\014c)25 b(v)-5 b(ariable)25
b(is)g(the)h(\014rst)f(one)i(in)d(the)j(result)e(list)f(and)i(eac)m(h)h
(form)f(con)m(tains)g(only)664 1897 y(preceding)j(v)-5
b(ariables)28 b(\(resolv)m(ed)i(form\).)41 b(The)29 b(in)m(terv)-5
b(al)29 b(limits)f(can)i(b)s(e)f(formal)g FN(max)664
2010 y FQ(or)42 b FN(min)e FQ(expressions.)72 b(Algebraic)41
b(n)m(um)m(b)s(ers)f(are)i(enco)s(ded)f(as)g(rounded)f(n)m(um)m(b)s(er)
664 2123 y(appro)m(ximations.)664 2285 y FN(Examples)p
FQ(:)664 2516 y FH(ineq_solve\({\(2*x^)o(2+)o(x-)o(1\)/)o(\(x)o(-1\))d
(>=)86 b(\(x+1/2\)^2,)40 b(x>0}\);)664 2715 y({x=\(0)i(..)g
(0.326583\),x=\(1)c(..)43 b(2.56777\)})708 2915 y(reg:=)708
3014 y({a)g(+)g(b)g(-)g(c>=0,)f(a)h(-)g(b)g(+)g(c>=0,)f(-)h(a)g(+)g(b)g
(+)h(c>=0,)d(0>=0,)h(2>=0,)751 3114 y(2*c)h(-)g(2>=0,)e(a)j(-)f(b)g(+)g
(c>=0,)f(a)h(+)g(b)g(-)g(c>=0,)f(-)h(a)g(+)g(b)g(+)h(c)f(-)g(2>=0,)751
3214 y(2>=0,)f(0>=0,)f(2*b)i(-)g(2>=0,)e(k)j(+)f(1>=0,)e(-)i(a)h(-)f(b)
g(-)g(c)g(+)g(k>=0,)795 3313 y(-)g(a)g(-)g(b)h(-)f(c)g(+)g(k)g(+)g
(2>=0,)f(-)h(2*b)g(+)g(k>=0,)795 3413 y(-)g(2*c)f(+)i(k>=0,)d(a)i(+)g
(b)h(+)f(c)g(-)g(k>=0,)751 3512 y(2*b)g(+)g(2*c)f(-)h(k)h(-)f(2>=0,)e
(a)i(+)h(b)f(+)g(c)g(-)g(k>=0}$)664 3712 y(ineq_solve)d
(\(reg,{k,a,b,c}\))o(;)664 3911 y({c=\(1)i(..)g(infinity\),)708
4110 y(b=\(1)g(..)g(infinity\),)708 4309 y(a=\(max\()e(-)k(b)f(+)g(c,b)
f(-)h(c\))g(..)g(b)g(+)g(c)h(-)f(2\),)708 4509 y(k=a)f(+)h(b)g(+)h(c})p
eop
%%Page: 389 389
389 388 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(48)241 1693 y FT(INVBASE:)75 b(A)i(pac)-6 b(k)-13 b(age)77
b(for)241 1942 y(computing)h(in)-6 b(v)g(olutiv)g(e)75
b(bases)1254 2424 y Fx(A.Y)-6 b(u.Zhark)n(o)n(v,)24 b(Y)-6
b(u.A.Blink)n(o)n(v)1422 2515 y(Sarato)n(v)26 b(Univ)n(ersit)n(y)1419
2607 y(Astrakhansk)l(a)n(y)n(a)f(83)1346 2698 y(410071)j(Sarato)n(v,)e
(Russia)1125 2819 y(e{mail:)35 b(p)r(ostmaster@scnit.sarato)n(v.su)241
3063 y FQ(In)m(v)m(olutiv)m(e)44 b(bases)h(are)f(a)h(new)f(to)s(ol)h
(for)f(solving)f(problems)g(in)g(connection)i(with)241
3176 y(m)m(ultiv)-5 b(ariate)34 b(p)s(olynomials,)f(suc)m(h)i(as)g
(solving)f(systems)g(of)i(p)s(olynomial)c(equations)241
3289 y(and)e(analysing)g(p)s(olynomial)f(ideals.)42 b(An)31
b(in)m(v)m(olutiv)m(e)g(basis)f(of)i(p)s(olynomial)c(ideal)i(is)241
3402 y(a)e(sp)s(ecial)e(form)h(of)g(a)h(redundan)m(t)e(Gr\177)-45
b(obner)27 b(basis.)39 b(The)27 b(construction)g(of)g(in)m(v)m(olutiv)m
(e)241 3515 y(bases)38 b(reduces)h(the)f(problem)f(of)i(solving)f(p)s
(olynomial)e(systems)i(to)h(simple)e(linear)241 3628
y(algebra.)241 3791 y(The)29 b(INVBASE)h(pac)m(k)-5 b(age)32
b(can)e(b)s(e)f(seen)g(as)h(an)g(alternativ)m(e)g(to)h(Buc)m(h)m(b)s
(erger's)f(algo-)241 3903 y(rithm.)241 4040 y @beginspecial
@setspecial @endspecial 200 x FE(48.1)135 b(The)45 b(Basic)g(Op)t
(erators)241 4353 y @beginspecial @setspecial @endspecial
143 x FR(48.1.1)112 b(T)-9 b(erm)37 b(Ordering)241 4717
y FQ(The)c(term)h(order)f(mo)s(des)h(a)m(v)-5 b(ailable)33
b(are)h FJ(REVGRADLEX)p FQ(,)d FJ(GRADLEX)h FQ(and)i
FJ(LEX)p FQ(.)f(These)241 4830 y(mo)s(des)d(ha)m(v)m(e)h(the)g(same)g
(meaning)e(as)i(for)f(the)g(GR)m(OEBNER)h(pac)m(k)-5
b(age.)1667 5187 y(389)p eop
%%Page: 390 390
390 389 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(390)792 b FM(CHAPTER)30 b(48.)72 b(INVBASE:)30 b(INV)m(OLUTIVE)h
(BASES)664 555 y FQ(All)47 b(orderings)f(are)j(based)e(on)h(an)g
(ordering)f(among)i(the)f(v)-5 b(ariables.)92 b(F)-8
b(or)49 b(eac)m(h)664 668 y(pair)41 b(of)h(v)-5 b(ariables)41
b(an)h(order)f(relation)g FP(\035)h FQ(m)m(ust)g(b)s(e)f(de\014ned.)75
b(The)41 b(term)h(order-)664 781 y(ing)25 b(mo)s(de)h(as)g(w)m(ell)f
(as)h(the)g(order)f(of)h(v)-5 b(ariables)25 b(are)h(set)g(b)m(y)g(the)g
(op)s(erator)g FJ(INVTORDER)664 894 y FD(mo)-5 b(de)p
FQ(,)p FP(f)p FL(x)989 908 y FO(1)1031 894 y FL(;)15
b(:::;)g(x)1238 908 y FF(n)1286 894 y FP(g)35 b FQ(where)f
FD(mo)-5 b(de)35 b FQ(is)f(one)h(of)f(the)h(term)f(order)g(mo)s(des)g
(listed)e(ab)s(o)m(v)m(e.)664 1007 y(The)44 b(notion)f(of)h
FP(f)p FL(x)1375 1021 y FO(1)1415 1007 y FL(;)15 b(:::;)g(x)1622
1021 y FF(n)1671 1007 y FP(g)44 b FQ(as)g(a)h(list)d(of)i(v)-5
b(ariables)43 b(at)i(the)f(same)g(time)g(means)664 1120
y FL(x)716 1134 y FO(1)781 1120 y FP(\035)25 b FL(:)15
b(:)g(:)26 b FP(\035)f FL(x)1196 1134 y FF(n)1243 1120
y FQ(.)664 1261 y @beginspecial @setspecial @endspecial
152 x FR(48.1.2)113 b(Computing)36 b(In)m(v)m(olutiv)m(e)g(Bases)664
1634 y FQ(T)-8 b(o)27 b(compute)g(the)f(in)m(v)m(olutiv)m(e)g(basis)f
(of)h(ideal)f(generated)j(b)m(y)e(the)g(set)h(of)g(p)s(olynomials)664
1747 y FP(f)p FL(p)755 1761 y FO(1)795 1747 y FL(;)15
b(:::;)g(p)996 1761 y FF(m)1064 1747 y FP(g)30 b FQ(one)h(should)d(t)m
(yp)s(e)j(the)g(command)664 1910 y FJ(INVBASE)e FP(f)p
FL(p)1120 1924 y FO(1)1159 1910 y FL(;)15 b(:::;)g(p)1360
1924 y FF(m)1428 1910 y FP(g)664 2073 y FQ(where)34 b
FL(p)977 2087 y FF(i)1039 2073 y FQ(are)h(p)s(olynomials)d(in)h(v)-5
b(ariables)33 b(listed)g(in)g(the)i FJ(INVTORDER)d FQ(op)s(erator.)53
b(If)664 2186 y(some)25 b(k)m(ernels)g(in)e FL(p)1331
2200 y FF(i)1384 2186 y FQ(w)m(ere)i(not)h(listed)d(previously)g(in)g
(the)i FJ(INVTORDER)e FQ(op)s(erator)i(they)664 2299
y(are)g(considered)f(as)g(parameters,)j FD(i.e.)f FQ(they)f(are)g
(considered)e(part)i(of)f(the)h(co)s(e\016cien)m(ts)664
2412 y(of)c(p)s(olynomials.)35 b(If)20 b FJ(INVTORDER)e
FQ(w)m(as)j(omitted,)i(all)c(the)i(k)m(ernels)f(in)g
FL(p)3048 2426 y FF(i)3096 2412 y FQ(are)h(considered)664
2524 y(as)31 b(v)-5 b(ariables)29 b(with)g(the)h(default)g(REDUCE)g(k)m
(ernel)g(order.)664 2674 y(The)i(co)s(e\016cien)m(ts)h(of)f(p)s
(olynomials)d FL(p)1973 2688 y FF(i)2033 2674 y FQ(ma)m(y)k(b)s(e)e(in)
m(tegers)h(as)h(w)m(ell)e(as)h(rational)f(n)m(um-)664
2773 y(b)s(ers)g(\(or,)i(accordingly)-8 b(,)33 b(p)s(olynomials)c(and)i
(rational)h(functions)e(in)h(the)h(parametric)664 2873
y(case\).)41 b(The)26 b(computations)h(mo)s(dulo)e(prime)g(n)m(um)m(b)s
(ers)h(are)h(also)g(a)m(v)-5 b(ailable.)38 b(F)-8 b(or)28
b(this)664 2973 y(purp)s(ose)h(one)i(should)d(t)m(yp)s(e)i(the)h
(REDUCE)f(commands)664 3179 y FH(ON)43 b(MODULAR;)d(SETMOD)h(p;)664
3398 y FQ(where)34 b FL(p)g FQ(is)f(a)h(prime)f(n)m(um)m(b)s(er.)51
b(The)33 b(v)-5 b(alue)34 b(of)g(the)g FJ(INVBASE)e FQ(function)h(is)g
(a)i(list)e(of)664 3511 y(in)m(teger)38 b(p)s(olynomials)d
FP(f)p FL(g)1573 3525 y FO(1)1613 3511 y FL(;)15 b(:::;)g(g)1811
3525 y FF(n)1860 3511 y FP(g)38 b FQ(represen)m(ting)f(an)h(in)m(v)m
(olutiv)m(e)f(basis)f(of)i(a)g(giv)m(en)664 3624 y(ideal.)664
3854 y FH(INVTORDER)i(REVGRADLEX,)f({x,y,z};)664 4054
y(g:=)k(INVBASE)d({4*x**2)h(+)i(x*y**2)e(-)i(z)h(+)f(1/4,)1231
4153 y(2*x)f(+)h(y**2*z)e(+)j(1/2,)1231 4253 y(x**2*z)d(-)i(1/2*x)f(-)h
(y**2};)1231 4452 y(3)435 b(2)261 b(3)349 b(2)664 4552
y(g)43 b(:=)g({8*x*y*z)84 b(-)43 b(2*x*y*z)84 b(+)44
b(4*y)86 b(-)43 b(4*y*z)85 b(+)43 b(16*x*y)e(+)i(17*y*z)e(-)j(4*y,)1056
4751 y(4)349 b(2)f(2)653 b(2)926 4851 y(8*y)86 b(-)43
b(8*x*z)85 b(-)43 b(256*y)85 b(+)43 b(2*x*z)f(+)h(64*z)86
b(-)43 b(96*x)f(+)h(20*z)f(-)h(9,)p eop
%%Page: 391 391
391 390 bop 241 299 a @beginspecial @setspecial @endspecial
FM(48.1.)72 b(THE)30 b(BASIC)g(OPERA)-8 b(TORS)1480 b
FQ(391)633 555 y FH(3)502 655 y(2*y)43 b(*z)f(+)i(4*x*y)d(+)i(y,)720
854 y(3)348 b(2)262 b(2)f(2)502 954 y(8*x*z)85 b(-)44
b(2*x*z)85 b(+)43 b(4*y)86 b(-)43 b(4*z)86 b(+)43 b(16*x)f(+)h(17*z)f
(-)h(4,)851 1153 y(3)261 b(3)697 b(2)546 1253 y(-)43
b(4*y*z)85 b(-)43 b(8*y)86 b(+)43 b(6*x*y*z)e(+)i(y*z)86
b(-)43 b(36*x*y)e(-)j(8*y,)720 1452 y(2)305 b(2)261 b(2)502
1551 y(4*x*y)85 b(+)44 b(32*y)85 b(-)43 b(8*z)86 b(+)43
b(12*x)f(-)h(2*z)g(+)g(1,)633 1751 y(2)502 1850 y(2*y)g(*z)f(+)i(4*x)e
(+)h(1,)764 2050 y(3)261 b(2)523 b(2)546 2149 y(-)43
b(4*z)86 b(-)43 b(8*y)86 b(+)43 b(6*x*z)f(+)h(z)87 b(-)43
b(36*x)f(-)h(8,)633 2348 y(2)305 b(2)261 b(2)502 2448
y(8*x)86 b(-)43 b(16*y)86 b(+)43 b(4*z)86 b(-)43 b(6*x)g(-)g(z})241
2679 y FQ(T)-8 b(o)31 b(con)m(v)m(ert)h(it)d(in)m(to)i(a)g
(lexicographical)e(Gr\177)-45 b(obner)29 b(basis)g(one)i(should)e(t)m
(yp)s(e)241 2885 y FH(h)43 b(:=)g(INVLEX)e(g;)1200 3084
y(6)348 b(5)392 b(4)479 b(3)241 3184 y(h)43 b(:=)g({3976*x)d(+)k
(37104*z)84 b(-)43 b(600*z)85 b(+)43 b(2111*z)85 b(+)43
b(122062*z)982 3383 y(2)546 3483 y(+)g(232833*z)84 b(-)43
b(680336*z)d(+)k(288814,)764 3682 y(2)435 b(6)392 b(5)g(4)479
b(3)502 3781 y(1988*y)85 b(-)43 b(76752*z)84 b(+)44 b(1272*z)84
b(-)43 b(4197*z)85 b(-)43 b(251555*z)982 3981 y(2)546
4080 y(-)g(481837*z)84 b(+)43 b(1407741*z)d(-)j(595666,)677
4280 y(7)261 b(6)174 b(5)304 b(4)h(3)348 b(2)502 4379
y(16*z)86 b(-)43 b(8*z)86 b(+)43 b(z)87 b(+)43 b(52*z)86
b(+)43 b(75*z)85 b(-)43 b(342*z)85 b(+)44 b(266*z)546
4578 y(-)f(60})p eop
%%Page: 392 392
392 391 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(392)792 b FM(CHAPTER)30 b(48.)72 b(INVBASE:)30 b(INV)m(OLUTIVE)h
(BASES)p eop
%%Page: 393 393
393 392 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(49)241 1693 y FT(LAPLA)-6 b(CE:)74 b(Laplace)j(and)241
1942 y(in)-6 b(v)g(erse)75 b(Laplace)i(transforms)1077
2424 y Fx(C.)26 b(Kazaso)n(v,)h(M.)f(Spiridono)n(v)l(a,)g(V.)f(T)-6
b(omo)n(v)1488 2515 y(So\014a,)26 b(Bulgaria)241 2759
y FQ(The)49 b(LAPLA)m(CE)h(pac)m(k)-5 b(age)52 b(pro)m(vides)d(b)s(oth)
g(Laplace)h(T)-8 b(ransforms)49 b(and)g(In)m(v)m(erse)241
2872 y(Laplace)30 b(T)-8 b(ransforms,)30 b(with)f(the)i(t)m(w)m(o)g(op)
s(erators)241 3035 y FJ(LAPLACE\(exp,)44 b(s)p 915 3035
29 4 v 34 w(var,)j(t)p 1236 3035 V 34 w(var\))241 3148
y(INVLAP\(exp,)d(s)p 867 3148 V 35 w(var,)i(t)p 1188
3148 V 34 w(var\))241 3311 y FQ(The)29 b(action)g(is)f(to)i(transform)f
(the)g(expression)f(from)h(the)h FJ(s)p 2331 3311 V 34
w(var)e FQ(or)h(source)h(v)-5 b(ariable)241 3424 y(in)m(to)33
b(the)h FJ(t)p 642 3424 V 34 w(var)f FQ(or)h(target)h(v)-5
b(ariable.)50 b(If)33 b FJ(t)p 1768 3424 V 34 w(var)g
FQ(is)g(omitted,)i(the)f(pac)m(k)-5 b(age)35 b(uses)f(an)241
3536 y(in)m(ternal)29 b(v)-5 b(ariable)29 b FJ(lp!&)g
FQ(or)i FJ(il!&)e FQ(resp)s(ectiv)m(ely)-8 b(.)241 3699
y(Three)30 b(switc)m(hes)h(con)m(trol)g(the)g(transformations.)42
b(If)31 b FJ(lmon)f FQ(is)g(on)g(then)h(sine,)f(cosine,)241
3812 y(h)m(yp)s(erb)s(olic)41 b(sine)j(and)f(h)m(yp)s(erb)s(olic)f
(cosines)i(are)h(con)m(v)m(erted)g(b)m(y)f(LAPLA)m(CE)h(in)m(to)241
3925 y(exp)s(onen)m(tials.)63 b(If)38 b FJ(lhyp)g FQ(is)f(on)h(then)g
(exp)s(onen)m(tial)g(functions)f(are)i(con)m(v)m(erted)h(in)m(to)241
4038 y(h)m(yp)s(erb)s(olic)32 b(form.)53 b(The)34 b(last)g(switc)m(h)g
FJ(ltrig)g FQ(has)g(the)h(same)g(e\013ect)h(except)g(it)e(uses)241
4151 y(trigonometric)c(functions.)241 4300 y(The)41 b(system)i(can)f(b)
s(e)g(extended)g(b)m(y)g(adding)f(Laplace)h(transformation)g(rules)f
(for)241 4400 y(single)f(functions)g(b)m(y)i(rules)e(or)i(rule)f(sets.)
75 b(In)41 b(suc)m(h)g(a)h(rule)f(the)h(source)g(v)-5
b(ariable)241 4499 y FN(m)m(ust)35 b FQ(b)s(e)h(free,)i(the)e(target)i
(v)-5 b(ariable)35 b FN(m)m(ust)g FQ(b)s(e)h FJ(il!&)f
FQ(for)h(LAPLA)m(CE)g(and)g FJ(lp!&)241 4599 y FQ(for)27
b(INVLAP)-8 b(,)29 b(with)d(the)i(third)e(parameter)i(omitted.)40
b(Also)27 b(rules)f(for)i(transforming)241 4699 y(deriv)-5
b(ativ)m(es)30 b(are)g(en)m(tered)h(in)e(suc)m(h)h(a)h(form.)40
b(F)-8 b(or)32 b(example)415 4905 y FH(let)42 b({laplace\(log\(~x\),)o
(x\))37 b(=>)43 b(-log\(gam)d(*)j(il!&\)/il!&,)1667 5187
y FQ(393)p eop
%%Page: 394 394
394 393 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(394)322 b FM(CHAPTER)30 b(49.)72 b(LAPLA)m(CE:)30
b(LAPLA)m(CE)h(TRANSF)m(ORMS)f(ETC.)1056 555 y FH(invlap\(log\(gam)38
b(*)43 b(~x\)/x,x\))e(=>)h(-log\(lp!&\)};)839 655 y(operator)e(f;)839
754 y(let)i({)926 854 y(laplace\(df\(f\(~x)o(\),x)o(\),)o(x\))37
b(=>)43 b(il!&*laplace\(f\(x)o(\),)o(x\))37 b(-)43 b
(sub\(x=0,f\(x\)\),)926 1053 y(laplace\(df\(f\(~x)o(\),x)o(,~)o(n\),)o
(x\))37 b(=>)43 b(il!&**n*laplace)o(\(f\()o(x\))o(,x\))37
b(-)1013 1153 y(for)42 b(i:=n-1)f(step)h(-1)h(until)f(0)h(sum)1100
1253 y(sub\(x=0,)d(df\(f\(x\),x,n-1-i\)\))d(*)43 b(il!&**i)1187
1352 y(when)f(fixp)g(n,)926 1551 y(laplace\(f\(~x\),x)o(\))c(=)43
b(f\(il!&\))839 1651 y(};)664 1870 y FQ(The)37 b(LAPLA)m(CE)f(system)h
(kno)m(ws)g(ab)s(out)g(the)g(functions)e FJ(DELTA)h FQ(and)g
FJ(GAMMA)p FQ(,)g(and)664 1983 y(used)i(the)g(op)s(erator)g
FJ(ONE)g FQ(for)g(the)g(unit)f(step)h(function)f(and)g
FJ(INTL)g FQ(stands)h(for)g(the)664 2096 y(parameterised)h(in)m(tegral)
f(function,)i(for)f(instance)f FJ(intl\(2*y**2,y,0,x\))c
FQ(stands)664 2209 y(for)803 2140 y FB(R)859 2166 y FF(x)843
2237 y FO(0)918 2209 y FQ(2)p FL(y)1011 2176 y FO(2)1050
2209 y FL(dx)p FQ(.)664 2440 y FH(load_package)39 b(laplace;)664
2639 y(laplace\(sin\(17*x\))o(,x)o(,p)o(\);)839 2838
y(17)664 2938 y(----------)751 3038 y(2)708 3137 y(p)87
b(+)43 b(289)664 3336 y(on)g(lmon;)664 3536 y(laplace\(-1/4*e**\()o(a*)
o(x\))o(*\(x)o(-k)o(\)**)o(\(-)o(1/2)o(\),)37 b(x,)43
b(p\);)882 3735 y(1)523 b(a*k)751 3835 y(-)44 b(---*sqrt\(pi\)*e)882
3934 y(4)664 4034 y(-----------------)o(--)o(--)o(-)751
4133 y(k*p)708 4233 y(e)130 b(*sqrt\()41 b(-)i(a)h(+)f(p\))664
4432 y(invlap\(c/\(\(p-a\)*\()o(p-)o(b\))o(\),)37 b(p,)43
b(t\);)882 4632 y(a*t)173 b(b*t)708 4731 y(c*\(e)f(-)44
b(e)130 b(\))664 4831 y(-----------------)926 4930 y(a)43
b(-)g(b)p eop
%%Page: 395 395
395 394 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(395)241 655 y FH(invlap\(p**\(-7/3\))o(,)37
b(p,)43 b(t\);)415 854 y(1/3)372 954 y(t)130 b(*t)241
1053 y(------------)589 1153 y(7)284 1253 y(gamma\(---\))589
1352 y(3)p eop
%%Page: 396 396
396 395 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(396)322 b FM(CHAPTER)30 b(49.)72 b(LAPLA)m(CE:)30
b(LAPLA)m(CE)h(TRANSF)m(ORMS)f(ETC.)p eop
%%Page: 397 397
397 396 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(50)241 1693 y FT(LIE:)75 b(F)-19 b(unctions)78 b(for)g(the)241
1942 y(classi\014cation)e(of)i(real)241 2191 y(n-dimensional)e(Lie)h
(algebras)1219 2673 y Fx(Carsten)26 b(and)g(F)-6 b(ranzisk)l(a)25
b(Sc)n(h\177)-38 b(ob)r(el)814 2764 y(The)26 b(Leipzig)h(Univ)n(ersit)n
(y)-6 b(,)24 b(Computer)h(Science)h(Departmen)n(t)1375
2856 y(Augustusplatz)g(10/11,)1305 2947 y(O-7010)h(Leipzig,)g(German)n
(y)915 3068 y(e{mail:)35 b(csc)n(ho)r
(eb@aix550.informatik.uni-leipzig.de)241 3312 y FN(LIE)27
b FQ(is)h(a)g(pac)m(k)-5 b(age)30 b(of)f(functions)e(for)h(the)g
(classi\014cation)f(of)i(real)f(n-dimensional)d(Lie)241
3425 y(algebras.)40 b(It)31 b(consists)f(of)g(t)m(w)m(o)i(mo)s(dules:)
39 b FN(liendmc1)30 b FQ(and)g FN(lie1234)p FQ(.)241
3580 y @beginspecial @setspecial @endspecial 182 x FE(50.1)135
b(liendmc1)241 4001 y FQ(With)22 b(the)h(help)e(of)i(the)g(functions)f
(in)f(this)h(mo)s(dule)f(real)i(n-dimensional)c(Lie)k(algebras)241
4110 y FL(L)39 b FQ(with)f(a)h(deriv)m(ed)f(algebra)i
FL(L)1359 4077 y FO(\(1\))1492 4110 y FQ(of)f(dimension)e(1)i(can)h(b)s
(e)e(classi\014ed.)66 b FL(L)39 b FQ(has)g(to)241 4209
y(b)s(e)k(de\014ned)h(b)m(y)g(its)f(structure)h(constan)m(ts)i
FL(c)1846 4176 y FF(k)1846 4234 y(ij)1951 4209 y FQ(in)d(the)h(basis)g
FP(f)p FL(X)2599 4223 y FO(1)2639 4209 y FL(;)15 b(:)g(:)g(:)h(;)f(X)
2915 4223 y FF(n)2963 4209 y FP(g)45 b FQ(with)241 4334
y([)p FL(X)341 4348 y FF(i)370 4334 y FL(;)15 b(X)485
4348 y FF(j)522 4334 y FQ(])25 b(=)g FL(c)707 4301 y
FF(k)707 4358 y(ij)768 4334 y FL(X)843 4349 y FF(k)886
4334 y FQ(.)39 b(The)26 b(user)f(m)m(ust)h(de\014ne)f(an)h(ARRA)-8
b(Y)27 b(LIENSTR)m(UCIN\()p FL(n;)15 b(n;)g(n)p FQ(\))241
4442 y(with)33 b(n)h(b)s(eing)g(the)h(dimension)d(of)j(the)g(Lie)f
(algebra)h FL(L)p FQ(.)54 b(The)34 b(structure)g(constan)m(ts)241
4542 y(LIENSTR)m(UCIN\()p FL(i;)15 b(j;)g(k)s FQ(\):=)p
FL(c)1280 4509 y FF(k)1280 4566 y(ij)1374 4542 y FQ(for)32
b FL(i)c(<)g(j)38 b FQ(should)30 b(b)s(e)h(giv)m(en.)45
b(Then)31 b(the)i(pro)s(cedure)241 4651 y(LIENDIMCOM1)e(can)f(b)s(e)g
(called.)40 b(Its)30 b(syn)m(tax)h(is:)372 4857 y FH(LIENDIMCOM1\(<nu)o
(mb)o(er>)o(\).)1667 5187 y FQ(397)p eop
%%Page: 398 398
398 397 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(398)310 b FM(CHAPTER)30 b(50.)72 b(LIE:)30 b(CLASSIFICA)-8
b(TION)29 b(OF)h(LIE)g(ALGEBRAS)664 555 y FJ(<number>)40
b FQ(corresp)s(onds)h(to)i(the)f(dimension)e FL(n)p FQ(.)75
b(The)42 b(pro)s(cedure)f(simpli\014es)e(the)664 655
y(structure)c(of)h FL(L)f FQ(p)s(erforming)f(real)h(linear)f
(transformations.)55 b(The)35 b(returned)f(v)-5 b(alue)664
754 y(is)30 b(a)g(list)f(of)i(the)f(form)795 960 y FH(\(i\))42
b({LIE_ALGEBRA\(2\),C)o(OM)o(MUT)o(AT)o(IVE)o(\(n)o(-2)o(\)})37
b(or)795 1060 y(\(ii\))42 b({HEISENBERG\(k\),C)o(OM)o(MUT)o(AT)o(IVE)o
(\(n)o(-k)o(\)})664 1279 y FQ(with)29 b(3)d FP(\024)f
FL(k)j FP(\024)d FL(n)p FQ(,)30 b FL(k)k FQ(o)s(dd.)664
1442 y(The)28 b(returned)g(list)f(is)h(also)h(stored)g(as)p
FJ(LIE)p 2141 1442 29 4 v 34 w(LIST)p FQ(.)e(The)i(matrix)f(LIENTRANS)g
(giv)m(es)664 1555 y(the)21 b(transformation)g(from)f(the)i(giv)m(en)f
(basis)f FP(f)p FL(X)2337 1569 y FO(1)2377 1555 y FL(;)15
b(:)g(:)g(:)h(;)f(X)2653 1569 y FF(n)2701 1555 y FP(g)22
b FQ(in)m(to)f(the)g(standard)f(basis)664 1668 y FP(f)p
FL(Y)762 1682 y FO(1)802 1668 y FL(;)15 b(:)g(:)g(:)h(;)f(Y)1056
1682 y FF(n)1104 1668 y FP(g)p FQ(:)41 b FL(Y)1268 1682
y FF(j)1329 1668 y FQ(=)25 b(\(LIENTRANS\))2035 1635
y FF(k)2035 1692 y(j)2078 1668 y FL(X)2153 1683 y FF(k)2196
1668 y FQ(.)664 1842 y @beginspecial @setspecial @endspecial
162 x FE(50.2)136 b(lie1234)664 2243 y FQ(This)38 b(part)i(of)g(the)h
(pac)m(k)-5 b(age)42 b(classi\014es)d(real)g(lo)m(w-dimensional)f(Lie)h
(algebras)h FL(L)g FQ(of)664 2343 y(the)46 b(dimension)d
FL(n)50 b FQ(:=)g(dim)14 b FL(L)50 b FQ(=)g(1)p FL(;)15
b FQ(2)p FL(;)g FQ(3)p FL(;)g FQ(4.)89 b FL(L)46 b FQ(is)e(also)i(giv)m
(en)f(b)m(y)g(its)g(structure)664 2443 y(constan)m(ts)33
b FL(c)1107 2410 y FF(k)1107 2467 y(ij)1199 2443 y FQ(in)c(the)j(basis)
e FP(f)p FL(X)1807 2457 y FO(1)1847 2443 y FL(;)15 b(:)g(:)g(:)i(;)e(X)
2124 2457 y FF(n)2171 2443 y FP(g)32 b FQ(with)e([)p
FL(X)2556 2457 y FF(i)2585 2443 y FL(;)15 b(X)2700 2457
y FF(j)2737 2443 y FQ(])27 b(=)f FL(c)2925 2410 y FF(k)2925
2467 y(ij)2986 2443 y FL(X)3061 2458 y FF(k)3104 2443
y FQ(.)43 b(An)31 b(ARRA)-8 b(Y)664 2567 y(LIESTRIN\()p
FL(n;)15 b(n;)g(n)p FQ(\))34 b(has)h(to)h(b)s(e)e(de\014ned)g(and)h
(LIESTRIN\()p FL(i;)15 b(j;)g(k)s FQ(\):=)p FL(c)3201
2534 y FF(k)3201 2591 y(ij)3298 2567 y FQ(for)35 b FL(i)e(<)g(j)664
2676 y FQ(should)g(b)s(e)h(giv)m(en.)53 b(Then)34 b(the)h(pro)s(cedure)
e(LIECLASS)g(can)i(b)s(e)f(p)s(erformed)f(whose)664 2775
y(syn)m(tax)e(is:)795 2981 y FH(LIECLASS\(<number)o(>\))o(.)664
3187 y FJ(<number>)39 b FQ(should)g(b)s(e)i(the)g(dimension)e(of)i(the)
h(Lie)e(algebra)h FL(L)p FQ(.)73 b(The)41 b(pro)s(cedure)664
3287 y(step)m(wise)28 b(simpli\014es)d(the)k(comm)m(utator)h(relations)
d(of)i FL(L)f FQ(using)f(prop)s(erties)g(of)h(in)m(v)-5
b(ari-)664 3386 y(ance)30 b(lik)m(e)f(the)g(dimension)d(of)k(the)f(cen)
m(tre,)i(of)e(the)h(deriv)m(ed)e(algebra,)i(unimo)s(dularit)m(y)664
3486 y FD(etc.)40 b FQ(The)30 b(returned)f(v)-5 b(alue)30
b(has)g(the)h(form:)795 3692 y FH({LIEALG\(n\),COMTA)o(B\()o(m\)})o(,)
664 3911 y FQ(where)h(the)g(v)-5 b(alue)31 b FL(m)h FQ(corresp)s(onds)e
(to)j(the)f(n)m(um)m(b)s(er)f(of)h(the)g(standard)f(form)g(\(basis:)664
4024 y FP(f)p FL(Y)762 4038 y FO(1)802 4024 y FL(;)15
b(:)g(:)g(:)h(;)f(Y)1056 4038 y FF(n)1104 4024 y FP(g)p
FQ(\))31 b(in)e(an)h(en)m(umeration)g(sc)m(heme.)664
4187 y(This)25 b(returned)g(v)-5 b(alue)25 b(is)g(also)h(stored)h(as)f
(LIE)p 2262 4187 28 4 v 32 w(CLASS.)f(The)h(linear)f(transformation)664
4300 y(from)f(the)g(basis)f FP(f)p FL(X)1360 4314 y FO(1)1400
4300 y FL(;)15 b(:)g(:)g(:)i(;)e(X)1677 4314 y FF(n)1724
4300 y FP(g)25 b FQ(in)m(to)f(the)g(basis)f(of)h(the)g(standard)g(form)
f FP(f)p FL(Y)3266 4314 y FO(1)3306 4300 y FL(;)15 b(:)g(:)g(:)h(;)f(Y)
3560 4314 y FF(n)3608 4300 y FP(g)664 4413 y FQ(is)30
b(giv)m(en)g(b)m(y)g(the)h(matrix)f(LIEMA)-8 b(T:)30
b FL(Y)2041 4427 y FF(j)2103 4413 y FQ(=)25 b(\(LIEMA)-8
b(T\))2630 4380 y FF(k)2630 4437 y(j)2673 4413 y FL(X)2748
4428 y FF(k)2791 4413 y FQ(.)p eop
%%Page: 399 399
399 398 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(51)241 1693 y FT(LIMITS:)76 b(A)h(pac)-6 b(k)-13 b(age)77
b(for)241 1942 y(\014nding)g(limits)1411 2424 y Fx(Stanley)26
b(L.)g(Kamen)n(y)1400 2515 y(Los)h(Angeles,)f(U.S.A.)241
2759 y FQ(LIMITS)35 b(is)f(a)j(fast)f(limit)e(pac)m(k)-5
b(age)38 b(for)d(REDUCE)h(for)g(functions)e(whic)m(h)h(are)h(con-)241
2872 y(tin)m(uous)25 b(except)i(for)f(computable)g(p)s(oles)f(and)h
(singularities,)e(based)i(on)g(some)h(earlier)241 2985
y(w)m(ork)34 b(b)m(y)f(Ian)h(Cohen)f(and)g(John)g(P)-8
b(.)34 b(Fitc)m(h.)52 b(The)33 b(T)-8 b(runcated)34 b(P)m(o)m(w)m(er)h
(Series)d(pac)m(k-)241 3098 y(age)g(is)f(used)f(for)h(non-critical)f(p)
s(oin)m(ts,)h(at)h(whic)m(h)e(the)i(v)-5 b(alue)31 b(of)g(the)h
(function)e(is)g(the)241 3211 y(constan)m(t)d(term)f(in)e(the)i
(expansion)f(around)f(that)j(p)s(oin)m(t.)38 b(l'H^)-45
b(opital's)25 b(rule)f(is)h(used)g(in)241 3324 y(critical)h(cases,)j
(with)d(prepro)s(cessing)g(of)i FP(1)14 b(\000)g(1)27
b FQ(forms)g(and)g(reformatting)g(of)h(pro)s(d-)241 3437
y(uct)33 b(forms)g(in)f(order)g(to)i(apply)e(l'H^)-45
b(opital's)32 b(rule.)48 b(A)34 b(limited)d(amoun)m(t)i(of)h(b)s
(ounded)241 3550 y(arithmetic)29 b(is)h(also)g(emplo)m(y)m(ed)h(where)f
(applicable.)241 3704 y @beginspecial @setspecial @endspecial
182 x FE(51.1)135 b(Normal)46 b(en)l(try)g(p)t(oin)l(ts)241
4199 y FJ(LIMIT)p FQ(\(EXPRN:)p FD(algebr)-5 b(aic)p
FQ(,)31 b(V)-10 b(AR:)p FD(kernel)p FQ(,)31 b(LIMPOINT:)p
FD(algebr)-5 b(aic)p FQ(\):)p FD(algebr)g(aic)241 4421
y FQ(This)30 b(is)g(the)i(standard)f(w)m(a)m(y)i(of)e(calling)g(limit,)
f(applying)f(all)i(of)g(the)h(metho)s(ds.)44 b(The)241
4534 y(result)29 b(is)g(the)i(limit)d(of)j(EXPRN)f(as)h(V)-10
b(AR)30 b(approac)m(hes)h(LIMPOINT.)241 4689 y @beginspecial
@setspecial @endspecial 1667 5187 a(399)p eop
%%Page: 400 400
400 399 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(400)238 b FM(CHAPTER)29 b(51.)72 b(LIMITS:)30 b(A)g(P)-8
b(A)m(CKA)m(GE)32 b(F)m(OR)f(FINDING)g(LIMITS)664 555
y FE(51.2)136 b(Direction-dep)t(enden)l(t)46 b(limits)664
868 y FJ(LIMIT!+)p FQ(\(EXPRN:)p FD(algebr)-5 b(aic)p
FQ(,)30 b(V)-10 b(AR:)p FD(kernel)p FQ(,)32 b(LIMPOINT:)p
FD(algebr)-5 b(aic)p FQ(\):)p FD(algebr)g(aic)664 981
y FJ(LIMIT!-)p FQ(\(EXPRN:)p FD(algebr)g(aic)p FQ(,)30
b(V)-10 b(AR:)p FD(kernel)p FQ(,)32 b(LIMPOINT:)p FD(algebr)-5
b(aic)p FQ(\):)p FD(algebr)g(aic)664 1204 y FQ(If)37
b(the)g(limit)e(dep)s(ends)g(up)s(on)h(the)h(direction)f(of)h(approac)m
(h)g(to)h(the)g FJ(LIMPOINT)p FQ(,)d(the)664 1316 y(functions)29
b FJ(LIMIT!+)f FQ(and)i FJ(LIMIT!-)f FQ(ma)m(y)i(b)s(e)e(used.)40
b(They)30 b(are)h(de\014ned)e(b)m(y:)664 1539 y FJ(LIMIT!+)g
FQ(\(EXP)-8 b(,V)e(AR,LIMPOINT\))31 b FP(!)212 b FJ(LIMIT)p
FQ(\(EXP*,)p FL(\017)p FQ(,0\))664 1652 y(where)30 b(EXP*)h(=)f(sub\(V)
-10 b(AR=V)g(AR+)p FL(\017)2034 1619 y FO(2)2072 1652
y FQ(,EXP\))664 1815 y(and)664 1978 y FJ(LIMIT!-)29 b
FQ(\(EXP)-8 b(,V)e(AR,LIMPOINT\))31 b FP(!)212 b FJ(LIMIT)p
FQ(\(EXP*,)p FL(\017)p FQ(,0\))664 2090 y(where)30 b(EXP*)h(=)f(sub\(V)
-10 b(AR=V)g(AR-)p FL(\017)1993 2058 y FO(2)2032 2090
y FQ(,EXP\))664 2240 y(Examples:)664 2446 y FH(load_package)39
b(misc;)664 2645 y(limit\(sin\(x\)/x,x,)o(0\))o(;)664
2844 y(1)664 3044 y(limit\(\(a^x-b^x\)/x)o(,x)o(,0)o(\);)664
3243 y(log\(a\))i(-)i(log\(b\))664 3442 y(limit\(x/\(e**x-1\),)37
b(x,)42 b(0\);)664 3641 y(1)664 3841 y(limit!-\(sin)d(x/cos)j
(x,x,pi/2\);)664 4040 y(infinity)664 4239 y(limit!+\(sin)d(x/cos)j
(x,x,pi/2\);)708 4438 y(-)h(infinity)664 4638 y(limit\(x^log\(1/x\),)o
(x,)o(in)o(fin)o(it)o(y\);)664 4837 y(0)p eop
%%Page: 401 401
401 400 bop 241 299 a @beginspecial @setspecial @endspecial
FM(51.2.)72 b(DIRECTION-DEPENDENT)30 b(LIMITS)1089 b
FQ(401)241 555 y FH(limit\(\(x^\(1/5\))38 b(+)43 b
(3*x^\(1/4\)\)^2/\(7*)o(\(s)o(qr)o(t\(x)37 b(+)43 b(9\))g(-)g(3)g(-)g
(x/6\)\)^\(1/5\),x,0\);)459 754 y(3/5)328 854 y(-)g(6)241
954 y(---------)372 1053 y(1/5)328 1153 y(7)p eop
%%Page: 402 402
402 401 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(402)238 b FM(CHAPTER)29 b(51.)72 b(LIMITS:)30 b(A)g(P)-8
b(A)m(CKA)m(GE)32 b(F)m(OR)f(FINDING)g(LIMITS)p eop
%%Page: 403 403
403 402 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(52)241 1693 y FT(LINALG:)74 b(Linear)j(algebra)241
1942 y(pac)-6 b(k)-13 b(age)1496 2424 y Fx(Matt)26 b(Rebb)r(ec)n(k)826
2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)241
2881 y @beginspecial @setspecial @endspecial 185 x FE(52.1)135
b(In)l(tro)t(duction)241 3318 y FQ(This)33 b(pac)m(k)-5
b(age)36 b(pro)m(vides)e(a)h(selection)f(of)h(functions)e(that)j(are)f
(useful)d(in)i(the)h(w)m(orld)241 3431 y(of)30 b(linear)f(algebra.)41
b(They)30 b(can)g(b)s(e)g(classi\014ed)f(in)m(to)h(four)g(sections:)241
3576 y @beginspecial @setspecial @endspecial 149 x FR(52.1.1)112
b(Basic)37 b(matrix)f(handling)397 3940 y FQ(add)p 549
3940 28 4 v 32 w(columns)293 b(add)p 1346 3940 V 32 w(ro)m(ws)281
b(add)p 1986 3940 V 32 w(to)p 2098 3940 V 34 w(columns)121
b(add)p 2725 3940 V 32 w(to)p 2837 3940 V 34 w(ro)m(ws)397
4053 y(augmen)m(t)p 742 4053 V 33 w(columns)99 b(c)m(har)p
1368 4053 V 33 w(p)s(oly)265 b(column)p 2128 4053 V 32
w(dim)g(cop)m(y)p 2759 4053 V 33 w(in)m(to)397 4166 y(diagonal)463
b(extend)375 b(\014nd)p 1992 4166 V 31 w(companion)125
b(get)p 2698 4166 V 34 w(columns)397 4279 y(get)p 522
4279 V 34 w(ro)m(ws)463 b(hermitian)p 1585 4279 V 31
w(tp)137 b(matrix)p 2105 4279 V 32 w(augmen)m(t)101 b(matrix)p
2844 4279 V 32 w(stac)m(k)397 4391 y(minor)563 b(m)m(ult)p
1384 4391 V 32 w(columns)98 b(m)m(ult)p 2024 4391 V 32
w(ro)m(ws)342 b(piv)m(ot)397 4504 y(remo)m(v)m(e)p 681
4504 V 34 w(columns)159 b(remo)m(v)m(e)p 1478 4504 V
34 w(ro)m(ws)147 b(ro)m(w)p 1983 4504 V 33 w(dim)409
b(ro)m(ws)p 2758 4504 V 33 w(piv)m(ot)397 4617 y(stac)m(k)p
603 4617 V 34 w(ro)m(ws)382 b(sub)p 1337 4617 V 31 w(matrix)205
b(sw)m(ap)p 2034 4617 V 33 w(columns)186 b(sw)m(ap)p
2773 4617 V 33 w(en)m(tries)397 4730 y(sw)m(ap)p 597
4730 V 32 w(ro)m(ws)241 4891 y @beginspecial @setspecial
@endspecial 1667 5187 a(403)p eop
%%Page: 404 404
404 403 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(404)440 b FM(CHAPTER)30 b(52.)72 b(LINALG:)31 b(LINEAR)f(ALGEBRA)h
(P)-8 b(A)m(CKA)m(GE)664 555 y FR(52.1.2)113 b(Constructors)664
777 y FQ(F)-8 b(unctions)30 b(that)h(create)h(matrices.)826
995 y(band)p 1029 995 28 4 v 32 w(matrix)132 b(blo)s(c)m(k)p
1669 995 V 32 w(matrix)348 b(c)m(har)p 2484 995 V 33
w(matrix)233 b(co)s(e\013)p 3197 995 V 34 w(matrix)826
1108 y(companion)198 b(hessian)571 b(hilb)s(ert)433 b(jacobian)826
1221 y(jordan)p 1087 1221 V 32 w(blo)s(c)m(k)130 b(mak)m(e)p
1665 1221 V 33 w(iden)m(tit)m(y)311 b(random)p 2619 1221
V 32 w(matrix)99 b(to)s(eplitz)826 1334 y(v)-5 b(andermonde)99
b(Kronec)m(k)m(er)p 1860 1334 V 33 w(Pro)s(duct)664 1495
y @beginspecial @setspecial @endspecial 127 x FR(52.1.3)113
b(High)36 b(lev)m(el)g(algorithms)1008 1837 y FQ(c)m(har)p
1182 1837 V 33 w(p)s(oly)301 b(c)m(holesky)100 b(gram)p
2322 1837 V 33 w(sc)m(hmidt)f(lu)p 2843 1837 V 32 w(decom)1008
1950 y(pseudo)p 1287 1950 V 32 w(in)m(v)m(erse)g(simplex)128
b(svd)511 b(triang)p 3004 1950 V 32 w(adjoin)m(t)664
2310 y(There)38 b(is)f(a)i(separate)h Fk(NORMF)n(ORM)e
FQ(pac)m(k)-5 b(age)40 b(\(c)m(hapter)f @beginspecial
@setspecial @endspecial(57)q(\))g(for)f(computing)g(the)664
2423 y(matrix)25 b(normal)f(forms)g(smithex,)h(smithex)p
2182 2423 V 32 w(in)m(t,)h(frob)s(enius,)e(ratjordan,)i(jordansym-)664
2536 y(b)s(olic)j(and)h(jordan)f(in)g(REDUCE.)664 2681
y @beginspecial @setspecial @endspecial 148 x FR(52.1.4)113
b(Predicates)1516 3051 y FQ(matrixp)99 b(squarep)g(symmetricp)664
3221 y @beginspecial @setspecial @endspecial 166 x FE(52.2)136
b(Explanations)664 3640 y FQ(In)30 b(the)g(examples)g(the)h(matrix)f
FP(A)f FQ(will)f(b)s(e)664 3994 y FP(A)d FQ(=)858 3800
y FB(0)858 3946 y(B)858 3999 y(@)972 3881 y FQ(1)84 b(2)f(3)972
3994 y(4)h(5)f(6)972 4107 y(7)h(8)f(9)1316 3800 y FB(1)1316
3946 y(C)1316 3999 y(A)664 4363 y FQ(Throughout)25 b
FP(I)32 b FQ(is)25 b(used)f(to)j(indicate)e(the)h(iden)m(tit)m(y)f
(matrix)g(and)g FP(A)3001 4330 y FF(T)3081 4363 y FQ(to)i(indicate)e
(the)664 4476 y(transp)s(ose)30 b(of)h(the)f(matrix)g
FP(A)p FQ(.)664 4639 y(Man)m(y)35 b(of)g(the)g(functions)e(ha)m(v)m(e)i
(a)g(fairly)e(ob)m(vious)h(meaning.)52 b(Others)34 b(need)g(a)h(little)
664 4752 y(explanation.)p eop
%%Page: 405 405
405 404 bop 241 299 a @beginspecial @setspecial @endspecial
FM(52.3.)72 b(BASIC)30 b(MA)-8 b(TRIX)31 b(HANDLING)1373
b FQ(405)241 464 y @beginspecial @setspecial @endspecial
91 x FE(52.3)135 b(Basic)45 b(matrix)h(handling)241 808
y FQ(The)27 b(functions)f FJ(ADD)p 964 808 29 4 v 34
w(COLUMNS)f FQ(and)i FJ(ADD)p 1677 808 V 34 w(ROWS)f
FQ(pro)m(vide)h(basic)g(op)s(erations)g(b)s(et)m(w)m(een)241
921 y(ro)m(ws)j(and)g(columns.)39 b(The)30 b(form)g(is)241
1084 y FJ(add)p 391 1084 V 33 w(columns\()p FP(A)p FJ(,c1,c2,expr\);)
241 1246 y FQ(and)61 b(it)f(replaces)i(column)e(c2)i(of)g(the)f(matix)g
(b)m(y)h(expr)e FP(\003)i FQ(column\()p FP(A)p FQ(,c1\))g(+)241
1359 y(column\()p FP(A)p FQ(,c2\).)241 1522 y FJ(ADD)p
391 1522 V 33 w(TO)p 520 1522 V 34 w(COLUMNS)35 b FQ(and)h
FJ(ADD)p 1252 1522 V 34 w(TO)p 1382 1522 V 33 w(ROWS)g
FQ(do)g(a)i(similar)c(task,)39 b(adding)c(an)i(expression)241
1635 y(to)31 b(eac)m(h)g(of)g(a)g(n)m(um)m(b)s(er)e(of)h(columns)f
(\(or)i(ro)m(ws\))g(sp)s(eci\014ed)d(b)m(y)j(a)f(list.)282
1913 y FJ(add)p 431 1913 28 4 v 32 w(to)p 559 1913 V
32 w(columns)n FQ(\()p FP(A)p FL(;)15 b FP(f)p FQ(1)p
FL(;)g FQ(2)p FP(g)p FL(;)g FQ(10\))88 b(=)1694 1719
y FB(0)1694 1865 y(B)1694 1918 y(@)1809 1800 y FQ(11)c(12)f(3)1809
1913 y(14)h(15)f(6)1809 2026 y(17)h(18)f(9)2243 1719
y FB(1)2243 1865 y(C)2243 1918 y(A)241 2186 y FQ(The)57
b(functions)f FJ(MULT)p 1072 2186 29 4 v 33 w(COLUMNS)g
FQ(and)g FJ(MULT)p 1892 2186 V 34 w(ROW)g FQ(are)i(equiv)-5
b(alen)m(t)57 b(to)h(m)m(ultiply)241 2299 y(columns)29
b(and)h(ro)m(ws.)241 2461 y FJ(COLUMN)p 535 2461 V 32
w(DIM)j FQ(and)f FJ(ROW)p 1067 2461 V 34 w(DIM)g FQ(\014nd)f(the)i
(column)f(dimension)e(and)j(ro)m(w)g(dimension)d(of)241
2574 y(their)f(argumen)m(t.)241 2737 y(P)m(arts)40 b(of)g(a)g(matrix)f
(can)h(b)s(e)f(replaced)g(from)g(another)h(b)m(y)g(using)e
FJ(COPY)p 2820 2737 V 33 w(INTO)p FQ(;)h(the)241 2850
y(last)34 b(t)m(w)m(o)i(argumen)m(ts)f(are)h(ro)m(w)e(and)g(column)g
(coun)m(ters)h(for)g(to)g(where)f(to)i(cop)m(y)f(the)241
2963 y(matrix.)376 3351 y FP(G)c FQ(=)557 3107 y FB(0)557
3253 y(B)557 3303 y(B)557 3353 y(B)557 3406 y(@)671 3181
y FQ(0)83 b(0)h(0)f(0)671 3294 y(0)g(0)h(0)f(0)671 3407
y(0)g(0)h(0)f(0)671 3520 y(0)g(0)h(0)f(0)1143 3107 y
FB(1)1143 3253 y(C)1143 3303 y(C)1143 3353 y(C)1143 3406
y(A)373 3942 y FJ(copy)p 570 3942 28 4 v 31 w(into)o
FQ(\()p FP(A)p FL(;)15 b FP(G)6 b FL(;)15 b FQ(1)p FL(;)g
FQ(2\))85 b(=)1439 3698 y FB(0)1439 3844 y(B)1439 3894
y(B)1439 3944 y(B)1439 3997 y(@)1553 3772 y FQ(0)e(1)h(2)f(3)1553
3885 y(0)g(4)h(5)f(6)1553 3998 y(0)g(7)h(8)f(9)1553 4111
y(0)g(0)h(0)f(0)2025 3698 y FB(1)2025 3844 y(C)2025 3894
y(C)2025 3944 y(C)2025 3997 y(A)241 4348 y FQ(A)30 b(diagonal)f(matrix)
g(can)h(b)s(e)f(created)i(with)d FJ(DIAGONAL)p FQ(.)g(The)h(argumen)m
(t)h(is)f(a)h(list)e(of)241 4460 y(expressions)h(of)h(matrices)h(whic)m
(h)e(form)h(the)g(diagonal.)241 4623 y(An)f(existing)g(matrix)h(can)g
(b)s(e)f(extended;)h(the)h(call)e FJ(EXTEND)p FQ(\(A,r,c,exp\))h
(returns)e(the)241 4736 y(matrix)h(A)i(extended)f(b)m(y)h(r)e(ro)m(ws)i
(and)f(c)g(columns,)g(with)f(the)h(new)g(en)m(tries)g(all)g(exp.)241
4899 y(The)43 b(function)f FJ(GET)p 960 4899 29 4 v 34
w(COLUMNS)g FQ(extracts)j(from)e(a)h(matrix)f(a)h(list)e(of)i(the)g(sp)
s(eci\014ed)p eop
%%Page: 406 406
406 405 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(406)440 b FM(CHAPTER)30 b(52.)72 b(LINALG:)31 b(LINEAR)f(ALGEBRA)h
(P)-8 b(A)m(CKA)m(GE)664 555 y FQ(columns)29 b(as)i(matrices.)41
b FJ(GET)p 1680 555 29 4 v 33 w(ROWS)29 b FQ(do)s(es)h(the)h(equiv)-5
b(alen)m(t)30 b(for)g(ro)m(ws.)796 909 y FJ(get)p 945
909 28 4 v 32 w(columns)n FQ(\()p FP(A)p FL(;)15 b FP(f)p
FQ(1)p FL(;)g FQ(3)p FP(g)p FQ(\))86 b(=)1949 712 y FB(8)1949
787 y(>)1949 812 y(<)1949 961 y(>)1949 986 y(:)2022 716
y(0)2022 862 y(B)2022 915 y(@)2137 796 y FQ(1)2137 909
y(4)2137 1022 y(7)2224 716 y FB(1)2224 862 y(C)2224 915
y(A)2311 909 y FL(;)2351 716 y FB(0)2352 862 y(B)2352
915 y(@)2466 796 y FQ(3)2466 909 y(6)2466 1022 y(9)2553
716 y FB(1)2553 862 y(C)2553 915 y(A)2626 712 y(9)2626
787 y(>)2626 812 y(=)2626 961 y(>)2626 986 y(;)664 1269
y FQ(The)38 b(Hermitian)f(transp)s(ose,)j(that)f(is)e(a)i(matrix)e(in)g
(whic)m(h)g(the)i(\(i,)15 b(j\))38 b(en)m(try)g(is)g(the)664
1382 y(conjugate)32 b(of)e(the)h(\(j,)15 b(i\))30 b(en)m(try)h(of)g
(the)f(input)e(is)i(returned)f(b)m(y)h FJ(HERMITIAN)p
3295 1382 29 4 v 32 w(TP)p FQ(.)664 1544 y FJ(MATRIX)p
958 1544 V 33 w(AUGMENT)p FQ(\()p FP(f)p FQ(mat)1557
1558 y FO(1)1596 1544 y FQ(,mat)1777 1558 y FO(2)1817
1544 y FQ(,)37 b(.)16 b(.)f(.)g(,mat)2181 1558 y FF(n)2229
1544 y FP(g)p FQ(\))36 b(pro)s(duces)f(a)h(new)f(matrix)g(from)g(the)
664 1657 y(list)23 b(joined)g(as)h(new)g(columns.)37
b FJ(MATRIX)p 2041 1657 V 33 w(STACK)22 b FQ(joins)h(a)h(list)f(of)h
(matrices)g(b)m(y)g(stac)m(king)664 1770 y(them.)796
2271 y FJ(matrix)p 1089 2271 28 4 v 31 w(stack)o FQ(\()p
FP(fA)p FL(;)15 b FP(Ag)p FQ(\))84 b(=)1938 1928 y FB(0)1938
2074 y(B)1938 2124 y(B)1938 2174 y(B)1938 2223 y(B)1938
2273 y(B)1938 2323 y(B)1938 2373 y(B)1938 2426 y(@)2052
1989 y FQ(1)f(2)h(3)2052 2102 y(4)f(5)h(6)2052 2214 y(7)f(8)h(9)2052
2327 y(1)f(2)h(3)2052 2440 y(4)f(5)h(6)2052 2553 y(7)f(8)h(9)2396
1928 y FB(1)2396 2074 y(C)2396 2124 y(C)2396 2174 y(C)2396
2223 y(C)2396 2273 y(C)2396 2323 y(C)2396 2373 y(C)2396
2426 y(A)664 2795 y FJ(MINOR)p FQ(\(A,r,c\))31 b(calculates)f(the)h
(\(r,c\))g(minor)e(of)h(A.)664 2957 y FJ(PIVOT)f FQ(piv)m(ots)h(a)g
(matrix)g(ab)s(out)g(its)f(\(r,c\))i(en)m(try)-8 b(.)42
b(T)-8 b(o)30 b(do)g(this,)g(m)m(ultiples)d(of)k(the)f
FL(r)3583 2924 y FF(th)664 3070 y FQ(ro)m(w)36 b(are)h(added)e(to)h(ev)
m(ery)h(other)f(ro)m(w)g(in)f(the)h(matrix.)57 b(This)34
b(means)i(that)g(the)g FL(c)3582 3037 y FF(th)664 3183
y FQ(column)29 b(will)f(b)s(e)i(0)h(except)g(for)f(the)h(\(r,c\))g(en)m
(try)-8 b(.)664 3346 y(A)31 b(v)-5 b(arian)m(t)30 b(on)g(this)f(op)s
(eration)h(is)g(pro)m(vided)f(b)m(y)h FJ(ROWS)p 2571
3346 29 4 v 33 w(PIVOT)p FQ(.)f(It)i(applies)d(the)j(piv)m(ot)664
3459 y(only)f(to)h(the)f(ro)m(ws)h(sp)s(eci\014ed)d(as)j(the)g(last)f
(argumen)m(t.)664 3622 y(A)39 b(sub)f(matrix)g(can)h(b)s(e)g
(extracted,)k(giving)37 b(a)j(list)d(or)i(the)g(ro)m(ws)g(and)g
(columns)e(to)664 3735 y(k)m(eep.)796 4039 y FJ(sub)p
945 4039 28 4 v 32 w(matrix)n FQ(\()p FP(A)p FL(;)15
b FP(f)p FQ(1)p FL(;)g FQ(3)p FP(g)p FL(;)g FP(f)p FQ(2)p
FL(;)g FQ(3)p FP(g)p FQ(\))89 b(=)2164 3895 y FB( )2271
3982 y FQ(2)83 b(3)2271 4095 y(8)g(9)2486 3895 y FB(!)664
4343 y FQ(The)29 b(basic)f(op)s(eration)g(of)h(sw)m(apping)f(ro)m(ws)g
(or)h(columns)f(is)g(pro)m(vided)f(b)m(y)i FJ(SWAP)p
3435 4343 29 4 v 33 w(ROWS)664 4456 y FQ(and)h FJ(SWAP)p
1039 4456 V 33 w(COLUMNS)p FQ(.)f(Individual)d(en)m(tries)k(can)h(b)s
(e)f(sw)m(app)s(ed)f(with)g FJ(SWAP)p 3246 4456 V 33
w(ENTRIES)p FQ(.)796 4786 y FJ(swap)p 993 4786 28 4 v
32 w(columns)n FQ(\()p FP(A)p FL(;)15 b FQ(2)p FL(;)g
FQ(3\))85 b(=)1905 4592 y FB(0)1905 4738 y(B)1905 4791
y(@)2020 4673 y FQ(1)e(3)h(2)2020 4785 y(4)f(6)h(5)2020
4898 y(7)f(9)h(8)2364 4592 y FB(1)2364 4738 y(C)2364
4791 y(A)p eop
%%Page: 407 407
407 406 bop 241 299 a @beginspecial @setspecial @endspecial
FM(52.4.)72 b(CONSTR)m(UCTORS)1820 b FQ(407)373 661 y
FJ(swap)p 570 661 28 4 v 31 w(entries)n FQ(\()p FP(A)p
FL(;)15 b FP(f)p FQ(1)p FL(;)g FQ(1)p FP(g)p FL(;)g FP(f)p
FQ(3)p FL(;)g FQ(3)p FP(g)p FQ(\))89 b(=)1836 467 y FB(0)1836
613 y(B)1836 666 y(@)1950 548 y FQ(9)83 b(2)h(3)1950
661 y(4)f(5)h(6)1950 774 y(7)f(8)h(1)2294 467 y FB(1)2294
613 y(C)2294 666 y(A)241 950 y @beginspecial @setspecial
@endspecial 140 x FE(52.4)135 b(Constructors)241 1342
y FJ(AUGMENT)p 583 1342 29 4 v 32 w(COLUMNS)31 b FQ(allo)m(ws)h(just)h
(sp)s(eci\014ed)e(columns)h(to)h(b)s(e)g(selected;)i
FJ(STACK)p 3012 1342 V 33 w(ROWS)241 1455 y FQ(do)s(es)30
b(a)h(similar)c(job)j(for)g(ro)m(ws.)282 1678 y FJ(stack)p
527 1678 28 4 v 32 w(rows)o FQ(\()p FP(A)p FL(;)15 b
FP(f)p FQ(1)p FL(;)g FQ(3)p FP(g)p FQ(\))85 b(=)1387
1534 y FB( )1494 1622 y FQ(1)f(2)f(3)1494 1735 y(7)h(8)f(9)1838
1534 y FB(!)241 1901 y FQ(Ro)m(ws)30 b(or)h(columns)e(can)i(b)s(e)e
(remo)m(v)m(ed)j(with)d FJ(REMOVE)p 2101 1901 29 4 v
32 w(COLUMNS)g FQ(and)h FJ(REMOVE)p 2963 1901 V 32 w(ROWS)p
FQ(.)373 2238 y FJ(remove)p 666 2238 28 4 v 31 w(columns)n
FQ(\()p FP(A)p FL(;)15 b FQ(2\))84 b(=)1492 2044 y FB(0)1492
2190 y(B)1492 2244 y(@)1606 2125 y FQ(1)f(3)1606 2238
y(4)g(6)1606 2351 y(7)g(9)1821 2044 y FB(1)1821 2190
y(C)1821 2244 y(A)241 2592 y FJ(BAND)p 439 2592 29 4
v 33 w(MATRIX)22 b FQ(creates)i(a)g(square)f(matrix)f(of)i(dimension)c
(its)j(second)g(argumen)m(t.)39 b(The)241 2705 y(diagonal)24
b(consists)g(of)g(the)h(middle)d(expressions)h(of)i(the)g(\014rst)e
(argumen)m(t,)k(whic)m(h)c(is)h(an)241 2818 y(expression)32
b(list.)50 b(The)34 b(expressions)e(to)j(the)f(left)g(of)g(this)f
(\014ll)f(the)i(required)e(n)m(um)m(b)s(er)241 2931 y(of)e(sub)p
487 2931 28 4 v 32 w(diagonals)f(and)h(the)h(expressions)e(to)i(the)f
(righ)m(t)g(the)h(sup)s(er)p 2587 2931 V 31 w(diagonals.)282
3368 y FJ(band)p 479 3368 V 32 w(matrix)n FQ(\()p FP(f)p
FL(x;)15 b(y)s(;)g(z)t FP(g)p FL(;)g FQ(6\))87 b(=)1503
3025 y FB(0)1503 3171 y(B)1503 3221 y(B)1503 3271 y(B)1503
3321 y(B)1503 3370 y(B)1503 3420 y(B)1503 3470 y(B)1503
3523 y(@)1620 3086 y FL(y)j(z)k FQ(0)c(0)g(0)e(0)1618
3199 y FL(x)d(y)90 b(z)k FQ(0)c(0)e(0)1621 3312 y(0)f
FL(x)e(y)90 b(z)k FQ(0)88 b(0)1621 3425 y(0)i(0)c FL(x)g(y)k(z)i
FQ(0)1621 3537 y(0)e(0)g(0)c FL(x)g(y)i(z)1621 3650 y
FQ(0)i(0)g(0)g(0)c FL(x)d(y)2382 3025 y FB(1)2382 3171
y(C)2382 3221 y(C)2382 3271 y(C)2382 3321 y(C)2382 3370
y(C)2382 3420 y(C)2382 3470 y(C)2382 3523 y(A)241 3805
y FQ(Related)30 b(to)h(the)g(band)e(matrix)h(is)f(a)i(blo)s(c)m(k)f
(matrix,)g(whic)m(h)f(can)i(b)s(e)f(created)h(b)m(y)241
3968 y FJ(BLOCK)p 487 3968 29 4 v 33 w(MATRIX\(r,c,matrix)p
1336 3968 V 29 w(list\))p FQ(.)241 4131 y(The)j(resulting)f(matrix)h
(consists)g(of)h(r)f(b)m(y)h(c)g(matrices)g(\014lled)d(from)j(the)g
(matrix)p 3081 4131 28 4 v 32 w(list)241 4244 y(ro)m(w)30
b(wise.)373 4531 y FP(B)d FQ(=)556 4387 y FB( )664 4474
y FQ(1)83 b(0)664 4587 y(0)g(1)879 4387 y FB(!)960 4531
y FL(;)g FP(C)31 b FQ(=)1242 4387 y FB( )1350 4474 y
FQ(5)1350 4587 y(5)1437 4387 y FB(!)1518 4531 y FL(;)83
b FP(D)28 b FQ(=)1820 4387 y FB( )1927 4474 y FQ(22)84
b(33)1927 4587 y(44)g(55)2233 4387 y FB(!)p eop
%%Page: 408 408
408 407 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(408)440 b FM(CHAPTER)30 b(52.)72 b(LINALG:)31 b(LINEAR)f(ALGEBRA)h
(P)-8 b(A)m(CKA)m(GE)796 712 y FJ(block)p 1041 712 28
4 v 31 w(matrix)o FQ(\(2)p FL(;)15 b FQ(3)p FL(;)g FP(fB)s
FL(;)g FP(C)5 b FL(;)15 b FP(D)s FL(;)g FP(D)s FL(;)g
FP(C)5 b FL(;)15 b FP(B)6 b(g)p FQ(\))84 b(=)2502 469
y FB(0)2502 615 y(B)2502 665 y(B)2502 715 y(B)2502 768
y(@)2639 543 y FQ(1)129 b(0)106 b(5)84 b(22)g(33)2639
656 y(0)129 b(1)106 b(5)84 b(44)g(55)2617 769 y(22)f(33)h(5)107
b(1)129 b(0)2617 882 y(44)83 b(55)h(5)107 b(0)129 b(1)3399
469 y FB(1)3399 615 y(C)3399 665 y(C)3399 715 y(C)3399
768 y(A)664 1118 y FQ(Characteristic)39 b(p)s(olynomials)e(and)i(c)m
(haracteristic)h(matrices)g(are)g(created)g(b)m(y)g(the)664
1231 y(functions)29 b FJ(CHAR)p 1254 1231 29 4 v 33 w(POLY)h
FQ(and)f FJ(CHAR)p 1877 1231 V 34 w(MATRIX)p FQ(.)664
1394 y(A)c(set)h(of)g(linear)d(equations)i(can)h(b)s(e)e(turned)g(in)m
(to)h(the)h(asso)s(ciated)f(co)s(e\016cien)m(t)i(matrix)664
1507 y(and)g(v)m(ector)i(of)e(unkno)m(wns)f(and)h(the)g(righ)m
(thandside.)38 b FJ(COEFF)p 2807 1507 V 33 w(MATRIX)25
b FQ(returns)i(a)g(list)664 1620 y FP(fC)5 b FL(;)15
b FP(X)e FL(;)i FP(B)t(g)31 b FQ(suc)m(h)f(that)h FP(C)5
b(X)39 b FQ(=)25 b FP(B)s FQ(.)769 1782 y FJ(coeff)p
1014 1782 28 4 v 32 w(matrix)n FQ(\()p FP(f)p FL(x)c
FQ(+)f FL(y)j FQ(+)d(4)g FP(\003)h FL(z)30 b FQ(=)25
b(10)p FL(;)15 b(y)24 b FQ(+)c FL(x)g FP(\000)g FL(z)29
b FQ(=)c(20)p FL(;)15 b(x)22 b FQ(+)e FL(y)j FQ(+)d(4)p
FP(g)p FQ(\))26 b(=)799 2005 y FB(8)799 2079 y(>)799
2104 y(<)799 2254 y(>)799 2278 y(:)873 2008 y(0)873 2154
y(B)873 2207 y(@)1023 2089 y FQ(4)119 b(1)83 b(1)987
2201 y FP(\000)p FQ(1)h(1)f(1)1023 2314 y(0)119 b(1)83
b(1)1402 2008 y FB(1)1402 2154 y(C)1402 2207 y(A)1490
2202 y FL(;)1530 2008 y FB(0)1530 2154 y(B)1530 2207
y(@)1647 2089 y FL(z)1646 2201 y(y)1644 2314 y(x)1738
2008 y FB(1)1738 2154 y(C)1738 2207 y(A)1826 2202 y FL(;)1866
2008 y FB(0)1866 2154 y(B)1866 2207 y(@)1993 2089 y FQ(10)1993
2201 y(20)1980 2314 y FP(\000)p FQ(4)2138 2008 y FB(1)2138
2154 y(C)2138 2207 y(A)2211 2005 y(9)2211 2079 y(>)2211
2104 y(=)2211 2254 y(>)2211 2278 y(;)664 2561 y FJ(COMPANION)p
FQ(\(p)s(oly)-8 b(,x\))32 b(creates)j(the)f(companion)g(matrix)f
FP(C)39 b FQ(of)34 b(a)h(p)s(olynomial.)49 b(That)664
2674 y(is)37 b(the)i(square)e(matrix)h(of)g(dimension)d(n,)40
b(where)e(n)f(is)g(the)i(degree)f(of)h(p)s(olynomial)664
2787 y(with)30 b(resp)s(ect)h(to)h(x,)f(and)f(the)h(en)m(tries)g(of)g
FP(C)36 b FQ(are:)43 b FP(C)5 b FQ(\(i,n\))30 b(=)h(-co)s(e\013n\(p)s
(oly)-8 b(,x,i-1\))32 b(for)f(i)664 2900 y(=)f(1)h(.)15
b(.)h(.)f(n,)30 b FP(C)5 b FQ(\(i,i-1\))31 b(=)f(1)h(for)f(i)f(=)h(2)h
(.)16 b(.)f(.)g(n)30 b(and)g(the)g(rest)h(are)g(0.)796
3310 y FJ(companion)n FQ(\()p FL(x)1313 3277 y FO(4)1372
3310 y FQ(+)20 b(17)i FP(\003)e FL(x)1692 3277 y FO(3)1752
3310 y FP(\000)g FQ(9)g FP(\003)h FL(x)2026 3277 y FO(2)2086
3310 y FQ(+)e(11)p FL(;)c(x)p FQ(\))85 b(=)2632 3067
y FB(0)2632 3213 y(B)2632 3263 y(B)2632 3313 y(B)2632
3366 y(@)2746 3141 y FQ(0)e(0)h(0)f FP(\000)p FQ(11)2746
3254 y(1)g(0)h(0)142 b(0)2746 3367 y(0)83 b(1)h(0)142
b(9)2746 3480 y(0)83 b(0)h(1)f FP(\000)p FQ(17)3335 3067
y FB(1)3335 3213 y(C)3335 3263 y(C)3335 3313 y(C)3335
3366 y(A)664 3716 y FQ(The)37 b(p)s(olynomial)e(asso)s(ciated)j(with)f
(a)h(companion)f(matrix)g(can)h(b)s(e)f(reco)m(v)m(ered)i(b)m(y)664
3829 y(calling)29 b FJ(FIND)p 1150 3829 29 4 v 33 w(COMPANION)p
FQ(.)664 3992 y FJ(HESSIAN)p FQ(\(expr,)23 b(v)-5 b(ar)p
1387 3992 28 4 v 33 w(list\))22 b(calculates)h(the)g(Hessian)g(matrix)f
(of)h(the)h(expressions)d(with)664 4105 y(resp)s(ect)27
b(to)h(the)f(v)-5 b(ariables)25 b(in)h(the)h(list,)g(or)g(the)g(single)
e(v)-5 b(ariable.)39 b(That)26 b(is)g(the)i(matrix)664
4217 y(with)33 b(the)h(\(i,)15 b(j\))34 b(elemen)m(t)h(the)f
FL(j)1775 4185 y FF(th)1880 4217 y FQ(deriv)-5 b(ativ)m(e)34
b(of)g(the)h(expressions)d(with)h(resp)s(ect)h(to)664
4330 y(the)d FL(i)852 4297 y FF(th)953 4330 y FQ(v)-5
b(ariable.)796 4718 y FJ(hessian)n FQ(\()p FL(x)21 b
FP(\003)f FL(y)j FP(\003)e FL(z)j FQ(+)c FL(x)1646 4685
y FO(2)1686 4718 y FL(;)15 b FP(f)p FL(w)r(;)g(x;)g(y)s(;)g(z)t
FP(g)p FQ(\))86 b(=)2424 4475 y FB(0)2424 4621 y(B)2424
4671 y(B)2424 4721 y(B)2424 4774 y(@)2538 4549 y FQ(0)f(0)j(0)i(0)2538
4662 y(0)85 b(2)i FL(z)92 b(y)2538 4775 y FQ(0)84 b FL(z)92
b FQ(0)86 b FL(x)2538 4888 y FQ(0)e FL(y)h(x)i FQ(0)3026
4475 y FB(1)3026 4621 y(C)3026 4671 y(C)3026 4721 y(C)3026
4774 y(A)p eop
%%Page: 409 409
409 408 bop 241 299 a @beginspecial @setspecial @endspecial
FM(52.4.)72 b(CONSTR)m(UCTORS)1820 b FQ(409)241 555 y(Hilb)s(ert's)21
b(matrix,)k(that)f(is)f(where)g(the)h(\(i,)15 b(j\))23
b(elemen)m(t)h(is)f(1)p FL(=)p FQ(\()p FL(i)7 b FQ(+)g
FL(j)12 b FP(\000)7 b FL(x)p FQ(\))24 b(is)e(constructed)241
668 y(b)m(y)30 b FJ(HILBERT)p FQ(\(n,x\).)241 831 y(The)23
b(Jacobian)g(of)h(an)g(expression)e(list)g(with)h(resp)s(ect)h(to)g(a)g
(v)-5 b(ariable)23 b(list)f(is)h(calculated)241 944 y(b)m(y)38
b FJ(JACOBIAN)p FQ(\(expr)p 974 944 28 4 v 31 w(list,v)-5
b(ariable)p 1465 944 V 30 w(list\).)66 b(This)37 b(is)g(a)j(matrix)e
(whose)g(\(i,)15 b(j\))39 b(en)m(try)g(is)241 1057 y(df\(expr)p
535 1057 V 32 w(list\(i\),v)-5 b(ariable)p 1123 1057
V 30 w(list\(j\)\).)241 1219 y(The)24 b(square)g(Jordan)f(blo)s(c)m(k)h
(matrix)g(of)h(dimension)c FL(n)j FQ(is)g(calculated)g(b)m(y)g(the)h
(function)241 1332 y FJ(JORDAN)p 535 1332 29 4 v 32 w(BLOCK)p
FQ(\(exp,n\).)46 b(The)31 b(en)m(tries)h(of)h(the)f(Jordan)p
2182 1332 28 4 v 32 w(blo)s(c)m(k)g(matrix)f(are)i FP(J)16
b FQ(\(i,i\))32 b(=)241 1445 y(expr)e(for)g(i=1)f(.)16
b(.)f(.)h(n,)30 b FP(J)16 b FQ(\(i,i+1\))30 b(=)g(1)h(for)f(i=1)g(.)15
b(.)g(.)h(n-1,)31 b(and)e(all)h(other)g(en)m(tries)h(are)f(0.)373
1912 y FJ(jordan)p 666 1912 V 31 w(block)p FQ(\()p FJ(x)p
FL(;)15 b FJ(5)p FQ(\))82 b(=)1374 1619 y FB(0)1374 1765
y(B)1374 1815 y(B)1374 1865 y(B)1374 1915 y(B)1374 1964
y(B)1374 2018 y(@)1488 1686 y FL(x)k FQ(1)k(0)g(0)g(0)1491
1799 y(0)d FL(x)f FQ(1)k(0)g(0)1491 1912 y(0)g(0)d FL(x)f
FQ(1)k(0)1491 2025 y(0)g(0)g(0)d FL(x)f FQ(1)1491 2138
y(0)k(0)g(0)g(0)d FL(x)2121 1619 y FB(1)2121 1765 y(C)2121
1815 y(C)2121 1865 y(C)2121 1915 y(C)2121 1964 y(C)2121
2018 y(A)241 2380 y FJ(MAKE)p 439 2380 29 4 v 33 w(IDENTITY)p
FQ(\(n\))28 b(generates)k(the)f FL(n)19 b FP(\002)h FL(n)30
b FQ(iden)m(tit)m(y)g(matrix.)241 2542 y FJ(RANDOM)p
535 2542 V 32 w(MATRIX)p FQ(\(r,c,limit\))39 b(generates)k(and)d
FL(r)30 b FP(\002)d FL(c)41 b FQ(matrix)g(with)f(random)g(v)-5
b(alues)241 2655 y(limited)25 b(b)m(y)i FJ(limit)p FQ(.)38
b(The)27 b(t)m(yp)s(e)g(of)h(en)m(tries)f(is)f(con)m(trolled)h(b)m(y)g
(a)h(n)m(um)m(b)s(er)e(of)i(switc)m(hes.)241 2918 y FJ(IMAGINARY)43
b FQ(If)20 b(on)g(then)h(matrix)e(en)m(tries)i(are)g
FL(x)q FQ(+)q FL(i)q FP(\003)q FL(y)h FQ(where)e FP(\000)p
FL(l)r(imit)25 b(<)g(x;)15 b(y)28 b(<)d(l)r(imit)p FQ(.)241
3105 y FJ(NOT)p 391 3105 V 33 w(NEGATIVE)44 b FQ(If)27
b(on)g(then)h(0)e FL(<)f(entr)s(y)i(<)e(l)r(imit)p FQ(.)40
b(In)27 b(the)h(imaginary)e(case)j(w)m(e)f(ha)m(v)m(e)468
3218 y(0)e FL(<)f(x;)15 b(y)28 b(<)d(l)r(imit)p FQ(.)241
3406 y FJ(ONLY)p 439 3406 V 33 w(INTEGER)44 b FQ(If)31
b(on)h(then)g(eac)m(h)h(en)m(try)f(is)f(an)h(in)m(teger.)46
b(In)31 b(the)h(imaginary)f(case)i FL(x)468 3519 y FQ(and)d
FL(y)j FQ(are)e(in)m(tegers.)41 b(If)30 b(o\013)g(the)h(v)-5
b(alues)30 b(are)g(rounded.)241 3706 y FJ(SYMMETRIC)43
b FQ(If)30 b(on)g(then)g(the)h(matrix)e(is)h(symmetric.)241
3894 y FJ(UPPER)p 487 3894 V 33 w(MATRIX)44 b FQ(If)29
b(on)i(then)f(the)g(matrix)g(is)g(upp)s(er)e(triangular.)241
4082 y FJ(LOWER)p 487 4082 V 33 w(MATRIX)44 b FQ(If)29
b(on)i(then)f(the)g(matrix)g(is)g(lo)m(w)m(er)g(triangular.)373
4436 y FJ(random)p 666 4436 28 4 v 31 w(matrix)n FQ(\(3)p
FL(;)15 b FQ(3)p FL(;)g FQ(10\))86 b(=)1548 4242 y FB(0)1548
4388 y(B)1548 4441 y(@)1662 4323 y FP(\000)p FQ(4)p FL(:)p
FQ(729721)99 b(6)p FL(:)p FQ(987047)134 b(7)p FL(:)p
FQ(521383)1662 4436 y FP(\000)p FQ(5)p FL(:)p FQ(224177)99
b(5)p FL(:)p FQ(797709)g FP(\000)p FQ(4)p FL(:)p FQ(321952)1662
4549 y FP(\000)p FQ(9)p FL(:)p FQ(418455)86 b FP(\000)p
FQ(9)p FL(:)p FQ(94318)g FP(\000)p FQ(0)p FL(:)p FQ(730980)3067
4242 y FB(1)3067 4388 y(C)3067 4441 y(A)370 4902 y FJ(on)47
b(only)p 711 4902 29 4 v 34 w(integer,)e(not)p 1318 4902
V 34 w(negative,)g(upper)p 2069 4902 V 33 w(matrix,)h(imaginary;)p
eop
%%Page: 410 410
410 409 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(410)440 b FM(CHAPTER)30 b(52.)72 b(LINALG:)31 b(LINEAR)f(ALGEBRA)h
(P)-8 b(A)m(CKA)m(GE)706 812 y FJ(random)p 999 812 28
4 v 31 w(matrix)n FQ(\(4)p FL(;)15 b FQ(4)p FL(;)g FQ(10\))86
b(=)1881 568 y FB(0)1881 715 y(B)1881 764 y(B)1881 814
y(B)1881 867 y(@)1995 643 y FQ(2)21 b FP(\003)g FL(i)f
FQ(+)g(5)84 b(3)20 b FP(\003)h FL(i)f FQ(+)g(7)84 b(7)20
b FP(\003)h FL(i)g FQ(+)f(3)220 b(6)2132 755 y(0)h(2)20
b FP(\003)h FL(i)f FQ(+)g(5)84 b(5)20 b FP(\003)h FL(i)g
FQ(+)f(1)83 b(2)21 b FP(\003)f FL(i)h FQ(+)f(1)2132 868
y(0)357 b(0)h(8)364 b FL(i)2132 981 y FQ(0)357 b(0)h(0)220
b(5)21 b FP(\003)f FL(i)h FQ(+)f(9)3563 568 y FB(1)3563
715 y(C)3563 764 y(C)3563 814 y(C)3563 867 y(A)664 1193
y FJ(TOEPLITZ)33 b FQ(creates)j(the)g(T)-8 b(o)s(eplitz)34
b(matrix)g(from)h(the)g(giv)m(en)g(expression)e(list.)54
b(This)664 1306 y(is)31 b(a)i(square)f(symmetric)f(matrix)g(in)g(whic)m
(h)g(the)h(\014rst)f(expression)g(is)g(placed)h(on)g(the)664
1419 y(diagonal)k(and)g(the)h FL(i)1411 1386 y FF(th)1519
1419 y FQ(expression)e(is)h(placed)g(on)h(the)g(\()p
FL(i)25 b FP(\000)f FQ(1\))2912 1386 y FF(th)3020 1419
y FQ(sub-)36 b(and)g(sup)s(er-)664 1532 y(diagonals.)k(It)31
b(has)f(dimension)d(equal)j(to)h(the)g(n)m(um)m(b)s(er)e(of)i
(expressions.)706 1937 y FJ(toeplitz)n FQ(\()p FP(f)p
FL(w)r(;)15 b(x;)g(y)s(;)g(z)t FP(g)p FQ(\))86 b(=)1821
1694 y FB(0)1821 1840 y(B)1821 1890 y(B)1821 1939 y(B)1821
1993 y(@)1935 1768 y FL(w)93 b(x)101 b(y)106 b(z)1943
1881 y(x)90 b(w)k(x)100 b(y)1945 1994 y(y)j(x)91 b(w)i(x)1945
2106 y(z)108 b(y)c(x)90 b(w)2496 1694 y FB(1)2496 1840
y(C)2496 1890 y(C)2496 1939 y(C)2496 1993 y(A)664 2343
y FJ(VANDERMONDE)26 b FQ(creates)31 b(the)e(V)-8 b(andermonde)28
b(matrix)h(from)f(the)i(expression)d(list;)i(the)664
2456 y(square)h(matrix)g(in)f(whic)m(h)g(the)i(\(i,)15
b(j\))30 b(en)m(try)h(is)e(expr)p 2472 2456 V 32 w(list\(i\))2747
2423 y FO(\()p FF(j)t Fu(\000)p FO(1\))2929 2456 y FQ(.)796
2815 y FJ(vandermonde)m FQ(\()p FP(f)p FL(x;)15 b FQ(2)22
b FP(\003)e FL(y)s(;)15 b FQ(3)21 b FP(\003)g FL(z)t
FP(g)p FQ(\))84 b(=)2209 2621 y FB(0)2209 2768 y(B)2209
2821 y(@)2323 2702 y FQ(1)147 b FL(x)210 b(x)2829 2669
y FO(2)2323 2815 y FQ(1)83 b(2)21 b FP(\003)g FL(y)86
b FQ(4)20 b FP(\003)h FL(y)2893 2782 y FO(2)2323 2928
y FQ(1)84 b(3)21 b FP(\003)g FL(z)88 b FQ(9)21 b FP(\003)g
FL(z)2892 2895 y FO(2)2974 2621 y FB(1)2974 2768 y(C)2974
2821 y(A)664 3174 y FQ(The)h(direct)f(pro)s(duct)g(\(or)h(tensor)g(pro)
s(duct\))f(is)g(created)i(b)m(y)f(the)g FJ(KRONECKER)p
3293 3174 29 4 v 32 w(PRODUCT)664 3287 y FQ(function.)664
3518 y FH(a1)43 b(:=)g(mat\(\(1,2\),\(3,4\))o(,\(5)o(,6)o(\)\)$)664
3618 y(a2)g(:=)g(mat\(\(1,1,1\),\(2,)o(z,2)o(\),)o(\(3,)o(3,)o(3\)\))o
($)664 3717 y(kronecker_product)o(\(a)o(1,)o(a2\))o(;)796
3889 y FB(0)796 4035 y(B)796 4085 y(B)796 4134 y(B)796
4184 y(B)796 4234 y(B)796 4284 y(B)796 4334 y(B)796 4383
y(B)796 4433 y(B)796 4483 y(B)796 4533 y(B)796 4583 y(B)796
4632 y(B)796 4682 y(B)796 4735 y(@)933 3954 y FQ(1)172
b(1)g(1)129 b(2)173 b(2)f(2)933 4067 y(2)g FL(z)j FQ(2)129
b(4)107 b(2)20 b FP(\003)h FL(z)110 b FQ(4)933 4180 y(3)172
b(3)g(3)129 b(6)173 b(6)f(6)933 4293 y(3)g(3)g(3)129
b(4)173 b(4)f(4)933 4406 y(6)106 b(3)21 b FP(\003)f FL(z)110
b FQ(6)129 b(8)107 b(4)20 b FP(\003)h FL(z)110 b FQ(8)933
4519 y(9)172 b(9)g(9)107 b(12)127 b(12)g(12)933 4632
y(5)172 b(5)g(5)129 b(6)173 b(6)f(6)910 4745 y(10)84
b(5)21 b FP(\003)f FL(z)88 b FQ(10)c(12)g(6)20 b FP(\003)h
FL(z)87 b FQ(12)910 4858 y(15)127 b(15)h(15)84 b(18)127
b(18)g(18)2086 3889 y FB(1)2086 4035 y(C)2086 4085 y(C)2086
4134 y(C)2086 4184 y(C)2086 4234 y(C)2086 4284 y(C)2086
4334 y(C)2086 4383 y(C)2086 4433 y(C)2086 4483 y(C)2086
4533 y(C)2086 4583 y(C)2086 4632 y(C)2086 4682 y(C)2086
4735 y(A)p eop
%%Page: 411 411
411 410 bop 241 299 a @beginspecial @setspecial @endspecial
FM(52.5.)72 b(HIGHER)31 b(ALGORITHMS)1560 b FQ(411)241
464 y @beginspecial @setspecial @endspecial 91 x FE(52.5)135
b(Higher)46 b(Algorithms)241 808 y FQ(The)23 b(Cholesky)g(decomp)s
(osition)g(of)h(a)g(matrix)g(can)g(b)s(e)f(calculated)h(with)f(the)h
(function)241 921 y FJ(CHOLESKY)p FQ(.)d(It)i(returns)f
FP(fL)p FL(;)15 b FP(U)10 b(g)24 b FQ(where)e FP(L)h
FQ(is)g(a)g(lo)m(w)m(er)h(matrix,)g FP(U)32 b FQ(is)22
b(an)i(upp)s(er)d(matrix,)241 1034 y(and)30 b FP(A)24
b FQ(=)h FP(LU)9 b FQ(,)31 b(and)e FP(U)34 b FQ(=)25
b FP(L)1222 1001 y FF(T)1277 1034 y FQ(.)241 1196 y(Gram{Sc)m(hmidt)36
b(orthonormalisation)f(can)j(b)s(e)e(calculated)h(b)m(y)g
FJ(GRAM)p 2738 1196 29 4 v 33 w(SCHMIDT)p FQ(.)e(It)241
1309 y(accepts)30 b(a)f(list)f(of)h(linearly)e(indep)s(enden)m(t)g(v)m
(ectors,)k(written)d(as)h(lists,)f(and)g(returns)g(a)241
1422 y(list)h(of)h(orthogonal)h(normalised)d(v)m(ectors.)241
1653 y FH(gram_schmidt\({{1)o(,0)o(,0)o(},{)o(1,)o(1,0)o(},)o({1,)o(1,)
o(1})o(}\);)241 1852 y({{1,0,0},{0,1,0})o(,{)o(0,)o(0,1)o(}})241
2052 y(gram_schmidt\({{1)o(,2)o(},)o({3,)o(4})o(}\);)502
2251 y(1)392 b(2)348 b(2*sqrt\(5\))171 b(-)43 b(sqrt\(5\))241
2350 y({{---------,----)o(--)o(--)o(-},)o({-)o(---)o(--)o(---)o(--)o
(,-)o(---)o(--)o(---)o(--)o(-})o(})372 2450 y(sqrt\(5\))127
b(sqrt\(5\))390 b(5)479 b(5)241 2694 y FQ(The)26 b(LU)g(decomp)s
(osition)f(of)h(a)h(real)f(or)g(imaginary)f(matrix)h(with)f(n)m(umeric)
g(en)m(tries)h(is)241 2807 y(p)s(erformed)31 b(b)m(y)h
FJ(LU)p 908 2807 V 34 w(DECOM\()p FP(A)p FJ(\))p FQ(.)45
b(It)33 b(returns)e FP(fL)p FL(;)15 b FP(U)10 b(g)33
b FQ(where)f FP(L)g FQ(is)f(a)i(lo)m(w)m(er)g(diagonal)241
2920 y(matrix,)d FP(U)39 b FQ(an)30 b(upp)s(er)f(diagonal)g(matrix)h
(and)g FP(A)25 b FQ(=)f FP(LU)9 b FQ(.)241 3083 y(Note:)56
b(the)37 b(algorithm)g(used)f(can)i(sw)m(ap)f(the)h(ro)m(ws)f(of)g
FP(A)g FQ(during)e(the)j(calculation.)241 3196 y(This)33
b(means)j(that)g FP(LU)44 b FQ(do)s(es)35 b(not)h(equal)f
FP(A)g FQ(but)g(a)h(ro)m(w)g(equiv)-5 b(alen)m(t)35 b(of)g(it.)56
b(Due)36 b(to)241 3309 y(this,)41 b FJ(lu)p 557 3309
V 34 w(decom)e FQ(returns)g FP(fL)p FL(;)15 b FP(U)9
b FQ(,v)m(ec)p FP(g)p FQ(.)72 b(The)40 b(call)f FJ(CONVERT\()p
FP(A)p FJ(,vec\))d FQ(will)i(return)241 3421 y(the)30
b(matrix)g(that)h(has)f(b)s(een)g(decomp)s(osed,)g FD(i.e.)72
b FP(LU)34 b FQ(=)c FJ(convert\()p FP(A)p FJ(,vec\))p
FQ(.)376 3776 y FP(K)d FQ(=)568 3582 y FB(0)568 3728
y(B)568 3781 y(@)717 3663 y FQ(1)119 b(3)84 b(5)682 3776
y FP(\000)p FQ(4)f(3)h(7)717 3888 y(8)119 b(6)84 b(4)1097
3582 y FB(1)1097 3728 y(C)1097 3781 y(A)282 4272 y FJ(lu)p
384 4272 V 34 w(decom)p FQ(\()p FP(K)q FQ(\))f(=)1029
4075 y FB(8)1029 4150 y(>)1029 4175 y(<)1029 4324 y(>)1029
4349 y(:)1103 4078 y(0)1103 4225 y(B)1103 4278 y(@)1252
4159 y FQ(8)177 b(0)245 b(0)1217 4272 y FP(\000)p FQ(4)141
b(6)245 b(0)1252 4385 y(1)119 b(2)p FL(:)p FQ(25)85 b(1)p
FL(:)p FQ(1251)1955 4078 y FB(1)1955 4225 y(C)1955 4278
y(A)2042 4272 y FL(;)2082 4078 y FB(0)2083 4225 y(B)2083
4278 y(@)2197 4159 y FQ(1)e(0)p FL(:)p FQ(75)i(0)p FL(:)p
FQ(5)2197 4272 y(0)141 b(1)h(1)p FL(:)p FQ(5)2197 4385
y(0)f(0)177 b(1)2728 4078 y FB(1)2728 4225 y(C)2728 4278
y(A)2816 4272 y FL(;)15 b FQ([)25 b(3)h(2)g(3)g(])3144
4075 y FB(9)3144 4150 y(>)3144 4175 y(=)3144 4324 y(>)3144
4349 y(;)241 4626 y FJ(PSEUDO)p 535 4626 V 32 w(INVERSE)p
FQ(,)35 b(also)h(kno)m(wn)f(as)i(the)f(Mo)s(ore{P)m(enrose)i(in)m(v)m
(erse,)f(computes)f(the)241 4739 y(pseudo)43 b(in)m(v)m(erse)i(of)f
FP(A)p FQ(.)83 b(Giv)m(en)45 b(the)f(singular)f(v)-5
b(alue)44 b(decomp)s(osition)f(of)h FP(A)p FQ(,)k FD(i.e.)241
4852 y FP(A)25 b FQ(=)g FP(U)516 4788 y FB(P)618 4852
y FP(V)681 4819 y FF(T)737 4852 y FQ(,)30 b(then)g(the)h(pseudo)e(in)m
(v)m(erse)i FP(A)1834 4819 y Fu(\000)p FO(1)1958 4852
y FQ(is)e(de\014ned)g(b)m(y)i FP(A)2562 4819 y Fu(\000)p
FO(1)2681 4852 y FQ(=)25 b FP(V)2840 4819 y FF(T)2910
4788 y FB(P)2998 4814 y Fu(\000)p FO(1)3107 4852 y FP(U)9
b FQ(.)p eop
%%Page: 412 412
412 411 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(412)440 b FM(CHAPTER)30 b(52.)72 b(LINALG:)31 b(LINEAR)f(ALGEBRA)h
(P)-8 b(A)m(CKA)m(GE)664 555 y FQ(Th)m(us)29 b FP(A)h(\003)h
FJ(pseudo)p 1367 555 29 4 v 33 w(inverse)p FQ(\()p FP(A)p
FQ(\))23 b(=)i FP(I)7 b FQ(.)796 964 y FJ(pseudo)p 1089
964 28 4 v 31 w(inverse)n FQ(\()p FP(A)p FQ(\))83 b(=)1829
721 y FB(0)1829 867 y(B)1829 917 y(B)1829 966 y(B)1829
1020 y(@)1966 795 y FP(\000)p FQ(0)p FL(:)p FQ(2)165
b(0)p FL(:)p FQ(1)1943 908 y FP(\000)p FQ(0)p FL(:)p
FQ(05)120 b(0)p FL(:)p FQ(05)2001 1021 y(0)p FL(:)p FQ(1)236
b(0)1979 1134 y(0)p FL(:)p FQ(25)120 b FP(\000)p FQ(0)p
FL(:)p FQ(05)2533 721 y FB(1)2533 867 y(C)2533 917 y(C)2533
966 y(C)2533 1020 y(A)664 1368 y FQ(The)30 b(simplex)e(linear)h
(programming)g(algorithm)g(for)h(maximising)d(or)k(minimising)26
b(a)664 1481 y(function)21 b(sub)5 b(ject)22 b(to)g(lineal)f
(inequalities)e(can)j(b)s(e)g(used)f(with)g(the)h(function)f
FJ(SIMPLEX)p FQ(.)664 1594 y(It)33 b(requires)f(three)h(argumen)m(ts,)h
(the)f(\014rst)f(indicates)f(where)i(the)g(action)g(is)f(to)h(max-)664
1707 y(imising)21 b(or)i(minimising,)e(the)i(second)h(is)e(the)i(test)g
(expressions,)g(and)e(the)i(last)f(is)g(a)g(list)664
1820 y(of)32 b(linear)d(inequalities.)42 b(It)31 b(returns)f
FP(f)p FQ(optimal)h(v)-5 b(alue,)p FP(f)32 b FQ(v)-5
b(alues)30 b(of)i(v)-5 b(ariables)30 b(at)i(this)664
1933 y(optimal)p FP(gg)p FQ(.)41 b(The)30 b(algorithm)f(implies)f(that)
j(all)e(the)h(v)-5 b(ariables)29 b(are)i(non-negativ)m(e.)796
2096 y FJ(simplex\()p FL(max;)15 b(x)j FQ(+)i FL(y)s(;)15
b FP(f)p FL(x)26 b(>)p FQ(=)f(10)p FL(;)15 b(y)29 b(>)p
FQ(=)c(20)p FL(;)15 b(x)21 b FQ(+)f FL(y)28 b(<)p FQ(=)d(25)p
FP(g)p FJ(\);)796 2258 y(*****)47 b(Error)f(in)h(simplex:)93
b(Problem)46 b(has)h(no)g(feasible)f(solution.)796 2541
y(simplex\()p FL(max;)15 b FQ(10)p FL(x)g FQ(+)h(5)p
FL(y)k FQ(+)c(5)p FL(:)p FQ(5)p FL(z)t(;)f FP(f)p FQ(5)p
FL(x)k FQ(+)d(3)p FL(z)30 b(<)p FQ(=)24 b(200)p FL(;)15
b(x)j FQ(+)e(0)p FL(:)p FQ(1)p FL(y)k FQ(+)c(0)p FL(:)p
FQ(5)p FL(z)31 b(<)p FQ(=)25 b(12)p FJ(,)1174 2654 y
FQ(0)p FL(:)p FQ(1)p FL(x)c FQ(+)f(0)p FL(:)p FQ(2)p
FL(y)k FQ(+)c(0)p FL(:)p FQ(3)p FL(z)31 b(<)p FQ(=)25
b(9)p FL(;)15 b FQ(30)p FL(x)22 b FQ(+)d(10)p FL(y)24
b FQ(+)c(50)p FL(z)31 b(<)p FQ(=)24 b(1500)p FP(g)p FJ(\);)796
2863 y FP(f)p FQ(525)p FL(:)p FQ(0)p FL(;)15 b FP(f)p
FL(x)29 b FQ(=)c(40)p FL(:)p FQ(0)p FL(;)15 b(y)30 b
FQ(=)25 b(25)p FL(:)p FQ(0)p FL(;)15 b(z)31 b FQ(=)25
b(0)p FP(gg)664 3026 y FJ(SVD)33 b FQ(computes)g(the)h(singular)d(v)-5
b(alue)33 b(decomp)s(osition)f(of)i FP(A)f FQ(with)f(n)m(umeric)g(en)m
(tries.)664 3139 y(It)k(returns)e FP(fU)9 b FL(;)1238
3074 y FB(P)1326 3139 y FL(;)15 b FP(V)7 b(g)37 b FQ(where)d
FP(A)g FQ(=)f FP(U)2070 3074 y FB(P)2173 3139 y FP(V)2236
3106 y FF(T)2326 3139 y FQ(and)2508 3074 y FB(P)2629
3139 y FQ(=)h FL(diag)s FQ(\()p FL(\033)2993 3153 y FO(1)3034
3139 y FL(;)15 b(:)g(:)g(:)h(;)f(\033)3287 3153 y FF(n)3335
3139 y FQ(\))p FL(:)34 b(\033)3481 3153 y FF(i)3544 3139
y FQ(for)664 3252 y FL(i)c FQ(=)f(\(1)15 b FL(:)g(:)g(:)j(n)p
FQ(\))32 b(are)i(the)f(singular)e(v)-5 b(alues)32 b(of)h
FP(A)p FQ(.)48 b(The)33 b(singular)d(v)-5 b(alues)33
b(of)g FP(A)f FQ(are)i(the)664 3364 y(non-negativ)m(e)e(square)e(ro)s
(ots)g(of)h(the)f(eigen)m(v)-5 b(alues)31 b(of)f FP(A)2623
3331 y FF(T)2678 3364 y FP(A)p FQ(.)664 3527 y FP(U)39
b FQ(and)30 b FP(V)38 b FQ(are)30 b(suc)m(h)g(that)h
FP(U)9 b(U)1716 3491 y FF(T)1797 3527 y FQ(=)25 b FP(V)7
b(V)2019 3491 y FF(T)2099 3527 y FQ(=)25 b FP(V)2258
3494 y FF(T)2313 3527 y FP(V)33 b FQ(=)25 b FP(I)2548
3541 y FF(n)2594 3527 y FQ(.)799 3803 y FP(Q)h FQ(=)995
3659 y FB( )1138 3746 y FQ(1)118 b(3)1102 3859 y FP(\000)p
FQ(4)83 b(3)1388 3659 y FB(!)745 4259 y @beginspecial
@setspecial @endspecial 60 w FJ(svd)p FQ(\()p FP(Q)p
FQ(\))g(=)1330 4115 y FB(\( )1539 4202 y FQ(0)p FL(:)p
FQ(289784)122 b(0)p FL(:)p FQ(957092)1504 4315 y FP(\000)p
FQ(0)p FL(:)p FQ(957092)86 b(0)p FL(:)p FQ(289784)2386
4115 y FB(!)2467 4259 y FL(;)2507 4115 y FB( )2614 4202
y FQ(5)p FL(:)p FQ(149162)236 b(0)2763 4315 y(0)d(2)p
FL(:)p FQ(913094)3426 4115 y FB(!)3507 4259 y FL(;)1400
4397 y FB( )1508 4485 y FP(\000)p FQ(0)p FL(:)p FQ(687215)121
b(0)p FL(:)p FQ(726453)1508 4598 y FP(\000)p FQ(0)p FL(:)p
FQ(726453)86 b FP(\000)p FQ(0)p FL(:)p FQ(687215)2460
4397 y FB(!\))664 4846 y FJ(TRIANG)p 958 4846 29 4 v
33 w(ADJOINT)39 b FQ(computes)i(the)g(trianglarizing)e(adjoin)m(t)i(of)
g(the)g(giv)m(en)g(matrix.)664 4959 y(The)28 b(triangularizing)d
(adjoin)m(t)j(is)f(a)i(lo)m(w)m(er)f(triangular)f(matrix.)39
b(The)28 b(m)m(ultiplication)p eop
%%Page: 413 413
413 412 bop 241 299 a @beginspecial @setspecial @endspecial
FM(52.6.)72 b(F)-10 b(AST)30 b(LINEAR)g(ALGEBRA)1489
b FQ(413)241 555 y(of)23 b(the)g(triangularizing)c(adjoin)m(t)k(with)e
(the)i(giv)m(en)g(matrix)f(results)f(in)h(an)g(upp)s(er)f(trian-)241
668 y(gular)g(matrix.)37 b(The)22 b(i-th)f(en)m(try)h(in)f(the)h
(diagonal)f(of)h(this)f(matrix)g(is)g(the)h(determinan)m(t)241
781 y(of)30 b(the)h(principal)c(i-th)j(minor)f(of)h(the)h(giv)m(en)f
(matrix.)373 1135 y FJ(triang)p 666 1135 28 4 v 31 w(adjoint)n
FQ(\()p FP(A)p FQ(\))83 b(=)1406 941 y FB(0)1406 1088
y(B)1406 1141 y(@)1555 1022 y FQ(1)119 b(0)g(0)1520 1135
y FP(\000)p FQ(4)83 b(1)119 b(0)1520 1248 y FP(\000)p
FQ(3)83 b(6)h FP(\000)p FQ(3)2005 941 y FB(1)2005 1088
y(C)2005 1141 y(A)241 1489 y FQ(The)44 b(m)m(ultiplication)d(of)k(this)
e(matrix)h(with)g FP(A)g FQ(results)f(in)g(an)i(upp)s(er)d(triangular)
241 1602 y(matrix.)373 1745 y FB(0)373 1891 y(B)373 1944
y(@)522 1826 y FQ(1)119 b(0)g(0)487 1939 y FP(\000)p
FQ(4)83 b(1)119 b(0)487 2052 y FP(\000)p FQ(3)83 b(6)g
FP(\000)p FQ(3)972 1745 y FB(1)972 1891 y(C)972 1944
y(A)1128 1745 y(0)1128 1891 y(B)1128 1944 y(@)1242 1826
y FQ(1)g(2)h(3)1242 1939 y(4)f(5)h(6)1242 2052 y(7)f(8)h(9)1586
1745 y FB(1)1586 1891 y(C)1586 1944 y(A)1741 1939 y FQ(=)1895
1745 y FB(0)1895 1891 y(B)1895 1944 y(@)2009 1826 y FQ(1)119
b(2)154 b(3)2009 1939 y(0)84 b FP(\000)p FQ(3)f FP(\000)p
FQ(6)2009 2052 y(0)119 b(0)154 b(0)2495 1745 y FB(1)2495
1891 y(C)2495 1944 y(A)241 2228 y @beginspecial @setspecial
@endspecial 141 x FE(52.6)135 b(F)-11 b(ast)45 b(Linear)h(Algebra)241
2621 y FQ(By)30 b(turning)f(the)h FJ(FAST)p 1061 2621
29 4 v 33 w(LA)g FQ(switc)m(h)g(on,)g(the)g(sp)s(eed)g(of)g(the)h
(follo)m(wing)d(functions)h(will)241 2734 y(b)s(e)h(increased:)291
2872 y(add)p 443 2872 28 4 v 32 w(columns)232 b(add)p
1179 2872 V 32 w(ro)m(ws)286 b(augmen)m(t)p 2017 2872
V 34 w(columns)98 b(column)p 2763 2872 V 32 w(dim)291
2984 y(cop)m(y)p 477 2984 V 33 w(in)m(to)368 b(mak)m(e)p
1238 2984 V 34 w(iden)m(tit)m(y)99 b(matrix)p 1943 2984
V 32 w(augmen)m(t)159 b(matrix)p 2740 2984 V 32 w(stac)m(k)291
3097 y(minor)502 b(m)m(ult)p 1217 3097 V 32 w(column)139
b(m)m(ult)p 1862 3097 V 32 w(ro)m(w)436 b(piv)m(ot)291
3210 y(remo)m(v)m(e)p 575 3210 V 34 w(columns)98 b(remo)m(v)m(e)p
1311 3210 V 35 w(ro)m(ws)151 b(ro)m(ws)p 1857 3210 V
33 w(piv)m(ot)382 b(squarep)291 3323 y(stac)m(k)p 497
3323 V 34 w(ro)m(ws)321 b(sub)p 1170 3323 V 32 w(matrix)209
b(sw)m(ap)p 1872 3323 V 33 w(columns)244 b(sw)m(ap)p
2669 3323 V 33 w(en)m(tries)291 3436 y(sw)m(ap)p 491
3436 V 32 w(ro)m(ws)329 b(symmetricp)241 3591 y(The)22
b(increase)h(in)e(sp)s(eed)h(will)e(b)s(e)i(insigni\014can)m(t)f
(unless)g(y)m(ou)i(are)g(making)f(a)i(thousands)241 3704
y(of)e(calls.)37 b(When)22 b(using)f(this)g(switc)m(h,)j(error)e(c)m
(hec)m(king)h(is)e(minimised,)g(and)g(th)m(us)h(illegal)241
3817 y(input)28 b(ma)m(y)j(giv)m(e)g(strange)g(error)f(messages.)p
eop
%%Page: 414 414
414 413 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(414)440 b FM(CHAPTER)30 b(52.)72 b(LINALG:)31 b(LINEAR)f(ALGEBRA)h
(P)-8 b(A)m(CKA)m(GE)p eop
%%Page: 415 415
415 414 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(53)241 1693 y FT(MA)-19 b(THML)76 b(:)h(MathML)241
1942 y(In)-6 b(terface)77 b(for)h(REDUCE)1341 2415 y
Fx(Luis)26 b(Alv)l(arez-Sobreviela)839 2506 y(Konrad-Zuse-Zen)n(trum)d
(f)r(\177)-41 b(ur)27 b(Informationstec)n(hnik)e(Berlin)1521
2598 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1162 2689
y(D-14195)g(Berlin-Dahlem,)f(German)n(y)241 2933 y FQ(MathML)38
b(is)f(in)m(tended)f(to)i(facilitate)g(the)g(use)f(and)g(re-use)g(of)h
(mathematical)g(and)241 3046 y(scien)m(ti\014c)32 b(con)m(ten)m(t)j(on)
e(the)g(W)-8 b(eb,)34 b(and)f(for)f(other)i(applications)d(suc)m(h)h
(as)i(computer)241 3159 y(algebra)c(systems.)241 3272
y(This)25 b(pac)m(k)-5 b(age)30 b(con)m(tains)d(the)h(MathML-REDUCE)g
(in)m(terface.)40 b(This)26 b(in)m(terface)i(pro-)241
3385 y(vides)35 b(an)h(easy)h(to)h(use)e(series)f(of)i(commands,)h
(allo)m(wing)d(to)i(ev)-5 b(aluate)37 b(and)f(output)241
3497 y(MathML.)241 3660 y(The)30 b(principal)d(features)j(of)h(this)e
(pac)m(k)-5 b(age)33 b(can)d(b)s(e)g(resumed)f(as:)377
3898 y FP(\017)46 b FQ(Ev)-5 b(aluation)44 b(of)h(MathML)h(co)s(de.)86
b(Allo)m(ws)44 b(REDUCE)h(to)h(parse)f(MathML)468 4011
y(expressions)29 b(and)h(ev)-5 b(aluate)31 b(them.)377
4198 y FP(\017)46 b FQ(Generation)31 b(of)f(MathML)h(complian)m(t)f(co)
s(de.)41 b(Pro)m(vides)29 b(the)i(prin)m(ting)d(of)i(RE-)468
4311 y(DUCE)c(expressions)f(in)g(MathML)i(source)f(co)s(de,)h(to)g(b)s
(e)f(used)f(directly)g(in)g(w)m(eb)468 4424 y(page)31
b(pro)s(duction.)241 4661 y(W)-8 b(e)35 b(assume)f(that)h(the)f(reader)
g(is)f(familiar)f(with)h(MathML.)i(If)e(not,)j(the)e(sp)s(eci\014ca-)
241 4774 y(tion)p @beginspecial @setspecial @endspecial
-33 x FO(1)467 4774 y FQ(is)29 b(a)m(v)-5 b(ailable)30
b(at:)224 b FJ(http://www.w3.org/TR/W)o(D-ma)o(th/)p
241 4836 1196 4 v 344 4890 a Fy(1)379 4921 y @beginspecial
@setspecial @endspecial Fx(This)32 b(sp)r(eci\014cation)g(is)g(sub)t
(ject)g(to)f(c)n(hange,)j(since)d(it)h(is)g(not)f(y)n(et)f(a)i(\014nal)
f(draft.)52 b(During)31 b(the)1667 5187 y FQ(415)p eop
%%Page: 416 416
416 415 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(416)8 b FM(CHAPTER)31 b(53.)72 b(MA)-8 b(THML)31 b(:)g(MA)-8
b(THML)31 b(INTERF)-10 b(A)m(CE)30 b(F)m(OR)h(REDUCE)664
555 y FQ(The)52 b(MathML-REDUCE)i(in)m(terface)f(pac)m(k)-5
b(age)54 b(is)e(loaded)g(b)m(y)g(supplying)d FJ(load)664
668 y(mathml;)p FQ(.)664 958 y FN(Switc)m(hes)664 1179
y FQ(There)33 b(are)h(t)m(w)m(o)g(switc)m(hes)f(whic)m(h)f(can)i(b)s(e)
f(used)f(alternativ)m(ely)h(and)g(incremen)m(tally)-8
b(.)664 1292 y(These)30 b(are)h FJ(MATHML)e FQ(and)h
FJ(BOTH)p FQ(.)f(Their)g(use)h(can)g(b)s(e)g(describ)s(ed)e(as)j(follo)
m(ws:)664 1555 y FJ(mathml)p FN(:)44 b FQ(All)29 b(output)h(will)e(b)s
(e)h(prin)m(ted)g(in)g(MathML.)664 1742 y FJ(both)p FN(:)45
b FQ(All)29 b(output)h(will)d(b)s(e)j(prin)m(ted)f(in)g(b)s(oth)h
(MathML)h(and)e(normal)h(REDUCE.)664 1930 y FJ(web)p
FN(:)45 b FQ(All)26 b(output)i(will)d(b)s(e)i(prin)m(ted)f(within)f(an)
j(HTML)g FL(<)p FQ(em)m(b)s(ed)p FL(>)e FQ(tag.)41 b(This)26
b(is)h(for)891 2043 y(direct)j(use)g(in)f(an)i(HTML)f(w)m(eb)g(page.)42
b(Only)29 b(w)m(orks)h(when)f FJ(mathml)g FQ(is)g(on.)664
2305 y(MathML)44 b(has)e(often)i(b)s(een)e(said)g(to)h(b)s(e)f(to)s(o)i
(v)m(erb)s(ose.)78 b(If)43 b FJ(BOTH)e FQ(is)h(on,)47
b(an)42 b(easy)664 2418 y(in)m(terpretation)30 b(of)h(the)f(results)f
(is)h(p)s(ossible,)e(impro)m(ving)g(MathML)j(readabilit)m(y)-8
b(.)664 2708 y FN(Op)s(erators)35 b(of)g(P)m(ac)m(k)-6
b(age)36 b(MathML)664 2917 y FJ(mml)p FN(\(\014lename\):)43
b FQ(This)29 b(function)h(op)s(ens)g(and)g(reads)g(the)h(\014le)f
(\014lename)g(con)m(taining)891 3030 y(the)h(MathML.)664
3218 y FJ(parseml)p FN(\(\):)43 b FQ(T)-8 b(o)36 b(in)m(tro)s(duce)e(a)
i(series)e(of)i(v)-5 b(alid)33 b(mathml)i(tok)m(ens)h(y)m(ou)f(can)h
(use)f(this)891 3331 y(function.)k(It)28 b(tak)m(es)i(no)e(argumen)m
(ts)g(and)g(will)d(prompt)j(y)m(ou)g(to)h(en)m(ter)g(mathml)891
3443 y(tags)e(stating)f(with)e FL(<)p FQ(mathml)p FL(>)g
FQ(and)g(ending)g(with)h FL(<)p FQ(/mathml)p FL(>)p FQ(.)38
b(It)25 b(returns)891 3556 y(an)31 b(expression)e(resulting)f(from)i
(ev)-5 b(aluating)30 b(the)h(input.)664 3805 y FN(Example)664
4011 y FH(1:)87 b(load)41 b(mathml;)664 4211 y(3:)87
b(on)42 b(both;)664 4410 y(3:)87 b(int\(2*x+1,x\);;)926
4609 y(x*\(x)42 b(+)h(1\))p 664 4770 1196 4 v 664 4856
a Fx(t)n(w)n(o)24 b(mon)n(th)e(p)r(erio)r(d)i(in)g(whic)n(h)g(this)g
(pac)n(k)l(age)f(w)n(as)i(dev)n(elop)r(ed,)f(the)f(sp)r(eci\014cation)i
(c)n(hanged,)g(forcing)664 4947 y(a)h(review)g(of)h(the)e(co)r(de.)35
b(This)26 b(pac)n(k)l(age)g(is)h(based)e(on)h(the)f(No)n(v)g(98)i(v)n
(ersion.)p eop
%%Page: 417 417
417 416 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(417)502 555 y FH(<mathml>)633 655 y(<apply><plus/>)764
754 y(<apply><power/>)895 854 y(<ci>x</ci>)895 954 y(<cn)42
b(type="integer">2)o(</)o(cn>)764 1053 y(</apply>)764
1153 y(<ci>x</ci>)633 1253 y(</apply>)502 1352 y(</mathml>)241
1551 y(4:)p eop
%%Page: 418 418
418 417 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(418)8 b FM(CHAPTER)31 b(53.)72 b(MA)-8 b(THML)31 b(:)g(MA)-8
b(THML)31 b(INTERF)-10 b(A)m(CE)30 b(F)m(OR)h(REDUCE)p
eop
%%Page: 419 419
419 418 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(54)241 1693 y FT(MODSR:)77 b(Mo)6 b(dular)78 b(solv)-6
b(e)76 b(and)241 1942 y(ro)6 b(ots)1470 2415 y Fx(Herb)r(ert)26
b(Melenk)826 2506 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2598 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2689 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)1352 2810 y(e{mail:)35 b(melenk@zib.de)241
3054 y FQ(This)j(pac)m(k)-5 b(age)42 b(supp)s(orts)c(solv)m(e)i(\()p
FJ(M)p 1509 3054 29 4 v 34 w(SOLVE)p FQ(\))f(and)g(ro)s(ots)h(\()p
FJ(M)p 2366 3054 V 35 w(ROOTS)p FQ(\))f(op)s(erators)h(for)241
3167 y(mo)s(dular)35 b(p)s(olynomials)f(and)j(mo)s(dular)e(p)s
(olynomial)f(systems.)61 b(The)36 b(mo)s(duli)f(need)241
3280 y(not)j(b)s(e)f(primes.)61 b FJ(M)p 946 3280 V 34
w(SOLVE)36 b FQ(requires)g(a)i(mo)s(dulus)d(to)k(b)s(e)e(set.)63
b FJ(M)p 2559 3280 V 34 w(ROOTS)36 b FQ(tak)m(es)j(the)241
3393 y(mo)s(dulus)27 b(as)k(a)g(second)f(argumen)m(t.)41
b(F)-8 b(or)32 b(example:)241 3624 y FH(on)43 b(modular;)d(setmod)h(8;)
241 3723 y(m_solve\(2x=4\);)517 b(->)86 b({{X=2},{X=6}})241
3823 y(m_solve\({x^2-y^3)o(=3)o(}\))o(;)415 3923 y(->)g({{X=0,Y=5},)39
b({X=2,Y=1},)h({X=4,Y=5},)f({X=6,Y=1}})241 4022 y(m_solve\({x=2,x^2)o
(-y)o(^3)o(=3})o(\);)e(->)86 b({{X=2,Y=1}})241 4122 y(off)42
b(modular;)241 4222 y(m_roots\(x^2-1,8\))o(;)386 b(->)86
b({1,3,5,7})241 4321 y(m_roots\(x^3-x,7\))o(;)386 b(->)86
b({0,1,6})1667 5187 y FQ(419)p eop
%%Page: 420 420
420 419 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(420)382 b FM(CHAPTER)29 b(54.)72 b(MODSR:)31 b(MODULAR)g(SOL)-10
b(VE)29 b(AND)i(R)m(OOTS)p eop
%%Page: 421 421
421 420 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(55)241 1693 y FT(MR)-26 b(VLIMIT:)76 b(P)-6 b(ac)g(k)-13
b(age)76 b(for)241 1942 y(Computing)h(Limits)f(of)241
2191 y("Exp-Log")h(F)-19 b(unctions)1482 2673 y Fx(Neil)26
b(Langmead)732 2764 y(Konrad-Zuse-Zen)n(trum)d(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)i(\(ZIB\))1521
2856 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1137 2947
y(D)e(-)g(14195)j(Berlin-Dahlem,)e(German)n(y)241 3191
y FQ(Using)38 b(the)i(LIMITS)e(pac)m(k)-5 b(age)41 b(to)f(compute)g
(the)g(limits)d(of)i(functions)f(con)m(taining)241 3304
y(exp)s(onen)m(tial)27 b(and)i(logarithmic)e(expressions)g(ma)m(y)i
(raise)g(a)g(problem.)38 b(F)-8 b(or)30 b(the)f(com-)241
3417 y(putation)22 b(of)h(inde\014nite)d(forms)i(\(suc)m(h)h(as)g(0)p
FL(=)p FQ(0,or)1945 3381 y Fu(1)p 1945 3396 71 4 v 1945
3448 a(1)2025 3417 y FQ(\))g(L'Hospital's)f(rule)g(ma)m(y)h(only)f(b)s
(e)241 3530 y(applied)g(a)j(\014nite)e(n)m(um)m(b)s(er)g(of)i(times)f
(in)f(a)i(CAS.)f(In)g(REDUCE)g(it)g(is)g(applied)e(3)j(times.)241
3643 y(This)i(algorithm)h(of)h(Dominik)f(Grun)m(tz)h(of)g(the)g(ETH)g
(Z)s(\177)-48 b(uric)m(h)27 b(solv)m(es)i(this)f(particular)241
3756 y(problem,)36 b(and)g(enables)f(the)i(computation)f(of)h(man)m(y)f
(more)g(limit)e(calculations)i(in)241 3869 y(REDUCE.)241
4099 y FH(1:)43 b(load)e(limits;)241 4299 y(2:)i(limit\(x^7/e^x,x)o(,i)
o(nfi)o(ni)o(ty\))o(;)851 4498 y(7)807 4597 y(x)502 4697
y(limit\(----,x,infi)o(ni)o(ty\))851 4797 y(x)807 4896
y(e)1667 5187 y FQ(421)p eop
%%Page: 422 422
422 421 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(422)39 b FM(CHAPTER)30 b(55.)71 b(MR)-10 b(VLIMIT:)31
b(LIMITS)e(OF)h(\\EXP-LOG")i(FUNCTIONS)664 655 y FH(3:)43
b(load)f(mrvlimit;)664 854 y(4:)h(mrv_limit\(x^7/e^)o(x,)o(x,i)o(nf)o
(ini)o(ty)o(\);)926 1053 y(0)664 1292 y FQ(F)-8 b(or)37
b(this)f(example,)i(the)f(MR)-10 b(VLIMIT)36 b(pac)m(k)-5
b(age)38 b(is)e(able)g(to)h(compute)g(the)g(correct)664
1405 y(limit.)702 1518 y FJ(MRV)p 852 1518 29 4 v 33
w(LIMIT)p FQ(\(EXPRN:)p FD(algebr)-5 b(aic)p FQ(,)24
b(V)-10 b(AR:)p FD(kernel)p FQ(,)25 b(LIMPOINT:)p FD(algebr)-5
b(aic)p FQ(\):)p FD(algebr)g(aic)664 1853 y FQ(The)30
b(result)f(is)h(the)g(limit)e(of)j(EXPRN)f(as)h(V)-10
b(AR)30 b(approac)m(hes)h(LIMPOINT.)664 2063 y(A)38 b(switc)m(h)f
FJ(TRACELIMIT)e FQ(is)i(a)m(v)-5 b(ailable)37 b(to)h(inform)e(the)i
(user)f(ab)s(out)g(the)h(computed)664 2163 y(T)-8 b(a)m(ylor)36
b(expansion,)h(all)d(recursiv)m(e)i(calls)f(and)g(the)h(return)f(v)-5
b(alue)35 b(of)h(the)g(in)m(ternally)664 2262 y(called)30
b(function)f FJ(MRV)p FQ(.)664 2461 y FN(Examples)p FQ(:)664
2767 y FH(5:)43 b(b:=e^x*\(e^\(1/x-e)o(^-)o(x\)-)o(e^)o(\(1/)o(x\))o
(\);)1362 2966 y(-1)347 b(-)44 b(x)1144 3066 y(x)f(+)g(x)261
b(-)43 b(e)926 3165 y(b:=)f(e)305 b(*\(e)391 b(-)43 b(1\))664
3464 y(6:)g(mrv_limit\(b,x,in)o(fi)o(nit)o(y\))o(;)926
3763 y(-1)2277 3962 y(-1)664 4062 y(7:)g(ex:=)f(-)h
(log\(log\(log\(log\()o(x\)\))o(\))37 b(+)44 b(log\(x\)\))84
b(*log\(x\))1667 4261 y(*\(log\(log\(x\)\))38 b(-)43
b(log\(log\(log\(x\)\))37 b(+)44 b(log\(x\)\)\);)1449
4560 y(-)f(log\(x\)*\(log\(log\()o(x\))o(\))38 b(-)43
b(log\(log\(log\(x\)\))37 b(+)43 b(log\(x\)\)\))926 4660
y(ex:=)216 b(----------------)o(---)o(--)o(--)o(---)o(--)o(---)o(--)o
(--)o(---)o(--)o(---)o(--)o(---)o(--)o(--)o(-)1797 4759
y(log\(log\(log\(log\(x)o(\)\)\))37 b(+)43 b(log\(x\)\))664
4959 y(8:)g(off)f(mcd;)p eop
%%Page: 423 423
423 422 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(423)241 655 y FH(9:)43 b(mrv_limit\(ex,x,)o(in)o(fin)o(it)o
(y\);)502 854 y(1)p eop
%%Page: 424 424
424 423 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(424)39 b FM(CHAPTER)30 b(55.)71 b(MR)-10 b(VLIMIT:)31
b(LIMITS)e(OF)h(\\EXP-LOG")i(FUNCTIONS)p eop
%%Page: 425 425
425 424 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(56)241 1693 y FT(NCPOL)-19 b(Y:)74 b(Non{comm)-6 b(utativ)g(e)241
1942 y(p)6 b(olynomial)76 b(ideals)1470 2424 y Fx(Herb)r(ert)26
b(Melenk)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)1352 2819 y(e{mail:)35 b(melenk@zib.de)1505
2971 y(Joac)n(him)26 b(Ap)r(el)1013 3062 y(Institut)f(f)r(\177)-41
b(ur)27 b(Informatik,)e(Univ)n(ersit\177)-38 b(at)25
b(Leipzig)1386 3153 y(Augustusplatz)g(10{11)1280 3245
y(D{04109)j(Leipzig,)f(German)n(y)1085 3366 y(e{mail:)36
b(ap)r(el@informatik.uni{leipzig.de)241 3610 y FQ(REDUCE)h(supp)s(orts)
e(a)i(v)m(ery)g(general)g(mec)m(hanism)f(for)h(computing)f(with)g(ob)5
b(jects)241 3723 y(under)24 b(a)j(non{comm)m(utativ)m(e)h(m)m
(ultiplication,)c(where)i(comm)m(utator)h(relations)f(m)m(ust)241
3836 y(b)s(e)i(in)m(tro)s(duced)g(explicitly)f(b)m(y)i(rule)f(sets)h
(when)f(needed.)40 b(The)29 b(pac)m(k)-5 b(age)31 b FN(NCPOL)-9
b(Y)241 3949 y FQ(allo)m(ws)35 b(the)h(user)f(to)h(set)g(up)f
(automatically)h(a)g(consisten)m(t)g(en)m(vironmen)m(t)f(for)h(com-)241
4062 y(puting)24 b(in)g(an)i(algebra)g(where)f(the)h(non{comm)m
(utativit)m(y)g(is)f(de\014ned)g(b)m(y)g(Lie-brac)m(k)m(et)241
4174 y(comm)m(utators.)47 b(The)31 b(pac)m(k)-5 b(age)34
b(uses)e(the)g(REDUCE)g FN(noncom)g FQ(mec)m(hanism)g(for)g(el-)241
4287 y(emen)m(tary)41 b(p)s(olynomial)c(arithmetic;)45
b(the)40 b(comm)m(utator)h(rules)e(are)i(automatically)241
4400 y(computed)31 b(from)g(the)h(Lie)f(brac)m(k)m(ets.)45
b(P)m(olynomial)30 b(arithmetic)h(ma)m(y)h(b)s(e)f(p)s(erformed)241
4513 y(directly)-8 b(,)43 b(including)38 b FN(division)k
FQ(and)e FN(factorisation)p FQ(.)74 b(Additionally)38
b FN(NCPOL)-9 b(Y)241 4626 y FQ(supp)s(orts)39 b(computations)i(in)e(a)
j(one)f(sided)e(ideal)h(\(left)h(or)g(righ)m(t\),)j(esp)s(ecially)39
b(one)241 4739 y(sided)29 b FN(Gr\177)-52 b(obner)31
b FQ(bases)f(and)g FN(p)s(olynomial)k(reduction)p FQ(.)241
4894 y @beginspecial @setspecial @endspecial 1667 5187
a(425)p eop
%%Page: 426 426
426 425 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(426)406 b FM(CHAPTER)29 b(56.)72 b(NCPOL)-8 b(Y:)31
b(IDEALS)f(IN)g(NON{COMM)h(CASE)664 555 y FE(56.1)136
b(Setup,)45 b(Clean)l(up)664 795 y FQ(Before)31 b(the)g(computations)f
(can)g(start)h(the)f(en)m(vironmen)m(t)g(for)g(a)g(non{comm)m(utativ)m
(e)664 894 y(computation)g(m)m(ust)h(b)s(e)e(de\014ned)h(b)m(y)g(a)h
(call)e(to)i FJ(nc)p 2438 894 29 4 v 34 w(setup)p FQ(:)839
1100 y FH(nc_setup\(<vars>)o([,)o(<co)o(mm)o(s>])o([,)o(<di)o(r>)o(]\))
o(;)664 1319 y FQ(where)664 1482 y FL(<)41 b(v)s(ar)s(s)f(>)f
FQ(is)g(a)h(list)e(of)i(v)-5 b(ariables;)43 b(these)d(m)m(ust)f
(include)f(the)h(non{comm)m(utativ)m(e)664 1595 y(quan)m(tities.)664
1758 y FL(<)32 b(comms)h(>)h FQ(is)g(a)h(list)e(of)i(equations)g
FJ(<u>*<v>)45 b(-)j(<v>*<u>=<rh>)31 b FQ(where)j FL(<)f(u)f(>)664
1871 y FQ(and)e FL(<)25 b(v)j(>)i FQ(are)h(mem)m(b)s(ers)f(of)g
FL(<)25 b(v)s(ar)s(s)g(>)p FQ(,)30 b(and)g FL(<)25 b(r)s(h)g(>)30
b FQ(is)g(a)g(p)s(olynomial.)664 2033 y FL(<)25 b(dir)k(>)c
FQ(is)g(either)h FL(l)r(ef)10 b(t)25 b FQ(or)h FL(r)s(ig)s(ht)h
FQ(selecting)f(a)g(left)g(or)g(a)h(righ)m(t)e(one)i(sided)d(ideal.)38
b(The)664 2146 y(initial)28 b(direction)h(is)g FL(l)r(ef)10
b(t)p FQ(.)664 2309 y FJ(nc)p 766 2309 V 34 w(setup)30
b FQ(generates)j(from)e FL(<)c(comms)g(>)k FQ(the)h(necessary)f(rules)g
(to)h(supp)s(ort)e(an)h(al-)664 2422 y(gebra)i(where)e(all)g(monomials)
g(are)h(ordered)f(corresp)s(onding)f(to)j(the)f(giv)m(en)g(v)-5
b(ariable)664 2535 y(sequence.)41 b(All)26 b(pairs)h(of)i(v)-5
b(ariables)27 b(whic)m(h)g(are)h(not)h(explicitly)d(co)m(v)m(ered)k(in)
d(the)h(com-)664 2648 y(m)m(utator)i(set)g(are)f(considered)f(as)h
(comm)m(utativ)m(e)i(and)e(the)g(corresp)s(onding)e(rules)h(are)664
2761 y(also)i(activ)-5 b(ated.)664 2923 y(The)29 b(second)g(parameter)g
(in)f FJ(nc)p 1782 2923 V 34 w(setup)g FQ(ma)m(y)h(b)s(e)g(omitted)g
(if)f(the)h(op)s(erator)h(is)e(called)664 3036 y(for)f(the)g(second)g
(time,)h FD(e.g.)68 b FQ(with)25 b(a)j(reordered)e(v)-5
b(ariable)26 b(sequence.)40 b(In)26 b(suc)m(h)h(a)g(case)664
3149 y(the)k(last)f(comm)m(utator)i(set)f(is)e(used)h(again.)664
3312 y(Remarks:)801 3549 y FP(\017)45 b FQ(The)31 b(v)-5
b(ariables)29 b(need)h(not)h(b)s(e)f(declared)g FN(noncom)h
FQ(-)f FN(nc)p 2868 3549 32 4 v 39 w(setup)g FQ(p)s(erforms)f(all)891
3662 y(necessary)i(declarations.)801 3850 y FP(\017)45
b FQ(The)31 b(v)-5 b(ariables)30 b(need)h(not)h(b)s(e)f(formal)f(op)s
(erator)i(expressions;)e FN(nc)p 3222 3850 V 39 w(setup)h
FQ(en-)891 3963 y(capsulates)40 b(a)h(v)-5 b(ariable)38
b FL(x)i FQ(in)m(ternally)e(as)i FJ(nc!*\(!_x\))e FQ(expressions)h(an)m
(yw)m(a)m(y)891 4076 y(where)30 b(the)h(op)s(erator)g
FL(nc)p FQ(!)p FP(\003)f FQ(k)m(eeps)h(the)g(noncom)f(prop)s(ert)m(y)-8
b(.)801 4263 y FP(\017)45 b FQ(The)20 b(commands)g FN(order)h
FQ(and)e FN(k)m(order)i FQ(should)e(b)s(e)g(a)m(v)m(oided)i(b)s(ecause)
f FN(nc)p 3405 4263 V 38 w(setup)891 4376 y FQ(sets)28
b(these)g(suc)m(h)g(that)g(the)g(computation)f(results)g(are)h(prin)m
(ted)e(in)g(the)i(correct)891 4489 y(term)j(order.)664
4713 y(Example:)795 4919 y FH(nc_setup\({KK,NN,)o(k,)o(n},)p
eop
%%Page: 427 427
427 426 bop 241 299 a @beginspecial @setspecial @endspecial
FM(56.2.)72 b(LEFT)30 b(AND)h(RIGHT)g(IDEALS)1409 b FQ(427)851
555 y FH({NN*n-n*NN=)39 b(NN,)j(KK*k-k*KK=)e(KK}\);)372
754 y(NN*N;)520 b(->)130 b(NN*N)372 854 y(N*NN;)520 b(->)130
b(NN*N)42 b(-)i(NN)372 954 y(nc_setup\({k,n,K)o(K,)o(NN})o(\);)372
1053 y(NN*N)d(-)j(NN)347 b(->)130 b(N*NN;)241 1372 y
FQ(Here)30 b FL(K)7 b(K)q(;)15 b(N)10 b(N)5 b(;)15 b(k)s(;)g(n)30
b FQ(are)g(non{comm)m(utativ)m(e)h(v)-5 b(ariables)28
b(where)h(the)g(comm)m(utators)241 1485 y(are)i(describ)s(ed)d(as)i([)p
FL(N)10 b(N)5 b(;)15 b(n)p FQ(])26 b(=)f FL(N)10 b(N)g
FQ(,)30 b([)p FL(K)7 b(K)q(;)15 b(k)s FQ(])27 b(=)e FL(K)7
b(K)g FQ(.)241 1648 y(The)43 b(curren)m(t)g(term)g(order)g(m)m(ust)g(b)
s(e)g(compatible)g(with)f(the)h(comm)m(utators:)68 b(the)241
1761 y(pro)s(duct)40 b FL(<)k(u)f(>)h FP(\003)g FL(<)g(v)j(>)41
b FQ(m)m(ust)g(precede)h(all)f(terms)g(on)g(the)h(righ)m(t)f(hand)g
(side)241 1874 y FL(<)25 b(r)s(h)g(>)30 b FQ(under)f(the)h(curren)m(t)g
(term)h(order.)40 b(Consequen)m(tly)377 2111 y FP(\017)46
b FQ(the)31 b(maximal)e(degree)i(of)f FL(<)25 b(u)h(>)k
FQ(or)g FL(<)25 b(v)k(>)h FQ(in)f FL(<)c(r)s(h)g(>)30
b FQ(is)f(1,)377 2299 y FP(\017)46 b FQ(in)22 b(a)i(total)h(degree)f
(ordering)e(the)i(total)g(degree)h(of)e FL(<)i(r)s(h)h(>)d
FQ(ma)m(y)h(b)s(e)f(not)h(higher)468 2412 y(than)30 b(1,)377
2599 y FP(\017)46 b FQ(in)30 b(an)h(elimination)e(degree)j(order)f(\()p
FD(e.g.)j FL(l)r(ex)p FQ(\))d(all)g(v)-5 b(ariables)30
b(in)g FL(<)d(r)s(h)g(>)k FQ(m)m(ust)468 2712 y(b)s(e)f(b)s(elo)m(w)f
(the)i(minim)m(um)c(of)k FL(<)25 b(u)g(>)30 b FQ(and)g
FL(<)25 b(v)k(>)p FQ(.)377 2900 y FP(\017)46 b FQ(If)38
b FL(<)h(r)s(h)g(>)f FQ(do)s(es)g(not)h(con)m(tain)g(an)m(y)g(v)-5
b(ariables)37 b(or)i(has)f(at)i(most)f FL(<)f(u)h(>)f
FQ(or)468 3013 y FL(<)25 b(v)k(>)p FQ(,)h(an)m(y)h(term)f(order)g(can)h
(b)s(e)e(selected.)241 3237 y(T)-8 b(o)44 b(use)g(the)g(non{comm)m
(utativ)m(e)i(v)-5 b(ariables)43 b(or)h(results)e(from)i(non{comm)m
(utativ)m(e)241 3336 y(computations)k(later)g(in)f(comm)m(utativ)m(e)j
(op)s(erations)d(it)h(migh)m(t)g(b)s(e)f(necessary)i(to)241
3436 y(switc)m(h)31 b(o\013)g(the)h(non{comm)m(utativ)m(e)h(ev)-5
b(aluation)31 b(mo)s(de)g(b)s(ecause)g(not)h(all)e(op)s(erators)241
3536 y(in)40 b(REDUCE)i(are)h(prepared)e(for)g(that)i(en)m(vironmen)m
(t.)75 b(In)41 b(suc)m(h)h(a)h(case)g(use)e(the)241 3635
y(command)415 3841 y FH(nc_cleanup;)241 4060 y FQ(without)k
(parameters.)88 b(It)46 b(remo)m(v)m(es)h(all)e(in)m(ternal)g(rules)g
(and)g(de\014nitions)f(whic)m(h)241 4173 y FJ(nc)p 343
4173 29 4 v 34 w(setup)49 b FQ(had)g(in)m(tro)s(duced.)100
b(T)-8 b(o)51 b(reactiv)m(e)g(non{comm)m(utativ)m(e)h(call)e
FJ(nc)p 2963 4173 V 34 w(setup)241 4286 y FQ(again.)241
4441 y @beginspecial @setspecial @endspecial 181 x FE(56.2)135
b(Left)46 b(and)e(righ)l(t)i(ideals)241 4875 y FQ(A)30
b(\(p)s(olynomial\))f(left)h(ideal)f FL(L)h FQ(is)g(de\014ned)f(b)m(y)h
(the)g(axioms)p eop
%%Page: 428 428
428 427 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(428)406 b FM(CHAPTER)29 b(56.)72 b(NCPOL)-8 b(Y:)31
b(IDEALS)f(IN)g(NON{COMM)h(CASE)664 555 y FL(u)25 b FP(2)g
FL(L;)15 b(v)29 b FP(2)c FL(L)g FQ(=)-15 b FP(\))25 b
FL(u)20 b FQ(+)g FL(v)29 b FP(2)24 b FL(L)664 718 y(u)h
FP(2)g FL(L)g FQ(=)-15 b FP(\))25 b FL(k)f FP(\003)c
FL(u)26 b FP(2)e FL(L)31 b FQ(for)f(an)g(arbitrary)f(p)s(olynomial)f
FL(k)664 881 y FQ(where)h(\\*")h(is)f(the)g(non{comm)m(utativ)m(e)i(m)m
(ultiplication.)37 b(Corresp)s(ondingly)-8 b(,)27 b(a)i(righ)m(t)664
994 y(ideal)g FL(R)i FQ(is)f(de\014ned)f(b)m(y)664 1156
y FL(u)c FP(2)g FL(R)q(;)15 b(v)29 b FP(2)c FL(R)h FQ(=)-15
b FP(\))25 b FL(u)20 b FQ(+)g FL(v)28 b FP(2)d FL(R)664
1319 y(u)g FP(2)g FL(R)h FQ(=)-15 b FP(\))25 b FL(u)20
b FP(\003)h FL(k)28 b FP(2)d FL(R)31 b FQ(for)f(an)h(arbitrary)e(p)s
(olynomial)e FL(k)664 1474 y @beginspecial @setspecial
@endspecial 181 x FE(56.3)136 b(Gr\177)-67 b(obner)44
b(bases)664 1895 y FQ(When)23 b(a)g(non{comm)m(utativ)m(e)i(en)m
(vironmen)m(t)e(has)g(b)s(een)f(set)h(up)f(b)m(y)h FJ(nc)p
3075 1895 29 4 v 34 w(setup)p FQ(,)h(a)f(basis)664 1994
y(for)29 b(a)h(left)f(or)g(righ)m(t)g(p)s(olynomial)d(ideal)i(can)i(b)s
(e)e(transformed)h(in)m(to)g(a)g(Gr\177)-45 b(obner)29
b(basis)664 2094 y(b)m(y)h(the)h(op)s(erator)g FJ(nc)p
1416 2094 V 33 w(groebner)795 2300 y FH(nc_groebner\(<pli)o(st)o(>\);)
664 2519 y FQ(Note)j(that)f(the)g(v)-5 b(ariable)32 b(set)h(and)f(v)-5
b(ariable)31 b(sequence)i(m)m(ust)g(b)s(e)f(de\014ned)f(b)s(efore)h(in)
664 2632 y(the)k FJ(nc)p 928 2632 V 34 w(setup)e FQ(call.)55
b(The)35 b(term)h(order)f(for)g(the)h(Gr\177)-45 b(obner)35
b(calculation)g(can)g(b)s(e)g(set)664 2745 y(b)m(y)30
b(using)f(the)i FJ(torder)e FQ(declaration.)664 2894
y(F)-8 b(or)42 b(details)f(ab)s(out)g FJ(torder)f FQ(see)i(the)g
FN(REDUCE)47 b(GR)m(OEBNER)42 b FQ(man)m(ual,)i(or)664
2994 y(c)m(hapter)31 b @beginspecial @setspecial @endspecial(45)q(.)664
3200 y FH(2:)43 b(nc_setup\({k,n,NN)o(,K)o(K},)o({N)o(N*n)o(-n)o(*NN)o
(=N)o(N,)o(KK*)o(k-)o(k*K)o(K=)o(KK)o(},l)o(ef)o(t\);)664
3399 y(3:)g(p1)g(:=)f(\(n-k+1\)*NN)e(-)j(\(n+1\);)664
3598 y(p1)g(:=)86 b(-)43 b(k*nn)f(+)i(n*nn)d(-)j(n)f(+)g(nn)g(-)g(1)664
3798 y(4:)g(p2)g(:=)f(\(k+1\)*KK)f(-\(n-k\);)664 3997
y(p2)i(:=)g(k*kk)f(+)h(k)g(-)g(n)g(+)g(kk)664 4196 y(5:)g(nc_groebner)c
(\({p1,p2}\);)664 4395 y({k*nn)j(-)h(n*nn)f(+)h(n)g(-)g(nn)g(+)g(1,)708
4595 y(k*kk)f(+)h(k)g(-)g(n)g(+)h(kk,)708 4794 y(n*nn*kk)c(-)k(n*kk)e
(-)h(n)g(+)g(nn*kk)f(-)h(kk)g(-)g(1})p eop
%%Page: 429 429
429 428 bop 241 299 a @beginspecial @setspecial @endspecial
FM(56.4.)72 b(LEFT)30 b(OR)g(RIGHT)g(POL)-8 b(YNOMIAL)31
b(DIVISION)731 b FQ(429)241 555 y(Imp)s(ortan)m(t:)46
b(Do)35 b(not)e(use)h(the)f(op)s(erators)h(of)g(the)f(GR)m(OEBNER)h
(pac)m(k)-5 b(age)36 b(directly)241 668 y(as)30 b(they)h(w)m(ould)e
(not)i(consider)e(the)i(non{comm)m(utativ)m(e)g(m)m(ultiplication.)241
823 y @beginspecial @setspecial @endspecial 181 x FE(56.4)135
b(Left)46 b(or)f(righ)l(t)g(p)t(olynomial)h(division)241
1244 y FQ(The)29 b(op)s(erator)g FJ(nc)p 894 1244 29
4 v 34 w(divide)f FQ(computes)h(the)h(one)f(sided)f(quotien)m(t)i(and)f
(remainder)e(of)241 1343 y(t)m(w)m(o)k(p)s(olynomials:)415
1549 y FH(nc_divide\(<p1>,<)o(p2>)o(\);)241 1769 y FQ(The)f(result)f
(is)h(a)h(list)e(with)g(quotien)m(t)i(and)f(remainder.)40
b(The)30 b(division)d(is)j(p)s(erformed)241 1881 y(as)35
b(a)g(pseudo{division,)e(m)m(ultiplying)f FL(<)g(p)p
FQ(1)h FL(>)i FQ(b)m(y)f(co)s(e\016cien)m(ts)i(if)e(necessary)-8
b(.)55 b(The)241 1994 y(result)29 b FP(f)p FL(<)c(q)k(>;)15
b(<)25 b(r)i(>)p FP(g)k FQ(is)e(de\014ned)g(b)m(y)i(the)f(relation)241
2157 y FL(<)25 b(c)g(>)g FP(\003)h FL(<)f(p)p FQ(1)g
FL(>)p FQ(=)p FL(<)g(q)j(>)d FP(\003)h FL(<)e(p)p FQ(2)i
FL(>)f FQ(+)g FL(<)g(r)j(>)i FQ(for)g(direction)f FL(l)r(ef)10
b(t)29 b FQ(and)241 2320 y FL(<)c(c)g(>)g FP(\003)h FL(<)f(p)p
FQ(1)g FL(>)p FQ(=)p FL(<)g(p)p FQ(2)g FL(>)g FP(\003)h
FL(<)f(q)j(>)d FQ(+)g FL(<)g(r)j(>)i FQ(for)g(direction)f
FL(r)s(ig)s(ht)p FQ(,)241 2483 y(where)22 b FL(<)j(c)h(>)c
FQ(is)g(an)h(expression)f(that)h(do)s(es)g(not)g(con)m(tain)g(an)m(y)h
(of)f(the)g(ideal)f(v)-5 b(ariables,)241 2595 y(and)37
b(the)g(leading)g(term)g(of)h FL(<)f(r)j(>)d FQ(is)f(lo)m(w)m(er)i
(than)f(the)h(leading)e(term)i(of)g FL(<)e(p)p FQ(2)i
FL(>)241 2708 y FQ(according)30 b(to)h(the)g(actual)g(term)f(order.)241
2863 y @beginspecial @setspecial @endspecial 182 x FE(56.5)135
b(Left)46 b(or)f(righ)l(t)g(p)t(olynomial)h(reduction)241
3284 y FQ(F)-8 b(or)33 b(the)g(computation)g(of)g(the)g(one)g(sided)e
(remainder)h(of)h(a)g(p)s(olynomial)d(mo)s(dulo)h(a)241
3384 y(giv)m(en)f(set)h(of)g(other)f(p)s(olynomials)e(the)i(op)s
(erator)h FJ(nc)p 2092 3384 V 34 w(preduce)d FQ(ma)m(y)j(b)s(e)f(used:)
415 3590 y FH(nc_preduce\(<poly)o(nom)o(ia)o(l>,)o(<p)o(lis)o(t>)o(\);)
241 3809 y FQ(The)h(result)f(of)i(the)g(reduction)e(is)h(unique)f
(\(canonical\))i(if)e(and)h(only)g(if)g FL(<)c(pl)r(ist)f(>)31
b FQ(is)241 3922 y(a)36 b(one)g(sided)e(Gr\177)-45 b(obner)35
b(basis.)56 b(Then)35 b(the)h(computation)g(is)e(at)j(the)f(same)g
(time)g(an)241 4035 y(ideal)25 b(mem)m(b)s(ership)f(test:)39
b(if)25 b(the)i(result)e(is)h(zero,)i(the)e(p)s(olynomial)e(is)h(mem)m
(b)s(er)h(of)g(the)241 4147 y(ideal,)j(otherwise)h(not.)241
4302 y @beginspecial @setspecial @endspecial 182 x FE(56.6)135
b(F)-11 b(actorisation)241 4723 y FQ(P)m(olynomials)30
b(in)h(a)i(non{comm)m(utativ)m(e)h(ring)d(cannot)i(b)s(e)e(factored)i
(using)e(the)h(ordi-)241 4823 y(nary)25 b FJ(factorize)f
FQ(command)h(of)h(REDUCE.)g(Instead)g(one)g(of)g(the)g(op)s(erators)h
(of)f(this)241 4922 y(section)k(m)m(ust)h(b)s(e)e(used:)p
eop
%%Page: 430 430
430 429 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(430)406 b FM(CHAPTER)29 b(56.)72 b(NCPOL)-8 b(Y:)31
b(IDEALS)f(IN)g(NON{COMM)h(CASE)795 555 y FH(nc_factorize\(<po)o(ly)o
(nom)o(ia)o(l>\))o(;)664 774 y FQ(The)40 b(result)g(is)g(a)h(list)e(of)
i(factors)g(of)g FL(<)h(pol)r(y)s(nomial)i(>)p FQ(.)71
b(A)41 b(list)f(with)f(the)i(input)664 887 y(expression)29
b(is)h(returned)f(if)g(it)h(is)g(irreducible.)664 1037
y(As)i(non{comm)m(utativ)m(e)i(factorisation)e(is)f(not)h(unique,)f
(there)h(is)f(an)h(additional)e(op-)664 1136 y(erator)h(whic)m(h)e
(computes)i(all)e(p)s(ossible)f(factorisations)795 1342
y FH(nc_factorize_all)o(\(<)o(pol)o(yn)o(omi)o(al)o(>\);)664
1561 y FQ(The)g(result)e(is)h(a)h(list)f(of)h(factor)h(decomp)s
(ositions)d(of)i FL(<)d(pol)r(y)s(nomial)i(>)p FQ(.)39
b(If)27 b(there)i(are)664 1674 y(no)24 b(factors)g(at)h(all)d(the)i
(result)f(list)f(has)h(only)g(one)h(mem)m(b)s(er)f(whic)m(h)f(is)h(a)h
(list)e(con)m(taining)664 1787 y(the)31 b(input)d(p)s(olynomial.)664
1942 y @beginspecial @setspecial @endspecial 181 x FE(56.7)136
b(Output)44 b(of)i(expressions)664 2363 y FQ(It)33 b(is)f(often)i
(desirable)d(to)j(ha)m(v)m(e)g(the)f(comm)m(utativ)m(e)i(parts)d(\(co)s
(e\016cien)m(ts\))j(in)d(a)h(non{)664 2463 y(comm)m(utativ)m(e)f(op)s
(eration)e(condensed)g(b)m(y)g(factorisation.)41 b(The)30
b(op)s(erator)795 2668 y FH(nc_compact\(<poly)o(no)o(mia)o(l>)o(\))664
2874 y FQ(collects)23 b(the)f(co)s(e\016cien)m(ts)h(to)h(the)e(p)s(o)m
(w)m(ers)g(of)h(the)f(lo)m(w)m(est)i(p)s(ossible)c(non-comm)m(utativ)m
(e)664 2974 y(v)-5 b(ariable.)664 3180 y FH(load_package)39
b(ncpoly;)664 3379 y(nc_setup\({n,NN},{)o(NN)o(*n)o(-n*)o(NN)o(=NN)o
(}\))o($)664 3479 y(p1)k(:=)g(n**4)f(+)h(n**2*nn)d(+)k(4*n**2)d(+)i
(4*n*nn)e(+)i(4*nn)f(+)h(4;)969 3678 y(4)174 b(2)392
b(2)664 3778 y(p1)43 b(:=)g(n)86 b(+)44 b(n)f(*nn)f(+)h(4*n)86
b(+)43 b(4*n*nn)f(+)h(4*nn)f(+)h(4)664 3977 y(nc_compact)d(p1;)751
4176 y(2)218 b(2)435 b(2)664 4276 y(\(n)87 b(+)43 b(2\))86
b(+)43 b(\(n)g(+)g(2\))g(*nn)p eop
%%Page: 431 431
431 430 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(57)241 1693 y FT(NORMF)-6 b(ORM:)77 b(Computation)241
1942 y(of)g(matrix)g(normal)g(forms)1496 2415 y Fx(Matt)26
b(Rebb)r(ec)n(k)826 2506 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2598 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2689 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)241 2883 y FQ(This)f(pac)m(k)-5 b(age)30
b(con)m(tains)e(routines)f(for)h(computing)f(the)h(follo)m(wing)e
(normal)h(forms)g(of)241 2996 y(matrices:)377 3233 y
FP(\017)46 b FQ(smithex)p 785 3233 28 4 v 32 w(in)m(t)377
3421 y FP(\017)g FQ(smithex)377 3609 y FP(\017)g FQ(frob)s(enius)377
3796 y FP(\017)g FQ(ratjordan)377 3984 y FP(\017)g FQ(jordansym)m(b)s
(olic)377 4172 y FP(\017)g FQ(jordan.)241 4409 y(By)30
b(default)e(all)h(calculations)f(are)i(carried)f(out)h(in)e
FP(Q)i FQ(\(the)g(rational)e(n)m(um)m(b)s(ers\).)40 b(F)-8
b(or)241 4522 y FJ(smithex)p FQ(,)35 b FJ(frobenius)p
FQ(,)f FJ(ratjordan)p FQ(,)h FJ(jordansymbolic)p FQ(,)e(and)i
FJ(jordan)p FQ(,)g(this)g(\014eld)241 4635 y(can)e(b)s(e)f(extended)h
(to)g(an)g(algebraic)g(n)m(um)m(b)s(er)e(\014eld)g(using)h(ARNUM)h(\(c)
m(hapter)h @beginspecial @setspecial @endspecial(22)q(\).)241
4748 y(The)24 b FJ(frobenius)p FQ(,)g FJ(ratjordan)p
FQ(,)g(and)h FJ(jordansymbolic)c FQ(normal)j(forms)h(can)g(also)g(b)s
(e)241 4861 y(computed)30 b(in)f(a)i(mo)s(dular)d(base.)1667
5187 y(431)p eop
%%Page: 432 432
432 431 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(432)375 b FM(CHAPTER)30 b(57.)72 b(NORMF)m(ORM:)31
b(MA)-8 b(TRIX)31 b(NORMAL)g(F)m(ORMS)664 464 y @beginspecial
@setspecial @endspecial 91 x FE(57.1)136 b(Smithex)664
808 y FJ(Smithex)p FQ(\()p FP(A)p FL(;)29 b(x)p FQ(\))h(computes)h(the)
f(Smith)f(normal)g(form)h FP(S)38 b FQ(of)30 b(the)h(matrix)e
FP(A)p FQ(.)664 971 y(It)i(returns)e FP(fS)7 b FL(;)15
b FP(P)7 b FL(;)15 b FP(P)1404 938 y Fu(\000)p FO(1)1501
971 y FP(g)30 b FQ(where)g FP(S)7 b FL(;)15 b FP(P)7
b FQ(,)32 b(and)e FP(P)2315 938 y Fu(\000)p FO(1)2440
971 y FQ(are)h(suc)m(h)f(that)h FP(P)7 b(S)g(P)3197 935
y Fu(\000)p FO(1)3317 971 y FQ(=)25 b FP(A)p FQ(.)664
1133 y FP(A)42 b FQ(is)f(a)i(rectangular)f(matrix)g(of)h(univ)-5
b(ariate)41 b(p)s(olynomials)e(in)i FL(x)h FQ(where)g
FL(x)g FQ(is)g(the)664 1246 y(v)-5 b(ariable)29 b(name.)664
1409 y FJ(load)p 862 1409 29 4 v 33 w(package)46 b(normform;)1776
1699 y FP(A)24 b FQ(=)1969 1555 y FB( )2077 1642 y FL(x)90
b(x)20 b FQ(+)g(1)2080 1755 y(0)87 b(3)20 b FP(\003)h
FL(x)2395 1722 y FO(2)2476 1555 y FB(!)664 2134 y FJ(smithex)n
FQ(\()p FP(A)p FL(;)31 b(x)p FQ(\))83 b(=)1486 1990 y
FB(\( )1660 2077 y FQ(1)106 b(0)1660 2190 y(0)83 b FL(x)1840
2157 y FO(3)1921 1990 y FB(!)2002 2134 y FL(;)2042 1990
y FB( )2239 2077 y FQ(1)172 b(0)2150 2190 y(3)21 b FP(\003)f
FL(x)2333 2157 y FO(2)2456 2190 y FQ(1)2543 1990 y FB(!)2623
2134 y FL(;)2663 1990 y FB( )2803 2077 y FL(x)115 b(x)20
b FQ(+)g(1)2771 2190 y FP(\000)p FQ(3)129 b FP(\000)p
FQ(3)3220 1990 y FB(!\))664 2368 y @beginspecial @setspecial
@endspecial 142 x FE(57.2)136 b(Smithex)p 1529 2510 41
4 v 49 w(in)l(t)664 2762 y FQ(Giv)m(en)36 b(an)f FL(n)g
FQ(b)m(y)h FL(m)f FQ(rectangular)h(matrix)f FP(A)g FQ(that)h(con)m
(tains)g FD(only)h FQ(in)m(teger)f(en)m(tries,)664 2875
y FJ(smithex)p 1006 2875 29 4 v 33 w(int)p FQ(\()p FP(A)p
FQ(\))29 b(computes)i(the)g(Smith)d(normal)i(form)f FP(S)38
b FQ(of)30 b FP(A)p FQ(.)664 3038 y(It)h(returns)e FP(fS)7
b FL(;)15 b FP(P)7 b FL(;)15 b FP(P)1404 3005 y Fu(\000)p
FO(1)1501 3038 y FP(g)30 b FQ(where)g FP(S)7 b FL(;)15
b FP(P)7 b FQ(,)32 b(and)e FP(P)2315 3005 y Fu(\000)p
FO(1)2440 3038 y FQ(are)h(suc)m(h)f(that)h FP(P)7 b(S)g(P)3197
3002 y Fu(\000)p FO(1)3317 3038 y FQ(=)25 b FP(A)p FQ(.)664
3201 y FJ(load)p 862 3201 V 33 w(package)46 b(normform;)1577
3540 y FP(A)24 b FQ(=)1770 3346 y FB(0)1770 3492 y(B)1770
3546 y(@)1943 3427 y FQ(9)164 b FP(\000)p FQ(36)g(30)1885
3540 y FP(\000)p FQ(36)119 b(192)g FP(\000)p FQ(180)1920
3653 y(30)g FP(\000)p FQ(180)h(180)2668 3346 y FB(1)2668
3492 y(C)2668 3546 y(A)664 3882 y FJ(smithex)p 1006 3882
V 33 w(int)p FQ(\()p FP(A)p FQ(\))29 b(=)862 4083 y FB(8)862
4158 y(>)862 4183 y(<)862 4332 y(>)862 4357 y(:)936 4087
y(0)936 4233 y(B)936 4286 y(@)1050 4167 y FQ(3)106 b(0)129
b(0)1050 4280 y(0)83 b(12)107 b(0)1050 4393 y(0)f(0)g(60)1485
4087 y FB(1)1485 4233 y(C)1485 4286 y(A)1573 4280 y FL(;)1613
4087 y FB(0)1613 4233 y(B)1613 4286 y(@)1727 4167 y FP(\000)p
FQ(17)g FP(\000)p FQ(5)129 b FP(\000)p FQ(4)1762 4280
y(64)155 b(19)g(15)1727 4393 y FP(\000)p FQ(50)84 b FP(\000)p
FQ(15)f FP(\000)p FQ(12)2419 4087 y FB(1)2419 4233 y(C)2419
4286 y(A)2507 4280 y FL(;)2547 4087 y FB(0)2548 4233
y(B)2548 4286 y(@)2697 4167 y FQ(1)119 b FP(\000)p FQ(24)g(30)2662
4280 y FP(\000)p FQ(1)f(25)i FP(\000)p FQ(30)2697 4393
y(0)142 b FP(\000)p FQ(1)164 b(1)3309 4087 y FB(1)3309
4233 y(C)3309 4286 y(A)3381 4083 y(9)3381 4158 y(>)3381
4183 y(=)3381 4332 y(>)3381 4357 y(;)664 4565 y @beginspecial
@setspecial @endspecial 141 x FE(57.3)136 b(F)-11 b(rob)t(enius)664
4959 y FJ(Frobenius)p FQ(\()p FP(A)p FQ(\))28 b(computes)j(the)f(F)-8
b(rob)s(enius)29 b(normal)g(form)h FP(F)40 b FQ(of)31
b(the)f(matrix)g FP(A)p FQ(.)p eop
%%Page: 433 433
433 432 bop 241 299 a @beginspecial @setspecial @endspecial
FM(57.4.)72 b(RA)-8 b(TJORD)m(AN)2015 b FQ(433)241 555
y(It)30 b(returns)f FP(fF)9 b FL(;)15 b FP(P)7 b FL(;)15
b FP(P)992 522 y Fu(\000)p FO(1)1090 555 y FP(g)31 b
FQ(where)e FP(F)9 b FL(;)15 b FP(P)7 b FQ(,)32 b(and)e
FP(P)1916 522 y Fu(\000)p FO(1)2042 555 y FQ(are)g(suc)m(h)g(that)h
FP(P)7 b(F)i(P)2811 519 y Fu(\000)p FO(1)2931 555 y FQ(=)25
b FP(A)p FQ(.)241 718 y FP(A)30 b FQ(is)f(a)i(square)f(matrix.)241
881 y FJ(load)p 439 881 29 4 v 33 w(package)46 b(normform;)1020
1222 y FP(A)25 b FQ(=)1214 1054 y FB(0)1214 1203 y(@)1385
1115 y Fu(\000)p FF(x)1480 1091 y Fy(2)1514 1115 y FO(+)p
FF(y)1606 1091 y Fy(2)1641 1115 y FO(+)p FF(y)p 1385
1134 349 4 v 1541 1187 a(y)1884 1115 y Fu(\000)p FF(x)1979
1091 y Fy(2)2013 1115 y FO(+)p FF(x)p FO(+)p FF(y)2200
1091 y Fy(2)2234 1115 y Fu(\000)p FF(y)p 1884 1134 443
4 v 2086 1187 a(y)1338 1255 y Fu(\000)p FF(x)1433 1232
y Fy(2)1467 1255 y Fu(\000)p FF(x)p FO(+)p FF(y)1654
1232 y Fy(2)1688 1255 y FO(+)p FF(y)p 1338 1275 V 1541
1327 a(y)1884 1255 y Fu(\000)p FF(x)1979 1232 y Fy(2)2013
1255 y FO(+)p FF(x)p FO(+)p FF(y)2200 1232 y Fy(2)2234
1255 y Fu(\000)p FF(y)p 1884 1275 V 2086 1327 a(y)2378
1054 y FB(1)2378 1203 y(A)241 1567 y FJ(frobenius)p FQ(\()p
FP(A)p FQ(\))j(=)374 1795 y FB(8)374 1870 y(<)374 2020
y(:)447 1799 y(0)447 1948 y(@)561 1902 y FQ(0)700 1858
y FF(x)p Fu(\003)p FO(\()p FF(x)842 1835 y Fy(2)877 1858
y Fu(\000)p FF(x)p Fu(\000)p FF(y)1064 1835 y Fy(2)1098
1858 y FO(+)p FF(y)r FO(\))p 700 1881 518 4 v 940 1934
a FF(y)561 2043 y FQ(1)713 2002 y Fu(\000)p FO(2)p Fu(\003)p
FF(x)878 1979 y Fy(2)913 2002 y FO(+)p FF(x)p FO(+2)p
Fu(\003)p FF(y)1170 1979 y Fy(2)p 713 2022 492 4 v 940
2074 a FF(y)1269 1799 y FB(1)1269 1948 y(A)1357 1968
y FL(;)1397 1799 y FB(0)1397 1948 y(@)1511 1901 y FQ(1)1697
1860 y Fu(\000)p FF(x)1792 1837 y Fy(2)1826 1860 y FO(+)p
FF(y)1918 1837 y Fy(2)1953 1860 y FO(+)p FF(y)p 1697
1880 349 4 v 1853 1932 a(y)1511 2041 y FQ(0)1650 2000
y Fu(\000)p FF(x)1745 1977 y Fy(2)1779 2000 y Fu(\000)p
FF(x)p FO(+)p FF(y)1966 1977 y Fy(2)2000 2000 y FO(+)p
FF(y)p 1650 2020 443 4 v 1853 2072 a(y)2144 1799 y FB(1)2144
1948 y(A)2232 1968 y FL(;)2272 1824 y FB( )2380 1906
y FQ(1)2538 1866 y Fu(\000)p FF(x)2633 1842 y Fy(2)2667
1866 y FO(+)p FF(y)2759 1842 y Fy(2)2794 1866 y FO(+)p
FF(y)p 2518 1885 388 4 v 2518 1940 a(x)2558 1921 y Fy(2)2592
1940 y FO(+)p FF(x)p Fu(\000)p FF(y)2779 1921 y Fy(2)2814
1940 y Fu(\000)p FF(y)2380 2033 y FQ(0)2666 1993 y Fu(\000)p
FF(y)p 2518 2012 V 2518 2067 a(x)2558 2048 y Fy(2)2592
2067 y FO(+)p FF(x)p Fu(\000)p FF(y)2779 2048 y Fy(2)2814
2067 y Fu(\000)p FF(y)2957 1824 y FB(!)3023 1795 y(9)3023
1870 y(=)3023 2020 y(;)241 2231 y @beginspecial @setspecial
@endspecial 141 x FE(57.4)135 b(Ratjordan)241 2625 y
FJ(Ratjordan)p FQ(\()p FP(A)p FQ(\))30 b(computes)k(the)f(rational)f
(Jordan)g(normal)g(form)g FP(R)h FQ(of)g(the)g(matrix)241
2738 y FP(A)p FQ(.)241 2901 y(It)d(returns)f FP(fR)p
FL(;)15 b FP(P)7 b FL(;)15 b FP(P)995 2868 y Fu(\000)p
FO(1)1092 2901 y FP(g)31 b FQ(where)f FP(R)p FL(;)15
b FP(P)7 b FQ(,)32 b(and)e FP(P)1922 2868 y Fu(\000)p
FO(1)2047 2901 y FQ(are)h(suc)m(h)f(that)h FP(P)7 b(RP)2819
2865 y Fu(\000)p FO(1)2939 2901 y FQ(=)25 b FP(A)p FQ(.)241
3064 y FP(A)30 b FQ(is)f(a)i(square)f(matrix.)241 3226
y FJ(load)p 439 3226 29 4 v 33 w(package)46 b(normform;)1338
3543 y FP(A)25 b FQ(=)1532 3399 y FB( )1639 3487 y FL(x)c
FQ(+)e FL(y)109 b FQ(5)1721 3599 y FL(y)167 b(x)1985
3566 y FO(2)2066 3399 y FB(!)241 3863 y FJ(ratjordan)p
FQ(\()p FP(A)p FQ(\))28 b(=)468 4101 y FB(\( )642 4188
y FQ(0)83 b FP(\000)p FL(x)893 4155 y FO(3)953 4188 y
FP(\000)20 b FL(x)1096 4155 y FO(2)1155 4188 y FP(\003)h
FL(y)i FQ(+)d(5)g FP(\003)h FL(y)642 4301 y FQ(1)271
b FL(x)1010 4268 y FO(2)1070 4301 y FQ(+)19 b FL(x)i
FQ(+)f FL(y)1600 4101 y FB(!)1681 4245 y FL(;)1721 4101
y FB( )1829 4188 y FQ(1)83 b FL(x)21 b FQ(+)f FL(y)1829
4301 y FQ(0)165 b FL(y)2210 4101 y FB(!)2291 4245 y FL(;)2331
4101 y FB( )2438 4185 y FQ(1)2577 4141 y Fu(\000)p FO(\()p
FF(x)p FO(+)p FF(y)r FO(\))p 2577 4164 242 4 v 2679 4217
a FF(y)2438 4309 y FQ(0)2740 4273 y FO(1)p 2739 4288
38 4 v 2739 4340 a FF(y)2870 4101 y FB(!\))241 4490 y
@beginspecial @setspecial @endspecial 141 x FE(57.5)135
b(Jordansym)l(b)t(olic)241 4884 y FJ(Jordansymbolic)p
FQ(\()p FP(A)p FQ(\))56 b(computes)30 b(the)g(Jordan)f(normal)g(form)h
FP(J)16 b FQ(of)30 b(the)g(matrix)g FP(A)p FQ(.)p eop
%%Page: 434 434
434 433 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(434)375 b FM(CHAPTER)30 b(57.)72 b(NORMF)m(ORM:)31
b(MA)-8 b(TRIX)31 b(NORMAL)g(F)m(ORMS)664 555 y FQ(It)c(returns)e
FP(fJ)17 b FL(;)e FP(L)p FL(;)g FP(P)7 b FL(;)15 b FP(P)1516
522 y Fu(\000)p FO(1)1613 555 y FP(g)p FQ(,)28 b(where)e
FP(J)17 b FL(;)e FP(P)7 b FQ(,)28 b(and)e FP(P)2455 522
y Fu(\000)p FO(1)2577 555 y FQ(are)h(suc)m(h)f(that)i
FP(P)7 b(J)17 b(P)3340 519 y Fu(\000)p FO(1)3459 555
y FQ(=)25 b FP(A)p FQ(.)664 668 y FP(L)k FQ(=)f FP(f)h
FD(l)5 b(l)p FQ(,)29 b FL(\030)k FP(g)p FQ(,)c(where)g
FL(\030)j FQ(is)c(a)h(name)g(and)f FD(l)5 b(l)29 b FQ(is)f(a)h(list)e
(of)i(irreducible)c(factors)30 b(of)f FD(p)6 b FQ(\()p
FL(\030)t FQ(\).)664 831 y FP(A)30 b FQ(is)f(a)i(square)f(matrix.)664
994 y FJ(load)p 862 994 29 4 v 33 w(package)46 b(normform;)1845
1388 y FP(A)25 b FQ(=)2039 1244 y FB( )2167 1331 y FQ(1)105
b FL(y)2146 1444 y(y)2194 1411 y FO(2)2318 1444 y FQ(3)2406
1244 y FB(!)664 1692 y FJ(jordansymbolic)p FQ(\()p FP(A)p
FQ(\))27 b(=)1039 1946 y @beginspecial @setspecial @endspecial
1205 1802 a FB(\( )1380 1890 y FL(\030)1420 1904 y FO(11)1612
1890 y FQ(0)1414 2003 y(0)118 b FL(\030)1617 2017 y FO(12)1733
1802 y FB(!)1814 1946 y FL(;)1854 1852 y FB(n)q(n)1965
1946 y FP(\000)p FL(y)2084 1909 y FO(3)2143 1946 y FQ(+)20
b FL(\030)2278 1909 y FO(2)2338 1946 y FP(\000)g FQ(4)g
FP(\003)h FL(\030)j FQ(+)c(3)2760 1852 y FB(o)2831 1946
y FL(;)15 b(\030)2915 1852 y FB(o)2986 1946 y FL(;)1275
2109 y FB( )1383 2197 y FL(\030)1423 2211 y FO(11)1517
2197 y FP(\000)20 b FQ(3)84 b FL(\030)1777 2211 y FO(12)1871
2197 y FP(\000)20 b FQ(3)1475 2310 y FL(y)1523 2277 y
FO(2)1829 2310 y FL(y)1877 2277 y FO(2)2049 2109 y FB(!)2130
2253 y FL(;)2170 2085 y FB(0)2171 2234 y(@)2345 2140
y FF(\030)2376 2149 y Fy(11)2441 2140 y Fu(\000)p FO(2)p
2295 2160 288 4 v 2295 2214 a(2)p Fu(\003)p FO(\()p FF(y)2429
2195 y Fy(3)2465 2214 y Fu(\000)p FO(1\))2726 2140 y
FF(\030)2757 2149 y Fy(11)2822 2140 y FO(+)p FF(y)2914
2117 y Fy(3)2949 2140 y Fu(\000)p FO(1)p 2685 2160 395
4 v 2685 2214 a(2)p Fu(\003)p FF(y)2792 2195 y Fy(2)2828
2214 y Fu(\003)p FO(\()p FF(y)2927 2195 y Fy(3)2962 2214
y FO(+1\))2345 2286 y FF(\030)2376 2295 y Fy(12)2441
2286 y Fu(\000)p FO(2)p 2295 2306 288 4 v 2295 2360 a(2)p
Fu(\003)p FO(\()p FF(y)2429 2341 y Fy(3)2465 2360 y Fu(\000)p
FO(1\))2726 2286 y FF(\030)2757 2295 y Fy(12)2822 2286
y FO(+)p FF(y)2914 2263 y Fy(3)2949 2286 y Fu(\000)p
FO(1)p 2685 2306 395 4 v 2685 2360 a(2)p Fu(\003)p FF(y)2792
2341 y Fy(2)2828 2360 y Fu(\003)p FO(\()p FF(y)2927 2341
y Fy(3)2962 2360 y FO(+1\))3131 2085 y FB(1)3131 2234
y(A)3204 2081 y(9)3204 2156 y(=)3204 2305 y(;)664 2787
y FJ(solve)p FQ(\()p FP(\000)p FJ(y)1058 2754 y Fm(3)1116
2787 y FQ(+)g FJ(xi)1303 2754 y Fm(2)1362 2787 y FP(\000)g
FJ(4)g FP(\003)h FJ(xi)e FQ(+)h FJ(3)p FL(;)15 b FJ(xi)p
FQ(\))p FJ(;)1401 3167 y FP(f)p FL(\030)30 b FQ(=)1612
3091 y FB(p)p 1695 3091 244 4 v 76 x FL(y)1743 3141 y
FO(3)1803 3167 y FQ(+)19 b(1)i(+)f(2)p FL(;)31 b(\030)e
FQ(=)c FP(\000)2387 3091 y FB(p)p 2470 3091 V 76 x FL(y)2518
3141 y FO(3)2577 3167 y FQ(+)20 b(1)h(+)f(2)p FP(g)664
3468 y(J)42 b FQ(=)25 b FJ(sub)o FQ(\()p FP(f)p FJ(xi)p
FQ(\()p FJ(1)p FL(;)15 b FJ(1)p FQ(\))26 b(=)f FJ(sqrt)p
FQ(\()p FJ(y)1786 3435 y Fm(3)1845 3468 y FQ(+)20 b FJ(1)p
FQ(\))g(+)g FJ(2)p FL(;)30 b FJ(xi)p FQ(\()p FJ(1)p FL(;)15
b FJ(2)p FQ(\))25 b(=)g FP(\000)p FJ(sqrt)p FQ(\()p FJ(y)3002
3435 y Fm(3)3061 3468 y FQ(+)19 b FJ(1)p FQ(\))i(+)f
FJ(2)p FP(g)p FL(;)868 3581 y FJ(first)47 b(jordansymbolic)d(\()p
FP(A)p FJ(\)\);)1391 4003 y FP(J)e FQ(=)1591 3859 y FB( )1698
3870 y(p)p 1781 3870 V 76 x FL(y)1829 3920 y FO(3)1889
3946 y FQ(+)19 b(1)i(+)f(2)338 b(0)1917 4063 y(0)303
b FP(\000)2336 3987 y FB(p)p 2418 3987 V 2418 4063 a
FL(y)2466 4037 y FO(3)2526 4063 y FQ(+)20 b(1)g(+)g(2)2860
3859 y FB(!)664 4239 y @beginspecial @setspecial @endspecial
141 x FE(57.6)136 b(Jordan)664 4633 y FJ(Jordan)p FQ(\()p
FP(A)p FQ(\))29 b(computes)i(the)f(Jordan)g(normal)f(form)h
FP(J)47 b FQ(of)30 b(the)h(matrix)f FP(A)p FQ(.)664 4796
y(It)h(returns)e FP(fJ)17 b FL(;)e FP(P)7 b FL(;)15 b
FP(P)1421 4763 y Fu(\000)p FO(1)1517 4796 y FP(g)p FQ(,)31
b(where)f FP(J)17 b FL(;)e FP(P)7 b FQ(,)31 b(and)f FP(P)2373
4763 y Fu(\000)p FO(1)2498 4796 y FQ(are)h(suc)m(h)f(that)h
FP(P)7 b(J)17 b(P)3272 4760 y Fu(\000)p FO(1)3391 4796
y FQ(=)25 b FP(A)p FQ(.)664 4959 y FP(A)30 b FQ(is)f(a)i(square)f
(matrix.)p eop
%%Page: 435 435
435 434 bop 241 299 a @beginspecial @setspecial @endspecial
FM(57.6.)72 b(JORD)m(AN)2208 b FQ(435)241 555 y FJ(load)p
439 555 29 4 v 33 w(package)46 b(normform;)1006 1086
y FP(A)25 b FQ(=)1200 743 y FB(0)1200 889 y(B)1200 939
y(B)1200 989 y(B)1200 1039 y(B)1200 1088 y(B)1200 1138
y(B)1200 1188 y(B)1200 1241 y(@)1337 804 y FP(\000)p
FQ(9)106 b FP(\000)p FQ(21)83 b FP(\000)p FQ(15)h(4)f(2)h(0)1314
917 y FP(\000)p FQ(10)119 b(21)g FP(\000)p FQ(14)84 b(4)f(2)h(0)1337
1030 y FP(\000)p FQ(8)141 b(16)119 b FP(\000)p FQ(11)84
b(4)f(2)h(0)1337 1143 y FP(\000)p FQ(6)141 b(12)h FP(\000)p
FQ(9)106 b(3)83 b(3)h(0)1337 1256 y FP(\000)p FQ(4)164
b(8)g FP(\000)p FQ(6)106 b(0)83 b(5)h(0)1337 1368 y FP(\000)p
FQ(2)164 b(4)g FP(\000)p FQ(3)106 b(0)83 b(1)h(3)2392
743 y FB(1)2392 889 y(C)2392 939 y(C)2392 989 y(C)2392
1039 y(C)2392 1088 y(C)2392 1138 y(C)2392 1188 y(C)2392
1241 y(A)241 1610 y FP(J)64 b FJ(=)47 b(first)g(jordan)p
FQ(\()p FP(A)p FQ(\))p FJ(;)999 2225 y FP(J)42 b FQ(=)1199
1882 y FB(0)1199 2028 y(B)1199 2078 y(B)1199 2127 y(B)1199
2177 y(B)1199 2227 y(B)1199 2277 y(B)1199 2327 y(B)1199
2380 y(@)1313 1943 y FQ(3)84 b(0)f(0)h(0)154 b(0)262
b(0)1313 2055 y(0)84 b(3)f(0)h(0)154 b(0)262 b(0)1313
2168 y(0)84 b(0)f(1)h(1)154 b(0)262 b(0)1313 2281 y(0)84
b(0)f(0)h(1)154 b(0)262 b(0)1313 2394 y(0)84 b(0)f(0)h(0)f
FL(i)21 b FQ(+)f(2)190 b(0)1313 2507 y(0)84 b(0)f(0)h(0)154
b(0)h FP(\000)p FL(i)20 b FQ(+)g(2)2398 1882 y FB(1)2398
2028 y(C)2398 2078 y(C)2398 2127 y(C)2398 2177 y(C)2398
2227 y(C)2398 2277 y(C)2398 2327 y(C)2398 2380 y(A)p
eop
%%Page: 436 436
436 435 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(436)375 b FM(CHAPTER)30 b(57.)72 b(NORMF)m(ORM:)31
b(MA)-8 b(TRIX)31 b(NORMAL)g(F)m(ORMS)p eop
%%Page: 437 437
437 436 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(58)241 1693 y FT(NUMERIC:)76 b(Solving)241 1942 y(n)-6
b(umerical)76 b(problems)1470 2424 y Fx(Herb)r(ert)26
b(Melenk)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)1352 2819 y(e{mail:)35 b(melenk@zib.de)241
3063 y FQ(The)g Fk(NUMERIC)h FQ(pac)m(k)-5 b(age)38 b(implemen)m(ts)c
(some)j(n)m(umerical)d(\(appro)m(ximativ)m(e\))j(algo-)241
3176 y(rithms)43 b(for)h(REDUCE)60 b(based)44 b(on)g(the)h(REDUCE)g
(rounded)e(mo)s(de)h(arithmetic.)241 3289 y(These)f(algorithms)g(are)i
(implemen)m(ted)d(for)i(standard)f(cases.)82 b(They)43
b(should)f(not)241 3402 y(b)s(e)h(called)f(for)i(ill-conditioned)c
(problems;)49 b(please)43 b(use)g(standard)g(mathematical)241
3515 y(libraries)27 b(for)j(these.)241 3652 y @beginspecial
@setspecial @endspecial 199 x FE(58.1)135 b(Syn)l(tax)241
3964 y @beginspecial @setspecial @endspecial 143 x FR(58.1.1)112
b(In)m(terv)-6 b(als,)37 b(Starting)f(P)m(oin)m(ts)241
4329 y FQ(In)m(terv)-5 b(als)25 b(are)i(generally)e(co)s(ded)g(as)i(lo)
m(w)m(er)f(b)s(ound)e(and)h(upp)s(er)f(b)s(ound)g(connected)j(b)m(y)241
4442 y(the)j(op)s(erator)h FJ(`..')p FQ(,)e(usually)g(asso)s(ciated)h
(to)i(a)e(v)-5 b(ariable)29 b(in)g(an)i(equation.)459
4672 y FH(x=)42 b(\(2.5)g(..)h(3.5\))241 4916 y FQ(means)35
b(that)h(the)g(v)-5 b(ariable)34 b(x)i(is)f(tak)m(en)h(in)e(the)i
(range)g(from)f(2.5)i(up)d(to)j(3.5.)57 b(Note,)1667
5187 y(437)p eop
%%Page: 438 438
438 437 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(438)121 b FM(CHAPTER)30 b(58.)72 b(NUMERIC:)30 b(SOL)-10
b(VING)30 b(NUMERICAL)g(PR)m(OBLEMS)664 555 y FQ(that)24
b(the)g(b)s(ounds)d(can)j(b)s(e)f(algebraic)g(expressions,)h(whic)m(h,)
f(ho)m(w)m(ev)m(er,)k(m)m(ust)c(ev)-5 b(aluate)664 668
y(to)32 b(n)m(umeric)e(results.)43 b(In)30 b(cases)i(where)f(an)g(in)m
(terv)-5 b(al)31 b(is)f(returned)g(as)i(the)f(result,)g(the)664
781 y(lo)m(w)m(er)h(and)e(upp)s(er)f(b)s(ounds)g(can)i(b)s(e)g
(extracted)h(b)m(y)f(the)h FJ(PART)e FQ(op)s(erator)h(as)g(the)h
(\014rst)664 894 y(and)j(second)h(part)g(resp)s(ectiv)m(ely)-8
b(.)57 b(A)36 b(starting)g(p)s(oin)m(t)e(is)h(sp)s(eci\014ed)g(b)m(y)g
(an)h(equation)664 1007 y(with)29 b(a)i(n)m(umeric)e(righ)m(thand)g
(side,)882 1235 y FH(x=3.0)664 1476 y FQ(If)i(for)h(m)m(ultiv)-5
b(ariate)30 b(applications)g(sev)m(eral)i(co)s(ordinates)g(m)m(ust)f(b)
s(e)g(sp)s(eci\014ed)f(b)m(y)i(in-)664 1589 y(terv)-5
b(als)39 b(or)g(as)g(a)g(starting)g(p)s(oin)m(t,)h(these)f(sp)s
(eci\014cations)f(can)h(b)s(e)f(collected)h(in)f(one)664
1701 y(parameter)27 b(\(whic)m(h)e(is)f(then)i(a)g(list\))f(or)h(they)g
(can)g(b)s(e)g(giv)m(en)g(as)g(separate)h(parameters)664
1814 y(alternativ)m(ely)-8 b(.)62 b(The)37 b(list)f(form)h(is)f(more)i
(appropriate)e(when)g(the)i(parameters)g(are)664 1927
y(built)26 b(from)i(other)g(REDUCE)g(calculations)f(in)g(an)g
(automatic)i(st)m(yle,)g(while)d(the)j(\015at)664 2040
y(form)h(is)f(more)i(con)m(v)m(enien)m(t)h(for)e(direct)f(in)m
(teractiv)m(e)j(input.)664 2182 y @beginspecial @setspecial
@endspecial 149 x FR(58.1.2)113 b(Accuracy)37 b(Con)m(trol)664
2552 y FQ(The)i(k)m(eyw)m(ord)i(parameters)f FL(accur)s(acy)k
FQ(=)c FL(a)g FQ(and)f FL(iter)s(ations)i FQ(=)f FL(i)p
FQ(,)j(where)c FL(a)h FQ(and)664 2665 y FL(i)h FQ(m)m(ust)g(b)s(e)f(p)s
(ositiv)m(e)f(in)m(teger)i(n)m(um)m(b)s(ers,)h(con)m(trol)g(the)e
(iterativ)m(e)i(algorithms:)60 b(the)664 2778 y(iteration)25
b(is)e(con)m(tin)m(ued)i(un)m(til)e(the)i(lo)s(cal)f(error)g(is)g(b)s
(elo)m(w)g(10)2736 2745 y Fu(\000)p FF(a)2834 2778 y
FQ(;)i(if)e(that)i(is)d(imp)s(ossible)664 2891 y(within)g
FL(i)i FQ(steps,)h(the)f(iteration)g(is)f(terminated)h(with)e(an)i
(error)g(message.)40 b(The)25 b(v)-5 b(alues)664 3004
y(reac)m(hed)31 b(so)g(far)f(are)h(then)f(returned)f(as)i(the)f
(result.)664 3138 y @beginspecial @setspecial @endspecial
199 x FE(58.2)136 b(Minima)664 3590 y FQ(The)26 b(function)g(to)h(b)s
(e)f(minimised)e(m)m(ust)i(ha)m(v)m(e)i(con)m(tin)m(uous)f(partial)e
(deriv)-5 b(ativ)m(es)26 b(with)664 3703 y(resp)s(ect)k(to)g(all)f(v)-5
b(ariables.)39 b(The)30 b(starting)f(p)s(oin)m(t)g(of)h(the)g(searc)m
(h)g(can)g(b)s(e)f(sp)s(eci\014ed;)g(if)664 3816 y(not,)38
b(random)d(v)-5 b(alues)35 b(are)i(tak)m(en)g(instead.)57
b(The)35 b(steep)s(est)i(descen)m(t)f(algorithms)f(in)664
3929 y(general)c(\014nd)d(only)i(lo)s(cal)g(minima.)664
4091 y(Syn)m(tax:)664 4335 y FN(NUM)p 931 4335 32 4 v
38 w(MIN)45 b FQ(\()p FL(exp;)15 b(v)s(ar)1580 4349 y
FO(1)1621 4335 y FQ([=)25 b FL(v)s(al)1864 4349 y FO(1)1904
4335 y FQ(][)p FL(;)15 b(v)s(ar)2130 4349 y FO(2)2171
4335 y FQ([=)25 b FL(v)s(al)2414 4349 y FO(2)2454 4335
y FQ(])15 b FL(:)g(:)g(:)r FQ(])891 4483 y([)p FL(;)g(accur)s(acy)30
b FQ(=)25 b FL(a)p FQ(][)p FL(;)15 b(iter)s(ations)26
b FQ(=)f FL(i)p FQ(]\))891 4630 y(or)664 4811 y FN(NUM)p
931 4811 V 38 w(MIN)45 b FQ(\()p FL(exp;)15 b FP(f)p
FL(v)s(ar)1625 4825 y FO(1)1667 4811 y FQ([=)25 b FL(v)s(al)1910
4825 y FO(1)1950 4811 y FQ(][)p FL(;)15 b(v)s(ar)2176
4825 y FO(2)2216 4811 y FQ([=)26 b FL(v)s(al)2460 4825
y FO(2)2500 4811 y FQ(])15 b FL(:)g(:)g(:)q FQ(])p FP(g)891
4959 y FQ([)p FL(;)g(accur)s(acy)30 b FQ(=)25 b FL(a)p
FQ(][)p FL(;)15 b(iter)s(ations)26 b FQ(=)f FL(i)p FQ(]\))p
eop
%%Page: 439 439
439 438 bop 241 299 a @beginspecial @setspecial @endspecial
FM(58.3.)72 b(R)m(OOTS)30 b(OF)g(FUNCTIONS/)g(SOLUTIONS)e(OF)j(EQUA)-8
b(TIONS)182 b FQ(439)468 555 y(where)30 b FL(exp)g FQ(is)g(a)g
(function)f(expression,)468 699 y FL(v)s(ar)604 713 y
FO(1)644 699 y FL(;)15 b(v)s(ar)820 713 y FO(2)860 699
y FL(;)g(:)g(:)g(:)36 b FQ(are)f(the)g(v)-5 b(ariables)33
b(in)h FL(exp)h FQ(and)f FL(v)s(al)2328 713 y FO(1)2368
699 y FL(;)15 b(v)s(al)2530 713 y FO(2)2570 699 y FL(;)g(:)g(:)g(:)36
b FQ(are)f(the)g(\(op-)468 812 y(tional\))30 b(start)h(v)-5
b(alues.)468 956 y(NUM)p 692 956 28 4 v 33 w(MIN)30 b(tries)e(to)i
(\014nd)e(the)h(next)h(lo)s(cal)e(minim)m(um)e(along)j(the)h
(descending)468 1068 y(path)25 b(starting)f(at)i(the)f(giv)m(en)g(p)s
(oin)m(t.)38 b(The)25 b(result)f(is)g(a)h(list)e(with)h(the)h(minim)m
(um)468 1181 y(function)35 b(v)-5 b(alue)35 b(as)h(\014rst)f(elemen)m
(t)i(follo)m(w)m(ed)e(b)m(y)h(a)g(list)f(of)h(equations,)h(where)468
1294 y(the)31 b(v)-5 b(ariables)29 b(are)h(equated)h(to)g(the)g(co)s
(ordinates)f(of)h(the)f(result)f(p)s(oin)m(t.)241 1517
y(Examples:)372 1742 y FH(num_min\(sin\(x\)+)o(x/)o(5,)37
b(x\);)372 1941 y({4.9489585606,{)o(X=)o(29.)o(64)o(376)o(77)o(85})o(})
372 2140 y(num_min\(sin\(x\)+)o(x/)o(5,)g(x=0\);)372
2339 y({)43 b(-)g(1.3342267466,{X=)37 b(-)43 b(1.7721582671}})372
2539 y(\045)g(Rosenbrock)c(function)h(\(well)i(known)f(as)i(hard)f(to)h
(minimize\).)372 2638 y(fktn)e(:=)i(100*\(x1**2-x2\)**2)37
b(+)43 b(\(1-x1\)**2;)372 2738 y(num_min\(fktn,)38 b(x1=-1.2,)i(x2=1,)i
(iterations=200\))o(;)372 2937 y({0.000000218702)o(28)o(295)o(,{)o(X1=)
o(0.)o(999)o(53)o(28)o(449)o(4,)o(X2=)o(0.)o(99)o(906)o(80)o(723)o(8})o
(})241 3168 y @beginspecial @setspecial @endspecial 199
x FE(58.3)135 b(Ro)t(ots)46 b(of)f(F)-11 b(unctions/)45
b(Solutions)g(of)g(Equations)241 3620 y FQ(An)36 b(adaptiv)m(ely)g
(damp)s(ed)g(Newton)h(iteration)f(is)g(used)g(to)h(\014nd)e(an)i(appro)
m(ximativ)m(e)241 3733 y(zero)i(of)f(a)h(function,)g(a)f(function)f(v)m
(ector)j(or)e(the)g(solution)f(of)h(an)g(equation)g(or)h(an)241
3846 y(equation)34 b(system.)52 b(The)34 b(expressions)f(m)m(ust)h(ha)m
(v)m(e)h(con)m(tin)m(uous)f(deriv)-5 b(ativ)m(es)34 b(for)g(all)241
3958 y(v)-5 b(ariables.)75 b(A)42 b(starting)g(p)s(oin)m(t)f(for)h(the)
g(iteration)g(can)g(b)s(e)g(giv)m(en.)76 b(If)42 b(not)g(giv)m(en,)241
4071 y(random)c(v)-5 b(alues)38 b(are)i(tak)m(en)g(instead.)66
b(If)38 b(the)i(n)m(um)m(b)s(er)d(of)i(forms)g(is)f(not)h(equal)g(to)
241 4184 y(the)33 b(n)m(um)m(b)s(er)e(of)i(v)-5 b(ariables,)33
b(the)g(Newton)g(metho)s(d)g(cannot)g(b)s(e)f(applied.)46
b(Then)32 b(the)241 4297 y(minim)m(um)27 b(of)k(the)f(sum)g(of)g
(absolute)g(squares)g(is)g(lo)s(cated)h(instead.)241
4460 y(With)26 b FJ(ON)47 b(COMPLEX)25 b FQ(solutions)g(with)h
(imaginary)f(parts)i(can)g(b)s(e)f(found,)g(if)g(either)g(the)241
4573 y(expression\(s\))j(or)i(the)f(starting)h(p)s(oin)m(t)e(con)m
(tain)i(a)f(nonzero)h(imaginary)e(part.)241 4736 y(Syn)m(tax:)241
4959 y FN(NUM)p 508 4959 32 4 v 38 w(SOL)-12 b(VE)45
b FQ(\()p FL(exp)1096 4973 y FO(1)1136 4959 y FL(;)15
b(v)s(ar)1312 4973 y FO(1)1352 4959 y FQ([=)25 b FL(v)s(al)1595
4973 y FO(1)1635 4959 y FQ(][)p FL(;)15 b(accur)s(acy)30
b FQ(=)25 b FL(a)p FQ(][)p FL(;)15 b(iter)s(ations)25
b FQ(=)g FL(i)p FQ(]\))p eop
%%Page: 440 440
440 439 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(440)121 b FM(CHAPTER)30 b(58.)72 b(NUMERIC:)30 b(SOL)-10
b(VING)30 b(NUMERICAL)g(PR)m(OBLEMS)891 555 y FQ(or)664
743 y FN(NUM)p 931 743 32 4 v 38 w(SOL)-12 b(VE)45 b
FQ(\()p FP(f)p FL(exp)1564 757 y FO(1)1605 743 y FL(;)15
b(:)g(:)g(:)h(;)f(exp)1946 757 y FF(n)1994 743 y FP(g)p
FL(;)g(v)s(ar)2215 757 y FO(1)2255 743 y FQ([=)26 b FL(v)s(al)2499
757 y FO(1)2538 743 y FQ(])p FL(;)15 b(:)g(:)g(:)i(;)e(v)s(ar)2901
757 y FO(1)2942 743 y FQ([=)25 b FL(v)s(al)3185 757 y
FF(n)3232 743 y FQ(])988 930 y([)p FL(;)15 b(accur)s(acy)30
b FQ(=)25 b FL(a)p FQ(][)p FL(;)15 b(iter)s(ations)26
b FQ(=)e FL(i)p FQ(]\))891 1081 y(or)664 1268 y FN(NUM)p
931 1268 V 38 w(SOL)-12 b(VE)45 b FQ(\()p FP(f)p FL(exp)1564
1282 y FO(1)1605 1268 y FL(;)15 b(:)g(:)g(:)h(;)f(exp)1946
1282 y FF(n)1994 1268 y FP(g)p FL(;)g FP(f)p FL(v)s(ar)2260
1282 y FO(1)2301 1268 y FQ([=)25 b FL(v)s(al)2544 1282
y FO(1)2584 1268 y FQ(])p FL(;)15 b(:)g(:)g(:)i(;)e(v)s(ar)2947
1282 y FO(1)2987 1268 y FQ([=)25 b FL(v)s(al)3230 1282
y FF(n)3278 1268 y FQ(])p FP(g)988 1456 y FQ([)p FL(;)15
b(accur)s(acy)30 b FQ(=)25 b FL(a)p FQ(][)p FL(;)15 b(iter)s(ations)26
b FQ(=)e FL(i)p FQ(]\))891 1606 y(where)30 b FL(exp)1294
1620 y FO(1)1334 1606 y FL(;)15 b(:)g(:)g(:)h(;)f(exp)1675
1620 y FF(n)1753 1606 y FQ(are)31 b(function)e(expressions,)891
1757 y FL(v)s(ar)1027 1771 y FO(1)1067 1757 y FL(;)15
b(:)g(:)g(:)i(;)e(v)s(ar)1405 1771 y FF(n)1483 1757 y
FQ(are)31 b(the)f(v)-5 b(ariables,)891 1907 y FL(v)s(al)1013
1921 y FO(1)1053 1907 y FL(;)15 b(:)g(:)g(:)i(;)e(v)s(al)1377
1921 y FF(n)1455 1907 y FQ(are)31 b(optional)e(start)i(v)-5
b(alues.)891 2057 y(NUM)p 1115 2057 28 4 v 34 w(SOL)-10
b(VE)25 b(tries)g(to)i(\014nd)d(a)j(zero/solution)f(of)g(the)g
(expression\(s\).)39 b(Result)891 2170 y(is)21 b(a)h(list)e(of)i
(equations,)i(where)d(the)h(v)-5 b(ariables)20 b(are)i(equated)g(to)g
(the)g(co)s(ordinates)891 2283 y(of)31 b(the)g(result)e(p)s(oin)m(t.)
891 2433 y(The)36 b(Jacobian)f(matrix)g(is)f(stored)i(as)g(a)g(side)e
(e\013ect)j(in)e(the)g(shared)g(v)-5 b(ariable)891 2546
y(JA)m(COBIAN.)664 2808 y(Example:)839 3039 y FH(num_solve\({sin)37
b(x=cos)42 b(y,)h(x)g(+)g(y)g(=)g(1},{x=1,y=2}\);)839
3238 y({X=)f(-)h(1.8561957251,Y=2)o(.85)o(61)o(955)o(84)o(})839
3438 y(jacobian;)839 3637 y([COS\(X\))84 b(SIN\(Y\)])839
3737 y([)609 b(])839 3836 y([)86 b(1)305 b(1)130 b(])664
3980 y @beginspecial @setspecial @endspecial 192 x FE(58.4)136
b(In)l(tegrals)664 4425 y FQ(Numerical)29 b(in)m(tegration)h(uses)g(a)g
(p)s(oly)m(algorithm,)f(explained)f(in)h(the)h(full)e(do)s(cumen-)664
4538 y(tation.)664 4800 y FN(NUM)p 931 4800 32 4 v 38
w(INT)45 b FQ(\()p FL(exp;)15 b(v)s(ar)1554 4814 y FO(1)1620
4800 y FQ(=)25 b(\()p FL(l)1778 4814 y FO(1)1818 4800
y FL(::u)1920 4814 y FO(1)1960 4800 y FQ(\)[)p FL(;)15
b(v)s(ar)2196 4814 y FO(2)2262 4800 y FQ(=)25 b(\()p
FL(l)2420 4814 y FO(2)2460 4800 y FL(::u)2562 4814 y
FO(2)2602 4800 y FQ(\))15 b FL(:)g(:)g(:)q FQ(])p eop
%%Page: 441 441
441 440 bop 241 299 a @beginspecial @setspecial @endspecial
FM(58.5.)72 b(ORDINAR)-8 b(Y)31 b(DIFFERENTIAL)g(EQUA)-8
b(TIONS)777 b FQ(441)495 555 y([)p FL(;)15 b(accur)s(acy)30
b FQ(=)25 b FL(a)p FQ(][)p FL(;)15 b(iter)s(ations)25
b FQ(=)g FL(i)p FQ(]\))468 705 y(where)30 b FL(exp)g
FQ(is)g(the)g(function)f(to)i(b)s(e)f(in)m(tegrated,)468
856 y FL(v)s(ar)604 870 y FO(1)644 856 y FL(;)15 b(v)s(ar)820
870 y FO(2)860 856 y FL(;)g(:)g(:)g(:)32 b FQ(are)f(the)f(in)m
(tegration)h(v)-5 b(ariables,)468 1006 y FL(l)495 1020
y FO(1)535 1006 y FL(;)15 b(l)602 1020 y FO(2)642 1006
y FL(;)g(:)g(:)g(:)31 b FQ(are)g(the)g(lo)m(w)m(er)f(b)s(ounds,)468
1156 y FL(u)520 1170 y FO(1)560 1156 y FL(;)15 b(u)652
1170 y FO(2)691 1156 y FL(;)g(:)g(:)g(:)32 b FQ(are)f(the)f(upp)s(er)f
(b)s(ounds.)468 1307 y(Result)h(is)f(the)i(v)-5 b(alue)29
b(of)i(the)g(in)m(tegral.)241 1569 y(Example:)415 1800
y FH(num_int\(sin)39 b(x,x=\(0)i(..)i(pi\)\);)415 1999
y(2.0000010334)241 2136 y @beginspecial @setspecial @endspecial
199 x FE(58.5)135 b(Ordinary)45 b(Di\013eren)l(tial)j(Equations)241
2588 y FQ(A)29 b(Runge-Kutta)g(metho)s(d)f(of)h(order)f(3)h(\014nds)e
(an)i(appro)m(ximate)g(graph)f(for)g(the)h(solu-)241
2701 y(tion)h(of)g(a)h(ordinary)e(di\013eren)m(tial)f(equation)j(real)f
(initial)d(v)-5 b(alue)30 b(problem.)241 2864 y(Syn)m(tax:)241
3101 y FN(NUM)p 508 3101 32 4 v 38 w(ODESOL)-12 b(VE)44
b FQ(\()p FL(exp)p FQ(,)p FL(depv)s(ar)30 b FQ(=)24 b
FL(dv)s FQ(,)p FL(indepv)s(ar)s FQ(=\()p FL(f)10 b(r)s(om::to)p
FQ(\))468 3251 y([)p FL(;)15 b(accur)s(acy)29 b FQ(=)c
FL(a)p FQ(][)p FL(;)15 b(iter)s(ations)26 b FQ(=)f FL(i)p
FQ(]\))468 3402 y(where)468 3552 y FL(exp)30 b FQ(is)g(the)g
(di\013eren)m(tial)f(expression/equation,)468 3702 y
FL(depv)s(ar)39 b FQ(is)d(an)f(iden)m(ti\014er)g(represen)m(ting)g(the)
h(dep)s(enden)m(t)g(v)-5 b(ariable)34 b(\(function)468
3815 y(to)d(b)s(e)f(found\),)468 3965 y FL(indepv)s(ar)k
FQ(is)29 b(an)h(iden)m(ti\014er)f(represen)m(ting)g(the)i(indep)s
(enden)m(t)d(v)-5 b(ariable,)468 4116 y FL(exp)28 b FQ(is)g(an)g
(equation)h(\(or)g(an)f(expression)f(implicitly)e(set)k(to)g(zero\))h
(whic)m(h)d(con-)468 4228 y(tains)j(the)g(\014rst)g(deriv)-5
b(ativ)m(e)30 b(of)g FL(depv)s(ar)k FQ(wrt)c FL(indepv)s(ar)s
FQ(,)468 4379 y FL(f)10 b(r)s(om)29 b FQ(is)g(the)i(starting)f(p)s(oin)
m(t)g(of)g(in)m(tegration,)468 4529 y FL(to)g FQ(is)g(the)g(endp)s(oin)
m(t)f(of)i(in)m(tegration)f(\(allo)m(w)m(ed)g(to)i(b)s(e)d(b)s(elo)m(w)
h FL(f)10 b(r)s(om)p FQ(\),)468 4679 y FL(dv)34 b FQ(is)29
b(the)i(initial)d(v)-5 b(alue)29 b(of)i FL(depv)s(ar)j
FQ(in)29 b(the)h(p)s(oin)m(t)g FL(indepv)s(ar)e FQ(=)d
FL(f)10 b(r)s(om)p FQ(.)468 4830 y(The)24 b(ODE)g FL(exp)g
FQ(is)g(con)m(v)m(erted)h(in)m(to)g(an)f(explicit)f(form,)i(whic)m(h)e
(then)h(is)f(used)h(for)468 4942 y(a)29 b(Runge-Kutta)g(iteration)f(o)m
(v)m(er)i(the)f(giv)m(en)g(range.)40 b(The)29 b(n)m(um)m(b)s(er)e(of)i
(steps)f(is)p eop
%%Page: 442 442
442 441 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(442)121 b FM(CHAPTER)30 b(58.)72 b(NUMERIC:)30 b(SOL)-10
b(VING)30 b(NUMERICAL)g(PR)m(OBLEMS)891 555 y FQ(con)m(trolled)c(b)m(y)
h(the)f(v)-5 b(alue)26 b(of)g FL(i)h FQ(\(default:)38
b(20\).)j(If)25 b(the)i(steps)f(are)h(to)s(o)g(coarse)g(to)891
668 y(reac)m(h)h(the)f(desired)e(accuracy)j(in)d(the)i(neigh)m(b)s
(ourho)s(o)s(d)d(of)j(the)g(starting)g(p)s(oin)m(t,)891
781 y(the)k(n)m(um)m(b)s(er)e(is)g(increased)h(automatically)-8
b(.)891 931 y(Result)32 b(is)f(a)h(list)f(of)h(pairs,)f(eac)m(h)i
(represen)m(ting)e(a)i(p)s(oin)m(t)e(of)h(the)g(appro)m(ximate)891
1044 y(solution)d(of)i(the)f(ODE)h(problem.)664 1282
y(Example:)839 1612 y FH(num_odesolve\(df)o(\(y)o(,x\))o(=y)o(,y=)o(1,)
o(x=\()o(0)37 b(..)43 b(1\),)f(iterations=5\);)708 1811
y({{0.0,1.0},{0.2,)o(1.)o(22)o(14})o(,{)o(0.4)o(,1)o(.49)o(18)o(17)o
(96})o(,{)o(0.6)o(,1)o(.8)o(221)o(06)o(456)o(3})o(,)751
2011 y({0.8,2.2255208258)o(},)o({1.)o(0,)o(2.7)o(18)o(251)o(13)o(66)o
(}})664 2247 y @beginspecial @setspecial @endspecial
199 x FE(58.6)136 b(Bounds)44 b(of)h(a)g(F)-11 b(unction)664
2699 y FQ(Upp)s(er)27 b(and)g(lo)m(w)m(er)h(b)s(ounds)d(of)j(a)h(real)e
(v)-5 b(alued)27 b(function)f(o)m(v)m(er)j(an)f(in)m(terv)-5
b(al)27 b(or)h(a)g(rect-)664 2812 y(angular)36 b(m)m(ultiv)-5
b(ariate)35 b(domain)g(are)h(computed)g(b)m(y)g(the)h(op)s(erator)f
FJ(BOUNDS)p FQ(.)f(Some)664 2925 y(kno)m(wledge)40 b(ab)s(out)g(the)g
(b)s(eha)m(viour)e(of)i(sp)s(ecial)f(functions)f(lik)m(e)h(ABS,)h(SIN,)
g(COS,)664 3038 y(EXP)-8 b(,)32 b(LOG,)g(fractional)f(exp)s(onen)m
(tials)g(etc.)46 b(is)30 b(in)m(tegrated)j(and)e(can)h(b)s(e)f(ev)-5
b(aluated)664 3151 y(if)36 b(the)h(op)s(erator)g(BOUNDS)g(is)f(called)g
(with)f(rounded)g(mo)s(de)i(on)f(\(otherwise)h(only)664
3264 y(algebraic)30 b(ev)-5 b(aluation)30 b(rules)f(are)i(a)m(v)-5
b(ailable\).)664 3426 y(If)28 b(BOUNDS)g(\014nds)e(a)i(singularit)m(y)e
(within)g(an)h(in)m(terv)-5 b(al,)28 b(the)g(ev)-5 b(aluation)28
b(is)f(stopp)s(ed)664 3539 y(with)i(an)i(error)e(message)j(indicating)c
(the)j(problem)e(part)h(of)g(the)h(expression.)p eop
%%Page: 443 443
443 442 bop 241 299 a @beginspecial @setspecial @endspecial
FM(58.7.)72 b(CHEBYSHEV)31 b(CUR)-10 b(VE)30 b(FITTING)1240
b FQ(443)241 555 y(Syn)m(tax:)241 818 y FN(BOUNDS)46
b FQ(\()p FL(exp;)15 b(v)s(ar)1091 832 y FO(1)1156 818
y FQ(=)25 b(\()p FL(l)1314 832 y FO(1)1354 818 y FL(::u)1456
832 y FO(1)1496 818 y FQ(\)[)p FL(;)15 b(v)s(ar)1732
832 y FO(2)1798 818 y FQ(=)25 b(\()p FL(l)1956 832 y
FO(2)1996 818 y FL(::u)2098 832 y FO(2)2138 818 y FQ(\))15
b FL(:)g(:)g(:)r FQ(]\))241 1005 y FD(BOUNDS)44 b FQ(\()p
FL(exp;)15 b FP(f)p FL(v)s(ar)1071 1019 y FO(1)1137 1005
y FQ(=)25 b(\()p FL(l)1295 1019 y FO(1)1335 1005 y FL(::u)1437
1019 y FO(1)1477 1005 y FQ(\)[)p FL(;)15 b(v)s(ar)1713
1019 y FO(2)1779 1005 y FQ(=)25 b(\()p FL(l)1937 1019
y FO(2)1977 1005 y FL(::u)2079 1019 y FO(2)2119 1005
y FQ(\))15 b FL(:)g(:)g(:)q FQ(])p FP(g)p FQ(\))468 1155
y(where)30 b FL(exp)g FQ(is)g(the)g(function)f(to)i(b)s(e)f(in)m(v)m
(estigated,)468 1306 y FL(v)s(ar)604 1320 y FO(1)644
1306 y FL(;)15 b(v)s(ar)820 1320 y FO(2)860 1306 y FL(;)g(:)g(:)g(:)32
b FQ(are)f(the)f(v)-5 b(ariables)29 b(of)i(exp,)468 1456
y FL(l)495 1470 y FO(1)535 1456 y FL(;)15 b(l)602 1470
y FO(2)642 1456 y FL(;)g(:)g(:)g(:)31 b FQ(and)f FL(u)1047
1470 y FO(1)1087 1456 y FL(;)15 b(u)1179 1470 y FO(2)1218
1456 y FL(;)g(:)g(:)g(:)32 b FQ(sp)s(ecify)d(the)i(area)g(\(in)m(terv)
-5 b(als\).)468 1606 y FJ(BOUNDS)37 b FQ(computes)i(upp)s(er)e(and)h
(lo)m(w)m(er)h(b)s(ounds)d(for)j(the)f(expression)g(in)f(the)468
1719 y(giv)m(en)30 b(area.)42 b(An)30 b(in)m(terv)-5
b(al)30 b(is)f(returned.)241 1982 y(Example:)415 2312
y FH(bounds\(sin)40 b(x,x=\(1)h(..)h(2\)\);)415 2511
y({-1,1})415 2710 y(on)h(rounded;)415 2810 y(bounds\(sin)d(x,x=\(1)h
(..)h(2\)\);)415 3009 y(0.84147098481)c(..)43 b(1)415
3209 y(bounds\(x**2+x,x=)o(\(-0)o(.5)37 b(..)43 b(0.5\)\);)459
3408 y(-)g(0.25)f(..)h(0.75)241 3644 y @beginspecial
@setspecial @endspecial 200 x FE(58.7)135 b(Cheb)l(yshev)46
b(Curv)l(e)f(Fitting)241 4096 y FQ(The)28 b(op)s(erator)h(family)f
FL(C)7 b(heby)s(shev)p 1511 4096 28 4 v 51 w(:)15 b(:)g(:)30
b FQ(implemen)m(ts)d(appro)m(ximation)h(and)g(ev)-5 b(alua-)241
4209 y(tion)30 b(of)g(functions)f(b)m(y)h(the)h(Cheb)m(yshev)e(metho)s
(d.)241 4372 y(The)39 b(op)s(erator)h FJ(Chebyshev)p
1251 4372 29 4 v 32 w(fit)e FQ(computes)i(this)e(appro)m(ximation)h
(and)g(returns)f(a)241 4485 y(list,)f(whic)m(h)e(has)h(as)h(\014rst)f
(elemen)m(t)h(the)g(sum)f(expressed)g(as)g(a)h(p)s(olynomial)d(and)i
(as)241 4598 y(second)22 b(elemen)m(t)i(the)e(sequence)i(of)e(Cheb)m
(yshev)g(co)s(e\016cien)m(ts)i FL(c)2410 4612 y FF(i)2438
4598 y FQ(.)38 b FJ(Chebyshev)p 2939 4598 V 32 w(df)22
b FQ(and)241 4711 y FJ(Chebyshev)p 679 4711 V 32 w(int)36
b FQ(transform)g(a)i(Cheb)m(yshev)e(co)s(e\016cien)m(t)i(list)d(in)m
(to)j(the)f(co)s(e\016cien)m(ts)241 4824 y(of)k(the)g(corresp)s(onding)
e(deriv)-5 b(ativ)m(e)40 b(or)h(in)m(tegral)g(resp)s(ectiv)m(ely)-8
b(.)72 b(F)-8 b(or)42 b(ev)-5 b(aluating)40 b(a)241 4937
y(Cheb)m(yshev)25 b(appro)m(ximation)g(at)i(a)f(giv)m(en)g(p)s(oin)m(t)
f(in)f(the)j(basic)e(in)m(terv)-5 b(al)25 b(the)h(op)s(erator)p
eop
%%Page: 444 444
444 443 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(444)121 b FM(CHAPTER)30 b(58.)72 b(NUMERIC:)30 b(SOL)-10
b(VING)30 b(NUMERICAL)g(PR)m(OBLEMS)664 555 y FJ(Chebyshev)p
1102 555 29 4 v 32 w(eval)42 b FQ(can)h(b)s(e)g(used.)78
b(Note)44 b(that)g FJ(Chebyshev)p 2839 555 V 32 w(eval)e
FQ(is)g(based)h(on)g(a)664 668 y(recurrence)30 b(relation)g(whic)m(h)f
(is)h(in)f(general)i(more)f(stable)g(than)h(a)f(direct)g(ev)-5
b(aluation)664 781 y(of)31 b(the)f(complete)h(p)s(olynomial.)664
1043 y FN(CHEBYSHEV)p 1338 1043 32 4 v 37 w(FIT)44 b
FQ(\()p FL(f)10 b(cn;)15 b(v)s(ar)29 b FQ(=)c(\()p FL(l)r(o::hi)p
FQ(\))p FL(;)15 b(n)p FQ(\))664 1231 y FN(CHEBYSHEV)p
1338 1231 V 37 w(EV)-12 b(AL)45 b FQ(\()p FL(coef)10
b(f)g(s;)15 b(v)s(ar)28 b FQ(=)d(\()p FL(l)r(o::hi)p
FQ(\))p FL(;)15 b(v)s(ar)31 b FQ(=)25 b FL(pt)p FQ(\))664
1419 y FN(CHEBYSHEV)p 1338 1419 V 37 w(DF)45 b FQ(\()p
FL(coef)10 b(f)g(s;)15 b(v)s(ar)28 b FQ(=)d(\()p FL(l)r(o::hi)p
FQ(\)\))664 1606 y FN(CHEBYSHEV)p 1338 1606 V 37 w(INT)44
b FQ(\()p FL(coef)10 b(f)g(s;)15 b(v)s(ar)28 b FQ(=)d(\()p
FL(l)r(o::hi)p FQ(\)\))891 1757 y(where)35 b FL(f)10
b(cn)35 b FQ(is)f(an)h(algebraic)g(expression)f(\(the)i(function)e(to)i
(b)s(e)f(\014tted\),)i FL(v)s(ar)891 1869 y FQ(is)e(the)h(v)-5
b(ariable)35 b(of)h FL(f)10 b(cn)p FQ(,)37 b FL(l)r(o)f
FQ(and)f FL(hi)i FQ(are)f(n)m(umerical)e(real)i(v)-5
b(alues)35 b(whic)m(h)g(de-)891 1982 y(scrib)s(e)42 b(an)i(in)m(terv)-5
b(al)42 b(\()p FL(l)r(o)48 b(<)e(hi)p FQ(\),)i FL(n)43
b FQ(is)g(the)g(appro)m(ximation)g(order,an)g(in)m(te-)891
2095 y(ger)38 b FL(>)f FQ(0,)k(set)d(to)g(20)h(if)d(missing,)i
FL(pt)f FQ(is)f(a)i(n)m(umerical)f(v)-5 b(alue)37 b(in)f(the)i(in)m
(terv)-5 b(al)891 2208 y(and)33 b FL(coef)10 b(f)g(s)33
b FQ(is)f(a)i(series)f(of)g(Cheb)m(yshev)g(co)s(e\016cien)m(ts,)i
(computed)f(b)m(y)f(one)h(of)891 2321 y FL(C)7 b(H)g(E)e(B)g(Y)20
b(S)5 b(H)i(E)e(V)p 1560 2321 28 4 v 53 w(C)i(O)s(E)e(F)13
b(F)g FQ(,)p 2006 2321 V 63 w FL(D)s(F)43 b FQ(or)p 2329
2321 V 63 w FL(I)7 b(N)j(T)j FQ(.)664 2583 y(Example:)664
2914 y FH(on)43 b(rounded;)664 3113 y(w:=chebyshev_fit\()o(si)o(n)37
b(x/x,x=\(1)k(..)i(3\),5\);)1318 3312 y(3)479 b(2)664
3412 y(w)43 b(:=)g({0.03824*x)83 b(-)43 b(0.2398*x)84
b(+)43 b(0.06514*x)d(+)j(0.9778,)926 3611 y({0.8991,-0.4066)o(,-0)o(.0)
o(051)o(98)o(,0.)o(00)o(94)o(64,)o(-0)o(.00)o(00)o(95)o(11})o(})664
3810 y(chebyshev_eval\(se)o(co)o(nd)37 b(w,)43 b(x=\(1)f(..)h(3\),)f
(x=2.1\);)664 4010 y(0.4111)664 4246 y @beginspecial
@setspecial @endspecial 200 x FE(58.8)136 b(General)45
b(Curv)l(e)h(Fitting)664 4698 y FQ(The)34 b(op)s(erator)h
FJ(NUM)p 1376 4698 29 4 v 34 w(FIT)f FQ(\014nds)f(for)h(a)i(set)f(of)g
(p)s(oin)m(ts)e(the)i(linear)f(com)m(bination)g(of)h(a)664
4811 y(giv)m(en)g(set)h(of)f(functions)f(\(function)g(basis\))h(whic)m
(h)f(appro)m(ximates)h(the)g(p)s(oin)m(ts)f(b)s(est)664
4924 y(under)g(the)i(ob)5 b(jectiv)m(e)36 b(of)g(the)g(least)f(squares)
h(criterion)e(\(minim)m(um)f(of)i(the)h(sum)f(of)p eop
%%Page: 445 445
445 444 bop 241 299 a @beginspecial @setspecial @endspecial
FM(58.8.)72 b(GENERAL)31 b(CUR)-10 b(VE)30 b(FITTING)1362
b FQ(445)241 555 y(the)31 b(squares)g(of)h(the)g(deviation\).)43
b(The)31 b(solution)f(is)g(found)g(as)i(zero)g(of)g(the)g(gradien)m(t)
241 668 y(v)m(ector)g(of)e(the)h(sum)e(of)i(squared)e(errors.)241
831 y(Syn)m(tax:)241 1086 y FN(NUM)p 508 1086 32 4 v
38 w(FIT)44 b FQ(\()p FL(v)s(al)r(s;)15 b(basis;)g(v)s(ar)29
b FQ(=)c FL(pts)p FQ(\))468 1235 y(where)30 b FL(v)s(al)r(s)g
FQ(is)g(a)g(list)f(of)i(n)m(umeric)e(v)-5 b(alues,)468
1384 y FL(v)s(ar)33 b FQ(is)d(a)g(v)-5 b(ariable)30 b(used)f(for)h(the)
h(appro)m(ximation,)468 1533 y FL(pts)f FQ(is)f(a)i(list)e(of)h(co)s
(ordinate)g(v)-5 b(alues)30 b(whic)m(h)f(corresp)s(ond)g(to)j
FL(v)s(ar)s FQ(,)468 1682 y FL(basis)c FQ(is)f(a)h(set)g(of)h
(functions)d(v)-5 b(arying)27 b(in)g FL(v)s(ar)k FQ(whic)m(h)26
b(is)h(used)g(for)h(the)g(appro)m(x-)468 1794 y(imation.)241
2049 y(The)36 b(result)g(is)f(a)j(list)d(con)m(taining)h(as)h(\014rst)f
(elemen)m(t)h(the)g(function)f(whic)m(h)f(appro)m(x-)241
2162 y(imates)h(the)g(giv)m(en)h(v)-5 b(alues,)37 b(and)f(as)g(second)g
(elemen)m(t)h(a)g(list)d(of)j(co)s(e\016cien)m(ts)g(whic)m(h)241
2275 y(w)m(ere)31 b(used)e(to)i(build)d(this)h(function)g(from)h(the)g
(basis.)241 2438 y(Example:)459 2767 y FH(\045)43 b(approximate)c(a)k
(set)f(of)h(factorials)d(by)i(a)i(polynomial)415 2867
y(pts:=for)c(i:=1)i(step)g(1)h(until)f(5)h(collect)e(i$)415
2966 y(vals:=for)f(i:=1)i(step)g(1)h(until)f(5)h(collect)764
3066 y(for)f(j:=1:i)f(product)g(j$)415 3265 y(num_fit\(vals,{1,)o(x,x)o
(**)o(2},)o(x=)o(pts)o(\);)1069 3464 y(2)415 3564 y({14.571428571*X)81
b(-)43 b(61.428571429*X)38 b(+)43 b(54.6,{54.6,)633 3763
y(-)g(61.428571429,14.5)o(71)o(428)o(57)o(1})o(})415
3962 y(num_fit\(vals,{1,)o(x,x)o(**)o(2,x)o(**)o(3,x)o(**)o(4})o(,x=)o
(pt)o(s\);)1069 4162 y(4)740 b(3)415 4261 y({2.2083333234*X)81
b(-)43 b(20.249999879*X)1200 4461 y(2)502 4560 y(+)g(67.791666154*X)82
b(-)43 b(93.749999133*X)502 4759 y(+)g(44.999999525,)459
4959 y({44.999999525,)37 b(-)44 b(93.749999133,67)o(.79)o(16)o(661)o
(54)o(,)p eop
%%Page: 446 446
446 445 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(446)121 b FM(CHAPTER)30 b(58.)72 b(NUMERIC:)30 b(SOL)-10
b(VING)30 b(NUMERICAL)g(PR)m(OBLEMS)969 655 y FH(-)43
b(20.249999879,2.20)o(833)o(33)o(234)o(}})664 991 y @beginspecial
@setspecial @endspecial 199 x FE(58.9)136 b(F)-11 b(unction)44
b(Bases)664 1443 y FQ(The)31 b(follo)m(wing)f(pro)s(cedures)g(compute)i
(sets)f(of)h(functions)e(for)h(example)g(to)h(b)s(e)f(used)664
1556 y(for)k(appro)m(ximation.)52 b(All)33 b(pro)s(cedures)h(ha)m(v)m
(e)i(t)m(w)m(o)g(parameters,)g(the)f(expression)e(to)664
1669 y(b)s(e)26 b(used)f(as)i FL(v)s(ar)s(iabl)r(e)f
FQ(\(an)h(iden)m(ti\014er)d(in)h(most)i(cases\))g(and)f(the)g(order)g
(of)g(the)g(desired)664 1782 y(system.)41 b(The)28 b(functions)f(are)j
(not)f(scaled)f(to)i(a)f(sp)s(eci\014c)f(in)m(terv)-5
b(al,)28 b(but)g(the)h FL(v)s(ar)s(iabl)r(e)664 1895
y FQ(can)j(b)s(e)e(accompanied)i(b)m(y)f(a)h(scale)f(factor)h(and/or)g
(a)f(translation)f(in)g(order)h(to)h(map)664 2008 y(the)i(generic)f(in)
m(terv)-5 b(al)33 b(of)h(orthogonalit)m(y)g(to)g(another)g(\()p
FD(e.g.)h FQ(\()p FL(x)23 b FP(\000)f FQ(1)p FL(=)p FQ(2\))i
FP(\003)e FQ(2)p FL(pi)p FQ(\).)51 b(The)664 2121 y(result)32
b(is)g(a)h(function)e(list)h(with)f(ascending)h(order,)i(suc)m(h)e
(that)i(the)f(\014rst)f(elemen)m(t)h(is)664 2233 y(the)e(function)f(of)
h(order)f(zero)i(and)e(\(for)h(the)h(p)s(olynomial)c(systems\))j(the)g
(function)f(of)664 2346 y(order)g FL(n)g FQ(is)f(the)i
FL(n)20 b FQ(+)g(1-th)31 b(elemen)m(t.)882 2677 y FH(monomial_base\(x,)
o(n\))299 b({1,x,...,x**n})882 2776 y(trigonometric_ba)o(se\()o(x,)o
(n\))81 b({1,sin)41 b(x,cos)g(x,sin\(2x\),cos\(2x\))o(...)o(})882
2876 y(Bernstein_base\(x)o(,n\))255 b(Bernstein)40 b(polynomials)882
2976 y(Legendre_base\(x,)o(n\))299 b(Legendre)40 b(polynomials)882
3075 y(Laguerre_base\(x,)o(n\))299 b(Laguerre)40 b(polynomials)882
3175 y(Hermite_base\(x,n)o(\))343 b(Hermite)40 b(polynomials)882
3275 y(Chebyshev_base_T)o(\(x,)o(n\))168 b(Chebyshev)40
b(polynomials)f(first)i(kind)882 3374 y(Chebyshev_base_U)o(\(x,)o(n\))
168 b(Chebyshev)40 b(polynomials)f(second)i(kind)664
3718 y FQ(Example:)708 3949 y FH(Bernstein_base\(x)o(,5)o(\);)1056
4148 y(5)262 b(4)304 b(3)h(2)839 4248 y({)43 b(-)g(X)87
b(+)43 b(5*X)86 b(-)43 b(10*X)85 b(+)44 b(10*X)85 b(-)43
b(5*X)g(+)g(1,)1144 4447 y(4)261 b(3)g(2)882 4546 y(5*X*\(X)85
b(-)43 b(4*X)86 b(+)43 b(6*X)86 b(-)43 b(4*X)g(+)g(1\),)1056
4746 y(2)262 b(3)f(2)882 4845 y(10*X)42 b(*\()h(-)g(X)87
b(+)43 b(3*X)86 b(-)43 b(3*X)f(+)i(1\),)p eop
%%Page: 447 447
447 446 bop 241 299 a @beginspecial @setspecial @endspecial
FM(58.9.)72 b(FUNCTION)30 b(BASES)1770 b FQ(447)633 555
y FH(3)130 b(2)459 655 y(10*X)42 b(*\(X)86 b(-)43 b(2*X)f(+)h(1\),)589
854 y(4)459 954 y(5*X)f(*\()h(-)g(X)g(+)g(1\),)502 1153
y(5)459 1253 y(X)g(})p eop
%%Page: 448 448
448 447 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(448)121 b FM(CHAPTER)30 b(58.)72 b(NUMERIC:)30 b(SOL)-10
b(VING)30 b(NUMERICAL)g(PR)m(OBLEMS)p eop
%%Page: 449 449
449 448 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(59)241 1693 y FT(ODESOL)-26 b(VE:)241 1942 y(Ordinary)76
b(di\013eren)-6 b(tial)241 2191 y(equations)77 b(solv)-6
b(er)1294 2673 y Fx(Malcolm)26 b(A.H.)g(MacCallum)580
2764 y(Sc)n(ho)r(ol)h(of)f(Mathematical)h(Sciences,)f(Queen)f(Mary)h
(and)f(W)-6 b(est\014eld)26 b(College)1380 2856 y(Univ)n(ersit)n(y)f
(of)h(London)1479 2947 y(Mile)h(End)e(Road)1306 3038
y(London)g(E1)h(4NS,)g(England)1213 3160 y(e{mail:)35
b(mm@maths.qm)n(w.ac.uk)241 3404 y FQ(The)30 b(ODESOL)-10
b(VE)30 b(pac)m(k)-5 b(age)32 b(is)e(a)h(solv)m(er)g(for)f(ordinary)f
(di\013eren)m(tial)g(equations.)42 b(A)m(t)241 3517 y(the)30
b(presen)m(t)h(time)f(it)g(has)g(v)m(ery)h(limited)d(capabilities,)241
3646 y @beginspecial @setspecial @endspecial 352 3779
a(1.)46 b(it)35 b(can)g(handle)f(only)h(a)g(single)f(scalar)i(equation)
f(presen)m(ted)g(as)h(an)f(algebraic)468 3892 y(expression)29
b(or)i(equation,)f(and)241 3947 y @beginspecial @setspecial
@endspecial 352 4079 a(2.)46 b(it)27 b(can)g(solv)m(e)g(only)f
(\014rst-order)h(equations)f(of)h(simple)e(t)m(yp)s(es,)j(linear)e
(equations)468 4192 y(with)j(constan)m(t)j(co)s(e\016cien)m(ts)f(and)f
(Euler)f(equations.)241 4455 y(These)35 b(solv)-5 b(able)34
b(t)m(yp)s(es)i(are)f(exactly)h(those)g(for)f(whic)m(h)f(Lie)h
(symmetry)g(tec)m(hniques)241 4568 y(giv)m(e)c(no)f(useful)f
(information.)241 4722 y @beginspecial @setspecial @endspecial
1667 5187 a(449)p eop
%%Page: 450 450
450 449 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(450)104 b FM(CHAPTER)30 b(59.)71 b(ODESOL)-10 b(VE:)30
b(ORDINAR)-8 b(Y)31 b(DIFFERENTIAL)g(EQNS)664 555 y FE(59.1)136
b(Use)664 808 y FQ(The)30 b(only)g(top-lev)m(el)g(function)f(the)i
(user)f(should)e(normally)g(in)m(v)m(ok)m(e)k(is:)664
1112 y FJ(ODESOLVE)p FQ(\(EXPRN:)p FD(expr)-5 b(ession,)33
b(e)-5 b(quation)p FQ(,)1081 1225 y(V)-10 b(AR1:)p FD(variable)p
FQ(,)1081 1338 y(V)g(AR2:)p FD(variable)p FQ(\):)p FD(list-algebr)-5
b(aic)664 1642 y FJ(ODESOLVE)28 b FQ(returns)h(a)i(list)e(con)m
(taining)h(an)g(equation)h(\(lik)m(e)f(solv)m(e\):)664
1904 y FN(EXPRN)46 b FQ(is)23 b(a)i(single)e(scalar)h(expression)f(suc)
m(h)h(that)h(EXPRN)f(=)g(0)h(is)e(the)i(ordinary)891
2017 y(di\013eren)m(tial)k(equation)h(\(ODE)g(for)g(short\))g(to)h(b)s
(e)e(solv)m(ed,)h(or)g(is)g(an)f(equiv)-5 b(alen)m(t)891
2130 y(equation.)664 2318 y FN(V)-12 b(AR1)47 b FQ(is)29
b(the)i(name)f(of)h(the)f(dep)s(enden)m(t)g(v)-5 b(ariable.)664
2505 y FN(V)-12 b(AR2)47 b FQ(is)29 b(the)i(name)f(of)h(the)f(indep)s
(enden)m(t)e(v)-5 b(ariable)664 2768 y(\(F)d(or)26 b(simplicit)m(y)d
(these)j(will)c(b)s(e)j(called)f(y)h(and)g(x)g(in)f(the)h(sequel\))g
(The)f(returned)g(v)-5 b(alue)664 2881 y(is)28 b(a)h(list)f(con)m
(taining)g(the)h(equation)f(giving)g(the)h(general)g(solution)e(of)i
(the)g(ODE)g(\(for)664 2994 y(sim)m(ultaneous)35 b(equations)i(this)e
(will)f(b)s(e)i(a)h(list)f(of)h(equations)f(ev)m(en)m(tually\).)60
b(It)37 b(will)664 3106 y(con)m(tain)j(o)s(ccurrences)g(of)g(the)g(op)s
(erator)h FJ(ARBCONST)c FQ(for)j(the)g(arbitrary)f(constan)m(ts)664
3219 y(in)k(the)h(general)h(solution.)80 b(The)44 b(argumen)m(ts)g(of)h
FJ(ARBCONST)d FQ(should)g(b)s(e)h(new,)48 b(as)664 3332
y(with)30 b FJ(ARBINT)f FQ(etc.)43 b(in)29 b(SOL)-10
b(VE.)30 b(A)h(coun)m(ter)g FJ(!!ARBCONST)d FQ(is)i(used)g(to)i
(arrange)f(this)664 3445 y(\(similar)d(to)j(the)g(w)m(a)m(y)g
FJ(ARBINT)e FQ(is)g(implemen)m(ted\).)664 3608 y(Some)i(other)f
(top-lev)m(el)h(functions)e(ma)m(y)i(b)s(e)f(of)g(use)g(elsewhere,)g
(esp)s(ecially:)664 3831 y FJ(SORTOUTODE)p FQ(\(EXPRN:)p
FD(algebr)-5 b(aic)p FQ(,)30 b(Y:)p FD(var)p FQ(,)h(X:)p
FD(var)p FQ(\):)42 b FD(expr)-5 b(ession)664 4053 y FQ(whic)m(h)23
b(\014nds)f(the)i(order)g(and)f(degree)i(of)f(the)g(EXPRN)g(as)g(a)h
(di\013eren)m(tial)d(equation)i(for)664 4166 y(Y)32 b(with)e(resp)s
(ect)h(to)i(Y)e(and)g(sets)h(the)g(linearit)m(y)e(and)g(highest)h
(deriv)-5 b(ativ)m(e)31 b(o)s(ccurring)664 4279 y(in)37
b(reserv)m(ed)h(v)-5 b(ariables)36 b(ODEORDER,)i
(ODEDEGREE,ODELINEARITY)g(and)664 4392 y(HIGHESTDERIV.)24
b(An)g(expression)e(equiv)-5 b(alen)m(t)24 b(to)h(the)f(ODE)g(is)f
(returned,)h(or)g(zero)664 4505 y(if)30 b(EXPRN)g(\(equated)h(to)g(0\))
g(is)f(not)g(an)h(ODE)f(in)f(the)i(giv)m(en)f(v)-5 b(ariables.)664
4665 y @beginspecial @setspecial @endspecial eop
%%Page: 451 451
451 450 bop 241 299 a @beginspecial @setspecial @endspecial
FM(59.2.)72 b(COMMENT)-8 b(AR)g(Y)1909 b FQ(451)241 555
y FE(59.2)135 b(Commen)l(tary)241 808 y FQ(The)32 b(metho)s(ds)g(used)g
(b)m(y)h(this)f(pac)m(k)-5 b(age)34 b(are)g(describ)s(ed)c(in)i(detail)
g(in)f(the)i(full)e(do)s(cu-)241 921 y(men)m(tation,)g(whic)m(h)e
(should)f(b)s(e)i(insp)s(ected)f(together)j(with)d(the)i(examples)e
(\014le.)p eop
%%Page: 452 452
452 451 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(452)104 b FM(CHAPTER)30 b(59.)71 b(ODESOL)-10 b(VE:)30
b(ORDINAR)-8 b(Y)31 b(DIFFERENTIAL)g(EQNS)p eop
%%Page: 453 453
453 452 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(60)241 1693 y FT(OR)-19 b(THO)-6 b(VEC:)241 1942 y(Three-dimensional)
76 b(v)-6 b(ector)241 2191 y(analysis)1393 2673 y Fx(James)26
b(W.)g(East)n(w)n(o)r(o)r(d)1096 2764 y(AEA)f(T)-6 b(ec)n(hnology)g(,)
26 b(Culham)f(Lab)r(oratory)1572 2856 y(Abingdon)1285
2947 y(Oxon)f(O)n(X14)i(3DB,)g(England)1177 3068 y(e{mail:)35
b(jim)p 1564 3068 24 4 v 28 w(east)n(w)n(o)r(o)r(d@aeat.co.uk)241
3312 y FQ(The)f(OR)-8 b(THO)m(VEC)35 b(pac)m(k)-5 b(age)37
b(is)d(a)h(collection)g(of)g(REDUCE)f(pro)s(cedures)g(and)g(op-)241
3425 y(erations)39 b(whic)m(h)f(pro)m(vide)g(a)i(simple)e(to)i(use)f
(en)m(vironmen)m(t)g(for)g(the)g(manipulation)241 3538
y(of)f(scalars)g(and)g(v)m(ectors.)66 b(Op)s(erations)37
b(include)f(addition,)j(subtraction,)h(dot)e(and)241
3651 y(cross)30 b(pro)s(ducts,)g(division,)d(mo)s(dulus,)h(div,)h
(grad,)i(curl,)e(laplacian,)g(di\013eren)m(tiation,)241
3764 y(in)m(tegration,)h FN(a)20 b FP(\001)h(r)30 b FQ(and)g(T)-8
b(a)m(ylor)30 b(expansion.)241 3919 y @beginspecial @setspecial
@endspecial 181 x FE(60.1)135 b(Initialisation)241 4353
y FQ(The)27 b(pro)s(cedure)f FJ(START)g FQ(initialises)e(OR)-8
b(THO)m(VEC.)28 b(VST)-8 b(AR)g(T)27 b(pro)m(vides)f(a)i(men)m(u)f(of)
241 4466 y(standard)i(co)s(ordinate)i(systems:-)241 4596
y @beginspecial @setspecial @endspecial 352 4728 a(1.)46
b(cartesian)31 b(\()p FL(x;)15 b(y)s(;)g(z)t FQ(\))26
b(=)k FJ(\(x,)47 b(y,)h(z\))241 4788 y @beginspecial
@setspecial @endspecial 352 4916 a FQ(2.)e(cylindrical)27
b(\()p FL(r)m(;)15 b(\022)s(;)g(z)t FQ(\))27 b(=)j FJ(\(r,)47
b(th,)g(z\))1667 5187 y FQ(453)p eop
%%Page: 454 454
454 453 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(454)452 b FM(CHAPTER)30 b(60.)72 b(OR)-8 b(THO)m(VEC:)30
b(SCALARS)f(AND)i(VECTORS)664 464 y @beginspecial @setspecial
@endspecial 775 555 a FQ(3.)46 b(spherical)29 b(\()p
FL(r)m(;)15 b(\022)s(;)g(\036)p FQ(\))27 b(=)j FJ(\(r,)47
b(th,)f(ph\))664 609 y @beginspecial @setspecial @endspecial
775 731 a FQ(4.)g(general)31 b(\()p FL(u)1292 745 y FO(1)1332
731 y FL(;)15 b(u)1424 745 y FO(2)1464 731 y FL(;)g(u)1556
745 y FO(3)1595 731 y FQ(\))26 b(=)k FJ(\(u1,)47 b(u2,)g(u3\))664
786 y @beginspecial @setspecial @endspecial 775 907 a
FQ(5.)f(others)664 1122 y(whic)m(h)35 b(the)i(user)e(selects)i(b)m(y)f
(n)m(um)m(b)s(er.)57 b(Selecting)36 b(options)f(\(1\)-\(4\))k
(automatically)664 1221 y(sets)24 b(up)e(the)i(co)s(ordinates)f(and)g
(scale)g(factors.)40 b(Selection)23 b(option)f(\(5\))j(sho)m(ws)e(the)h
(user)664 1321 y(ho)m(w)j(to)h(select)f(another)h(co)s(ordinate)f
(system.)39 b(If)27 b(VST)-8 b(AR)g(T)27 b(is)f(not)h(called,)g(then)g
(the)664 1421 y(default)35 b(cartesian)h(co)s(ordinates)f(are)h(used.)
55 b(OR)-8 b(THO)m(VEC)35 b(ma)m(y)h(b)s(e)f(re-initialised)664
1520 y(to)28 b(a)f(new)g(co)s(ordinate)f(system)i(at)f(an)m(y)g(time)g
(during)e(a)i(giv)m(en)g(REDUCE)g(session)f(b)m(y)664
1620 y(t)m(yping)664 1826 y FH(VSTART)41 b($.)664 1964
y @beginspecial @setspecial @endspecial 192 x FE(60.2)136
b(Input-Output)664 2396 y FQ(OR)-8 b(THO)m(VEC)33 b(assumes)f(all)f
(quan)m(tities)h(are)h(either)f(scalars)h(or)f(3)h(comp)s(onen)m(t)g(v)
m(ec-)664 2496 y(tors.)68 b(T)-8 b(o)40 b(de\014ne)e(a)i(v)m(ector)h
FL(a)e FQ(with)f(comp)s(onen)m(ts)h(\()p FL(c)2576 2510
y FO(1)2617 2496 y FL(;)15 b(c)2696 2510 y FO(2)2736
2496 y FL(;)g(c)2815 2510 y FO(3)2855 2496 y FQ(\))40
b(use)f(the)g(pro)s(cedure)664 2595 y(SVEC:)664 2801
y FH(a)k(:=)g(svec\(c1,)d(c2,)j(c3\);)664 3007 y FQ(The)31
b(pro)s(cedure)g FJ(VOUT)g FQ(\(whic)m(h)g(returns)f(the)i(v)-5
b(alue)32 b(of)g(its)f(argumen)m(t\))h(can)h(b)s(e)e(used)664
3107 y(to)g(giv)m(e)g(lab)s(elled)d(output)i(of)h(comp)s(onen)m(ts)f
(in)f(algebraic)h(form:)664 3312 y FH(b)43 b(:=)g(svec)f
(\(sin\(x\)**2,)d(y**2,)j(z\)$)664 3412 y(vout\(b\)$)664
3618 y FQ(The)31 b(op)s(erator)p 1225 3618 29 4 v 96
w(can)h(b)s(e)e(used)g(to)i(select)g(a)f(particular)e(comp)s(onen)m(t)j
(\(1,)g(2)f(or)g(3\))h(for)664 3718 y(output)e FD(e.g.)664
3924 y FH(b_1)43 b(;)664 4067 y @beginspecial @setspecial
@endspecial 187 x FE(60.3)136 b(Algebraic)45 b(Op)t(erations)664
4507 y FQ(Six)f(in\014x)f(op)s(erators,)49 b(sum,)f(di\013erence,)h
(quotien)m(t,)g(times,)f(exp)s(onen)m(tiation)d(and)664
4620 y(cross)21 b(pro)s(duct,)h(and)e(four)g(pre\014x)f(op)s(erators,)k
(plus,)e(min)m(us,)g(recipro)s(cal)f(and)g(mo)s(dulus)664
4733 y(are)25 b(de\014ned)d(in)h(OR)-8 b(THO)m(VEC.)24
b(These)g(op)s(erators)g(can)h(tak)m(e)g(suitable)e(com)m(binations)664
4846 y(of)32 b(scalar)g(and)e(v)m(ector)k(argumen)m(ts,)e(and)f(in)f
(the)i(case)h(of)f(scalar)f(argumen)m(ts)h(reduce)664
4959 y(to)f(the)g(usual)e(de\014nitions)f(of)i(+)p FL(;)15
b FP(\000)p FL(;)g FP(\003)p FL(;)g(=;)32 b FQ(etc.)p
eop
%%Page: 455 455
455 454 bop 241 299 a @beginspecial @setspecial @endspecial
FM(60.3.)72 b(ALGEBRAIC)31 b(OPERA)-8 b(TIONS)1397 b
FQ(455)241 555 y(The)30 b(op)s(erators)g(are)h(represen)m(ted)f(b)m(y)h
(sym)m(b)s(ols)241 761 y FH(+,)43 b(-,)f(/,)h(*,)g(^,)g(><)241
980 y FQ(The)36 b(comp)s(osite)h FJ(><)f FQ(is)f(an)i(attempt)h(to)f
(represen)m(t)g(the)g(cross)g(pro)s(duct)e(sym)m(b)s(ol)h
FP(\002)241 1093 y FQ(in)e(ASCI)s(I)f(c)m(haracters.)57
b(If)34 b(w)m(e)i(let)f FN(v)i FQ(b)s(e)d(a)i(v)m(ector)h(and)d
FL(s)h FQ(b)s(e)f(a)i(scalar,)g(then)f(v)-5 b(alid)241
1206 y(com)m(binations)28 b(of)g(argumen)m(ts)h(of)g(the)g(pro)s
(cedures)e(and)h(op)s(erators)h(and)f(the)h(t)m(yp)s(e)f(of)241
1319 y(the)i(result)g(are)g(as)h(summarised)d(b)s(elo)m(w.)40
b(The)30 b(notation)h(used)e(is)241 1432 y FD(r)-5 b(esult)33
b(:=pr)-5 b(o)g(c)g(e)g(dur)g(e\(left)36 b(ar)-5 b(gument,)33
b(right)h(ar)-5 b(gument\))64 b FQ(or)241 1545 y FD(r)-5
b(esult)33 b(:=\(left)g(op)-5 b(er)g(and\))35 b(op)-5
b(er)g(ator)36 b(\(right)d(op)-5 b(er)g(and\))66 b FQ(.)241
1820 y(V)-8 b(ector)32 b(Addition)p 241 1833 640 4 v
321 1924 a FN(v)100 b FQ(:=)f(VECTORPLUS\()p FN(v)p FQ(\))149
b(or)100 b FN(v)g FQ(:=)f(+)30 b FN(v)340 2037 y FQ(s)100
b(:=)f(VECTORPLUS\(s\))168 b(or)119 b(s)100 b(:=)f(+)30
b(s)321 2150 y FN(v)100 b FQ(:=)f(VECTORADD\()p FN(v)p
FQ(,)p FN(v)p FQ(\))i(or)f FN(v)g FQ(:=)f FN(v)31 b FQ(+)f
FN(v)340 2263 y FQ(s)100 b(:=)f(VECTORADD\(s,s\))139
b(or)119 b(s)100 b(:=)f(s)31 b(+)f(s)241 2468 y(V)-8
b(ector)32 b(Subtraction)p 241 2481 754 4 v 321 2572
a FN(v)100 b FQ(:=)f(VECTORMINUS\()p FN(v)p FQ(\))485
b(or)99 b FN(v)h FQ(:=)g(-)30 b FN(v)340 2685 y FQ(s)100
b(:=)f(VECTORMINUS\(s\))504 b(or)119 b(s)99 b(:=)h(-)30
b(s)321 2798 y FN(v)100 b FQ(:=)f(VECTORDIFFERENCE\()p
FN(v)p FQ(,)p FN(v)p FQ(\))i(or)e FN(v)h FQ(:=)g FN(v)30
b FQ(-)h FN(v)340 2911 y FQ(s)100 b(:=)f(VECTORDIFFERENCE\(s,s\))139
b(or)119 b(s)99 b(:=)h(s)30 b(-)g(s)241 3116 y(V)-8 b(ector)32
b(Division)p 241 3129 614 4 v 321 3220 a FN(v)100 b FQ(:=)f
(VECTORRECIP\()p FN(v)p FQ(\))433 b(or)99 b FN(v)h FQ(:=)g(/)31
b FN(v)340 3332 y FQ(s)100 b(:=)f(VECTORRECIP\(s\))452
b(or)119 b(s)99 b(:=)h(/)31 b(s)321 3445 y FN(v)100 b
FQ(:=)f(VECTOR)m(QUOTIENT\()p FN(v)p FQ(,)p FN(v)p FQ(\))141
b(or)99 b FN(v)h FQ(:=)g FN(v)30 b FQ(/)h FN(v)321 3558
y(v)100 b FQ(:=)f(VECTOR)m(QUOTIENT\()p FN(v)p FQ(,)30
b(s)g(\))100 b(or)f FN(v)h FQ(:=)g FN(v)30 b FQ(/)h(s)321
3671 y FN(v)100 b FQ(:=)f(VECTOR)m(QUOTIENT\()29 b(s)h(,)p
FN(v)p FQ(\))101 b(or)e FN(v)h FQ(:=)g(s)30 b(/)h FN(v)340
3784 y FQ(s)100 b(:=)f(VECTOR)m(QUOTIENT\(s,s\))179 b(or)119
b(s)99 b(:=)h(s)30 b(/)h(s)241 3989 y(V)-8 b(ector)32
b(Multiplication)p 241 4020 852 4 v 321 4111 a FN(v)100
b FQ(:=)f(VECTOR)-8 b(TIMES\()30 b(s)g(,)p FN(v)p FQ(\))141
b(or)100 b FN(v)g FQ(:=)f(s)31 b(*)f FN(v)321 4224 y(v)100
b FQ(:=)f(VECTOR)-8 b(TIMES\()p FN(v)p FQ(,)30 b(s)g(\))141
b(or)100 b FN(v)g FQ(:=)f FN(v)31 b FQ(*)g(s)340 4336
y(s)100 b(:=)f(VECTOR)-8 b(TIMES\()p FN(v)p FQ(,)p FN(v)p
FQ(\))182 b(or)119 b(s)100 b(:=)f FN(v)31 b FQ(*)g FN(v)340
4449 y FQ(s)100 b(:=)f(VECTOR)-8 b(TIMES\()30 b(s)g(,)g(s)g(\))100
b(or)119 b(s)100 b(:=)f(s)31 b(*)f(s)241 4654 y(V)-8
b(ector)32 b(Cross)e(Pro)s(duct)p 241 4667 860 4 v 321
4767 a FN(v)100 b FQ(:=)f(VECTOR)m(CR)m(OSS\()p FN(v)p
FQ(,)p FN(v)p FQ(\))g(or)h FN(v)g FQ(:=)g FN(v)30 b FP(\002)g
FN(v)p eop
%%Page: 456 456
456 455 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(456)452 b FM(CHAPTER)30 b(60.)72 b(OR)-8 b(THO)m(VEC:)30
b(SCALARS)f(AND)i(VECTORS)664 555 y FQ(V)-8 b(ector)32
b(Exp)s(onen)m(tiation)p 664 586 898 4 v 744 677 a(s)100
b(:=)f(VECTOREXPT)29 b(\()p FN(v)p FQ(,)i(s)f(\))142
b(or)99 b(s)h(:=)g FN(v)30 b FQ(^)h(s)744 790 y(s)100
b(:=)f(VECTOREXPT)29 b(\()i(s)f(,)h(s)f(\))100 b(or)f(s)h(:=)g(s)30
b(^)g(s)664 1009 y(V)-8 b(ector)32 b(Mo)s(dulus)p 664
1022 633 4 v 744 1113 a(s)100 b(:=)f(VMOD)31 b(\(s\))744
1226 y(s)100 b(:=)f(VMOD)31 b(\()p FN(v)p FQ(\))664 1445
y(All)20 b(other)i(com)m(binations)f(of)g(op)s(erands)g(for)g(these)h
(op)s(erators)g(lead)f(to)h(error)f(messages)664 1558
y(b)s(eing)43 b(issued.)80 b(The)43 b(\014rst)h(t)m(w)m(o)h(instances)f
(of)g(v)m(ector)h(m)m(ultiplication)c(are)k(scalar)664
1671 y(m)m(ultiplication)32 b(of)j(v)m(ectors,)i(the)e(third)e(is)h
(the)104 b(pro)s(duct)33 b(of)i(t)m(w)m(o)h(scalars)f(and)f(the)664
1784 y(last)45 b(is)e(the)i(inner)e(\(dot\))i(pro)s(duct.)82
b(The)45 b(pre\014x)e(op)s(erators)i FJ(+,)i(-,)g(/)d
FQ(can)h(tak)m(e)664 1897 y(either)c(scalar)g(or)g(v)m(ector)h(argumen)
m(ts)g(and)e(return)g(results)g(of)h(the)g(same)g(t)m(yp)s(e)h(as)664
2010 y(their)30 b(argumen)m(ts.)41 b(VMOD)31 b(returns)e(a)i(scalar.)
664 2159 y(In)i(comp)s(ound)f(expressions,)i(paren)m(theses)g(ma)m(y)g
(b)s(e)f(used)g(to)h(sp)s(ecify)f(the)h(order)f(of)664
2259 y(com)m(bination.)61 b(If)37 b(paren)m(theses)h(are)g(omitted)f
(the)h(ordering)e(of)i(the)g(op)s(erators,)h(in)664 2358
y(increasing)29 b(order)h(of)h(precedence)f(is)664 2564
y FH(+)43 b(|)h(-)f(|)g(dotgrad)e(|)i(*)g(|)g(><)g(|)g(^)g(|)g(_)664
2784 y FQ(and)30 b(these)h(are)g(placed)e(in)g(the)i(precedence)g(list)
e(de\014ned)g(in)g(REDUCE)h(after)h FL(<)p FQ(.)664 2946
y(V)-8 b(ector)41 b(divisions)36 b(are)j(de\014ned)f(as)h(follo)m(ws:)
57 b(If)38 b FN(a)h FQ(and)f FN(b)h FQ(are)h(v)m(ectors)g(and)e
FL(c)i FQ(is)e(a)664 3059 y(scalar,)31 b(then)1854 3272
y FN(a)p FL(=)p FN(b)83 b FQ(=)2267 3210 y FN(a)20 b
FP(\001)g FN(b)p 2255 3251 199 4 v 2255 3334 a FP(j)25
b FN(b)h FP(j)2414 3308 y FO(2)1873 3492 y FL(c=)p FN(a)83
b FQ(=)2305 3430 y FL(c)p FN(a)p 2255 3471 192 4 v 2255
3554 a FP(j)25 b FN(a)g FP(j)2406 3528 y FO(2)664 3760
y FQ(Both)31 b(scalar)g(m)m(ultiplication)c(and)j(dot)g(pro)s(ducts)f
(are)i(giv)m(en)f(b)m(y)h(the)f(same)h(sym)m(b)s(ol,)664
3873 y(braces)36 b(are)h(advisable)d(to)j(ensure)e(the)h(correct)i
(precedences)e(in)f(expressions)f(suc)m(h)664 3986 y(as)d(\()p
FN(a)20 b FP(\001)h FN(b)p FQ(\)\()p FN(c)g FP(\001)g
FN(d)p FQ(\).)664 4149 y(V)-8 b(ector)32 b(exp)s(onen)m(tiation)e(is)f
(de\014ned)h(as)g(the)h(p)s(o)m(w)m(er)f(of)h(the)f(mo)s(dulus:)664
4261 y FN(a)715 4228 y FF(n)787 4261 y FP(\021)25 b FQ(VMOD)q(\()p
FL(a)p FQ(\))1293 4228 y FF(n)1366 4261 y FQ(=)p FP(j)g
FN(a)g FP(j)1588 4228 y FF(n)664 4417 y @beginspecial
@setspecial @endspecial 176 x FE(60.4)136 b(Di\013eren)l(tial)48
b(Op)t(erations)664 4846 y FQ(Di\013eren)m(tial)37 b(op)s(erators)i
(pro)m(vided)d(are)i(div,)h(grad,)h(curl,)f(delsq,)g(and)e(dotgrad.)664
4959 y(All)27 b(but)g(the)h(last)f(of)h(these)h(are)f(pre\014x)f(op)s
(erators)h(ha)m(ving)f(a)h(single)f(v)m(ector)i(or)f(scalar)p
eop
%%Page: 457 457
457 456 bop 241 299 a @beginspecial @setspecial @endspecial
FM(60.4.)72 b(DIFFERENTIAL)31 b(OPERA)-8 b(TIONS)1250
b FQ(457)1340 543 y(s)99 b(:=)h(div)29 b(\()p FN(v)p
FQ(\))1320 656 y FN(v)100 b FQ(:=)g(grad\(s\))1320 769
y FN(v)g FQ(:=)g(curl\()p FN(v)p FQ(\))1320 882 y FN(v)g
FQ(:=)g(delsq\()p FN(v)p FQ(\))1340 995 y(s)f(:=)h(delsq\(s\))1320
1107 y FN(v)g FQ(:=)g FN(v)30 b FQ(dotgrad)h FN(v)1340
1220 y FQ(s)99 b(:=)h FN(v)30 b FQ(dotgrad)h(s)319 1490
y(T)-8 b(able)30 b(60.1:)42 b @beginspecial @setspecial
@endspecial(OR)-8 b(THO)m(VEC)30 b(v)-5 b(alid)29 b(com)m(binations)h
(of)g(op)s(erator)h(and)f(argumen)m(t)241 1750 y(argumen)m(t)41
b(as)g(appropriate.)71 b(V)-8 b(alid)40 b(com)m(binations)g(of)h(op)s
(erator)h(and)e(argumen)m(t,)241 1863 y(and)30 b(the)g(t)m(yp)s(e)h(of)
f(the)h(result)e(are)i(sho)m(wn)f(in)f(table)h @beginspecial
@setspecial @endspecial(60.1)r(.)241 2025 y(All)c(other)h(com)m
(binations)g(of)g(op)s(erator)h(and)e(argumen)m(t)i(t)m(yp)s(e)g(cause)
g(error)f(messages)241 2138 y(to)42 b(b)s(e)e(issued.)71
b(The)41 b(di\013eren)m(tial)e(op)s(erators)i(ha)m(v)m(e)h(their)f
(usual)e(meanings.)72 b(The)241 2251 y(co)s(ordinate)32
b(system)g(used)f(b)m(y)h(these)h(op)s(erators)f(is)f(set)i(b)m(y)f(in)
m(v)m(oking)f(VST)-8 b(AR)g(T)32 b(\(cf.)241 2364 y(Sec.)c
@beginspecial @setspecial @endspecial(60.1)q(\).)40 b(The)27
b(names)g FJ(h1)p FQ(,)g FJ(h2)g FQ(and)g FJ(h3)74 b
FQ(are)28 b(reserv)m(ed)f(for)g(the)h(scale)f(factors,)i(and)241
2477 y FJ(u1)p FQ(,)h FJ(u2)g FQ(and)f FJ(u3)h FQ(are)h(used)e(for)i
(the)f(co)s(ordinates.)241 2640 y(A)40 b(v)m(ector)i(extension,)g(VDF,)
g(of)e(the)h(REDUCE)f(pro)s(cedure)f(DF)i(allo)m(ws)e(the)i(dif-)241
2753 y(feren)m(tiation)d(of)g(a)h(v)m(ector)h(\(scalar\))e(with)f(resp)
s(ect)i(to)f(a)h(scalar)f(to)h(b)s(e)f(p)s(erformed.)241
2865 y(Allo)m(w)m(ed)29 b(forms)g(are)h(VDF\()p FN(v)p
FQ(,)i(s\))e FP(!)f FN(v)h FQ(and)f(VDF\(s,)j(s\))d FP(!)h
FQ(s)g(,)g(where,)f(for)h(example)1343 3179 y FJ(vdf)p
FQ(\()p FJ(B)p FL(;)15 b FJ(x)p FQ(\))25 b FP(\021)1824
3118 y FL(@)5 b FN(B)p 1824 3158 128 4 v 1835 3242 a
FL(@)g(x)241 3431 y FQ(The)28 b(standard)f(REDUCE)i(pro)s(cedures)e
(DEPEND)i(and)f(NODEPEND)h(ha)m(v)m(e)g(b)s(een)241 3531
y(rede\014ned)43 b(to)i(allo)m(w)e(dep)s(endences)g(of)h(v)m(ectors)i
(to)f(b)s(e)e(compactly)i(de\014ned.)81 b(F)-8 b(or)241
3630 y(example)241 3836 y FH(a)43 b(:=)g(svec\(a1,a2,a3\)$)o(;)241
3936 y(depend)e(a,x,y;)241 4142 y FQ(causes)30 b(all)f(three)h(comp)s
(onen)m(ts)g FJ(a1)p FQ(,)p FJ(a2)g FQ(and)f FJ(a3)g
FQ(of)i FJ(a)e FQ(to)i(b)s(e)e(treated)i(as)g(functions)d(of)241
4241 y FJ(x)i FQ(and)g FJ(y)p FQ(.)40 b(Individual)26
b(comp)s(onen)m(t)31 b(dep)s(endences)e(can)i(still)d(b)s(e)i
(de\014ned)f(if)g(desired.)241 4447 y FH(depend)41 b(a3,z;)241
4653 y FQ(The)23 b(pro)s(cedure)g(VT)-8 b(A)g(YLOR)25
b(giv)m(es)f(truncated)h(T)-8 b(a)m(ylor)24 b(series)f(expansions)g(of)
i(scalar)241 4753 y(or)30 b(v)m(ector)i(functions:-)241
4959 y FH(vtaylor\(vex,vx,v)o(pt)o(,v)o(ord)o(er)o(\);)p
eop
%%Page: 458 458
458 457 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(458)452 b FM(CHAPTER)30 b(60.)72 b(OR)-8 b(THO)m(VEC:)30
b(SCALARS)f(AND)i(VECTORS)1543 543 y FQ(VEX)100 b(VX)g(VPT)f(V)m(ORDER)
1615 734 y FN(v)212 b(v)e(v)344 b(v)1615 847 y(v)212
b(v)e(v)353 b FQ(s)1615 960 y FN(v)221 b FQ(s)230 b(s)362
b(s)1624 1073 y(s)222 b FN(v)210 b(v)344 b(v)1624 1186
y FQ(s)222 b FN(v)210 b(v)353 b FQ(s)1624 1299 y(s)231
b(s)f(s)362 b(s)899 1568 y(T)-8 b(able)30 b(60.2:)43
b @beginspecial @setspecial @endspecial(OR)-8 b(THO)m(VEC)30
b(v)-5 b(alid)28 b(com)m(bination)i(of)h(argumen)m(t)f(t)m(yp)s(es.)664
1843 y(returns)e(the)h(series)f(expansion)g(of)i(the)f(expression)e
(VEX)j(with)d(resp)s(ect)i(to)h(v)-5 b(ariable)664 1956
y(VX)33 b(ab)s(out)f(p)s(oin)m(t)g(VPT)g(to)h(order)f(V)m(ORDER.)i(V)-8
b(alid)31 b(com)m(binations)h(of)g(argumen)m(t)664 2069
y(t)m(yp)s(es)f(are)f(sho)m(wn)g(in)f(table)h @beginspecial
@setspecial @endspecial(60.2)r(.)664 2345 y(An)m(y)43
b(other)g(com)m(binations)e(cause)j(error)e(messages)h(to)h(b)s(e)e
(issued.)75 b(Elemen)m(ts)43 b(of)664 2458 y(V)m(ORDER)37
b(m)m(ust)f(b)s(e)g(non-negativ)m(e)h(in)m(tegers,)h(otherwise)e(error)
g(messages)h(are)g(is-)664 2571 y(sued.)i(If)26 b(scalar)h(V)m(ORDER)h
(is)e(giv)m(en)h(for)g(a)g(v)m(ector)i(expansion,)d(expansions)g(in)g
(eac)m(h)664 2684 y(comp)s(onen)m(t)31 b(are)g(truncated)f(at)h(the)g
(same)f(order,)h(V)m(ORDER.)664 2846 y(The)36 b(new)g(v)m(ersion)g(of)g
(T)-8 b(a)m(ylor)37 b(expansion)e(applies)f(l'H^)-45
b(opital's)35 b(rule)g(in)g(ev)-5 b(aluating)664 2959
y(co)s(e\016cien)m(ts,)47 b(so)c(handle)f(cases)i(suc)m(h)e(as)h(sin)o
(\()p FL(x)p FQ(\))p FL(=)p FQ(\()p FL(x)p FQ(\))h(,)j(etc.)79
b(whic)m(h)42 b(the)h(original)664 3072 y(v)m(ersion)34
b(of)h(OR)-8 b(THO)m(VEC)35 b(could)f(not.)54 b(The)34
b(pro)s(cedure)g(used)g(for)h(this)e(is)h(LIMIT,)664
3185 y(whic)m(h)23 b(can)g(b)s(e)h(used)e(directly)h(to)h(\014nd)e(the)
i(limit)d(of)j(a)g(scalar)g(function)e FJ(ex)h FQ(of)h(v)-5
b(ariable)664 3298 y FJ(x)30 b FQ(at)h(p)s(oin)m(t)f
FJ(pt)p FQ(:-)664 3529 y FH(ans)43 b(:=)f(limit\(ex,x,pt\);)664
3684 y @beginspecial @setspecial @endspecial 181 x FE(60.5)136
b(In)l(tegral)46 b(Op)t(erations)664 4118 y FQ(De\014nite)26
b(and)g(inde\014nite)d(v)m(ector,)29 b(v)m(olume)d(and)g(scalar)g(line)
e(in)m(tegration)i(pro)s(cedures)664 4231 y(are)31 b(included)d(in)h
(OR)-8 b(THO)m(VEC.)30 b(They)g(are)h(de\014ned)e(as)h(follo)m(ws:)1562
4463 y(VINT\()p FN(v)q FL(;)15 b(x)p FQ(\))84 b(=)2253
4348 y FB(Z)2351 4463 y FN(v)q FQ(\()p FL(x)p FQ(\))p
FL(dx)1327 4700 y FQ(D)m(VINT)q(\()p FN(v)q FL(;)15 b(x;)g(a;)g(b)p
FQ(\))85 b(=)2253 4585 y FB(Z)2336 4612 y FF(b)2299 4774
y(a)2386 4700 y FN(v)q FQ(\()p FL(x)p FQ(\))p FL(dx)1529
4922 y FQ(V)m(OLINT\()p FN(v)q FQ(\))f(=)2253 4807 y
FB(Z)2351 4922 y FN(v)q FL(h)2459 4936 y FO(1)2500 4922
y FL(h)2552 4936 y FO(2)2591 4922 y FL(h)2643 4936 y
FO(3)2683 4922 y FL(du)2782 4936 y FO(1)2822 4922 y FL(du)2921
4936 y FO(2)2961 4922 y FL(du)3060 4936 y FO(3)p eop
%%Page: 459 459
459 458 bop 241 299 a @beginspecial @setspecial @endspecial
FM(60.5.)72 b(INTEGRAL)30 b(OPERA)-8 b(TIONS)1462 b FQ(459)776
582 y(D)m(V)m(OLINT)q(\()p FN(v)q FL(;)15 b FN(l)p FL(;)g
FN(u)p FL(;)g(n)p FQ(\))85 b(=)1830 467 y FB(Z)1913 493
y Fj(u)1876 656 y(l)1977 582 y FN(v)q FL(h)2085 596 y
FO(1)2126 582 y FL(h)2178 596 y FO(2)2217 582 y FL(h)2269
596 y FO(3)2309 582 y FL(du)2408 596 y FO(1)2448 582
y FL(du)2547 596 y FO(2)2587 582 y FL(du)2686 596 y FO(3)906
814 y FQ(LINEINT)o(\()p FN(v)q FL(;)15 b(!)t(;)g(t)p
FQ(\))84 b(=)1830 699 y FB(Z)1928 814 y FN(v)22 b FP(\001)e
FN(dr)25 b FP(\021)2272 699 y FB(Z)2371 814 y FL(v)2415
828 y FF(i)2443 814 y FL(h)2495 828 y FF(i)2533 752 y
FL(@)5 b(!)2643 766 y FF(i)p 2533 793 139 4 v 2559 876
a FL(@)g(t)2681 814 y(dt)709 1051 y FQ(DLINEINT\()p FN(v)q
FL(;)15 b(!)t(t;)g(a;)g(b)p FQ(\))84 b(=)1830 936 y FB(Z)1913
962 y FF(b)1876 1125 y(a)1962 1051 y FL(v)2006 1065 y
FF(i)2034 1051 y FL(h)2086 1065 y FF(i)2125 990 y FL(@)5
b(!)2235 1004 y FF(i)p 2125 1030 V 2151 1113 a FL(@)g(t)2273
1051 y(dt)241 1443 y FQ(In)31 b(the)h(v)m(ector)i(and)d(v)m(olume)h(in)
m(tegrals,)g FN(v)i FQ(are)e(v)m(ector)i(or)e(scalar,)g
FL(a;)15 b(b;)g(x)33 b FQ(and)f FL(n)f FQ(are)241 1556
y(scalar.)37 b(V)-8 b(ectors)23 b FN(l)e FQ(and)f FN(u)h
FQ(con)m(tain)h(expressions)d(for)i(lo)m(w)m(er)g(and)g(upp)s(er)e(b)s
(ounds)g(to)i(the)241 1669 y(in)m(tegrals.)45 b(The)31
b(in)m(teger)i(index)d FL(n)i FQ(de\014nes)f(the)h(order)f(in)g(whic)m
(h)g(the)h(in)m(tegrals)f(o)m(v)m(er)241 1782 y FL(u)293
1796 y FO(1)332 1782 y FL(;)15 b(u)424 1796 y FO(2)492
1782 y FQ(and)27 b FL(u)718 1796 y FO(3)785 1782 y FQ(are)i(p)s
(erformed)d(in)h(order)g(to)i(allo)m(w)e(for)h(functional)e(dep)s
(endencies)g(in)241 1895 y(the)k(in)m(tegral)g(b)s(ounds:)1331
2131 y(n)423 b(order)1331 2244 y(1)429 b FL(u)1857 2258
y FO(1)1926 2244 y FL(u)1978 2258 y FO(2)2048 2244 y
FL(u)2100 2258 y FO(3)1331 2357 y FQ(2)g FL(u)1857 2371
y FO(3)1926 2357 y FL(u)1978 2371 y FO(1)2048 2357 y
FL(u)2100 2371 y FO(2)1331 2470 y FQ(3)g FL(u)1857 2484
y FO(2)1926 2470 y FL(u)1978 2484 y FO(3)2048 2470 y
FL(u)2100 2484 y FO(1)1331 2582 y FQ(4)g FL(u)1857 2596
y FO(1)1926 2582 y FL(u)1978 2596 y FO(3)2048 2582 y
FL(u)2100 2596 y FO(2)1331 2695 y FQ(5)g FL(u)1857 2709
y FO(2)1926 2695 y FL(u)1978 2709 y FO(1)2048 2695 y
FL(u)2100 2709 y FO(3)1331 2808 y FQ(otherwise)99 b FL(u)1857
2822 y FO(3)1926 2808 y FL(u)1978 2822 y FO(2)2048 2808
y FL(u)2100 2822 y FO(1)241 3045 y FQ(The)28 b(v)m(ector)j
FL(!)h FQ(in)c(the)h(line)e(in)m(tegral's)i(argumen)m(ts)g(con)m(tain)h
(explicit)d(parameterisa-)241 3158 y(tion)i(of)i(the)f(co)s(ordinates)g
FL(u)1222 3172 y FO(1)1262 3158 y FL(;)15 b(u)1354 3172
y FO(2)1394 3158 y FL(;)g(u)1486 3172 y FO(3)1556 3158
y FQ(of)30 b(the)g(line)f FN(u)p FQ(\()p FL(t)p FQ(\))i(along)f(whic)m
(h)f(the)i(in)m(tegral)e(is)241 3271 y(tak)m(en.)p eop
%%Page: 460 460
460 459 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(460)452 b FM(CHAPTER)30 b(60.)72 b(OR)-8 b(THO)m(VEC:)30
b(SCALARS)f(AND)i(VECTORS)p eop
%%Page: 461 461
461 460 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(61)241 1693 y FT(PHYSOP:)75 b(Op)6 b(erator)78 b(calculus)241
1942 y(in)f(quan)-6 b(tum)77 b(theory)1480 2424 y Fx(Mathias)27
b(W)-6 b(arns)992 2515 y(Ph)n(ysik)l(alisc)n(hes)26 b(Institut)f(der)g
(Univ)n(ersit\177)-38 b(at)26 b(Bonn)1342 2607 y(Endenic)n(her)f(Allee)
h(11{13)1273 2698 y(D{5300)h(BONN)e(1,)h(German)n(y)1103
2819 y(e{mail:)35 b(UNP008@DBNRHRZ1.bitnet)241 3063 y
FQ(The)c(pac)m(k)-5 b(age)34 b(PHYSOP)d(has)g(b)s(een)g(designed)g(to)h
(meet)h(the)e(requiremen)m(ts)g(of)h(the-)241 3176 y(oretical)37
b(ph)m(ysicists)e(lo)s(oking)h(for)h(a)g(computer)g(algebra)g(to)s(ol)g
(to)h(p)s(erform)e(compli-)241 3289 y(cated)26 b(calculations)d(in)h
(quan)m(tum)g(theory)h(with)e(expressions)h(con)m(taining)g(op)s
(erators.)241 3402 y(These)29 b(op)s(erations)f(consist)h(mainly)e(in)h
(the)h(calculation)f(of)h(comm)m(utators)i(b)s(et)m(w)m(een)241
3515 y(op)s(erator)i(expressions)e(and)h(in)f(the)i(ev)-5
b(aluations)32 b(of)h(op)s(erator)g(matrix)f(elemen)m(ts)h(in)241
3628 y(some)e(abstract)g(space.)241 3783 y @beginspecial
@setspecial @endspecial 181 x FE(61.1)135 b(The)45 b(NONCOM2)g(P)l(ac)l
(k)-7 b(age)241 4217 y FQ(The)28 b(pac)m(k)-5 b(age)31
b(NONCOM2)f(rede\014nes)e(some)h(standard)g(REDUCE)f(routines)g(in)g
(or-)241 4330 y(der)21 b(to)i(mo)s(dify)d(the)i(w)m(a)m(y)h(noncomm)m
(utativ)m(e)g(op)s(erators)g(are)f(handled)e(b)m(y)i(the)g(system.)241
4443 y(It)28 b(rede\014nes)g(the)h FJ(NONCOM)d FQ(statemen)m(t)31
b(in)c(a)i(w)m(a)m(y)g(more)g(suitable)e(for)h(calculations)g(in)241
4556 y(ph)m(ysics.)46 b(Op)s(erators)32 b(ha)m(v)m(e)h(no)m(w)g(to)g(b)
s(e)f(declared)g(noncomm)m(utativ)m(e)i(pairwise,)d FD(i.e.)241
4668 y FQ(co)s(ding:)1667 5187 y(461)p eop
%%Page: 462 462
462 461 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(462)686 b FM(CHAPTER)30 b(61.)72 b(PHYSOP:)29 b(OPERA)-8
b(TOR)30 b(CALCULUS)839 555 y FH(NONCOM)41 b(A,B;)664
799 y FQ(declares)c(the)g(op)s(erators)g FJ(A)f FQ(and)h
FJ(B)f FQ(to)i(b)s(e)e(noncomm)m(utativ)m(e)i(but)e(allo)m(ws)g(them)h
(to)664 912 y(comm)m(ute)e(with)d(an)m(y)i(other)g(\(noncomm)m(utativ)m
(e)h(or)f(not\))g(op)s(erator)g(presen)m(t)f(in)g(the)664
1025 y(expression.)k(In)21 b(a)h(similar)d(w)m(a)m(y)j(if)f(one)h(w)m
(an)m(ts)g FD(e.g.)i FJ(A\(X\))d FQ(and)g FJ(A\(Y\))f
FQ(not)i(to)h(comm)m(ute,)664 1138 y(one)31 b(has)f(no)m(w)g(to)h(co)s
(de:)839 1369 y FH(NONCOM)41 b(A,A;)664 1613 y FQ(A)i(\014nal)e
(example)i(should)d(mak)m(e)k(the)f(use)f(of)h(the)g(rede\014ned)e
FJ(NONCOM)g FQ(statemen)m(t)664 1726 y(clear:)664 1957
y FH(NONCOM)g(A,B,C;)664 2201 y FQ(declares)e FJ(A)g
FQ(to)h(b)s(e)e(noncomm)m(utativ)m(e)i(with)e FJ(B)h
FQ(and)g FJ(C)p FQ(,)g FJ(B)f FQ(to)i(b)s(e)f(noncomm)m(utativ)m(e)664
2314 y(with)d FJ(A)h FQ(and)g FJ(C)g FQ(and)f FJ(C)h
FQ(to)h(b)s(e)f(noncomm)m(utativ)m(e)h(with)e FJ(A)h
FQ(and)g FJ(B)p FQ(.)g(Note)i(that)e(after)664 2427 y(these)31
b(declaration)f FD(e.g.)i FJ(A\(X\))d FQ(and)h FJ(A\(Y\))f
FQ(are)i(still)d(comm)m(uting)i(k)m(ernels.)664 2589
y(Finally)22 b(to)j(k)m(eep)f(the)g(compatibilit)m(y)f(with)f(standard)
h(REDUCE)39 b(declaring)23 b(a)h(single)p 3430 2620 223
4 v 664 2702 a(iden)m(ti\014er)40 b(using)g(the)h FJ(NONCOM)f
FQ(statemen)m(t)j(has)e(the)h(same)f(e\013ect)i(as)f(in)e(standard)664
2815 y(REDUCE.)664 2978 y(F)-8 b(rom)22 b(the)g(user's)g(p)s(oin)m(t)e
(of)i(view)f(there)h(are)g(no)g(other)g(new)f(commands)g(implemen)m
(ted)664 3091 y(b)m(y)30 b(the)h(pac)m(k)-5 b(age.)664
3245 y @beginspecial @setspecial @endspecial 182 x FE(61.2)136
b(The)44 b(PHYSOP)g(pac)l(k)-7 b(age)664 3680 y FQ(The)35
b(pac)m(k)-5 b(age)37 b(PHYSOP)d(implemen)m(ts)f(a)j(new)e(REDUCE)h
(data)h(t)m(yp)s(e)f(to)g(p)s(erform)664 3793 y(calculations)j(with)g
(ph)m(ysical)g(op)s(erators.)67 b(The)39 b(noncomm)m(utativit)m(y)g(of)
h(op)s(erators)664 3906 y(is)31 b(implemen)m(ted)g(using)g(the)h
(NONCOM2)g(pac)m(k)-5 b(age)34 b(so)f(this)e(\014le)g(should)f(b)s(e)h
(loaded)664 4018 y(prior)e(to)i(the)g(use)f(of)g(PHYSOP)-8
b(.)664 4163 y @beginspecial @setspecial @endspecial
149 x FR(61.2.1)113 b(T)m(yp)s(e)38 b(declaration)e(commands)664
4533 y FQ(The)27 b(new)g(REDUCE)g(data)g(t)m(yp)s(e)h(PHYSOP)e
(implemen)m(ted)g(b)m(y)h(the)g(pac)m(k)-5 b(age)30 b(allo)m(ws)664
4646 y(the)i(de\014nition)d(of)j(a)g(new)f(kind)f(of)i(op)s(erators)f
(\()p FD(i.e.)j FQ(k)m(ernels)d(carrying)g(an)g(arbitrary)664
4759 y(n)m(um)m(b)s(er)g(of)g(argumen)m(ts\).)46 b(Throughout)30
b(this)h(man)m(ual,)g(the)h(name)g(\\op)s(erator")h(will)664
4872 y(refer,)38 b(unless)d(explicitly)f(stated)j(otherwise,)g(to)h
(this)d(new)h(data)h(t)m(yp)s(e.)59 b(This)34 b(data)p
eop
%%Page: 463 463
463 462 bop 241 299 a @beginspecial @setspecial @endspecial
FM(61.2.)72 b(THE)30 b(PHYSOP)g(P)-8 b(A)m(CKA)m(GE)1503
b FQ(463)241 555 y(t)m(yp)s(e)29 b(is)g(in)f(turn)g(divided)f(in)m(to)i
(5)h(subt)m(yp)s(es.)39 b(F)-8 b(or)30 b(eac)m(h)h(of)e(this)g(subt)m
(yp)s(e,)f(a)i(declara-)241 668 y(tion)g(command)g(has)g(b)s(een)g
(de\014ned:)241 906 y FJ(SCALOP)46 b(A;)80 b FQ(declares)39
b FJ(A)g FQ(to)h(b)s(e)f(a)h(scalar)g(op)s(erator.)68
b(This)38 b(op)s(erator)h(ma)m(y)i(carry)468 1018 y(an)e(arbitrary)g(n)
m(um)m(b)s(er)f(of)i(argumen)m(ts;)k(after)c(the)g(declaration:)154
b FJ(SCALOP)468 1131 y(A;)83 b FQ(all)34 b(k)m(ernels)h(of)h(the)f
(form)g FJ(A\(J\),)47 b(A\(1,N\),)f(A\(N,L,M\))33 b FQ(are)j
(recognised)468 1244 y(b)m(y)30 b(the)h(system)f(as)h(b)s(eing)e
(scalar)h(op)s(erators.)241 1432 y FJ(VECOP)46 b(V;)80
b FQ(declares)33 b FJ(V)f FQ(to)i(b)s(e)e(a)h(v)m(ector)i(op)s(erator.)
48 b(As)33 b(for)g(scalar)f(op)s(erators,)i(the)468 1545
y(v)m(ector)41 b(op)s(erators)e(ma)m(y)g(carry)g(an)g(arbitrary)f(n)m
(um)m(b)s(er)g(of)h(argumen)m(ts.)67 b(F)-8 b(or)468
1658 y(example)33 b FJ(V\(3\))f FQ(can)i(b)s(e)f(used)f(to)i(represen)m
(t)g(the)f(v)m(ector)i(op)s(erator)2880 1635 y FL(~)2873
1658 y(V)2926 1672 y FO(3)2966 1658 y FQ(.)49 b(Note)468
1771 y(that)35 b(the)g(dimension)d(of)i(space)i(in)d(whic)m(h)g(this)g
(op)s(erator)i(liv)m(es)f(is)f(arbitrary)p 2847 1802
357 4 v -1 w(.)468 1884 y(One)d(can)h(ho)m(w)m(ev)m(er)h(address)e(a)h
(sp)s(eci\014c)f(comp)s(onen)m(t)h(of)g(the)g(v)m(ector)h(op)s(erator)
468 1996 y(b)m(y)22 b(using)f(a)i(sp)s(ecial)e(index)g(declared)h(as)g
FJ(PHYSINDEX)e FQ(\(see)k(b)s(elo)m(w\).)37 b(This)21
b(index)468 2109 y(m)m(ust)30 b(then)g(b)s(e)g(the)h(\014rst)e(in)g
(the)i(argumen)m(t)g(list)e(of)h(the)h(v)m(ector)h(op)s(erator.)241
2297 y FJ(TENSOP)46 b(C\(3\);)79 b FQ(declares)33 b FJ(C)g
FQ(to)h(b)s(e)e(a)i(tensor)f(op)s(erator)h(of)f(rank)g(3.)50
b(T)-8 b(ensor)33 b(op)s(er-)468 2410 y(ators)22 b(of)f(an)m(y)g
(\014xed)g(in)m(teger)g(rank)g(larger)g(than)f(1)i(can)f(b)s(e)g
(declared.)37 b(Again)21 b(this)468 2523 y(op)s(erator)33
b(ma)m(y)h(carry)f(an)g(arbitrary)e(n)m(um)m(b)s(er)h(of)h(argumen)m
(ts)g(and)g(the)g(space)468 2636 y(dimension)g(is)h(not)i(\014xed.)55
b(The)35 b(tensor)h(comp)s(onen)m(ts)g(can)f(b)s(e)g(addressed)g(b)m(y)
468 2749 y(using)e(sp)s(ecial)f FJ(PHYSINDEX)g FQ(indices)g(\(see)j(b)s
(elo)m(w\))f(whic)m(h)e(ha)m(v)m(e)k(to)f(b)s(e)e(placed)468
2862 y(in)c(fron)m(t)i(of)f(all)f(other)i(argumen)m(ts)g(in)e(the)h
(argumen)m(t)h(list.)241 3049 y FJ(STATE)46 b(U;)80 b
FQ(declares)32 b FJ(U)f FQ(to)i(b)s(e)e(a)h(state,)i
FD(i.e.)f FQ(an)f(ob)5 b(ject)33 b(on)f(whic)m(h)e(op)s(erators)i(ha)m
(v)m(e)468 3162 y(a)j(certain)g(action.)55 b(The)35 b(state)h(U)f(can)g
(also)g(carry)g(an)g(arbitrary)f(n)m(um)m(b)s(er)f(of)468
3275 y(argumen)m(ts.)241 3463 y FJ(PHYSINDEX)45 b(X;)80
b FQ(declares)21 b FJ(X)g FQ(to)i(b)s(e)d(a)i(sp)s(ecial)e(index)g
(whic)m(h)h(will)e(b)s(e)h(used)h(to)h(address)468 3576
y(comp)s(onen)m(ts)31 b(of)f(v)m(ector)i(and)e(tensor)g(op)s(erators.)
241 3813 y(A)h(command)f FJ(CLEARPHYSOP)e FQ(remo)m(v)m(es)k(the)e
(PHYSOP)g(t)m(yp)s(e)h(from)f(an)h(iden)m(ti\014er)e(in)241
3926 y(order)20 b(to)i(use)e(it)h(for)f(subsequen)m(t)g(calculations.)
37 b(Ho)m(w)m(ev)m(er)23 b(it)d(should)f(b)s(e)h(remem)m(b)s(ered)241
4039 y(that)35 b(no)p 442 4052 96 4 v 35 w(substitution)e(rule)h(is)g
(cleared)h(b)m(y)g(this)f(function.)54 b(It)35 b(is)f(therefore)i(left)
f(to)241 4152 y(the)h(user's)e(resp)s(onsibilit)m(y)e(to)k(clear)g
(previously)d(all)i(substitution)e(rules)h(in)m(v)m(olving)241
4265 y(the)c(iden)m(ti\014er)f(from)h(whic)m(h)f(the)h(PHYSOP)g(t)m(yp)
s(e)h(is)e(remo)m(v)m(ed.)241 4410 y @beginspecial @setspecial
@endspecial 148 x FR(61.2.2)112 b(Ordering)37 b(of)h(op)s(erators)g(in)
e(an)j(expression)241 4779 y FQ(The)32 b(ordering)g(of)i(k)m(ernels)e
(in)g(an)h(expression)f(is)g(p)s(erformed)g(according)h(to)g(the)h
(fol-)241 4892 y(lo)m(wing)29 b(rules:)p eop
%%Page: 464 464
464 463 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(464)686 b FM(CHAPTER)30 b(61.)72 b(PHYSOP:)29 b(OPERA)-8
b(TOR)30 b(CALCULUS)664 555 y FQ(1.)65 b(Scalars)p 799
568 279 4 v 38 w(are)39 b(alw)m(a)m(ys)g(ordered)e(ahead)i(of)g(PHYSOP)
e(op)s(erators)i(in)e(an)h(expres-)664 668 y(sion.)44
b(The)31 b(REDUCE)g(statemen)m(t)j FJ(KORDER)29 b FQ(can)j(b)s(e)f
(used)g(to)h(con)m(trol)g(the)g(ordering)664 781 y(of)f(scalars)f(but)g
(has)g(no)g(e\013ect)i(on)e(the)h(ordering)e(of)h(op)s(erators.)664
944 y(2.)58 b(The)35 b(default)g(ordering)g(of)h(op)s(erators)g(follo)m
(ws)f(the)h(order)f(in)g(whic)m(h)g(they)h(ha)m(v)m(e)664
1057 y(b)s(een)44 b(declared)h(\(not)g(the)g(alphab)s(etical)e(one\).)
85 b(This)43 b(ordering)h(sc)m(heme)h(can)h(b)s(e)664
1170 y(c)m(hanged)35 b(using)d(the)i(command)f FJ(OPORDER)p
FQ(.)66 b(Its)33 b(syn)m(tax)i(is)d(similar)f(to)k(the)f
FJ(KORDER)664 1282 y FQ(statemen)m(t,)j FD(i.e.)f FQ(co)s(ding:)48
b FJ(OPORDER)d(A,V,F;)33 b FQ(means)h(that)h(all)e(o)s(ccurrences)h(of)
h(the)664 1395 y(op)s(erator)30 b FJ(A)f FQ(are)h(ordered)f(ahead)h(of)
g(those)g(of)f FJ(V)h FQ(etc.)41 b(It)30 b(is)e(also)i(p)s(ossible)d
(to)j(include)664 1508 y(op)s(erators)j(carrying)f(indices)f(\(b)s(oth)
h(normal)g(and)g(sp)s(ecial)f(ones\))i(in)f(the)g(argumen)m(t)664
1621 y(list)41 b(of)i FJ(OPORDER)p FQ(.)e(Ho)m(w)m(ev)m(er)k(including)
39 b(ob)5 b(jects)43 b(not)p 2454 1634 132 4 v 43 w(de\014ned)f(as)g
(op)s(erators)h(\()p FD(i.e.)664 1734 y FQ(scalars)27
b(or)g(indices\))e(in)h(the)h(argumen)m(t)g(list)f(of)h(the)g
FJ(OPORDER)d FQ(command)j(leads)f(to)i(an)664 1847 y(error.)664
2010 y(3.)41 b(Adjoin)m(t)28 b(op)s(erators)h(are)h(placed)e(b)m(y)h
(the)g(declaration)g(commands)g(just)f(after)i(the)664
2123 y(original)j(op)s(erators)i(on)g(the)g FJ(OPORDER)e
FQ(list.)53 b(Changing)34 b(the)h(place)g(of)g(an)g(op)s(erator)664
2236 y(on)30 b(this)g(list)f(means)h(not)p 1398 2249
V 31 w(that)h(the)f(adjoin)m(t)h(op)s(erator)f(is)g(mo)m(v)m(ed)h
(accordingly)-8 b(.)41 b(This)664 2348 y(adjoin)m(t)29
b(op)s(erator)h(can)f(b)s(e)g(mo)m(v)m(ed)h(freely)e(b)m(y)h(including)
d(it)j(in)f(the)h(argumen)m(t)h(list)e(of)664 2461 y(the)j
FJ(OPORDER)d FQ(command.)664 2585 y @beginspecial @setspecial
@endspecial 166 x FR(61.2.3)113 b(Arithmetic)34 b(op)s(erations)j(on)h
(op)s(erators)664 2973 y FQ(The)30 b(follo)m(wing)f(arithmetic)g(op)s
(erations)h(are)h(p)s(ossible)c(with)i(op)s(erator)i(expressions:)664
3248 y(1.)41 b(Multiplication)28 b(or)i(division)d(of)k(an)f(op)s
(erator)h(b)m(y)f(a)h(scalar.)664 3411 y(2.)41 b(Addition)29
b(and)g(subtraction)h(of)g(op)s(erators)h(of)g(the)f(same)p
2580 3424 198 4 v 31 w(t)m(yp)s(e.)664 3574 y(3.)41 b(Multiplication)27
b(of)j(op)s(erators)g(is)f(only)g(de\014ned)g(b)s(et)m(w)m(een)h(t)m(w)
m(o)i(scalar)p 2998 3587 229 4 v 29 w(op)s(erators.)664
3723 y(4.)65 b(The)38 b(scalar)g(pro)s(duct)f(of)h(t)m(w)m(o)i(VECTOR)d
(op)s(erators)i(is)e(implemen)m(ted)g(with)g(a)664 3823
y(new)29 b(function)f FJ(DOT)p FQ(.)h(The)g(system)g(expands)g(the)g
(pro)s(duct)g(of)g(t)m(w)m(o)i(v)m(ector)g(op)s(erators)664
3923 y(in)m(to)g(an)f(ordinary)f(pro)s(duct)g(of)h(the)h(comp)s(onen)m
(ts)f(of)h(these)g(op)s(erators)f(b)m(y)h(inserting)664
4022 y(a)c(sp)s(ecial)f(index)f(generated)j(b)m(y)f(the)g(program.)39
b(T)-8 b(o)27 b(giv)m(e)h(an)e(example,)i(if)d(one)j(co)s(des:)664
4228 y FH(VECOP)42 b(V,W;)664 4328 y(V)h(DOT)g(W;)664
4534 y FQ(the)31 b(system)f(will)e(transform)i(the)g(pro)s(duct)f(in)m
(to:)664 4740 y FH(V\(IDX1\))41 b(*)i(W\(IDX1\))664 4959
y FQ(where)g FJ(IDX1)e FQ(is)h(a)i FJ(PHYSINDEX)c FQ(generated)k(b)m(y)
f(the)g(system)g(\(called)f(a)h(DUMMY)p eop
%%Page: 465 465
465 464 bop 241 299 a @beginspecial @setspecial @endspecial
FM(61.2.)72 b(THE)30 b(PHYSOP)g(P)-8 b(A)m(CKA)m(GE)1503
b FQ(465)241 555 y(INDEX)38 b(in)f(the)h(follo)m(wing\))e(to)j(express)
e(the)h(summation)f(o)m(v)m(er)i(the)f(comp)s(onen)m(ts.)241
668 y(The)33 b(iden)m(ti\014ers)e FJ(IDXn)i FQ(\()p FJ(n)g
FQ(is)g(a)h(nonzero)g(in)m(teger\))g(are)g(reserv)m(ed)g(v)-5
b(ariables)32 b(for)i(this)241 781 y(purp)s(ose)43 b(and)h(should)f
(not)j(b)s(e)e(used)g(for)h(other)g(applications.)83
b(The)44 b(arithmetic)241 894 y(op)s(erator)28 b FJ(DOT)e
FQ(can)i(b)s(e)f(used)f(b)s(oth)h(in)f(in\014x)g(and)h(pre\014x)f(form)
h(with)f(t)m(w)m(o)j(argumen)m(ts.)241 1043 y(5.)49 b(Op)s(erators)32
b(\(but)g(not)i(states\))g(can)f(only)f(b)s(e)h(raised)f(to)h(an)g(in)m
(teger)p 2461 1074 271 4 v 34 w(p)s(o)m(w)m(er.)48 b(The)241
1143 y(system)34 b(expands)g(this)f(p)s(o)m(w)m(er)h(expression)f(in)m
(to)i(a)f(pro)s(duct)g(of)g(the)h(corresp)s(onding)241
1243 y(n)m(um)m(b)s(er)i(of)h(terms)h(inserting)d(dumm)m(y)i(indices)e
(if)h(necessary)-8 b(.)66 b(The)38 b(follo)m(wing)f(ex-)241
1342 y(amples)27 b(explain)g(the)h(transformations)g(o)s(ccurring)f(on)
h(p)s(o)m(w)m(er)g(expressions)f(\(system)241 1442 y(output)j(is)f
(indicated)g(with)g(an)h FJ(-->)p FQ(\):)241 1648 y FH(SCALOP)41
b(A;)i(A**2;)328 1747 y(-->)f(A*A)241 1847 y(VECOP)f(V;)i(V**4;)328
1947 y(-->)f(V\(IDX1\)*V\(IDX1\)*V)o(\(I)o(DX2)o(\)*)o(V\(I)o(DX)o(2\))
241 2046 y(TENSOP)f(C\(2\);)g(C**2;)328 2146 y(-->)h
(C\(IDX3,IDX4\)*C\(ID)o(X3)o(,ID)o(X4)o(\))241 2365 y
FQ(Note)28 b(in)e(particular)f(the)i(w)m(a)m(y)h(ho)m(w)f(the)g(system)
g(in)m(terprets)g(p)s(o)m(w)m(ers)g(of)g(tensor)g(op)s(er-)241
2478 y(ators)k(whic)m(h)e(is)g(di\013eren)m(t)h(from)g(the)h(notation)f
(used)g(in)f(matrix)h(algebra.)241 2641 y(6.)49 b(Quotien)m(ts)33
b(of)g(op)s(erators)h(are)f(only)f(de\014ned)g(b)s(et)m(w)m(een)i
(scalar)f(op)s(erator)g(expres-)241 2754 y(sions.)68
b(The)39 b(system)h(transforms)f(the)h(quotien)m(t)g(of)g(2)g(scalar)g
(op)s(erators)g(in)m(to)f(the)241 2867 y(pro)s(duct)29
b(of)h(the)h(\014rst)f(op)s(erator)g(times)g(the)h(in)m(v)m(erse)f(of)h
(the)f(second)h(one.)241 3097 y FH(SCALOP)41 b(A,B;)129
b(A)43 b(/)g(B;)764 3197 y(-1)502 3297 y(A)g(*\()g(B)87
b(\))241 3541 y FQ(7.)74 b(Com)m(bining)39 b(the)j(last)f(2)h(rules)e
(explains)f(the)j(w)m(a)m(y)g(ho)m(w)g(the)g(system)f(handles)241
3654 y(negativ)m(e)31 b(p)s(o)m(w)m(ers)g(of)f(op)s(erators:)241
3859 y FH(SCALOP)41 b(B;)241 3959 y(B**\(-3\);)589 4059
y(-1)174 b(-1)f(-1)328 4158 y(-->)42 b(\(B)87 b(\)*\(B)e(\)*\(B)h(\))
241 4378 y FQ(The)27 b(metho)s(d)h(of)g(inserting)e(dumm)m(y)h(indices)
f(and)h(expanding)f(p)s(o)m(w)m(ers)i(of)g(op)s(erators)241
4490 y(has)35 b(b)s(een)f(c)m(hosen)i(to)f(facilitate)g(the)h(handling)
c(of)j(complicated)g(op)s(erator)g(expres-)241 4603 y(sions)27
b(and)h(particularly)e(their)h(application)g(on)i(states.)41
b(Ho)m(w)m(ev)m(er)30 b(it)e(ma)m(y)h(b)s(e)f(useful)241
4716 y(to)41 b(get)h(rid)d(of)i(these)g(dumm)m(y)e(indices)g(in)g
(order)h(to)i(enhance)e(the)h(readabilit)m(y)e(of)241
4829 y(the)33 b(system's)g(\014nal)f(output.)48 b(F)-8
b(or)33 b(this)f(purp)s(ose)g(the)h(switc)m(h)f FJ(CONTRACT)f
FQ(has)h(to)i(b)s(e)241 4942 y(turned)d(on)i(\()p FJ(CONTRACT)e
FQ(is)h(normally)f(set)i(to)g FJ(OFF)p FQ(\).)g(The)f(system)h(in)e
(this)h(case)i(con-)p eop
%%Page: 466 466
466 465 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(466)686 b FM(CHAPTER)30 b(61.)72 b(PHYSOP:)29 b(OPERA)-8
b(TOR)30 b(CALCULUS)664 555 y FQ(tracts)41 b(o)m(v)m(er)f(dumm)m(y)f
(indices)e(reinserting)h(the)h FJ(DOT)g FQ(op)s(erator)g(and)g(reassem)
m(bling)664 668 y(the)30 b(expanded)f(p)s(o)m(w)m(ers.)40
b(Ho)m(w)m(ev)m(er)31 b(due)e(to)h(the)g(prede\014ned)e(op)s(erator)i
(ordering)e(the)664 781 y(system)j(ma)m(y)g(not)f(remo)m(v)m(e)i(all)d
(the)i(dumm)m(y)e(indices)g(in)m(tro)s(duced)g(previously)-8
b(.)664 921 y @beginspecial @setspecial @endspecial 148
x FR(61.2.4)113 b(Sp)s(ecial)36 b(functions)664 1291
y FN(Comm)m(utation)d(relations)664 1512 y FQ(If)28 b(t)m(w)m(o)i
(PHYSOPs)d(ha)m(v)m(e)j(b)s(een)e(declared)g(noncomm)m(utativ)m(e)h
(using)e(the)h(\(rede\014ned\))664 1625 y FJ(NONCOM)d
FQ(statemen)m(t,)30 b(it)c(is)g(p)s(ossible)e(to)k(in)m(tro)s(duce)e
(in)f(the)i(en)m(vironmen)m(t)f(elemen)m(tary)664 1738
y(\(an)m(ti-\))36 b(comm)m(utation)g(relations)f(b)s(et)m(w)m(een)h
(them.)55 b(F)-8 b(or)36 b(this)e(purp)s(ose,)h(t)m(w)m(o)i(scalar)664
1851 y(op)s(erators)j FJ(COMM)f FQ(and)g FJ(ANTICOMM)f
FQ(are)i(a)m(v)-5 b(ailable.)69 b(These)40 b(op)s(erators)g(are)g(used)
f(in)664 1964 y(conjunction)30 b(with)f FJ(LET)g FQ(statemen)m(ts.)43
b(Example:)664 2190 y FH(SCALOP)e(A,B,C,D;)664 2289 y(LET)i
(COMM\(A,B\)=C;)664 2389 y(FOR)g(ALL)f(N,M)g(LET)h(ANTICOMM\(A\(N\),B)o
(\(M\))o(\)=)o(D;)664 2488 y(VECOP)f(U,V,W;)f(PHYSINDEX)f(X,Y,Z;)664
2588 y(FOR)j(ALL)f(X,Y)g(LET)h(COMM\(V\(X\),W\(Y\)\))o(=U\()o(Z\))o(;)
664 2827 y FQ(Note)d(that)f(if)e(sp)s(ecial)g(indices)f(are)j(used)e
(as)i(dumm)m(y)e(v)-5 b(ariables)37 b(in)g FJ(FOR)47
b(ALL)g(...)664 2940 y(LET)22 b FQ(constructs)i(then)e(these)i(indices)
d(should)g(ha)m(v)m(e)k(b)s(een)d(declared)h(previously)d(using)664
3053 y(the)31 b FJ(PHYSINDEX)d FQ(command.)664 3216 y(Ev)m(ery)e(time)f
(the)h(system)g(encoun)m(ters)g(a)g(pro)s(duct)e(term)i(in)m(v)m
(olving)e(t)m(w)m(o)j(noncomm)m(u-)664 3328 y(tativ)m(e)e(op)s(erators)
g(whic)m(h)d(ha)m(v)m(e)j(to)g(b)s(e)f(reordered)f(on)h(accoun)m(t)h
(of)f(the)h(giv)m(en)f(op)s(erator)664 3441 y(ordering,)33
b(the)h(list)e(of)i(a)m(v)-5 b(ailable)32 b(\(an)m(ti-\))j(comm)m
(utators)g(is)d(c)m(hec)m(k)m(ed)k(in)c(the)h(follo)m(w-)664
3554 y(ing)f(w)m(a)m(y:)45 b(First)31 b(the)i(system)f(lo)s(oks)g(for)g
(a)h(comm)m(utation)p 2180 3567 523 4 v 32 w(relation)f(whic)m(h)f
(matc)m(hes)664 3667 y(the)f(pro)s(duct)e(term.)41 b(If)29
b(it)g(fails)f(then)h(the)h(de\014ned)f(an)m(ticomm)m(utation)p
2457 3680 677 4 v 30 w(relations)g(are)664 3780 y(c)m(hec)m(k)m(ed.)41
b(If)24 b(there)h(is)f(no)h(successful)e(matc)m(h)j(the)f(pro)s(duct)e
(term)i FJ(A*B)f FQ(is)g(replaced)g(b)m(y:)664 4119 y
FH(A*B;)708 4218 y(-->)42 b(COMM\(A,B\))e(+)j(B*A)664
4457 y FQ(so)31 b(that)g(the)f(user)g(ma)m(y)h(in)m(tro)s(duce)e(the)i
(comm)m(utation)g(relation)e(later)i(on.)664 4620 y(The)k(user)f(ma)m
(y)i(w)m(an)m(t)g(to)g(force)f(the)g(system)h(to)g(lo)s(ok)e(for)h(an)m
(ticomm)m(utators)p 2751 4633 673 4 v 37 w(only;)664
4733 y(for)g(this)e(purp)s(ose)g(a)i(switc)m(h)f FJ(ANTICOM)67
b FQ(is)34 b(de\014ned)f(whic)m(h)g(has)i(to)g(b)s(e)f(turned)f(on)i
(\()664 4846 y FJ(ANTICOM)26 b FQ(is)h(normally)e(set)k(to)f
FJ(OFF)p FQ(\).)g(In)e(this)h(case,)j(the)d(ab)s(o)m(v)m(e)i(example)f
(is)e(replaced)664 4959 y(b)m(y:)p eop
%%Page: 467 467
467 466 bop 241 299 a @beginspecial @setspecial @endspecial
FM(61.2.)72 b(THE)30 b(PHYSOP)g(P)-8 b(A)m(CKA)m(GE)1503
b FQ(467)241 555 y FH(ON)43 b(ANTICOM;)241 655 y(A*B;)284
754 y(-->)86 b(ANTICOMM\(A,B\))38 b(-)44 b(B*A)241 999
y FQ(F)-8 b(or)40 b(the)f(calculation)g(of)g(\(an)m(ti-\))h(comm)m
(utators)h(b)s(et)m(w)m(een)e(complex)g(op)s(erator)h(ex-)241
1111 y(pressions,)29 b(the)h(functions)f FJ(COMMUTE)f
FQ(and)i FJ(ANTICOMMUTE)e FQ(ha)m(v)m(e)j(b)s(een)f(de\014ned.)241
1342 y FH(VECOP)41 b(P,A,K;)241 1442 y(PHYSINDEX)f(X,Y;)241
1542 y(FOR)i(ALL)g(X,Y)h(LET)f(COMM\(P\(X\),A\(Y\)\)=K)o(\(X)o(\)*)o
(A\(Y)o(\);)241 1641 y(COMMUTE\(P**2,P)c(DOT)k(A\);)241
1931 y FN(Adjoin)m(t)35 b(expressions)241 2152 y FQ(As)g(has)h(b)s(een)
f(already)g(men)m(tioned,)i(for)e(eac)m(h)i(op)s(erator)f(and)f(state)i
(de\014ned)d(using)241 2265 y(the)39 b(declaration)g(commands,)i(the)e
(system)g(generates)i(automatically)e(the)g(corre-)241
2378 y(sp)s(onding)25 b(adjoin)m(t)j(op)s(erator.)40
b(F)-8 b(or)29 b(the)f(calculation)f(of)i(the)f(adjoin)m(t)f(represen)m
(tation)241 2491 y(of)j(a)h(complicated)f(op)s(erator)h(expression,)e
(a)i(function)e FJ(ADJ)g FQ(has)i(b)s(een)e(de\014ned.)241
2722 y FH(SCALOP)41 b(A,B;)241 2822 y(ADJ\(A*B\);)589
2921 y(+)174 b(+)328 3021 y(-->)42 b(\(A)h(\)*\(B)f(\))241
3311 y FN(Application)35 b(of)g(op)s(erators)g(on)h(states)241
3532 y FQ(A)42 b(function)f FJ(OPAPPLY)f FQ(has)h(b)s(een)g(de\014ned)g
(for)h(the)g(application)e(of)j(op)s(erators)f(to)241
3645 y(states.)g(It)30 b(has)g(t)m(w)m(o)i(argumen)m(ts)f(and)e(is)h
(used)f(in)h(the)g(follo)m(wing)f(com)m(binations:)241
3808 y FN(\(i\))c FJ(LET)47 b(OPAPPLY\()p FD(op)-5 b(er)g(ator,)30
b(state)p FJ(\))49 b(=)25 b FD(state)p FQ(;)k(This)24
b(is)h(to)i(de\014ne)e(a)i(elemen)m(tary)f(ac-)241 3921
y(tion)c(of)h(an)f(op)s(erator)h(on)g(a)g(state)h(in)d(analogy)i(to)g
(the)g(w)m(a)m(y)h(elemen)m(tary)f(comm)m(utation)241
4034 y(relations)29 b(are)i(in)m(tro)s(duced)e(to)i(the)f(system.)241
4265 y FH(SCALOP)41 b(A;)i(STATE)e(U;)241 4364 y(FOR)h(ALL)g(N,P)h(LET)
f(OPAPPLY\(\(A\(N\),U\(P)o(\)\))o(=)37 b(EXP\(I*N*P\)*U\(P\);)241
4608 y FN(\(ii\))d FJ(LET)47 b(OPAPPLY\()p FD(state,)37
b(state)p FJ(\))48 b(=)35 b FD(sc)-5 b(alar)38 b(exp.)p
FQ(;)g(This)c(form)g(is)g(to)i(de\014ne)f(scalar)241
4721 y(pro)s(ducts)29 b(b)s(et)m(w)m(een)i(states)g(and)f
(normalisation)f(conditions.)241 4952 y FH(STATE)41 b(U;)p
eop
%%Page: 468 468
468 467 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(468)686 b FM(CHAPTER)30 b(61.)72 b(PHYSOP:)29 b(OPERA)-8
b(TOR)30 b(CALCULUS)664 555 y FH(FOR)43 b(ALL)f(N,M)g(LET)h
(OPAPPLY\(U\(N\),U\()o(M\)\))37 b(=)43 b(IF)g(N=M)f(THEN)g(1)h(ELSE)f
(0;)664 799 y FN(\(iii\))36 b FD(state)h FJ(:=)47 b(OPAPPLY\()p
FD(op)-5 b(er)g(ator)39 b(expr)-5 b(ession,)40 b(state)p
FQ(\);)h(In)35 b(this)g(w)m(a)m(y)-8 b(,)39 b(the)e(action)664
912 y(of)28 b(an)f(op)s(erator)g(expression)f(on)h(a)h(giv)m(en)f
(state)i(is)d(calculated)h(using)f(elemen)m(tary)i(re-)664
1025 y(lations)d(de\014ned)g(as)h(explained)e(in)h FN(\(i\))p
FQ(.)39 b(The)25 b(result)g(ma)m(y)i(b)s(e)e(assigned)g(to)i(a)f
(di\013eren)m(t)664 1138 y(state)32 b(v)m(ector.)664
1301 y FN(\(iv\))26 b FJ(OPAPPLY\()p FD(state)p FJ(,)47
b(OPAPPLY\()p FD(op)-5 b(er)g(ator)30 b(expr)-5 b(ession,)31
b(state)p FJ(\)\))p FQ(;)e(This)c(is)h(the)h(w)m(a)m(y)664
1414 y(ho)m(w)32 b(to)g(calculate)g(matrix)e(elemen)m(ts)i(of)g(op)s
(erator)f(expressions.)43 b(The)31 b(system)g(pro-)664
1527 y(ceeds)39 b(in)d(the)j(follo)m(wing)d(w)m(a)m(y:)57
b(\014rst)37 b(the)i(righ)m(tmost)f(op)s(erator)g(is)f(applied)f(on)i
(the)664 1639 y(righ)m(t)d(state,)k(whic)m(h)34 b(means)i(that)g(the)f
(system)h(tries)f(to)h(\014nd)e(an)i(elemen)m(tary)g(rela-)664
1752 y(tion)28 b(whic)m(h)f(matc)m(h)j(the)e(application)f(of)i(the)f
(op)s(erator)h(on)g(the)f(state.)42 b(If)28 b(it)g(fails)f(the)664
1865 y(system)d(tries)g(to)g(apply)f(the)h(leftmost)g(op)s(erator)g(of)
g(the)g(expression)f(on)h(the)g(left)g(state)664 1978
y(using)31 b(the)i(adjoin)m(t)f(represen)m(tations.)47
b(If)31 b(this)h(fails)f(also,)i(the)f(system)h(prin)m(ts)e(out)i(a)664
2091 y(w)m(arning)27 b(message)i(and)e(stops)h(the)h(ev)-5
b(aluation.)39 b(Otherwise)27 b(the)h(next)g(op)s(erator)g(o)s(c-)664
2204 y(curing)h(in)h(the)g(expression)g(is)f(tak)m(en)j(and)e(so)h(on)f
(un)m(til)f(the)i(complete)g(expression)e(is)664 2317
y(applied.)39 b(Then)28 b(the)i(system)g(lo)s(oks)g(for)f(a)i(relation)
e(expressing)f(the)i(scalar)g(pro)s(duct)664 2430 y(of)37
b(the)g(t)m(w)m(o)i(resulting)c(states)j(and)f(prin)m(ts)e(out)i(the)g
(\014nal)f(result.)59 b(An)37 b(example)g(of)664 2543
y(suc)m(h)30 b(a)h(calculation)f(is)f(giv)m(en)h(in)f(the)i(test)g
(\014le.)664 2705 y(The)37 b(in\014x)e(v)m(ersion)h(of)h(the)g
FJ(OPAPPLY)e FQ(function)h(is)f(the)j(v)m(ertical)f(bar)f
FP(j)p FQ(.)60 b(It)37 b(is)f(righ)m(t)p 3463 2736 190
4 v 664 2818 a(asso)s(ciativ)m(e)f(and)e(placed)h(in)f(the)h
(precedence)g(list)f(just)g(ab)s(o)m(v)m(e)j(the)e(min)m(us)e(\()p
FP(\000)p FQ(\))j(op-)664 2931 y(erator.)p eop
%%Page: 469 469
469 468 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(62)241 1693 y FT(PM:)77 b(A)g(REDUCE)f(pattern)241
1942 y(matc)-6 b(her)1486 2415 y Fx(Kevin)25 b(McIsaac)1123
2506 y(The)h(Univ)n(ersit)n(y)f(of)h(W)-6 b(estern)25
b(Australia)1580 2598 y(Australia)1348 2719 y(e{mail:)35
b(k)n(evin@wri.com)241 2963 y FQ(PM)d(is)f(a)i(general)f(pattern)g
(matc)m(her)h(similar)d(in)h(st)m(yle)h(to)h(those)g(found)e(in)f
(systems)241 3076 y(suc)m(h)g(as)g(SMP)g(and)g(Mathematica.)241
3239 y(A)e(template)h(is)f(an)m(y)h(expression)e(comp)s(osed)h(of)h
(literal)e(elemen)m(ts)i(\()p FD(e.g.)i FJ(5)p FQ(,)d
FJ(a)h FQ(or)f FJ(a+1)p FQ(\))241 3351 y(and)33 b(sp)s(ecially)e
(denoted)i(pattern)h(v)-5 b(ariables)32 b(\()p FD(e.g.)j
FJ(?a)d FQ(or)i FJ(??b)p FQ(\).)49 b(A)m(toms)34 b(b)s(eginning)241
3464 y(with)21 b(`?')38 b(are)23 b(called)e(generic)i(v)-5
b(ariables)21 b(and)g(matc)m(h)j(an)m(y)e(expression.)37
b(A)m(toms)24 b(b)s(egin-)241 3577 y(ning)32 b(with)g(`??')50
b(are)34 b(called)e(m)m(ulti-generic)h(v)-5 b(ariables)32
b(and)h(matc)m(h)h(an)m(y)g(expression)241 3690 y(or)d(an)m(y)h
(sequence)g(of)g(expressions)e(including)e(the)j(n)m(ull)f(or)h(empt)m
(y)h(sequence.)44 b(A)32 b(se-)241 3803 y(quence)e(is)f(an)h
(expression)f(of)h(the)h(form)e(`[a1,)j(a2,...]'.)43
b(When)30 b(placed)f(in)g(a)i(function)241 3916 y(argumen)m(t)d(list)e
(the)i(brac)m(k)m(ets)h(are)f(remo)m(v)m(ed,)h FD(i.e.)h
FQ(f\([a,1]\))f FP(!)f FQ(f\(a,1\))h(and)e(f\(a,[1,2],b\))241
4029 y FP(!)j FQ(f\(a,1,2,b\).)241 4192 y(A)24 b(template)h(is)e(said)h
(to)h(matc)m(h)g(an)f(expression)f(if)g(the)i(template)g(is)e
(literally)f(equal)i(to)241 4305 y(the)k(expression)e(or)i(if)e(b)m(y)i
(replacing)e(an)m(y)i(of)g(the)g(generic)g(or)f(m)m(ulti-generic)g(sym)
m(b)s(ols)241 4417 y(o)s(ccurring)f(in)g(the)h(template,)i(the)e
(template)h(can)f(b)s(e)g(made)g(to)h(b)s(e)f(literally)e(equal)i(to)
241 4530 y(the)34 b(expression.)52 b(These)34 b(replacemen)m(ts)h(are)f
(called)g(the)h(bindings)c(for)j(the)h(generic)241 4643
y(v)-5 b(ariables.)38 b(A)29 b(replacemen)m(t)g(is)e(an)h(expression)f
(of)i(the)f(form)g FJ(exp1)47 b(->)g(exp2)p FQ(,)28 b(whic)m(h)241
4756 y(means)33 b(exp1)h(is)e(replaced)h(b)m(y)g(exp2,)i(or)e
FJ(exp1)47 b(-->)g(exp2)p FQ(,)33 b(whic)m(h)f(is)h(the)g(same)h(ex-)
241 4869 y(cept)f(exp2)h(is)e(not)h(simpli\014ed)c(un)m(til)i(after)j
(the)f(substitution)d(for)j(exp1)g(is)f(made.)49 b(If)1667
5187 y(469)p eop
%%Page: 470 470
470 469 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(470)509 b FM(CHAPTER)30 b(62.)72 b(PM:)31 b(A)f(REDUCE)g(P)-8
b(A)g(TTERN)31 b(MA)-8 b(TCHER)664 555 y FQ(the)41 b(expression)e(has)h
(an)m(y)g(of)g(the)h(prop)s(erties;)j(asso)s(ciativit)m(y)-8
b(,)43 b(comm)m(utativit)m(y)-8 b(,)44 b(or)664 668 y(an)38
b(iden)m(tit)m(y)f(elemen)m(t,)j(they)e(are)g(used)f(to)h(determine)f
(if)g(the)g(expressions)g(matc)m(h.)664 781 y(If)k(an)g(attempt)h(to)g
(matc)m(h)g(the)f(template)g(to)h(the)f(expression)f(fails)g(the)h
(matc)m(her)664 894 y(bac)m(ktrac)m(ks,)32 b(un)m(binding)26
b(generic)k(v)-5 b(ariables,)29 b(un)m(til)f(it)h(reac)m(hed)i(a)f
(place)g(w)m(ere)g(it)g(can)664 1007 y(mak)m(e)i(a)e(di\013eren)m(t)g
(c)m(hoice.)664 1170 y(The)42 b(matc)m(her)h(also)e(supp)s(orts)g
(seman)m(tic)h(matc)m(hing.)76 b(Brie\015y)-8 b(,)44
b(if)d(a)i(subtemplate)664 1282 y(do)s(es)25 b(not)g(matc)m(h)g(the)g
(corresp)s(onding)e(sub)s(expression)f(b)s(ecause)j(they)f(ha)m(v)m(e)i
(di\013eren)m(t)664 1395 y(structures)38 b(then)h(the)g(t)m(w)m(o)h
(are)f(equated)h(and)e(the)h(matc)m(her)h(con)m(tin)m(ues)f(matc)m
(hing)664 1508 y(the)28 b(rest)f(of)h(the)f(expression)f(un)m(til)g
(all)g(the)i(generic)f(v)-5 b(ariables)26 b(in)g(the)i(sub)s
(expression)664 1621 y(are)35 b(b)s(ound.)51 b(The)34
b(equalit)m(y)h(is)e(then)h(c)m(hec)m(k)m(ed.)56 b(This)32
b(is)i(con)m(trolled)g(b)m(y)h(the)f(switc)m(h)664 1734
y FJ(semantic)p FQ(.)39 b(By)30 b(default)g(it)g(is)f(on.)664
1887 y @beginspecial @setspecial @endspecial 182 x FE(62.1)136
b(The)44 b(Matc)l(h)h(F)-11 b(unction)664 2322 y FJ(M\(exp,template\))
664 2484 y FQ(The)30 b(template)h(is)e(matc)m(hed)i(against)f(the)h
(expression.)39 b(If)30 b(the)g(template)h(is)e(literally)664
2597 y(equal)36 b(to)i(the)f(expression)e FJ(T)h FQ(is)g(returned.)59
b(If)36 b(the)h(template)g(is)f(literally)e(equal)i(to)664
2710 y(the)h(expression)f(after)h(replacing)e(the)i(generic)g(v)-5
b(ariables)35 b(b)m(y)i(their)f(bindings)d(then)664 2823
y(the)j(set)h(of)f(bindings)d(is)i(returned)g(as)h(a)h(set)g(of)f
(replacemen)m(ts.)58 b(Otherwise)35 b FJ(NIL)g FQ(is)664
2936 y(returned.)664 3165 y FH(OPERATOR)40 b(F;)664 3365
y(M\(F\(A\),F\(A\)\);)664 3564 y(T)664 3763 y(M\(F\(A,B\),F\(A,?A\)\))o
(;)664 3962 y({?A->B})664 4162 y(M\(F\(A,B\),F\(??A\)\);)664
4361 y({??A->[A,B]})664 4560 y(m\(a+b+c,c+?a+?b\);)664
4759 y({?a->a,?b->b})664 4959 y(m\(a+b+c,b+?a\);)p eop
%%Page: 471 471
471 470 bop 241 299 a @beginspecial @setspecial @endspecial
FM(62.2.)72 b(QUALIFIED)31 b(MA)-8 b(TCHING)1529 b FQ(471)241
655 y FH({?a->a)41 b(+)i(c})241 896 y FQ(This)23 b(example)h(sho)m(ws)g
(the)h(e\013ects)h(of)f(seman)m(tic)g(matc)m(hing,)i(using)c(the)i
(asso)s(ciativit)m(y)241 1009 y(and)30 b(comm)m(utativit)m(y)h(of)f
FJ(+)p FQ(.)241 1160 y @beginspecial @setspecial @endspecial
182 x FE(62.2)135 b(Quali\014ed)46 b(Matc)l(hing)241
1595 y FQ(A)39 b(template)h(ma)m(y)h(b)s(e)e(quali\014ed)e(b)m(y)j(the)
f(use)h(of)f(the)h(conditional)e(op)s(erator)p 3058 1595
29 4 v 74 w FJ(=',)241 1708 y FQ(standing)e(for)i FN(suc)m(h)44
b(that)p FQ(.)62 b(When)37 b(a)h(suc)m(h-that)h(condition)d(is)h
(encoun)m(tered)h(in)e(a)241 1820 y(template)k(it)f(is)g(held)f(un)m
(til)g(all)h(generic)h(v)-5 b(ariables)38 b(app)s(earing)g(in)h
(logical-exp)g(are)241 1933 y(b)s(ound.)71 b(On)41 b(the)h(binding)c
(of)k(the)f(last)g(generic)h(v)-5 b(ariable)40 b(logical-exp)h(is)f
(simpli-)241 2046 y(\014ed)c(and)h(if)e(the)j(result)e(is)g(not)h
FJ(T)g FQ(the)g(condition)e(fails)h(and)g(the)h(pattern)h(matc)m(her)
241 2159 y(bac)m(ktrac)m(ks.)59 b(When)36 b(the)g(template)h(has)e(b)s
(een)h(fully)d(parsed)i(an)m(y)i(remaining)d(held)241
2272 y(suc)m(h-that)d(conditions)e(are)h(ev)-5 b(aluated)31
b(and)f(compared)g(to)h FJ(T)p FQ(.)241 2500 y FH(load_package)38
b(pm;)241 2699 y(operator)i(f;)241 2898 y(if)j(\(m\(f\(a,b\),f\(?a,)o
(?b)o(_=\()o(?a)o(=?b)o(\)\))o(\)\))37 b(then)42 b(write)g("yes")f
(else)h(write"no";)241 3097 y(no)241 3297 y(m\(f\(a,a\),f\(?a,?b)o(_=)o
(\(?)o(a=?)o(b\))o(\)\);)241 3496 y({?B->A,?A->A})241
3642 y @beginspecial @setspecial @endspecial 187 x FE(62.3)135
b(Substituting)46 b(for)f(replacemen)l(ts)241 4082 y
FQ(The)30 b(op)s(erator)g FJ(S)g FQ(substitutes)f(the)i(replacemen)m
(ts)g(in)e(an)h(expression.)241 4245 y FJ(S\(exp,temp1->sub1,temp2)o
(->su)o(b2,.)o(..,)o(rept)o(,)42 b(depth\);)241 4407
y FQ(will)30 b(do)j(the)h(substitutions)d(for)i(a)g(maxim)m(um)f(of)i
FJ(rept)e FQ(and)g(to)i(a)g(depth)e(of)i FJ(depth)p FQ(,)241
4520 y(using)f(a)i(breadth-\014rst)f(searc)m(h)h(and)f(replace.)54
b FJ(rept)34 b FQ(and)g FJ(depth)f FQ(ma)m(y)i(b)s(e)f(omitted)241
4633 y(when)29 b(they)i(default)e(to)i(1)g(and)f(in\014nit)m(y)-8
b(.)241 4796 y FJ(SI\(exp,temp1->sub1,temp)o(2->s)o(ub2,)o(...)o(,)42
b(depth\))241 4959 y FQ(will)27 b(substitute)j(in\014nitely)d(man)m(y)k
(times)e(un)m(til)g(expression)g(stops)i(c)m(hanging.)p
eop
%%Page: 472 472
472 471 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(472)509 b FM(CHAPTER)30 b(62.)72 b(PM:)31 b(A)f(REDUCE)g(P)-8
b(A)g(TTERN)31 b(MA)-8 b(TCHER)664 555 y FJ(SD\(exp,temp1->sub1,temp2-)
o(>sub)o(2,.)o(..,r)o(ept,)41 b(depth\))664 718 y FQ(is)30
b(a)g(depth-\014rst)g(v)m(ersion)f(of)i FJ(S)p FQ(.)664
949 y FH(s\(f\(a,b\),f\(a,?b\)-)o(>?)o(b^)o(2\);)708
1148 y(2)664 1248 y(b)664 1447 y(s\(a+b,a+b->a*b\);)664
1646 y(a*b)664 1945 y(operator)40 b(nfac;)664 2144 y
(s\(nfac\(3\),{nfac\(0)o(\)-)o(>1)o(,nf)o(ac)o(\(?x)o(\)-)o(>?x)o(*n)o
(fa)o(c\(?)o(x-)o(1\)})o(\);)664 2343 y(3*nfac\(2\))664
2543 y(s\(nfac\(3\),{nfac\(0)o(\)-)o(>1)o(,nf)o(ac)o(\(?x)o(\)-)o(>?x)o
(*n)o(fa)o(c\(?)o(x-)o(1\)})o(,2)o(\);)664 2742 y(6*nfac\(1\))664
2941 y(si\(nfac\(4\),{nfac\()o(0\))o(->)o(1,n)o(fa)o(c\(?)o(x\))o(->?)o
(x*)o(nf)o(ac\()o(?x)o(-1\))o(}\))o(;)664 3141 y(24)664
3340 y(s\(a+b+f\(a+b\),a+b-)o(>a)o(*b)o(,in)o(f,)o(0\);)664
3539 y(f\(a)j(+)g(b\))f(+)i(a*b)664 3776 y @beginspecial
@setspecial @endspecial 199 x FE(62.4)136 b(Programming)46
b(with)f(P)l(atterns)664 4228 y FQ(There)31 b(are)i(also)e(facilities)f
(to)j(use)e(this)g(pattern-matc)m(her)i(as)f(a)g(programming)e(lan-)664
4341 y(guage.)64 b(The)38 b(op)s(erator)g FJ(:-)f FQ(can)h(b)s(e)f
(used)g(to)i(declare)e(that)i(while)c(simplifying)f(all)664
4453 y(matc)m(hes)28 b(of)e(a)h(template)f(should)f(b)s(e)g(replaced)h
(b)m(y)g(some)h(expression.)38 b(The)26 b(op)s(erator)664
4566 y FJ(::-)k FQ(is)f(the)i(same)f(except)i(that)f(the)f(left)g(hand)
g(side)f(is)g(not)i(simpli\014ed.)664 4797 y FH(operator)40
b(fac,)i(gamma;)p eop
%%Page: 473 473
473 472 bop 241 299 a @beginspecial @setspecial @endspecial
FM(62.4.)72 b(PR)m(OGRAMMING)32 b(WITH)e(P)-8 b(A)g(TTERNS)1038
b FQ(473)241 555 y FH(fac\(?x_=Natp\(?x\))o(\))37 b(::-)43
b(?x*fac\(?x-1\);)241 754 y(HOLD\(FAC\(?X-1\)*?)o(X\))241
954 y(fac\(0\))84 b(:-)43 b(1;)241 1153 y(1)241 1352
y(fac\(?x\))d(:-)j(Gamma\(?x+1\);)241 1551 y(GAMMA\(?X)d(+)j(1\))241
1751 y(fac\(3\);)241 1950 y(6)241 2149 y(fac\(3/2\);)241
2348 y(GAMMA\(5/2\))p eop
%%Page: 474 474
474 473 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(474)509 b FM(CHAPTER)30 b(62.)72 b(PM:)31 b(A)f(REDUCE)g(P)-8
b(A)g(TTERN)31 b(MA)-8 b(TCHER)p eop
%%Page: 475 475
475 474 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(63)241 1693 y FT(QSUM)77 b(:)g(P)-6 b(ac)g(k)-13 b(age)76
b(for)241 1942 y Fi(q)p FT(-h)-6 b(yp)6 b(ergeometric)78
b(sums)1511 2424 y Fx(Harald)26 b(B\177)-38 b(oing)1478
2515 y(W)-6 b(olfram)26 b(Ko)r(epf)839 2607 y(Konrad-Zuse-Zen)n(trum)d
(f)r(\177)-41 b(ur)27 b(Informationstec)n(hnik)e(Berlin)1521
2698 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1340 2789
y(D-14195)g(Berlin-Dahlem)1387 2881 y(e-mail:)35 b(k)n(o)r(epf@zib.de)
241 3125 y FQ(This)28 b(pac)m(k)-5 b(age)32 b(is)d(an)h(implemen)m
(tation)f(of)h(the)h FL(q)s FQ(-analogues)f(of)g(Gosp)s(er's)g(and)g
(Zeil-)241 3238 y(b)s(erger's)20 b @beginspecial @setspecial
@endspecial -33 x FO(1)632 3238 y FQ(algorithm)g(for)g(inde\014nite)d
(and)j(de\014nite)f(summation)g(of)i FL(q)s FQ(-h)m(yp)s(ergeometric)
241 3350 y(terms,)30 b(resp)s(ectiv)m(ely)-8 b(.)241
3513 y(An)29 b(expression)g FL(a)875 3528 y FF(k)947
3513 y FQ(is)g(called)g(a)h FL(q)s FM(-h)m(yp)s(ergeometric)g(term)p
FQ(,)h(if)d FL(a)2456 3528 y FF(k)2499 3513 y FL(=a)2592
3528 y FF(k)r Fu(\000)p FO(1)2755 3513 y FQ(is)h(a)h(rational)241
3626 y(function)35 b(with)h(resp)s(ect)h(to)h FL(q)1297
3593 y FF(k)1339 3626 y FQ(.)60 b(Most)38 b FL(q)s FQ(-terms)f(are)g
(based)g(on)g(the)g FL(q)s FM(-shifted)f(fac-)241 3739
y(torial)30 b FQ(or)g FM(qp)s(o)s(c)m(hhammer)p FQ(.)40
b(Other)30 b(t)m(ypical)h FL(q)s FQ(-h)m(yp)s(ergeometric)f(terms)h
(are)g(ratios)f(of)241 3852 y(pro)s(ducts)d(of)h(p)s(o)m(w)m(ers,)h
FL(q)s FQ(-factorials,)g FL(q)s FQ(-binomial)d(co)s(e\016cien)m(ts,)k
(and)e FL(q)s FQ(-shifted)f(facto-)241 3965 y(rials)h(that)j(are)g(in)m
(teger-linear)f(in)f(their)g(argumen)m(ts.)241 4078 y(The)h(pac)m(k)-5
b(age)32 b(is)d(loaded)h(with)f FJ(load)p 1550 4078 29
4 v 34 w(package)45 b(qsum)p FQ(.)241 4235 y @beginspecial
@setspecial @endspecial 179 x FE(63.1)135 b(Elemen)l(tary)47
b Fh(q)p FE(-F)-11 b(unctions)241 4667 y FQ(The)30 b(pac)m(k)-5
b(age)32 b(supp)s(orts)c(the)j(input)d(of)j(the)g(follo)m(wing)d
(elemen)m(tary)j FM(q)p FQ(-functions:)p 241 4728 1196
4 v 344 4782 a Fy(1)379 4814 y @beginspecial @setspecial
@endspecial Fx(The)d Fg(ZEILBERG)i Fx(pac)n(k)l(age)e(\(Chap.)42
b @beginspecial @setspecial @endspecial(89)29 b(p.)41
b @beginspecial @setspecial @endspecial(599)q(,)29 b(see)g(also)g([)p
@beginspecial @setspecial @endspecial(13)r(]\))f(con)n(tains)g(the)g(h)
n(yp)r(ergeometric)241 4905 y(v)n(ersions.)1667 5187
y FQ(475)p eop
%%Page: 476 476
476 475 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(476)562 b FM(CHAPTER)29 b(63.)72 b(QSUM:)30 b(Q-HYPER)m(GEOMETRIC)g
(SUMS)801 555 y FP(\017)45 b FJ(qpochhammer\(a,q,infinity\))1784
818 y FQ(\()p FL(a)p FQ(;)31 b FL(q)s FQ(\))2002 845
y Fu(1)2102 818 y FQ(:=)2249 712 y Fu(1)2232 737 y FB(Y)2223
919 y FF(j)t FO(=0)2361 724 y FB(\020)2411 818 y FQ(1)20
b FP(\000)g FL(a)15 b(q)2674 780 y FF(j)2711 724 y FB(\021)801
1140 y FP(\017)45 b FJ(qpochhammer\(a,q,k\))1364 1466
y FQ(\()p FL(a)p FQ(;)31 b FL(q)s FQ(\))1582 1493 y FF(k)1650
1466 y FQ(:=)1771 1269 y FB(8)1771 1343 y(>)1771 1368
y(<)1771 1518 y(>)1771 1543 y(:)1958 1280 y(Q)2037 1306
y FF(k)r Fu(\000)p FO(1)2037 1371 y FF(j)t FO(=0)2185
1275 y FB(\000)2223 1345 y FQ(1)20 b FP(\000)g FL(a)15
b(q)2486 1312 y FF(j)2523 1275 y FB(\001)2798 1345 y
FQ(if)30 b FL(k)e(>)d FQ(0)2237 1462 y(1)516 b(if)30
b FL(k)e FQ(=)d(0)1887 1526 y FB(Q)1965 1552 y FF(k)1965
1613 y(j)t FO(=1)2107 1521 y FB(\000)2145 1590 y FQ(1)c
FP(\000)f FL(a)15 b(q)2409 1557 y Fu(\000)p FF(j)2500
1521 y FB(\001)2538 1539 y Fu(\000)p FO(1)2798 1590 y
FQ(if)30 b FL(k)e(<)d FQ(0)801 1826 y FP(\017)45 b FJ(qbrackets\(k,q\))
1975 1995 y FQ([)p FL(q)s(;)15 b(k)s FQ(])26 b(:=)2316
1933 y FL(q)2360 1900 y FF(k)2423 1933 y FP(\000)20 b
FQ(1)p 2316 1974 244 4 v 2338 2057 a FL(q)j FP(\000)d
FQ(1)801 2238 y FP(\017)45 b FJ(qfactorial\(k,q\))1950
2396 y FQ([)p FL(k)s FQ(])2050 2410 y FF(q)2089 2396
y FQ(!)25 b(:=)2299 2334 y(\()p FL(q)s FQ(;)31 b FL(q)s
FQ(\))2513 2361 y FF(k)p 2271 2375 314 4 v 2271 2458
a FQ(\(1)21 b FP(\000)e FL(q)s FQ(\))2541 2432 y FF(k)801
2644 y FP(\017)45 b FJ(qbinomial\(n,k,q\))1746 2767 y
FB( )1812 2849 y FL(n)1814 2973 y(k)1867 2767 y FB(!)1917
3017 y FF(q)1980 2911 y FQ(:=)2319 2849 y(\()q FL(q)s
FQ(;)30 b FL(q)s FQ(\))2533 2876 y FF(n)p 2112 2890 677
4 v 2112 2973 a FQ(\()p FL(q)s FQ(;)g FL(q)s FQ(\))2326
3000 y FF(k)2388 2973 y FP(\001)21 b FQ(\()p FL(q)s FQ(;)31
b FL(q)s FQ(\))2648 3000 y FF(n)p Fu(\000)p FF(k)801
3230 y FP(\017)45 b FJ(qphihyperterm\({a1,a2,...,a)o(r},{)o(b1,)o(b2,.)
o(..,b)o(s},)o(q,z,)o(k\))1355 3386 y Fu(1)1330 3411
y FB(X)1326 3596 y FF(k)r FO(=0)1479 3431 y FQ(\()q FL(a)1563
3445 y FO(1)1602 3431 y FL(;)15 b(a)1690 3445 y FO(2)1730
3431 y FL(;)g(:)g(:)g(:)i(;)e(a)1980 3445 y FF(r)2018
3431 y FQ(;)31 b FL(q)s FQ(\))2153 3458 y FF(k)p 1479
3471 717 4 v 1493 3555 a FQ(\()q FL(b)1568 3569 y FO(1)1607
3555 y FL(;)15 b(b)1686 3569 y FO(2)1726 3555 y FL(;)g(:)g(:)g(:)i(;)e
(b)1967 3569 y FF(s)2004 3555 y FQ(;)31 b FL(q)s FQ(\))2139
3581 y FF(k)2314 3431 y FL(z)2360 3398 y FF(k)p 2231
3471 257 4 v 2231 3555 a FQ(\()p FL(q)s FQ(;)f FL(q)s
FQ(\))2445 3581 y FF(k)2527 3398 y FB(h)2567 3492 y FQ(\()p
FP(\000)p FQ(1\))2753 3455 y FF(k)2811 3492 y FL(q)2855
3460 y FQ(\()2891 3423 y Fp(k)2892 3480 y Fy(2)2925 3460
y FQ(\))2964 3398 y FB(i)3003 3415 y FO(1+)p FF(s)p Fu(\000)p
FF(r)801 3804 y FP(\017)45 b FJ(qpsihyperterm\({a1,a2,...,a)o(r},{)o
(b1,)o(b2,.)o(..,b)o(s},)o(q,z,)o(k\))1493 3961 y Fu(1)1469
3986 y FB(X)1419 4170 y FF(k)r FO(=)p Fu(\0001)1663 4005
y FQ(\()q FL(a)1747 4019 y FO(1)1786 4005 y FL(;)15 b(a)1874
4019 y FO(2)1914 4005 y FL(;)g(:)g(:)g(:)i(;)e(a)2164
4019 y FF(r)2202 4005 y FQ(;)31 b FL(q)s FQ(\))2337 4032
y FF(k)p 1663 4046 717 4 v 1677 4129 a FQ(\()q FL(b)1752
4143 y FO(1)1791 4129 y FL(;)15 b(b)1870 4143 y FO(2)1910
4129 y FL(;)g(:)g(:)g(:)i(;)e(b)2151 4143 y FF(s)2188
4129 y FQ(;)30 b FL(q)s FQ(\))2323 4156 y FF(k)2405 4067
y FL(z)2451 4029 y FF(k)2524 3973 y FB(h)2563 4067 y
FQ(\()p FP(\000)p FQ(1\))2749 4029 y FF(k)2808 4067 y
FL(q)2852 4034 y FQ(\()2887 3998 y Fp(k)2889 4054 y Fy(2)2921
4034 y FQ(\))2960 3973 y FB(i)3000 3989 y FF(s)p Fu(\000)p
FF(r)664 4391 y FQ(where)g(\()p FL(a)1010 4405 y FO(1)1050
4391 y FL(;)15 b(a)1138 4405 y FO(2)1178 4391 y FL(;)g(:)g(:)g(:)h(;)f
(a)1427 4405 y FF(r)1466 4391 y FQ(;)30 b FL(q)s FQ(\))1601
4418 y FF(k)1674 4391 y FQ(stands)f(for)i(the)f(pro)s(duct)2594
4327 y FB(Q)2673 4353 y FF(r)2673 4414 y(j)t FO(=1)2815
4391 y FQ(\()p FL(a)2898 4405 y FF(j)2934 4391 y FQ(;)h
FL(q)s FQ(\))3069 4421 y FF(k)3112 4391 y FQ(.)p eop
%%Page: 477 477
477 476 bop 241 299 a @beginspecial @setspecial @endspecial
FM(63.2.)72 b(THE)30 b Ff(QGOSPER)f FM(OPERA)-8 b(TOR)1478
b FQ(477)241 464 y @beginspecial @setspecial @endspecial
91 x FE(63.2)135 b(The)45 b Fe(QGOSPER)c FE(op)t(erator)241
808 y FQ(The)27 b FJ(qgosper)f FQ(op)s(erator)j(is)e(an)h(implemen)m
(tation)e(of)j(the)f FL(q)s FQ(-Gosp)s(er)g(algorithm)f([)p
@beginspecial @setspecial @endspecial(14)q(].)377 1017
y FP(\017)46 b FJ(qgosper\(a,q,k\))36 b FQ(determines)k(a)g
FL(q)s FQ(-h)m(yp)s(ergeometric)h(an)m(tidi\013erence.)70
b(\(By)468 1130 y(default)36 b(it)f(returns)h(a)g FM(do)m(wn)m(w)m(ard)
g FQ(an)m(tidi\013erence,)i(whic)m(h)d(ma)m(y)i(b)s(e)f(c)m(hanged)468
1243 y(b)m(y)23 b(the)g(switc)m(h)g FJ(qgosper_down)p
FQ(.\))35 b(If)23 b(it)f(do)s(es)h(not)h(return)e(a)h
FM(q)r FQ(-h)m(yp)s(ergeometric)468 1356 y(an)m(tidi\013erence,)30
b(then)g(suc)m(h)g(an)h(an)m(tidi\013erence)e(do)s(es)h(not)h(exist.)
377 1532 y FP(\017)46 b FJ(qgosper\(a,q,k,m,n\))20 b
FQ(determines)j(a)i(closed)f(form)m(ula)g(for)g(the)h(de\014nite)e(sum)
1774 1654 y FF(n)1736 1679 y FB(X)1718 1864 y FF(k)r
FO(=)p FF(m)1889 1760 y FL(a)1937 1775 y FF(k)468 2000
y FQ(using)31 b(the)h FL(q)s FQ(-analogue)h(of)g(Gosp)s(er's)f
(algorithm.)45 b(This)31 b(is)g(only)g(successful)h(if)468
2113 y FM(q)r FQ(-Gosp)s(er's)f(algorithm)e(applies.)241
2309 y FN(Example:)241 2515 y FH(1:)43 b(qgosper\(qpochha)o(mm)o(er\()o
(a,)o(q,k)o(\)*)o(q^k)o(/q)o(po)o(chh)o(am)o(mer)o(\(q)o(,q)o(,k\))o
(,q)o(,k\))o(;)372 2714 y(k)284 2814 y(\(q)g(*a)g(-)g
(1\)*qpochhammer\(a)o(,q,)o(k\))241 2913 y(----------------)o(--)o(--)o
(---)o(--)o(---)o(--)o(-)328 3013 y(\(a)g(-)g(1\)*qpochhammer\(q)o(,q)o
(,k\))241 3244 y @beginspecial @setspecial @endspecial
199 x FE(63.3)135 b(The)45 b Fe(QSUMRECURSION)38 b FE(op)t(erator)241
3696 y FQ(The)e FJ(QSUMRECURSION)d FQ(op)s(erator)j(is)g(an)g(implemen)
m(tation)g(of)g(the)h FL(q)s FQ(-Zeilb)s(erger)e(al-)241
3809 y(gorithm)f([)p @beginspecial @setspecial @endspecial(14)q(].)53
b(It)34 b(tries)g(to)i(determine)d(a)i(homogeneous)g(recurrence)f
(equation)h(for)241 3922 y(s)p FL(umm)o FQ(\()p FL(n)p
FQ(\))c(wrt.)40 b FL(n)30 b FQ(with)f(p)s(olynomial)f(co)s(e\016cien)m
(ts)j(\(in)e FL(n)p FQ(\),)i(where)1224 4203 y(s)p FL(umm)p
FQ(\()p FL(n)p FQ(\))25 b(:=)1817 4097 y Fu(1)1793 4122
y FB(X)1743 4306 y FF(k)r FO(=)p Fu(\0001)1977 4203 y
FQ(f\()p FL(n;)15 b(k)s FQ(\))q FL(:)241 4505 y FQ(There)23
b(are)i(three)g(di\013eren)m(t)e(w)m(a)m(ys)i(to)g(pass)f(a)h(summand)d
(f\()p FL(n;)15 b(k)s FQ(\))25 b(to)g FJ(qsumrecursion)p
FQ(:)377 4733 y FP(\017)46 b FJ(qsumrecursion\(f,q,k,n\))p
FQ(,)21 b(where)k FJ(f)h FQ(is)e(a)i FL(q)s FQ(-h)m(yp)s(ergeometric)g
(term)g(wrt.)39 b FJ(k)468 4846 y FQ(and)33 b FJ(n)p
FQ(,)g FJ(k)g FQ(is)f(the)i(summation)e(v)-5 b(ariable)31
b(and)i FJ(n)g FQ(the)g(recursion)f(v)-5 b(ariable,)33
b FJ(q)f FQ(is)468 4959 y(a)f(sym)m(b)s(ol.)p eop
%%Page: 478 478
478 477 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(478)562 b FM(CHAPTER)29 b(63.)72 b(QSUM:)30 b(Q-HYPER)m(GEOMETRIC)g
(SUMS)801 555 y FP(\017)45 b FJ(qsumrecursion\(upper,lower,)o(q,z,)o
(n\))24 b FQ(is)29 b(a)i(shortcut)g(for)891 668 y FJ
(qsumrecursion\(qphihyperter)o(m\(up)o(per)o(,low)o(er,q)o(,z,)o(k\),q)
o(,k,n)o(\))801 848 y FP(\017)45 b FJ(qsumrecursion\(f,upper,lowe)o
(r,q,)o(z,n)o(\))24 b FQ(is)30 b(a)h(similar)c(shortcut)k(for)891
961 y FJ(qsumrecursion\(f*qphihypert)o(erm\()o(upp)o(er,l)o(ower)o(,q,)
o(z,k\))o(,q,k)o(,n\))o FQ(,)664 1199 y(i.)15 b(e.)32
b FJ(upper)f FQ(and)g FJ(lower)g FQ(are)h(lists)f(of)h(upp)s(er)e(and)h
(lo)m(w)m(er)i(parameters)f(of)g(the)g(gener-)664 1312
y(alized)g FL(q)s FQ(-h)m(yp)s(ergeometric)g(function.)45
b(The)32 b(third)e(form)i(is)f(handy)g(if)h(y)m(ou)g(ha)m(v)m(e)i(an)m
(y)664 1424 y(additional)28 b(factors.)664 1587 y(F)-8
b(or)32 b(all)d(three)i(instances)g(it)f(is)g(p)s(ossible)e(to)k(pass)e
(the)h(order,)g(if)e(kno)m(wn)i(in)e(adv)-5 b(ance,)664
1700 y(as)30 b(additional)d(argumen)m(t)j(at)g(the)g(end)e(of)i(the)g
(parameter)g(sequence.)40 b(Y)-8 b(ou)30 b(can)g(also)664
1813 y(sp)s(eci\014y)c(a)h(range)h(b)m(y)f(a)g(list)f(of)h(t)m(w)m(o)h
(p)s(ositiv)m(e)f(in)m(tegers,)h(the)f(\014rst)f(one)i(sp)s(ecifying)d
(the)664 1926 y(lo)m(w)m(est)g(and)f(the)h(second)f(one)h(the)g
(highest)e(order.)38 b(By)25 b(default)f FJ(QSUMRECURSION)d
FQ(will)664 2039 y(searc)m(h)37 b(for)e(recurrences)g(of)h(order)g
(from)f(1)h(to)g(5.)58 b(Usually)34 b(it)h(uses)g FJ(summ)g
FQ(as)h(name)664 2152 y(for)e(the)g(summ-function.)48
b(If)34 b(y)m(ou)g(w)m(an)m(t)g(to)h(c)m(hange)g(this)d(b)s(eha)m
(viour)h(then)g(use)h(the)664 2265 y(follo)m(wing)29
b(syn)m(tax:)41 b FJ(QSUMRECURSION\(f,q,k,s\(n\)\))o
FQ(.)664 2491 y FH(2:)i(qsumrecursion\(qp)o(oc)o(hha)o(mm)o(er\()o(q^)o
(\(-n)o(\),)o(q,)o(k\)*)o(z^)o(k)38 b(/)1405 2591 y(qpochhammer\(q,q,k)
o(\),)o(q,)o(k,n)o(\);)926 2790 y(n)915 b(n)664 2890
y(-)43 b(\(\(q)86 b(-)43 b(z\)*summ\(n)d(-)j(1\))g(-)g(q)h
(*summ\(n\)\))664 3042 y @beginspecial @setspecial @endspecial
180 x FE(63.4)136 b(Global)45 b(V)-11 b(ariables)46 b(and)f(Switc)l
(hes)664 3475 y FQ(There)55 b(are)h(sev)m(eral)g(switc)m(hes)f
(de\014ned)f(in)h(the)g FJ(QSUM)g FQ(pac)m(k)-5 b(age.)118
b(Please)55 b(tak)m(e)664 3588 y(a)i(lo)s(ok)f(in)f(the)i(accompan)m
(ying)g(do)s(cumen)m(tation)f(\014le)g FJ(qsum.tex)e
FQ(in)h($REDU-)664 3701 y(CEP)-8 b(A)g(TH/pac)m(k)j(ages/.)664
3977 y(The)30 b(most)h(imp)s(ortan)m(t)e(switc)m(hes)h(are:)801
4215 y FP(\017)45 b FJ(qgosper_down)p FQ(,)32 b(default)h(setting)h(is)
e(on.)51 b(It)34 b(determines)f(whether)g FJ(qgosper)891
4328 y FQ(returns)27 b(a)i(do)m(wn)m(w)m(ard)f(or)g(an)g(up)m(w)m(ard)f
(an)m(tidi\013erence)h FL(g)2863 4343 y FF(k)2934 4328
y FQ(for)g(the)h(input)d(term)891 4440 y FL(a)939 4455
y FF(k)982 4440 y FQ(,)31 b(.)15 b(e.)31 b FL(a)1222
4455 y FF(k)1290 4440 y FQ(=)25 b FL(g)1429 4455 y FF(k)1492
4440 y FP(\000)20 b FL(g)1626 4455 y FF(k)r Fu(\000)p
FO(1)1790 4440 y FQ(or)30 b FL(a)1949 4455 y FF(k)2017
4440 y FQ(=)25 b FL(g)2156 4455 y FF(k)r FO(+1)2309 4440
y FP(\000)20 b FL(g)2443 4455 y FF(k)2517 4440 y FQ(resp)s(ectiv)m(ely)
-8 b(.)801 4620 y FP(\017)45 b FJ(qsumrecursion_certificate)p
FQ(,)30 b(default)35 b(o\013.)56 b(As)35 b(Zeilb)s(erger's)f(algorithm)
891 4733 y(deliv)m(ers)27 b(a)h(recurrence)g(equation)g(for)g(a)g
FL(q)s FQ(-h)m(yp)s(ergeometric)g(term)g(f\()p FL(n;)15
b(k)s FQ(\))29 b(this)891 4846 y(switc)m(h)g(is)f(used)g(to)h(get)h
(all)e(necessary)i(informations)d(for)h(pro)m(ving)g(this)g(recur-)891
4959 y(rence)j(equation.)p eop
%%Page: 479 479
479 478 bop 241 299 a @beginspecial @setspecial @endspecial
FM(63.4.)72 b(GLOBAL)31 b(V)-10 b(ARIABLES)30 b(AND)h(SWITCHES)892
b FQ(479)468 555 y(If)43 b(it)g(is)f(set)i(on,)j(instead)c(of)g(simply)
e(returning)h(the)h(resulting)f(recurrence)468 668 y(equation)36
b(\(for)g(the)h(sum\)|if)d(one)j(exists|)p FJ(qsumrecursion)32
b FQ(returns)j(a)i(list)468 781 y FJ({rec,cert,f,k,dir})i
FQ(with)k(\014v)m(e)i(items:)68 b(The)44 b(\014rst)f(en)m(try)i(con)m
(tains)f(the)468 894 y(recurrence)d(equation,)k(while)39
b(the)j(other)f(items)g(enable)g(y)m(ou)h(to)g(pro)m(v)m(e)g(the)468
1007 y(recurrence)30 b(a)h(p)s(osteriori)e(b)m(y)h(rational)f
(arithmetic.)468 1157 y(If)j(w)m(e)g(denote)g(b)m(y)g
FJ(r)g FQ(the)g(recurrence)g FJ(rec)f FQ(where)g(w)m(e)i(substituted)d
(the)i FJ(summ)p FQ(-)468 1270 y(function)26 b(b)m(y)h(the)h(input)d
(term)j FJ(f)f FQ(\(with)f(the)i(corresp)s(onding)d(shifts)h(in)g
FJ(n)p FQ(\))i(then)468 1383 y(the)j(follo)m(wing)d(equation)j(is)e(v)
-5 b(alid:)1133 1587 y FJ(r)47 b(=)h(cert*f)e(-)h(sub\(k=k-1,cert*f\))
468 1791 y FQ(or)1133 1904 y FJ(r)g(=)h(sub\(k=k+1,cert*f\))43
b(-)k(cert*f)468 2071 y FQ(if)h FJ(dir=downward_antidiffer)o(ence)42
b FQ(or)48 b FJ(dir=upward_antidifference)468 2184 y
FQ(resp)s(ectiv)m(ely)-8 b(.)241 2446 y(There)30 b(is)f(one)i(global)e
(v)-5 b(ariable:)377 2709 y FP(\017)46 b FJ(qsumrecursion_recrange!*)33
b FQ(con)m(trols)40 b(for)f(whic)m(h)f(recursion)g(orders)h(the)468
2822 y(pro)s(cedure)32 b FJ(qsumrecursion)d FQ(lo)s(oks.)48
b(It)33 b(has)f(to)i(b)s(e)e(a)h(list)f(with)f(t)m(w)m(o)j(en)m(tries,)
468 2935 y(the)j(\014rst)g(one)g(represen)m(ting)f(the)i(lo)m(w)m(est)g
(and)e(the)h(second)h(one)f(the)g(highest)468 3048 y(order)30
b(of)g(a)h(recursion)e(to)i(searc)m(h)g(for.)41 b(By)30
b(default)g(it)g(is)f(set)i(to)g FJ({1,5})p FQ(.)p eop
%%Page: 480 480
480 479 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(480)562 b FM(CHAPTER)29 b(63.)72 b(QSUM:)30 b(Q-HYPER)m(GEOMETRIC)g
(SUMS)p eop
%%Page: 481 481
481 480 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(64)241 1693 y FT(RANDPOL)-19 b(Y:)74 b(A)j(random)241
1942 y(p)6 b(olynomial)76 b(generator)1443 2424 y Fx(F)-6
b(rancis)26 b(J.)g(W)-6 b(righ)n(t)580 2515 y(Sc)n(ho)r(ol)27
b(of)f(Mathematical)h(Sciences,)f(Queen)f(Mary)h(and)f(W)-6
b(est\014eld)26 b(College)1380 2607 y(Univ)n(ersit)n(y)f(of)h(London)
1479 2698 y(Mile)h(End)e(Road)1306 2789 y(London)g(E1)h(4NS,)g(England)
1183 2911 y(e{mail:)35 b(F.J.W)-6 b(righ)n(t@QMW.ac.uk)241
3155 y FQ(The)26 b(op)s(erator)h FJ(RANDPOLY)d FQ(requires)h(at)j
(least)e(one)h(argumen)m(t)g(corresp)s(onding)e(to)i(the)241
3268 y(p)s(olynomial)33 b(v)-5 b(ariable)35 b(or)i(v)-5
b(ariables,)36 b(whic)m(h)f(m)m(ust)i(b)s(e)e(either)h(a)h(single)e
(expression)241 3380 y(or)f(a)g(list)f(of)h(expressions.)50
b(In)33 b(e\013ect,)j FJ(RANDPOLY)c FQ(replaces)i(eac)m(h)h(input)d
(expression)241 3493 y(b)m(y)40 b(an)h(in)m(ternal)e(v)-5
b(ariable)39 b(and)h(then)g(substitutes)f(the)i(input)e(expression)g
(for)h(the)241 3606 y(in)m(ternal)33 b(v)-5 b(ariable)34
b(in)f(the)i(generated)h(p)s(olynomial)c(\(and)i(b)m(y)h(default)e
(expands)h(the)241 3719 y(result)41 b(as)i(usual\).)76
b(The)42 b(rest)h(of)g(this)e(do)s(cumen)m(t)i(uses)f(the)h(term)f(\\v)
-5 b(ariable")43 b(to)241 3832 y(refer)28 b(to)g(a)h(general)f(input)e
(expression)h(or)h(the)g(in)m(ternal)f(v)-5 b(ariable)26
b(used)i(to)g(represen)m(t)241 3945 y(it,)42 b(and)e(all)f(references)i
(to)g(the)f(p)s(olynomial)e(structure,)k(suc)m(h)e(as)h(its)e(degree,)
44 b(are)241 4058 y(with)34 b(resp)s(ect)i(to)h(these)f(in)m(ternal)f
(v)-5 b(ariables.)56 b(The)35 b(actual)i(degree)f(of)g(a)g(generated)
241 4171 y(p)s(olynomial)27 b(migh)m(t)k(b)s(e)e(di\013eren)m(t)h(from)
g(its)g(degree)h(in)e(the)i(in)m(ternal)e(v)-5 b(ariables.)241
4334 y(By)39 b(default,)i(the)e(p)s(olynomial)d(generated)k(has)f
(degree)g(5)h(and)e(con)m(tains)h(6)g(terms.)241 4446
y(Therefore,)44 b(if)c(it)h(is)f(univ)-5 b(ariate)40
b(it)h(is)g(dense)g(whereas)g(if)f(it)h(is)f(m)m(ultiv)-5
b(ariate)41 b(it)f(is)241 4559 y(sparse.)241 4714 y @beginspecial
@setspecial @endspecial 1667 5187 a(481)p eop
%%Page: 482 482
482 481 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(482)463 b FM(CHAPTER)29 b(64.)72 b(RANDPOL)-8 b(Y:)31
b(RANDOM)g(POL)-8 b(YNOMIALS)664 555 y FE(64.1)136 b(Optional)46
b(argumen)l(ts)664 808 y FQ(Other)39 b(argumen)m(ts)h(can)g(optionally)
d(b)s(e)i(sp)s(eci\014ed,)i(in)d(an)m(y)i(order,)h(after)f(the)g
(\014rst)664 921 y(compulsory)30 b(v)-5 b(ariable)30
b(argumen)m(t.)44 b(All)30 b(argumen)m(ts)i(receiv)m(e)g(full)d
(algebraic)i(ev)-5 b(alua-)664 1034 y(tion,)24 b(sub)5
b(ject)22 b(to)i(the)e(curren)m(t)h(switc)m(h)f(settings)g(etc.)40
b(The)22 b(argumen)m(ts)g(are)h(pro)s(cessed)664 1147
y(in)34 b(the)h(order)g(giv)m(en,)h(so)g(that)f(if)f(more)h(than)g(one)
h(argumen)m(t)f(relates)g(to)h(the)f(same)664 1260 y(prop)s(ert)m(y)j
(then)g(the)h(last)f(one)h(sp)s(eci\014ed)e(tak)m(es)i(e\013ect.)67
b(Optional)37 b(argumen)m(ts)i(are)664 1372 y(either)30
b(k)m(eyw)m(ords)h(or)f(equations)g(with)f(k)m(eyw)m(ords)i(on)f(the)h
(left.)664 1535 y(In)d(general,)g(the)h(p)s(olynomial)c(is)i(sparse)h
(b)m(y)g(default,)g(unless)e(the)j(k)m(eyw)m(ord)f FJ(dense)f
FQ(is)664 1648 y(sp)s(eci\014ed)33 b(as)i(an)f(optional)f(argumen)m(t.)
54 b(\(The)34 b(k)m(eyw)m(ord)h FJ(sparse)d FQ(is)i(also)g(accepted,)
664 1761 y(but)40 b(is)f(the)h(default.\))70 b(The)39
b(default)h(degree)g(can)h(b)s(e)e(c)m(hanged)i(b)m(y)f(sp)s(ecifying)e
(an)664 1874 y(optional)30 b(argumen)m(t)h(of)f(the)h(form)1629
2093 y FJ(degree)46 b(=)i FD(natur)-5 b(al)34 b(numb)-5
b(er)p FQ(.)664 2312 y(In)30 b(the)i(m)m(ultiv)-5 b(ariate)30
b(case)i(this)e(is)g(the)h(total)h(degree,)g FD(i.e.)h
FQ(the)e(sum)f(of)h(the)g(degrees)664 2425 y(with)37
b(resp)s(ect)h(to)g(the)g(individual)c(v)-5 b(ariables.)62
b(More)38 b(complicated)g(monomial)f(de-)664 2538 y(gree)d(b)s(ounds)d
(can)i(b)s(e)f(constructed)i(b)m(y)f(using)e(the)i(co)s(e\016cien)m(t)h
(function)e(describ)s(ed)664 2651 y(b)s(elo)m(w)42 b(to)h(return)e(a)i
(monomial)f(or)g(p)s(olynomial)e(co)s(e\016cien)m(t)j(expression.)76
b(More-)664 2764 y(o)m(v)m(er,)39 b FJ(randpoly)34 b
FQ(resp)s(ects)i(in)m(ternally)e(the)i(REDUCE)g(\\asymptotic")h
(commands)664 2877 y FJ(let)p FQ(,)i FJ(weight)e FD(etc.)i
FQ(describ)s(ed)d(in)h(section)h @beginspecial @setspecial
@endspecial(10.4)q(,)i(whic)m(h)d(can)h(b)s(e)g(used)f(to)i(exercise)
664 2990 y(additional)28 b(con)m(trol)j(o)m(v)m(er)h(the)f(p)s
(olynomial)c(generated.)664 3152 y(In)j(the)g(sparse)g(case)h
(\(only\),)g(the)f(default)f(maxim)m(um)g(n)m(um)m(b)s(er)g(of)i(terms)
f(generated)664 3265 y(can)h(b)s(e)f(c)m(hanged)h(b)m(y)f(sp)s
(ecifying)e(an)i(optional)g(argumen)m(t)h(of)f(the)h(form)1653
3485 y FJ(terms)46 b(=)i FD(natur)-5 b(al)34 b(numb)-5
b(er)p FQ(.)664 3704 y(The)39 b(actual)g(n)m(um)m(b)s(er)f(of)h(terms)g
(generated)h(will)c(b)s(e)j(the)g(minim)m(um)d(of)j(the)g(v)-5
b(alue)664 3817 y(of)38 b FJ(terms)f FQ(and)g(the)h(n)m(um)m(b)s(er)f
(of)h(terms)g(in)f(a)h(dense)g(p)s(olynomial)d(of)j(the)h(sp)s
(eci\014ed)664 3930 y(degree,)32 b(n)m(um)m(b)s(er)d(of)h(v)-5
b(ariables,)29 b FD(etc.)664 4084 y @beginspecial @setspecial
@endspecial 182 x FE(64.2)136 b(Adv)-7 b(anced)43 b(use)i(of)h(RANDPOL)
-11 b(Y)664 4519 y FQ(The)29 b(default)g(order)g(\(or)h(minim)m(um)c
(or)k(trailing)d(degree\))k(can)f(b)s(e)e(c)m(hanged)j(b)m(y)e(sp)s
(ec-)664 4631 y(ifying)g(an)h(optional)g(argumen)m(t)g(of)h(the)f(form)
1701 4851 y FJ(ord)47 b(=)g FD(natur)-5 b(al)35 b(numb)-5
b(er)p FQ(.)p eop
%%Page: 483 483
483 482 bop 241 299 a @beginspecial @setspecial @endspecial
FM(64.2.)72 b(AD)m(V)-10 b(ANCED)32 b(USE)e(OF)g(RANDPOL)-8
b(Y)1145 b FQ(483)241 555 y(The)30 b(order)g(normally)e(defaults)h(to)j
(0.)241 718 y(The)41 b(input)f(expressions)g(to)j FJ(randpoly)d
FQ(can)i(also)f(b)s(e)h(equations,)i(in)d(whic)m(h)f(case)241
831 y(the)i(order)g(defaults)g(to)h(1)g(rather)f(than)g(0.)77
b(Input)41 b(equations)h(are)h(con)m(v)m(erted)h(to)241
944 y(the)30 b(di\013erence)f(of)i(their)e(t)m(w)m(o)i(sides)e(b)s
(efore)g(b)s(eing)g(substituted)f(in)m(to)i(the)g(generated)241
1057 y(p)s(olynomial.)66 b(This)38 b(mak)m(es)i(it)g(easy)g(to)g
(generate)i(p)s(olynomials)37 b(with)h(a)i(sp)s(eci\014ed)241
1170 y(zero)31 b({)g(for)f(example)1353 1389 y FJ(randpoly\(x)45
b(=)j(a\);)241 1608 y FQ(generates)32 b(a)g(p)s(olynomial)c(that)k(is)e
(guaran)m(teed)i(to)g(v)-5 b(anish)30 b(at)i FL(x)26
b FQ(=)h FL(a)p FQ(,)k(but)g(is)f(other-)241 1721 y(wise)f(random.)241
1884 y(The)f(op)s(erator)h FJ(randpoly)d FQ(accepts)k(t)m(w)m(o)g
(further)e(optional)g(argumen)m(ts)h(in)e(the)i(form)241
1996 y(of)34 b(equations)g(with)f(the)i(k)m(eyw)m(ords)g
FJ(coeffs)d FQ(and)i FJ(expons)f FQ(on)h(the)h(left.)52
b(The)34 b(righ)m(t)241 2109 y(sides)24 b(of)i(eac)m(h)h(of)f(these)g
(equations)g(m)m(ust)g(ev)-5 b(aluate)26 b(to)h(ob)5
b(jects)26 b(that)g(can)h(b)s(e)e(applied)241 2222 y(as)40
b(functions)e(of)i(no)g(v)-5 b(ariables.)68 b(These)39
b(functions)g(should)f(b)s(e)h(normal)g(algebraic)241
2335 y(pro)s(cedures;)27 b(the)i FJ(coeffs)d FQ(pro)s(cedure)h(ma)m(y)h
(return)f(an)m(y)h(algebraic)g(expression,)f(but)241
2448 y(the)34 b FJ(expons)e FQ(pro)s(cedure)h(m)m(ust)h(return)f(an)h
(in)m(teger.)52 b(The)34 b(v)-5 b(alues)33 b(returned)g(b)m(y)h(the)241
2561 y(functions)f(should)f(normally)g(b)s(e)i(random,)g(b)s(ecause)h
(it)e(is)g(the)i(randomness)e(of)h(the)241 2674 y(co)s(e\016cien)m(ts)k
(and,)h(in)e(the)h(sparse)f(case,)k(of)d(the)g(exp)s(onen)m(ts)f(that)h
(mak)m(es)h(the)f(con-)241 2787 y(structed)30 b(p)s(olynomial)e
(random.)241 2950 y(A)j(con)m(v)m(enien)m(t)g(sp)s(ecial)f(case)h(is)f
(to)i(use)e(the)h(function)e FJ(rand)h FQ(on)g(the)h(righ)m(t)g(of)f
(one)h(or)241 3062 y(b)s(oth)24 b(of)h(these)g(equations;)i(when)d
(called)g(with)g(a)h(single)f(argumen)m(t)h FJ(rand)f
FQ(returns)g(an)241 3175 y(anon)m(ymous)34 b(function)g(of)h(no)f(v)-5
b(ariables)34 b(that)h(generates)h(a)f(random)f(in)m(teger.)54
b(The)241 3288 y(single)36 b(argumen)m(t)i(of)g FJ(rand)f
FQ(should)f(normally)g(b)s(e)h(an)g(in)m(teger)h(range)h(in)d(the)i
(form)241 3401 y FL(a)f(::)i(b)p FQ(,)g(where)f FL(a)p
FQ(,)h FL(b)f FQ(are)g(in)m(tegers)g(suc)m(h)g(that)g
FL(a)f(<)h(b)p FQ(.)62 b(F)-8 b(or)39 b(example,)g(the)f
FJ(expons)241 3514 y FQ(argumen)m(t)31 b(migh)m(t)f(tak)m(e)i(the)e
(form)1234 3733 y FJ(expons)46 b(=)i(rand\(0)e(..)h(n\))241
3952 y FQ(where)39 b FJ(n)h FQ(will)d(b)s(e)i(the)h(maxim)m(um)f
(degree)h(with)f(resp)s(ect)h(to)g(eac)m(h)h(v)-5 b(ariable)39
b FD(inde-)241 4065 y(p)-5 b(endently)p FQ(.)52 b(In)32
b(the)i(case)h(of)e FJ(coeffs)f FQ(the)i(lo)m(w)m(er)g(limit)d(will)g
(often)j(b)s(e)f(the)g(negativ)m(e)241 4178 y(of)h(the)g(upp)s(er)f
(limit)e(to)k(giv)m(e)g(a)f(balanced)g(co)s(e\016cien)m(t)h(range,)h
(so)e(that)h(the)f FJ(coeffs)241 4291 y FQ(argumen)m(t)d(migh)m(t)f
(tak)m(e)i(the)e(form)1210 4510 y FJ(coeffs)46 b(=)i(rand\(-n)e(..)h
(n\))241 4730 y FQ(whic)m(h)29 b(will)f(generate)j(random)f(in)m(teger)
h(co)s(e\016cien)m(ts)g(in)e(the)i(range)f([)p FP(\000)p
FL(n;)15 b(n)p FQ(].)p eop
%%Page: 484 484
484 483 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(484)463 b FM(CHAPTER)29 b(64.)72 b(RANDPOL)-8 b(Y:)31
b(RANDOM)g(POL)-8 b(YNOMIALS)664 555 y FQ(F)g(urther)34
b(information)f(on)h(the)g(the)h(auxiliary)d(functions)h(of)h(RANDPOL)
-8 b(Y)35 b(can)g(b)s(e)664 668 y(found)29 b(in)g(the)i(extended)f(do)s
(cumen)m(tation)g(and)g(examples.)664 823 y @beginspecial
@setspecial @endspecial 181 x FE(64.3)136 b(Examples)664
1244 y FH(randpoly\(x\);)969 1443 y(5)305 b(4)g(3)f(2)708
1543 y(-)43 b(54*x)85 b(-)44 b(92*x)85 b(-)43 b(30*x)86
b(+)43 b(73*x)86 b(-)43 b(69*x)f(-)h(67)664 1842 y(randpoly\({x,)c(y},)
j(terms)g(=)h(20\);)839 2041 y(5)304 b(4)392 b(4)305
b(3)87 b(2)304 b(3)392 b(3)664 2140 y(31*x)86 b(-)43
b(17*x)f(*y)h(-)g(48*x)85 b(-)43 b(15*x)f(*y)87 b(+)43
b(80*x)f(*y)h(+)g(92*x)969 2340 y(2)87 b(3)261 b(2)392
b(2)g(4)g(3)g(2)708 2439 y(+)43 b(86*x)f(*y)86 b(+)43
b(2*x)g(*y)f(-)i(44*x)85 b(+)43 b(83*x*y)85 b(+)43 b(85*x*y)85
b(+)43 b(55*x*y)1667 2639 y(5)304 b(4)261 b(3)305 b(2)708
2738 y(-)43 b(27*x*y)e(+)i(33*x)f(-)h(98*y)86 b(+)43
b(51*y)86 b(-)43 b(2*y)86 b(+)43 b(70*y)85 b(-)43 b(60*y)f(-)i(10)p
eop
%%Page: 485 485
485 484 bop 241 299 a @beginspecial @setspecial @endspecial
FM(64.3.)72 b(EXAMPLES)2082 b FQ(485)241 555 y FH(randpoly\({x,)38
b(sin\(x\),)j(cos\(x\)}\);)1069 754 y(4)523 b(3)609 b(3)241
854 y(sin\(x\)*\()40 b(-)j(4*cos\(x\))84 b(-)43 b(85*cos\(x\))d(*x)j(+)
g(50*sin\(x\))1112 1053 y(2)633 1153 y(-)g(20*sin\(x\))d(*x)j(+)g
(76*sin\(x\)*x)c(+)k(96*sin\(x\)\))p eop
%%Page: 486 486
486 485 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(486)463 b FM(CHAPTER)29 b(64.)72 b(RANDPOL)-8 b(Y:)31
b(RANDOM)g(POL)-8 b(YNOMIALS)p eop
%%Page: 487 487
487 486 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(65)241 1693 y FT(RA)-19 b(T)g(APRX)75 b(:)i(Rational)241
1942 y(Appro)-6 b(ximations)75 b(P)-6 b(ac)g(k)-13 b(age)1531
2415 y Fx(Lisa)26 b(T)-6 b(emme)1478 2506 y(W)g(olfram)26
b(Ko)r(epf)839 2598 y(Konrad-Zuse-Zen)n(trum)d(f)r(\177)-41
b(ur)27 b(Informationstec)n(hnik)e(Berlin)1521 2689 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1162 2780 y(D-14195)g(Berlin-Dahlem,)f
(German)n(y)1387 2872 y(e-mail:)35 b(k)n(o)r(epf@zib.de)241
3116 y FQ(This)28 b(pac)m(k)-5 b(age)33 b(pro)m(vides)c(functions)g(to)
377 3353 y FP(\017)46 b FQ(con)m(v)m(ert)j(rational)e(n)m(um)m(b)s(ers)
f(in)g(their)h(p)s(erio)s(dic)e(represen)m(tation)j(and)f(vice)468
3466 y(v)m(ersa,)377 3654 y FP(\017)f FQ(to)31 b(compute)g(con)m(tin)m
(ued)f(fractions)g(and)377 3841 y FP(\017)46 b FQ(to)31
b(compute)g(the)f(P)m(ad)m(\023)-43 b(e)32 b(appro)m(ximan)m(t)e(of)h
(a)g(function.)241 4079 y(The)25 b(pac)m(k)-5 b(age)28
b(can)f(b)s(e)e(loaded)h(using)e FJ(load)p 1754 4079
29 4 v 33 w(package)46 b(rataprx;)25 b FQ(it)h(sup)s(ersedes)e(the)241
4192 y FJ(contfr)k FQ(pac)m(k)-5 b(age.)241 4346 y @beginspecial
@setspecial @endspecial 182 x FE(65.1)241 4618 y @beginspecial
@setspecial @endspecial 1667 5187 a FQ(487)p eop
%%Page: 488 488
488 487 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(488)295 b FM(CHAPTER)29 b(65.)72 b(RA)-8 b(T)g(APRX:)31
b(RA)-8 b(TIONAL)31 b(APPR)m(O)m(XIMA)-8 b(TIONS)664
555 y FR(65.1.1)113 b(P)m(erio)s(dic)35 b(Represen)m(tation)664
777 y FQ(The)k(function)e FJ(rational2periodic\(n\))d
FQ(con)m(v)m(erts)41 b(a)e(rational)f(n)m(um)m(b)s(er)g
FJ(n)h FQ(in)f(its)664 890 y(p)s(erio)s(dic)28 b(represen)m(tation.)41
b(F)-8 b(or)31 b(example)f(59)p FL(=)p FQ(70)i(is)e(con)m(v)m(erted)i
(to)f(0)p FL(:)p FQ(8)p 3149 821 273 4 v(428571)t(.)664
1002 y(Dep)s(ending)48 b(on)h(the)g(prin)m(t)f(function)g(of)h(y)m(our)
h(REDUCE)f(system,)54 b(calling)48 b(the)664 1115 y(function)f
FJ(rational2periodic)d FQ(migh)m(t)k(result)g(in)f(an)h(expression)f
(of)i(the)f(form)664 1228 y FJ(periodic\()p FP(f)p FJ(a,b)p
FP(g)p FJ(,)p FP(f)p FJ(c)1471 1242 y FO(1)1508 1228
y FJ(,...,c)1796 1242 y FF(n)1841 1228 y FP(g)p FJ(\))p
FQ(.)74 b FJ(a)41 b FQ(and)f FJ(b)h FQ(is)f(the)i(non-p)s(erio)s(dic)c
(part)j(of)h(the)664 1341 y(rational)26 b(n)m(um)m(b)s(er)g
FJ(n)g FQ(and)g FJ(c)1622 1355 y FO(1)1661 1341 y FJ(,...,c)1949
1355 y FF(n)2021 1341 y FQ(are)h(the)g(digits)f(of)h(the)g(p)s(erio)s
(dic)d(part.)39 b(In)26 b(this)664 1454 y(case)32 b(59)p
FL(=)p FQ(70)g(w)m(ould)d(result)h(in)f FJ(periodic\()p
FP(f)p FJ(8,10)p FP(g)p FJ(,)p FP(f)p FJ(4,2,8,5,7,1)p
FP(g)p FJ(\))p FQ(.)664 1567 y(The)23 b(function)g FJ
(periodic2rational\(perio)o(dic)o(\()p FP(f)p FJ(a,b)p
FP(g)p FJ(,)p FP(f)p FJ(c)2863 1581 y FO(1)2897 1567
y FJ(,...,c)3185 1581 y FF(n)3230 1567 y FP(g)p FJ(\)\))71
b FQ(is)23 b(the)664 1680 y(in)m(v)m(erse)40 b(function)e(and)h
(computes)g(the)h(rational)f(expression)f(for)i(a)f(p)s(erio)s(dic)e
(one.)664 1793 y(Note)k(that)f FJ(b)f FQ(is)g(1,-1)h(or)g(a)g(in)m
(teger)f(m)m(ultiple)f(of)h(10.)69 b(If)39 b FJ(a)g FQ(is)f(zero,)43
b(then)c(the)h(in-)664 1906 y(put)28 b(n)m(um)m(b)s(er)f
FJ(b)h FQ(indicates)g(ho)m(w)g(man)m(y)h(places)f(after)h(the)g
(decimal)e(p)s(oin)m(t)h(the)g(p)s(erio)s(d)664 2019
y(o)s(ccurs.)664 2249 y FH(rational2periodic)o(\(6)o(/1)o(7\);)664
2449 y(periodic\({0,1},{3)o(,5)o(,2)o(,9,)o(4,)o(1,1)o(,7)o(,6,)o(4,)o
(7,)o(0,5)o(,8)o(,8,)o(2})o(\))664 2648 y(periodic2rational)o(\(w)o
(s\))o(;)708 2847 y(6)664 2947 y(----)708 3046 y(17)664
3273 y @beginspecial @setspecial @endspecial 166 x FR(65.1.2)113
b(Con)m(tin)m(ued)37 b(F)-9 b(ractions)664 3661 y FQ(A)31
b(con)m(tin)m(ued)f(fraction)g(\(see)h([)p @beginspecial
@setspecial @endspecial(1)q(])g FP(x)p FQ(4.2\))h(has)e(the)g(general)h
(form)1771 3938 y FL(b)1810 3952 y FO(0)1870 3938 y FQ(+)2184
3876 y FL(a)2232 3890 y FO(1)p 1971 3916 515 4 v 1971
4000 a FL(b)2010 4014 y FO(1)2070 4000 y FQ(+)2287 3963
y FF(a)2324 3972 y Fy(2)p 2170 3979 305 4 v 2170 4040
a FF(b)2200 4049 y Fy(2)2235 4040 y FO(+)2349 4004 y
Fp(a)2383 4019 y Fy(3)p 2300 4025 166 4 v 2300 4066 a
Fp(b)2327 4081 y Fy(3)2362 4066 y(+)p Fp(:::)2520 3938
y FL(:)664 4294 y FQ(A)g(more)f(compact)i(w)m(a)m(y)f(of)g(writing)d
(this)h(is)h(as)1617 4541 y FL(b)1656 4555 y FO(0)1716
4541 y FQ(+)1817 4479 y FL(a)1865 4493 y FO(1)1904 4479
y FP(j)p 1817 4520 113 4 v 1822 4603 a(j)p FL(b)1886
4617 y FO(1)1960 4541 y FQ(+)2061 4479 y FL(a)2109 4493
y FO(2)2148 4479 y FP(j)p 2061 4520 V 2066 4603 a(j)p
FL(b)2130 4617 y FO(2)2204 4541 y FQ(+)2304 4479 y FL(a)2352
4493 y FO(3)2392 4479 y FP(j)p 2304 4520 V 2309 4603
a(j)p FL(b)2373 4617 y FO(3)2447 4541 y FQ(+)20 b FL(:)15
b(:)g(:)32 b(:)p eop
%%Page: 489 489
489 488 bop 241 299 a @beginspecial @setspecial @endspecial
FM(65.1.)2667 b FQ(489)241 555 y(This)28 b(is)i(represen)m(ted)g(in)f
(REDUCE)h(as)498 759 y FJ(contfrac)p FQ(\()p FM(Rational)75
b(appro)m(ximan)m(t)p FL(;)15 b FP(f)p FJ(b)1968 773
y Fm(0)2008 759 y FL(;)g FP(f)p FJ(a)2141 773 y Fm(1)2181
759 y FL(;)g FJ(b)2269 773 y Fm(1)2308 759 y FP(g)p FL(;)g
FP(f)p FJ(a)2486 773 y Fm(2)2527 759 y FL(;)g FJ(b)2615
773 y Fm(2)2654 759 y FP(g)p FL(;)g(:::::)p FP(g)p FQ(\))p
FL(:)241 1013 y FQ(There)34 b(are)i(four)e(di\013eren)m(t)h(functions)e
(to)j(determine)e(the)h(con)m(tin)m(ued)g(fractions)g(for)241
1126 y(real)30 b(n)m(um)m(b)s(ers)f(and)g(functions)g
FJ(f)h FQ(in)f(the)i(v)-5 b(ariable)29 b FJ(var)p FQ(:)826
1320 y FJ(cfrac\(number\);)96 b(cfrac\(number,length\);)826
1433 y(cfrac\(f,)46 b(var\);)98 b(cfrac\(f,)46 b(var,)g(length\);)241
1595 y FQ(The)29 b FJ(length)f FQ(argumen)m(t)i(is)f(optional)f(and)i
(sp)s(eci\014es)e(the)i(n)m(um)m(b)s(er)e(of)i(ordered)f(pairs)241
1708 y FP(f)p FL(a)334 1722 y FF(i)362 1708 y FL(;)15
b(b)441 1722 y FF(i)470 1708 y FP(g)31 b FQ(to)g(b)s(e)f(returned.)39
b(It's)31 b(default)e(v)-5 b(alue)30 b(is)g(\014v)m(e.)241
1938 y FH(cfrac)41 b(pi;)677 2138 y(1146408)241 2237
y(contfrac\(-------)o(--)o(\),)677 2337 y(364913)633
2536 y({3,{1,7},{1,15},)o({1,)o(1})o(,{1)o(,2)o(92)o(},{)o(1,)o(1},)o
({1)o(,1)o(},{)o(1,)o(1},)764 2636 y({1,2},{1,1}}\))p
eop
%%Page: 490 490
490 489 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(490)295 b FM(CHAPTER)29 b(65.)72 b(RA)-8 b(T)g(APRX:)31
b(RA)-8 b(TIONAL)31 b(APPR)m(O)m(XIMA)-8 b(TIONS)664
555 y FH(cfrac\(\(x+2/3\)^2/\()o(6*)o(x-)o(5\),)o(x\))o(;)1231
754 y(2)1100 854 y(9*x)86 b(+)43 b(12*x)f(+)h(4)174 b(6*x)43
b(+)g(13)260 b(24*x)42 b(-)h(20)664 954 y(contfrac\(--------)o(--)o(--)
o(---)o(--)o(,{-)o(--)o(---)o(--)o(--)o(,{1)o(,-)o(---)o(--)o(--)o(---)
o(}})o(\))1231 1053 y(54*x)f(-)h(45)435 b(36)566 b(9)664
1253 y(cfrac\(e^x,x\);)1144 1452 y(3)261 b(2)1100 1551
y(x)87 b(+)43 b(9*x)86 b(+)43 b(36*x)f(+)h(60)664 1651
y(contfrac\(--------)o(--)o(--)o(---)o(--)o(---)o(--)o(-,)1318
1751 y(2)1187 1850 y(3*x)86 b(-)43 b(24*x)f(+)h(60)1056
2050 y({1,{x,1},{)d(-)j(x,2},{x,3},{)c(-)k(x,2},{x,5}}\))664
2187 y @beginspecial @setspecial @endspecial 155 x FR(65.1.3)113
b(P)m(ad)n(\023)-54 b(e)37 b(Appro)m(ximation)664 2563
y FQ(The)22 b(P)m(ad)m(\023)-43 b(e)23 b(appro)m(ximan)m(t)f(represen)m
(ts)f(a)i(function)d(b)m(y)i(the)g(ratio)g(of)g(t)m(w)m(o)h(p)s
(olynomials.)664 2676 y(The)35 b(co)s(e\016cien)m(ts)h(of)g(the)f(p)s
(o)m(w)m(ers)g(o)s(ccuring)g(in)f(the)h(p)s(olynomials)e(are)i
(determined)664 2789 y(b)m(y)i(the)g(co)s(e\016cien)m(ts)g(in)f(the)h
(T)-8 b(a)m(ylor)37 b(series)f(expansion)f(of)i(the)g(function)f(\(see)
h([)p @beginspecial @setspecial @endspecial(1)q(]\).)664
2902 y(Giv)m(en)30 b(a)h(p)s(o)m(w)m(er)g(series)1414
3100 y FL(f)10 b FQ(\()p FL(x)p FQ(\))25 b(=)g FL(c)1751
3114 y FO(0)1811 3100 y FQ(+)20 b FL(c)1941 3114 y FO(1)1981
3100 y FQ(\()p FL(x)g FP(\000)g FL(h)p FQ(\))h(+)f FL(c)2417
3114 y FO(2)2457 3100 y FQ(\()p FL(x)g FP(\000)g FL(h)p
FQ(\))2742 3062 y FO(2)2797 3100 y FL(:)15 b(:)g(:)664
3297 y FQ(and)21 b(the)h(degree)g(of)g(n)m(umerator,)h
FL(n)p FQ(,)g(and)e(of)h(the)g(denominator,)g FL(d)p
FQ(,)i(the)e FJ(pade)e FQ(function)664 3410 y(\014nds)29
b(the)h(unique)f(co)s(e\016cien)m(ts)i FL(a)1842 3424
y FF(i)1870 3410 y FL(;)g(b)1965 3424 y FF(i)2023 3410
y FQ(in)e(the)i(P)m(ad)m(\023)-43 b(e)32 b(appro)m(ximan)m(t)1703
3582 y FL(a)1751 3596 y FO(0)1811 3582 y FQ(+)20 b FL(a)1950
3596 y FO(1)1989 3582 y FL(x)g FQ(+)g FP(\001)15 b(\001)g(\001)22
b FQ(+)e FL(a)2418 3596 y FF(n)2465 3582 y FL(x)2517
3549 y FF(n)p 1703 3623 861 4 v 1723 3706 a FL(b)1762
3720 y FO(0)1822 3706 y FQ(+)g FL(b)1952 3720 y FO(1)1991
3706 y FL(x)g FQ(+)g FP(\001)15 b(\001)g(\001)22 b FQ(+)d
FL(b)2410 3721 y FF(d)2451 3706 y FL(x)2503 3680 y FF(d)2599
3644 y FL(:)664 3927 y FQ(The)40 b(function)f FJ(pade\(f,)46
b(x,)h(h)g(,n)h(,d\))39 b FQ(tak)m(es)j(as)e(input)e(the)j(function)e
FJ(f)h FQ(in)f(the)664 4040 y(v)-5 b(ariable)31 b FJ(x)g
FQ(to)i(b)s(e)e(appro)m(ximated)g(,)i(where)e FJ(h)h
FQ(is)e(the)i(p)s(oin)m(t)f(at)i(whic)m(h)d(the)i(appro)m(xi-)664
4153 y(mation)22 b(is)g(ev)-5 b(aluated.)38 b FJ(n)22
b FQ(and)g FJ(d)g FQ(are)g(the)h(\(sp)s(eci\014ed\))e(degrees)i(of)g
(the)f(n)m(umerator)h(and)664 4266 y(the)30 b(denominator.)40
b(It)29 b(returns)g(the)g(P)m(ad)m(\023)-43 b(e)32 b(Appro)m(ximan)m
(t,)d(ie.)40 b(a)30 b(rational)f(function.)664 4428 y(Error)h(Messages)
i(ma)m(y)f(o)s(ccur)f(in)f(the)h(follo)m(wing)f(di\013eren)m(t)h
(cases:)801 4660 y FP(\017)45 b FQ(The)27 b(T)-8 b(a)m(ylor)27
b(series)f(expansion)f(for)i(the)g(function)e FJ(f)h
FQ(has)h(not)g(y)m(et)h(b)s(een)d(imple-)891 4773 y(men)m(ted)31
b(in)e(the)i(REDUCE)f(T)-8 b(a)m(ylor)31 b(P)m(ac)m(k)-5
b(age.)801 4959 y FP(\017)45 b FQ(A)31 b(P)m(ad)m(\023)-43
b(e)32 b(Appro)m(ximan)m(t)e(of)g(this)g(function)f(do)s(es)h(not)g
(exist.)p eop
%%Page: 491 491
491 490 bop 241 299 a @beginspecial @setspecial @endspecial
FM(65.1.)2667 b FQ(491)377 555 y FP(\017)46 b FQ(A)37
b(P)m(ad)m(\023)-43 b(e)39 b(Appro)m(ximan)m(t)e(of)h(this)e(order)h
(\(ie.)61 b(the)38 b(sp)s(eci\014ed)e(n)m(umerator)h(and)468
668 y(denominator)29 b(orders\))g(do)s(es)h(not)g(exist.)40
b(Please)30 b(note,)h(there)f(migh)m(t)f(exist)h(an)468
781 y(appro)m(ximan)m(t)g(of)h(a)f(di\013eren)m(t)g(order.)p
eop
%%Page: 492 492
492 491 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(492)295 b FM(CHAPTER)29 b(65.)72 b(RA)-8 b(T)g(APRX:)31
b(RA)-8 b(TIONAL)31 b(APPR)m(O)m(XIMA)-8 b(TIONS)664
555 y FH(pade\(sin\(x\),x,0,3)o(,3)o(\);)1100 754 y(2)708
854 y(x*\()42 b(-)h(7*x)86 b(+)43 b(60\))664 954 y(-----------------)o
(-)969 1053 y(2)795 1153 y(3*\(x)85 b(+)44 b(20\))664
1352 y(pade\(tanh\(x\),x,0,)o(5,)o(5\))o(;)882 1551 y(4)348
b(2)708 1651 y(x*\(x)85 b(+)43 b(105*x)86 b(+)43 b(945\))664
1751 y(-----------------)o(--)o(--)o(--)926 1850 y(4)304
b(2)708 1950 y(15*\(x)85 b(+)43 b(28*x)86 b(+)43 b(63\))664
2149 y(pade\(exp\(1/x\),x,0)o(,5)o(,5)o(\);)664 2348
y(*****)f(no)g(Pade)g(Approximation)d(exists)664 2548
y(pade\(factorial\(x\))o(,x)o(,1)o(,3,)o(3\))o(;)664
2747 y(*****)j(not)g(yet)g(implemented)664 2946 y(30:)h
(pade\(sin\(x\)/x^2)o(,x)o(,0,)o(10)o(,0\))o(;)664 3145
y(*****)f(Pade)g(Approximation)c(of)43 b(this)f(order)f(does)h(not)g
(exist)664 3345 y(31:)86 b(pade\(sin\(x\)/x^2,)o(x,0)o(,1)o(0,2)o(\);)
882 3544 y(10)348 b(8)392 b(6)479 b(4)522 b(2)751 3644
y(-)44 b(x)130 b(+)43 b(110*x)85 b(-)43 b(7920*x)85 b(+)43
b(332640*x)84 b(-)43 b(6652800*x)d(+)j(39916800)664 3743
y(-----------------)o(--)o(--)o(---)o(--)o(---)o(--)o(---)o(--)o(--)o
(---)o(--)o(---)o(--)o(--)o(---)o(--)o(---)o(--)o(--)1797
3843 y(39916800*x)p eop
%%Page: 493 493
493 492 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(66)241 1693 y FT(REA)-6 b(CTEQN:)74 b(Supp)6 b(ort)79
b(for)241 1942 y(c)-6 b(hemical)76 b(reaction)i(equations)1470
2424 y Fx(Herb)r(ert)26 b(Melenk)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)
r(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2607 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2698
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1352 2819 y(e{mail:)35
b(melenk@zib.de)241 3063 y FQ(The)f(REDUCE)g(pac)m(k)-5
b(age)37 b(REA)m(CTEQN)d(allo)m(ws)g(one)h(to)h(transform)e(c)m
(hemical)g(re-)241 3176 y(action)c(systems)h(in)m(to)f(ordinary)e
(di\013eren)m(tial)h(equation)h(systems)h(corresp)s(onding)d(to)241
3289 y(the)i(la)m(ws)g(of)h(pure)e(mass)h(action.)241
3452 y(It)g(pro)m(vides)g(the)g(single)f(function)415
3683 y FH(reac2ode)40 b({)131 b(<reaction>)39 b([,<rate>)h([,<rate>]])
895 3782 y([,<reaction>)e([,<rate>)i([,<rate>]]])1243
3882 y(....)1025 3982 y(};)241 4226 y FQ(A)e(rate)g(is)f(an)m(y)h
(REDUCE)g(expression,)h(and)e(t)m(w)m(o)i(rates)g(are)f(applicable)e
(only)h(for)241 4339 y(forw)m(ard)29 b(and)g(bac)m(kw)m(ard)h
(reactions.)41 b(A)29 b(reaction)h(is)f(co)s(ded)g(as)h(a)g(linear)e
(sum)h(of)g(the)241 4451 y(series)37 b(v)-5 b(ariables,)39
b(with)e(the)h(op)s(erator)h FP(\000)f FL(>)g FQ(for)g(forw)m(ard)f
(reactions)i(and)e FL(<>)h FQ(for)241 4564 y(t)m(w)m(o-w)m(a)m(y)33
b(reactions.)241 4727 y(The)e(result)g(is)g(a)i(system)f(of)g(explicit)
e(ordinary)h(di\013eren)m(tial)f(equations)i(with)f(p)s(oly-)241
4840 y(nomial)e(righ)m(thand)g(sides.)39 b(As)31 b(side)e(e\013ect)j
(the)e(follo)m(wing)f(v)-5 b(ariables)29 b(are)i(set:)1667
5187 y(493)p eop
%%Page: 494 494
494 493 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(494)p FM(CHAPTER)28 b(66.)68 b(REA)m(CTEQN:)28 b(CHEMICAL)f(REA)m
(CTION)g(EQUA)-8 b(TIONS)664 555 y FJ(rates)44 b FQ(A)31
b(list)e(of)h(the)h(rates)g(in)e(the)h(system.)664 743
y FJ(species)44 b FQ(A)30 b(list)f(of)i(the)f(sp)s(ecies)g(in)f(the)h
(system.)664 930 y FJ(inputmat)43 b FQ(A)31 b(matrix)f(of)g(the)h
(input)d(co)s(e\016cien)m(ts.)664 1118 y FJ(outputmat)43
b FQ(A)31 b(matrix)e(of)i(the)f(output)g(co)s(e\016cien)m(ts.)664
1380 y(In)h(the)g(matrices)g(the)g(ro)m(w)h(n)m(um)m(b)s(er)d(corresp)s
(onds)h(to)i(the)f(input)e(reaction)j(n)m(um)m(b)s(er,)664
1493 y(while)d(the)h(column)f(n)m(um)m(b)s(er)g(corresp)s(onds)g(to)i
(the)g(sp)s(ecies)f(index.)664 1656 y(If)41 b(the)g(rates)g(are)g(n)m
(umerical)f(v)-5 b(alues,)43 b(it)d(will)e(b)s(e)j(in)e(most)i(cases)h
(appropriate)e(to)664 1769 y(select)31 b(a)g(REDUCE)f(ev)-5
b(aluation)30 b(mo)s(de)g(for)g(\015oating)g(p)s(oin)m(t)g(n)m(um)m(b)s
(ers.)664 1932 y FJ(Inputmat)d FQ(and)i FJ(outputmat)d
FQ(can)k(b)s(e)e(used)h(for)g(linear)e(algebra)j(t)m(yp)s(e)f(in)m(v)m
(estigations)664 2045 y(of)41 b(the)g(reaction)g(system.)72
b(The)40 b(classical)g(reaction)h(matrix)f(is)g(the)h(di\013erence)f
(of)664 2158 y(these)f(matrices;)j(ho)m(w)m(ev)m(er,)g(the)d(t)m(w)m(o)
g(matrices)g(con)m(tain)f(more)h(information)d(than)664
2270 y(their)i(di\013erences)f(b)s(ecause)i(the)f(app)s(earance)h(of)f
(a)h(sp)s(ecies)e(on)i(b)s(oth)e(sides)g(is)h(not)664
2383 y(re\015ected)31 b(b)m(y)f(the)h(reaction)g(matrix.)p
eop
%%Page: 495 495
495 494 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(67)241 1693 y FT(REDLOG:)76 b(Logic)h(System)1414 2175
y Fx(Andreas)26 b(Dolzmann)1483 2266 y(Thomas)g(Sturm)1214
2358 y(Univ)n(ersit)n(y)f(of)h(P)n(assau,)h(German)n(y)808
2449 y(e-mail:)34 b(dolzmann@uni-passau.de,)25 b(sturm@uni-passau.de)
241 2681 y @beginspecial @setspecial @endspecial 185
x FE(67.1)135 b(In)l(tro)t(duction)241 3118 y FQ(This)33
b(pac)m(k)-5 b(age)38 b(extends)d(REDUCE)g(to)h(a)g(computer)f(logic)g
(system)h(implemen)m(ting)241 3231 y(sym)m(b)s(olic)21
b(algorithms)g(on)i(\014rst-order)f(form)m(ulas)f(wrt.)i(temp)s
(orarily)d(\014xed)i(\014rst-order)241 3344 y(languages)30
b(and)g(theories.)241 3489 y @beginspecial @setspecial
@endspecial 148 x FR(67.1.1)112 b(Con)m(texts)241 3859
y FQ(REDLOG)26 b(is)e(designed)h(for)g(w)m(orking)h(with)e(sev)m(eral)i
(languages)g(and)f(theories)h(in)e(the)241 3972 y(sense)30
b(of)g(\014rst-order)g(logic.)40 b(Both)31 b(a)f(language)h(and)f(a)g
(theory)h(mak)m(e)g(up)e(a)h(con)m(text.)241 4084 y(There)g(are)g(the)h
(follo)m(wing)e(con)m(texts)j(a)m(v)-5 b(ailable:)241
4320 y FN(OFSF)44 b Fq(OF)26 b FQ(stands)g(for)g FD(or)-5
b(der)g(e)g(d)31 b(\014elds)p FQ(,)d(whic)m(h)d(is)g(a)h(little)f
(imprecise.)38 b(The)26 b(quan)m(ti-)468 4433 y(\014er)d(elimination)e
(actually)i(requires)f(the)h(more)h(restricted)f(class)g(of)h
FD(r)-5 b(e)g(al)27 b(close)-5 b(d)468 4546 y(\014elds)p
FQ(,)36 b(while)31 b(most)j(of)g(the)g(to)s(ol-lik)m(e)f(algorithms)g
(are)h(generally)f(correct)i(for)468 4659 y(ordered)i(\014elds.)59
b(One)37 b(usually)e(has)i(in)e(mind)g(real)i(n)m(um)m(b)s(ers)f(with)g
(ordering)468 4772 y(when)29 b(using)i Fq(OFSF)p FQ(.)241
4959 y FN(D)m(VFSF)45 b FD(Discr)-5 b(etely)33 b(value)-5
b(d)34 b(\014elds)p FQ(.)43 b(This)29 b(is)h(for)g(computing)g(with)f
(form)m(ulas)h(o)m(v)m(er)1667 5187 y(495)p eop
%%Page: 496 496
496 495 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(496)1018 b FM(CHAPTER)30 b(67.)72 b(REDLOG:)30 b(LOGIC)g(SYSTEM)891
555 y FQ(classes)39 b(of)g FL(p)p FQ(-adic)f(v)-5 b(alued)37
b(extension)h(\014elds)f(of)i(the)g(rationals,)g(usually)e(the)891
668 y(\014elds)29 b(of)i FL(p)p FQ(-adic)f(n)m(um)m(b)s(ers)f(for)h
(some)h(prime)d FL(p)p FQ(.)664 856 y FN(A)m(CFSF)45
b FD(A)n(lgebr)-5 b(aic)g(al)5 b(ly)33 b(close)-5 b(d)34
b(\014elds)39 b FQ(suc)m(h)30 b(as)g(the)h(complex)f(n)m(um)m(b)s(ers.)
664 1001 y @beginspecial @setspecial @endspecial 148
x FR(67.1.2)113 b(Ov)m(erview)664 1370 y FQ(REDLOG)32
b(origins)f(from)h(the)g(implemen)m(tation)f(of)h(quan)m(ti\014er)f
(elimination)f(pro)s(ce-)664 1483 y(dures.)39 b(Successfully)24
b(applying)h(suc)m(h)i(metho)s(ds)g(to)g(b)s(oth)g(academic)g(and)g
(real-w)m(orld)664 1596 y(problems,)k(the)i(authors)e(ha)m(v)m(e)j(dev)
m(elop)s(ed)d(o)m(v)m(er)j(the)e(time)g(a)g(large)g(set)h(of)f(form)m
(ula-)664 1709 y(manipulating)g(to)s(ols,)37 b(man)m(y)e(of)g(whic)m(h)
f(are)h(mean)m(while)f(in)m(teresting)g(in)g(their)g(o)m(wn)664
1822 y(righ)m(t:)801 2084 y FP(\017)45 b FQ(Numerous)24
b(to)s(ols)g(for)g(comfortably)g(inputing,)f(decomp)s(osing,)h(and)g
(analyzing)891 2197 y(form)m(ulas.)801 2385 y FP(\017)45
b FQ(Sev)m(eral)31 b(tec)m(hniques)f(for)g(the)g FD(simpli\014c)-5
b(ation)40 b FQ(of)31 b(form)m(ulas.)801 2573 y FP(\017)45
b FQ(V)-8 b(arious)44 b FD(normal)k(form)e(c)-5 b(omputations)p
FQ(.)85 b(The)44 b Fq(CNF)p FD(/)15 b Fq(DNF)45 b FQ(computation)891
2685 y(includes)e(b)s(oth)h(Bo)s(olean)h(and)f(algebraic)g
(simpli\014cation)e(strategies.)84 b(The)891 2798 y FD(pr)-5
b(enex)35 b(normal)h(form)j FQ(computation)32 b(minimizes)d(the)j(n)m
(um)m(b)s(er)e(of)i(quan)m(ti\014er)891 2911 y(c)m(hanges.)801
3099 y FP(\017)45 b FD(Quanti\014er)39 b(elimination)45
b FQ(computes)36 b(quan)m(ti\014er-free)g(equiv)-5 b(alen)m(ts)36
b(for)g(giv)m(en)891 3212 y(\014rst-order)41 b(form)m(ulas.)73
b(F)-8 b(or)42 b Fq(OFSF)e FQ(and)h Fq(D)m(VFSF)g FQ(the)g(form)m(ulas)
g(ha)m(v)m(e)h(to)891 3325 y(ob)s(ey)31 b(certain)f(degree)h
(restrictions.)801 3512 y FP(\017)45 b FQ(The)40 b(con)m(text)i
Fq(OFSF)e FQ(allo)m(ws)f(a)i(v)-5 b(arian)m(t)40 b(of)h(quan)m
(ti\014er)e(elimination)f(called)891 3625 y FD(generic)f(quanti\014er)h
(elimination)7 b FQ(:)52 b(There)35 b(are)h(certain)f(non-degeneracy)h
(as-)891 3738 y(sumptions)26 b(made)i(on)g(the)g(parameters,)h(whic)m
(h)d(considerably)g(sp)s(eeds)h(up)g(the)891 3851 y(elimination.)801
4039 y FP(\017)45 b FQ(The)31 b(con)m(texts)j Fq(OFSF)c
FQ(and)h Fq(D)m(VFSF)g FQ(pro)m(vide)f(v)-5 b(arian)m(ts)32
b(of)f(\(generic\))h(quan-)891 4152 y(ti\014er)25 b(elimination)d(that)
k(additionally)d(compute)i FD(answers)35 b FQ(suc)m(h)25
b(as)g(satisfying)891 4265 y(sample)30 b(p)s(oin)m(ts)f(for)h(existen)m
(tially)f(quan)m(ti\014ed)h(form)m(ulas.)801 4452 y FP(\017)45
b Fq(OFSF)k FQ(includes)e(linear)h FD(optimization)59
b FQ(tec)m(hniques)49 b(based)g(on)h(quan)m(ti\014er)891
4565 y(elimination.)664 4827 y(T)-8 b(o)48 b(a)m(v)m(oid)h(am)m
(biguities)d(with)h(other)h(pac)m(k)-5 b(ages,)54 b(all)47
b Fq(REDLOG)h FQ(functions)f(and)664 4940 y(switc)m(hes)30
b(are)h(pre\014xed)e(b)m(y)h(\\)p FJ(RL)p FQ(".)p eop
%%Page: 497 497
497 496 bop 241 299 a @beginspecial @setspecial @endspecial
FM(67.2.)72 b(CONTEXT)30 b(SELECTION)1562 b FQ(497)241
555 y(The)30 b(pac)m(k)-5 b(age)32 b(is)d(loaded)h(b)m(y)h(t)m(yping:)
222 b FJ(load)p 1970 555 29 4 v 33 w(package)46 b(redlog;)241
831 y FQ(It)31 b(is)f(recommended)h(to)g(read)g(the)g(do)s(cumen)m
(tation)g(whic)m(h)f(comes)i(with)e(this)f(pac)m(k-)241
944 y(age.)47 b(This)30 b(man)m(ual)i(c)m(hapter)g(giv)m(es)h(an)f(o)m
(v)m(erview)h(on)e(the)i(features)f(of)39 b Fq(REDLOG)p
FQ(,)241 1057 y(whic)m(h)29 b(is)g(b)m(y)i(no)f(means)g(complete.)241
1211 y @beginspecial @setspecial @endspecial 182 x FE(67.2)135
b(Con)l(text)47 b(Selection)241 1646 y FQ(The)37 b(con)m(text)j(to)e(b)
s(e)f(used)g(has)h(to)g(b)s(e)f(selected)i(explicitly)-8
b(.)60 b(One)38 b(w)m(a)m(y)g(to)h(do)f(this)241 1759
y(is)30 b(using)f(the)i(command)g FJ(RLSET)p FQ(.)f(As)h(argumen)m(t)g
(it)g(tak)m(es)h(one)f(of)g(the)h(v)-5 b(alid)29 b(c)m(hoices)241
1871 y FJ(ACFSF)21 b FQ(\(algebraically)h(closed)h(\014elds)e(standard)
h(form\),)j FJ(OFSF)d FQ(\(ordered)g(\014elds)g(stand-)241
1984 y(ard)33 b(form\),)h(and)f FJ(DVFSF)f FQ(\(discretely)g(v)-5
b(alued)33 b(\014elds)e(standard)i(form\).)49 b(By)34
b(default,)241 2097 y FJ(DVFSF)40 b FQ(computes)j(uniformly)c(o)m(v)m
(er)k(the)g(class)e(of)i(all)e FL(p)p FQ(-adic)g(v)-5
b(alued)41 b(\014elds.)75 b(F)-8 b(or)241 2210 y(the)41
b(sak)m(e)h(of)f(e\016ciency)-8 b(,)45 b(this)40 b(can)h(b)s(e)f
(restricted)h(b)m(y)g(means)g(of)g(an)g(extra)h FJ(RLSET)241
2323 y FQ(argumen)m(t.)f FJ(RLSET)29 b FQ(returns)g(the)i(old)e
(setting)i(as)f(a)h(list.)241 2478 y @beginspecial @setspecial
@endspecial 181 x FE(67.3)135 b(F)-11 b(ormat)45 b(and)g(Handling)h(of)
f(F)-11 b(orm)l(ulas)241 2773 y @beginspecial @setspecial
@endspecial 142 x FR(67.3.1)112 b(First-order)37 b(Op)s(erators)241
3137 y FQ(REDLOG)27 b(kno)m(ws)g(the)g(follo)m(wing)f(op)s(erators)h
(for)g(constructing)g(Bo)s(olean)g(com)m(bina-)241 3250
y(tions)i(and)h(quan)m(ti\014cations)g(of)g(atomic)h(form)m(ulas:)291
3581 y FJ(NOT)p FQ(:)e(Unary)381 b FJ(AND)p FQ(:)30 b(N-ary)h(In\014x)
235 b FJ(OR)p FQ(:)30 b(N-ary)h(In\014x)130 b FJ(IMPL)p
FQ(:)30 b(Binary)f(In\014x)291 3694 y FJ(REPL)p FQ(:)g(Binary)h
(In\014x)98 b FJ(EQUIV)p FQ(:)29 b(Binary)h(In\014x)98
b FJ(EX)p FQ(:)30 b(Binary)291 3807 y FJ(ALL)p FQ(:)f(Binary)359
b FJ(TRUE)p FQ(:)29 b(V)-8 b(ariable)300 b FJ(FALSE)p
FQ(:)29 b(V)-8 b(ariable)241 4043 y(The)35 b FJ(EX)g
FQ(and)g(the)h FJ(ALL)f FQ(op)s(erators)h(are)g(the)g(quan)m
(ti\014ers.)55 b(Their)34 b(\014rst)h(argumen)m(t)h(is)241
4156 y(the)30 b(quan)m(ti\014ed)g(v)-5 b(ariable,)29
b(the)i(second)f(one)h(a)f(matrix)g(form)m(ula.)241 4319
y(There)25 b(are)g(op)s(erators)h FJ(MKAND)e FQ(and)g
FJ(MKOR)g FQ(for)i(the)f(construction)g(of)g(large)h(systematic)241
4432 y(conjunctions/disjunctions)e(via)i(for)h(lo)s(ops)f(a)m(v)-5
b(ailable.)39 b(They)27 b(are)h(used)e(in)g(the)h(st)m(yle)241
4545 y(of)j FJ(SUM)g FQ(and)g FJ(COLLECT)p FQ(.)241 4812
y FN(Example:)p eop
%%Page: 498 498
498 497 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(498)1018 b FM(CHAPTER)30 b(67.)72 b(REDLOG:)30 b(LOGIC)g(SYSTEM)664
555 y FH(1:)43 b(load_package)c(redlog;)664 754 y(2:)k(rlset)e(ofsf;)
664 954 y({})664 1153 y(3:)i(g)g(:=)g(for)f(i:=1:3)f(mkand)1100
1352 y(for)h(j:=1:3)f(mkor)1187 1551 y(if)i(j<>i)f(then)g(mkid\(x,i\))e
(+)j(mkid\(x,j\)=0;)664 1751 y(true)f(and)g(\(false)g(or)g(false)g(or)h
(x1)f(+)i(x2)e(=)h(0)h(or)e(x1)h(+)g(x3)g(=)g(0\))708
1950 y(and)f(\(false)f(or)i(x1)g(+)g(x2)g(=)g(0)g(or)g(false)e(or)i(x2)
g(+)g(x3)g(=)g(0\))708 2149 y(and)f(\(false)f(or)i(x1)g(+)g(x3)g(=)g(0)
g(or)g(x2)g(+)g(x3)f(=)i(0)f(or)g(false\))664 2283 y
@beginspecial @setspecial @endspecial 159 x FR(67.3.2)113
b(OFSF)38 b(Op)s(erators)664 2664 y FQ(The)j FJ(OFSF)f
FQ(con)m(text)j(implemen)m(ts)c FD(or)-5 b(der)g(e)g(d)46
b(\014elds)c FQ(o)m(v)m(er)g(the)f(language)h(of)f FD(or)-5
b(der)g(e)g(d)664 2777 y(rings)p FQ(.)41 b(There)30 b(are)h(the)f
(follo)m(wing)f(binary)g(op)s(erators)h(a)m(v)-5 b(ailable:)1265
3021 y FJ(EQUAL)98 b(NEQ)h(LEQ)g(GEQ)g(LESSP)f(GREATERP)664
3265 y FQ(They)38 b(can)h(also)f(b)s(e)f(written)h(as)g
FJ(=)p FQ(,)i FJ(<>)p FQ(,)g FJ(<=)p FQ(,)g FJ(>=)p FQ(,)g
FJ(<)p FQ(,)g(and)e FJ(>)p FQ(.)64 b(F)-8 b(or)39 b Fq(OFSF)e
FQ(there)i(is)664 3378 y(sp)s(eci\014ed)31 b(that)j(all)e(righ)m(t)g
(hand)g(sides)g(m)m(ust)g(b)s(e)h(zero.)49 b(Non-zero)34
b(righ)m(t)e(hand)g(sides)664 3491 y(are)f(immediately)e(subtracted.)
664 3636 y @beginspecial @setspecial @endspecial 148
x FR(67.3.3)113 b(D)m(VFSF)38 b(Op)s(erators)664 4005
y FQ(Discretely)c(v)-5 b(alued)33 b(\014elds)f(are)i(implemen)m(ted)f
(as)h(a)g(one-sorted)h(language)f(using)e(in)664 4118
y(addition)25 b(to)j FJ(=)f FQ(and)f FJ(<>)g FQ(the)i(binary)d(op)s
(erators)i FJ(|)p FQ(,)h FJ(||)p FQ(,)f FJ(~)p FQ(,)g(and)g
FJ(/~)p FQ(,)g(whic)m(h)f(enco)s(de)h FP(\024)p FQ(,)664
4231 y FL(<)p FQ(,)j(=,)h(and)e FP(6)p FQ(=)h(in)g(the)g(v)-5
b(alue)30 b(group,)g(resp)s(ectiv)m(ely)-8 b(.)1289 4450
y FJ(EQUAL)98 b(NEQ)h(DIV)g(SDIV)f(ASSOC)h(NASSOC)664
4611 y @beginspecial @setspecial @endspecial eop
%%Page: 499 499
499 498 bop 241 299 a @beginspecial @setspecial @endspecial
FM(67.4.)72 b(SIMPLIFICA)-8 b(TION)1820 b FQ(499)241
555 y FR(67.3.4)112 b(A)m(CFSF)38 b(Op)s(erators)241
777 y FQ(F)-8 b(or)36 b(algebraically)e(closed)h(\014elds)f(there)i
(are)f(only)g(equations)g(and)g(inequalities)e(al-)241
890 y(lo)m(w)m(ed:)1494 1134 y FJ(EQUAL)99 b(NEQ)241
1378 y FQ(As)38 b(in)f Fq(OFSF)p FQ(,)g(they)h(can)g(b)s(e)g(con)m(v)m
(enien)m(tly)g(written)f(as)i FJ(=)e FQ(and)h FJ(<>)p
FQ(,)h(resp)s(ectiv)m(ely)-8 b(.)241 1491 y(All)29 b(righ)m(t)h(hand)f
(sides)g(are)i(zero.)241 1636 y @beginspecial @setspecial
@endspecial 148 x FR(67.3.5)112 b(Extended)38 b(Built-in)d(Commands)241
2005 y FQ(The)25 b(op)s(erators)h FJ(SUB)p FQ(,)f FJ(PART)p
FQ(,)g(and)g FJ(LENGTH)f FQ(w)m(ork)i(on)f(form)m(ulas)g(in)f(a)i
(reasonable)g(w)m(a)m(y)-8 b(.)241 2150 y @beginspecial
@setspecial @endspecial 149 x FR(67.3.6)112 b(Global)37
b(Switc)m(hes)241 2520 y FQ(The)20 b(switc)m(h)g FJ(RLSIMPL)f
FQ(causes)j(the)f(function)e FJ(RLSIMPL)g FQ(to)j(b)s(e)e
(automatically)h(applied)241 2633 y(at)31 b(the)f(expression)g(ev)-5
b(aluation)29 b(stage.)241 2796 y(The)d(switc)m(h)g FJ(RLREALTIME)e
FQ(proto)s(cols)j(the)g(w)m(all)f(clo)s(c)m(k)h(time)g(needed)f(for)h
Fq(REDLOG)241 2909 y FQ(commands)j(in)f(seconds.)241
3071 y(The)i(switc)m(h)f FJ(RLVERBOSE)f FQ(toggles)k(v)m(erb)s(osit)m
(y)e(output)g(with)f(some)i Fq(REDLOG)g FQ(pro-)241 3184
y(cedures.)241 3321 y @beginspecial @setspecial @endspecial
199 x FE(67.4)135 b(Simpli\014cation)241 3773 y Fq(REDLOG)42
b FQ(kno)m(ws)f(three)h(t)m(yp)s(es)f(of)h(simpli\014ers)37
b(to)42 b(reduce)f(the)h(size)f(of)h(a)f(giv)m(en)241
3886 y(\014rst-order)23 b(form)m(ula:)36 b(the)24 b(standard)f
(simpli\014er,)f(tableau)h(simpli\014ers,)f(and)h(Gr\177)-45
b(obner)241 3999 y(simpli\014ers.)241 4144 y @beginspecial
@setspecial @endspecial 148 x FR(67.4.1)112 b(Standard)39
b(Simpli\014er)241 4514 y FQ(The)29 b(standard)g(simpli\014er)d
FJ(RLSIMPL)i FQ(returns)h(a)h(simpli\014ed)c(equiv)-5
b(alen)m(t)29 b(of)h(its)f(argu-)241 4627 y(men)m(t)g(form)m(ula.)40
b(It)29 b(is)g(m)m(uc)m(h)g(faster)h(though)f(less)f(p)s(o)m(w)m(erful)
g(than)h(the)h(other)f(simpli-)241 4740 y(\014ers.)p
eop
%%Page: 500 500
500 499 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(500)1018 b FM(CHAPTER)30 b(67.)72 b(REDLOG:)30 b(LOGIC)g(SYSTEM)664
555 y FQ(As)41 b(an)f(optional)g(argumen)m(t)h(there)g(can)g(b)s(e)f(a)
h FD(the)-5 b(ory)50 b FQ(passed.)71 b(This)39 b(is)g(a)i(list)f(of)664
668 y(atomic)35 b(form)m(ulas)e(assumed)h(to)h(hold.)51
b(Simpli\014cation)31 b(is)i(then)h(p)s(erformed)f(on)h(the)664
781 y(basis)29 b(of)i(these)g(assumptions.)664 1049 y
FN(Example:)664 1254 y FH(4:)43 b(rlsimpl)e(g;)664 1454
y(\(x1)i(+)g(x2)f(=)i(0)f(or)g(x1)f(+)h(x3)g(=)g(0\))g(and)g(\(x1)f(+)h
(x2)g(=)g(0)g(or)g(x2)g(+)g(x3)g(=)g(0\))708 1653 y(and)f(\(x1)g(+)i
(x3)e(=)i(0)f(or)f(x2)h(+)g(x3)g(=)g(0\))664 1787 y @beginspecial
@setspecial @endspecial 159 x FR(67.4.2)113 b(T)-9 b(ableau)37
b(Simpli\014er)664 2168 y FQ(The)31 b(standard)f(simpli\014er)d
(preserv)m(es)k(the)g(basic)f(Bo)s(olean)i(structure)e(of)h(a)g(form)m
(ula.)664 2281 y(The)44 b(tableau)h(metho)s(ds,)i(in)c(con)m(trast,)50
b(pro)m(vide)44 b(a)h(tec)m(hnique)f(for)g(c)m(hanging)h(the)664
2393 y(Bo)s(olean)31 b(structure)f(of)g(a)h(form)m(ula)f(b)m(y)g
(constructing)g(case)h(distinctions.)664 2556 y(The)g(function)f
FJ(RLATAB)f FQ(automatically)i(\014nds)f(a)h(suitable)f(case)i
(distinction.)41 b(Based)664 2669 y(on)36 b FJ(RLATAB)p
FQ(,)e(the)i(function)e FJ(RLITAB)g FQ(iterates)j(this)d(pro)s(cess)i
(un)m(til)e(no)h(further)g(sim-)664 2782 y(pli\014cation)26
b(can)j(b)s(e)f(detected.)41 b(There)28 b(is)f(a)i(more)f(fundamen)m
(tal)f(en)m(try)i(p)s(oin)m(t)e FJ(RLTAB)664 2895 y FQ(for)j(man)m
(ually)f(en)m(tering)i(case)g(distinctions.)664 3040
y @beginspecial @setspecial @endspecial 148 x FR(67.4.3)113
b(Gr\177)-56 b(obner)37 b(Simpli\014er)664 3410 y FQ(The)32
b(Gr\177)-45 b(obner)32 b(simpli\014er)d(considers)i(algebraic)h
(simpli\014cation)e(rules)h(b)s(et)m(w)m(een)i(the)664
3523 y(atomic)51 b(form)m(ulas)e(of)h(the)h(input)d(form)m(ula.)99
b(The)49 b(usual)g(pro)s(cedure)g(called)g(for)664 3635
y(Gr\177)-45 b(obner)41 b(simpli\014cation)d(is)i FJ(RLGSN)p
FQ(.)g(Similar)e(to)k(the)f(standard)f(simpli\014er,)h(there)664
3748 y(is)30 b(an)g(optional)f(theory)i(argumen)m(t.)664
4016 y FN(Example:)664 4222 y FH(5:)43 b(rlgsn\(x*y+1<>0)38
b(or)k(y*z+1<>0)f(or)i(x-z=0\);)664 4421 y(true)664 4558
y @beginspecial @setspecial @endspecial 199 x FE(67.5)136
b(Normal)46 b(F)-11 b(orms)664 4847 y @beginspecial @setspecial
@endspecial eop
%%Page: 501 501
501 500 bop 241 299 a @beginspecial @setspecial @endspecial
FM(67.6.)72 b(QUANTIFIER)30 b(ELIMINA)-8 b(TION)30 b(AND)i(V)-10
b(ARIANTS)590 b FQ(501)241 555 y FR(67.5.1)112 b(Bo)s(olean)38
b(Normal)d(F)-9 b(orms)241 777 y FJ(RLCNF)42 b FQ(and)g
FJ(RLDNF)g FQ(compute)h(conjunctiv)m(e)g(resp.)g(disjunctiv)m(e)f
(normal)g(forms)g(of)241 890 y(their)e(form)m(ula)g(argumen)m(ts.)74
b(Subsumption)38 b(and)j(cut)g(strategies)h(are)g(applied)d(to)241
1002 y(decrease)31 b(the)g(n)m(um)m(b)s(er)e(of)h(clauses.)241
1130 y @beginspecial @setspecial @endspecial 166 x FR(67.5.2)112
b(Miscellaneous)37 b(Normal)f(F)-9 b(orms)241 1517 y
FJ(RLNNF)28 b FQ(computes)j(a)f(negation)g(normal)f(form.)40
b(This)29 b(is)g(an)h FJ(and)p FQ(-)p FJ(or)p FQ(-com)m(bination)e(of)
241 1630 y(atomic)j(form)m(ulas.)241 1793 y FJ(RLPNF)d
FQ(computes)i(a)h(prenex)e(normal)g(form)g(of)h(its)g(argumen)m(t.)41
b(That)30 b(is,)f(all)g(quan)m(ti-)241 1906 y(\014ers)g(are)h(mo)m(v)m
(ed)h(outside)e(suc)m(h)g(that)h(they)g(form)g(a)g(blo)s(c)m(k)f(in)f
(fron)m(t)i(of)g(a)g(quan)m(ti\014er-)241 2019 y(free)g(matrix)g(form)m
(ula.)241 2156 y @beginspecial @setspecial @endspecial
199 x FE(67.6)135 b(Quan)l(ti\014er)46 b(Elimination)h(and)e(V)-11
b(arian)l(ts)241 2608 y FQ(Quan)m(ti\014er)38 b(elimination)e(computes)
k(quan)m(ti\014er-free)e(equiv)-5 b(alen)m(ts)39 b(for)g(giv)m(en)g
(\014rst-)241 2721 y(order)30 b(form)m(ulas.)39 b(F)-8
b(or)31 b Fq(OFSF)e FQ(and)h Fq(D)m(VFSF)p FQ(,)g(REDLOG)g(uses)g(a)h
(tec)m(hnique)f(based)241 2833 y(on)44 b(elimination)d(set)k(ideas.)82
b(The)44 b Fq(OFSF)f FQ(implemen)m(tation)g(is)g(restricted)h(to)h(at)
241 2946 y(most)h(quadratic)f(o)s(ccurrences)g(of)h(the)f(quan)m
(ti\014ed)g(v)-5 b(ariables,)48 b(but)d(includes)e(n)m(u-)241
3059 y(merous)d(heuristic)f(strategies)j(for)e(coping)h(with)e(higher)h
(degrees.)72 b(The)41 b Fq(D)m(VFSF)241 3172 y FQ(implemen)m(tation)e
(is)h(restricted)h(to)g(form)m(ulas)f(that)i(are)f(linear)e(in)h(the)h
(quan)m(ti\014ed)241 3285 y(v)-5 b(ariables.)69 b(The)40
b Fq(A)m(CFSF)g FQ(quan)m(ti\014er)g(elimination)d(is)j(based)g(on)g
(comprehensiv)m(e)241 3398 y(Gr\177)-45 b(obner)27 b(basis)g
(computation;)i(there)f(are)g(no)g(degree)g(restrictions)f(for)h(this)f
(con)m(text)241 3543 y @beginspecial @setspecial @endspecial
148 x FR(67.6.1)112 b(Quan)m(ti\014er)38 b(Elimination)241
3913 y FJ(RLQE)31 b FQ(p)s(erforms)g(quan)m(ti\014er)g(elimination)f
(on)i(its)g(argumen)m(t)h(form)m(ula.)46 b(There)32 b(is)g(an)241
4026 y(optional)d(theory)i(argumen)m(t)g(in)e(the)h(st)m(yle)h(of)g
FJ(RLSIMPL)d FQ(supp)s(orted.)p eop
%%Page: 502 502
502 501 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(502)1018 b FM(CHAPTER)30 b(67.)72 b(REDLOG:)30 b(LOGIC)g(SYSTEM)664
555 y FN(Example:)664 761 y FH(6:)43 b(rlqe\(ex\(x,a*x**2)o(+b)o(*x+)o
(c>)o(0\),)o({a)o(<0})o(\);)1056 960 y(2)664 1060 y(4*a*c)f(-)h(b)87
b(<)43 b(0)664 1279 y FQ(F)-8 b(or)24 b Fq(OFSF)d FQ(and)h
Fq(D)m(VFSF)g FQ(there)h(is)f(a)h(v)-5 b(arian)m(t)23
b FJ(RLQEA)e FQ(a)m(v)-5 b(ailable.)37 b(It)23 b(returns)f(instead)664
1392 y(of)34 b(a)h(quan)m(ti\014er-free)e(equiv)-5 b(alen)m(t,)35
b(a)g(list)d(of)j(condition-solution)c(pairs)i(con)m(taining,)664
1505 y(e.g.,)f(satisfying)d(sample)h(p)s(oin)m(ts)f(for)h(outermost)h
(existen)m(tial)f(quan)m(ti\014er)f(blo)s(c)m(ks.)664
1773 y FN(Example:)664 1978 y FH(7:)43 b(rlqea\(ex\(x,a*x**)o(2+)o(b*x)
o(+c)o(>0\))o(,{)o(a<0)o(}\))o(;)1144 2178 y(2)664 2277
y({{4*a*c)e(-)i(b)87 b(<)43 b(0,)1885 2477 y(2)1056 2576
y(-)h(sqrt\()d(-)i(4*a*c)f(+)h(b)g(\))g(-)h(2*a*epsilon1)38
b(-)43 b(b)751 2676 y({x)g(=)g(-----------------)o(--)o(---)o(--)o(---)
o(--)o(--)o(---)o(--)o(---)o(--)o(--)o(}}})1841 2775
y(2*a)664 2903 y @beginspecial @setspecial @endspecial
166 x FR(67.6.2)113 b(Generic)36 b(Quan)m(ti\014er)i(Elimination)664
3290 y Fq(OFSF)20 b FQ(allo)m(ws)h(generic)g(quan)m(ti\014er)f
(elimination)f FJ(RLGQE)p FQ(,)h(whic)m(h)g(enlarges)h(the)h(theory)664
3403 y(b)m(y)34 b(disequations,)g(i.e.)h FJ(<>)p FQ(-atomic)g(form)m
(ulas,)f(wherev)m(er)h(this)e(supp)s(orts)g(the)h(quan-)664
3516 y(ti\014er)h(elimination.)52 b(There)35 b(is)g(also)g(generic)g
(quan)m(ti\014er)f(elimination)f(with)h(answ)m(er)664
3629 y(a)m(v)-5 b(ailable:)40 b FJ(RLGQEA)p FQ(.)664
3896 y FN(Example:)664 4102 y FH(8:)j(rlgqe)e(ex\(x,a*x**2+b*x+c)o
(>0\))o(;)664 4302 y({{a)i(<>)f(0},)1100 4501 y(2)708
4600 y(4*a*c)f(-)i(b)87 b(<)43 b(0)h(or)e(a)h(>=)g(0})664
4735 y @beginspecial @setspecial @endspecial eop
%%Page: 503 503
503 502 bop 241 299 a @beginspecial @setspecial @endspecial
FM(67.6.)72 b(QUANTIFIER)30 b(ELIMINA)-8 b(TION)30 b(AND)i(V)-10
b(ARIANTS)590 b FQ(503)241 555 y FR(67.6.3)112 b(Linear)38
b(Optimization)241 777 y FJ(RLOPT)32 b FQ(uses)g(quan)m(ti\014er)h
(elimination)d(for)j(linear)f(optimization.)49 b(It)33
b(tak)m(es)i(as)e(argu-)241 890 y(men)m(ts)i(a)g(list)f(of)h(constrain)
m(ts)g(and)f(the)h(target)i(function.)53 b(The)34 b(target)j(function)c
(is)241 1002 y(minimized)27 b(sub)5 b(ject)30 b(to)h(the)g(constrain)m
(ts.)p eop
%%Page: 504 504
504 503 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(504)1018 b FM(CHAPTER)30 b(67.)72 b(REDLOG:)30 b(LOGIC)g(SYSTEM)p
eop
%%Page: 505 505
505 504 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(68)241 1693 y FT(RESET:)76 b(Reset)i(REDUCE)e(to)241
1942 y(its)h(initial)f(state)1558 2415 y Fx(J.)26 b(P)-6
b(.)26 b(Fitc)n(h)854 2506 y(Sc)n(ho)r(ol)g(of)h(Mathematical)f
(Sciences,)h(Univ)n(ersit)n(y)d(of)j(Bath)1289 2598 y(BA)-6
b(TH)25 b(BA2)h(7A)-6 b(Y,)25 b(England)1224 2719 y(e{mail:)35
b(jp\013@maths.bath.ac.uk)241 2963 y FQ(This)26 b(pac)m(k)-5
b(age)30 b(de\014nes)c(a)j(command)e FJ(RESETREDUCE)52
b FQ(that)29 b(w)m(orks)f(through)f(the)h(his-)241 3076
y(tory)d(of)g(previous)f(commands,)i(and)e(clears)h(an)m(y)g(v)-5
b(alues)25 b(whic)m(h)e(ha)m(v)m(e)k(b)s(een)d(assigned,)241
3189 y(plus)j(an)m(y)j(rules,)f(arra)m(ys)h(and)f(the)h(lik)m(e.)40
b(It)30 b(also)f(sets)h(the)g(v)-5 b(arious)29 b(switc)m(hes)g(to)h
(their)241 3302 y(initial)f(v)-5 b(alues.)44 b(It)32
b(is)e(not)i(complete,)h(but)e(do)s(es)h(w)m(ork)f(for)h(most)g(things)
f(that)h(cause)241 3415 y(a)f(gradual)e(loss)h(of)g(space.)1667
5187 y(505)p eop
%%Page: 506 506
506 505 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(506)24 b FM(CHAPTER)30 b(68.)72 b(RESET:)29 b(RESET)g(REDUCE)i(TO)e
(ITS)h(INITIAL)f(ST)-8 b(A)g(TE)p eop
%%Page: 507 507
507 506 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(69)241 1693 y FT(RESIDUE:)75 b(A)i(residue)241 1942
y(pac)-6 b(k)-13 b(age)1478 2424 y Fx(W)-6 b(olfram)26
b(Ko)r(epf)826 2515 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41
b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521 2607 y(T)-6
b(akustra)l(\177)-34 b(se)27 b(7)1150 2698 y(D{14195)g(Berlin{Dahlem,)g
(German)n(y)1370 2819 y(e{mail:)35 b(Ko)r(epf@zib.de)241
3063 y FQ(This)d(pac)m(k)-5 b(age)36 b(supp)s(orts)c(the)i(calculation)
f(of)h(residues.)49 b(The)34 b(residue)e(Res)2801 3113
y FF(z)s FO(=)p FF(a)2951 3063 y FL(f)10 b FQ(\()p FL(z)t
FQ(\))34 b(of)241 3198 y(a)d(function)e FL(f)10 b FQ(\()p
FL(z)t FQ(\))30 b(at)h(the)g(p)s(oin)m(t)e FL(a)d FP(2)e
FQ(C)p 1564 3198 4 60 v 30 w(is)30 b(de\014ned)f(as)1212
3440 y(Res)1220 3490 y FF(z)s FO(=)p FF(a)1370 3440 y
FL(f)10 b FQ(\()p FL(z)t FQ(\))26 b(=)1716 3379 y(1)p
1673 3419 132 4 v 1673 3503 a(2)p FL(\031)s(i)1830 3325
y FB(I)1928 3440 y FL(f)10 b FQ(\()p FL(z)t FQ(\))15
b FL(dz)30 b(;)241 3673 y FQ(with)d(in)m(tegration)i(along)g(a)h
(closed)e(curv)m(e)h(around)f FL(z)i FQ(=)25 b FL(a)k
FQ(with)e(winding)f(n)m(um)m(b)s(er)i(1.)241 3835 y(It)i(con)m(tains)h
(t)m(w)m(o)h(REDUCE)e(op)s(erators:)377 4098 y FP(\017)46
b FJ(residue\(f,z,a\))37 b FQ(determines)k(the)g(residue)f(of)h
FL(f)51 b FQ(at)42 b(the)f(p)s(oin)m(t)f FL(z)48 b FQ(=)43
b FL(a)f FQ(if)468 4211 y FL(f)k FQ(is)37 b(meromorphic)f(at)h
FL(z)k FQ(=)c FL(a)p FQ(.)61 b(The)37 b(calculation)f(of)h(residues)f
(at)i(essen)m(tial)468 4324 y(singularities)27 b(of)k
FL(f)39 b FQ(is)30 b(not)h(supp)s(orted.)377 4511 y FP(\017)46
b FJ(poleorder\(f,z,a\))27 b FQ(determines)j(the)h(p)s(ole)f(order)h
(of)g FL(f)40 b FQ(at)32 b(the)g(p)s(oin)m(t)e FL(z)g
FQ(=)d FL(a)468 4624 y FQ(if)i FL(f)40 b FQ(is)29 b(meromorphic)g(at)j
FL(z)d FQ(=)c FL(a)p FQ(.)241 4886 y(Note)31 b(that)g(b)s(oth)f
(functions)f(use)h(the)h FJ(TAYLOR)d FQ(pac)m(k)-5 b(age)33
b(\(c)m(hapter)e @beginspecial @setspecial @endspecial(82)q(\).)1667
5187 y(507)p eop
%%Page: 508 508
508 507 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(508)716 b FM(CHAPTER)29 b(69.)72 b(RESIDUE:)30 b(A)h(RESIDUE)f(P)-8
b(A)m(CKA)m(GE)664 555 y FH(load_package)39 b(residue;)664
754 y(residue\(x/\(x^2-2\))o(,x)o(,s)o(qrt)o(\(2)o(\)\);)708
954 y(1)664 1053 y(---)708 1153 y(2)664 1352 y(poleorder\(x/\(x^2-)o
(2\))o(,x)o(,sq)o(rt)o(\(2\))o(\);)664 1551 y(1)664 1751
y(residue\(sin\(x\)/\(x)o(^2)o(-2)o(\),x)o(,s)o(qrt)o(\(2)o(\)\);)708
1950 y(sqrt\(2\)*sin\(sqrt)o(\(2)o(\)\))664 2050 y(-----------------)o
(--)o(--)o(-)1100 2149 y(4)664 2348 y(poleorder\(sin\(x\)/)o(\(x)o(^2)o
(-2\))o(,x)o(,sq)o(rt)o(\(2\))o(\);)664 2548 y(1)664
2747 y(residue\(\(x^n-y^n\))o(/\()o(x-)o(y\)^)o(2,)o(x,y)o(\);)751
2946 y(n)708 3046 y(y)k(*n)664 3145 y(------)751 3245
y(y)664 3444 y(poleorder\(\(x^n-y^)o(n\))o(/\()o(x-y)o(\)^)o(2,x)o(,y)o
(\);)664 3644 y(1)p eop
%%Page: 509 509
509 508 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(70)241 1693 y FT(RLFI:)76 b(REDUCE)h(LaT)-19 b(eX)241
1942 y(form)-6 b(ula)76 b(in)-6 b(terface)1231 2415 y
Fx(Ric)n(hard)25 b(Lisk)l(a,)h(Ladisla)n(v)h(Drsk)l(a)1226
2506 y(Computational)f(Ph)n(ysics)g(Group)837 2598 y(F)-6
b(acult)n(y)25 b(of)i(Nuclear)e(Sciences)i(and)e(Ph)n(ysical)h
(Engineering)618 2689 y(Czec)n(h)g(T)-6 b(ec)n(hnical)27
b(Univ)n(ersit)n(y)d(in)i(Prague,)h(Breho)n(v)l(a)f(7,)g(115)h(19)f
(Prague)h(1)1475 2780 y(Czec)n(h)f(Republic)1216 2902
y(e{mail:)35 b(lisk)l(a@siduri.fj\014.cvut.cz)241 3146
y FQ(The)c(RLFI)h(pac)m(k)-5 b(age)34 b(pro)m(vides)d(the)h(prin)m
(ting)d(of)j(REDUCE)g(expressions)f(in)f(L)3021 3129
y FO(A)3060 3146 y FQ(T)3111 3165 y(E)3161 3146 y(X)241
3259 y(format,)i(so)g(it)f(can)g(b)s(e)g(used)g(directly)f(for)h(do)s
(cumen)m(t)g(pro)s(duction.)42 b(V)-8 b(arious)31 b(math-)241
3371 y(ematical)i(constructions)g(are)g(supp)s(orted)f(b)m(y)h(the)g
(in)m(terface)h(including)c(subscripts,)241 3484 y(sup)s(erscripts,)46
b(fon)m(t)g(c)m(hanging,)j(Greek)c(letters,)50 b(divide-bars,)c(in)m
(tegral)f(and)f(sum)241 3597 y(signs,)29 b(deriv)-5 b(ativ)m(es)30
b(etc.)241 3760 y(The)j(in)m(terface)h(is)e(connected)j(to)f(REDUCE)f
(b)m(y)g(three)h(new)f(switc)m(hes)g(and)g(sev)m(eral)241
3873 y(statemen)m(ts.)50 b(T)-8 b(o)33 b(activ)-5 b(ate)35
b(the)e(L)1405 3856 y FO(A)1444 3873 y FQ(T)1495 3892
y(E)1545 3873 y(X)g(output)g(mo)s(de)f(the)h(switc)m(h)g
FJ(latex)e FQ(m)m(ust)i(b)s(e)241 3986 y(set)f FJ(on)p
FQ(.)43 b(This)29 b(switc)m(h)i(causes)h(all)e(outputs)h(to)h(b)s(e)f
(written)f(in)g(the)i(L)2625 3969 y FO(A)2664 3986 y
FQ(T)2715 4005 y(E)2765 3986 y(X)f(syn)m(tax)h(of)241
4099 y(form)m(ulas.)39 b(The)27 b(switc)m(h)g FJ(VERBATIM)e
FQ(is)i(used)g(for)g(input)f(prin)m(ting)f(con)m(trol.)40
b(If)27 b(it)g(is)g FJ(on)241 4212 y FQ(input)32 b(to)k(REDUCE)e
(system)h(is)e(t)m(yp)s(eset)i(in)f(L)1887 4195 y FO(A)1926
4212 y FQ(T)1977 4231 y(E)2027 4212 y(X)h(v)m(erbatim)f(en)m(vironmen)m
(t)g(after)241 4325 y(the)c(line)f(con)m(taining)h(the)h(string)e
FJ(REDUCE)46 b(Input:)p FQ(.)241 4487 y(The)36 b(switc)m(h)g
FJ(lasimp)f FQ(con)m(trols)h(the)h(algebraic)f(ev)-5
b(aluation)36 b(of)h(input)e(form)m(ulas.)58 b(If)241
4600 y(it)29 b(is)g FJ(on)h FQ(ev)m(ery)g(form)m(ula)f(is)g(ev)-5
b(aluated,)31 b(simpli\014ed)26 b(and)j(written)g(in)g(the)h(form)f
(giv)m(en)241 4713 y(b)m(y)f(ordinary)f(REDUCE)i(statemen)m(ts)h(and)e
(switc)m(hes)h(suc)m(h)f(as)h FJ(factor)p FQ(,)f FJ(order)p
FQ(,)f FJ(rat)241 4826 y FQ(etc.)41 b(In)28 b(the)h(case)h(when)e(the)h
FJ(lasimp)f FQ(switc)m(h)g(is)g FJ(off)g FQ(ev)-5 b(aluation,)29
b(simpli\014cation)c(or)241 4939 y(reordering)d(of)h(form)m(ulas)f(is)h
(not)g(p)s(erformed)f(and)g(REDUCE)i(acts)g(only)e(as)i(a)f(form)m(ula)
1667 5187 y(509)p eop
%%Page: 510 510
510 509 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(510)100 b FM(CHAPTER)30 b(70.)72 b(RLFI:)30 b(REDUCE)g(LA)-8
b(TEX)31 b(F)m(ORMULA)g(INTERF)-10 b(A)m(CE)664 555 y
FQ(parser)37 b(and)h(the)g(form)f(of)h(the)g(form)m(ula)f(output)g(is)g
(exactly)i(the)f(same)g(as)g(that)h(of)664 668 y(the)27
b(input,)f(the)h(only)f(di\013erence)h(remains)e(in)h(the)h(syn)m(tax.)
40 b(The)26 b(mo)s(de)h FJ(off)47 b(lasimp)664 781 y
FQ(is)36 b(designed)f(esp)s(ecially)g(for)h(t)m(yp)s(esetting)h(of)g
(form)m(ulas)e(for)i(whic)m(h)e(the)h(user)g(needs)664
894 y(preserv)-5 b(ation)37 b(of)h(their)f(structure.)63
b(This)36 b(switc)m(h)i(has)f(no)h(meaning)f(if)g(the)h(switc)m(h)664
1007 y FJ(Latex)29 b FQ(is)h FJ(off)f FQ(and)h(th)m(us)g(is)f(w)m
(orking)h(only)f(for)i(L)2373 990 y FO(A)2412 1007 y
FQ(T)2463 1026 y(E)2513 1007 y(X)f(output.)664 1170 y(F)-8
b(or)46 b(ev)m(ery)g(iden)m(ti\014er)e(used)g(in)g(the)i(t)m(yp)s(eset)
g(REDUCE)f(form)m(ula)g(the)g(follo)m(wing)664 1282 y(prop)s(erties)29
b(can)i(b)s(e)e(de\014ned)g(b)m(y)i(the)f(statemen)m(t)j
FJ(defid)p FQ(:)801 1506 y FP(\017)45 b FQ(its)30 b(prin)m(ting)e(sym)m
(b)s(ol)i(\(Greek)h(letters)f(can)h(b)s(e)f(used\).)801
1688 y FP(\017)45 b FQ(the)31 b(fon)m(t)g(in)e(whic)m(h)g(the)i(sym)m
(b)s(ol)e(will)e(b)s(e)j(t)m(yp)s(eset.)801 1870 y FP(\017)45
b FQ(accen)m(t)33 b(whic)m(h)c(will)f(b)s(e)h(t)m(yp)s(eset)i(ab)s(o)m
(v)m(e)h(the)f(sym)m(b)s(ol.)664 2094 y(Sym)m(b)s(ols)38
b(with)h(indexes)f(are)j(treated)f(in)f(REDUCE)h(as)g(op)s(erators.)69
b(Eac)m(h)40 b(index)664 2207 y(corresp)s(onds)33 b(to)i(an)f(argumen)m
(t)h(of)g(the)f(op)s(erator.)53 b(The)34 b(meaning)f(of)i(op)s(erator)g
(ar-)664 2320 y(gumen)m(ts)j(\(where)g(one)h(w)m(an)m(ts)f(to)h(t)m(yp)
s(eset)g(them\))f(is)f(declared)h(b)m(y)g(the)g(statemen)m(t)664
2433 y FJ(defindex)p FQ(.)g(This)26 b(statemen)m(t)j(causes)f(the)g
(argumen)m(ts)g(to)h(b)s(e)e(t)m(yp)s(eset)h(as)g(subscripts)664
2546 y(or)k(sup)s(erscripts)c(\(on)k(left)f(or)h(righ)m(t-hand)e(side)h
(of)g(the)h(op)s(erator\))g(or)g(as)g(argumen)m(ts)664
2659 y(of)f(the)f(op)s(erator.)664 2821 y(The)44 b(statemen)m(t)i
FJ(mathstyle)41 b FQ(de\014nes)i(the)i(st)m(yle)f(of)g(form)m(ula)f(t)m
(yp)s(esetting.)82 b(The)664 2934 y(v)-5 b(ariable)29
b FJ(laline!*)f FQ(de\014nes)i(the)h(length)e(of)i(output)f(lines.)664
3097 y(The)f(fractions)h(with)e(horizon)m(tal)i(divide)e(bars)h(are)h
(t)m(yp)s(eset)h(b)m(y)e(using)g(the)h(new)f(RE-)664
3210 y(DUCE)23 b(in\014x)d(op)s(erator)j FJ(\\)p FQ(.)38
b(This)21 b(op)s(erator)h(is)g(not)h(algebraically)e(simpli\014ed.)34
b(During)664 3323 y(t)m(yp)s(esetting)29 b(of)f(p)s(o)m(w)m(ers)g(the)g
(c)m(hec)m(king)g(on)g(the)g(form)g(of)g(the)g(p)s(o)m(w)m(er)g(base)g
(and)g(exp)s(o-)664 3436 y(nen)m(t)h(is)e(p)s(erformed)g(to)i
(determine)e(the)h(form)g(of)g(the)h(t)m(yp)s(eset)g(expression)e(\()p
FD(e.g.)j FQ(sqrt)664 3549 y(sym)m(b)s(ol,)g(using)e(paren)m(theses\).)
664 3711 y(Some)46 b(sp)s(ecial)e(forms)h(can)h(b)s(e)f(t)m(yp)s(eset)h
(b)m(y)f(using)g(REDUCE)g(pre\014x)f(op)s(erators.)664
3824 y(These)30 b(are)h(as)g(follo)m(ws:)801 4048 y FP(\017)45
b FJ(int)30 b FQ(-)h(in)m(tegral)f(of)g(an)g(expression.)801
4230 y FP(\017)45 b FJ(dint)30 b FQ(-)g(de\014nite)f(in)m(tegral)i(of)f
(an)g(expression.)801 4412 y FP(\017)45 b FJ(df)30 b
FQ(-)h(deriv)-5 b(ativ)m(e)30 b(of)g(an)h(expression.)801
4594 y FP(\017)45 b FJ(pdf)30 b FQ(-)h(partial)e(deriv)-5
b(ativ)m(e)30 b(of)g(an)g(expression.)801 4777 y FP(\017)45
b FJ(sum)30 b FQ(-)h(sum)e(of)h(expressions.)801 4959
y FP(\017)45 b FJ(product)29 b FQ(-)h(pro)s(duct)g(of)g(expressions.)p
eop
%%Page: 511 511
511 510 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(511)377 555 y FP(\017)46 b FJ(sqrt)29 b FQ(-)i(square)f(ro)s
(ot)h(of)f(expression.)241 793 y(There)23 b(are)h(still)d(some)j
(problems)e(unsolv)m(ed)h(in)f(the)i(presen)m(t)f(v)m(ersion)g(of)h
(the)g(in)m(terface)241 906 y(as)30 b(follo)m(ws:)377
1143 y FP(\017)46 b FQ(breaking)30 b(the)g(form)m(ulas)g(whic)m(h)f(do)
h(not)g(\014t)h(on)f(one)h(line.)377 1331 y FP(\017)46
b FQ(automatic)31 b(decision)e(where)h(to)h(use)f(divide)f(bars)g(in)g
(fractions.)377 1518 y FP(\017)46 b FQ(distinction)35
b(of)j(t)m(w)m(o-)i(or)e(more-c)m(haracter)i(iden)m(ti\014ers)35
b(from)j(the)g(pro)s(duct)e(of)468 1631 y(one-c)m(haracter)d(sym)m(b)s
(ols.)377 1819 y FP(\017)46 b FQ(t)m(yp)s(esetting)31
b(of)f(matrices.)p eop
%%Page: 512 512
512 511 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(512)100 b FM(CHAPTER)30 b(70.)72 b(RLFI:)30 b(REDUCE)g(LA)-8
b(TEX)31 b(F)m(ORMULA)g(INTERF)-10 b(A)m(CE)p eop
%%Page: 513 513
513 512 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(71)241 1693 y FT(R)-6 b(OOTS:)75 b(A)i(REDUCE)g(ro)6
b(ot)241 1942 y(\014nding)77 b(pac)-6 b(k)-13 b(age)1411
2424 y Fx(Stanley)26 b(L.)g(Kamen)n(y)1400 2515 y(Los)h(Angeles,)f
(U.S.A.)241 2759 y FQ(The)21 b(ro)s(ot)i(\014nding)d(pac)m(k)-5
b(age)24 b(is)d(designed)g(so)h(that)h(it)f(can)g(b)s(e)g(used)f(as)i
(an)f(indep)s(enden)m(t)241 2872 y(pac)m(k)-5 b(age,)32
b(or)f(it)f(can)g(b)s(e)g(in)m(tegrated)h(with)e(and)h(called)g(b)m(y)g
FJ(SOLVE)p FQ(.)241 3027 y @beginspecial @setspecial
@endspecial 181 x FE(71.1)135 b(T)-11 b(op)44 b(Lev)l(el)i(F)-11
b(unctions)241 3461 y FQ(The)44 b(top)h(lev)m(el)g(functions)e(can)j(b)
s(e)e(called)g(either)g(as)i(sym)m(b)s(olic)d(op)s(erators)i(from)241
3574 y(algebraic)c(mo)s(de,)j(or)e(they)g(can)g(b)s(e)e(called)h
(directly)g(from)g(sym)m(b)s(olic)f(mo)s(de)h(with)241
3687 y(sym)m(b)s(olic)34 b(mo)s(de)h(argumen)m(ts.)56
b(Outputs)34 b(are)i(expressed)e(in)g(forms)h(that)h(prin)m(t)e(out)241
3800 y(correctly)d(in)e(algebraic)h(mo)s(de.)241 3945
y @beginspecial @setspecial @endspecial 148 x FR(71.1.1)112
b(F)-9 b(unctions)37 b(that)h(refer)f(to)g(real)g(ro)s(ots)g(only)241
4315 y FQ(The)27 b(three)g(functions)f FJ(REALROOTS)p
FQ(,)g FJ(ISOLATER)f FQ(and)i FJ(RLROOTNO)e FQ(can)j(receiv)m(e)g(1,)h
(2)e(or)241 4428 y(3)k(argumen)m(ts.)241 4590 y(The)g(\014rst)g
(argumen)m(t)h(is)f(the)h(p)s(olynomial)d(p,)i(that)i(can)f(b)s(e)f
(complex)g(and)g(can)h(ha)m(v)m(e)241 4703 y(m)m(ultiple)h(or)i(zero)h
(ro)s(ots.)56 b(If)35 b(arg2)h(and)f(arg3)h(are)g(not)f(presen)m(t,)i
(all)e(real)g(ro)s(ots)g(are)241 4816 y(found.)54 b(If)34
b(the)i(additional)d(argumen)m(ts)i(are)h(presen)m(t,)h(they)e
(restrict)g(the)h(region)e(of)241 4929 y(consideration.)1667
5187 y(513)p eop
%%Page: 514 514
514 513 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(514)89 b FM(CHAPTER)29 b(71.)72 b(R)m(OOTS:)30 b(A)g(REDUCE)h(R)m
(OOT)e(FINDING)j(P)-8 b(A)m(CKA)m(GE)801 555 y FP(\017)45
b FQ(If)29 b(there)h(are)f(t)m(w)m(o)i(argumen)m(ts)e(the)g(second)h
(is)e(either)g(POSITIVE)g(or)h(NEGA-)891 668 y(TIVE.)i(The)e(function)g
(will)f(only)i(\014nd)f(p)s(ositiv)m(e)g(or)h(negativ)m(e)i(ro)s(ots)
801 856 y FP(\017)45 b FQ(If)g(argumen)m(ts)f(are)h(\(p,arg2,arg3\))j
(then)88 b(Arg2)46 b(and)d(Arg3)j(m)m(ust)e(b)s(e)g(r)g(\(a)891
969 y(real)d(n)m(um)m(b)s(er\))f(or)h(EX)m(CLUDE)g(r,)i(or)e(a)g(mem)m
(b)s(er)g(of)g(the)g(list)e(POSITIVE,)891 1082 y(NEGA)-8
b(TIVE,)27 b(INFINITY,)g(-INFINITY.)f(EX)m(CLUDE)h(r)f(causes)g(the)h
(v)-5 b(alue)25 b(r)891 1194 y(to)32 b(b)s(e)f(excluded)f(from)g(the)h
(region.)43 b(The)30 b(order)h(of)g(the)g(sequence)h(arg2,)g(arg3)891
1307 y(is)h(unimp)s(ortan)m(t.)49 b(Assuming)32 b(that)i(arg2)g
FP(\024)g FQ(arg3)g(when)f(b)s(oth)g(are)h(n)m(umeric,)891
1420 y(then)941 1545 y FP(f)p FQ(-INFINITY,INFINITY)p
FP(g)164 b FQ(\(or)31 b FP(fg)p FQ(\))163 b(all)29 b(ro)s(ots;)941
1658 y FP(f)p FQ(arg2,NEGA)-8 b(TIVE)p FP(g)326 b FQ(represen)m(ts)100
b FP(\0001)25 b FL(<)g(r)j(<)d(ar)s(g)s FQ(2;)941 1771
y FP(f)p FQ(arg2,POSITIVE)p FP(g)370 b FQ(represen)m(ts)100
b FL(ar)s(g)s FQ(2)26 b FL(<)f(r)j(<)d FP(1)p FQ(;)891
1913 y(In)g(eac)m(h)h(of)f(the)g(follo)m(wing,)g(replacing)e(an)i
FD(ar)-5 b(g)26 b FQ(with)d(EX)m(CLUDE)j FD(ar)-5 b(g)25
b FQ(con)m(v)m(erts)891 2026 y(the)31 b(corresp)s(onding)d(inclusiv)m
(e)h FP(\024)h FQ(to)h(the)f(exclusiv)m(e)g FL(<)941
2169 y FP(f)p FQ(arg2,-INFINITY)p FP(g)102 b FQ(represen)m(ts)e
FP(\0001)25 b FL(<)g(r)j FP(\024)d FL(ar)s(g)s FQ(2;)941
2282 y FP(f)p FQ(arg2,INFINITY)p FP(g)132 b FQ(represen)m(ts)100
b FL(ar)s(g)s FQ(2)26 b FP(\024)f FL(r)j(<)d FP(1)p FQ(;)941
2395 y FP(f)p FQ(arg2,arg3)p FP(g)389 b FQ(represen)m(ts)100
b FL(ar)s(g)s FQ(2)26 b FP(\024)f FL(r)j FP(\024)d FL(ar)s(g)s
FQ(3;)801 2575 y FP(\017)45 b FQ(If)30 b(zero)i(is)d(in)g(the)i(in)m
(terv)-5 b(al)29 b(the)i(zero)g(ro)s(ot)g(is)e(included.)664
2937 y FN(REALR)m(OOTS)45 b FQ(\014nds)26 b(the)i(real)g(ro)s(ots)g(of)
g(the)g(p)s(olynomial)d(p.)40 b(Precision)26 b(of)i(com-)891
3049 y(putation)h(is)e(guaran)m(teed)j(to)g(b)s(e)e(su\016cien)m(t)g
(to)h(separate)h(all)e(real)g(ro)s(ots)h(in)f(the)891
3162 y(sp)s(eci\014ed)h(region.)40 b(\(cf.)i(MUL)-8 b(TIR)m(OOT)30
b(for)g(treatmen)m(t)i(of)e(m)m(ultiple)e(ro)s(ots.\))664
3350 y FN(ISOLA)-9 b(TER)45 b FQ(pro)s(duces)32 b(a)i(list)e(of)h
(rational)g(in)m(terv)-5 b(als,)33 b(eac)m(h)i(con)m(taining)e(a)g
(single)891 3463 y(real)26 b(ro)s(ot)g(of)g(the)g(p)s(olynomial)d(p,)j
(within)e(the)i(sp)s(eci\014ed)e(region,)i(but)f(do)s(es)h(not)891
3576 y(\014nd)j(the)i(ro)s(ots.)664 3763 y FN(RLR)m(OOTNO)45
b FQ(computes)g(the)h(n)m(um)m(b)s(er)e(of)h(real)g(ro)s(ots)h(of)f(p)g
(in)f(the)i(sp)s(eci\014ed)891 3876 y(region,)31 b(but)e(do)s(es)h(not)
h(\014nd)e(the)h(ro)s(ots.)664 4021 y @beginspecial @setspecial
@endspecial 149 x FR(71.1.2)113 b(F)-9 b(unctions)37
b(that)g(return)g(b)s(oth)h(real)f(and)h(complex)e(ro)s(ots)664
4391 y FN(R)m(OOTS)e(p;)46 b FQ(This)38 b(is)g(the)i(main)e(top)i(lev)m
(el)f(function)f(of)i(the)f(ro)s(ots)h(pac)m(k)-5 b(age.)70
b(It)891 4504 y(will)31 b(\014nd)g(all)h(ro)s(ots,)i(real)f(and)f
(complex,)i(of)f(the)g(p)s(olynomial)e(p)h(to)i(an)f(accu-)891
4617 y(racy)40 b(that)g(is)e(su\016cien)m(t)g(to)i(separate)g(them)f
(and)g(whic)m(h)f(is)g(a)h(minim)m(um)e(of)891 4730 y(6)i(decimal)e
(places.)63 b(The)38 b(v)-5 b(alue)37 b(returned)g(b)m(y)h(R)m(OOTS)f
(is)g(a)h(list)f(of)h(equat-)891 4843 y(ions)i(for)h(all)e(ro)s(ots.)72
b(In)40 b(addition,)i(R)m(OOTS)d(stores)j(separate)f(lists)e(of)i(real)
p eop
%%Page: 515 515
515 514 bop 241 299 a @beginspecial @setspecial @endspecial
FM(71.1.)72 b(TOP)30 b(LEVEL)g(FUNCTIONS)1480 b FQ(515)468
555 y(ro)s(ots)43 b(and)e(complex)h(ro)s(ots)h(in)e(the)h(global)g(v)-5
b(ariables)41 b(R)m(OOTSREAL)g(and)468 668 y(R)m(OOTSCOMPLEX.)468
812 y(The)23 b(output)g(of)h(R)m(OOTS)e(is)h(normally)f(sorted)h(in)m
(to)h(a)g(standard)e(order:)37 b(a)24 b(ro)s(ot)468 925
y(with)i(smaller)f(real)i(part)f(precedes)h(a)h(ro)s(ot)f(with)e
(larger)i(real)g(part;)h(ro)s(ots)f(with)468 1038 y(iden)m(tical)33
b(real)g(parts)h(are)g(sorted)g(so)g(that)h(larger)e(imaginary)g(part)g
(precedes)468 1151 y(smaller)c(imaginary)g(part.)468
1295 y(Ho)m(w)m(ev)m(er,)j(when)e(a)g(p)s(olynomial)e(has)h(b)s(een)h
(factored)h(algebraically)d(then)i(the)468 1408 y(ro)s(ot)h(sorting)g
(is)f(applied)f(to)i(eac)m(h)h(factor)g(separately)-8
b(.)44 b(This)29 b(mak)m(es)j(the)f(\014nal)468 1521
y(resulting)e(order)g(less)h(ob)m(vious.)241 1697 y FN(R)m(OOTS)p
611 1697 32 4 v 37 w(A)-9 b(T)p 791 1697 V 37 w(PREC)35
b(p;)46 b FQ(Same)30 b(as)g(R)m(OOTS)f(except)i(that)g(ro)s(ots)f(v)-5
b(alues)30 b(are)g(re-)468 1810 y(turned)38 b(to)h(a)g(minim)m(um)d(of)
j(the)g(n)m(um)m(b)s(er)f(of)h(decimal)f(places)g(equal)h(to)g(the)468
1923 y(curren)m(t)30 b(system)h(precision.)241 2098 y
FN(R)m(OOT)p 553 2098 V 37 w(V)-12 b(AL)35 b(p;)45 b
FQ(Same)e(as)f(R)m(OOTS)p 1666 2098 28 4 v 32 w(A)-8
b(T)p 1824 2098 V 33 w(PREC,)42 b(except)h(that)g(instead)f(of)g(re-)
468 2211 y(turning)e(a)j(list)e(of)h(equations)g(for)g(the)h(ro)s(ots,)
j(a)c(list)f(of)i(the)f(ro)s(ot)h(v)-5 b(alue)41 b(is)468
2324 y(returned.)f(This)28 b(is)i(the)g(function)f(that)i(SOL)-10
b(VE)29 b(calls.)241 2500 y FN(NEARESTR)m(OOT\(p,s\);)44
b FQ(This)34 b(top)j(lev)m(el)g(function)e(\014nds)g(the)i(ro)s(ot)f
(to)i(whic)m(h)468 2613 y(the)31 b(metho)s(d)f(con)m(v)m(erges)i(giv)m
(en)f(the)f(initial)e(starting)i(origin)f(s,)i(whic)m(h)e(can)i(b)s(e)
468 2726 y(complex.)67 b(If)39 b(there)g(are)h(sev)m(eral)f(ro)s(ots)h
(in)e(the)h(vicinit)m(y)f(of)h(s)g(and)g(s)g(is)f(not)468
2839 y(signi\014can)m(tly)26 b(closer)i(to)h(one)f(ro)s(ot)g(than)g(it)
f(is)g(to)h(all)f(others,)i(the)f(con)m(v)m(ergence)468
2952 y(could)f(arriv)m(e)h(at)h(a)f(ro)s(ot)g(that)h(is)e(not)h(truly)f
(the)h(nearest)g(ro)s(ot.)41 b(This)26 b(function)468
3064 y(should)36 b(therefore)i(b)s(e)f(used)g(only)g(when)g(the)h(user)
f(is)f(certain)i(that)g(there)g(is)468 3177 y(only)30
b(one)g(ro)s(ot)h(in)e(the)i(immediate)e(vicinit)m(y)g(of)h(the)h
(starting)f(p)s(oin)m(t)f(s.)241 3353 y FN(FIRSTR)m(OOT)34
b(p;)45 b FQ(R)m(OOTS)29 b(is)h(called,)g(but)f(only)h(a)h(single)e(ro)
s(ot)h(is)g(computed.)241 3492 y @beginspecial @setspecial
@endspecial 149 x FR(71.1.3)112 b(Other)38 b(top)f(lev)m(el)f
(functions)241 3862 y FN(GETR)m(OOT\(n,rr\);)44 b FQ(If)38
b(rr)f(has)i(the)f(form)h(of)f(the)h(output)f(of)h(R)m(OOTS,)e(REAL-)
468 3975 y(R)m(OOTS,)21 b(or)i(NEARESTR)m(OOTS;)d(GETR)m(OOT)i(returns)
f(the)h(rational,)i(real,)468 4088 y(or)i(complex)g(v)-5
b(alue)26 b(of)g(the)g(ro)s(ot)h(equation.)39 b(An)26
b(error)g(o)s(ccurs)f(if)h FL(n)e(<)h FQ(1)i(or)f FL(n)f(>)468
4201 y FQ(the)31 b(n)m(um)m(b)s(er)e(of)h(ro)s(ots)h(in)e(rr.)241
4376 y FN(MKPOL)-9 b(Y)35 b(rr;)46 b FQ(This)j(function)h(can)h(b)s(e)f
(used)h(to)g(reconstruct)h(a)f(p)s(olynomial)468 4489
y(whose)33 b(ro)s(ot)g(equation)g(list)f(is)g(rr)g(and)h(whose)g
(denominator)f(is)g(1.)49 b(Th)m(us)32 b(one)468 4602
y(can)23 b(v)m(erify)e(that)i(if)e FL(r)s(r)27 b FQ(:=)f
FL(R)q(O)s(O)s(T)13 b(S)26 b(p)p FQ(,)e(and)d FL(r)s(r)s
FQ(1)k(:=)g FL(R)q(O)s(O)s(T)13 b(S)27 b(M)10 b(K)d(P)13
b(O)s(LY)41 b(r)s(r)s FQ(,)468 4715 y(then)31 b FL(r)s(r)s
FQ(1)c(=)f FL(r)s(r)s FQ(.)43 b(\(This)30 b(will)f(b)s(e)i(true)g(if)f
FJ(MULTIROOT)f FQ(and)i FJ(RATROOT)f FQ(are)h(ON,)468
4828 y(and)i FJ(ROUNDED)g FQ(is)g(o\013.\))52 b(Ho)m(w)m(ev)m(er,)37
b FL(M)10 b(K)d(P)13 b(O)s(LY)54 b(r)s(r)25 b FP(\000)d
FL(N)10 b(U)g(M)44 b(p)31 b FQ(=)g(0)k(will)c(b)s(e)468
4941 y(true)f(if)g(and)f(only)h(if)f(all)g(ro)s(ots)i(of)f(p)g(ha)m(v)m
(e)i(b)s(een)e(computed)g(exactly)-8 b(.)p eop
%%Page: 516 516
516 515 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(516)89 b FM(CHAPTER)29 b(71.)72 b(R)m(OOTS:)30 b(A)g(REDUCE)h(R)m
(OOT)e(FINDING)j(P)-8 b(A)m(CKA)m(GE)664 464 y @beginspecial
@setspecial @endspecial 91 x FE(71.2)136 b(Switc)l(hes)45
b(Used)h(in)f(Input)664 808 y FQ(The)g(input)e(of)j(p)s(olynomials)c
(in)j(algebraic)g(mo)s(de)g(is)f(sensitiv)m(e)h(to)h(the)f(switc)m(hes)
664 921 y FJ(COMPLEX)p FQ(,)e FJ(ROUNDED)p FQ(,)g(and)i
FJ(ADJPREC)p FQ(.)e(The)h(correct)i(c)m(hoice)g(of)f(input)e(metho)s(d)
h(is)664 1034 y(imp)s(ortan)m(t)e(since)h(incorrect)g(c)m(hoices)g
(will)e(result)h(in)f(undesirable)g(truncation)h(or)664
1147 y(rounding)28 b(of)j(the)f(input)f(co)s(e\016cien)m(ts.)664
1309 y(T)-8 b(runcation)27 b(or)g(rounding)e(ma)m(y)j(o)s(ccur)f(if)g
FJ(ROUNDED)e FQ(is)i(on)g(and)g(one)g(of)h(the)f(follo)m(wing)664
1422 y(is)j(true:)664 1523 y @beginspecial @setspecial
@endspecial 775 1672 a(1.)46 b(a)31 b(co)s(e\016cien)m(t)g(is)f(en)m
(tered)h(in)e(\015oating)h(p)s(oin)m(t)g(form)f(or)i(rational)e(form.)
664 1724 y @beginspecial @setspecial @endspecial 775
1855 a(2.)46 b FJ(COMPLEX)29 b FQ(is)g(on)i(and)e(a)i(co)s(e\016cien)m
(t)g(is)f(imaginary)f(or)h(complex.)664 2104 y(Therefore,)h(to)g(a)m(v)
m(oid)g(undesirable)c(truncation)j(or)g(rounding,)f(then:)664
2223 y @beginspecial @setspecial @endspecial 775 2353
a(1.)46 b FJ(ROUNDED)25 b FQ(should)g(b)s(e)i(o\013)g(and)f(input)f
(should)g(b)s(e)h(in)g(in)m(teger)h(or)g(rational)f(form;)891
2466 y(or)664 2501 y @beginspecial @setspecial @endspecial
775 2649 a(2.)46 b FJ(ROUNDED)25 b FQ(can)h(b)s(e)g(on)g(if)f(it)h(is)f
(acceptable)i(to)g(truncate)g(or)f(round)f(input)f(to)j(the)891
2762 y(curren)m(t)34 b(v)-5 b(alue)33 b(of)g(system)h(precision;)f(or)h
(b)s(oth)f FJ(ROUNDED)e FQ(and)i FJ(ADJPREC)f FQ(can)891
2875 y(b)s(e)24 b(on,)h(in)e(whic)m(h)f(case)j(system)f(precision)f
(will)e(b)s(e)i(adjusted)g(to)i(accommo)s(date)891 2988
y(the)31 b(largest)g(co)s(e\016cien)m(t)g(whic)m(h)e(is)g(input;)g(or)
664 3041 y @beginspecial @setspecial @endspecial 775
3171 a(3.)46 b(if)21 b(the)h(input)e(con)m(tains)i(complex)f(co)s
(e\016cien)m(ts)h(with)f(v)m(ery)h(di\013eren)m(t)f(magnitude)891
3284 y(for)45 b(the)f(real)g(and)g(imaginary)f(parts,)48
b(then)c(all)g(three)g(switc)m(hes)h FJ(ROUNDED)p FQ(,)891
3397 y FJ(ADJPREC)29 b FQ(and)h FJ(COMPLEX)e FQ(m)m(ust)i(b)s(e)g(on.)
664 3646 y FN(in)m(teger)35 b(and)g(complex)g(mo)s(des)45
b FQ(\(o\013)39 b FJ(ROUNDED)p FQ(\))e(an)m(y)h(real)g(p)s(olynomial)e
(can)j(b)s(e)891 3759 y(input)c(using)g(in)m(teger)h(co)s(e\016cien)m
(ts)h(of)g(an)m(y)f(size;)k(in)m(teger)c(or)h(rational)e(co)s(e\016-)
891 3872 y(cien)m(ts)c(can)g(b)s(e)f(used)g(to)h(input)e(an)m(y)i(real)
f(or)h(complex)f(p)s(olynomial,)e(indep)s(en-)891 3985
y(den)m(t)e(of)g(the)g(setting)g(of)g(the)g(switc)m(h)f
FJ(COMPLEX)p FQ(.)f(These)i(are)g(the)g(most)g(v)m(ersatile)891
4098 y(input)34 b(mo)s(des,)i(since)e(an)m(y)h(real)g(or)g(complex)g(p)
s(olynomial)d(can)k(b)s(e)e(input)f(ex-)891 4211 y(actly)-8
b(.)664 4394 y FN(mo)s(des)35 b(rounded)g(and)g(complex-rounded)46
b FQ(\(on)36 b FJ(ROUNDED)p FQ(\))e(p)s(olynomials)g(can)891
4507 y(b)s(e)41 b(input)e(using)g(in)m(teger)j(co)s(e\016cien)m(ts)f
(of)g(an)m(y)h(size.)72 b(Floating)41 b(p)s(oin)m(t)f(co)s(ef-)891
4620 y(\014cien)m(ts)f(will)e(b)s(e)i(truncated)g(or)g(rounded,)i(to)f
(a)f(size)h(dep)s(enden)m(t)e(up)s(on)g(the)891 4733
y(system.)54 b(If)34 b(complex)g(is)g(on,)h(real)g(co)s(e\016cien)m(ts)
g(can)g(b)s(e)f(input)e(to)k(an)m(y)e(preci-)891 4846
y(sion)27 b(using)g(in)m(teger)h(form,)g(but)f(co)s(e\016cien)m(ts)i
(of)f(imaginary)f(parts)g(of)h(complex)891 4959 y(co)s(e\016cien)m(ts)k
(will)27 b(b)s(e)j(rounded)f(or)h(truncated.)p eop
%%Page: 517 517
517 516 bop 241 299 a @beginspecial @setspecial @endspecial
FM(71.3.)72 b(R)m(OOT)30 b(P)-8 b(A)m(CKA)m(GE)32 b(SWITCHES)1317
b FQ(517)241 464 y @beginspecial @setspecial @endspecial
91 x FE(71.3)135 b(Ro)t(ot)46 b(P)l(ac)l(k)-7 b(age)46
b(Switc)l(hes)241 808 y FN(RA)-9 b(TR)m(OOT)45 b FQ(\(Default)29
b(OFF\))g(If)f FJ(RATROOT)f FQ(is)g(on)i(all)e(ro)s(ot)i(equations)f
(are)h(output)468 921 y(in)i(rational)g(form.)46 b(Assuming)30
b(that)j(the)g(mo)s(de)e(is)h FJ(COMPLEX)e FQ(\()p FD(i.e.)79
b FJ(ROUNDED)468 1034 y FQ(is)33 b(o\013,\))j(the)d(ro)s(ot)i
(equations)e(are)h(guaran)m(teed)h(to)g(b)s(e)e(able)g(to)i(b)s(e)e
(input)f(in)m(to)468 1147 y(REDUCE)38 b(without)e(truncation)h(or)h
(rounding)d(errors.)63 b(\(Cf.)f(the)38 b(function)468
1260 y(MKPOL)-8 b(Y)30 b(describ)s(ed)f(ab)s(o)m(v)m(e.\))241
1447 y FN(MUL)-9 b(TIR)m(OOT)45 b FQ(\(Default)26 b(ON\))g(Whenev)m(er)
h(the)f(p)s(olynomial)d(has)j(complex)g(co)s(ef-)468
1560 y(\014cien)m(ts)31 b(or)g(has)g(real)f(co)s(e\016cien)m(ts)i(and)e
(has)h(m)m(ultiple)e(ro)s(ots,)j(as)62 b(determined)468
1673 y(b)m(y)34 b(the)g(Sturm)e(function,)i(the)g(function)e
FJ(SQFRF)g FQ(is)h(called)g(automatically)h(to)468 1786
y(factor)29 b(the)f(p)s(olynomial)e(in)m(to)i(square-free)g(factors.)41
b(If)27 b FJ(MULTIROOT)f FQ(is)h(on,)h(the)468 1899 y(m)m(ultiplicit)m
(y)f(of)j(the)h(ro)s(ots)f(will)d(b)s(e)j(indicated)e(in)h(the)i
(output)e(of)i(R)m(OOTS)d(or)468 2012 y(REALR)m(OOTS)c(b)m(y)h(prin)m
(ting)e(the)i(ro)s(ot)h(output)f(rep)s(eatedly)-8 b(,)26
b(according)f(to)h(its)468 2125 y(m)m(ultiplicit)m(y)-8
b(.)52 b(If)34 b FJ(MULTIROOT)e FQ(is)i(o\013,)j(eac)m(h)f(ro)s(ot)f
(will)d(b)s(e)j(prin)m(ted)e(once,)k(and)468 2238 y(all)32
b(ro)s(ots)h(should)d(b)s(e)i(normally)f(b)s(e)h(distinct.)47
b(\(Tw)m(o)33 b(iden)m(tical)f(ro)s(ots)g(should)468
2350 y(not)c(app)s(ear.)39 b(If)27 b(the)g(initial)e(precision)h(of)h
(the)h(computation)f(or)h(the)f(accuracy)468 2463 y(of)g(the)f(output)h
(w)m(as)g(insu\016cien)m(t)d(to)k(separate)f(t)m(w)m(o)h
(closely-spaced)f(ro)s(ots,)g(the)468 2576 y(program)35
b(attempts)i(to)f(increase)f(accuracy)i(and/or)e(precision)f(if)g(it)h
(detects)468 2689 y(equal)k(ro)s(ots.)67 b(If,)41 b(ho)m(w)m(ev)m(er,)i
(the)d(initial)c(accuracy)k(sp)s(eci\014ed)e(w)m(as)i(to)s(o)f(lo)m(w,)
468 2802 y(and)27 b(it)g(w)m(as)h(not)f(p)s(ossible)e(to)j(separate)h
(the)e(ro)s(ots,)i(the)e(program)g(will)e(ab)s(ort.\))p
eop
%%Page: 518 518
518 517 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(518)89 b FM(CHAPTER)29 b(71.)72 b(R)m(OOTS:)30 b(A)g(REDUCE)h(R)m
(OOT)e(FINDING)j(P)-8 b(A)m(CKA)m(GE)p eop
%%Page: 519 519
519 518 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(72)241 1693 y FT(RSOL)-26 b(VE:)241 1942 y(Rational/in)-6
b(teger)77 b(p)6 b(olynomial)241 2191 y(solv)-6 b(ers)1443
2664 y Fx(F)g(rancis)26 b(J.)g(W)-6 b(righ)n(t)580 2755
y(Sc)n(ho)r(ol)27 b(of)f(Mathematical)h(Sciences,)f(Queen)f(Mary)h(and)
f(W)-6 b(est\014eld)26 b(College)1380 2847 y(Univ)n(ersit)n(y)f(of)h
(London)1479 2938 y(Mile)h(End)e(Road)1306 3029 y(London)g(E1)h(4NS,)g
(England)1183 3151 y(e{mail:)35 b(F.J.W)-6 b(righ)n(t@QMW.ac.uk)241
3391 y FQ(The)23 b(exact)h(rational)f(zeros)h(of)g(a)f(single)f(univ)-5
b(ariate)22 b(p)s(olynomial)f(using)h(fast)h(mo)s(dular)241
3504 y(metho)s(ds)39 b(can)i(b)s(e)f(calculated.)70 b(The)40
b(op)s(erator)h FJ(r_solve)d FQ(computes)j(all)e(rational)241
3617 y(zeros)31 b(and)f(the)g(op)s(erator)h FJ(i_solve)59
b FQ(computes)30 b(only)g(in)m(teger)h(zeros)g(in)e(a)i(w)m(a)m(y)g
(that)241 3730 y(is)e(sligh)m(tly)g(more)h(e\016cien)m(t)h(than)f
(extracting)h(them)g(from)f(the)g(rational)g(zeros.)241
3893 y(The)f(\014rst)g(argumen)m(t)i(is)e(either)g(a)h(univ)-5
b(ariate)29 b(p)s(olynomial)e(expression)i(or)h(equation)241
4006 y(with)h(in)m(teger,)i(rational)f(or)g(rounded)f(co)s(e\016cien)m
(ts.)47 b(Sym)m(b)s(olic)30 b(co)s(e\016cien)m(ts)k(are)e(not)241
4119 y(allo)m(w)m(ed.)68 b(The)39 b(argumen)m(t)h(is)f(simpli\014ed)d
(to)k(a)g(quotien)m(t)g(of)f(in)m(teger)h(p)s(olynomials)241
4231 y(and)30 b(the)g(denominator)g(is)f(silen)m(tly)g(ignored.)241
4394 y(Subsequen)m(t)43 b(argumen)m(ts)i(are)g(optional.)83
b(If)44 b(the)h(p)s(olynomial)d(v)-5 b(ariable)43 b(is)h(to)h(b)s(e)241
4507 y(sp)s(eci\014ed)36 b(then)h(it)g(m)m(ust)g(b)s(e)g(the)h(\014rst)
f(optional)f(argumen)m(t.)63 b(Ho)m(w)m(ev)m(er,)41 b(since)c(the)241
4620 y(v)-5 b(ariable)33 b(in)g(a)i(non-constan)m(t)g(univ)-5
b(ariate)33 b(p)s(olynomial)f(can)j(b)s(e)f(deduced)f(from)h(the)241
4733 y(p)s(olynomial)19 b(it)i(is)g(unnecessary)g(to)i(sp)s(ecify)d(it)
h(separately)-8 b(,)25 b(except)e(in)d(the)i(degenerate)241
4846 y(case)40 b(that)g(the)g(\014rst)f(argumen)m(t)h(simpli\014es)c
(to)k(either)f(0)h(or)f(0)i(=)f(0.)68 b(In)39 b(this)f(case)241
4959 y(the)c(result)g(is)f(returned)g(b)m(y)i FJ(i_solve)d
FQ(in)h(terms)h(of)h(the)f(op)s(erator)h FJ(arbint)e
FQ(and)h(b)m(y)1667 5187 y(519)p eop
%%Page: 520 520
520 519 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(520)213 b FM(CHAPTER)29 b(72.)72 b(RSOL)-10 b(VE:)30
b(RA)-8 b(TIONAL)30 b(POL)-8 b(YNOMIAL)30 b(SOL)-10 b(VER)664
555 y FJ(r_solve)36 b FQ(in)g(terms)h(of)h(the)g(\(new\))f(analogous)h
(op)s(erator)g FJ(arbrat)p FQ(.)61 b(The)37 b(op)s(erator)664
668 y FJ(i_solve)29 b FQ(will)e(generally)j(run)f(sligh)m(tly)g(faster)
h(than)g FJ(r_solve)p FQ(.)664 831 y(The)35 b(\(rational)g(or)h(in)m
(teger\))g(zeros)h(of)e(the)h(\014rst)f(argumen)m(t)h(are)g(returned)e
(as)i(a)g(list)664 944 y(and)j(the)h(default)f(output)g(format)h(is)e
(the)i(same)g(as)g(that)g(used)f(b)m(y)g FJ(solve)p FQ(.)67
b(Eac)m(h)664 1057 y(distinct)39 b(zero)i(is)e(returned)g(in)g(the)h
(form)g(of)h(an)f(equation)g(with)f(the)h(v)-5 b(ariable)39
b(on)664 1170 y(the)49 b(left)f(and)g(the)h(m)m(ultiplicities)c(of)j
(the)h(zeros)g(are)g(assigned)f(to)h(the)g(v)-5 b(ariable)664
1282 y FJ(root_multiplicities)35 b FQ(as)40 b(a)g(list.)67
b(Ho)m(w)m(ev)m(er,)45 b(if)39 b(the)h(switc)m(h)f FJ(multiplicities)
664 1395 y FQ(is)h(turned)g(on)h(then)g(eac)m(h)i(zero)f(is)e
(explicitly)f(included)f(in)i(the)h(solution)f(list)g(the)664
1508 y(appropriate)30 b(n)m(um)m(b)s(er)f(of)h(times)g(\(and)g
FJ(root_multiplicities)25 b FQ(has)30 b(no)h(v)-5 b(alue\).)664
1671 y(Optional)41 b(k)m(eyw)m(ord)j(argumen)m(ts)f(acting)g(as)g(lo)s
(cal)f(switc)m(hes)h(allo)m(w)f(other)h(output)664 1784
y(formats.)e(They)30 b(ha)m(v)m(e)i(the)e(follo)m(wing)f(meanings:)664
2021 y FJ(separate)p FN(:)43 b FQ(assign)119 b(the)g(m)m(ultiplicit)m
(y)e(list)g(to)j(the)g(global)e(v)-5 b(ariable)891 2134
y FJ(root_multiplicities)26 b FQ(\(the)k(default\);)664
2322 y FJ(expand)j FN(or)j FJ(multiplicities)p FN(:)41
b FQ(expand)i(the)g(solution)f(list)f(to)j(include)d(m)m(ultiple)891
2435 y(zeros)28 b(m)m(ultiple)e(times)g(\(the)i(default)f(if)f(the)i
FJ(multiplicities)23 b FQ(switc)m(h)k(is)f(on\);)664
2622 y FJ(together)p FN(:)43 b FQ(return)28 b(eac)m(h)i(solution)d(as)i
(a)g(list)e(whose)i(second)f(elemen)m(t)i(is)d(the)i(m)m(ulti-)891
2735 y(plicit)m(y;)664 2923 y FJ(nomul)p FN(:)44 b FQ(do)31
b(not)f(compute)h(m)m(ultiplicities)26 b(\(thereb)m(y)31
b(sa)m(ving)f(some)h(time\);)664 3111 y FJ(noeqs)p FN(:)44
b FQ(do)31 b(not)f(return)f(univ)-5 b(ariate)29 b(zeros)j(as)e
(equations)g(but)g(just)g(as)g(v)-5 b(alues.)664 3268
y @beginspecial @setspecial @endspecial 179 x FE(72.1)136
b(Examples)664 3686 y FH(r_solve\(\(9x^2)38 b(-)44 b(16\)*\(x^2)c(-)j
(9\),)f(x\);)1508 3932 y FB(\032)1570 4051 y FL(x)25
b FQ(=)1753 3990 y FP(\000)p FQ(4)p 1753 4030 117 4 v
1789 4113 a(3)1879 4051 y FL(;)15 b(x)26 b FQ(=)f(3)p
FL(;)15 b(x)26 b FQ(=)f FP(\000)p FQ(3)p FL(;)15 b(x)26
b FQ(=)2692 3990 y(4)p 2692 4030 46 4 v 2692 4113 a(3)2747
3932 y FB(\033)664 4300 y FH(i_solve\(\(9x^2)38 b(-)44
b(16\)*\(x^2)c(-)j(9\),)f(x\);)1839 4622 y FP(f)p FL(x)26
b FQ(=)f(3)p FL(;)15 b(x)26 b FQ(=)f FP(\000)p FQ(3)p
FP(g)p eop
%%Page: 521 521
521 520 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(73)241 1693 y FT(SCOPE:)75 b(REDUCE)i(source)241 1942
y(co)6 b(de)78 b(optimisation)f(pac)-6 b(k)-13 b(age)1465
2424 y Fx(J.A.)26 b(v)l(an)f(Hulzen)799 2515 y(Univ)n(ersit)n(y)f(of)j
(Tw)n(en)n(te,)f(Departmen)n(t)e(of)j(Computer)d(Science)1176
2607 y(P)-6 b(.O.)26 b(Bo)n(x)g(217,)h(7500)g(AE)e(Ensc)n(hede)1454
2698 y(The)h(Netherlands)1246 2819 y(e{mail:)35 b(infh)n(vh@cs.ut)n(w)n
(en)n(te.nl)241 3063 y FQ(SCOPE)26 b(is)g(a)i(pac)m(k)-5
b(age)29 b(to)f(pro)s(duce)e(optimised)g(v)m(ersions)g(of)i(algebraic)f
(expressions.)241 3176 y(It)41 b(can)g(b)s(e)f(used)g(in)f(t)m(w)m(o)j
(distinct)d(fashions,)k(as)e(an)f(adjunct)g(to)i(n)m(umerical)d(co)s
(de)241 3289 y(generation)30 b(\(using)g(GENTRAN,)h(describ)s(ed)d(in)h
(c)m(hapter)i @beginspecial @setspecial @endspecial(42)q(\))g(or)f(as)h
(a)f(stand)g(alone)241 3402 y(w)m(a)m(y)h(of)g(in)m(v)m(estigating)f
(structure)g(in)f(an)h(expression.)241 3565 y(When)37
b(used)f(with)g(GENTRAN)i(it)f(is)f(su\016cien)m(t)h(to)h(set)g(the)g
(switc)m(h)e FJ(GENTRANOPT)241 3678 y FQ(on,)26 b(and)f(GENTRAN)g(will)
e(then)i(use)f(SCOPE)g(in)m(ternally)-8 b(.)38 b(This)23
b(is)h(describ)s(ed)f(in)h(its)241 3791 y(in)m(ternal)29
b(detail)g(in)g(the)i(GENTRAN)g(man)m(ual)e(and)h(the)h(SCOPE)e(do)s
(cumen)m(tation.)241 3953 y(As)h(a)h(stand-alone)f(pac)m(k)-5
b(age)33 b(SCOPE)c(pro)m(vides)g(the)h(op)s(erator)h
FJ(OPTIMIZE)p FQ(.)241 4116 y(A)j(SCOPE)e(application)g(is)h(easily)g
(p)s(erformed)f(and)h(based)h(on)f(the)h(use)g(of)g(the)g(fol-)241
4229 y(lo)m(wing)29 b(syn)m(tax:)1667 5187 y(521)p eop
%%Page: 522 522
522 521 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(522)p FM(CHAPTER)21 b(73.)58 b(SCOPE:)20 b(SOUR)m(CE)f(CODE)h
(OPTIMISA)-8 b(TION)19 b(P)-8 b(A)m(CKA)m(GE)714 534
y Fd(<)p Fk(SCOPE)p 1069 534 25 4 v 28 w(application)p
Fd(>)119 b FA(\))99 b FH(OPTIMIZE)25 b Fd(<)p Fk(ob)5
b(ject)p 2531 534 V 29 w(seq)p Fd(>)26 b Fk([)p FH(INAME)g
Fd(<)p Fk(cse)p 3206 534 V 29 w(pre\014x)p Fd(>)p Fk(])714
633 y Fd(<)p Fk(ob)5 b(ject)p 1008 633 V 29 w(seq)p Fd(>)467
b FA(\))99 b Fd(<)p Fk(ob)5 b(ject)p Fd(>)p Fk([,)p Fd(<)p
Fk(ob)g(ject)p 2554 633 V 28 w(seq)p Fd(>)p Fk(])714
733 y Fd(<)p Fk(ob)g(ject)p Fd(>)610 b FA(\))99 b Fd(<)p
Fk(stat)p Fd(>)73 b FA(j)h Fd(<)p Fk(alglist)p Fd(>)e
FA(j)i Fd(<)p Fk(alglist)p 3104 733 V 29 w(pro)r(duction)p
Fd(>)714 832 y(<)p Fk(stat)p Fd(>)695 b FA(\))99 b Fd(<)p
Fk(name)p Fd(>)73 b(<)p Fk(assignmen)n(t)26 b(op)r(erator)p
Fd(>)72 b(<)p Fk(expression)p Fd(>)714 932 y(<)p Fk(assignmen)n(t)26
b(op)r(erator)p Fd(>)98 b FA(\))h Fk(:=)74 b FA(j)f Fk(::=)h
FA(j)g Fk(::=:)f FA(j)h Fk(:=:)714 1032 y Fd(<)p Fk(alglist)p
Fd(>)616 b FA(\))99 b(f)p Fd(<)p Fk(eq)p 2053 1032 V
29 w(seq)p Fd(>)p FA(g)714 1131 y Fd(<)p Fk(eq)p 865
1131 V 29 w(seq)p Fd(>)610 b FA(\))99 b Fd(<)p Fk(name)p
Fd(>)73 b Fk(=)g Fd(<)p Fk(expression)p Fd(>)p Fk([,)p
Fd(<)p Fk(eq)p 3096 1131 V 27 w(seq)p Fd(>)p Fk(])714
1231 y Fd(<)p Fk(alglist)p 1002 1231 V 29 w(pro)r(duction)p
Fd(>)192 b FA(\))99 b Fd(<)p Fk(name)p Fd(>)73 b FA(j)h
Fd(<)p Fk(function)p 2721 1231 V 30 w(application)p Fd(>)714
1331 y(<)p Fk(name)p Fd(>)640 b FA(\))99 b Fd(<)p Fk(id)p
Fd(>)73 b FA(j)h Fd(<)p Fk(id)p Fd(>)23 b Fk(\()p Fd(<)p
Fk(a)p 2595 1331 V 29 w(subscript)p 2953 1331 V 29 w(seq)p
Fd(>)p Fk(\))714 1430 y Fd(<)p Fk(a)p 826 1430 V 29 w(subscript)p
1184 1430 V 29 w(seq)p Fd(>)291 b FA(\))99 b Fd(<)p Fk(a)p
1972 1430 V 29 w(subscript)p Fd(>)p Fk([,)p Fd(<)p Fk(a)p
2548 1430 V 28 w(subscript)p 2905 1430 V 30 w(seq)p Fd(>)p
Fk(])714 1530 y Fd(<)p Fk(a)p 826 1530 V 29 w(subscript)p
Fd(>)434 b FA(\))99 b Fd(<)p Fk(in)n(teger)p Fd(>)72
b FA(j)i Fd(<)p Fk(in)n(teger)26 b(in\014x)p 2910 1530
V 30 w(expression)p Fd(>)714 1630 y(<)p Fk(cse)p 891
1630 V 29 w(pre\014x)p Fd(>)492 b FA(\))99 b Fd(<)p Fk(id)p
Fd(>)664 1862 y FQ(A)35 b(SCOPE)e(action)i(can)f(b)s(e)g(applied)f(on)h
(one)h(assignmen)m(t)f(statemen)m(t,)k(or)c(to)i(a)e(se-)664
1975 y(quence)d(of)f(suc)m(h)g(statemen)m(ts,)j(separated)d(b)m(y)h
(commas,)g(or)f(a)h(list)e(of)i(expressions.)664 2138
y(The)39 b(optional)f(use)h(of)g(the)g FJ(INAME)f FQ(extension)g(in)g
(an)h FJ(OPTIMIZE)e FQ(command)i(is)f(in-)664 2251 y(tro)s(duced)f(to)i
(allo)m(w)f(the)g(user)f(to)i(in\015uence)e(the)h(generation)g(of)h
(cse-names.)64 b(The)664 2363 y(cse)p 785 2363 28 4 v
34 w(pre\014x)30 b(is)h(an)h(iden)m(ti\014er,)e(used)h(to)i(generate)g
(cse-names,)g(b)m(y)f(extending)f(it)g(with)664 2476
y(an)25 b(in)m(teger)h(part.)39 b(If)24 b(the)i(cse)p
1670 2476 V 33 w(pre\014x)e(consists)h(of)g(letters)g(only)-8
b(,)26 b(the)g(initially)21 b(selected)664 2589 y(in)m(teger)j(part)f
(is)f(0.)39 b(If)22 b(the)i(user-supplied)19 b(cse)p
2239 2589 V 34 w(pre\014x)j(ends)g(with)g(an)h(in)m(teger)h(its)e(v)-5
b(alue)664 2702 y(functions)29 b(as)i(initial)c(in)m(teger)k(part.)664
2933 y FH(z:=a^2*b^2+10*a^2)o(*m)o(^6)o(+a^)o(2*)o(m^2)o(+2)o(*a*)o(b*)
o(m^)o(4+2)o(*b)o(^2*)o(m^)o(6+)o(b^2)o(*m)o(^2;)926
3132 y(2)86 b(2)305 b(2)87 b(6)174 b(2)87 b(2)435 b(4)261
b(2)87 b(6)174 b(2)87 b(2)664 3232 y(z)43 b(:=)g(a)g(*b)87
b(+)43 b(10*a)f(*m)86 b(+)43 b(a)g(*m)87 b(+)43 b(2*a*b*m)84
b(+)43 b(2*b)g(*m)86 b(+)43 b(b)g(*m)664 3431 y(OPTIMIZE)d(z:=:z)i(;)
664 3730 y(G0)h(:=)g(b*a)664 3830 y(G4)g(:=)g(m*m)664
3929 y(G1)g(:=)g(G4*b*b)664 4029 y(G2)g(:=)g(G4*a*a)664
4129 y(G3)g(:=)g(G4*G4)664 4228 y(z)g(:=)g(G1)g(+)g(G2)g(+)g(G0*\(2*G3)
d(+)j(G0\))g(+)g(G3*\(2*G1)d(+)j(10*G2\))664 4572 y FQ(it)25
b(can)h(b)s(e)e(desirable)g(to)i(rerun)e(an)h(optimisation)f(request)h
(with)f(a)i(restriction)e(on)i(the)664 4685 y(minimal)i(size)i(of)g
(the)h(righ)m(thandsides.)38 b(The)30 b(command)931 4847
y FJ(SETLENGTH)e FL(<)p FQ(in)m(teger)p FL(>)p FQ($)p
eop
%%Page: 523 523
523 522 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(523)241 555 y(can)25 b(b)s(e)f(used)g(to)i(pro)s(duce)e
(rhs's)g(with)f(a)j(minimal)c(arithmetic)i(complexit)m(y)-8
b(,)26 b(dictated)241 668 y(b)m(y)33 b(the)g(v)-5 b(alue)33
b(of)g(its)g(in)m(teger)g(argumen)m(t.)50 b(Statemen)m(ts,)35
b(used)e(to)h(rename)f(function)241 781 y(applications,)46
b(are)e(not)h(a\013ected)g(b)m(y)f(the)g FJ(SETLENGTH)e
FQ(command.)82 b(The)43 b(default)241 894 y(setting)30
b(is)g(restored)g(with)f(the)i(command)507 1057 y FJ(RESETLENGTH)p
FQ($)241 1206 y FD(Example:)241 1412 y FH(SETLENGTH)40
b(2$)241 1611 y(OPTIMIZE)g(z:=:z)i(INAME)f(s$)546 1810
y(2)87 b(2)241 1910 y(s1)43 b(:=)f(b)h(*m)546 2010 y(2)87
b(2)241 2109 y(s2)43 b(:=)f(a)h(*m)895 2209 y(4)1002
b(4)241 2309 y(z)43 b(:=)g(\(a*b)f(+)h(2*m)f(\)*a*b)g(+)h(2*\(s1)e(+)j
(5*s2\)*m)84 b(+)43 b(s1)g(+)g(s2)241 2627 y FQ(Details)30
b(of)h(the)f(algorithm)g(used)f(is)h(giv)m(en)g(in)f(the)i(Scop)s(e)f
(User's)g(Man)m(ual.)p eop
%%Page: 524 524
524 523 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(524)p FM(CHAPTER)21 b(73.)58 b(SCOPE:)20 b(SOUR)m(CE)f(CODE)h
(OPTIMISA)-8 b(TION)19 b(P)-8 b(A)m(CKA)m(GE)p eop
%%Page: 525 525
525 524 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(74)241 1693 y FT(SETS:)76 b(A)h(basic)g(set)h(theory)241
1942 y(pac)-6 b(k)-13 b(age)1443 2424 y Fx(F)-6 b(rancis)26
b(J.)g(W)-6 b(righ)n(t)580 2515 y(Sc)n(ho)r(ol)27 b(of)f(Mathematical)h
(Sciences,)f(Queen)f(Mary)h(and)f(W)-6 b(est\014eld)26
b(College)1380 2607 y(Univ)n(ersit)n(y)f(of)h(London)1479
2698 y(Mile)h(End)e(Road)1306 2789 y(London)g(E1)h(4NS,)g(England)1183
2911 y(e{mail:)35 b(F.J.W)-6 b(righ)n(t@QMW.ac.uk)241
3155 y FQ(The)29 b(SETS)f(pac)m(k)-5 b(age)32 b(pro)m(vides)c(set)j
(theoretic)f(op)s(erations)f(on)g(lists)g(and)g(represen)m(ts)241
3268 y(the)e(results)f(as)h(normal)f(algebraic-mo)s(de)h(lists,)g(so)g
(that)h(all)e(other)h(REDUCE)g(facili-)241 3380 y(ties)c(that)i(apply)d
(to)j(lists)d(can)j(still)c(b)s(e)j(applied)d(to)k(lists)d(that)j(ha)m
(v)m(e)g(b)s(een)e(constructed)241 3493 y(b)m(y)30 b(explicit)f(set)i
(op)s(erations.)241 3648 y @beginspecial @setspecial
@endspecial 182 x FE(74.1)135 b(In\014x)45 b(op)t(erator)g(precedence)
241 4069 y FQ(The)29 b(set)h(op)s(erators)f(are)h(curren)m(tly)e
(inserted)g(in)m(to)i(the)f(standard)g(REDUCE)g(prece-)241
4169 y(dence)h(list)f(\(see)j(section)e @beginspecial
@setspecial @endspecial(2.7)q(\))h(as)g(follo)m(ws:)241
4375 y FH(or)43 b(and)f(not)g(member)f(memq)h(=)h(set_eq)f(neq)g(eq)h
(>=)f(>)i(<=)e(<)h(subset_eq)241 4474 y(subset)e(freeof)g(+)i(-)g
(setdiff)e(union)h(intersection)c(*)43 b(/)g(^)h(.)241
4618 y @beginspecial @setspecial @endspecial 1667 5187
a FQ(525)p eop
%%Page: 526 526
526 525 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(526)396 b FM(CHAPTER)30 b(74.)72 b(SETS:)29 b(A)h(BASIC)g(SET)g
(THEOR)-8 b(Y)30 b(P)-8 b(A)m(CKA)m(GE)664 555 y FE(74.2)136
b(Explicit)46 b(set)f(represen)l(tation)i(and)e(MKSET)664
795 y FQ(Explicit)22 b(sets)j(are)g(represen)m(ted)g(b)m(y)f(lists,)g
(and)g(there)h(is)e(a)i(need)f(to)i(con)m(v)m(ert)g(standard)664
894 y(REDUCE)33 b(lists)f(in)m(to)h(a)h(set)g(b)m(y)f(remo)m(ving)g
(duplicates.)48 b(The)33 b(pac)m(k)-5 b(age)35 b(also)f(orders)664
994 y(the)27 b(mem)m(b)s(ers)f(of)i(the)f(set)g(so)g(the)g(standard)g
FJ(=)f FQ(predicate)h(will)d(pro)m(vide)i(set)i(equalit)m(y)-8
b(.)664 1200 y FH(mkset)42 b({1,2,y,x*y,x+y})o(;)664
1399 y({x)h(+)g(y,x*y,y,1,2})664 1618 y FQ(The)30 b(empt)m(y)h(set)g
(is)e(represen)m(ted)h(b)m(y)h(the)f(empt)m(y)h(list)e
FJ({})p FQ(.)664 1773 y @beginspecial @setspecial @endspecial
181 x FE(74.3)136 b(Union)45 b(and)g(in)l(tersection)664
2207 y FQ(The)24 b(in)m(tersection)h(op)s(erator)g(has)g(the)g(name)g
FJ(intersect)p FQ(,)e(and)h(set)i(union)d(is)g(denotes)664
2320 y(b)m(y)p FJ(union)p FQ(.)42 b(These)31 b(op)s(erators)h(will)d
(probably)g(most)j(commonly)f(b)s(e)g(used)f(as)i(binary)664
2433 y(in\014x)d(op)s(erators)h(applied)e(to)k(explicit)c(sets,)664
2664 y FH({1,2,3})41 b(union)g({2,3,4};)664 2863 y({1,2,3,4})664
3062 y({1,2,3})g(intersect)f({2,3,4};)664 3262 y({2,3})664
3410 y @beginspecial @setspecial @endspecial 188 x FE(74.4)136
b(Sym)l(b)t(olic)45 b(set)g(expressions)664 3837 y FQ(If)40
b(one)h(or)g(more)g(of)f(the)h(argumen)m(ts)g(ev)-5 b(aluates)41
b(to)h(an)e(un)m(b)s(ound)e(iden)m(ti\014er)h(then)664
3937 y(it)34 b(is)f(regarded)h(as)h(represen)m(ting)e(a)i(sym)m(b)s
(olic)d(implicit)f(set,)36 b(and)e(the)g(union)f(or)h(in-)664
4037 y(tersection)45 b(will)c(ev)-5 b(aluate)45 b(to)f(an)g(expression)
f(that)i(still)c(con)m(tains)k(the)f(union)e(or)664 4136
y(in)m(tersection)c(op)s(erator.)65 b(These)37 b(t)m(w)m(o)j(op)s
(erators)e(are)h(symmetric,)h(and)d(so)i(if)e(they)664
4236 y(remain)26 b(sym)m(b)s(olic)g(their)g(argumen)m(ts)h(will)e(b)s
(e)h(sorted)i(as)f(for)g(an)m(y)g(symmetric)g(op)s(era-)664
4335 y(tor.)40 b(Suc)m(h)25 b(sym)m(b)s(olic)f(set)i(expressions)e(are)
i(simpli\014ed,)d(but)i(the)h(simpli\014cation)c(ma)m(y)664
4435 y(not)31 b(b)s(e)f(complete)g(in)f(non-trivial)g(cases.)41
b(F)-8 b(or)31 b(example:)664 4641 y FH(a)43 b(union)f(b)h(union)f({})g
(union)g(b)h(union)f({7,3};)664 4840 y({3,7})g(union)f(a)i(union)f(b)p
eop
%%Page: 527 527
527 526 bop 241 299 a @beginspecial @setspecial @endspecial
FM(74.5.)72 b(SET)30 b(DIFFERENCE)1779 b FQ(527)241 555
y FH(a)43 b(intersect)d({};)241 754 y({})241 960 y FQ(In)m(tersection)d
(distributes)e(o)m(v)m(er)k(union,)f(whic)m(h)e(is)g(not)i(applied)d(b)
m(y)i(default)g(but)f(is)241 1060 y(implemen)m(ted)24
b(as)i(a)h(rule)d(list)h(assigned)g(to)i(the)f(v)-5 b(ariable)25
b FJ(set)p 2379 1060 29 4 v 33 w(distribution)p 2988
1060 V 31 w(rule)p FQ(,)241 1160 y FD(e.g.)241 1365 y
FH(a)43 b(intersect)d(\(b)j(union)e(c\);)241 1565 y(\(b)i(union)e(c\))i
(intersection)38 b(a)241 1764 y(a)43 b(intersect)d(\(b)j(union)e(c\))i
(where)e(set_distribution_)o(ru)o(le;)241 1963 y(a)i(intersection)c(b)k
(union)e(a)i(intersection)c(c)241 2100 y @beginspecial
@setspecial @endspecial 200 x FE(74.5)135 b(Set)46 b(di\013erence)241
2552 y FQ(The)39 b(set)h(di\013erence)f(op)s(erator)h(is)f(represen)m
(ted)g(b)m(y)h(the)g(sym)m(b)s(ol)e FJ(\\)h FQ(and)g(is)g(alw)m(a)m(ys)
241 2665 y(output)31 b(using)f(this)h(sym)m(b)s(ol,)f(although)h(it)g
(can)h(also)g(b)s(e)f(input)e(using)62 b FJ(setdiff)p
FQ(.)42 b(It)241 2778 y(is)29 b(a)i(binary)e(op)s(erator.)241
3009 y FH({1,2,3})40 b(\\)k({2,4};)241 3208 y({1,3})241
3407 y(a)f(\\)g({1,2};)241 3607 y(a\\{1,2})241 3806 y(a)g(\\)g(a;)241
4005 y({})241 4242 y @beginspecial @setspecial @endspecial
199 x FE(74.6)135 b(Predicates)46 b(on)f(sets)241 4694
y FQ(Set)34 b(mem)m(b)s(ership,)f(inclusion)f(or)i(equalit)m(y)g(are)h
(all)e(binary)g(in\014x)f(op)s(erators.)53 b(They)241
4807 y(can)22 b(only)e(b)s(e)h(used)g(within)e(conditional)g(statemen)m
(ts)24 b(or)d(within)e(the)j(argumen)m(t)g(of)f(the)241
4920 y FJ(evalb)27 b FQ(op)s(erator)i(pro)m(vided)e(b)m(y)i(this)e(pac)
m(k)-5 b(age,)31 b(and)d(they)h(cannot)h(remain)d(sym)m(b)s(olic)p
eop
%%Page: 528 528
528 527 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(528)396 b FM(CHAPTER)30 b(74.)72 b(SETS:)29 b(A)h(BASIC)g(SET)g
(THEOR)-8 b(Y)30 b(P)-8 b(A)m(CKA)m(GE)664 555 y FQ({)32
b(a)g(predicate)f(that)h(cannot)g(b)s(e)f(ev)-5 b(aluated)32
b(to)g(a)g(Bo)s(olean)f(v)-5 b(alue)31 b(causes)h(a)g(normal)664
668 y(REDUCE)e(error.)664 818 y(The)37 b FJ(evalb)f FQ(op)s(erator)h
(pro)m(vides)f(a)i(con)m(v)m(enien)m(t)g(shorthand)e(for)h(an)g
FJ(if)g FQ(statemen)m(t)664 917 y(designed)h(purely)g(to)i(displa)m(y)d
(the)j(v)-5 b(alue)39 b(of)g(an)m(y)h(Bo)s(olean)g(expression)e(\(not)i
(only)664 1017 y(predicates)30 b(de\014ned)f(in)g(this)h(pac)m(k)-5
b(age\).)664 1223 y FH(if)43 b(a)g(=)g(a)g(then)f(true)g(else)g(false;)
664 1422 y(true)664 1621 y(evalb\(a)f(=)i(a\);)664 1820
y(true)664 2020 y(if)g(a)g(=)g(b)g(then)f(true)g(else)g(false;)664
2219 y(false)664 2346 y @beginspecial @setspecial @endspecial
166 x FR(74.6.1)113 b(Set)37 b(mem)m(b)s(ership)664 2720
y FQ(Set)g(mem)m(b)s(ership)e(is)g(tested)j(b)m(y)f(the)g(predicate)f
FJ(member)p FQ(.)59 b(Its)37 b(left)f(op)s(erand)g(is)g(re-)664
2820 y(garded)28 b(as)h(a)g(p)s(oten)m(tial)f(set)h(elemen)m(t)g(and)e
(its)h(righ)m(t)g(op)s(erand)f FD(must)38 b FQ(ev)-5
b(aluate)29 b(to)g(an)664 2920 y(explicit)c(set.)41 b(There)26
b(is)g(curren)m(tly)g(no)h(sense)g(in)e(whic)m(h)h(the)h(righ)m(t)g(op)
s(erand)f(could)g(b)s(e)664 3019 y(an)k(implicit)e(set.)664
3225 y FH(evalb\(1)41 b(member)g({1,2,3}\);)664 3424
y(true)664 3624 y(evalb\(2)g(member)g({1,2})g(intersect)f({2,3}\);)664
3823 y(true)664 4022 y(evalb\(a)h(member)g(b\);)664 4221
y(*****)h(b)h(invalid)e(as)h(list)664 4349 y @beginspecial
@setspecial @endspecial 166 x FR(74.6.2)113 b(Set)37
b(inclusion)664 4723 y FQ(Set)29 b(inclusion)c(is)i(tested)j(b)m(y)e
(the)h(predicate)f FJ(subset)p 2517 4723 29 4 v 32 w(eq)57
b FQ(where)27 b FJ(a)48 b(subset)p 3346 4723 V 33 w(eq)f(b)28
b FQ(is)664 4822 y(true)35 b(if)g(the)g(set)h FL(a)f
FQ(is)g(either)f(a)i(subset)f(of)g(or)h(equal)e(to)j(the)e(set)h
FL(b)p FQ(;)i(strict)d(inclusion)664 4922 y(is)f(tested)h(b)m(y)g(the)g
(predicate)f FJ(subset)f FQ(where)h FJ(a)48 b(subset)e(b)34
b FQ(is)g(true)g(if)g(the)h(set)g FL(a)g FQ(is)p eop
%%Page: 529 529
529 528 bop 241 299 a @beginspecial @setspecial @endspecial
FM(74.6.)72 b(PREDICA)-8 b(TES)30 b(ON)g(SETS)1568 b
FQ(529)241 555 y FD(strictly)39 b FQ(a)31 b(subset)e(of)i(the)f(set)h
FL(b)f FQ(and)g(is)f(false)h(is)g FL(a)g FQ(is)f(equal)h(to)h
FL(b)p FQ(.)41 b(These)30 b(predicates)241 655 y(pro)m(vide)f(some)i
(supp)s(ort)e(for)h(sym)m(b)s(olic)f(set)h(expressions,)g(but)f(is)h
(incomplete.)241 861 y FH(evalb\({1,2})39 b(subset_eq)h({1,2,3}\);)241
1060 y(true)241 1259 y(evalb\({1,2})f(subset_eq)h({1,2}\);)241
1458 y(true)241 1658 y(evalb\({1,2})f(subset)i({1,2}\);)241
1857 y(false)241 2056 y(evalb\(a)f(subset)i(a)h(union)e(b\);)241
2255 y(true)p eop
%%Page: 530 530
530 529 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(530)396 b FM(CHAPTER)30 b(74.)72 b(SETS:)29 b(A)h(BASIC)g(SET)g
(THEOR)-8 b(Y)30 b(P)-8 b(A)m(CKA)m(GE)664 555 y FH(evalb\(a\\b)40
b(subset)h(a\);)664 754 y(true)664 985 y FQ(An)30 b(undecidable)e
(predicate)i(causes)h(a)g(normal)e(REDUCE)h(error,)h
FD(e.g.)664 1191 y FH(evalb\(a)41 b(subset_eq)f({b}\);)664
1390 y(*****)i(Cannot)f(evaluate)f(a)j(subset_eq)d({b})i(as)h
(Boolean-valued)38 b(set)708 1490 y(expression)664 1717
y @beginspecial @setspecial @endspecial 166 x FR(74.6.3)113
b(Set)37 b(equalit)m(y)664 2104 y FQ(As)e(explained)f(ab)s(o)m(v)m(e,)k
(equalit)m(y)d(of)g(t)m(w)m(o)i(sets)e(in)f(canonical)h(form)g(can)h(b)
s(e)e(reliably)664 2217 y(tested)d(b)m(y)g(the)f(standard)g(REDUCE)g
(equalit)m(y)g(predicate)g(\()p FJ(=)p FQ(\).)p eop
%%Page: 531 531
531 530 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(75)241 1693 y FT(SP)-19 b(ARSE:)76 b(Sparse)h(Matrices)1427
2175 y Fx(Stephen)24 b(Sco)n(w)n(croft)839 2266 y(Konrad-Zuse-Zen)n
(trum)f(f)r(\177)-41 b(ur)27 b(Informationstec)n(hnik)e(Berlin)1521
2358 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1162 2449
y(D-14195)g(Berlin-Dahlem,)f(German)n(y)241 2682 y @beginspecial
@setspecial @endspecial 184 x FE(75.1)135 b(In)l(tro)t(duction)241
3119 y FQ(This)20 b(pac)m(k)-5 b(age)23 b(extends)f(the)g(a)m(v)-5
b(ailable)21 b(matrix)g(feature)h(to)h(enable)e(calculations)g(with)241
3232 y(sparse)33 b(matrices.)52 b(It)34 b(also)f(pro)m(vides)g(a)i
(selection)e(of)h(functions)f(that)h(are)h(useful)d(in)241
3345 y(the)e(w)m(orld)g(of)g(linear)f(algebra)h(with)f(resp)s(ect)i(to)
g(sparse)f(matrices.)241 3458 y(The)g(pac)m(k)-5 b(age)32
b(is)d(loaded)h(b)m(y:)41 b FJ(load)p 1505 3458 29 4
v 33 w(package)46 b(sparse;)241 3615 y @beginspecial
@setspecial @endspecial 179 x FE(75.2)135 b(Sparse)45
b(Matrix)h(Calculations)241 4047 y FQ(T)-8 b(o)28 b(extend)f(the)h(syn)
m(tax)f(of)h(this)e(class)h(of)h(calculations)e(an)i(expression)e(t)m
(yp)s(e)h FJ(sparse)266 4160 y FQ(is)e(added.)38 b(An)25
b(iden)m(ti\014er)f(ma)m(y)i(b)s(e)f(declared)g(a)h(sparse)f(v)-5
b(ariable)25 b(b)m(y)g(the)h(declaration)241 4273 y FJ(sparse)p
FQ(.)63 b(The)38 b(size)h(of)f(the)h(sparse)f(matrix)g(m)m(ust)g(b)s(e)
g(declared)g(explicitly)e(in)h(the)241 4386 y(matrix)h(declaration.)67
b(This)37 b(declaration)i FJ(SPARSE)e FQ(is)h(similar)f(to)j(the)f
(declaration)241 4499 y FJ(MATRIX)p FQ(.)d(Once)i(a)g(matrix)g(has)f(b)
s(een)h(declared)f(a)h(sparse)g(matrix)f(all)g(elemen)m(ts)h(of)241
4611 y(the)e(matrix)e(are)i(treated)h(as)f(if)e(they)i(w)m(ere)g
(initialized)c(to)37 b(0.)56 b(When)36 b(prin)m(ting)d(out)241
4724 y(a)d(sparse)g(matrix)f(only)g(the)h(non-zero)g(elemen)m(ts)g(are)
h(prin)m(ted)d(due)h(to)i(the)f(fact)h(that)241 4837
y(only)38 b(the)h(non-zero)h(elemen)m(ts)f(of)g(the)h(matrix)e(are)i
(stored.)66 b(T)-8 b(o)40 b(assign)e(v)-5 b(alues)39
b(to)241 4950 y(the)e(elemen)m(ts)g(of)g(the)g(declared)g(sparse)f
(matrix)h(w)m(e)g(use)g(the)g(same)g(syn)m(tax)h(as)f(for)1667
5187 y(531)p eop
%%Page: 532 532
532 531 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(532)901 b FM(CHAPTER)29 b(75.)72 b(SP)-8 b(ARSE:)30
b(SP)-8 b(ARSE)30 b(MA)-8 b(TRICES)664 555 y FQ(matrices.)664
786 y FH(sparse)41 b(aa\(10,1\),bb\(200,2)o(00)o(\);)664
886 y(aa\(1,1\):=10;)664 985 y(bb\(100,150\):=a;)664
1134 y @beginspecial @setspecial @endspecial 188 x FE(75.3)136
b(Linear)45 b(Algebra)h(P)l(ac)l(k)-7 b(age)45 b(for)h(Sparse)f
(Matrices)664 1574 y FQ(Most)d(of)g(the)g(functions)d(of)j(this)e(pac)m
(k)-5 b(age)44 b(are)d(related)h(to)g(the)f(functions)f(of)i(the)664
1687 y(linear)27 b(algebra)h(pac)m(k)-5 b(age)30 b FJ(LINALG)p
FQ(.)d(F)-8 b(or)28 b(further)f(explanation)g(and)h(examples)f(of)i
(the)664 1800 y(v)-5 b(arious)30 b(functions)e(please)j(refer)f(to)h
(the)f FJ(LINALG)f FQ(pac)m(k)-5 b(age.)664 1945 y @beginspecial
@setspecial @endspecial 148 x FR(75.3.1)113 b(Basic)36
b(matrix)g(handling)714 2299 y Fk(spadd)p 932 2299 25
4 v 30 w(columns)304 b(spadd)p 1775 2299 V 30 w(ro)n(ws)291
b(spadd)p 2475 2299 V 30 w(to)p 2579 2299 V 29 w(columns)148
b(spadd)p 3265 2299 V 29 w(to)p 3368 2299 V 30 w(ro)n(ws)714
2399 y(spaugmen)n(t)p 1110 2399 V 29 w(columns)127 b(sp)r(c)n(har)p
1799 2399 V 29 w(p)r(oly)277 b(sp)r(col)p 2445 2399 V
30 w(dim)439 b(sp)r(cop)n(y)p 3300 2399 V 29 w(in)n(to)714
2499 y(sp)r(diagonal)456 b(sp)r(extend)377 b(sp\014nd)p
2479 2499 V 30 w(companion)150 b(spget)p 3242 2499 V
29 w(columns)714 2598 y(spget)p 909 2598 V 29 w(ro)n(ws)458
b(sphermitian)p 1992 2598 V 30 w(tp)162 b(spmatrix)p
2584 2598 V 29 w(augmen)n(t)127 b(spmatrix)p 3374 2598
V 29 w(stac)n(k)714 2698 y(spminor)551 b(spm)n(ult)p
1809 2698 V 30 w(columns)127 b(spm)n(ult)p 2509 2698
V 30 w(ro)n(ws)347 b(sppiv)n(ot)714 2797 y(spremo)n(v)n(e)p
1056 2797 V 28 w(columns)182 b(spremo)n(v)n(e)p 1899
2797 V 28 w(ro)n(ws)169 b(spro)n(w)p 2474 2797 V 29 w(dim)411
b(spro)n(ws)p 3297 2797 V 28 w(piv)n(ot)714 2897 y(spstac)n(k)p
984 2897 V 29 w(ro)n(ws)383 b(spsub)p 1766 2897 V 30
w(matrix)223 b(spsw)n(ap)p 2520 2897 V 29 w(columns)207
b(spsw)n(ap)p 3310 2897 V 29 w(en)n(tries)714 2997 y(spsw)n(ap)p
977 2997 V 29 w(ro)n(ws)664 3154 y @beginspecial @setspecial
@endspecial 126 x FR(75.3.2)113 b(Constructors)664 3502
y FQ(F)-8 b(unctions)30 b(that)h(create)h(sparse)e(matrices.)714
3656 y(spband)p 1004 3656 28 4 v 31 w(matrix)180 b(spblo)s(c)m(k)p
1778 3656 V 31 w(matrix)130 b(sp)s(c)m(har)p 2464 3656
V 32 w(matrix)f(sp)s(co)s(e\013)p 3162 3656 V 32 w(matrix)714
3769 y(sp)s(companion)242 b(sphessian)352 b(sp)5 b(jacobian)263
b(sp)5 b(jordan)p 3239 3769 V 31 w(blo)s(c)m(k)714 3882
y(spmak)m(e)p 1012 3882 V 33 w(iden)m(tit)m(y)664 4043
y @beginspecial @setspecial @endspecial 128 x FR(75.3.3)113
b(High)36 b(lev)m(el)g(algorithms)714 4386 y FQ(sp)s(c)m(har)p
978 4386 V 32 w(p)s(oly)329 b(sp)s(c)m(holesky)129 b(spgram)p
2351 4386 V 33 w(sc)m(hmidt)g(splu)p 2989 4386 V 31 w(decom)714
4499 y(sppseudo)p 1080 4499 V 31 w(in)m(v)m(erse)h(svd)664
4660 y @beginspecial @setspecial @endspecial eop
%%Page: 533 533
533 532 bop 241 299 a @beginspecial @setspecial @endspecial
FM(75.3.)72 b(LINEAR)30 b(ALGEBRA)h(P)-8 b(A)m(CKA)m(GE)32
b(F)m(OR)f(SP)-8 b(ARSE)29 b(MA)-8 b(TRICES)141 b FQ(533)241
555 y FR(75.3.4)112 b(Predicates)291 777 y FQ(matrixp)128
b(sparsematp)i(squarep)f(symmetricp)p eop
%%Page: 534 534
534 533 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(534)901 b FM(CHAPTER)29 b(75.)72 b(SP)-8 b(ARSE:)30
b(SP)-8 b(ARSE)30 b(MA)-8 b(TRICES)p eop
%%Page: 535 535
535 534 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(76)241 1693 y FT(SPDE:)76 b(A)h(pac)-6 b(k)-13 b(age)77
b(for)h(\014nding)241 1942 y(symmetry)e(groups)h(of)h(PDE's)1507
2424 y Fx(F)-6 b(ritz)26 b(Sc)n(h)n(w)n(arz)1433 2515
y(GMD,)g(Institut)f(F1)1503 2607 y(P)n(ostfac)n(h)i(1240)1251
2698 y(5205)h(St.)34 b(Augustin,)25 b(German)n(y)1238
2819 y(e{mail:)35 b(fritz.sc)n(h)n(w)n(arz@gmd.de)241
3063 y FQ(The)29 b(pac)m(k)-5 b(age)31 b(SPDE)e(pro)m(vides)f(a)i(set)f
(of)h(functions)e(whic)m(h)g(ma)m(y)i(b)s(e)e(applied)f(to)j(de-)241
3176 y(termine)h(the)g(symmetry)h(group)f(of)h(Lie-)f(or)h(p)s(oin)m
(t-symmetries)e(of)i(a)g(giv)m(en)f(system)241 3289 y(of)25
b(partial)g(di\013eren)m(tial)f(equations.)38 b(Preferably)25
b(it)g(is)f(used)h(in)m(teractiv)m(ely)g(on)h(a)g(com-)241
3402 y(puter)k(terminal.)40 b(In)29 b(man)m(y)i(cases)h(the)e
(determining)f(system)i(is)e(solv)m(ed)i(completely)241
3515 y(automatically)-8 b(.)43 b(In)30 b(some)h(other)g(cases)h(the)f
(user)g(has)f(to)i(pro)m(vide)e(some)i(additional)241
3628 y(input)c(information)h(for)h(the)h(solution)e(algorithm)g(to)i
(terminate.)241 3783 y @beginspecial @setspecial @endspecial
181 x FE(76.1)135 b(System)46 b(F)-11 b(unctions)44 b(and)g(V)-11
b(ariables)241 4217 y FQ(The)38 b(symmetry)h(analysis)e(of)i(partial)f
(di\013eren)m(tial)f(equations)i(logically)e(falls)h(in)m(to)241
4330 y(three)44 b(parts.)83 b(Accordingly)44 b(the)g(most)h(imp)s
(ortan)m(t)f(functions)f(pro)m(vided)g(b)m(y)h(the)241
4443 y(pac)m(k)-5 b(age)32 b(are:)241 4605 y(Some)e(other)h(useful)d
(functions)h(for)h(obtaining)g(v)-5 b(arious)29 b(kinds)f(of)j(output)f
(are:)241 4768 y(SPDE)f(exp)s(ects)h(a)g(system)g(of)g(di\013eren)m
(tial)e(equations)h(to)i(b)s(e)e(de\014ned)f(as)i(the)g(v)-5
b(alues)241 4881 y(of)30 b(the)h(op)s(erator)g FJ(deq)e
FQ(and)h(other)g(op)s(erators.)41 b(A)31 b(simple)d(example)i(follo)m
(ws.)1667 5187 y(535)p eop
%%Page: 536 536
536 535 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(536)462 b FM(CHAPTER)30 b(76.)71 b(SPDE:)31 b(SYMMETR)-8
b(Y)30 b(GR)m(OUPS)h(OF)f(PDE'S)p 935 467 2449 4 v 933
580 4 113 v 1194 546 a FQ(F)-8 b(unction)30 b(name)p
2044 580 V 727 w(Op)s(eration)p 3381 580 V 935 583 2449
4 v 935 600 V 933 713 4 113 v 1015 679 a(CRESYS\()p FL(<)p
FD(ar)-5 b(guments)p FL(>)p FQ(\))p 2044 713 V 99 w(Constructs)30
b(determining)f(system)p 3381 713 V 935 716 2449 4 v
933 829 4 113 v 1271 795 a(SIMPSYS\(\))p 2044 829 V 449
w(Solv)m(es)h(determining)f(system)p 3381 829 V 935 832
2449 4 v 933 945 4 113 v 1289 912 a(RESUL)-8 b(T\(\))p
2044 945 V 393 w(Prin)m(ts)29 b(in\014nitesimal)e(generators)p
3381 945 V 933 1058 V 2044 1058 V 2271 1024 a(and)j(comm)m(utator)h
(table)p 3381 1058 V 935 1062 2449 4 v 1590 1297 a(T)-8
b(able)30 b(76.1:)42 b @beginspecial @setspecial @endspecial(SPDE)30
b(F)-8 b(unctions)p 927 1400 2464 4 v 925 1513 4 113
v 976 1479 a(F)g(unction)30 b(name)p 1617 1513 V 736
w(Op)s(eration)p 3389 1513 V 927 1517 2464 4 v 927 1533
V 925 1646 4 113 v 1103 1612 a(PRSYS\(\))p 1617 1646
V 508 w(Prin)m(ts)f(determining)g(system)p 3389 1646
V 927 1649 2464 4 v 925 1762 4 113 v 1088 1728 a(PR)m(GEN\(\))p
1617 1762 V 420 w(Prin)m(ts)h(in\014nitesimal)c(generators)p
3389 1762 V 927 1766 2464 4 v 925 1879 4 113 v 1020 1845
a(COMM\(U,V\))p 1617 1879 V 114 w(Prin)m(ts)j(comm)m(utator)j(of)f
(generators)g(U)g(and)f(V)p 3389 1879 V 927 1882 2464
4 v 1289 2118 a(T)-8 b(able)30 b(76.2:)43 b @beginspecial
@setspecial @endspecial(SPDE)30 b(Useful)f(Output)g(F)-8
b(unctions)664 2393 y FH(load_package)39 b(spde;)664
2592 y(deq)k(1:=u\(1,1\)+u\(1,2)o(,2)o(\);)664 2791 y(deq\(1\))e(:=)i
(u\(1,2,2\))d(+)j(u\(1,1\))664 2991 y(CRESYS)e(deq)i(1;)664
3190 y(PRSYS\(\);)664 3489 y(GL\(1\):=2*df\(eta\(1)o(\),)o(u\()o(1\),)o
(x\()o(2\)\))37 b(-)43 b(df\(xi\(2\),x\(2\),2\))37 b(-)43
b(df\(xi\(2\),x\(1\)\))664 3688 y(GL\(2\):=df\(eta\(1\),)o(u\()o(1\))o
(,2\))37 b(-)43 b(2*df\(xi\(2\),u\(1\),)o(x\(2)o(\)\))664
3887 y(GL\(3\):=df\(eta\(1\),)o(x\()o(2\))o(,2\))37 b(+)43
b(df\(eta\(1\),x\(1\)\))664 4086 y(GL\(4\):=df\(xi\(2\),u)o(\(1)o(\),)o
(2\))664 4286 y(GL\(5\):=df\(xi\(2\),u)o(\(1)o(\)\))37
b(-)43 b(df\(xi\(1\),u\(1\),x\(2)o(\)\))664 4485 y
(GL\(6\):=2*df\(xi\(2\))o(,x)o(\(2)o(\)\))37 b(-)43 b
(df\(xi\(1\),x\(2\),2\))37 b(-)44 b(df\(xi\(1\),x\(1\)\))664
4684 y(GL\(7\):=df\(xi\(1\),u)o(\(1)o(\),)o(2\))664 4883
y(GL\(8\):=df\(xi\(1\),u)o(\(1)o(\)\))p eop
%%Page: 537 537
537 536 bop 241 299 a @beginspecial @setspecial @endspecial
FM(76.1.)72 b(SYSTEM)30 b(FUNCTIONS)f(AND)i(V)-10 b(ARIABLES)841
b FQ(537)241 655 y FH(GL\(9\):=df\(xi\(1\),)o(x\()o(2\))o(\))241
954 y(The)42 b(remaining)e(dependencies)241 1153 y(xi\(2\))h(depends)g
(on)i(u\(1\),x\(2\),x\(1\))241 1352 y(xi\(1\))e(depends)g(on)i
(u\(1\),x\(2\),x\(1\))241 1551 y(eta\(1\))e(depends)g(on)h
(u\(1\),x\(2\),x\(1\))241 1796 y FQ(A)27 b(detailed)f(description)f
(can)i(b)s(e)f(found)g(in)f(the)i(SPDE)g(do)s(cumen)m(tation)f(and)h
(exam-)241 1908 y(ples.)p eop
%%Page: 538 538
538 537 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(538)462 b FM(CHAPTER)30 b(76.)71 b(SPDE:)31 b(SYMMETR)-8
b(Y)30 b(GR)m(OUPS)h(OF)f(PDE'S)p eop
%%Page: 539 539
539 538 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(77)241 1693 y FT(SPECFN:)72 b(P)-6 b(ac)g(k)-13 b(age)72
b(for)i(sp)6 b(ecial)241 1942 y(functions)1188 2415 y
Fx(Chris)26 b(Cannam)f(&)g(Winfried)i(Neun)826 2506 y(Konrad{Zuse{Zen)n
(trum)e(f)r(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2598 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2689
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1390 2810 y(e{mail:)35
b(neun@zib.de)241 3054 y FQ(This)26 b(pac)m(k)-5 b(age)30
b(is)d(designed)g(to)h(pro)m(vide)f(algebraic)h(and)g(n)m(umeric)e
(manipulations)f(of)241 3167 y(sev)m(eral)31 b(common)f(sp)s(ecial)f
(functions,)g(namely:)377 3430 y FP(\017)46 b FQ(Bernoulli)28
b(Num)m(b)s(ers)h(and)h(P)m(olynomials;)377 3617 y FP(\017)46
b FQ(Euler)29 b(n)m(um)m(b)s(ers)g(and)h(P)m(olynomials;)377
3805 y FP(\017)46 b FQ(Fib)s(onacci)29 b(n)m(um)m(b)s(ers)g(and)h(P)m
(olynomials;)377 3992 y FP(\017)46 b FQ(Stirling)28 b(Num)m(b)s(ers;)
377 4180 y FP(\017)46 b FQ(Binomial)29 b(Co)s(e\016cien)m(ts;)377
4368 y FP(\017)46 b FQ(P)m(o)s(c)m(hhammer)31 b(notation;)377
4555 y FP(\017)46 b FQ(The)30 b(Gamma)h(function;)377
4743 y FP(\017)46 b FQ(The)30 b(Psi)f(function)g(and)h(its)g(deriv)-5
b(ativ)m(es;)377 4931 y FP(\017)46 b FQ(The)30 b(Riemann)f(Zeta)i
(function;)1667 5187 y(539)p eop
%%Page: 540 540
540 539 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(540)68 b FM(CHAPTER)30 b(77.)71 b(SPECFN:)30 b(P)-8
b(A)m(CKA)m(GE)32 b(F)m(OR)f(SPECIAL)e(FUNCTIONS)801
555 y FP(\017)45 b FQ(The)30 b(Bessel)h(functions)e(J)h(and)g(Y)g(of)h
(the)f(\014rst)g(and)f(second)i(kinds;)801 743 y FP(\017)45
b FQ(The)30 b(mo)s(di\014ed)f(Bessel)h(functions)f(I)h(and)g(K;)801
930 y FP(\017)45 b FQ(The)30 b(Hank)m(el)h(functions)e(H1)i(and)f(H2;)
801 1118 y FP(\017)45 b FQ(The)30 b(Kummer)f(h)m(yp)s(ergeometric)i
(functions)e(M)h(and)g(U;)801 1306 y FP(\017)45 b FQ(The)30
b(Beta)i(function,)e(and)f(Struv)m(e,)i(Lommel)e(and)h(Whittak)m(er)h
(functions;)801 1493 y FP(\017)45 b FQ(The)30 b(Airy)g(functions;)801
1681 y FP(\017)45 b FQ(The)30 b(Exp)s(onen)m(tial)f(In)m(tegral,)i(the)
g(Sine)e(and)g(Cosine)h(In)m(tegrals;)801 1869 y FP(\017)45
b FQ(The)30 b(Hyp)s(erb)s(olic)e(Sine)h(and)h(Cosine)f(In)m(tegrals;)
801 2056 y FP(\017)45 b FQ(The)30 b(F)-8 b(resnel)30
b(In)m(tegrals)h(and)f(the)g(Error)g(function;)801 2244
y FP(\017)45 b FQ(The)30 b(Dilog)g(function;)801 2431
y FP(\017)45 b FQ(The)30 b(P)m(olylogarithm)g(and)g(Lerc)m(h)g(Phi)f
(function;)801 2619 y FP(\017)45 b FQ(Hermite)31 b(P)m(olynomials;)801
2807 y FP(\017)45 b FQ(Jacobi)31 b(P)m(olynomials;)801
2994 y FP(\017)45 b FQ(Legendre)31 b(P)m(olynomials;)801
3182 y FP(\017)45 b FQ(Asso)s(ciated)31 b(Legendre)f(F)-8
b(unctions)30 b(\(Spherical)f(and)h(Solid)e(Harmonics\);)801
3370 y FP(\017)45 b FQ(Laguerre)31 b(P)m(olynomials;)801
3557 y FP(\017)45 b FQ(Cheb)m(yshev)30 b(P)m(olynomials;)801
3745 y FP(\017)45 b FQ(Gegen)m(bauer)32 b(P)m(olynomials;)801
3933 y FP(\017)45 b FQ(Lam)m(b)s(ert's)31 b FL(!)i FQ(function;)801
4120 y FP(\017)45 b FQ(Jacobi)31 b(Elliptic)c(F)-8 b(unctions)30
b(and)g(In)m(tegrals;)801 4308 y FP(\017)45 b FQ(3j)31
b(sym)m(b)s(ols,)e(6j)i(sym)m(b)s(ols)e(and)g(Clebsc)m(h)h(Gordan)g(co)
s(e\016cien)m(ts;)801 4495 y FP(\017)45 b FQ(and)30 b(some)h(w)m
(ell-kno)m(wn)e(constan)m(ts.)p eop
%%Page: 541 541
541 540 bop 241 299 a @beginspecial @setspecial @endspecial
FM(77.1.)72 b(SIMPLIFICA)-8 b(TION)30 b(AND)h(APPR)m(O)m(XIMA)-8
b(TION)748 b FQ(541)241 464 y @beginspecial @setspecial
@endspecial 91 x FE(77.1)135 b(Simpli\014cation)46 b(and)f(Appro)l
(ximation)241 808 y FQ(All)33 b(of)h(the)h(op)s(erators)f(supp)s(orted)
f(b)m(y)h(this)f(pac)m(k)-5 b(age)37 b(ha)m(v)m(e)e(certain)f
(algebraic)g(sim-)241 921 y(pli\014cation)d(rules)i(to)h(handle)e(sp)s
(ecial)h(cases,)i(p)s(oles,)f(deriv)-5 b(ativ)m(es)33
b(and)g(so)h(on.)51 b(Suc)m(h)241 1034 y(rules)33 b(are)i(applied)e
(whenev)m(er)i(they)f(are)i(appropriate.)53 b(Ho)m(w)m(ev)m(er,)38
b(if)33 b(the)i FJ(ROUNDED)241 1147 y FQ(switc)m(h)27
b(is)g(on,)h(n)m(umeric)f(ev)-5 b(aluation)27 b(is)g(also)h(carried)f
(out.)40 b(Unless)26 b(otherwise)i(stated)241 1260 y(b)s(elo)m(w,)k
(the)h(result)f(of)g(an)h(application)e(of)i(a)g(sp)s(ecial)e(function)
g(op)s(erator)i(to)g(real)f(or)241 1372 y(complex)26
b(n)m(umeric)f(argumen)m(ts)h(in)f(rounded)f(mo)s(de)i(will)d(b)s(e)j
(appro)m(ximated)g(n)m(umeri-)241 1485 y(cally)h(whenev)m(er)h(it)f(is)
g(p)s(ossible)f(to)i(do)g(so.)40 b(All)27 b(appro)m(ximations)g(are)h
(to)h(the)f(curren)m(t)241 1598 y(precision.)241 1753
y @beginspecial @setspecial @endspecial 182 x FE(77.2)135
b(Constan)l(ts)241 2187 y FQ(Some)28 b(w)m(ell-kno)m(wn)f(constan)m(ts)
i(are)g(de\014ned)e(in)g(the)h(sp)s(ecial)f(function)g(pac)m(k)-5
b(age.)42 b(Im-)241 2300 y(p)s(ortan)m(t)31 b(prop)s(erties)e(of)j
(these)f(constan)m(ts)h(whic)m(h)e(can)h(b)s(e)g(used)f(to)i(de\014ne)e
(them)h(are)241 2413 y(also)40 b(kno)m(wn.)69 b(Numerical)39
b(v)-5 b(alues)40 b(are)g(computed)g(at)h(arbitrary)e(precision)f(if)h
(the)241 2526 y(switc)m(h)30 b(R)m(OUNDED)h(is)f(on.)377
2788 y FP(\017)46 b FQ(Euler)p 688 2788 28 4 v 31 w(Gamma)31
b(:)41 b(Euler's)29 b(constan)m(ts,)j(also)e(a)m(v)-5
b(ailable)30 b(as)h(-)p FL( )s FQ(\(1\);)377 2976 y FP(\017)46
b FQ(Catalan)30 b(:)41 b(Catalan's)31 b(constan)m(t;)377
3164 y FP(\017)46 b FQ(Khinc)m(hin)27 b(:)41 b(Khinc)m(hin's)28
b(constan)m(t;)377 3361 y FP(\017)46 b FQ(Golden)p 757
3361 V 32 w(Ratio)31 b(:)1109 3326 y FO(1+)1199 3270
y Fu(p)p 1258 3270 36 3 v 56 x FO(5)p 1109 3341 185 4
v 1183 3393 a(2)241 3530 y @beginspecial @setspecial
@endspecial 168 x FE(77.3)135 b(F)-11 b(unctions)241
3950 y FQ(The)30 b(functions)f(pro)m(vided)g(b)m(y)h(this)f(pac)m(k)-5
b(age)32 b(are)f(giv)m(en)g(in)e(the)h(follo)m(wing)f(tables.)p
eop
%%Page: 542 542
542 541 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(542)68 b FM(CHAPTER)30 b(77.)71 b(SPECFN:)30 b(P)-8
b(A)m(CKA)m(GE)32 b(F)m(OR)f(SPECIAL)e(FUNCTIONS)p 1125
467 2068 4 v 1125 3418 4 2952 v 1949 684 a FQ(F)-8 b(unction)100
b(Op)s(erator)2140 841 y FB(\000)2198 870 y FF(n)2188
941 y(m)2261 841 y FB(\001)2399 910 y FJ(Binomial\(n,m\))1845
1023 y FQ(Motzkin\()p FL(n)p FQ(\))h FJ(Motzkin\(n\))1553
1136 y FQ(Bernoulli\()p FL(n)p FQ(\))29 b(or)h FL(B)2252
1150 y FF(n)2399 1136 y FJ(Bernoulli\(n\))1704 1249 y
FQ(Euler\()p FL(n)p FQ(\))f(or)i FL(E)2252 1263 y FF(n)2399
1249 y FJ(Euler\(n\))1541 1362 y FQ(Fib)s(onacci\()p
FL(n)p FQ(\))f(or)g FL(F)2251 1376 y FF(n)2399 1362 y
FJ(Fibonacci\(n\))2116 1493 y FL(S)2177 1445 y FO(\()p
FF(m)p FO(\))2172 1504 y FF(n)2399 1493 y FJ(Stirling1\(n,m\))2119
1625 y FN(S)2177 1577 y FO(\()p FF(m)p FO(\))2177 1635
y FF(n)2399 1625 y FJ(Stirling2\(n,m\))2000 1738 y FL(B)5
b FQ(\()p FL(z)t(;)15 b(w)r FQ(\))102 b FJ(Beta\(z,w\))2125
1851 y FQ(\000\()p FL(z)t FQ(\))f FJ(Gamma\(z\))1312
1963 y FQ(incomplete)30 b(Beta)i FL(B)2057 1977 y FF(x)2101
1963 y FQ(\()p FL(a;)15 b(b)p FQ(\))101 b FJ(iBeta\(a,b,x\))1233
2076 y FQ(incomplete)30 b(Gamma)h(\000\()p FL(a;)15 b(z)t
FQ(\))101 b FJ(iGamma\(a,z\))2137 2189 y FQ(\()p FL(a)p
FQ(\))2255 2204 y FF(k)2399 2189 y FJ(Pochhammer\(a,k\))2119
2302 y FL( )s FQ(\()p FL(z)t FQ(\))h FJ(Psi\(z\))2018
2419 y FL( )2080 2386 y FO(\()p FF(n)p FO(\))2182 2419
y FQ(\()p FL(z)t FQ(\))f FJ(Polygamma\(n,z\))1689 2532
y FQ(Riemann's)29 b FL(\020)7 b FQ(\()p FL(z)t FQ(\))101
b FJ(Zeta\(z\))2088 2645 y FL(J)2138 2659 y FF(\027)2182
2645 y FQ(\()p FL(z)t FQ(\))g FJ(BesselJ\(nu,z\))2086
2758 y FL(Y)2139 2772 y FF(\027)2182 2758 y FQ(\()p FL(z)t
FQ(\))g FJ(BesselY\(nu,z\))2099 2870 y FL(I)2139 2884
y FF(\027)2182 2870 y FQ(\()p FL(z)t FQ(\))g FJ(BesselI\(nu,z\))2062
2983 y FL(K)2139 2997 y FF(\027)2182 2983 y FQ(\()p FL(z)t
FQ(\))g FJ(BesselK\(nu,z\))2005 3115 y FL(H)2088 3067
y FO(\(1\))2081 3126 y FF(\027)2182 3115 y FQ(\()p FL(z)t
FQ(\))g FJ(Hankel1\(nu,z\))2005 3247 y FL(H)2088 3199
y FO(\(2\))2081 3257 y FF(\027)2182 3247 y FQ(\()p FL(z)t
FQ(\))g FJ(Hankel2\(nu,z\))2000 3360 y FL(B)5 b FQ(\()p
FL(z)t(;)15 b(w)r FQ(\))102 b FJ(Beta\(z,w\))p 3189 3418
V 1125 3421 2068 4 v eop
%%Page: 543 543
543 542 bop 241 299 a @beginspecial @setspecial @endspecial
FM(77.3.)72 b(FUNCTIONS)2045 b FQ(543)p 263 467 2945
4 v 263 3640 4 3174 v 1582 684 a(F)-8 b(unction)100 b(Op)s(erator)1690
910 y FN(H)1772 924 y FF(\027)1815 910 y FQ(\()p FL(z)t
FQ(\))h FJ(StruveH\(nu,z\))1709 1023 y FN(L)1772 1037
y FF(\027)1815 1023 y FQ(\()p FL(z)t FQ(\))g FJ(StruveL\(nu,z\))1681
1136 y FL(s)1724 1151 y FF(a;b)1815 1136 y FQ(\()p FL(z)t
FQ(\))g FJ(Lommel1\(a,b,z\))1668 1249 y FL(S)1724 1264
y FF(a;b)1815 1249 y FQ(\()p FL(z)t FQ(\))g FJ(Lommel2\(a,b,z\))1716
1362 y FL(Ai)p FQ(\()p FL(z)t FQ(\))g FJ(Airy)p 2230
1362 29 4 v 33 w(Ai\(z\))1710 1474 y FL(B)5 b(i)p FQ(\()p
FL(z)t FQ(\))101 b FJ(Airy)p 2230 1474 V 33 w(Bi\(z\))1692
1587 y FL(Ai)1791 1554 y Fu(0)1815 1587 y FQ(\()p FL(z)t
FQ(\))g FJ(Airy)p 2230 1587 V 33 w(Aiprime\(z\))1687
1700 y FL(B)5 b(i)1792 1667 y Fu(0)1815 1700 y FQ(\()p
FL(z)t FQ(\))101 b FJ(Airy)p 2230 1700 V 33 w(Biprime\(z\))493
1813 y FL(M)10 b FQ(\()p FL(a;)15 b(b;)g(z)t FQ(\))32
b(or)1018 1827 y FO(1)1057 1813 y FL(F)1115 1827 y FO(1)1155
1813 y FQ(\()p FL(a;)15 b(b)p FQ(;)g FL(z)t FQ(\))32
b(or)e(\010\()p FL(a;)15 b(b)p FQ(;)g FL(z)t FQ(\))102
b FJ(KummerM\(a,b,z\))371 1926 y FL(U)10 b FQ(\()p FL(a;)15
b(b;)g(z)t FQ(\))32 b(or)f FL(z)916 1893 y Fu(\000)p
FF(a)1013 1940 y FO(2)1052 1926 y FL(F)1110 1940 y FO(0)1150
1926 y FQ(\()p FL(a;)15 b(b)p FQ(;)g FL(z)t FQ(\))32
b(or)e(\011\()p FL(a;)15 b(b)p FQ(;)g FL(z)t FQ(\))102
b FJ(KummerU\(a,b,z\))1620 2039 y FL(M)1708 2053 y FF(\024;\026)1815
2039 y FQ(\()p FL(z)t FQ(\))f FJ(WhittakerM\(kappa,mu,z\))1622
2152 y FL(W)1708 2166 y FF(\024;\026)1815 2152 y FQ(\()p
FL(z)t FQ(\))g FJ(WhittakerW\(kappa,mu,z\))1693 2265
y FL(B)1762 2279 y FF(n)1809 2265 y FQ(\()p FL(x)p FQ(\))g
FJ(BernoulliP\(n,x\))1695 2378 y FL(E)1762 2392 y FF(n)1809
2378 y FQ(\()p FL(x)p FQ(\))g FJ(EulerP\(n,x\))777 2491
y FQ(Fib)s(onacci)29 b(P)m(olynomials)g FL(F)1762 2505
y FF(n)1809 2491 y FQ(\()p FL(x)p FQ(\))101 b FJ(FibonacciP\(n,x\))1634
2622 y FL(C)1706 2574 y FO(\()p FF(\013)p FO(\))1699
2633 y FF(n)1809 2622 y FQ(\()p FL(x)p FQ(\))g FJ
(GegenbauerP\(n,alpha,x\))1687 2735 y FL(H)1763 2749
y FF(n)1809 2735 y FQ(\()p FL(x)p FQ(\))g FJ(HermiteP\(n,x\))1701
2848 y FL(L)1763 2862 y FF(n)1809 2848 y FQ(\()p FL(x)p
FQ(\))g FJ(LaguerreP\(n,x\))1626 2980 y FL(L)1688 2932
y FO(\()p FF(m)p FO(\))1688 2990 y FF(n)1809 2980 y FQ(\()p
FL(x)p FQ(\))g FJ(LaguerreP\(n,m,x\))1704 3093 y FL(P)1762
3107 y FF(n)1809 3093 y FQ(\()p FL(x)p FQ(\))g FJ(LegendreP\(n,x\))1617
3224 y FL(P)1688 3176 y FO(\()p FF(m)p FO(\))1675 3235
y FF(n)1809 3224 y FQ(\()p FL(x)p FQ(\))g FJ(LegendreP\(n,m,x\))1571
3356 y FL(P)1642 3308 y FO(\()p FF(\013;\014)s FO(\))1629
3366 y FF(n)1809 3356 y FQ(\()p FL(x)p FQ(\))g FJ
(JacobiP\(n,alpha,beta,x\))1700 3469 y FL(U)1762 3483
y FF(n)1809 3469 y FQ(\()p FL(x)p FQ(\))g FJ(ChebyshevU\(n,x\))1709
3582 y FL(T)1762 3596 y FF(n)1809 3582 y FQ(\()p FL(x)p
FQ(\))g FJ(ChebyshevT\(n,x\))p 3204 3640 4 3174 v 263
3643 2945 4 v 241 3795 3070 4 v 241 4821 4 1027 v 949
4012 a FQ(F)-8 b(unction)99 b(Op)s(erator)732 4237 y
FL(Y)805 4204 y FF(m)785 4260 y(n)871 4237 y FQ(\()p
FL(x;)15 b(y)s(;)g(z)t(;)g(r)s FQ(2\))102 b FJ
(SolidHarmonicY\(n,m,x,y,z)o(,r2\))948 4350 y FL(Y)1021
4317 y FF(m)1001 4373 y(n)1088 4350 y FQ(\()p FL(\022)s(;)15
b(\036)p FQ(\))100 b FJ(SphericalHarmonicY\(n,m,t)o(heta)o(,ph)o(i\))
848 4388 y FB(\020)925 4441 y FF(j)954 4450 y Fy(1)908
4513 y FF(m)970 4522 y Fy(1)1042 4441 y FF(j)1071 4450
y Fy(2)1025 4513 y FF(m)1087 4522 y Fy(2)1159 4441 y
FF(j)1188 4450 y Fy(3)1142 4513 y FF(m)1204 4522 y Fy(3)1249
4388 y FB(\021)1398 4482 y FJ(ThreeJSymbol\()p FP(f)p
FJ(j1,m1)p FP(g)p FJ(,)p FP(f)p FJ(j2,m2)p FP(g)p FJ(,)p
FP(f)p FJ(j3,m3)p FP(g)p FJ(\))349 4613 y FQ(\()p FL(j)421
4627 y FO(1)461 4613 y FL(m)541 4627 y FO(1)581 4613
y FL(j)618 4627 y FO(2)657 4613 y FL(m)737 4627 y FO(2)777
4613 y FP(j)p FL(j)839 4627 y FO(1)879 4613 y FL(j)916
4627 y FO(2)956 4613 y FL(j)993 4627 y FO(3)1053 4613
y FP(\000)20 b FL(m)1224 4627 y FO(3)1263 4613 y FQ(\))100
b FJ(Clebsch)p 1740 4613 29 4 v 32 w(Gordan\()p FP(f)p
FJ(j1,m1)p FP(g)p FJ(,)p FP(f)p FJ(j2,m2)p FP(g)p FJ(,)p
FP(f)p FJ(j3,m3)p FP(g)p FJ(\))938 4650 y FB(n)1004 4704
y FF(j)1033 4713 y Fy(1)1007 4775 y FF(l)1028 4784 y
Fy(1)1087 4704 y FF(j)1116 4713 y Fy(2)1091 4775 y FF(l)1112
4784 y Fy(2)1170 4704 y FF(j)1199 4713 y Fy(3)1174 4775
y FF(l)1195 4784 y Fy(3)1243 4650 y FB(o)1398 4744 y
FJ(SixJSymbol\()p FP(f)p FJ(j1,j2,j3)p FP(g)p FJ(,)p
FP(f)p FJ(l1,l2,l3)p FP(g)p FJ(\))p 3307 4821 4 1027
v 241 4824 3070 4 v eop
%%Page: 544 544
544 543 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(544)68 b FM(CHAPTER)30 b(77.)71 b(SPECFN:)30 b(P)-8
b(A)m(CKA)m(GE)32 b(F)m(OR)f(SPECIAL)e(FUNCTIONS)p 833
467 2652 4 v 833 5033 4 4567 v 2003 684 a FQ(F)-8 b(unction)99
b(Op)s(erator)2143 910 y FL(S)5 b(i)p FQ(\()p FL(z)t
FQ(\))101 b FJ(Si\(z\))2161 1023 y FL(si)p FQ(\()p FL(z)t
FQ(\))g FJ(s)p 2506 1023 29 4 v 34 w(i\(z\))2133 1136
y FL(C)7 b(i)p FQ(\()p FL(z)t FQ(\))100 b FJ(Ci\(z\))2091
1249 y FL(S)5 b(hi)p FQ(\()p FL(z)t FQ(\))101 b FJ(Shi\(z\))2080
1362 y FL(C)7 b(hi)p FQ(\()p FL(z)t FQ(\))101 b FJ(Chi\(z\))2095
1474 y FL(er)s(f)10 b FQ(\()p FL(z)t FQ(\))100 b FJ(erf\(z\))2056
1587 y FL(er)s(f)10 b(c)p FQ(\()p FL(z)t FQ(\))100 b
FJ(erfc\(z\))2132 1700 y FL(E)5 b(i)p FQ(\()p FL(z)t
FQ(\))101 b FJ(Ei\(z\))2175 1813 y FL(l)r(i)p FQ(\()p
FL(z)t FQ(\))g FJ(li\(z\))2158 1926 y FL(C)7 b FQ(\()p
FL(x)p FQ(\))100 b FJ(Fresnel)p 2794 1926 V 32 w(C\(x\))2169
2039 y FL(S)5 b FQ(\()p FL(x)p FQ(\))100 b FJ(Fresnel)p
2794 2039 V 32 w(S\(x\))2037 2265 y FL(dil)r(og)s FQ(\()p
FL(z)t FQ(\))i FJ(dilog\(z\))2095 2378 y FL(Li)2188 2392
y FF(n)2235 2378 y FQ(\()p FL(z)t FQ(\))f FJ(Polylog\(n,z\))1747
2491 y FQ(Lerc)m(h)30 b(\010\()p FL(z)t(;)15 b(s;)g(a)p
FQ(\))101 b FJ(Lerch)p 2698 2491 V 33 w(Phi\(z,s,a\))2027
2716 y FL(sn)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))f FJ(Jacobisn\(u,m\))
2023 2829 y FL(dn)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))g
FJ(Jacobidn\(u,m\))2031 2942 y FL(cn)p FQ(\()p FL(u)p
FP(j)p FL(m)p FQ(\))g FJ(Jacobicn\(u,m\))2038 3055 y
FL(cd)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))h FJ(Jacobicd\(u,m\))2035
3168 y FL(sd)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))f FJ(Jacobisd\(u,m\))
2023 3281 y FL(nd)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))g
FJ(Jacobind\(u,m\))2038 3394 y FL(dc)p FQ(\()p FL(u)p
FP(j)p FL(m)p FQ(\))h FJ(Jacobidc\(u,m\))2031 3507 y
FL(nc)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))f FJ(Jacobinc\(u,m\))2043
3620 y FL(sc)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))g FJ(Jacobisc\(u,m\))
2027 3733 y FL(ns)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))g
FJ(Jacobins\(u,m\))2035 3846 y FL(ds)p FQ(\()p FL(u)p
FP(j)p FL(m)p FQ(\))g FJ(Jacobids\(u,m\))2043 3958 y
FL(cs)p FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))g FJ(Jacobics\(u,m\))2051
4071 y FL(F)13 b FQ(\()p FL(\036)p FP(j)p FL(m)p FQ(\))101
b FJ(EllipticF\(phi,m\))2118 4184 y FL(K)7 b FQ(\()p
FL(m)p FQ(\))100 b FJ(EllipticK\(m\))1740 4297 y FL(E)5
b FQ(\()p FL(\036)p FP(j)p FL(m)p FQ(\))p FL(or)s(E)g
FQ(\()p FL(m)p FQ(\))101 b FJ(EllipticE\(phi,m\))43 b(or)2452
4410 y(EllipticE\(m\))941 4523 y FL(H)7 b FQ(\()p FL(u)p
FP(j)p FL(m)p FQ(\))p FL(;)15 b(H)1367 4537 y FO(1)1407
4523 y FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))p FL(;)g FQ(\002)1745
4537 y FO(1)1786 4523 y FQ(\()p FL(u)p FP(j)p FL(m)p
FQ(\))p FL(;)g FQ(\002\()p FL(u)p FP(j)p FL(m)p FQ(\))101
b FJ(EllipticTheta\(a,u,m\))991 4636 y FL(\022)1034 4650
y FO(1)1073 4636 y FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))p
FL(;)15 b(\022)1383 4650 y FO(2)1424 4636 y FQ(\()p FL(u)p
FP(j)p FL(m)p FQ(\))p FL(;)g(\022)1734 4650 y FO(3)1774
4636 y FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))p FL(;)g(\022)2084
4650 y FO(4)2124 4636 y FQ(\()p FL(u)p FP(j)p FL(m)p
FQ(\))101 b FJ(EllipticTheta\(a,u,m\))2056 4749 y FL(Z)7
b FQ(\()p FL(u)p FP(j)p FL(m)p FQ(\))100 b FJ(Zeta)p
2650 4749 V 33 w(function\(u,m\))1805 4975 y FQ(Lam)m(b)s(ert)30
b FL(!)s FQ(\()p FL(z)t FQ(\))101 b FJ(Lambert)p 2794
4975 V 32 w(W\(z\))p 3481 5033 4 4567 v 833 5036 2652
4 v eop
%%Page: 545 545
545 544 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(78)241 1693 y FT(SPECFN2:)102 b(Sp)6 b(ecial)77 b(sp)6
b(ecial)241 1942 y(functions)1402 2415 y Fx(Victor)26
b(S.)g(Adamc)n(hik)1339 2506 y(By)n(elorussian)h(Univ)n(ersit)n(y)1483
2598 y(Minsk,)g(Belorus)1673 2749 y(and)1487 2870 y(Winfried)f(Neun)826
2962 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 3053 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 3144 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1390
3265 y(e{mail:)35 b(neun@zib.de)241 3510 y FQ(The)30
b(\(generalised\))g(h)m(yp)s(ergeometric)g(functions)1358
3843 y FF(p)1398 3829 y FL(F)1456 3843 y FF(q)1510 3685
y FB( )1585 3768 y FL(a)1633 3782 y FO(1)1673 3768 y
FL(;)15 b(:)g(:)g(:)h(;)f(a)1922 3782 y FF(p)1595 3891
y FL(b)1634 3905 y FO(1)1674 3891 y FL(;)g(:)g(:)g(:)h(;)f(b)1914
3905 y FF(q)1972 3682 y FB(\014)1972 3732 y(\014)1972
3781 y(\014)1972 3831 y(\014)1972 3881 y(\014)2000 3829
y FL(z)2046 3685 y FB(!)241 4143 y FQ(are)31 b(de\014ned)e(in)g(textb)s
(o)s(oks)h(on)h(sp)s(ecial)e(functions.)241 4298 y @beginspecial
@setspecial @endspecial 182 x FE(78.1)135 b(REDUCE)47
b(op)t(erator)e(HYPER)l(GEOMETRIC)241 4732 y FQ(The)21
b(op)s(erator)g FJ(hypergeometric)d FQ(exp)s(ects)j(3)h(argumen)m(ts,)i
(namely)c(the)i(list)e(of)i(upp)s(er)241 4845 y(parameters)29
b(\(whic)m(h)e(ma)m(y)j(b)s(e)e(empt)m(y\),)i(the)e(list)g(of)g(lo)m(w)
m(er)h(parameters)g(\(whic)m(h)f(ma)m(y)241 4958 y(b)s(e)i(empt)m(y)g
(to)s(o\),)i(and)e(the)g(argumen)m(t,)h(e.g:)1667 5187
y(545)p eop
%%Page: 546 546
546 545 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(546)295 b FM(CHAPTER)29 b(78.)72 b(SPECFN2:)41 b(SPECIAL)29
b(SPECIAL)g(FUNCTIONS)664 655 y FH(hypergeometric)38
b(\({},{},z\);)708 854 y(Z)664 954 y(E)664 1153 y(hypergeometric)g
(\({1/2,1},{3/2},-)o(x^2)o(\);)708 1352 y(ATAN\(X\))664
1452 y(---------)839 1551 y(X)664 1688 y @beginspecial
@setspecial @endspecial 200 x FE(78.2)136 b(Enlarging)52
b(the)f(HYPER)l(GEOMETRIC)g(op)t(era-)1038 2037 y(tor)664
2277 y FQ(Since)30 b(h)m(undreds)f(of)j(particular)d(cases)k(for)e(the)
g(generalised)f(h)m(yp)s(ergeometric)h(func-)664 2376
y(tions)38 b(can)h(b)s(e)f(found)f(in)g(the)i(literature,)h(one)e
(cannot)i(exp)s(ect)f(that)g(all)e(cases)j(are)664 2476
y(kno)m(wn)j(to)h(the)f FJ(hypergeometric)d FQ(op)s(erator.)79
b(Nev)m(ertheless)44 b(the)f(set)h(of)f(sp)s(ecial)664
2575 y(cases)31 b(can)g(b)s(e)f(augmen)m(ted)h(b)m(y)f(adding)f(rules)g
(to)i(the)g(REDUCE)f(system,)h FD(e.g.)664 2781 y FH(let)43
b({hypergeometric)o(\({)o(1/2)o(,1)o(/2})o(,{)o(3/2)o(},)o(-\()o(~x\))o
(^2)o(\))38 b(=>)k(asinh\(x\)/x};)p eop
%%Page: 547 547
547 546 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(79)241 1693 y FT(SUM:)77 b(A)g(pac)-6 b(k)-13 b(age)77
b(for)h(series)241 1942 y(summation)1550 2415 y Fx(F)-6
b(ujio)26 b(Kak)n(o)935 2506 y(Departmen)n(t)e(of)i(Mathematics,)h(F)-6
b(acult)n(y)25 b(of)h(Science)1378 2598 y(Hiroshima)g(Univ)n(ersit)n(y)
1340 2689 y(Hiroshima)g(730,)h(JAP)-6 b(AN)1212 2810
y(e{mail:)35 b(k)l(ak)n(o@ics.nara-wu.ac.jp)241 3054
y FQ(This)25 b(pac)m(k)-5 b(age)30 b(implemen)m(ts)25
b(the)j(Gosp)s(er)f(algorithm)f(for)h(the)g(summation)f(of)i(series.)
241 3167 y(It)g(de\014nes)g(op)s(erators)g(SUM)g(and)g(PR)m(OD.)h(The)f
(op)s(erator)g(SUM)g(returns)f(the)i(indef-)241 3280
y(inite)j(or)h(de\014nite)f(summation)f(of)j(a)f(giv)m(en)g
(expression,)g(and)f(the)i(op)s(erator)f(PR)m(OD)241
3393 y(returns)23 b(the)i(pro)s(duct)e(of)i(the)g(giv)m(en)f
(expression.)38 b(These)24 b(are)h(used)f(with)f(the)i(syn)m(tax:)241
3616 y FJ(SUM)p FQ(\(EXPR:)p FD(expr)-5 b(ession)p FQ(,)29
b(K:)p FD(kernel)p FQ(,)e([LOLIM:)p FD(expr)-5 b(ession)29
b FQ([,)f(UPLIM:)p FD(expr)-5 b(ession)p FQ(]]\))241
3729 y FJ(PROD)p FQ(\(EXPR:)p FD(expr)g(ession)p FQ(,)23
b(K:)p FD(kernel)p FQ(,)g([LOLIM:)p FD(expr)-5 b(ession)22
b FQ([,)h(UPLIM:)p FD(expr)-5 b(ession)p FQ(]]\))241
3891 y(If)42 b(there)h(is)f(no)g(closed)h(form)f(solution,)j(these)e
(op)s(erators)g(return)f(the)g(input)f(un-)241 4004 y(c)m(hanged.)g
(UPLIM)30 b(and)g(LOLIM)g(are)g(optional)g(parameters)h(sp)s(ecifying)d
(the)i(lo)m(w)m(er)241 4117 y(limit)j(and)h(upp)s(er)g(limit)e(of)k
(the)f(summation)f(\(or)i(pro)s(duct\),)g(resp)s(ectiv)m(ely)-8
b(.)54 b(If)35 b(UP-)241 4230 y(LIM)29 b(is)g(not)h(supplied,)c(the)k
(upp)s(er)e(limit)f(is)i(tak)m(en)h(as)g(K)f(\(the)h(summation)f(v)-5
b(ariable)241 4343 y(itself)7 b(\).)241 4506 y(F)-8 b(or)31
b(example:)459 4737 y FH(sum\(n**3,n\);)459 4936 y(sum\(a+k*r,k,0,n)o
(-1\))o(;)1667 5187 y FQ(547)p eop
%%Page: 548 548
548 547 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(548)174 b FM(CHAPTER)30 b(79.)72 b(SUM:)30 b(A)h(P)-8
b(A)m(CKA)m(GE)31 b(F)m(OR)g(SERIES)e(SUMMA)-8 b(TION)882
655 y FH(sum\(1/\(\(p+\(k-1\)*)o(q\)*)o(\(p)o(+k*)o(q\))o(\),k)o(,1)o
(,n)o(+1\))o(;)882 854 y(prod\(k/\(k-2\),k\);)664 1098
y FQ(Gosp)s(er's)30 b(algorithm)g(succeeds)g(whenev)m(er)h(the)f(ratio)
1932 1269 y FB(P)2020 1296 y FF(n)2020 1356 y(k)r FO(=)p
FF(n)2157 1365 y Fy(0)2210 1333 y FL(f)10 b FQ(\()p FL(k)s
FQ(\))p 1932 1379 453 4 v 1932 1406 a FB(P)2020 1432
y FF(n)p Fu(\000)p FO(1)2020 1498 y FF(k)r FO(=)p FF(n)2157
1507 y Fy(0)2210 1470 y FL(f)g FQ(\()p FL(k)s FQ(\))664
1720 y(is)32 b(a)h(rational)g(function)e(of)i FL(n)p
FQ(.)48 b(The)32 b(function)g(SUM!-SQ)h(handles)e(basic)h(functions)664
1833 y(suc)m(h)e(as)h(p)s(olynomials,)d(rational)h(functions)g(and)h
(exp)s(onen)m(tials.)664 1995 y(The)e(trigonometric)g(functions)f(sin,)
h(cos,)h FD(etc.)i FQ(are)d(con)m(v)m(erted)i(to)f(exp)s(onen)m(tials)f
(and)664 2108 y(then)36 b(Gosp)s(er's)g(algorithm)e(is)h(applied.)56
b(The)35 b(result)g(is)g(con)m(v)m(erted)i(bac)m(k)g(in)m(to)f(sin,)664
2221 y(cos,)31 b(sinh)e(and)h(cosh.)664 2384 y(Summations)37
b(of)i(logarithms)e(or)i(pro)s(ducts)e(of)h(exp)s(onen)m(tials)g(are)h
(treated)g(b)m(y)g(the)664 2497 y(form)m(ula:)1668 2765
y FF(n)1630 2790 y FB(X)1604 2974 y FF(k)r FO(=)p FF(n)1741
2983 y Fy(0)1790 2871 y FQ(log)17 b FL(f)10 b FQ(\()p
FL(k)s FQ(\))25 b(=)g(log)2416 2765 y FF(n)2384 2790
y FB(Y)2352 2974 y FF(k)r FO(=)p FF(n)2489 2983 y Fy(0)2538
2871 y FL(f)10 b FQ(\()p FL(k)s FQ(\))1647 3159 y FF(n)1615
3184 y FB(Y)1583 3369 y FF(k)r FO(=)p FF(n)1720 3378
y Fy(0)1769 3265 y FQ(exp)15 b FL(f)10 b FQ(\()p FL(k)s
FQ(\))25 b(=)g(exp)2437 3159 y FF(n)2399 3184 y FB(X)2373
3369 y FF(k)r FO(=)p FF(n)2510 3378 y Fy(0)2559 3265
y FL(f)10 b FQ(\()p FL(k)s FQ(\))664 3671 y(Other)31
b(functions)f(can)i(b)s(e)f(summed)g(b)m(y)g(pro)m(viding)f(LET)h
(rules)f(whic)m(h)g(m)m(ust)h(relate)664 3784 y(the)g(functions)e(ev)-5
b(aluated)30 b(at)h FL(k)j FQ(and)c FL(k)23 b FP(\000)d
FQ(1)31 b(\()p FL(k)j FQ(b)s(eing)28 b(the)j(summation)e(v)-5
b(ariable\).)664 4015 y FH(operator)40 b(f,gg;)86 b(\045)43
b(gg)f(used)g(to)h(avoid)f(possible)e(conflict)g(with)i(high)g(energy)
1362 4114 y(\045)h(physics)d(operator.)664 4314 y(for)j(all)f(n,m)g
(such)g(that)g(fixp)g(m)h(let)1013 4413 y(f\(n+m\)=if)d(m)j(>)g(0)g
(then)f(f\(n+m-1\)*\(b*\(n+m\))o(**)o(2+)o(c*\()o(n+)o(m\)+)o(d\))1492
4513 y(else)g(f\(n+m+1\)/\(b*\(n+m+)o(1\))o(**2)o(+c)o(*\()o(n+m)o(+1)o
(\)+d)o(\);)664 4712 y(for)h(all)f(n,m)g(such)g(that)g(fixp)g(m)h(let)
1013 4812 y(gg\(n+m\)=if)c(m)k(>)h(0)f(then)f(gg\(n+m-1\)*\(b*\(n+)o
(m\))o(**)o(2+c)o(*\()o(n+m)o(\)+)o(e\))1492 4911 y(else)g
(gg\(n+m+1\)/\(b*\(n+m)o(+1)o(\)**)o(2+)o(c*)o(\(n+)o(m+)o(1\)+)o(e\))o
(;)p eop
%%Page: 549 549
549 548 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(549)241 655 y FH(sum\(f\(n-1\)/gg\(n\))o(,n)o(\);)459
854 y(f\(n\))241 954 y(---------------)284 1053 y(gg\(n\)*\(d)41
b(-)i(e\))p eop
%%Page: 550 550
550 549 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(550)174 b FM(CHAPTER)30 b(79.)72 b(SUM:)30 b(A)h(P)-8
b(A)m(CKA)m(GE)31 b(F)m(OR)g(SERIES)e(SUMMA)-8 b(TION)p
eop
%%Page: 551 551
551 550 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(80)241 1693 y FT(SUSY2:)102 b(Sup)6 b(er)78 b(Symmetry)1410
2166 y Fx(Ziemo)n(wit)26 b(P)n(op)r(o)n(wicz)810 2257
y(Institute)f(of)h(Theoretical)i(Ph)n(ysics,)e(Univ)n(ersit)n(y)f(of)h
(W)-6 b(ro)r(cla)n(w)1063 2348 y(pl.)35 b(M.)26 b(Borna)g(9)g(50-205)h
(W)-6 b(ro)r(cla)n(w,)28 b(P)n(oland)1226 2440 y(e-mail:)35
b(ziemek@ift.uni.wro)r(c.pl)241 2684 y FQ(This)d(pac)m(k)-5
b(age)36 b(deals)d(with)g(sup)s(ersymmetric)e(functions)i(and)g(with)g
(algebra)h(of)g(su-)241 2797 y(p)s(ersymmetric)26 b(op)s(erators)j(in)e
(the)i(extended)f(N=2)h(as)f(w)m(ell)g(as)g(in)f(the)i(nonextended)241
2910 y(N=1)34 b(sup)s(ersymmetry)-8 b(.)51 b(It)34 b(allo)m(ws)f(us)h
(to)h(mak)m(e)g(the)f(realization)g(of)g(SuSy)e(algebra)241
3023 y(of)d(di\013eren)m(tial)e(op)s(erators,)j(compute)f(the)g
(gradien)m(ts)f(of)h(giv)m(en)g(SuSy)e(Hamiltonians)241
3136 y(and)42 b(to)h(obtain)f(SuSy)e(v)m(ersion)i(of)h(soliton)e
(equations)h(using)f(the)i(SuSy)e(Lax)h(ap-)241 3248
y(proac)m(h.)d(There)25 b(are)h(also)g(man)m(y)g(additional)d(pro)s
(cedures)i(encoun)m(tered)h(in)e(the)i(SuSy)241 3361
y(soliton)41 b(approac)m(h,)46 b(as)d(for)f(example:)65
b(conjugation)42 b(of)h(a)g(giv)m(en)f(SuSy)f(op)s(erator,)241
3474 y(computation)31 b(of)h(general)g(form)g(of)g(SuSy)e(Hamiltonians)
g(\(up)h(to)h(SuSy-div)m(ergence)241 3587 y(equiv)-5
b(alence\),)36 b(c)m(hec)m(king)f(of)g(the)g(v)-5 b(alidit)m(y)33
b(of)i(the)g(Jacobi)g(iden)m(tit)m(y)f(for)h(some)g(SuSy)241
3700 y(Hamiltonian)28 b(op)s(erators.)241 3863 y(T)-8
b(o)31 b(load)f(the)g(pac)m(k)-5 b(age,)33 b(t)m(yp)s(e)121
b FJ(load)47 b(susy2;)241 4089 y FQ(F)-8 b(or)32 b(full)e(explanation)h
(and)g(further)f(examples,)i(please)g(refer)f(to)i(the)f(detailed)e(do)
s(c-)241 4202 y(umen)m(tation)g(and)g(the)g(susy2.tst)h(whic)m(h)e
(comes)i(with)f(this)f(pac)m(k)-5 b(age.)241 4356 y @beginspecial
@setspecial @endspecial 182 x FE(80.1)135 b(Op)t(erators)241
4651 y @beginspecial @setspecial @endspecial 1667 5187
a FQ(551)p eop
%%Page: 552 552
552 551 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(552)950 b FM(CHAPTER)30 b(80.)71 b(SUSY2:)41 b(SUPER)30
b(SYMMETR)-8 b(Y)664 555 y FR(80.1.1)113 b(Op)s(erators)38
b(for)f(constructing)f(Ob)6 b(jects)664 777 y FQ(The)28
b(sup)s(erfunctions)d(are)k(represen)m(ted)f(in)e(this)i(pac)m(k)-5
b(age)30 b(b)m(y)e FJ(BOS)p FQ(\(f,n,m\))f(for)h(sup)s(er-)664
890 y(b)s(osons)h(and)g FJ(FER)p FQ(\(f,n,m\))g(for)g(sup)s
(erfermions.)38 b(The)29 b(\014rst)g(index)f(denotes)i(the)g(name)664
1002 y(of)j(the)g(giv)m(en)f(sup)s(erob)5 b(ject,)33
b(the)f(second)h(denotes)g(the)g(v)-5 b(alue)32 b(of)g(SuSy)f(deriv)-5
b(ativ)m(es,)664 1115 y(and)30 b(the)h(last)f(giv)m(es)g(the)h(v)-5
b(alue)30 b(of)g(usual)f(deriv)-5 b(ativ)m(e.)664 1228
y(In)28 b(addition)e(to)j(the)f(de\014nitions)e(of)i(the)g(sup)s
(erfunctions,)e(also)i(the)g(in)m(v)m(erse)g(and)g(the)664
1341 y(exp)s(onen)m(tial)33 b(of)h(sup)s(erb)s(osons)e(can)i(b)s(e)g
(de\014ned)f(\(where)h(the)g(in)m(v)m(erse)g(is)f(de\014ned)g(as)664
1454 y FJ(BOS)p FQ(\(f,n,m,-1\))k(with)e(the)h(prop)s(ert)m(y)f
FD(b)-5 b(os\(f,n,m,-1\)*b)g(os\(f,n,m,1\)=1)p FQ(\).)62
b(The)36 b(exp)s(o-)664 1567 y(nen)m(tial)30 b(of)g(the)h(sup)s(erb)s
(oson)d(function)h(is)g FJ(AXP)p FQ(\()p FJ(BOS)p FQ(\(f,0,0\)\).)664
1680 y(The)35 b(op)s(erator)h FJ(FUN)e FQ(and)h FJ(GRAS)f
FQ(denote)i(the)g(classical)e(and)h(the)h(Grassmann)e(func-)664
1793 y(tion.)664 1906 y(Three)28 b(di\013eren)m(t)g(realizations)g(of)h
(sup)s(ersymmetric)d(deriv)-5 b(ativ)m(es)28 b(are)h(implemen)m(ted.)
664 2019 y(T)-8 b(o)35 b(select)f(traditional)f(realization)g(declare)h
FJ(LET)47 b(TRAD)p FQ(.)33 b(In)g(order)h(to)g(select)h(c)m(hiral)664
2132 y(or)d(c)m(hiral1)g(algebra)g(declare)g FJ(LET)47
b(CHIRAL)30 b FQ(or)i FJ(LET)47 b(CHIRAL1)p FQ(.)d(F)-8
b(or)32 b(usual)f(di\013eren-)664 2244 y(tiation)38 b(the)g(op)s
(erator)h FJ(D)p FQ(\(1\))g(stands)e(for)h(righ)m(t)g(and)f
FJ(D)p FQ(\(2\))i(for)f(left)g(di\013eren)m(tiation.)664
2357 y(SuSy)33 b(deriv)-5 b(ativ)m(es)33 b(are)i(denoted)f(as)g
FD(der)h FQ(and)e FD(del)p FQ(.)53 b FJ(DER)33 b FQ(and)g
FJ(DEL)h FQ(are)g(one)h(comp)s(o-)664 2470 y(nen)m(t)h(argumen)m(t)f
(op)s(erations)g(and)g(represen)m(t)g(the)g(left)g(and)g(righ)m(t)g(op)
s(erators.)55 b(The)664 2583 y(action)27 b(of)g(these)f(op)s(erators)h
(on)f(the)h(sup)s(erfunctions)c(dep)s(ends)i(on)h(the)h(c)m(hoice)g(of)
g(the)664 2696 y(sup)s(ersymmetry)i(algebra.)853 2923
y FH(BOS)p Fk(\(f,n,m\))100 b FH(BOS)p Fk(\(f,n,m,k\))g
FH(FER)p Fk(\(f,n,m\))f FH(AXP)p Fk(\(f)6 b(\))100 b
FH(FUN)p Fk(\(f,n\))g FH(FUN)p Fk(\(f,n,m\))853 3023
y FH(GRAS)p Fk(\(f,n\))148 b FH(AXX)p Fk(\(f)6 b(\))322
b FH(D)p Fk(\(1\))331 b FH(D)p Fk(\(2\))177 b FH(D)p
Fk(\(3\))240 b FH(D)p Fk(\(-1\))853 3122 y FH(D)p Fk(\(-2\))304
b FH(D)p Fk(\(-3\))371 b FH(D)p Fk(\(-4\))303 b FH(DR)p
Fk(\(-n\))101 b FH(DER)p Fk(\(1\))152 b FH(DER)p Fk(\(2\))853
3222 y FH(DEL)p Fk(\(1\))244 b FH(DEL)p Fk(\(2\))664
3609 y FN(Example)p FQ(:)664 3815 y FH(1:)43 b(load)f(susy2;)664
4014 y(2:)h(bos\(f,0,2,-2\)*ax)o(p\()o(fer)o(\(k)o(,1,)o(2\))o(\)*d)o
(el)o(\(1)o(\);)81 b(\045first)41 b(susy)h(derivative)664
4214 y(2*fer\(f,1,2\)*bos\()o(f,)o(0,)o(2,-)o(3\))o(*ax)o(p\()o(fer)o
(\(k)o(,1)o(,2\))o(\))708 4413 y(-)h(bos\(k,0,3\)*bos\(f)o(,0)o(,2,)o
(-2)o(\)*a)o(xp)o(\(fe)o(r\()o(k,)o(1,2)o(\)\))708 4612
y(+)g(del\(1\)*bos\(f,0,2)o(,-)o(2\)*)o(ax)o(p\(f)o(er)o(\(k,)o(1,)o
(2\))o(\))664 4811 y(3:)g(sub\(del=der,ws\);)p eop
%%Page: 553 553
553 552 bop 241 299 a @beginspecial @setspecial @endspecial
FM(80.1.)72 b(OPERA)-8 b(TORS)2018 b FQ(553)241 555 y
FH(bos\(f,0,2,-2\)*ax)o(p\()o(fe)o(r\(k)o(,1)o(,2\))o(\)*)o(der)o(\(1)o
(\))241 782 y @beginspecial @setspecial @endspecial 166
x FR(80.1.2)112 b(Commands)241 1170 y FQ(There)30 b(are)g(plen)m(t)m(y)
h(of)f(op)s(erators)h(on)f(sup)s(erfunction)d(ob)5 b(jects.)42
b(Some)30 b(of)h(them)f(are)241 1282 y(in)m(tro)s(duced)f(here)h
(brie\015y)-8 b(.)377 1520 y FP(\017)46 b FQ(By)31 b(using)e(the)h(op)s
(erators)h FJ(FPART)p FQ(,)e FJ(BPART)p FQ(,)g FJ(BFPART)g
FQ(and)g FJ(BF)p 2591 1520 29 4 v 34 w(PART)h FQ(it)f(is)468
1633 y(p)s(ossible)f(to)j(compute)g(the)f(co)s(ordinates)g(of)h(the)g
(arbitrary)e(SuSy)468 1746 y(expressions.)377 1933 y
FP(\017)46 b FQ(With)29 b FJ(W)p 756 1933 V 34 w(COMB)p
FQ(,)f FJ(FCOMB)f FQ(and)i FJ(PSE)p 1622 1933 V 33 w(ELE)g
FQ(there)g(are)g(three)h(op)s(erators)f(to)h(b)s(e)e(able)468
2046 y(to)j(construct)g(di\013eren)m(t)f(p)s(ossible)e(com)m(binations)
h(of)i(sup)s(erfunctions)c(and)468 2159 y(sup)s(er-pseudo-di\013eren)m
(tial)g(elemen)m(ts)k(with)e(the)h(giv)m(en)h(conformal)468
2272 y(dimensions)d(.)377 2460 y FP(\017)46 b FQ(The)30
b(three)g(op)s(erators)h FJ(S)p 1344 2460 V 34 w(PART)p
FQ(,)f FJ(D)p 1673 2460 V 34 w(PART)f FQ(and)h FJ(SD)p
2201 2460 V 33 w(PART)g FQ(are)g(implemen)m(ted)f(to)468
2573 y(obtain)h(the)g(comp)s(onen)m(ts)h(of)f(the)h(\(pseudo\)-SuSy)e
(elemen)m(t.)377 2760 y FP(\017)46 b FJ(RZUT)29 b FQ(is)h(used)f(to)i
(obtain)f(the)h(pro)5 b(jection)30 b(on)m(to)h(the)g(in)m(v)-5
b(arian)m(t)29 b(subspace)468 2873 y(\(with)g(resp)s(ect)i(to)g(comm)m
(utator\))h(of)f(algebra)f(of)h(pseudo-SuSy-di\013eren)m(tial)468
2986 y(algebra.)377 3174 y FP(\017)46 b FQ(T)-8 b(o)31
b(obtain)f(the)g(list)f(of)i(the)f(same)h(com)m(binations)f(of)g(some)h
(sup)s(erfunctions)468 3287 y(and)f(\(SuSy\))f(deriv)-5
b(ativ)m(es)30 b(from)g(some)h(giv)m(en)f(op)s(erator-v)-5
b(alued)30 b(expression,)468 3399 y(the)h(op)s(erators)f
FJ(LYST)p FQ(,)g FJ(LYST1)f FQ(and)g FJ(LYST2)g FQ(are)i(constructed.)p
eop
%%Page: 554 554
554 553 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(554)950 b FM(CHAPTER)30 b(80.)71 b(SUSY2:)41 b(SUPER)30
b(SYMMETR)-8 b(Y)920 543 y FJ(FPART)p FQ(\(expression\))557
b FJ(BPART)p FQ(\(expression\))920 656 y FJ(BF)p 1022
656 29 4 v 34 w(PART)p FQ(\(expression,n\))399 b FJ(B)p
2250 656 V 34 w(PART)p FQ(\(expression,n\))920 769 y
FJ(PR)p FQ(\(n,expression\))625 b FJ(PG)p FQ(\(n,expression\))920
882 y FJ(W)p 974 882 V 34 w(COMB)p FQ(\()p FP(ff)p FQ(f,n,x)p
FP(g)p FQ(,...)p FP(g)p FQ(,m,z,y\))236 b FJ(FCOMB)p
FQ(\()p FP(ff)p FQ(f,n,x)p FP(g)p FQ(,...)p FP(g)p FQ(,m,z,y\))920
995 y FJ(PSE)p 1070 995 V 33 w(ELE)p FQ(\(n,)p FP(ff)p
FQ(f,n)p FP(g)p FQ(,...)p FP(g)p FQ(,z\))920 1107 y FJ(S)p
974 1107 V 34 w(PART)p FQ(\(expression,n\))447 b FJ(D)p
2250 1107 V 34 w(PART)p FQ(\(expression,n\))920 1220
y FJ(SD)p 1022 1220 V 34 w(PART)p FQ(\(expression,n,m\))298
b FJ(CP)p FQ(\(expression\))920 1333 y FJ(RZUT)p FQ(\(expression,n\))
529 b FJ(LYST)p FQ(\(expression\))920 1446 y FJ(LYST1)p
FQ(\(expression\))557 b FJ(LYST2)p FQ(\(expression\))920
1559 y FJ(CHAN)p FQ(\(expression\))605 b FJ(ODWA)p FQ(\(expression\))
920 1672 y FJ(GRA)p FQ(\(expression,f)7 b(\))593 b FJ(DYW)p
FQ(\(expression,f)7 b(\))920 1785 y FJ(WAR)p FQ(\(expression,f)g(\))593
b FJ(DOT)p 2346 1785 V 34 w(HAM)p FQ(\(equations,expression\))920
1898 y FJ(N)p 974 1898 V 34 w(GAT)p FQ(\(op)s(erator,list\))496
b FJ(FJACOB)p FQ(\(op)s(erator,list\))920 2011 y FJ(JACOB)p
FQ(\(op)s(erator,list,)p FP(f)p FL(\013;)15 b(\014)5
b(;)15 b(\015)5 b FP(g)p FQ(\))121 b FJ(MACIERZ)p FQ
(\(expression,x,y\))920 2124 y FJ(S)p 974 2124 V 34 w(INT)p
FQ(\(n)m(um)m(b)s(er,expression,list\))664 2596 y FN(Example)p
FQ(:)664 2802 y FH(4:)43 b(xxx:=fer\(f,2,3\);)664 3001
y(xxx)g(:=)f(fer\(f,2,3\))664 3201 y(5:)h(fpart\(xxx\);)83
b(\045)43 b(all)f(components)1362 3400 y(-)h(fun\(f0,4\))d(+)j
(2*fun\(f1,3\))257 b(gras\(ff2,4\))664 3500 y({gras\(ff2,3\),)38
b(-----------------)o(---)o(--)o(--)o(---)o(-,)o(0,)f(-------------})
1841 3599 y(2)1046 b(2)664 3699 y(6:)43 b(bpart\(xxx\);)83
b(\045)43 b(bosonic)d(sector)882 3898 y(-)j(fun\(f0,4\))d(+)j
(2*fun\(f1,3\))664 3998 y({0,--------------)o(--)o(--)o(---)o(--)o(---)
o(--)o(,0,)o(0})1362 4097 y(2)664 4297 y(9:)g(b_part\(xxx,1\);)38
b(\045the)k(given)f(component)f(in)j(the)f(bosonic)f(sector)751
4496 y(-)j(fun\(f0,4\))39 b(+)44 b(2*fun\(f1,3\))664
4596 y(-----------------)o(--)o(--)o(---)o(--)o(--)1231
4695 y(2)664 4832 y @beginspecial @setspecial @endspecial
eop
%%Page: 555 555
555 554 bop 241 299 a @beginspecial @setspecial @endspecial
FM(80.2.)72 b(OPTIONS)2173 b FQ(555)241 555 y FE(80.2)135
b(Options)241 808 y FQ(The)30 b(are)g(sev)m(eral)h(options)f(de\014ned)
f(in)g(this)g(pac)m(k)-5 b(age.)43 b(Please)31 b(note)g(that)g(they)f
(are)241 921 y(activ)-5 b(ated)31 b(b)m(y)f(t)m(yping)g
FJ(let)47 b FL(<)p FJ(option)p FL(>)p FQ(.)39 b(See)30
b(also)h(ab)s(o)m(v)m(e.)241 1034 y(The)f FJ(TRAD)p FQ(,)f
FJ(CHIRAL)g FQ(and)h FJ(CHIRAL1)e FQ(select)j(the)f(di\013eren)m(t)g
(realizations)g(of)g(the)241 1147 y(sup)s(ersymmetric)e(deriv)-5
b(ativ)m(es.)40 b(By)31 b(default)e(traditional)g(algebra)h(is)g
(selected.)241 1260 y(If)g(the)g(command)g FJ(LET)47
b(INVERSE)29 b FQ(is)g(used,)h(then)g(three)h(indices)d
FD(b)-5 b(os)31 b FQ(ob)5 b(jects)31 b(are)241 1372 y(transformed)e(on)
m(to)j(four)e(indices)e(ob)5 b(jects.)722 1592 y FJ(TRAD)99
b(CHIRAL)f(CHIRAL1)g(INVERSE)f(DRR)i(NODRR)241 2034 y
FN(Example)p FQ(:)241 2240 y FH(10:)42 b(let)g(inverse;)241
2439 y(11:)g(bos\(f,0,3\)**3*bo)o(s\(k)o(,3)o(,1\))o(**)o(40*)o(bo)o
(s\()o(f,0)o(,3)o(,-2)o(\);)241 2638 y(bos\(k,3,1,40\)*bo)o(s\()o(f,)o
(0,3)o(,1)o(\);)241 2837 y(12:)g(clearrules)e(inverse;)241
3037 y(13:)i(xxx:=fer\(f,1,2\)*)o(bos)o(\(k)o(,0,)o(2,)o(-2\))o(;)241
3236 y(xxx)g(:=)h(fer\(f,1,2\)*bos\(k)o(,0)o(,2,)o(-2)o(\))241
3435 y(14:)f(pr\(1,xxx\);)e(\045)j(first)e(susy)h(derivative)241
3634 y(-)h(2*fer\(k,1,2\)*fer)o(\(f)o(,1,)o(2\))o(*bo)o(s\()o(k,0)o(,2)
o(,-)o(3\))37 b(+)43 b(bos\(k,0,2,-2\)*bos)o(\(f,)o(0,)o(3\))241
3834 y(15:)f(pr\(2,xxx\);)e(\045second)g(susy)i(derivative)241
4033 y(-)h(2*fer\(k,2,2\)*fer)o(\(f)o(,1,)o(2\))o(*bo)o(s\()o(k,0)o(,2)
o(,-)o(3\))37 b(-)43 b(bos\(k,0,2,-2\)*bos)o(\(f,)o(3,)o(2\))241
4232 y(16:)f(clearrules)e(trad;)241 4431 y(17:)i(let)g(chiral;)f(\045)i
(changing)e(to)h(chiral)f(algebra)241 4631 y(18:)h(pr\(1,xxx\);)241
4830 y(-)h(2*fer\(k,1,2\)*fer)o(\(f)o(,1,)o(2\))o(*bo)o(s\()o(k,0)o(,2)
o(,-)o(3\))p eop
%%Page: 556 556
556 555 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(556)950 b FM(CHAPTER)30 b(80.)71 b(SUSY2:)41 b(SUPER)30
b(SYMMETR)-8 b(Y)p eop
%%Page: 557 557
557 556 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(81)241 1693 y FT(SYMMETR)-19 b(Y:)76 b(Symmetric)241
1942 y(matrices)1436 2415 y Fx(Karin)26 b(Gatermann)826
2506 y(Konrad{Zuse{Zen)n(trum)f(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 2598 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 2689 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1291
2810 y(e{mail:)35 b(gatermann@zib.de)241 3054 y FQ(The)30
b(SYMMETR)-8 b(Y)30 b(pac)m(k)-5 b(age)33 b(pro)m(vides)c(pro)s
(cedures)g(that)i(compute)241 3167 y(symmetry-adapted)f(bases)h(and)e
(blo)s(c)m(k)h(diagonal)g(forms)g(of)g(matrices)h(whic)m(h)e(ha)m(v)m
(e)241 3280 y(the)h(symmetry)g(of)h(a)g(group.)241 3435
y @beginspecial @setspecial @endspecial 181 x FE(81.1)135
b(Op)t(erators)46 b(for)f(linear)h(represen)l(tations)241
3869 y FQ(The)30 b(data)h(structure)f(for)g(a)h(linear)d(represen)m
(tation,)j(a)g FD(r)-5 b(epr)g(esentation)p FQ(,)33 b(is)d(a)g(list)241
3982 y(consisting)f(of)i(the)f(group)g(iden)m(ti\014er)e(and)i
(equations)g(whic)m(h)f(assign)h(matrices)g(to)241 4095
y(the)g(generators)i(of)e(the)h(group.)241 4244 y FN(Example:)372
4450 y FH(rr:=mat\(\(0,1,0,)o(0\))o(,)720 4550 y(\(0,0,1,0\),)720
4649 y(\(0,0,0,1\),)720 4749 y(\(1,0,0,0\)\);)372 4948
y(sp:=mat\(\(0,1,0,)o(0\))o(,)1667 5187 y FQ(557)p eop
%%Page: 558 558
558 557 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(558)487 b FM(CHAPTER)29 b(81.)72 b(SYMMETR)-8 b(Y:)31
b(SYMMETRIC)f(MA)-8 b(TRICES)1144 555 y FH(\(1,0,0,0\),)1144
655 y(\(0,0,0,1\),)1144 754 y(\(0,0,1,0\)\);)795 954
y(representation:=)o({D)o(4,r)o(D4)o(=rr)o(,s)o(D4=)o(sp)o(};)664
1173 y FQ(F)g(or)31 b(orthogonal)g(\(unitarian\))e(represen)m(tations)h
(the)h(follo)m(wing)e(op)s(erators)h(are)664 1286 y(a)m(v)-5
b(ailable.)664 1449 y FJ(canonicaldecomposition\(re)o(pres)o(ent)o
(atio)o(n\);)664 1611 y FQ(returns)29 b(an)i(equation)f(giving)f(the)i
(canonical)f(decomp)s(osition)f(of)h(the)h(linear)664
1724 y(represen)m(tation.)664 1887 y FJ(character\(representation\))o
(;)664 2050 y FQ(computes)g(the)f(c)m(haracter)i(of)f(the)f(linear)f
(represen)m(tation.)41 b(The)30 b(result)f(is)h(a)g(list)f(of)664
2163 y(the)i(group)e(iden)m(ti\014er)g(and)g(of)i(lists)d(consisting)h
(of)i(a)f(list)f(of)i(group)e(elemen)m(ts)i(in)e(one)664
2275 y(equiv)-5 b(alence)30 b(class)g(and)g(a)h(real)f(or)g(complex)g
(n)m(um)m(b)s(er.)664 2438 y FJ(symmetrybasis\(representat)o(ion,)o
(nr\))o(;)664 2601 y FQ(computes)h(the)f(basis)g(of)g(the)h(isot)m
(ypic)e(comp)s(onen)m(t)i(corresp)s(onding)d(to)k(the)664
2714 y(irreducible)26 b(represen)m(tation)j(of)h(t)m(yp)s(e)f(nr.)39
b(If)29 b(the)h(nr-th)e(irreducible)e(represen)m(tation)664
2827 y(is)k(m)m(ultidimensional,)c(the)31 b(basis)e(is)g(symmetry)h
(adapted.)41 b(The)30 b(output)g(is)f(a)664 2940 y(matrix.)664
3102 y FJ(symmetrybasispart\(represe)o(ntat)o(ion)o(,nr\))o(;)664
3265 y FQ(is)h(similar)d(as)k FJ(symmetrybasis)p FQ(,)c(but)j(for)g(m)m
(ultidimensional)c(irreducible)664 3378 y(represen)m(tations)k(only)g
(the)h(\014rst)e(part)h(of)h(the)f(symmetry)g(adapted)h(basis)e(is)664
3491 y(computed.)664 3654 y FJ(allsymmetrybases\(represen)o(tati)o
(on\))o(;)664 3816 y FQ(is)h(similar)d(as)k FJ(symmetrybasis)c
FQ(and)i FJ(symmetrybasispart)p FQ(,)d(but)k(the)h(bases)f(of)h(all)664
3929 y(isot)m(ypic)f(comp)s(onen)m(ts)h(are)f(computed)g(and)g(th)m(us)
g(a)h(complete)g(co)s(ordinate)664 4042 y(transformation)f(is)f
(returned.)664 4205 y FJ(diagonalize\(matrix,repres)o(enta)o(tio)o
(n\);)664 4368 y FQ(returns)g(the)i(blo)s(c)m(k)f(diagonal)f(form)h(of)
h(matrix)f(whic)m(h)f(has)h(the)g(symmetry)g(of)h(the)664
4480 y(giv)m(en)g(linear)d(represen)m(tation.)41 b(Otherwise)29
b(an)h(error)g(message)i(o)s(ccurs.)664 4635 y @beginspecial
@setspecial @endspecial eop
%%Page: 559 559
559 558 bop 241 299 a @beginspecial @setspecial @endspecial
FM(81.2.)72 b(DISPLA)-8 b(Y)31 b(OPERA)-8 b(TORS)1587
b FQ(559)241 555 y FE(81.2)135 b(Displa)l(y)46 b(Op)t(erators)241
808 y FQ(Access)31 b(is)f(pro)m(vided)f(to)i(the)f(information)f(for)h
(a)h(group,)f(and)g(for)g(adding)241 921 y(kno)m(wledge)g(for)g(other)h
(groups.)40 b(This)29 b(is)g(explained)g(in)g(detail)g(in)g(the)i
(Symmetry)241 1034 y(on-line)e(do)s(cumen)m(tation.)p
eop
%%Page: 560 560
560 559 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(560)487 b FM(CHAPTER)29 b(81.)72 b(SYMMETR)-8 b(Y:)31
b(SYMMETRIC)f(MA)-8 b(TRICES)p eop
%%Page: 561 561
561 560 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(82)241 1693 y FT(T)-19 b(A)g(YLOR:)74 b(Manipulation)j(of)241
1942 y(T)-19 b(a)-6 b(ylor)75 b(series)1500 2424 y Fx(Rainer)26
b(Sc)n(h\177)-38 b(opf)822 2515 y(Zen)n(trum)24 b(f)r(\177)-41
b(ur)26 b(Daten)n(v)n(erarb)r(eitung)g(der)f(Univ)n(ersit\177)-38
b(at)26 b(Mainz)1157 2607 y(Anselm-F)-6 b(ranz-v)n(on-Ben)n(tzel-W)g
(eg)23 b(12)1303 2698 y(D-55055)k(Mainz,)g(German)n(y)1197
2819 y(e{mail:)35 b(Sc)n(ho)r(epf@Uni-Mainz.DE)241 3055
y FQ(The)30 b(T)-8 b(A)g(YLOR)30 b(pac)m(k)-5 b(age)33
b(of)d(REDUCE)g(allo)m(w)g(T)-8 b(a)m(ylor)31 b(expansion)e(in)g(one)i
(or)241 3168 y(sev)m(eral)g(v)-5 b(ariables,)29 b(and)h(e\016cien)m(t)g
(manipulation)e(of)i(the)h(resulting)e(T)-8 b(a)m(ylor)30
b(series.)241 3281 y(Capabilities)d(include)h(basic)i(op)s(erations)g
(\(addition,)f(subtraction,)h(m)m(ultiplication)241 3394
y(and)g(division\),)e(and)h(also)i(application)d(of)j(certain)f
(algebraic)g(and)g(transcenden)m(tal)241 3507 y(functions.)39
b(T)-8 b(o)31 b(a)g(certain)f(exten)m(t,)i(Lauren)m(t)e(and)g(Puiseux)f
(expansions)g(can)i(b)s(e)241 3620 y(p)s(erformed)e(as)h(w)m(ell.)40
b(In)30 b(man)m(y)g(cases,)i(separable)d(singularities)f(are)i
(detected)i(and)241 3733 y(factored)f(out.)241 3896 y
FJ(TAYLOR)p FQ(\(EXP:)p FD(exprn)p FQ([,V)-10 b(AR:)p
FD(kernel)p FQ(,)31 b(V)-10 b(AR)1755 3910 y FO(0)1795
3896 y FQ(:)p FD(exprn)p FQ(,ORDER:)p FD(inte)-5 b(ger)p
FQ(].)17 b(.)f(.)f(\):)p FD(exprn)241 4058 y FQ(where)30
b(EXP)g(is)f(the)i(expression)e(to)i(b)s(e)f(expanded.)40
b(It)30 b(can)h(b)s(e)f(an)m(y)g(REDUCE)241 4171 y(ob)5
b(ject,)31 b(ev)m(en)g(an)g(expression)e(con)m(taining)h(other)g(T)-8
b(a)m(ylor)31 b(k)m(ernels.)40 b(V)-10 b(AR)31 b(is)e(the)241
4284 y(k)m(ernel)h(with)f(resp)s(ect)h(to)h(whic)m(h)e(EXP)i(is)e(to)i
(b)s(e)f(expanded.)40 b(V)-10 b(AR)2582 4298 y FO(0)2652
4284 y FQ(denotes)30 b(the)241 4397 y(p)s(oin)m(t)f(ab)s(out)h(whic)m
(h)f(and)h(ORDER)g(the)h(order)f(up)f(to)i(whic)m(h)e(expansion)g(is)h
(to)h(tak)m(e)241 4510 y(place.)40 b(If)30 b(more)h(than)f(one)h(\(V)
-10 b(AR,)31 b(V)-10 b(AR0,)31 b(ORDER\))f(triple)f(is)h(sp)s
(eci\014ed)e FJ(TAYLOR)241 4623 y FQ(will)f(expand)j(its)g(\014rst)g
(argumen)m(t)g(indep)s(enden)m(tly)e(with)h(resp)s(ect)h(to)h(eac)m(h)h
(v)-5 b(ariable)241 4736 y(in)29 b(turn.)39 b(F)-8 b(or)32
b(example,)328 4959 y FH(taylor\(e^\(x^2+y^)o(2\))o(,x,)o(0,)o(2,y)o
(,0)o(,2\))o(;)1667 5187 y FQ(561)p eop
%%Page: 562 562
562 561 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(562)77 b FM(CHAPTER)30 b(82.)72 b(T)-8 b(A)g(YLOR:)31
b(MANIPULA)-8 b(TION)31 b(OF)f(T)-8 b(A)g(YLOR)30 b(SERIES)664
555 y FQ(will)e(calculate)j(the)f(T)-8 b(a)m(ylor)31
b(expansion)e(up)g(to)j(order)d FL(X)2641 522 y FO(2)2701
555 y FP(\003)21 b FL(Y)2840 522 y FO(2)2880 555 y FQ(.)40
b(Note)32 b(that)f(once)664 668 y(the)g(expansion)e(has)h(b)s(een)g
(done)g(it)g(is)f(not)i(p)s(ossible)d(to)j(calculate)g(higher)e
(orders.)664 781 y(Instead)h(of)h(a)g(k)m(ernel,)f(V)-10
b(AR)30 b(ma)m(y)h(also)g(b)s(e)e(a)i(list)e(of)i(k)m(ernels.)40
b(In)29 b(this)h(case)664 894 y(expansion)f(will)f(tak)m(e)k(place)e
(in)f(a)i(w)m(a)m(y)h(so)e(that)h(the)g FD(sum)37 b FQ(of)31
b(the)f(degrees)h(of)g(the)664 1007 y(k)m(ernels)f(do)s(es)g(not)h
(exceed)g(ORDER.)f(If)g(V)-10 b(AR)2300 1021 y FO(0)2370
1007 y FQ(ev)-5 b(aluates)31 b(to)g(the)g(sp)s(ecial)664
1120 y(iden)m(ti\014er)e FJ(INFINITY)f(TAYLOR)h FQ(tries)g(to)i(expand)
f(EXP)g(in)f(a)i(series)f(in)f(1/V)-10 b(AR.)664 1282
y(The)28 b(expansion)g(is)g(p)s(erformed)f(v)-5 b(ariable)28
b(p)s(er)f(v)-5 b(ariable,)28 b FD(i.e.)j FQ(in)c(the)i(example)g(ab)s
(o)m(v)m(e)664 1395 y(b)m(y)h(\014rst)g(expanding)f(exp\()p
FL(x)1641 1362 y FO(2)1701 1395 y FQ(+)20 b FL(y)1840
1362 y FO(2)1879 1395 y FQ(\))31 b(with)e(resp)s(ect)h(to)h
FL(x)f FQ(and)g(then)g(expanding)664 1508 y(ev)m(ery)h(co)s(e\016cien)m
(t)h(with)d(resp)s(ect)h(to)h FL(y)s FQ(.)664 1671 y(There)f(are)h(t)m
(w)m(o)h(extra)f(op)s(erators)f(to)h(compute)g(the)g(T)-8
b(a)m(ylor)30 b(expansions)f(of)664 1784 y(implicit)f(and)h(in)m(v)m
(erse)i(functions:)664 1947 y FJ(IMPLICIT)p 1054 1947
29 4 v 32 w(TAYLOR)p FQ(\(F:)p FD(exprn)p FQ(,V)-10 b(AR1,V)g(AR2:)p
FD(kernel)p FQ(,)664 2172 y(V)g(AR1)902 2186 y FO(0)942
2172 y FQ(,V)g(AR2)1205 2186 y FO(0)1246 2172 y FQ(:)p
FD(exprn)p FQ(,)31 b(ORDER:)p FD(inte)-5 b(ger)p FQ(\):)p
FD(exprn)664 2335 y FQ(tak)m(es)32 b(a)f(function)e(F)h(dep)s(ending)e
(on)j(t)m(w)m(o)g(v)-5 b(ariables)29 b(V)-10 b(AR1)31
b(and)f(V)-10 b(AR2)31 b(and)664 2448 y(computes)g(the)f(T)-8
b(a)m(ylor)31 b(series)f(of)g(the)h(implicit)c(function)i(V)-10
b(AR2\(V)g(AR1\))32 b(giv)m(en)f(b)m(y)664 2561 y(the)g(equation)f
(F\(V)-10 b(AR1,V)g(AR2\))33 b(=)d(0.)41 b(F)-8 b(or)31
b(example,)751 2790 y FH(implicit_taylor\(x)o(^2)37 b(+)43
b(y^2)g(-)g(1,x,y,0,1,5\);)664 3033 y FJ(INVERSE)p 1006
3033 V 33 w(TAYLOR)p FQ(\(F:)p FD(exprn)p FQ(,V)-10 b(AR1,V)g(AR2:)p
FD(kernel)p FQ(,)664 3258 y(V)g(AR1)902 3272 y FO(0)942
3258 y FQ(:)p FD(exprn)p FQ(,)32 b(ORDER:)p FD(inte)-5
b(ger)p FQ(\):)p FD(exprn)664 3421 y FQ(tak)m(es)32 b(a)f(function)e(F)
h(dep)s(ending)e(on)j(V)-10 b(AR1)31 b(and)e(computes)i(the)f(T)-8
b(a)m(ylor)31 b(series)f(of)664 3534 y(the)h(in)m(v)m(erse)f(of)h(F)f
(with)f(resp)s(ect)i(to)g(V)-10 b(AR2.)41 b(F)-8 b(or)31
b(example,)751 3763 y FH(inverse_taylor\(ex)o(p\()o(x\)-)o(1,)o(x,y)o
(,0)o(,8\))o(;)664 4006 y FQ(When)f(a)h(T)-8 b(a)m(ylor)31
b(k)m(ernel)f(is)f(prin)m(ted,)g(only)h(a)g(certain)h(n)m(um)m(b)s(er)e
(of)h(\(non-zero\))664 4119 y(co)s(e\016cien)m(ts)h(are)g(sho)m(wn.)40
b(If)30 b(there)h(are)f(more,)h(an)f(expression)g(of)g(the)h(form)664
4231 y FJ(\()p FL(n)47 b FJ(terms\))29 b FQ(is)g(prin)m(ted)g(to)i
(indicate)f(ho)m(w)g(man)m(y)h(non-zero)g(terms)f(ha)m(v)m(e)h(b)s(een)
664 4344 y(suppressed.)39 b(The)30 b(n)m(um)m(b)s(er)f(of)h(terms)h
(prin)m(ted)e(is)g(giv)m(en)h(b)m(y)h(the)f(v)-5 b(alue)30
b(of)h(the)664 4457 y(shared)f(algebraic)g(v)-5 b(ariable)29
b FJ(TAYLORPRINTTERMS)p FQ(.)d(Allo)m(w)m(ed)k(v)-5 b(alues)30
b(are)h(in)m(tegers)664 4570 y(and)f(the)g(sp)s(ecial)e(iden)m
(ti\014er)h FJ(ALL)p FQ(.)g(The)h(latter)g(setting)g(sp)s(eci\014es)f
(that)i(all)e(terms)h(are)664 4683 y(to)h(b)s(e)f(prin)m(ted.)39
b(The)30 b(default)g(setting)g(is)g(5.)664 4846 y(If)f(the)g(switc)m(h)
g FJ(TAYLORKEEPORIGINAL)24 b FQ(is)k(set)h(to)h FJ(ON)f
FQ(the)g(original)e(expression)h(EXP)664 4959 y(is)i(k)m(ept)h(for)f
(later)g(reference.)41 b(It)31 b(can)f(b)s(e)g(reco)m(v)m(ered)i(b)m(y)
e(means)h(of)f(the)h(op)s(erator)p eop
%%Page: 563 563
563 562 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(563)453 555 y FJ(TAYLORORIGINAL)p FQ(\(EXP:)p
FD(exprn)p FQ(\):)p FD(exprn)241 718 y FQ(An)30 b(error)g(is)f
(signalled)f(if)i(EXP)g(is)f(not)i(a)g(T)-8 b(a)m(ylor)30
b(k)m(ernel)g(or)h(if)e(the)i(original)241 831 y(expression)e(w)m(as)i
(not)f(k)m(ept,)i FD(i.e.)g FQ(if)d FJ(TAYLORKEEPORIGINAL)c
FQ(w)m(as)31 b FJ(OFF)e FQ(during)241 944 y(expansion.)39
b(The)30 b(template)h(of)g(a)f(T)-8 b(a)m(ylor)31 b(k)m(ernel,)f
FD(i.e.)72 b FQ(the)31 b(list)e(of)i(all)e(v)-5 b(ariables)241
1057 y(with)29 b(resp)s(ect)h(to)h(whic)m(h)e(expansion)h(to)s(ok)h
(place)f(together)i(with)d(expansion)g(p)s(oin)m(t)241
1170 y(and)h(order)f(can)i(b)s(e)f(extracted)i(using)453
1332 y FJ(TAYLORTEMPLATE)p FQ(\(EXP:)p FD(exprn)p FQ(\):)p
FD(list)241 1495 y FQ(This)c(returns)h(a)i(list)e(of)i(lists)e(with)g
(the)h(three)h(elemen)m(ts)g(\(V)-10 b(AR,V)g(AR0,ORDER\).)241
1608 y(As)30 b(with)f FJ(TAYLORORIGINAL)p FQ(,)e(an)j(error)g(is)g
(signalled)e(if)h(EXP)h(is)g(not)g(a)h(T)-8 b(a)m(ylor)241
1721 y(k)m(ernel.)453 1884 y FJ(TAYLORTOSTANDARD)p FQ(\(EXP:)p
FD(exprn)p FQ(\):)p FD(exprn)241 2046 y FQ(con)m(v)m(erts)32
b(all)d(T)-8 b(a)m(ylor)30 b(k)m(ernels)g(in)f(EXP)i(in)m(to)f
(standard)f(form)h(and)60 b(resimpli\014es)27 b(the)241
2159 y(result.)453 2322 y FJ(TAYLORSERIESP)p FQ(\(EXP:)p
FD(exprn)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)241 2485 y
FQ(ma)m(y)31 b(b)s(e)e(used)h(to)h(determine)f(if)f(EXP)h(is)g(a)g(T)-8
b(a)m(ylor)31 b(k)m(ernel.)81 b(Note)31 b(that)g(this)241
2598 y(op)s(erator)f(is)g(sub)5 b(ject)30 b(to)h(the)g(same)f
(restrictions)g(as,)h FD(e.g.)p FQ(,)e(ORDP)i(or)f(NUMBERP)-8
b(,)241 2710 y FD(i.e.)32 b FQ(it)e(ma)m(y)h(only)e(b)s(e)h(used)f(in)g
(b)s(o)s(olean)h(expressions)f(in)g FJ(IF)h FQ(or)g FJ(LET)g
FQ(statemen)m(ts.)241 2823 y(Finally)e(there)j(is)453
2986 y FJ(TAYLORCOMBINE)p FQ(\(EXP:)p FD(exprn)p FQ(\):)p
FD(exprn)241 3149 y FQ(whic)m(h)e(tries)h(to)h(com)m(bine)f(all)f(T)-8
b(a)m(ylor)31 b(k)m(ernels)e(found)h(in)f(EXP)h(in)m(to)g(one.)241
3262 y(Op)s(erations)f(curren)m(tly)g(p)s(ossible)f(are:)377
3499 y FP(\017)46 b FQ(Addition,)29 b(subtraction,)g(m)m
(ultiplication,)f(and)i(division.)377 3687 y FP(\017)46
b FQ(Ro)s(ots,)31 b(exp)s(onen)m(tials,)f(and)f(logarithms.)377
3874 y FP(\017)46 b FQ(T)-8 b(rigonometric)30 b(and)g(h)m(yp)s(erb)s
(olic)d(functions)i(and)h(their)g(in)m(v)m(erses.)241
4112 y(Application)e(of)j(unary)e(op)s(erators)i(lik)m(e)e
FJ(LOG)h FQ(and)g FJ(ATAN)f FQ(will)e(nearly)j(alw)m(a)m(ys)241
4225 y(succeed.)41 b(F)-8 b(or)31 b(binary)e(op)s(erations)g(their)h
(argumen)m(ts)g(ha)m(v)m(e)i(to)f(b)s(e)f(T)-8 b(a)m(ylor)30
b(k)m(ernels)241 4338 y(with)f(the)h(same)h(template.)41
b(This)29 b(means)h(that)h(the)g(expansion)e(v)-5 b(ariable)29
b(and)h(the)241 4451 y(expansion)f(p)s(oin)m(t)g(m)m(ust)i(matc)m(h.)41
b(Expansion)29 b(order)h(is)f(not)i(so)f(imp)s(ortan)m(t,)241
4564 y(di\013eren)m(t)g(order)f(usually)g(means)h(that)h(one)g(of)f
(them)g(is)g(truncated)g(b)s(efore)g(doing)241 4676 y(the)g(op)s
(eration.)241 4839 y(If)g FJ(TAYLORKEEPORIGINAL)25 b
FQ(is)k(set)i(to)h FJ(ON)d FQ(and)h(if)f(all)h(T)-8 b(a)m(ylor)30
b(k)m(ernels)g(in)f FJ(exp)h FQ(ha)m(v)m(e)241 4952 y(their)f(original)
g(expressions)g(k)m(ept)i FJ(TAYLORCOMBINE)26 b FQ(will)i(also)j(com)m
(bine)f(these)g(and)p eop
%%Page: 564 564
564 563 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(564)77 b FM(CHAPTER)30 b(82.)72 b(T)-8 b(A)g(YLOR:)31
b(MANIPULA)-8 b(TION)31 b(OF)f(T)-8 b(A)g(YLOR)30 b(SERIES)664
555 y FQ(store)h(the)g(result)e(as)i(the)f(original)f(expression)g(of)h
(the)h(resulting)d(T)-8 b(a)m(ylor)31 b(k)m(ernel.)664
668 y(There)f(is)f(also)i(the)f(switc)m(h)g FJ(TAYLORAUTOEXPAND)c
FQ(\(see)31 b(b)s(elo)m(w\).)664 831 y(There)d(are)h(a)h(few)e
(restrictions)g(to)h(a)m(v)m(oid)g(mathematically)g(unde\014ned)d
(expressions:)664 944 y(it)k(is)f(not)i(p)s(ossible)d(to)j(tak)m(e)h
(the)f(logarithm)e(of)i(a)f(T)-8 b(a)m(ylor)31 b(k)m(ernel)f(whic)m(h)f
(has)h(no)664 1057 y(terms)f(\()p FD(i.e.)j FQ(is)c(zero\),)j(or)e(to)h
(divide)d(b)m(y)i(suc)m(h)g(a)g(b)s(east.)41 b(There)29
b(are)g(some)h(pro)m(visions)664 1170 y(made)h(to)g(detect)g
(singularities)d(during)g(expansion:)39 b(p)s(oles)30
b(that)h(arise)f(b)s(ecause)g(the)664 1282 y(denominator)g(has)g(zeros)
h(at)g(the)g(expansion)e(p)s(oin)m(t)g(are)i(detected)h(and)d(prop)s
(erly)664 1395 y(treated,)j FD(i.e.)g FQ(the)e(T)-8 b(a)m(ylor)31
b(k)m(ernel)f(will)e(start)j(with)e(a)h(negativ)m(e)i(p)s(o)m(w)m(er.)
41 b(\(This)29 b(is)664 1508 y(accomplished)g(b)m(y)h(expanding)f(n)m
(umerator)i(and)f(denominator)f(separately)i(and)664
1621 y(com)m(bining)e(the)i(results.\))39 b(Essen)m(tial)30
b(singularities)d(of)k(the)f(kno)m(wn)g(functions)f(\(see)664
1734 y(ab)s(o)m(v)m(e\))j(are)f(handled)d(correctly)-8
b(.)664 1897 y(Di\013eren)m(tiation)30 b(of)h(a)g(T)-8
b(a)m(ylor)30 b(expression)f(is)h(p)s(ossible.)38 b(Di\013eren)m
(tiating)30 b(with)664 2010 y(resp)s(ect)h(to)g(one)f(of)h(the)f(T)-8
b(a)m(ylor)31 b(v)-5 b(ariables)29 b(will)f(decrease)j(the)g(order)f(b)
m(y)g(one.)664 2172 y(Substitution)e(is)h(a)i(bit)e(restricted:)41
b(T)-8 b(a)m(ylor)30 b(v)-5 b(ariables)30 b(can)g(only)g(b)s(e)f
(replaced)h(b)m(y)664 2285 y(other)h(k)m(ernels.)40 b(There)30
b(is)f(one)i(exception)f(to)i(this)d(rule:)39 b(one)31
b(can)g(alw)m(a)m(ys)664 2398 y(substitute)e(a)i(T)-8
b(a)m(ylor)31 b(v)-5 b(ariable)29 b(b)m(y)h(an)g(expression)g(that)h
(ev)-5 b(aluates)31 b(to)g(a)f(constan)m(t.)664 2511
y(Note)i(that)f(REDUCE)f(will)e(not)i(alw)m(a)m(ys)h(b)s(e)f(able)g(to)
h(determine)f(that)h(an)664 2624 y(expression)e(is)h(constan)m(t.)664
2787 y(Only)f(simple)f(T)-8 b(a)m(ylor)31 b(k)m(ernels)f(can)g(b)s(e)g
(in)m(tegrated.)41 b(More)32 b(complicated)664 2900 y(expressions)d
(that)i(con)m(tain)g(T)-8 b(a)m(ylor)30 b(k)m(ernels)g(as)h(parts)f(of)
g(themselv)m(es)h(are)664 3013 y(automatically)f(con)m(v)m(erted)i(in)m
(to)f(a)f(standard)g(represen)m(tation)g(b)m(y)h(means)f(of)g(the)664
3126 y(T)-8 b(A)g(YLOR)g(TOST)g(AND)m(ARD)32 b(op)s(erator.)41
b(In)30 b(this)f(case)i(a)g(suitable)e(w)m(arning)g(is)664
3238 y(prin)m(ted.)664 3401 y(It)i(is)e(p)s(ossible)f(to)j(rev)m(ert)g
(a)g(T)-8 b(a)m(ylor)31 b(series)e(of)i(a)g(function)e
FL(f)10 b FQ(,)29 b FD(i.e.)p FQ(,)h(to)i(compute)e(the)664
3514 y(\014rst)g(terms)g(of)h(the)f(expansion)f(of)i(the)g(in)m(v)m
(erse)f(of)g FL(f)40 b FQ(from)30 b(the)g(expansion)g(of)g
FL(f)10 b FQ(.)664 3627 y(This)29 b(is)g(done)h(b)m(y)h(the)f(op)s
(erator)876 3790 y FJ(TAYLORREVERT)p FQ(\(EXP:)p FD(exprn)p
FQ(,OLD)m(V)-10 b(AR:)p FD(kernel)p FQ(,)30 b(NEWV)-10
b(AR:)p FD(kernel)p FQ(\):)p FD(exprn)664 3952 y FQ(EXP)30
b(m)m(ust)h(ev)-5 b(aluate)31 b(to)g(a)g(T)-8 b(a)m(ylor)30
b(k)m(ernel)g(with)f(OLD)m(V)-10 b(AR)31 b(b)s(eing)e(one)i(of)f(its)
664 4065 y(expansion)f(v)-5 b(ariables.)40 b(Example:)751
4292 y FH(taylor)h(\(u)i(-)g(u**2,)f(u,)h(0,)f(5\);)751
4391 y(taylorrevert)d(\(ws,)j(u,)h(x\);)664 4631 y FQ(This)29
b(pac)m(k)-5 b(age)32 b(in)m(tro)s(duces)d(a)i(n)m(um)m(b)s(er)e(of)i
(new)f(switc)m(hes:)801 4846 y FP(\017)45 b FQ(If)30
b FJ(TAYLORAUTOCOMBINE)c FQ(is)j(set)i(to)g FJ(ON)f FQ(REDUCE)g
(automatically)g(com)m(bines)891 4959 y(T)-8 b(a)m(ylor)31
b(expressions)e(during)f(the)j(simpli\014cation)c(pro)s(cess.)40
b(This)29 b(is)p eop
%%Page: 565 565
565 564 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(565)468 555 y(equiv)-5 b(alen)m(t)30 b(to)h(applying)d
FJ(TAYLORCOMBINE)f FQ(to)k(ev)m(ery)g(expression)e(that)468
668 y(con)m(tains)i(T)-8 b(a)m(ylor)30 b(k)m(ernels.)40
b(Default)31 b(is)e FJ(ON)p FQ(.)377 856 y FP(\017)46
b FJ(TAYLORAUTOEXPAND)26 b FQ(mak)m(es)31 b(T)-8 b(a)m(ylor)31
b(expressions)e(\\con)m(tagious")j(in)d(the)468 969 y(sense)h(that)h
FJ(TAYLORCOMBINE)c FQ(tries)j(to)h(T)-8 b(a)m(ylor)31
b(expand)e(all)h(non-T)-8 b(a)m(ylor)468 1082 y(sub)s(expressions)27
b(and)j(to)h(com)m(bine)f(the)h(result)e(with)g(the)i(rest.)41
b(Default)30 b(is)468 1194 y FJ(OFF)p FQ(.)377 1382 y
FP(\017)46 b FJ(TAYLORKEEPORIGINAL)p FQ(,)26 b(if)j(set)i(to)g
FJ(ON)p FQ(,)f(forces)h(the)f(pac)m(k)-5 b(age)33 b(to)e(k)m(eep)g(the)
468 1495 y(original)d(expression,)i FD(i.e.)i FQ(the)e(expression)f
(that)i(w)m(as)g(T)-8 b(a)m(ylor)30 b(expanded.)40 b(All)468
1608 y(op)s(erations)30 b(p)s(erformed)f(on)h(the)g(T)-8
b(a)m(ylor)31 b(k)m(ernels)f(are)h(also)f(applied)e(to)j(this)468
1721 y(expression)e(whic)m(h)g(can)i(b)s(e)f(reco)m(v)m(ered)i(using)d
(the)h(op)s(erator)468 1834 y FJ(TAYLORORIGINAL)p FQ(.)d(Default)j(is)g
FJ(OFF)p FQ(.)377 2021 y FP(\017)46 b FJ(TAYLORPRINTORDER)p
FQ(,)26 b(if)k(set)g(to)i FJ(ON)p FQ(,)e(causes)g(the)h(remainder)e(to)
i(b)s(e)f(prin)m(ted)468 2134 y(in)f(big-)p FL(O)k FQ(notation.)41
b(Otherwise,)29 b(three)i(dots)f(are)h(prin)m(ted.)39
b(Default)31 b(is)e FJ(ON)p FQ(.)p eop
%%Page: 566 566
566 565 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(566)77 b FM(CHAPTER)30 b(82.)72 b(T)-8 b(A)g(YLOR:)31
b(MANIPULA)-8 b(TION)31 b(OF)f(T)-8 b(A)g(YLOR)30 b(SERIES)p
eop
%%Page: 567 567
567 566 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(83)241 1693 y FT(TPS:)76 b(A)h(truncated)i(p)6 b(o)-6
b(w)g(er)241 1942 y(series)76 b(pac)-6 b(k)-13 b(age)1527
2424 y Fx(Alan)26 b(Barnes)830 2515 y(Dept.)34 b(of)26
b(Computer)f(Science)h(and)f(Applied)g(Mathematics)1170
2607 y(Aston)h(Univ)n(ersit)n(y)-6 b(,)24 b(Aston)h(T)-6
b(riangle,)1219 2698 y(Birmingham)25 b(B4)h(7ET,)h(England)1251
2819 y(e{mail:)36 b(barnesa@aston.ac.uk)1673 2971 y(and)1503
3122 y(Julian)26 b(P)n(adget)1018 3213 y(Sc)n(ho)r(ol)h(of)f
(Mathematics,)g(Univ)n(ersit)n(y)f(of)i(Bath)1305 3305
y(Bath,)f(BA2)g(7A)-6 b(Y,)25 b(England)1227 3426 y(e{mail:)35
b(jap@maths.bath.ac.uk)241 3670 y FQ(This)28 b(pac)m(k)-5
b(age)33 b(implemen)m(ts)c(formal)g(Lauren)m(t)i(series)e(expansions)g
(in)g(one)i(v)-5 b(ariable)241 3783 y(using)29 b(the)h(domain)f(mec)m
(hanism)h(of)h(REDUCE.)f(This)f(means)h(that)h(p)s(o)m(w)m(er)f(series)
241 3896 y(ob)5 b(jects)31 b(can)g(b)s(e)e(added,)h(m)m(ultiplied,)d
(di\013eren)m(tiated)j FD(etc)p FQ(.)41 b(lik)m(e)29
b(other)i(\014rst)f(class)241 4009 y(ob)5 b(jects)31
b(in)d(the)i(system.)41 b(A)30 b(lazy)g(ev)-5 b(aluation)30
b(sc)m(heme)h(is)e(used)g(in)g(the)h(pac)m(k)-5 b(age)32
b(and)241 4122 y(th)m(us)e(terms)g(of)h(the)f(series)g(are)h(not)f(ev)
-5 b(aluated)31 b(un)m(til)d(they)j(are)g(required)d(for)241
4234 y(prin)m(ting)g(or)i(for)g(use)h(in)e(calculating)g(terms)h(in)g
(other)g(p)s(o)m(w)m(er)h(series.)40 b(The)29 b(series)241
4347 y(are)i(extendible)d(giving)i(the)g(user)g(the)g(impression)e
(that)j(the)g(full)d(in\014nite)g(series)i(is)241 4460
y(b)s(eing)f(manipulated.)38 b(The)30 b(errors)g(that)h(can)g
(sometimes)f(o)s(ccur)g(using)f(series)h(that)241 4573
y(are)h(truncated)f(at)h(some)g(\014xed)f(depth)f(\(for)i(example)f
(when)f(a)i(term)f(in)f(the)241 4686 y(required)f(series)i(dep)s(ends)f
(on)h(terms)g(of)h(an)f(in)m(termediate)g(series)g(b)s(ey)m(ond)f(the)
241 4799 y(truncation)g(depth\))h(are)h(th)m(us)f(a)m(v)m(oided.)1667
5187 y(567)p eop
%%Page: 568 568
568 567 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(568)34 b FM(CHAPTER)c(83.)71 b(TPS:)30 b(A)g(TR)m(UNCA)-8
b(TED)31 b(PO)m(WER)g(SERIES)e(P)-8 b(A)m(CKA)m(GE)664
464 y @beginspecial @setspecial @endspecial 91 x FE(83.1)136
b(Basic)45 b(T)-11 b(runcated)44 b(P)l(o)l(w)l(er)i(Series)664
645 y @beginspecial @setspecial @endspecial 166 x FR(83.1.1)113
b(PS)37 b(Op)s(erator)664 1033 y FQ(Syn)m(tax:)664 1195
y FJ(PS)p FQ(\(EXPRN:)p FD(algebr)-5 b(aic)p FQ(,DEPV)-10
b(AR:)p FD(kernel)p FQ(,ABOUT:)p FD(algebr)-5 b(aic)p
FQ(\):)p FD(ps)38 b(obje)-5 b(ct)664 1358 y FQ(The)30
b FJ(PS)g FQ(op)s(erator)g(returns)g(a)g(p)s(o)m(w)m(er)h(series)e(ob)5
b(ject)32 b(represen)m(ting)d(the)i(univ)-5 b(ariate)664
1471 y(formal)30 b(p)s(o)m(w)m(er)g(series)g(expansion)f(of)i(EXPRN)f
(with)f(resp)s(ect)h(to)i(the)e(dep)s(enden)m(t)664 1584
y(v)-5 b(ariable)29 b(DEPV)-10 b(AR)31 b(ab)s(out)f(the)h(expansion)e
(p)s(oin)m(t)g(ABOUT.)i(EXPRN)f(ma)m(y)h(itself)664 1697
y(con)m(tain)g(p)s(o)m(w)m(er)f(series)g(ob)5 b(jects.)664
1860 y(The)28 b(algebraic)h(expression)e(ABOUT)i(should)e(simplify)e
(to)k(an)g(expression)e(whic)m(h)h(is)664 1973 y(indep)s(enden)m(t)g
(of)j(the)f(dep)s(enden)m(t)g(v)-5 b(ariable)29 b(DEPV)-10
b(AR,)31 b(otherwise)f(an)g(error)g(will)664 2085 y(result.)40
b(If)30 b(ABOUT)g(is)g(the)g(iden)m(ti\014er)f FJ(INFINITY)f
FQ(then)i(the)g(p)s(o)m(w)m(er)h(series)664 2198 y(expansion)e(ab)s
(out)i(DEPV)-10 b(AR)30 b(=)g FP(1)g FQ(is)g(obtained)g(in)f(ascending)
g(p)s(o)m(w)m(ers)i(of)664 2311 y(1/DEPV)-10 b(AR.)664
2474 y(The)30 b(p)s(o)m(w)m(er)g(series)g(ob)5 b(ject)31
b(represen)m(ting)f(EXPRN)g(is)g(compiled)f(and)g(then)h(a)664
2587 y(n)m(um)m(b)s(er)f(of)i(terms)f(of)h(the)f(p)s(o)m(w)m(er)h
(series)e(expansion)g(are)i(ev)-5 b(aluated.)41 b(The)664
2700 y(expansion)29 b(is)h(carried)f(out)i(as)g(far)f(as)g(the)h(v)-5
b(alue)30 b(sp)s(eci\014ed)e(b)m(y)j FJ(PSEXPLIM)p FQ(.)d(If,)664
2813 y(subsequen)m(tly)-8 b(,)30 b(the)g(v)-5 b(alue)30
b(of)h FJ(PSEXPLIM)d FQ(is)h(increased,)h(su\016cien)m(t)g(information)
f(is)664 2926 y(stored)i(in)e(the)h(p)s(o)m(w)m(er)h(series)e(ob)5
b(ject)32 b(to)f(enable)f(the)g(additional)e(terms)j(to)g(b)s(e)664
3039 y(calculated)f(without)g(recalculating)f(the)i(terms)f(already)g
(obtained.)664 3201 y(If)g(the)h(function)e(has)h(a)h(p)s(ole)e(at)i
(the)g(expansion)e(p)s(oin)m(t)g(then)h(the)h(correct)g(Lauren)m(t)664
3314 y(series)f(expansion)f(will)f(b)s(e)i(pro)s(duced.)664
3464 y(The)g(follo)m(wing)f(examples)h(are)h(v)-5 b(alid)28
b(uses)i(of)h FJ(PS)p FQ(:)839 3669 y FH(psexplim)40
b(6;)839 3769 y(ps\(log)h(x,x,1\);)839 3869 y(ps\(e**\(sin)e
(x\),x,0\);)839 3968 y(ps\(x/\(1+x\),x,in)o(fi)o(nit)o(y\))o(;)839
4068 y(ps\(sin)i(x/\(1-cos)f(x\),x,0\);)664 4287 y FQ(New)31
b(user-de\014ned)e(functions)f(ma)m(y)j(b)s(e)f(expanded)g(pro)m(vided)
f(the)h(user)g(pro)m(vides)664 4400 y(LET)g(rules)f(giving)664
4530 y @beginspecial @setspecial @endspecial 775 4662
a(1.)46 b(the)31 b(v)-5 b(alue)30 b(of)g(the)h(function)e(at)i(the)g
(expansion)e(p)s(oin)m(t)664 4717 y @beginspecial @setspecial
@endspecial 775 4850 a(2.)46 b(a)31 b(di\013eren)m(tiation)e(rule)g
(for)i(the)f(new)g(function.)p eop
%%Page: 569 569
569 568 bop 241 299 a @beginspecial @setspecial @endspecial
FM(83.1.)72 b(BASIC)30 b(TR)m(UNCA)-8 b(TED)31 b(PO)m(WER)g(SERIES)954
b FQ(569)241 555 y(F)-8 b(or)31 b(example)415 761 y FH(operator)40
b(sech;)415 861 y(forall)h(x)i(let)g(df\(sech)d(x,x\)=)i(-)h(sech)f(x)h
(*)g(tanh)f(x;)415 960 y(let)g(sech)g(0)i(=)f(1;)415
1060 y(ps\(sech\(x**2\),x,)o(0\);)241 1279 y FQ(The)30
b(p)s(o)m(w)m(er)g(series)g(expansion)f(of)h(an)h(in)m(tegral)f(ma)m(y)
h(also)f(b)s(e)g(obtained)g(\(ev)m(en)h(if)241 1392 y(REDUCE)f(cannot)h
(ev)-5 b(aluate)31 b(the)g(in)m(tegral)f(in)f(closed)h(form\).)41
b(An)30 b(example)g(of)g(this)241 1505 y(is)415 1736
y FH(ps\(int\(e**x/x,x\))o(,x,)o(1\))o(;)241 1980 y FQ(Note)h(that)g
(if)f(the)g(in)m(tegration)h(v)-5 b(ariable)29 b(is)g(the)i(same)g(as)f
(the)h(expansion)e(v)-5 b(ariable)241 2093 y(then)30
b(REDUCE's)g(in)m(tegration)h(pac)m(k)-5 b(age)32 b(is)d(not)i(called;)
f(if)f(on)h(the)h(other)g(hand)e(the)241 2206 y(t)m(w)m(o)i(v)-5
b(ariables)30 b(are)g(di\013eren)m(t)g(then)g(the)h(in)m(tegrator)g(is)
e(called)h(to)h(in)m(tegrate)h(eac)m(h)f(of)241 2319
y(the)f(co)s(e\016cien)m(ts)h(in)e(the)i(p)s(o)m(w)m(er)f(series)g
(expansion)f(of)i(the)f(in)m(tegrand.)41 b(The)241 2431
y(constan)m(t)31 b(of)g(in)m(tegration)f(is)g(zero)h(b)m(y)f(default.)
40 b(If)30 b(another)h(v)-5 b(alue)29 b(is)h(desired,)f(then)241
2544 y(the)h(shared)g(v)-5 b(ariable)29 b FJ(PSINTCONST)f
FQ(should)g(b)s(e)i(set)h(to)g(required)d(v)-5 b(alue.)241
2689 y @beginspecial @setspecial @endspecial 149 x FR(83.1.2)112
b(PSORDLIM)38 b(Op)s(erator)241 3059 y FQ(Syn)m(tax:)453
3222 y FJ(PSORDLIM)p FQ(\(UPTO:)p FD(inte)-5 b(ger)p
FQ(\):)p FD(inte)g(ger)635 3385 y FQ(or)453 3547 y FJ(PSORDLIM)p
FQ(\(\):)p FD(inte)g(ger)241 3710 y FQ(An)30 b(in)m(ternal)f(v)-5
b(ariable)29 b(is)g(set)i(to)g(the)g(v)-5 b(alue)30 b(of)g
FJ(UPTO)g FQ(\(whic)m(h)f(should)f(ev)-5 b(aluate)32
b(to)241 3823 y(an)e(in)m(teger\).)41 b(The)30 b(v)-5
b(alue)30 b(returned)f(is)h(the)g(previous)f(v)-5 b(alue)30
b(of)h(the)f(v)-5 b(ariable.)40 b(The)241 3936 y(default)29
b(v)-5 b(alue)30 b(is)g(15.)241 4099 y(If)g FJ(PSORDLIM)e
FQ(is)h(called)h(with)f(no)h(argumen)m(t,)h(the)g(curren)m(t)f(v)-5
b(alue)30 b(is)f(returned.)241 4261 y(The)h(signi\014cance)f(of)h(this)
g(con)m(trol)h(is)e(that)i(the)g(system)f(attempts)h(to)g(\014nd)e(the)
241 4374 y(order)h(of)g(the)h(p)s(o)m(w)m(er)f(series)g(required,)f
(that)i(is)e(the)i(order)e(is)h(the)g(degree)i(of)e(the)241
4487 y(\014rst)f(non-zero)i(term)g(in)e(the)h(p)s(o)m(w)m(er)h(series.)
40 b(If)30 b(the)g(order)g(is)g(greater)h(than)f(the)241
4600 y(v)-5 b(alue)30 b(of)g(this)f(v)-5 b(ariable)30
b(an)g(error)g(message)h(is)f(giv)m(en)g(and)g(the)g(computation)241
4713 y(ab)s(orts.)40 b(This)29 b(prev)m(en)m(ts)i(in\014nite)d(lo)s
(ops)h(in)g(examples)h(suc)m(h)g(as)589 4944 y FH(ps\(1)42
b(-)i(\(sin)d(x\)**2)h(-)h(\(cos)f(x\)**2,x,0\);)p eop
%%Page: 570 570
570 569 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(570)34 b FM(CHAPTER)c(83.)71 b(TPS:)30 b(A)g(TR)m(UNCA)-8
b(TED)31 b(PO)m(WER)g(SERIES)e(P)-8 b(A)m(CKA)m(GE)664
555 y FQ(where)30 b(the)h(expression)e(b)s(eing)g(expanded)g(is)h(iden)
m(tically)e(zero,)k(but)d(is)h(not)664 668 y(recognised)g(as)h(suc)m(h)
f(b)m(y)g(REDUCE.)664 823 y @beginspecial @setspecial
@endspecial 181 x FE(83.2)136 b(Con)l(trolling)47 b(P)l(o)l(w)l(er)f
(Series)664 1118 y @beginspecial @setspecial @endspecial
142 x FR(83.2.1)113 b(PSTERM)36 b(Op)s(erator)664 1482
y FQ(Syn)m(tax:)876 1645 y FJ(PSTERM)p FQ(\(TPS:)p FD(p)-5
b(ower)33 b(series)f(obje)-5 b(ct)p FQ(,NTH:)p FD(inte)g(ger)p
FQ(\):)p FD(algebr)g(aic)664 1807 y FQ(The)30 b(op)s(erator)h
FJ(PSTERM)d FQ(returns)i(the)g(NTH)g(term)h(of)f(the)h(existing)e(p)s
(o)m(w)m(er)i(series)664 1920 y(ob)5 b(ject)31 b(TPS.)f(If)g(NTH)g(do)s
(es)g(not)h(ev)-5 b(aluate)31 b(to)g(an)f(in)m(teger)h(or)f(TPS)g(to)h
(a)g(p)s(o)m(w)m(er)664 2033 y(series)f(ob)5 b(ject)31
b(an)f(error)g(results.)40 b(It)30 b(should)f(b)s(e)g(noted)i(that)g
(an)f(in)m(teger)h(is)e(treated)664 2146 y(as)i(a)g(p)s(o)m(w)m(er)f
(series.)664 2291 y @beginspecial @setspecial @endspecial
148 x FR(83.2.2)113 b(PSORDER)36 b(Op)s(erator)664 2661
y FQ(Syn)m(tax:)876 2823 y FJ(PSORDER)p FQ(\(TPS:)p FD(p)-5
b(ower)32 b(series)h(obje)-5 b(ct)p FQ(\):)p FD(inte)g(ger)664
2986 y FQ(The)30 b(op)s(erator)h FJ(PSORDER)d FQ(returns)h(the)i
(order,)f(that)h(is)e(the)i(degree)g(of)g(the)f(\014rst)664
3099 y(non-zero)h(term,)g(of)f(the)h(p)s(o)m(w)m(er)f(series)g(ob)5
b(ject)31 b(TPS.)f(TPS)f(should)g(ev)-5 b(aluate)31 b(to)g(a)664
3212 y(p)s(o)m(w)m(er)g(series)e(ob)5 b(ject)32 b(or)e(an)g(error)g
(results.)40 b(If)30 b(TPS)f(is)g(zero,)j(the)e(iden)m(ti\014er)664
3325 y FJ(UNDEFINED)e FQ(is)h(returned.)664 3452 y @beginspecial
@setspecial @endspecial 166 x FR(83.2.3)113 b(PSSETORDER)35
b(Op)s(erator)664 3840 y FQ(Syn)m(tax:)876 4002 y FJ(PSSETORDER)p
FQ(\(TPS:)p FD(p)-5 b(ower)32 b(series)g(obje)-5 b(ct)p
FQ(,)31 b(ORD:)p FD(inte)-5 b(ger)p FQ(\):)p FD(inte)g(ger)664
4165 y FQ(The)30 b(op)s(erator)h FJ(PSSETORDER)c FQ(sets)k(the)g(order)
f(of)g(the)h(p)s(o)m(w)m(er)f(series)g(TPS)f(to)i(the)664
4278 y(v)-5 b(alue)30 b(ORD,)h(whic)m(h)e(should)f(ev)-5
b(aluate)31 b(to)g(an)g(in)m(teger.)41 b(If)30 b(TPS)f(do)s(es)h(not)h
(ev)-5 b(aluate)664 4391 y(to)31 b(a)g(p)s(o)m(w)m(er)f(series)g(ob)5
b(ject,)32 b(then)e(an)g(error)g(o)s(ccurs.)40 b(The)30
b(v)-5 b(alue)30 b(returned)f(b)m(y)i(this)664 4504 y(op)s(erator)g(is)
e(the)i(previous)e(order)h(of)g(TPS,)g(or)g(0)h(if)e(the)i(order)f(of)g
(TPS)f(w)m(as)664 4617 y(unde\014ned.)39 b(This)28 b(op)s(erator)j(is)e
(useful)g(for)h(setting)h(the)f(order)g(of)h(the)f(p)s(o)m(w)m(er)h
(series)664 4730 y(of)g(a)f(function)g(de\014ned)f(b)m(y)h(a)h
(di\013eren)m(tial)d(equation)j(in)e(cases)i(where)f(the)g(p)s(o)m(w)m
(er)664 4842 y(series)g(pac)m(k)-5 b(age)32 b(is)e(inadequate)g(to)h
(determine)e(the)i(order)f(automatically)-8 b(.)p eop
%%Page: 571 571
571 570 bop 241 299 a @beginspecial @setspecial @endspecial
FM(83.2.)72 b(CONTR)m(OLLING)30 b(PO)m(WER)h(SERIES)1164
b FQ(571)241 464 y @beginspecial @setspecial @endspecial
91 x FR(83.2.4)112 b(PSDEPV)-12 b(AR)35 b(Op)s(erator)241
777 y FQ(Syn)m(tax:)453 939 y FJ(PSDEPVAR)p FQ(\(TPS:)p
FD(p)-5 b(ower)32 b(series)g(obje)-5 b(ct)p FQ(\):)p
FD(identi\014er)241 1102 y FQ(The)30 b(op)s(erator)g
FJ(PSDEPVAR)e FQ(returns)i(the)g(expansion)f(v)-5 b(ariable)30
b(of)g(the)h(p)s(o)m(w)m(er)f(series)241 1215 y(ob)5
b(ject)31 b(TPS.)f(TPS)f(should)f(ev)-5 b(aluate)31 b(to)g(a)g(p)s(o)m
(w)m(er)g(series)e(ob)5 b(ject)32 b(or)e(an)g(in)m(teger,)241
1328 y(otherwise)g(an)g(error)g(results.)39 b(If)30 b(TPS)g(is)f(an)h
(in)m(teger,)h(the)g(iden)m(ti\014er)d FJ(UNDEFINED)g
FQ(is)241 1441 y(returned.)241 1568 y @beginspecial @setspecial
@endspecial 166 x FR(83.2.5)112 b(PSEXP)-9 b(ANSIONPT)34
b(op)s(erator)241 1955 y FQ(Syn)m(tax:)453 2118 y FJ(PSEXPANSIONPT)p
FQ(\(TPS:)p FD(p)-5 b(ower)30 b(series)j(obje)-5 b(ct)p
FQ(\):)p FD(algebr)g(aic)241 2281 y FQ(The)30 b(op)s(erator)g
FJ(PSEXPANSIONPT)d FQ(returns)i(the)i(expansion)e(p)s(oin)m(t)g(of)i
(the)f(p)s(o)m(w)m(er)241 2394 y(series)f(ob)5 b(ject)32
b(TPS.)d(TPS)h(should)e(ev)-5 b(aluate)31 b(to)g(a)g(p)s(o)m(w)m(er)f
(series)g(ob)5 b(ject)31 b(or)g(an)241 2507 y(in)m(teger,)g(otherwise)f
(an)g(error)g(results.)39 b(If)30 b(TPS)g(is)f(in)m(teger,)i(the)g
(iden)m(ti\014er)241 2620 y FJ(UNDEFINED)d FQ(is)h(returned.)40
b(If)29 b(the)i(expansion)e(is)h(ab)s(out)g(in\014nit)m(y)-8
b(,)29 b(the)h(iden)m(ti\014er)241 2733 y FJ(INFINITY)e
FQ(is)h(returned.)241 2860 y @beginspecial @setspecial
@endspecial 166 x FR(83.2.6)112 b(PSFUNCTION)37 b(Op)s(erator)241
3247 y FQ(Syn)m(tax:)453 3410 y FJ(PSFUNCTION)p FQ(\(TPS:)p
FD(p)-5 b(ower)31 b(series)i(obje)-5 b(ct)p FQ(\):)p
FD(algebr)g(aic)241 3573 y FQ(The)30 b(op)s(erator)g
FJ(PSFUNCTION)e FQ(returns)h(the)i(function)e(whose)h(expansion)f(ga)m
(v)m(e)k(rise)241 3686 y(to)e(the)f(p)s(o)m(w)m(er)h(series)f(ob)5
b(ject)31 b(TPS.)e(TPS)h(should)e(ev)-5 b(aluate)31 b(to)g(a)g(p)s(o)m
(w)m(er)f(series)241 3799 y(ob)5 b(ject)31 b(or)f(an)h(in)m(teger,)g
(otherwise)e(an)i(error)f(results.)241 3943 y @beginspecial
@setspecial @endspecial 149 x FR(83.2.7)112 b(PSCHANGEV)-12
b(AR)34 b(Op)s(erator)241 4313 y FQ(Syn)m(tax:)453 4476
y FJ(PSCHANGEVAR)p FQ(\(TPS:)p FD(p)-5 b(ower)31 b(series)i(obje)-5
b(ct)p FQ(,)31 b(X:)p FD(kernel)p FQ(\):)p FD(p)-5 b(ower)35
b(series)e(obje)-5 b(ct)241 4639 y FQ(The)30 b(op)s(erator)g
FJ(PSCHANGEVAR)e FQ(c)m(hanges)j(the)g(dep)s(enden)m(t)e(v)-5
b(ariable)29 b(of)i(the)f(p)s(o)m(w)m(er)241 4752 y(series)f(ob)5
b(ject)32 b(TPS)d(to)i(the)g(v)-5 b(ariable)29 b(X.)i(TPS)e(should)f
(ev)-5 b(aluate)31 b(to)h(a)e(p)s(o)m(w)m(er)h(series)241
4864 y(ob)5 b(ject)31 b(and)f(X)g(to)h(a)g(k)m(ernel,)f(otherwise)g(an)
g(error)g(results.)40 b(Also)30 b(X)g(should)f(not)p
eop
%%Page: 572 572
572 571 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(572)34 b FM(CHAPTER)c(83.)71 b(TPS:)30 b(A)g(TR)m(UNCA)-8
b(TED)31 b(PO)m(WER)g(SERIES)e(P)-8 b(A)m(CKA)m(GE)664
555 y FQ(app)s(ear)30 b(as)h(a)f(parameter)h(in)e(TPS.)h(The)g(p)s(o)m
(w)m(er)g(series)g(with)f(the)h(new)g(dep)s(enden)m(t)664
668 y(v)-5 b(ariable)29 b(is)h(returned.)664 794 y @beginspecial
@setspecial @endspecial 166 x FR(83.2.8)113 b(PSREVERSE)35
b(Op)s(erator)664 1182 y FQ(Syn)m(tax:)876 1345 y FJ(PSREVERSE)p
FQ(\(TPS:)p FD(p)-5 b(ower)32 b(series)h(obje)-5 b(ct)p
FQ(\):)p FD(p)g(ower)35 b(series)664 1507 y FQ(P)m(o)m(w)m(er)30
b(series)f(rev)m(ersion.)39 b(The)29 b(p)s(o)m(w)m(er)g(series)f(TPS)g
(is)g(functionally)e(in)m(v)m(erted.)41 b(F)-8 b(our)664
1620 y(cases)31 b(arise:)664 1727 y @beginspecial @setspecial
@endspecial 775 1876 a(1.)46 b(If)30 b(the)h(order)f(of)g(the)h(series)
f(is)f(1,)i(then)f(the)h(expansion)e(p)s(oin)m(t)g(of)i(the)891
1989 y(in)m(v)m(erted)g(series)e(is)h(0.)664 2025 y @beginspecial
@setspecial @endspecial 775 2174 a(2.)46 b(If)30 b(the)h(order)f(is)f
(0)i FD(and)g FQ(if)f(the)g(\014rst)g(order)g(term)g(in)f(TPS)h(is)f
(non-zero,)i(then)891 2287 y(the)g(expansion)e(p)s(oin)m(t)h(of)g(the)h
(in)m(v)m(erted)f(series)g(is)f(tak)m(en)j(to)f(b)s(e)e(the)891
2400 y(co)s(e\016cien)m(t)j(of)e(the)h(zeroth)g(order)f(term)g(in)f
(TPS.)664 2436 y @beginspecial @setspecial @endspecial
775 2586 a(3.)46 b(If)30 b(the)h(order)f(is)f(-1)i(the)g(expansion)e(p)
s(oin)m(t)g(of)i(the)g(in)m(v)m(erted)f(series)f(is)h(the)891
2699 y(p)s(oin)m(t)g(at)h(in\014nit)m(y)-8 b(.)39 b(In)29
b(all)h(other)g(cases)i(a)e(REDUCE)h(error)f(is)f(rep)s(orted)891
2811 y(b)s(ecause)i(the)f(series)g(cannot)h(b)s(e)f(in)m(v)m(erted)g
(as)h(a)f(p)s(o)m(w)m(er)h(series.)40 b(Puiseux)891 2924
y(expansion)30 b(w)m(ould)f(b)s(e)h(required)e(to)j(handle)e(these)i
(cases.)664 2978 y @beginspecial @setspecial @endspecial
775 3110 a(4.)46 b(If)30 b(the)h(expansion)e(p)s(oin)m(t)h(of)g(TPS)f
(is)h(\014nite)f(it)h(b)s(ecomes)h(the)f(zeroth)h(order)891
3223 y(term)g(in)e(the)i(in)m(v)m(erted)f(series.)40
b(F)-8 b(or)31 b(expansion)e(ab)s(out)h(0)h(or)f(the)h(p)s(oin)m(t)e
(at)891 3336 y(in\014nit)m(y)g(the)h(order)g(of)h(the)f(in)m(v)m(erted)
g(series)g(is)f(one.)664 3592 y(If)h(TPS)f(is)h(not)g(a)h(p)s(o)m(w)m
(er)g(series)e(ob)5 b(ject)32 b(after)e(ev)-5 b(aluation)30
b(an)h(error)f(results.)664 3741 y(Here)h(are)g(some)g(examples:)1013
3947 y FH(ps\(sin)41 b(x,x,0\);)1013 4047 y(psreverse\(ws\);)d(\045)43
b(produces)d(series)h(for)i(asin)e(x)j(about)d(x=0.)1013
4146 y(ps\(exp)g(x,x,0\);)1013 4246 y(psreverse)f(ws;)i(\045)h
(produces)e(series)g(for)h(log)g(x)h(about)f(x=1.)1013
4345 y(ps\(sin\(1/x\),x,in)o(fi)o(nit)o(y\))o(;)1013
4445 y(psreverse\(ws\);)c(\045)43 b(produces)d(series)h(for)i
(1/asin\(x\))c(about)j(x=0.)664 4590 y @beginspecial
@setspecial @endspecial 147 x FR(83.2.9)113 b(PSCOMPOSE)37
b(Op)s(erator)664 4959 y FQ(Syn)m(tax:)p eop
%%Page: 573 573
573 572 bop 241 299 a @beginspecial @setspecial @endspecial
FM(83.2.)72 b(CONTR)m(OLLING)30 b(PO)m(WER)h(SERIES)1164
b FQ(573)453 555 y FJ(PSCOMPOSE)p FQ(\(TPS1:)p FD(p)-5
b(ower)32 b(series)p FQ(,)f(TPS2:)p FD(p)-5 b(ower)34
b(series)p FQ(\):)p FD(p)-5 b(ower)35 b(series)241 718
y FJ(PSCOMPOSE)28 b FQ(p)s(erforms)g(p)s(o)m(w)m(er)j(series)e(comp)s
(osition.)40 b(The)30 b(p)s(o)m(w)m(er)g(series)g(TPS1)g(and)241
831 y(TPS2)g(are)g(functionally)e(comp)s(osed.)41 b(That)30
b(is)g(to)h(sa)m(y)g(that)g(TPS2)e(is)h(substituted)241
944 y(for)g(the)g(expansion)g(v)-5 b(ariable)29 b(in)g(TPS1)h(and)f
(the)i(result)e(expressed)h(as)h(a)g(p)s(o)m(w)m(er)241
1057 y(series.)40 b(The)30 b(dep)s(enden)m(t)f(v)-5 b(ariable)29
b(and)h(expansion)f(p)s(oin)m(t)h(of)g(the)h(result)e(coincide)241
1170 y(with)g(those)i(of)f(TPS2.)40 b(The)30 b(follo)m(wing)f
(conditions)g(apply)g(to)i(p)s(o)m(w)m(er)f(series)241
1282 y(comp)s(osition:)241 1383 y @beginspecial @setspecial
@endspecial 352 1510 a(1.)46 b(If)30 b(the)h(expansion)e(p)s(oin)m(t)g
(of)i(TPS1)e(is)h(0)h(then)f(the)g(order)g(of)h(the)f(TPS2)g(m)m(ust)
468 1623 y(b)s(e)g(at)h(least)g(1.)241 1654 y @beginspecial
@setspecial @endspecial 352 1799 a(2.)46 b(If)30 b(the)h(expansion)e(p)
s(oin)m(t)g(of)i(TPS1)e(is)h(\014nite,)f(it)h(should)f(coincide)g(with)
g(the)468 1912 y(co)s(e\016cien)m(t)i(of)g(the)f(zeroth)h(order)f(term)
h(in)e(TPS2.)40 b(The)30 b(order)g(of)g(TPS2)468 2025
y(should)e(also)j(b)s(e)e(non-negativ)m(e)j(in)d(this)g(case.)241
2074 y @beginspecial @setspecial @endspecial 352 2201
a(3.)46 b(If)30 b(the)h(expansion)e(p)s(oin)m(t)g(of)i(TPS1)e(is)h(the)
g(p)s(oin)m(t)g(at)h(in\014nit)m(y)d(then)i(the)h(order)468
2313 y(of)g(TPS2)e(m)m(ust)i(b)s(e)e(less)h(than)g(or)h(equal)e(to)j
(-1.)241 2541 y(If)e(these)h(conditions)d(do)j(not)f(hold)f(the)i
(series)f(cannot)g(b)s(e)g(comp)s(osed)g(\(with)g(the)241
2654 y(curren)m(t)g(algorithm)f(terms)i(of)f(the)h(in)m(v)m(erted)f
(series)g(w)m(ould)f(in)m(v)m(olv)m(e)h(in\014nite)e(sums\))241
2767 y(and)i(a)g(REDUCE)h(error)f(o)s(ccurs.)241 2929
y(Examples)f(of)i(p)s(o)m(w)m(er)f(series)g(comp)s(osition)f(include)f
(the)j(follo)m(wing.)415 3154 y FH(a:=ps\(exp)40 b(y,y,0\);)84
b(b:=ps\(sin)40 b(x,x,0\);)415 3254 y(pscompose\(a,b\);)415
3354 y(\045)j(Produces)e(the)h(power)f(series)h(expansion)d(of)k
(exp\(sin)e(x\))415 3453 y(\045)i(about)f(x=0.)415 3652
y(a:=ps\(exp)e(z,z,1\);)h(b:=ps\(cos)f(x,x,0\);)415 3752
y(pscompose\(a,b\);)415 3852 y(\045)j(Produces)e(the)h(power)f(series)h
(expansion)d(of)k(exp\(cos)e(x\))415 3951 y(\045)i(about)f(x=0.)415
4151 y(a:=ps\(cos\(1/x\),x)o(,in)o(fi)o(nit)o(y\))o(;)81
b(b:=ps\(1/sin)39 b(x,x,0\);)415 4250 y(pscompose\(a,b\);)415
4350 y(\045)k(Produces)e(the)h(power)f(series)h(expansion)d(of)k
(cos\(sin)e(x\))415 4449 y(\045)i(about)f(x=0.)241 4578
y @beginspecial @setspecial @endspecial 159 x FR(83.2.10)112
b(PSSUM)38 b(Op)s(erator)241 4959 y FQ(Syn)m(tax:)p eop
%%Page: 574 574
574 573 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(574)34 b FM(CHAPTER)c(83.)71 b(TPS:)30 b(A)g(TR)m(UNCA)-8
b(TED)31 b(PO)m(WER)g(SERIES)e(P)-8 b(A)m(CKA)m(GE)876
555 y FJ(PSSUM)p FQ(\(J:)p FD(kernel)30 b FQ(=)g(LO)m(WLIM:)p
FD(inte)-5 b(ger)p FQ(,)31 b(COEFF:)p FD(algebr)-5 b(aic)p
FQ(,)32 b(X:)p FD(kernel)p FQ(,)1150 668 y(ABOUT:)p FD(algebr)-5
b(aic)p FQ(,)32 b(PO)m(WER:)p FD(algebr)-5 b(aic)p FQ(\):)p
FD(p)g(ower)37 b(series)664 912 y FQ(The)30 b(formal)g(p)s(o)m(w)m(er)g
(series)g(sum)f(for)h(J)g(from)g(LO)m(WLIM)h(to)g FJ(INFINITY)d
FQ(of)926 1143 y FH(COEFF*\(X-ABOUT\))o(**P)o(OW)o(ER)664
1387 y FQ(or)j(if)e(ABOUT)h(is)g(giv)m(en)g(as)h FJ(INFINITY)926
1618 y FH(COEFF*\(1/X\)**PO)o(WER)664 1862 y FQ(is)f(constructed)g(and)
g(returned.)40 b(This)28 b(enables)i(p)s(o)m(w)m(er)g(series)g(whose)g
(general)g(term)664 1975 y(is)g(kno)m(wn)f(to)j(b)s(e)d(constructed)i
(and)f(manipulated)e(using)h(the)h(other)h(pro)s(cedures)e(of)664
2088 y(the)i(p)s(o)m(w)m(er)f(series)g(pac)m(k)-5 b(age.)664
2251 y(J)30 b(and)g(X)g(should)f(b)s(e)h(distinct)e(simple)h(k)m
(ernels.)40 b(The)30 b(algebraics)g(ABOUT,)664 2363 y(COEFF)g(and)g(PO)
m(WER)h(should)d(not)j(dep)s(end)d(on)j(the)f(expansion)f(v)-5
b(ariable)30 b(X,)664 2476 y(similarly)d(the)k(algebraic)f(ABOUT)g
(should)f(not)h(dep)s(end)f(on)h(the)h(summation)664
2589 y(v)-5 b(ariable)29 b(J.)i(The)e(algebraic)i(PO)m(WER)f(should)f
(b)s(e)g(a)i(strictly)e(increasing)g(in)m(teger)664 2702
y(v)-5 b(alued)30 b(function)f(of)h(J)g(for)g(J)g(in)f(the)i(range)g
(LO)m(WLIM)f(to)h FJ(INFINITY)p FQ(.)795 2933 y FH(pssum\(n=0,1,x,0,)o
(n*)o(n\);)795 3033 y(\045)43 b(Produces)d(the)j(power)e(series)g
(summation)f(for)j(n=0)f(to)795 3132 y(\045)h(infinity)d(of)j
(x**\(n*n\).)795 3331 y(pssum\(m=1,\(-1\)**)o(\(m)o(-1\))o(/\()o(2m-)o
(1\))o(,y,)o(1,)o(2m)o(-1\))o(;)795 3431 y(\045)g(Produces)d(the)j
(power)e(series)g(expansion)f(of)j(atan\(y-1\))795 3531
y(\045)g(about)f(y=1.)795 3730 y(pssum\(j=1,-1/j,x)o(,i)o(nfi)o(ni)o
(ty,)o(j\))o(;)795 3830 y(\045)h(Produces)d(the)j(power)e(series)g
(expansion)f(of)j(log\(1-1/x\))795 3929 y(\045)g(about)f(the)g(point)f
(at)i(infinity.)795 4128 y(pssum\(n=0,1,x,0,)o(2n)o(**2)o(+3)o(n\))37
b(+)43 b(pssum\(n=1,1,x,0,2)o(n*)o(*2-)o(3n)o(\);)795
4228 y(\045)g(Produces)d(the)j(power)e(series)g(summation)f(for)j
(n=-infinity)795 4328 y(\045)g(to)g(+infinity)d(of)i(x**\(2n**2+3n\).)
664 4473 y @beginspecial @setspecial @endspecial 148
x FR(83.2.11)113 b(Arithmetic)34 b(Op)s(erations)664
4842 y FQ(As)d(p)s(o)m(w)m(er)f(series)g(ob)5 b(jects)31
b(are)f(domain)g(elemen)m(ts)g(they)h(ma)m(y)g(b)s(e)f(com)m(bined)664
4955 y(together)i(in)d(algebraic)h(expressions)f(in)g(algebraic)h(mo)s
(de)g(of)h(REDUCE)f(in)f(the)p eop
%%Page: 575 575
575 574 bop 241 299 a @beginspecial @setspecial @endspecial
FM(83.3.)72 b(RESTRICTIONS)28 b(AND)j(KNO)m(WN)g(BUGS)977
b FQ(575)241 555 y(normal)29 b(w)m(a)m(y)-8 b(.)241 718
y(F)g(or)31 b(example)f(if)f(A)i(and)f(B)g(are)h(p)s(o)m(w)m(er)f
(series)g(ob)5 b(jects)31 b(then)f(the)h(commands)f(suc)m(h)241
831 y(as:)415 1062 y FH(a*b;)415 1161 y(a**2+b**2;)241
1405 y FQ(will)d(pro)s(duce)j(p)s(o)m(w)m(er)g(series)g(ob)5
b(jects)31 b(represen)m(ting)f(the)g(pro)s(duct)f(and)h(the)h(sum)e(of)
241 1518 y(the)h(squares)g(of)h(the)f(p)s(o)m(w)m(er)h(series)e(ob)5
b(jects)32 b(A)e(and)g(B)h(resp)s(ectiv)m(ely)-8 b(.)241
1663 y @beginspecial @setspecial @endspecial 149 x FR(83.2.12)112
b(Di\013eren)m(tiation)241 2033 y FQ(If)30 b(A)g(is)g(a)g(p)s(o)m(w)m
(er)h(series)e(ob)5 b(ject)32 b(dep)s(ending)c(on)i(X)g(then)g(the)h
(input)d FJ(df\(a,x\);)g FQ(will)241 2146 y(pro)s(duce)h(the)i(p)s(o)m
(w)m(er)f(series)g(expansion)f(of)h(the)h(deriv)-5 b(ativ)m(e)30
b(of)g(A)h(with)e(resp)s(ect)h(to)241 2259 y(X.)241 2396
y @beginspecial @setspecial @endspecial 199 x FE(83.3)135
b(Restrictions)47 b(and)e(Kno)l(wn)g(Bugs)241 2848 y
FQ(If)30 b(A)g(and)g(B)h(are)f(p)s(o)m(w)m(er)h(series)e(ob)5
b(jects)32 b(and)d(X)i(is)e(a)i(v)-5 b(ariable)29 b(whic)m(h)g(ev)-5
b(aluates)31 b(to)241 2961 y(itself)e(then)h(curren)m(tly)f
(expressions)g(suc)m(h)h(as)h FJ(a/b)f FQ(and)f FJ(a*x)h
FQ(do)g(not)h(ev)-5 b(aluate)31 b(to)g(a)241 3074 y(single)e(p)s(o)m(w)
m(er)h(series)g(ob)5 b(ject)31 b(\(although)f(the)h(results)e(are)i(in)
e(eac)m(h)i(case)h(formally)241 3186 y(v)-5 b(alid\).)39
b(Instead)30 b(use)g FJ(ps\(a/b,x,0\))e FQ(and)i FJ(ps\(a*x,x,0\))d
FD(etc.)p FQ(.)p eop
%%Page: 576 576
576 575 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(576)34 b FM(CHAPTER)c(83.)71 b(TPS:)30 b(A)g(TR)m(UNCA)-8
b(TED)31 b(PO)m(WER)g(SERIES)e(P)-8 b(A)m(CKA)m(GE)p
eop
%%Page: 577 577
577 576 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(84)241 1693 y FT(TRI:)76 b(T)-19 b(eX)76 b(REDUCE)241
1942 y(in)-6 b(terface)668 2415 y Fx(W)g(erner)25 b(An)n(t)n(w)n
(eiler,)h(Andreas)f(Strotmann)g(and)g(V)-6 b(olk)n(er)25
b(Wink)n(elmann)241 2506 y(Univ)n(ersit)n(y)f(of)i(Cologne)h(Computer)d
(Cen)n(ter,)i(Abt.)33 b(An)n(w)n(endungssoft)n(w)n(are,)26
b(Rob)r(ert-Ko)r(c)n(h-Stra\031e)1697 2598 y(10)1317
2689 y(5000)h(K"oln)f(41,)h(German)n(y)699 2810 y(e{mail:)35
b(an)n(t)n(w)n(eil@epas.utoron)n(to.ca)28 b(strotmann@rrz.uni-k)n(o)r
(eln.de)1243 2902 y(wink)n(elmann@rrz.uni-k)n(o)r(eln.de)241
3138 y FQ(The)i(REDUCE-T)903 3158 y(E)953 3138 y(X-In)m(terface)i
(incorp)s(orates)e(three)g(lev)m(els)g(of)h(T)2577 3158
y(E)2627 3138 y(X)f(output:)241 3251 y(without)f(line)g(breaking,)h
(with)f(line)f(breaking,)i(and)g(with)f(line)g(breaking)g(plus)241
3364 y(inden)m(tation.)241 3527 y(During)f(loading)h(the)h(pac)m(k)-5
b(age)32 b(some)e(default)f(initialisations)d(are)k(p)s(erformed.)39
b(The)241 3640 y(default)29 b(page)i(width)e(is)g(set)i(to)g(15)h(cen)m
(timetres,)f(the)g(tolerance)g(for)f(page)h(breaking)241
3752 y(is)d(set)h(to)g(20)h(b)m(y)f(default.)39 b(Moreo)m(v)m(er,)32
b(TRI)c(is)g(enabled)f(to)j(translate)f(Greek)g(names,)241
3865 y FD(e.g.)j FQ(T)-8 b(A)m(U)31 b(or)f(PSI,)g(in)m(to)g(equiv)-5
b(alen)m(t)30 b(T)1614 3885 y(E)1664 3865 y(X)h(sym)m(b)s(ols,)e
FD(e.g.)72 b FL(\034)41 b FQ(or)30 b FL( )s FQ(,)h(resp)s(ectiv)m(ely)
-8 b(.)241 3978 y(Letters)31 b(are)g(prin)m(ted)e(lo)m(w)m(ercase)i(as)
g(de\014ned)e(through)h(assertion)g(of)g(the)h(set)241
4091 y(LO)m(WER)m(CASE.)241 4221 y @beginspecial @setspecial
@endspecial 199 x FE(84.1)135 b(Switc)l(hes)46 b(for)f(TRI)241
4660 y FQ(The)30 b(three)g(TRI)g(mo)s(des)g(can)g(b)s(e)g(selected)h(b)
m(y)f(switc)m(hes,)h(whic)m(h)e(can)h(b)s(e)g(used)241
4759 y(alternativ)m(ely)g(and)g(incremen)m(tally)-8 b(.)39
b(Switc)m(hing)29 b FJ(TEX)g FQ(on)i(giv)m(es)f(standard)241
4859 y(T)292 4879 y(E)342 4859 y(X-output;)g(switc)m(hing)g
FJ(TEXBREAK)e FQ(giv)m(es)i(brok)m(en)h(T)2150 4879 y(E)2200
4859 y(X-output,)f(and)g FJ(TEXINDENT)241 4959 y FQ(to)h(giv)m(e)g
(brok)m(en)f(T)888 4978 y(E)938 4959 y(X-output)g(plus)f(inden)m
(tation.)40 b(Th)m(us)29 b(the)h(three)h(lev)m(els)f(of)g(TRI)1667
5187 y(577)p eop
%%Page: 578 578
578 577 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(578)769 b FM(CHAPTER)30 b(84.)72 b(TRI:)30 b(TEX)g(REDUCE)g(INTERF)
-10 b(A)m(CE)664 555 y FQ(are)31 b(enabled)e(or)i(disabled)d(according)
i(to:)839 761 y FH(On)42 b(TeX;)434 b(\045)44 b(switch)d(TeX)h(is)h(on)
839 861 y(On)f(TeXBreak;)214 b(\045)44 b(switches)c(TeX)i(and)h
(TeXBreak)d(are)i(on)839 960 y(On)g(TeXIndent;)170 b(\045)44
b(switches)c(TeX,)i(TeXBreak)e(and)i(TeXIndent)e(are)j(on)839
1060 y(Off)f(TeXIndent;)126 b(\045)44 b(switch)d(TeXIndent)f(is)i(off)
839 1160 y(Off)g(TeXBreak;)170 b(\045)44 b(switches)c(TeXBreak)g(and)j
(TeXIndent)c(are)k(off)839 1259 y(Off)f(TeX;)390 b(\045)44
b(all)e(three)g(switches)e(are)i(off)664 1465 y FQ(Ho)m(w)31
b(TRI)f(breaks)g(m)m(ultiple)e(lines)h(of)h(T)2071 1485
y(E)2121 1465 y(X-co)s(de)h(ma)m(y)g(b)s(e)f(con)m(trolled)g(b)m(y)g
(setting)664 1565 y(v)-5 b(alues)30 b(for)g(page)h(width)e(and)g
(tolerance)839 1771 y FH(TeXsetbreak\(pag)o(e_)o(wid)o(th)o(,)38
b(tolerance\);)664 1990 y FQ(P)m(age)32 b(width)d(is)g(measured)h(in)f
(millimetres,)f(and)h(tolerance)j(is)d(a)i(p)s(ositiv)m(e)e(in)m(teger)
664 2103 y(in)g(the)i(closed)f(in)m(terv)-5 b(al)30 b([0)15
b FL(:)g(:)g(:)i FQ(10000].)43 b(The)30 b(higher)f(the)h(tolerance,)i
(the)e(more)664 2216 y(breakp)s(oin)m(ts)f(b)s(ecome)i(feasible.)40
b(A)30 b(tolerance)h(of)g(0)g(means)f(that)h(actually)f(no)664
2329 y(breakp)s(oin)m(t)f(will)f(b)s(e)i(considered)f(feasible,)h
(while)e(a)j(v)-5 b(alue)30 b(of)g(10000)j(allo)m(ws)c(an)m(y)664
2441 y(breakp)s(oin)m(t)g(to)j(b)s(e)d(considered)h(feasible.)39
b(F)-8 b(or)31 b(line-breaking)d(without)664 2554 y(inden)m(tation,)i
(suitable)f(v)-5 b(alues)29 b(for)h(the)h(tolerance)g(lie)e(b)s(et)m(w)
m(een)i(10)h(and)d(100.)42 b(As)31 b(a)664 2667 y(rule)e(of)i(th)m(um)m
(b,)f(use)g(higher)f(v)-5 b(alues)30 b(the)g(deep)s(er)g(the)h(term)f
(is)f(nested.)41 b(If)30 b(using)664 2780 y(inden)m(tation,)g(use)g(m)m
(uc)m(h)g(higher)f(tolerance)i(v)-5 b(alues;)30 b(reasonable)h(v)-5
b(alues)29 b(for)664 2893 y(tolerance)i(here)g(lie)e(b)s(et)m(w)m(een)i
(700)g(and)f(1500.)664 3020 y @beginspecial @setspecial
@endspecial 166 x FR(84.1.1)113 b(Adding)37 b(T)-9 b(ranslations)664
3408 y FQ(Sometimes)30 b(it)g(is)g(desirable)e(to)j(add)f(sp)s(ecial)f
(REDUCE-sym)m(b)s(ol-to-T)3162 3427 y(E)3212 3408 y(X-item)664
3521 y(translations.)40 b(F)-8 b(or)31 b(suc)m(h)f(a)h(task)g(TRI)e
(pro)m(vides)h(a)g(function)g FJ(TeXlet)e FQ(whic)m(h)h(binds)664
3634 y(an)m(y)i(REDUCE-sym)m(b)s(ol)e(to)i(one)g(of)g(the)f
(prede\014ned)f(T)2600 3653 y(E)2650 3634 y(X-items.)41
b(A)30 b(call)g(to)h(this)664 3747 y(function)e(has)h(the)h(follo)m
(wing)e(syn)m(tax:)664 3909 y FJ(TeXlet)p FQ(\()p FD(REDUCE-symb)-5
b(ol)p FQ(,)29 b FD(T)1777 3929 y(E)1827 3909 y(X-item)p
FQ(\);)664 4059 y(F)-8 b(or)31 b(example)839 4265 y FH
(TeXlet\('velocit)o(y,)o('!v)o(\);)839 4364 y(TeXlet\('gamma,\\)o(ve)o
(rb|)o('!)o(\\!G)o(!a)o(!m!)o(m!)o(a!)37 b(|\);)839 4464
y(TeXlet\('acceler)o(at)o(ion)o(,\\)o(ver)o(b|)o('!\\)o(!v)o(!a)o(!r!)o
(t!)o(h!e)o(!t)o(!a)o(!)h(|\);)664 4683 y FQ(Besides)30
b(this)f(metho)s(d)h(of)h(single)e(assertions)h(one)g(can)h(assert)g
(one)g(of)f(\(curren)m(tly\))664 4796 y(t)m(w)m(o)i(standard)d(sets)i
(pro)m(viding)e(substitutions)e(for)k(lo)m(w)m(ercase)g(and)f(Greek)h
(letters.)664 4909 y(These)f(sets)h(are)g(loaded)f(b)m(y)g(default.)40
b(These)30 b(sets)h(can)f(b)s(e)g(switc)m(hed)g(on)g(or)h(o\013)p
eop
%%Page: 579 579
579 578 bop 241 299 a @beginspecial @setspecial @endspecial
FM(84.2.)72 b(EXAMPLES)30 b(OF)h(USE)1710 b FQ(579)241
555 y(using)29 b(the)h(functions)241 718 y FJ(TeXassertset)d
FD(setname)p FQ(;)241 831 y FJ(TeXretractset)g FD(setname)p
FQ(;)241 994 y(where)j(the)g(setnames)h(curren)m(tly)f(de\014ned)f(are)
h FJ('GREEK)f FQ(and)h FJ('LOWERCASE)p FQ(.)241 1156
y(There)g(are)g(facilities)f(for)h(creating)h(other)f(sets)h(of)g
(substitutions,)d(using)h(the)241 1269 y(function)g FJ(TeXitem)p
FQ(.)241 1406 y @beginspecial @setspecial @endspecial
199 x FE(84.2)135 b(Examples)46 b(of)g(Use)241 1858 y
FQ(Some)30 b(represen)m(tativ)m(e)i(examples)d(demonstrate)i(the)g
(capabilities)d(of)j(TRI.)241 2089 y FH(load_package)38
b(tri;)415 2189 y(\045)43 b(TeX-REDUCE-Interf)o(ac)o(e)38
b(0.50)415 2288 y(\045)43 b(set)g(greek)e(asserted)415
2388 y(\045)i(set)g(lowercase)c(asserted)415 2487 y(\045)k(\\tolerance)
d(10)415 2587 y(\045)j(\\hsize=150mm)241 2786 y(TeXsetbreak\(150,)o(25)
o(0\))o(;)415 2886 y(\045)g(\\tolerance)d(250)415 2986
y(\045)j(\\hsize=150mm)241 3185 y(on)g(TeXindent;)241
3384 y(\(x+y\)^16/\(v-w\)^1)o(6;)415 3484 y($$\\displaylines{)o(\\qd)o
(d)415 3583 y(\\\(x^{16})502 3683 y(+16\\cdot)e(x^{15}\\cdot)e(y)502
3783 y(+120\\cdot)h(x^{14}\\cdot)f(y^{2})502 3882 y(+560\\cdot)h
(x^{13}\\cdot)f(y^{3})502 3982 y(+1820\\cdot)h(x^{12}\\cdot)f(y^{4})502
4082 y(+4368\\cdot)h(x^{11}\\cdot)f(y^{5}\\nl)502 4181
y(\\off{327680})502 4281 y(+8008\\cdot)h(x^{10}\\cdot)f(y^{6})502
4380 y(+11440\\cdot)g(x^{9}\\cdot)h(y^{7})502 4480 y(+12870\\cdot)f
(x^{8}\\cdot)h(y^{8})502 4580 y(+11440\\cdot)f(x^{7}\\cdot)h(y^{9})502
4679 y(+8008\\cdot)g(x^{6}\\cdot)f(y^{10}\\nl)502 4779
y(\\off{327680})502 4879 y(+4368\\cdot)h(x^{5}\\cdot)f(y^{11})p
eop
%%Page: 580 580
580 579 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(580)769 b FM(CHAPTER)30 b(84.)72 b(TRI:)30 b(TEX)g(REDUCE)g(INTERF)
-10 b(A)m(CE)926 555 y FH(+1820\\cdot)39 b(x^{4}\\cdot)h(y^{12})926
655 y(+560\\cdot)g(x^{3}\\cdot)f(y^{13})926 754 y(+120\\cdot)h
(x^{2}\\cdot)f(y^{14})926 854 y(+16\\cdot)h(x\\cdot)h(y^{15})926
954 y(+y^{16})839 1053 y(\\\))839 1153 y(/\\nl)839 1253
y(\\\(v^{16})926 1352 y(-16\\cdot)f(v^{15}\\cdot)f(w)926
1452 y(+120\\cdot)h(v^{14}\\cdot)f(w^{2})926 1551 y(-560\\cdot)h
(v^{13}\\cdot)f(w^{3})926 1651 y(+1820\\cdot)g(v^{12}\\cdot)g(w^{4})926
1751 y(-4368\\cdot)g(v^{11}\\cdot)g(w^{5}\\nl)926 1850
y(\\off{327680})926 1950 y(+8008\\cdot)g(v^{10}\\cdot)g(w^{6})926
2050 y(-11440\\cdot)g(v^{9}\\cdot)g(w^{7})926 2149 y(+12870\\cdot)g
(v^{8}\\cdot)g(w^{8})926 2249 y(-11440\\cdot)g(v^{7}\\cdot)g(w^{9})926
2348 y(+8008\\cdot)g(v^{6}\\cdot)h(w^{10})926 2448 y(-4368\\cdot)f
(v^{5}\\cdot)h(w^{11}\\nl)926 2548 y(\\off{327680})926
2647 y(+1820\\cdot)f(v^{4}\\cdot)h(w^{12})926 2747 y(-560\\cdot)g
(v^{3}\\cdot)f(w^{13})926 2847 y(+120\\cdot)h(v^{2}\\cdot)f(w^{14})926
2946 y(-16\\cdot)h(v\\cdot)h(w^{15})926 3046 y(+w^{16})839
3145 y(\\\))839 3245 y(\\Nl}$$)664 3476 y FQ(A)31 b(simple)d(example)i
(using)f(matrices:)664 3682 y FH(load_package)39 b(ri;)839
3781 y(\045)k(TeX-REDUCE-Inte)o(rfa)o(ce)37 b(0.50)839
3881 y(\045)43 b(set)f(greek)g(asserted)839 3981 y(\045)h(set)f
(lowercase)e(asserted)839 4080 y(\045)j(\\tolerance)c(10)839
4180 y(\045)k(\\hsize=150mm)664 4379 y(on)g(Tex;)664
4578 y(mat\(\(1,a-b,1/\(c-d)o(\)\))o(,\()o(a^2)o(-b)o(^2,)o(1,)o(sqr)o
(t\()o(c\))o(\),\()o(\(a)o(+b\))o(/\()o(c-)o(d\),)o(sq)o(rt\()o(d\))o
(,1\))o(\);)839 4678 y($$)839 4778 y(\\pmatrix{1&a)1231
4877 y(-b&)p eop
%%Page: 581 581
581 580 bop 241 299 a @beginspecial @setspecial @endspecial
FM(84.2.)72 b(EXAMPLES)30 b(OF)h(USE)1710 b FQ(581)807
555 y FH(\\frac{1}{)1069 655 y(c)1069 754 y(-d}\\cr)807
854 y(a^{2})807 954 y(-b^{2}&1&)807 1053 y(\\sqrt{c}\\cr)807
1153 y(\\frac{a)1069 1253 y(+b}{)1069 1352 y(c)1069 1452
y(-d}&)807 1551 y(\\sqrt{d}&1\\cr)807 1651 y(})415 1751
y($$)241 1970 y FQ(Note)31 b(that)g(the)g(resulting)d(output)i(uses)g
(a)h(n)m(um)m(b)s(er)e(of)i(T)2241 1989 y(E)2291 1970
y(X)f(macros)h(whic)m(h)e(are)241 2083 y(de\014ned)g(in)g(the)i(\014le)
e FJ(tridefs.tex)e FQ(whic)m(h)i(is)h(distributed)d(with)i(the)i
(example)f(\014le.)p eop
%%Page: 582 582
582 581 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(582)769 b FM(CHAPTER)30 b(84.)72 b(TRI:)30 b(TEX)g(REDUCE)g(INTERF)
-10 b(A)m(CE)p eop
%%Page: 583 583
583 582 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(85)241 1693 y FT(TRIGSIMP:)76 b(Simpli\014cation)241
1942 y(and)h(factorisation)h(of)241 2191 y(trigonometric)g(and)f(h)-6
b(yp)6 b(erb)g(olic)241 2440 y(functions)841 2913 y Fx(W)-6
b(olfram)26 b(Ko)r(epf,)g(Andreas)g(Bernig)g(and)g(Herb)r(ert)f(Melenk)
826 3004 y(Konrad{Zuse{Zen)n(trum)g(f)r(\177)-41 b(ur)26
b(Informationstec)n(hnik)f(Berlin)1521 3096 y(T)-6 b(akustra)l(\177)-34
b(se)27 b(7)1150 3187 y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1370
3308 y(e{mail:)35 b(Ko)r(epf@zib.de)241 3552 y FQ(There)30
b(are)g(three)h(pro)s(cedures)e(included)f(in)h(TRIGSIMP:)h(trigsimp,)e
(trigfactorize)241 3665 y(and)i(triggcd.)40 b(The)30
b(\014rst)g(is)f(for)h(\014nding)e(simpli\014cations)f(of)k
(trigonometric)f(or)241 3778 y(h)m(yp)s(erb)s(olic)d(expressions)i
(with)h(man)m(y)g(options,)g(the)h(second)f(for)g(factorising)g(them)
241 3891 y(and)g(the)g(third)f(for)h(\014nding)e(the)i(greatest)j
(common)d(divisor)e(of)j(t)m(w)m(o)h(trigonometric)241
4004 y(or)e(h)m(yp)s(erb)s(olic)e(p)s(olynomials.)241
4159 y @beginspecial @setspecial @endspecial 181 x FE(85.1)135
b(Simpli\014ying)46 b(trigonometric)h(expressions)241
4593 y FQ(As)30 b(there)h(is)e(no)h(normal)g(form)g(for)g
(trigonometric)g(and)g(h)m(yp)s(erb)s(olic)d(functions,)j(the)241
4706 y(same)h(function)e(can)h(con)m(v)m(ert)i(in)d(man)m(y)i
(di\013eren)m(t)f(directions,)f FD(e.g.)241 4819 y FQ(sin)n(\(2)p
FL(x)p FQ(\))e FP($)e FQ(2)15 b(sin)o(\()p FL(x)p FQ(\))g(cos)r(\()p
FL(x)p FQ(\).)41 b(The)30 b(user)g(has)g(the)g(p)s(ossibilit)m(y)d(to)k
(giv)m(e)g(sev)m(eral)241 4932 y(parameters)f(to)i(the)e(pro)s(cedure)f
FJ(trigsimp)f FQ(in)i(order)f(to)j(in\015uence)c(the)j(direction)1667
5187 y(583)p eop
%%Page: 584 584
584 583 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(584)31 b FM(CHAPTER)e(85.)72 b(TRIGSIMP:)30 b(TRIGONOMETRIC)f
(SIMPLIFICA)-8 b(TION)664 555 y FQ(of)31 b(transformations.)40
b(The)29 b(decision)g(whether)h(a)h(rational)f(expression)f(in)664
668 y(trigonometric)h(and)g(h)m(yp)s(erb)s(olic)e(functions)h(v)-5
b(anishes)29 b(or)h(not)h(is)e(p)s(ossible.)664 831 y(T)-8
b(o)31 b(simplify)c(a)k(function)e FJ(f)p FQ(,)h(one)h(uses)f
FJ(trigsimp\(f[,options]\))p FQ(.)35 b(Example:)664 1062
y FH(2:)43 b(trigsimp\(sin\(x\)^)o(2+)o(cos)o(\(x)o(\)^2)o(\);)664
1261 y(1)664 1505 y FQ(P)m(ossible)29 b(options)h(are)h(\(*)g(denotes)g
(the)f(default\):)664 1615 y @beginspecial @setspecial
@endspecial 775 1742 a(1.)46 b FJ(sin)30 b FQ(\(*\))h(or)g
FJ(cos)664 1803 y @beginspecial @setspecial @endspecial
775 1930 a FQ(2.)46 b FJ(sinh)30 b FQ(\(*\))h(or)f FJ(cosh)664
1990 y @beginspecial @setspecial @endspecial 775 2118
a FQ(3.)46 b FJ(expand)29 b FQ(\(*\))j(or)e FJ(combine)e
FQ(or)j FJ(compact)664 2178 y @beginspecial @setspecial
@endspecial 775 2305 a FQ(4.)46 b FJ(hyp)30 b FQ(or)g
FJ(trig)g FQ(or)g FJ(expon)664 2363 y @beginspecial @setspecial
@endspecial 775 2493 a FQ(5.)46 b FJ(keepalltrig)664
2730 y FQ(F)-8 b(rom)31 b(eac)m(h)h(group)d(one)i(can)g(use)f(at)h
(most)g(one)f(option,)g(otherwise)g(an)g(error)664 2843
y(message)i(will)27 b(o)s(ccur.)41 b(The)30 b(\014rst)f(group)h
(\014xes)g(the)h(preference)f(used)g(while)664 2956 y(transforming)f(a)
i(trigonometric)f(expression.)39 b(The)30 b(second)h(group)f(is)f(the)
664 3069 y(equiv)-5 b(alen)m(t)30 b(for)g(the)h(h)m(yp)s(erb)s(olic)c
(functions.)40 b(The)30 b(third)e(group)i(determines)f(the)664
3182 y(t)m(yp)s(e)i(of)f(transformations.)40 b(With)30
b(the)h(default)e FJ(expand)p FQ(,)g(an)h(expression)f(is)h(written)664
3295 y(in)f(a)i(form)f(only)f(using)g(single)g(argumen)m(ts)i(and)f(no)
g(sums)f(of)i(argumen)m(ts.)41 b(With)664 3408 y FJ(combine)p
FQ(,)29 b(pro)s(ducts)g(of)h(trigonometric)h(functions)d(are)j
(transformed)f(to)664 3521 y(trigonometric)g(functions)f(in)m(v)m
(olving)g(sums)g(of)i(argumen)m(ts.)664 3752 y FH(trigsimp\(sin\(x\)^2)
o(,c)o(os)o(\);)1056 3951 y(2)708 4050 y(-)43 b(cos\(x\))85
b(+)43 b(1)664 4250 y(trigsimp\(sin\(x\)*c)o(os)o(\(y)o(\),c)o(om)o
(bin)o(e\))o(;)708 4549 y(sin\(x)e(-)i(y\))g(+)g(sin\(x)f(+)h(y\))664
4648 y(-----------------)o(--)o(--)o(---)o(-)1187 4748
y(2)p eop
%%Page: 585 585
585 584 bop 241 299 a @beginspecial @setspecial @endspecial
FM(85.2.)72 b(F)-10 b(A)m(CTORISING)30 b(TRIGONOMETRIC)f(EXPRESSIONS)
426 b FQ(585)241 555 y(With)30 b FJ(compact)p FQ(,)e(the)j(REDUCE)f(op)
s(erator)h FJ(compact)d FQ(\(see)j(c)m(hapter)g @beginspecial
@setspecial @endspecial(31)q(\))g(is)e(applied)241 668
y(to)i FJ(f)p FQ(.)40 b(This)29 b(leads)h(often)g(to)i(a)e(simple)f
(form,)h(but)f(in)g(con)m(trast)j(to)f FJ(expand)e FQ(one)241
781 y(do)s(esn't)h(get)h(a)g(normal)f(form.)241 1010
y FH(trigsimp\(\(1-sin\()o(x\))o(**)o(2\)*)o(*2)o(0*\()o(1-)o(cos)o
(\(x)o(\)*)o(*2\))o(**)o(20,)o(co)o(mp)o(act)o(\);)502
1209 y(40)305 b(40)241 1309 y(cos\(x\))84 b(*sin\(x\))241
1552 y FQ(With)30 b(the)g(fourth)g(group)g(eac)m(h)h(expression)e(is)h
(transformed)f(to)i(a)g(trigonometric,)241 1664 y(h)m(yp)s(erb)s(olic)c
(or)k(exp)s(onen)m(tial)e(form:)241 1894 y FH(trigsimp\(sin\(x\),)o(hy)
o(p\))o(;)284 2093 y(-)44 b(sinh\(i*x\)*i)241 2292 y(trigsimp\(e^x,tri)
o(g\))o(;)459 2491 y(x)435 b(x)241 2591 y(cos\(---\))40
b(+)j(sin\(---\)*i)459 2691 y(i)435 b(i)241 2933 y FQ(Usually)-8
b(,)29 b FJ(tan)p FQ(,)h FJ(cot)p FQ(,)g FJ(sec)p FQ(,)f
FJ(csc)h FQ(are)h(expressed)f(in)f(terms)h(of)g FJ(sin)g
FQ(and)g FJ(cos)p FQ(.)39 b(It)31 b(can)241 3046 y(b)s(e)f(sometimes)g
(useful)f(to)i(a)m(v)m(oid)g(this,)e(whic)m(h)g(is)h(handled)e(b)m(y)i
(the)h(option)241 3159 y FJ(keepalltrig)p FQ(:)241 3388
y FH(trigsimp\(tan\(x+y)o(\),)o(ke)o(epa)o(ll)o(tri)o(g\))o(;)328
3587 y(-)43 b(\(tan\(x\))e(+)i(tan\(y\)\))241 3687 y(----------------)o
(--)o(--)o(--)328 3787 y(tan\(x\)*tan\(y\))38 b(-)43
b(1)241 4029 y FQ(It)30 b(is)g(p)s(ossible)e(to)j(use)f(the)g(options)g
(of)h(di\013eren)m(t)e(groups)h(sim)m(ultaneously)-8
b(.)241 4182 y @beginspecial @setspecial @endspecial
182 x FE(85.2)135 b(F)-11 b(actorising)46 b(trigonometric)h
(expressions)241 4617 y FQ(With)30 b FJ(trigfactorize\(p,x\))25
b FQ(one)31 b(can)f(factorise)h(the)g(trigonometric)f(or)241
4730 y(h)m(yp)s(erb)s(olic)d(p)s(olynomial)h FJ(p)i FQ(with)f(resp)s
(ect)i(to)g(the)f(argumen)m(t)h(x.)41 b(Example:)241
4959 y FH(trigfactorize\(si)o(n\()o(x\))o(,x/)o(2\))o(;)p
eop
%%Page: 586 586
586 585 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(586)31 b FM(CHAPTER)e(85.)72 b(TRIGSIMP:)30 b(TRIGONOMETRIC)f
(SIMPLIFICA)-8 b(TION)1013 655 y FH(x)348 b(x)664 754
y({2,cos\(---\),sin\(-)o(--)o(\)})1013 854 y(2)g(2)664
1098 y FQ(If)30 b(the)h(p)s(olynomial)c(is)j(not)g(co)s(ordinated)g(or)
g(balanced)g(the)h(output)f(will)e(equal)h(the)664 1211
y(input.)38 b(In)27 b(this)f(case,)j(c)m(hanging)f(the)f(v)-5
b(alue)27 b(for)h(x)f(can)h(help)e(to)i(\014nd)e(a)i(factorisation:)664
1442 y FH(trigfactorize\(1+c)o(os)o(\(x)o(\),x)o(\);)664
1641 y({cos\(x\))41 b(+)i(1})664 1840 y(trigfactorize\(1+c)o(os)o(\(x)o
(\),x)o(/2)o(\);)1013 2040 y(x)348 b(x)664 2139 y({2,cos\(---\),cos\(-)
o(--)o(\)})1013 2239 y(2)g(2)664 2376 y @beginspecial
@setspecial @endspecial 199 x FE(85.3)136 b(GCDs)45 b(of)g
(trigonometric)h(expressions)664 2828 y FQ(The)30 b(op)s(erator)h
FJ(triggcd)d FQ(is)i(an)g(application)e(of)j FJ(trigfactorize)p
FQ(.)37 b(With)30 b(its)g(help)664 2941 y(the)h(user)e(can)i(\014nd)e
(the)h(greatest)j(common)d(divisor)f(of)h(t)m(w)m(o)i(trigonometric)e
(or)664 3054 y(h)m(yp)s(erb)s(olic)e(p)s(olynomials.)38
b(The)30 b(syn)m(tax)h(is:)39 b FJ(triggcd\(p,q,x\))p
FQ(,)27 b(where)j(p)g(and)g(q)664 3167 y(are)h(the)g(p)s(olynomials)c
(and)j(x)g(is)g(the)g(smallest)g(unit)f(to)i(use.)40
b(Example:)664 3397 y FH(triggcd\(sin\(x\),1+)o(co)o(s\()o(x\),)o(x/)o
(2\);)882 3597 y(x)664 3696 y(cos\(---\))882 3796 y(2)664
3995 y(triggcd\(sin\(x\),1+)o(co)o(s\()o(x\),)o(x\))o(;)664
4194 y(1)664 4439 y FQ(See)31 b(also)f(the)h(ASSIST)d(pac)m(k)-5
b(age)33 b(\(c)m(hapter)e @beginspecial @setspecial @endspecial(23)q
(\).)p eop
%%Page: 587 587
587 586 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(86)241 1693 y FT(WU:)76 b(W)-19 b(u)78 b(algorithm)f(for)g(p)6
b(oly)241 1942 y(systems)1454 2424 y Fx(Russell)26 b(Bradford)843
2515 y(Sc)n(ho)r(ol)h(of)f(Mathematical)h(Sciences,)f(Univ)n(ersit)n(y)
f(of)h(Bath,)1305 2607 y(Bath,)g(BA2)g(7A)-6 b(Y,)25
b(England)1231 2728 y(e{mail:)35 b(rjb@maths.bath.ac.uk)241
2959 y FQ(The)30 b(in)m(terface:)241 3165 y FH(wu\()42
b({x^2+y^2+z^2-r^2)o(,)c(x*y+z^2-1,)h(x*y*z-x^2-y^2-z+)o(1},)e
({x,y,z}\);)241 3384 y FQ(calls)29 b FJ(wu)h FQ(with)f(the)i(named)f(p)
s(olynomials,)d(and)j(with)f(the)i(v)-5 b(ariable)29
b(ordering)241 3497 y FJ(x)c FL(>)g FJ(y)g FL(>)g FJ(z)p
FQ(.)40 b(In)30 b(this)f(example,)h FJ(r)g FQ(is)g(a)g(parameter.)241
3646 y(The)g(result)f(is)415 3852 y FH(2)174 b(3)g(2)241
3952 y({{{r)85 b(+)43 b(z)87 b(-)43 b(z)87 b(-)43 b(1,)415
4151 y(2)87 b(2)174 b(2)261 b(2)174 b(4)g(2)87 b(2)173
b(2)372 4251 y(r)43 b(*y)86 b(+)43 b(r)g(*z)g(+)g(r)87
b(-)43 b(y)87 b(-)43 b(y)g(*z)87 b(+)43 b(z)87 b(-)43
b(z)g(-)g(2,)677 4450 y(2)372 4549 y(x*y)f(+)h(z)87 b(-)43
b(1},)328 4749 y(y},)415 4948 y(6)87 b(4)261 b(6)87 b(2)174
b(6)261 b(4)87 b(7)261 b(4)86 b(6)261 b(4)87 b(5)261
b(4)87 b(4)1667 5187 y FQ(587)p eop
%%Page: 588 588
588 587 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(588)219 b FM(CHAPTER)30 b(86.)72 b(WU:)31 b(WU)g(ALGORITHM)f(F)m(OR)
h(POL)-8 b(Y)30 b(SYSTEMS)708 555 y FH({{r)42 b(*z)86
b(-)44 b(2*r)e(*z)86 b(+)43 b(r)87 b(+)43 b(3*r)g(*z)86
b(-)43 b(3*r)g(*z)86 b(-)43 b(6*r)f(*z)87 b(+)43 b(3*r)f(*z)87
b(+)43 b(3*)839 754 y(4)86 b(3)261 b(4)87 b(2)261 b(4)g(2)87
b(10)261 b(2)87 b(9)261 b(2)86 b(8)262 b(2)86 b(7)795
854 y(r)43 b(*z)86 b(+)44 b(3*r)e(*z)86 b(-)43 b(3*r)86
b(+)44 b(3*r)e(*z)130 b(-)43 b(6*r)f(*z)87 b(-)43 b(3*r)f(*z)87
b(+)43 b(6*r)f(*z)86 b(+)969 1053 y(2)h(6)261 b(2)87
b(5)261 b(2)87 b(4)261 b(2)87 b(3)261 b(2)174 b(13)260
b(12)174 b(11)839 1153 y(3*r)42 b(*z)86 b(+)43 b(6*r)g(*z)86
b(-)43 b(6*r)g(*z)86 b(-)43 b(6*r)f(*z)87 b(+)43 b(3*r)86
b(+)43 b(z)130 b(-)44 b(3*z)129 b(+)43 b(z)1056 1352
y(10)174 b(9)261 b(8)g(7)174 b(6)261 b(4)g(3)174 b(2)839
1452 y(+)43 b(2*z)129 b(+)43 b(z)87 b(+)43 b(2*z)86 b(-)43
b(6*z)86 b(-)44 b(z)86 b(+)43 b(2*z)86 b(+)44 b(3*z)85
b(-)44 b(z)86 b(-)44 b(1,)839 1651 y(2)130 b(2)174 b(3)g(2)795
1751 y(y)43 b(*\(r)86 b(+)43 b(z)87 b(-)43 b(z)87 b(-)43
b(1\),)1100 1950 y(2)795 2050 y(x*y)f(+)h(z)87 b(-)43
b(1},)926 2249 y(2)174 b(3)g(2)751 2348 y(y*\(r)86 b(+)43
b(z)87 b(-)43 b(z)87 b(-)43 b(1\)}})664 2568 y FQ(namely)-8
b(,)31 b(a)f(list)f(of)i(pairs)e(of)h(c)m(haracteristic)h(sets)g(and)f
(initials)d(for)k(the)664 2681 y(c)m(haracteristic)g(sets.)664
2843 y(Th)m(us,)f(the)g(\014rst)g(pair)f(ab)s(o)m(v)m(e)j(has)e(the)g
(c)m(haracteristic)h(set)776 3048 y FL(r)820 3010 y FO(2)879
3048 y FQ(+)20 b FL(z)1016 3010 y FO(3)1076 3048 y FP(\000)g
FL(z)1213 3010 y FO(2)1273 3048 y FP(\000)g FQ(1)p FL(;)15
b(r)1493 3010 y FO(2)1533 3048 y FL(y)1581 3010 y FO(2)1640
3048 y FQ(+)20 b FL(r)1775 3010 y FO(2)1814 3048 y FL(z)k
FQ(+)c FL(r)2015 3010 y FO(2)2075 3048 y FP(\000)f FL(y)2213
3010 y FO(4)2273 3048 y FP(\000)h FL(y)2412 3010 y FO(2)2451
3048 y FL(z)2497 3010 y FO(2)2557 3048 y FQ(+)g FL(z)2694
3010 y FO(2)2754 3048 y FP(\000)g FL(z)k FP(\000)c FQ(2)p
FL(;)15 b(xy)24 b FQ(+)c FL(z)3345 3010 y FO(2)3405 3048
y FP(\000)g FQ(1)664 3252 y(and)30 b(initial)e FL(y)s
FQ(.)664 3414 y(According)i(to)h(W)-8 b(u's)31 b(theorem,)g(the)g(set)g
(of)f(ro)s(ots)h(of)f(the)h(original)d(p)s(olynomials)g(is)664
3527 y(the)j(union)d(of)j(the)f(sets)h(of)g(ro)s(ots)f(of)h(the)f(c)m
(haracteristic)h(sets,)g(with)f(the)g(additional)664
3640 y(constrain)m(ts)h(that)g(the)f(corresp)s(onding)e(initial)g(is)h
(non-zero.)42 b(Th)m(us,)29 b(for)h(the)h(\014rst)664
3753 y(pair)e(ab)s(o)m(v)m(e,)j(w)m(e)f(\014nd)e(the)h(ro)s(ots)h(of)f
FP(f)p FL(r)2029 3720 y FO(2)2089 3753 y FQ(+)20 b FL(z)2226
3720 y FO(3)2286 3753 y FP(\000)g FL(z)2423 3720 y FO(2)2483
3753 y FP(\000)g FQ(1)p FL(;)15 b(:)g(:)g(:)47 b FP(g)31
b FQ(under)e(the)664 3866 y(constrain)m(t)i(that)g FL(y)d
FP(6)p FQ(=)d(0.)41 b(These)30 b(ro)s(ots,)h(together)h(with)d(the)h
(ro)s(ots)h(of)f(the)h(other)664 3979 y(c)m(haracteristic)g(set)g
(\(under)e(the)i(constrain)m(t)f(of)h FL(y)s FQ(\()p
FL(r)2473 3946 y FO(2)2532 3979 y FQ(+)20 b FL(z)2669
3946 y FO(3)2729 3979 y FP(\000)g FL(z)2866 3946 y FO(2)2926
3979 y FP(\000)g FQ(1\))26 b FP(6)p FQ(=)f(0\),)664 4092
y(comprise)30 b(all)f(the)i(ro)s(ots)f(of)h(the)f(original)f(set.)p
eop
%%Page: 589 589
589 588 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(87)241 1693 y FT(X)-6 b(COLOR:)75 b(Calculation)i(of)g(the)241
1942 y(color)g(factor)i(in)e(non-ab)6 b(elian)241 2191
y(gauge)78 b(\014eld)f(theories)1539 2673 y Fx(A.)25
b(Kryuk)n(o)n(v)812 2764 y(Institute)g(for)h(Nuclear)g(Ph)n(ysics,)g
(Mosco)n(w)i(State)e(Univ)n(ersit)n(y)1331 2856 y(119899,)i(Mosco)n(w,)
g(Russia)1255 2977 y(e{mail:)35 b(kryuk)n(o)n(v@npi.msu.su)241
3221 y FQ(X)m(COLOR)30 b(calculates)g(the)h(colour)f(factor)h(in)e
(non-ab)s(elian)g(gauge)i(\014eld)e(theories.)241 3334
y(It)h(pro)m(vides)g(t)m(w)m(o)h(commands)f(and)g(t)m(w)m(o)i(op)s
(erators.)241 3497 y FJ(SUdim)d FQ(in)m(teger)241 3659
y(Sets)h(the)h(order)f(of)g(the)h(SU)f(group.)40 b(The)30
b(default)f(v)-5 b(alue)30 b(is)g(3.)241 3822 y FJ(SpTT)f
FQ(expression)241 3985 y(Sets)h(the)h(normalisation)d(co)s(e\016cien)m
(t)j(A)g(in)e(the)i(equation)f FL(S)5 b(p)p FQ(\()p FL(T)2513
3999 y FF(i)2541 3985 y FL(T)2594 3999 y FF(j)2631 3985
y FQ(\))25 b(=)g FL(A)p FQ(\001\()p FL(i;)15 b(j)5 b
FQ(\).)241 4098 y(The)30 b(default)f(v)-5 b(alue)30 b(is)f(1/2.)241
4260 y FJ(QG)p FQ(\(inQuark,)f(outQuark,)i(Gluon\))241
4423 y(Describ)s(es)f(the)i(quark-gluon)e(v)m(ertex.)42
b(The)30 b(parameters)h(ma)m(y)g(b)s(e)e(an)m(y)i(iden)m(ti\014ers.)241
4536 y(The)f(\014rst)f(and)h(second)g(of)h(then)f(m)m(ust)g(b)s(e)g
(in-)f(and)h(out-)h(quarks)f(corresp)s(ondingly)-8 b(.)241
4649 y(Third)28 b(one)i(is)g(a)g(gluon.)241 4812 y FJ(G3)p
FQ(\(Gluon1,)g(Gluon2,)g(Gluon3\))1667 5187 y(589)p eop
%%Page: 590 590
590 589 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(590)57 b FM(CHAPTER)30 b(87.)72 b(X)m(COLOR:)30 b(COLOR)f(F)-10
b(A)m(CTOR)30 b(IN)g(GA)m(UGE)i(THEOR)-8 b(Y)664 555
y FQ(Describ)s(es)30 b(the)g(three-gluon)g(v)m(ertex.)42
b(The)30 b(parameters)h(ma)m(y)g(b)s(e)f(an)m(y)g(iden)m(ti\014ers.)664
668 y(The)g(order)g(of)g(gluons)g(m)m(ust)g(b)s(e)g(clo)s(c)m(kwise.)
664 831 y(In)f(terms)g(of)g(QG)g(and)f(G3)i(op)s(erators)f(one)h(can)f
(input)e(a)j(diagram)e(in)g(\\color")i(space)664 944
y(as)h(a)g(pro)s(duct)e(of)h(these)h(op)s(erators.)41
b(F)-8 b(or)31 b(example)p eop
%%Page: 591 591
591 590 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(591)938 555 y FH(e1)807 655 y(---->---)764
754 y(/)348 b(\\)720 854 y(/)436 b(\\)677 954 y(|)261
b(e2)173 b(|)589 1053 y(v1*............*v)o(2)677 1153
y(|)522 b(|)720 1253 y(\\)436 b(/)764 1352 y(\\)174 b(e3)86
b(/)807 1452 y(----<---)241 1696 y FQ(where)30 b FJ(--->---)e
FQ(is)h(a)i(quark)f(and)g FJ(.......)e FQ(is)i(a)g(gluon.)241
1859 y(The)g(related)g(REDUCE)g(expression)f(is)h FJ
(QG\(e3,e1,e2\)*QG\(e1,e3,e)o(2\))p FQ(.)p eop
%%Page: 592 592
592 591 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(592)57 b FM(CHAPTER)30 b(87.)72 b(X)m(COLOR:)30 b(COLOR)f(F)-10
b(A)m(CTOR)30 b(IN)g(GA)m(UGE)i(THEOR)-8 b(Y)p eop
%%Page: 593 593
593 592 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(88)241 1693 y FT(XIDEAL:)75 b(Gr\177)-116 b(obner)77
b(for)241 1942 y(exterior)g(algebra)1497 2424 y Fx(Da)n(vid)25
b(Hartley)1060 2515 y(GMD,)h(Institute)f(I1,)h(Sc)n(hloss)h(Birlingho)n
(v)n(en)1184 2607 y(D{53757)g(St.)34 b(Augustin,)26 b(German)n(y)1211
2728 y(e{mail:)35 b(Da)n(vid.Hartley@gmd.de)1673 2879
y(and)1451 2971 y(Philip)26 b(A.)g(T)-6 b(uc)n(k)n(ey)1181
3062 y(Max)26 b(Planc)n(k)g(Institute)f(for)h(Ph)n(ysics)1432
3153 y(F)-6 b(o)r(ehringer)26 b(Ring)g(6)1275 3245 y(D{80805)h(Munic)n
(h,)f(German)n(y)1131 3366 y(e{mail:)35 b(ph)n(t@iws170.mppm)n
(u.mpg.de)241 3610 y FQ(XIDEAL)30 b(extends)h(the)f(Gr\177)-45
b(obner)30 b(base)h(metho)s(d)e(to)i(exterior)g(algebras.)241
3773 y(XIDEAL)f(constructs)h(Gr\177)-45 b(obner)30 b(bases)g(for)g
(solving)f(the)i(left)f(ideal)f(mem)m(b)s(ership)241
3886 y(problem:)39 b(Gr\177)-45 b(obner)30 b(left)g(ideal)f(bases)h(or)
h(GLIBs.)41 b(F)-8 b(or)31 b(graded)f(ideals,)f(where)h(eac)m(h)241
3998 y(form)g(is)f(homogeneous)i(in)e(degree,)j(the)e(distinction)e(b)s
(et)m(w)m(een)j(left)f(and)g(righ)m(t)241 4111 y(ideals)f(v)-5
b(anishes.)39 b(F)-8 b(urthermore,)31 b(if)e(the)i(generating)f(forms)g
(are)h(all)e(homogeneous,)241 4224 y(then)h(the)g(Gr\177)-45
b(obner)30 b(bases)h(for)f(the)g(non-graded)g(and)g(graded)g(ideals)f
(are)i(iden)m(tical.)241 4337 y(In)e(this)h(case,)h(XIDEAL)g(is)e(able)
h(to)h(sa)m(v)m(e)h(time)e(b)m(y)h(truncating)e(the)i(Gr\177)-45
b(obner)30 b(basis)241 4450 y(at)h(some)g(maxim)m(um)e(degree)i(if)e
(desired.)40 b(XIDEAL)30 b(uses)g(the)h(EX)m(CALC)f(pac)m(k)-5
b(age)241 4563 y(\(c)m(hapter)31 b @beginspecial @setspecial
@endspecial(39)q(\).)241 4723 y @beginspecial @setspecial
@endspecial 1667 5187 a(593)p eop
%%Page: 594 594
594 593 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(594)57 b FM(CHAPTER)30 b(88.)72 b(XIDEAL:)31 b(GR)2099
276 y(\177)2083 299 y(OBNER)f(F)m(OR)h(EXTERIOR)e(ALGEBRA)664
555 y FE(88.1)136 b(Op)t(erators)664 808 y FN(XIDEAL)664
1016 y FJ(XIDEAL)29 b FQ(calculates)h(a)h(Gr\177)-45
b(obner)30 b(left)g(ideal)f(basis)g(in)h(an)g(exterior)g(algebra.)41
b(The)664 1116 y(syn)m(tax)31 b(is)882 1322 y FH(XIDEAL\(S:list)38
b(of)43 b(forms[,R:integer)o(]\):)o(li)o(st)37 b(of)43
b(forms.)664 1541 y FJ(XIDEAL)29 b FQ(calculates)h(the)h(Gr\177)-45
b(obner)30 b(left)g(ideal)f(basis)g(for)h(the)h(left)f(ideal)f
(generated)664 1654 y(b)m(y)h FJ(S)g FQ(using)f(graded)i
(lexicographical)e(ordering)g(based)h(on)g(the)g(curren)m(t)h(k)m
(ernel)664 1767 y(ordering.)40 b(The)29 b(resulting)g(list)g(can)i(b)s
(e)e(used)h(for)g(subsequen)m(t)g(reductions)f(with)664
1880 y FJ(XMODULOP)f FQ(as)j(long)f(as)g(the)h(k)m(ernel)f(ordering)f
(is)g(not)i(c)m(hanged.)41 b(If)30 b(the)h(set)g(of)664
1992 y(generators)h FJ(S)e FQ(is)f(graded,)i(an)f(optional)f(parameter)
i FJ(R)f FQ(can)h(b)s(e)f(giv)m(en,)g(and)g FJ(XIDEAL)664
2105 y FQ(pro)s(duces)f(a)i(truncated)f(basis)g(suitable)f(for)h
(reducing)f(exterior)h(forms)g(of)g(degree)664 2218 y(less)g(than)g(or)
g(equal)g(to)h FJ(R)f FQ(in)f(the)i(left)f(ideal.)40
b(This)28 b(can)j(sa)m(v)m(e)h(time)e(and)g(space)h(with)664
2331 y(large)g(expressions,)e(but)h(the)g(result)f(cannot)i(b)s(e)f
(used)g(for)g(exterior)g(forms)g(of)664 2444 y(degree)h(greater)h(than)
e FJ(R)p FQ(.)g(See)h(also)f(the)h(switc)m(hes)f FJ(XSTATS)e
FQ(and)i FJ(XFULLREDUCTION)p FQ(.)664 2734 y FN(XMODULO)664
2942 y FJ(XMODULO)f FQ(reduces)h(exterior)g(forms)g(to)h(their)e
(\(unique\))g(normal)h(forms)f(mo)s(dulo)g(a)664 3042
y(left)h(ideal.)40 b(The)30 b(syn)m(tax)h(is)882 3248
y FH(XMODULO\(F:form,)37 b(S:list)42 b(of)g(forms\):form)664
3454 y FQ(or)882 3659 y FH(XMODULO\(F:list)c(of)43 b(forms,)e(S:list)g
(of)i(forms\):list)c(of)j(forms.)664 3865 y FQ(An)30
b(alternativ)m(e)h(in\014x)e(syn)m(tax)h(is)g(also)g(a)m(v)-5
b(ailable:)882 4071 y FH(F)43 b(XMODULO)e(S.)664 4290
y FJ(XMODULO\(F,S\))27 b FQ(\014rst)j(calculates)g(a)h(Gr\177)-45
b(obner)30 b(basis)f(for)h(the)h(left)f(ideal)f(generated)664
4403 y(b)m(y)g FJ(S)p FQ(,)g(and)f(then)g(reduces)h FJ(F)p
FQ(.)g FJ(F)f FQ(ma)m(y)h(b)s(e)g(either)f(a)h(single)f(exterior)g
(form,)h(or)g(a)g(list)f(of)664 4516 y(forms,)i(and)g
FJ(S)g FQ(is)f(a)i(list)e(of)i(forms.)40 b(If)30 b FJ(F)g
FQ(is)f(a)i(list)e(of)h(forms,)g(eac)m(h)i(elemen)m(t)f(is)664
4629 y(reduced,)f(and)g(an)m(y)h(whic)m(h)e(v)-5 b(anish)28
b(are)j(deleted)f(from)g(the)h(result.)39 b(If)30 b(this)g(op)s(erator)
664 4742 y(is)g(used)f(more)i(than)f(once,)h(and)f FJ(S)g
FQ(do)s(es)g(not)h(c)m(hange)g(b)s(et)m(w)m(een)g(calls,)f(then)g(the)
664 4855 y(Gr\177)-45 b(obner)30 b(basis)f(is)h(not)g(recalculated.)41
b(If)30 b(the)g(set)h(of)g(generators)g FJ(S)f FQ(is)g(graded,)g(then)p
eop
%%Page: 595 595
595 594 bop 241 299 a @beginspecial @setspecial @endspecial
FM(88.2.)72 b(SWITCHES)2105 b FQ(595)241 555 y(a)31 b(truncated)f
(Gr\177)-45 b(obner)30 b(basis)f(is)g(calculated)i(using)d(the)j
(degree)g(of)g FJ(F)f FQ(\(or)g(the)241 668 y(maximal)f(degree)i(in)e
FJ(F)p FQ(\).)241 956 y FN(XMODULOP)241 1164 y FJ(XMODULOP)f
FQ(reduces)i(exterior)g(forms)g(to)h(their)f(\(not)g(necessarily)g
(unique\))f(normal)241 1264 y(forms)h(mo)s(dulo)e(a)j(set)g(of)f
(exterior)h(p)s(olynomials.)38 b(The)30 b(syn)m(tax)h(is)459
1469 y FH(XMODULOP\(F:form)o(,)38 b(S:list)j(of)i(forms\):form)241
1675 y FQ(or)459 1881 y FH(XMODULOP\(F:list)37 b(of)43
b(forms,)e(S:list)g(of)i(forms\):list)c(of)k(forms.)241
2087 y FQ(An)30 b(alternativ)m(e)h(in\014x)d(syn)m(tax)j(is)e(also)i(a)
m(v)-5 b(ailable:)459 2293 y FH(F)43 b(XMODULOP)d(S.)241
2512 y FJ(XMODULOP\(F,S\))26 b FQ(reduces)j FJ(F)g FQ(with)f(resp)s
(ect)h(to)h(the)g(set)g(of)g(exterior)f(p)s(olynomials)e
FJ(S)p FQ(,)241 2625 y(whic)m(h)i(is)g(not)i(necessarily)e(a)i(Gr\177)
-45 b(obner)30 b(basis.)39 b FJ(F)30 b FQ(ma)m(y)h(b)s(e)f(either)g(a)h
(single)e(exterior)241 2738 y(form,)h(or)g(a)h(list)e(of)i(forms,)f
(and)f FJ(S)h FQ(is)g(a)h(list)e(of)h(forms.)40 b(This)29
b(op)s(erator)h(can)h(b)s(e)f(used)241 2851 y(in)f(conjunction)g(with)g
FJ(XIDEAL)g FQ(to)i(pro)s(duce)e(the)i(same)g(e\013ect)h(as)e
FJ(XMODULO)p FQ(:)f(for)h(a)241 2964 y(single)f(form)h
FJ(F)g FQ(in)f(an)h(ideal)f(generated)j(b)m(y)e(the)g(graded)h(set)g
FJ(S)p FQ(,)f FJ(F)47 b(XMODULO)f(S)30 b FQ(is)241 3077
y(equiv)-5 b(alen)m(t)30 b(to)h FJ(F)47 b(XMODULOP)f
(XIDEAL\(S,EXDEGREE)d(F\))p FQ(.)241 3229 y @beginspecial
@setspecial @endspecial 182 x FE(88.2)135 b(Switc)l(hes)241
3664 y FN(XFULLREDUCE)241 3885 y FJ(ON)47 b(XFULLREDUCE)27
b FQ(allo)m(ws)j FJ(XIDEAL)f FQ(and)g FJ(XMODULO)g FQ(to)i(calculate)g
(reduced)e(\(but)h(not)241 3998 y(necessarily)f(normed\))h(Gr\177)-45
b(obner)30 b(bases,)g(whic)m(h)f(sp)s(eeds)h(up)f(subsequen)m(t)241
4111 y(reductions,)g(and)h(guaran)m(tees)i(a)e(unique)f(form)h(\(up)f
(to)j(scaling\))d(for)i(the)f(Gr\177)-45 b(obner)241
4224 y(basis.)39 b FJ(OFF)47 b(XFULLREDUCE)28 b FQ(turns)h(of)h(this)f
(feature,)j(whic)m(h)d(ma)m(y)i(sp)s(eed)e(up)241 4337
y(calculation)g(of)i(the)f(Gr\177)-45 b(obner)30 b(basis.)40
b FJ(XFULLREDUCE)27 b FQ(is)i FJ(ON)h FQ(b)m(y)h(default.)241
4624 y FN(XST)-9 b(A)g(TS)241 4846 y FJ(ON)47 b(XSTATS)29
b FQ(pro)s(duces)g(coun)m(ting)h(and)g(timing)f(information.)39
b(As)30 b FJ(XIDEAL)f FQ(is)241 4959 y(running,)d(a)k(hash)e(mark)g(\()
p FJ(#)p FQ(\))h(is)f(prin)m(ted)g(for)g(eac)m(h)i(form)e(tak)m(en)i
(from)f(the)g(input)e(list,)p eop
%%Page: 596 596
596 595 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(596)57 b FM(CHAPTER)30 b(88.)72 b(XIDEAL:)31 b(GR)2099
276 y(\177)2083 299 y(OBNER)f(F)m(OR)h(EXTERIOR)e(ALGEBRA)664
555 y FQ(follo)m(w)m(ed)h(b)m(y)g(a)h(sequences)g(of)f(carets)i(\()p
FJ(^)p FQ(\))e(and)g(dollar)f(signs)g(\()p FJ($)p FQ(\).)41
b(Eac)m(h)31 b(caret)664 668 y(represen)m(ts)f(a)h(new)f(basis)f
(elemen)m(t)i(obtained)f(b)m(y)g(a)h(simple)d(w)m(edge)j(pro)s(duct,)f
(and)664 781 y(eac)m(h)i(dollar)d(sign)g(represen)m(ts)h(a)h(new)f
(basis)f(elemen)m(t)i(obtained)f(from)g(an)664 894 y(S-p)s(olynomial.)
38 b(A)m(t)31 b(the)g(end,)f(a)h(table)f(is)f(prin)m(ted)g(summarising)
f(the)i(calculation.)664 1007 y FJ(XSTATS)f FQ(is)g FJ(OFF)h
FQ(b)m(y)g(default.)664 1162 y @beginspecial @setspecial
@endspecial 181 x FE(88.3)136 b(Examples)664 1596 y FQ(Supp)s(ose)29
b(EX)m(CALC)h(and)g(XIDEAL)g(ha)m(v)m(e)i(b)s(een)e(loaded,)g(the)g
(switc)m(hes)g(are)h(at)664 1709 y(their)f(default)f(settings,)i(and)f
(the)g(follo)m(wing)f(exterior)h(v)-5 b(ariables)29 b(ha)m(v)m(e)j(b)s
(een)664 1822 y(declared:)882 2052 y FH(pform)42 b(x=0,y=0,z=0,t=0)o
(,f\()o(i\))o(=1,)o(h=)o(0,)o(hx=)o(0,)o(ht=)o(0;)664
2283 y FQ(In)30 b(a)h(comm)m(utativ)m(e)g(p)s(olynomial)d(ring,)i(a)g
(single)f(p)s(olynomial)f(is)h(its)h(o)m(wn)h(Gr\177)-45
b(obner)664 2383 y(basis.)40 b(This)28 b(is)i(no)g(longer)g(true)g(for)
g(exterior)h(algebras)f(b)s(ecause)g(of)h(the)f(presence)664
2483 y(of)h(zero)g(divisors,)d(and)i(can)h(lead)f(to)h(some)f
(surprising)d(reductions:)882 2688 y FH(xideal)41 b({d)i(x^d)f(y)h(-)h
(d)f(z^d)f(t};)1100 2888 y({d)h(T^d)f(Z)h(+)g(d)h(X^d)e(Y,)1144
3087 y(d)h(X^d)f(Y^d)g(Z,)1144 3286 y(d)h(T^d)f(X^d)g(Y})882
3485 y(f\(3\)^f\(4\)^f\(5\)^f)o(\(6\))969 3585 y(xmodulo)f
({f\(1\)^f\(2\))e(+)44 b(f\(3\)^f\(4\))39 b(+)44 b(f\(5\)^f\(6\)};)1100
3784 y(0)664 3990 y FQ(The)30 b(heat)h(equation,)g FL(h)1502
4004 y FF(xx)1611 3990 y FQ(=)25 b FL(h)1759 4004 y FF(t)1819
3990 y FQ(can)31 b(b)s(e)e(represen)m(ted)i(b)m(y)f(the)h(follo)m(wing)
d(exterior)664 4090 y(di\013eren)m(tial)h(system.)882
4296 y FH(S)43 b(:=)g({d)g(h)g(-)g(ht*d)f(t)h(-)g(hx*d)f(x,)1144
4395 y(d)h(ht^d)f(t)h(+)g(d)g(hx^d)f(x,)1144 4495 y(d)h(hx^d)f(t)h(-)g
(ht*d)f(x^d)g(t};)664 4701 y FJ(XMODULO)28 b FQ(can)i(b)s(e)g(used)f
(to)i(c)m(hec)m(k)g(that)g(the)f(exterior)g(di\013eren)m(tial)e(system)
i(is)f(closed)664 4800 y(under)g(exterior)h(di\013eren)m(tiation.)p
eop
%%Page: 597 597
597 596 bop 241 299 a @beginspecial @setspecial @endspecial
FM(88.3.)72 b(EXAMPLES)2082 b FQ(597)459 555 y FH(d)43
b(S)g(xmodulo)e(S;)677 754 y({})241 960 y FQ(Non-graded)30
b(left)h(and)e(righ)m(t)h(ideals)f(are)i(no)f(longer)g(the)h(same:)459
1166 y FH(d)43 b(t^\(d)f(z+d)g(x^d)g(y\))h(xmodulo)e({d)i(z+d)f(x^d)g
(y};)677 1365 y(0)459 1565 y(\(d)g(z+d)h(x^d)f(y\)^d)g(t)h(xmodulo)e
({d)i(z+d)f(x^d)g(y};)720 1764 y(-)h(2*d)g(t^d)f(z)241
1970 y FQ(Higher)29 b(order)h(forms)g(can)h(no)m(w)f(reduce)g(lo)m(w)m
(er)h(order)f(ones:)459 2176 y FH(d)43 b(x)g(xmodulo)e({d)h(y^d)h(z)g
(+)g(d)g(x,d)g(x^d)f(y)h(+)g(d)h(z};)677 2375 y(0)241
2581 y FQ(An)m(y)30 b(form)g(con)m(taining)g(a)h(0-form)f(term)h
(generates)h(the)e(whole)g(ideal:)459 2787 y FH(xideal)41
b({1)i(+)g(f\(1\))f(+)h(f\(1\)^f\(2\))d(+)j(f\(2\)^f\(3\)^f\(4\)};)677
2986 y({1})p eop
%%Page: 598 598
598 597 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(598)57 b FM(CHAPTER)30 b(88.)72 b(XIDEAL:)31 b(GR)2099
276 y(\177)2083 299 y(OBNER)f(F)m(OR)h(EXTERIOR)e(ALGEBRA)p
eop
%%Page: 599 599
599 598 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(89)241 1693 y FT(ZEILBER)-6 b(G:)75 b(A)i(pac)-6 b(k)-13
b(age)77 b(for)241 1942 y(inde\014nite)g(and)h(de\014nite)241
2191 y(summation)1130 2664 y Fx(W)-6 b(olfram)26 b(Ko)r(epf)g(and)f
(Gregor)i(St\177)-38 b(olting)826 2755 y(Konrad{Zuse{Zen)n(trum)25
b(f)r(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2847 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2938
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1370 3059 y(e{mail:)35
b(Ko)r(epf@zib.de)241 3303 y FQ(The)30 b(ZEILBER)m(G)g(pac)m(k)-5
b(age)32 b(pro)m(vides)e(an)g(implemen)m(tation)f(of)i(the)f(Gosp)s(er)
g(and)241 3416 y(Zeilb)s(erger)e(algorithms)h(for)h(inde\014nite,)f
(and)g(de\014nite)h(summation)f(of)241 3529 y(h)m(yp)s(ergeometric)h
(terms,)h(resp)s(ectiv)m(ely)-8 b(,)30 b(with)f(extensions)h(for)g
(ratios)g(of)h(pro)s(ducts)241 3642 y(of)f(p)s(o)m(w)m(ers,)h
(factorials,)f(\000)g(function)f(terms,)i(binomial)d(co)s(e\016cien)m
(ts,)j(and)f(shifted)241 3755 y(factorials)g(that)h(are)g
(rational-linear)d(in)h(their)h(argumen)m(ts.)241 3910
y @beginspecial @setspecial @endspecial 181 x FE(89.1)135
b(The)45 b(GOSPER)g(summation)g(op)t(erator)241 4344
y FQ(The)30 b FJ(gosper)e FQ(op)s(erator)j(is)e(an)i(implemen)m(tation)
e(of)h(the)h(Gosp)s(er)f(algorithm.)377 4581 y FP(\017)46
b FJ(gosper\(a,k\))27 b FQ(determines)j(a)g(closed)h(form)f(an)m
(tidi\013erence.)40 b(If)30 b(it)g(do)s(es)g(not)468
4694 y(return)f(a)i(closed)f(form)g(solution,)f(then)h(a)h(closed)f
(form)g(solution)f(do)s(es)h(not)468 4807 y(exist.)1667
5187 y(599)p eop
%%Page: 600 600
600 599 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(600)165 b FM(CHAPTER)30 b(89.)72 b(ZEILBER)m(G:)30
b(INDEF)h(&)f(DEFINITE)h(SUMMA)-8 b(TION)801 555 y FP(\017)45
b FJ(gosper\(a,k,m,n\))27 b FQ(determines)2198 712 y
FF(n)2159 737 y FB(X)2141 921 y FF(k)r FO(=)p FF(m)2312
818 y FL(a)2360 833 y FF(k)891 1092 y FQ(using)i(Gosp)s(er's)h
(algorithm.)40 b(This)29 b(is)g(only)h(successful)f(if)g(Gosp)s(er's)
891 1205 y(algorithm)h(applies.)664 1443 y(Example:)664
1674 y FH(gosper\(\(-1\)^\(k+1\))o(*\()o(4*)o(k+1)o(\)*)o(fac)o(to)o
(ria)o(l\()o(2*)o(k\)/)795 1773 y(\(factorial\(k\)*4^)o(k*)o(\(2*)o(k-)
o(1\)*)o(fa)o(cto)o(ri)o(al)o(\(k+)o(1\))o(\),k)o(\);)1274
1972 y(k)926 2072 y(-)43 b(\()g(-)g(1\))g(*factorial\(2*k\))664
2172 y(-----------------)o(--)o(--)o(---)o(--)o(---)o(--)o(---)o(--)751
2271 y(2*k)708 2371 y(2)130 b(*factorial\(k)39 b(+)k
(1\)*factorial\(k\))664 2570 y(gosper\(binomial\(k)o(,n)o(\),)o(k\);)
708 2769 y(\(k)g(+)g(1\)*binomial\(k,n)o(\))664 2869
y(-----------------)o(--)o(--)o(--)1056 2969 y(n)h(+)f(1)664
3106 y @beginspecial @setspecial @endspecial 199 x FE(89.2)136
b(EXTENDED)p 1817 3305 41 4 v 48 w(GOSPER)45 b(op)t(erator)664
3558 y FQ(The)30 b FJ(extended)p 1241 3558 29 4 v 32
w(gosper)f FQ(op)s(erator)i(is)e(an)h(implemen)m(tation)f(of)i(an)f
(extended)664 3671 y(v)m(ersion)g(of)h(Gosp)s(er's)f(algorithm.)801
3933 y FP(\017)45 b FJ(extended)p 1281 3933 V 33 w(gosper\(a,k\))27
b FQ(determines)i(an)i(an)m(tidi\013erence)e FL(g)3053
3948 y FF(k)3127 3933 y FQ(of)h FL(a)3278 3948 y FF(k)891
4046 y FQ(whenev)m(er)h(there)f(is)g(a)g(n)m(um)m(b)s(er)g
FL(m)g FQ(suc)m(h)g(that)h FL(h)2586 4061 y FF(k)2649
4046 y FP(\000)20 b FL(h)2792 4061 y FF(k)r Fu(\000)p
FF(m)2977 4046 y FQ(=)25 b FL(a)3121 4061 y FF(k)3164
4046 y FQ(,)31 b(and)e FL(h)3448 4061 y FF(k)3522 4046
y FQ(is)891 4159 y(an)i FL(m)p FM(-fold)e(h)m(yp)s(ergeometric)i(term)p
FQ(,)f(i.)g(e.)1267 4363 y FL(h)1319 4378 y FF(k)1362
4363 y FL(=h)1459 4378 y FF(k)r Fu(\000)p FF(m)1711 4363
y FQ(is)f(a)i(rational)e(function)h(with)f(resp)s(ect)h(to)h
FL(k)s FQ(.)891 4567 y(If)f(it)g(do)s(es)g(not)h(return)e(a)i
(solution,)e(then)h(suc)m(h)g(a)h(solution)e(do)s(es)h(not)h(exist.)801
4755 y FP(\017)45 b FJ(extended)p 1281 4755 V 33 w(gosper\(a,k,m\))26
b FQ(determines)k(an)g FL(m)p FM(-fold)f(an)m(tidi\013erence)h
FL(h)3447 4770 y FF(k)3521 4755 y FQ(of)891 4868 y FL(a)939
4883 y FF(k)982 4868 y FQ(,)h(i.)f(e.)g FL(h)1266 4883
y FF(k)1330 4868 y FP(\000)20 b FL(h)1473 4883 y FF(k)r
Fu(\000)p FF(m)1658 4868 y FQ(=)25 b FL(a)1802 4883 y
FF(k)1845 4868 y FQ(,)30 b(if)g(it)g(is)f(an)h FL(m)p
FQ(-fold)g(h)m(yp)s(ergeometric)g(term.)p eop
%%Page: 601 601
601 600 bop 241 299 a @beginspecial @setspecial @endspecial
FM(89.3.)72 b(SUMRECURSION)29 b(OPERA)-8 b(TOR)1285 b
FQ(601)241 555 y(Examples:)241 785 y FH(extended_gosper\()o(bi)o(no)o
(mia)o(l\()o(k/2)o(,n)o(\),k)o(\);)1069 984 y(k)1089
b(k)43 b(-)g(1)284 1084 y(\(k)g(+)g(2\)*binomial\(---,n)o(\))37
b(+)44 b(\(k)e(+)i(1\)*binomial\(---)o(--)o(--,)o(n\))1069
1183 y(2)1176 b(2)241 1283 y(----------------)o(--)o(--)o(---)o(--)o
(---)o(--)o(---)o(--)o(--)o(---)o(--)o(---)o(--)o(--)o(---)o(--)o(-)
1243 1383 y(2*\(n)42 b(+)h(1\))241 1582 y(extended_gosper\()o(k*)o(fa)o
(cto)o(ri)o(al\()o(k/)o(7\),)o(k,)o(7\))o(;)1069 1781
y(k)241 1881 y(\(k)g(+)g(7\)*factorial\(--)o(-\))1069
1980 y(7)241 2116 y @beginspecial @setspecial @endspecial
200 x FE(89.3)135 b(SUMRECURSION)46 b(op)t(erator)241
2568 y FQ(The)30 b FJ(sumrecursion)d FQ(op)s(erator)j(is)g(an)g
(implemen)m(tation)f(of)i(the)f(\(fast\))i(Zeilb)s(erger)241
2681 y(algorithm.)377 2913 y FP(\017)46 b FJ(sumrecursion\(f,k,n\))25
b FQ(determines)30 b(a)g(holonomic)g(recurrence)g(equation)468
3026 y(for)1405 3177 y FJ(sum)p FQ(\()p FJ(n)p FQ(\))25
b(=)1862 3071 y Fu(1)1838 3096 y FB(X)1788 3281 y FF(k)r
FO(=)p Fu(\0001)2022 3177 y FL(f)10 b FQ(\()p FL(n;)15
b(k)s FQ(\))468 3418 y(with)29 b(resp)s(ect)h(to)i FL(n)p
FQ(.)40 b(The)30 b(resulting)e(expression)h(equals)h(zero.)377
3603 y FP(\017)46 b FJ(sumrecursion\(f,k,n,j\))25 b FQ(searc)m(hes)31
b(for)f(a)h(holonomic)e(recurrence)468 3716 y(equation)f(of)g(order)g
FL(j)5 b FQ(.Note)30 b(that)e(if)f FL(j)34 b FQ(is)27
b(to)s(o)i(large,)g(the)f(recurrence)g(equation)468 3829
y(ma)m(y)j(not)g(b)s(e)e(unique,)g(and)h(only)f(one)i(particular)e
(solution)g(is)g(returned.)241 4059 y FH(sumrecursion\(bin)o(om)o(ia)o
(l\(n)o(,k)o(\),k)o(,n)o(\);)241 4258 y(2*sum\(n)40 b(-)k(1\))e(-)i
(sum\(n\))241 4401 y @beginspecial @setspecial @endspecial
192 x FE(89.4)135 b(HYPERRECURSION)47 b(op)t(erator)241
4846 y FQ(If)30 b(a)g(recursion)f(for)h(a)h(generalised)f(h)m(yp)s
(ergeometric)g(function)f(is)h(to)h(b)s(e)241 4959 y(established,)e
(one)h(can)h(use)p eop
%%Page: 602 602
602 601 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(602)165 b FM(CHAPTER)30 b(89.)72 b(ZEILBER)m(G:)30
b(INDEF)h(&)f(DEFINITE)h(SUMMA)-8 b(TION)801 555 y FP(\017)45
b FJ(hyperrecursion\(upper,lower)o(,x,n)o(\))24 b FQ(determines)30
b(a)g(holonomic)891 668 y(recurrence)h(equation)f(with)f(resp)s(ect)h
(to)h FL(n)f FQ(for)1662 947 y FF(p)1702 933 y FL(F)1760
947 y FF(q)1824 789 y FB( )1931 876 y FL(a)1979 890 y
FO(1)2018 876 y FL(;)84 b(a)2175 890 y FO(2)2214 876
y FL(;)f FP(\001)15 b(\001)g(\001)i FL(;)83 b(a)2600
890 y FF(p)1935 989 y FL(b)1974 1003 y FO(1)2014 989
y FL(;)92 b(b)2170 1003 y FO(2)2210 989 y FL(;)87 b FP(\001)15
b(\001)g(\001)i FL(;)88 b(b)2596 1003 y FF(q)2681 785
y FB(\014)2681 835 y(\014)2681 885 y(\014)2681 935 y(\014)2681
985 y(\014)2724 933 y FL(x)2776 789 y FB(!)2857 933 y
FL(;)891 1202 y FQ(where)30 b FJ(upper)p FQ(=)24 b FP(f)p
FL(a)1582 1216 y FO(1)1622 1202 y FL(;)15 b(a)1710 1216
y FO(2)1750 1202 y FL(;)g(:)g(:)g(:)h(;)f(a)1999 1216
y FF(p)2040 1202 y FP(g)30 b FQ(is)g(the)g(list)f(of)i(upp)s(er)d
(parameters,)j(and)891 1315 y FJ(lower)p FQ(=)24 b FP(f)p
FL(b)1310 1329 y FO(1)1350 1315 y FL(;)15 b(b)1429 1329
y FO(2)1469 1315 y FL(;)g(:)g(:)g(:)h(;)f(b)1709 1329
y FF(q)1748 1315 y FP(g)28 b FQ(is)e(the)i(list)e(of)i(lo)m(w)m(er)g
(parameters)g(dep)s(ending)d(on)i FL(n)p FQ(.)801 1503
y FP(\017)45 b FJ(hyperrecursion\(upper,lower)o(,x,n)o(,j\))24
b FQ(\()p FL(j)31 b FP(2)25 b FQ(I)-20 b(N)q(\))30 b(searc)m(hes)i
(only)d(for)h(a)891 1616 y(holonomic)g(recurrence)g(equation)g(of)h
(order)f FL(j)5 b FQ(.)41 b(This)28 b(op)s(erator)j(do)s(es)f(not)891
1729 y(automatically)h(use)f FJ(extended)p 2012 1729
29 4 v 32 w(sumrecursion)p FQ(.)664 1959 y FH(hyperrecursion\({-)o(n,)o
(b})o(,{c)o(},)o(1,n)o(\);)664 2159 y(\(b)43 b(-)g(c)g(-)g(n)h(+)f
(1\)*sum\(n)d(-)j(1\))g(+)g(\(c)g(+)g(n)g(-)g(1\)*sum\(n\))664
2403 y FQ(If)30 b(a)h(h)m(yp)s(ergeometric)f(expression)f(is)h(giv)m
(en)g(in)f(h)m(yp)s(ergeometric)i(notation,)g(then)664
2516 y(the)g(use)f(of)g FJ(hyperrecursion)d FQ(is)i(more)i(natural)e
(than)h(the)h(use)f(of)g FJ(sumrecursion)p FQ(.)664 2678
y(Moreo)m(v)m(er)j(the)d(REDUCE)g(op)s(erator)801 2916
y FP(\017)45 b FJ(hyperterm\(upper,lower,x,k\))24 b FQ(yields)k(the)j
(h)m(yp)s(ergeometric)f(term)1822 3104 y(\()p FL(a)1905
3118 y FO(1)1945 3104 y FQ(\))1980 3119 y FF(k)2044 3104
y FP(\001)20 b FQ(\()p FL(a)2172 3118 y FO(2)2212 3104
y FQ(\))2247 3119 y FF(k)2305 3104 y FP(\001)15 b(\001)g(\001)h
FQ(\()p FL(a)2509 3118 y FF(p)2549 3104 y FQ(\))2584
3119 y FF(k)p 1792 3144 867 4 v 1792 3228 a FQ(\()p FL(b)1866
3242 y FO(1)1905 3228 y FQ(\))1940 3243 y FF(k)2004 3228
y FP(\001)k FQ(\()p FL(b)2123 3242 y FO(2)2163 3228 y
FQ(\))2198 3243 y FF(k)2256 3228 y FP(\001)15 b(\001)g(\001)h
FQ(\()p FL(b)2451 3242 y FF(q)2490 3228 y FQ(\))2525
3243 y FF(k)2583 3228 y FL(k)s FQ(!)2668 3165 y FL(x)2720
3128 y FF(k)891 3422 y FQ(with)30 b(upp)s(er)e(parameters)j
FJ(upper)p FQ(=)23 b FP(f)p FL(a)2257 3436 y FO(1)2297
3422 y FL(;)15 b(a)2385 3436 y FO(2)2425 3422 y FL(;)g(:)g(:)g(:)i(;)e
(a)2675 3436 y FF(p)2715 3422 y FP(g)p FQ(,)31 b(and)f(lo)m(w)m(er)891
3535 y(parameters)h FJ(lower)p FQ(=)24 b FP(f)p FL(b)1781
3549 y FO(1)1821 3535 y FL(;)15 b(b)1900 3549 y FO(2)1940
3535 y FL(;)g(:)g(:)g(:)h(;)f(b)2180 3549 y FF(q)2219
3535 y FP(g)664 3772 y FQ(in)29 b(connection)i(with)e(h)m(yp)s
(ergeometric)h(terms.)664 3927 y @beginspecial @setspecial
@endspecial 182 x FE(89.5)136 b(HYPERSUM)44 b(op)t(erator)664
4361 y FQ(With)30 b(the)h(op)s(erator)f FJ(hypersum)p
FQ(,)f(h)m(yp)s(ergeometric)h(sums)f(are)i(directly)e(ev)-5
b(aluated)664 4474 y(in)29 b(closed)h(form)g(whenev)m(er)h(the)f
(extended)g(Zeilb)s(erger)f(algorithm)g(leads)h(to)h(a)664
4587 y(recurrence)f(equation)h(con)m(taining)e(only)h(t)m(w)m(o)i
(terms:)801 4825 y FP(\017)45 b FJ(hypersum\(upper,lower,x,n\))24
b FQ(determines)29 b(a)i(closed)f(form)891 4938 y(represen)m(tation)h
(for)p eop
%%Page: 603 603
603 602 bop 241 299 a @beginspecial @setspecial @endspecial
FM(89.6.)72 b(SUMTOHYPER)30 b(OPERA)-8 b(TOR)1373 b FQ(603)468
625 y FF(p)508 611 y FL(F)566 625 y FF(q)629 467 y FB( )737
555 y FL(a)785 569 y FO(1)824 555 y FL(;)83 b(a)980 569
y FO(2)1020 555 y FL(;)g FP(\001)15 b(\001)g(\001)h FL(;)84
b(a)1406 569 y FF(p)741 667 y FL(b)780 681 y FO(1)820
667 y FL(;)92 b(b)976 681 y FO(2)1015 667 y FL(;)c FP(\001)15
b(\001)g(\001)h FL(;)89 b(b)1402 681 y FF(q)1487 464
y FB(\014)1487 514 y(\014)1487 564 y(\014)1487 613 y(\014)1487
663 y(\014)1530 611 y FL(x)1582 467 y FB(!)1647 611 y
FQ(,)31 b(where)f FJ(upper)p FQ(=)23 b FP(f)p FL(a)2393
625 y FO(1)2433 611 y FL(;)15 b(a)2521 625 y FO(2)2561
611 y FL(;)g(:)g(:)g(:)i(;)e(a)2811 625 y FF(p)2851 611
y FP(g)31 b FQ(is)e(the)468 789 y(list)g(of)i(upp)s(er)d(parameters,)j
(and)f FJ(lower)p FQ(=)23 b FP(f)p FL(b)2075 803 y FO(1)2115
789 y FL(;)15 b(b)2194 803 y FO(2)2234 789 y FL(;)g(:)g(:)g(:)i(;)e(b)
2475 803 y FF(q)2513 789 y FP(g)31 b FQ(is)e(the)i(list)e(of)468
902 y(lo)m(w)m(er)i(parameters)f(dep)s(ending)e(on)j
FL(n)p FQ(.)40 b(The)30 b(result)f(is)g(giv)m(en)i(as)f(a)468
1015 y(h)m(yp)s(ergeometric)g(term)h(with)e(resp)s(ect)h(to)h
FL(n)p FQ(.)468 1166 y(If)f(the)h(result)e(is)g(a)i(list)e(of)i(length)
e FL(m)p FQ(,)i(w)m(e)g(call)e(it)h FL(m)p FQ(-)p FM(fold)g(symmetric)p
FQ(,)f(whic)m(h)468 1278 y(is)g(to)j(b)s(e)d(in)m(terpreted)h(as)h
(follo)m(ws:)39 b(Its)31 b FL(j)1884 1245 y FF(th)1985
1278 y FQ(part)f(is)g(the)g(solution)f(v)-5 b(alid)29
b(for)h(all)468 1391 y FL(n)g FQ(of)g(the)h(form)f FL(n)24
b FQ(=)h FL(mk)e FQ(+)d FL(j)26 b FP(\000)20 b FQ(1)25
b(\()p FL(k)k FP(2)c FQ(I)-19 b(N)1947 1405 y FO(0)1986
1391 y FQ(\).)41 b(In)30 b(particular,)f(if)g(the)h(resulting)468
1504 y(list)f(con)m(tains)i(t)m(w)m(o)g(terms,)g(then)f(the)h(\014rst)e
(part)h(is)g(the)g(solution)f(for)h(ev)m(en)h FL(n)p
FQ(,)468 1617 y(and)f(the)g(second)h(part)f(is)f(the)i(solution)e(for)h
(o)s(dd)f FL(n)p FQ(.)241 1848 y FH(hypersum\({a,1+a/)o(2,)o(c,)o(d,-)o
(n})o(,{a)o(/2)o(,1+)o(a-)o(c,)o(1+a)o(-d)o(,1+)o(a+)o(n})o(,1,)o(n\))o
(;)284 2047 y(pochhammer\(a)39 b(-)k(c)g(-)g(d)h(+)f
(1,n\)*pochhammer\()o(a)37 b(+)44 b(1,n\))241 2147 y(----------------)o
(--)o(--)o(---)o(--)o(---)o(--)o(---)o(--)o(--)o(---)o(--)o(---)o(--)o
(--)284 2246 y(pochhammer\(a)39 b(-)k(c)g(+)g(1,n\)*pochhammer\(a)37
b(-)43 b(d)g(+)h(1,n\))241 2446 y(hypersum\({a,1+a/)o(2,)o(d,)o(-n})o
(,{)o(a/2)o(,1)o(+a-)o(d,)o(1+)o(a+n)o(},)o(-1,)o(n\))o(;)328
2645 y(pochhammer\(a)39 b(+)k(1,n\))241 2745 y(----------------)o(--)o
(--)o(---)o(--)284 2844 y(pochhammer\(a)c(-)k(d)g(+)g(1,n\))241
3088 y FQ(Note)31 b(that)g(the)g(op)s(erator)g FJ(togamma)d
FQ(con)m(v)m(erts)k(expressions)d(giv)m(en)h(in)241 3201
y(factorial-\000-binomial-P)m(o)s(c)m(hhammer)e(notation)j(in)m(to)f(a)
h(pure)e(\000)i(function)241 3314 y(represen)m(tation:)241
3545 y FH(togamma\(hypersum)o(\({)o(a,)o(1+a)o(/2)o(,d,)o(-n)o(},{)o
(a/)o(2,)o(1+a)o(-d)o(,1+)o(a+)o(n})o(,-1)o(,n)o(\)\);)284
3744 y(gamma\(a)41 b(-)i(d)g(+)h(1\)*gamma\(a)39 b(+)k(n)g(+)h(1\))241
3844 y(----------------)o(--)o(--)o(---)o(--)o(---)o(--)o(---)o(--)284
3943 y(gamma\(a)d(-)i(d)g(+)h(n)f(+)g(1\)*gamma\(a)c(+)44
b(1\))241 4099 y @beginspecial @setspecial @endspecial
181 x FE(89.6)135 b(SUMTOHYPER)45 b(op)t(erator)241 4532
y FQ(With)30 b(the)g(op)s(erator)h FJ(sumtohyper)p FQ(,)d(sums)h(giv)m
(en)h(in)241 4645 y(factorial-\000-binomial-P)m(o)s(c)m(hhammer)e
(notation)j(are)g(con)m(v)m(erted)h(in)m(to)241 4758
y(h)m(yp)s(ergeometric)e(notation.)p eop
%%Page: 604 604
604 603 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(604)165 b FM(CHAPTER)30 b(89.)72 b(ZEILBER)m(G:)30
b(INDEF)h(&)f(DEFINITE)h(SUMMA)-8 b(TION)801 555 y FP(\017)45
b FJ(sumtohyper\(f,k\))27 b FQ(determines)i(the)i(h)m(yp)s(ergeometric)
f(represen)m(tation)g(of)966 621 y Fu(1)957 637 y FB(P)891
780 y FF(k)r FO(=)p Fu(\0001)1125 701 y FL(f)1170 716
y FF(k)1213 701 y FQ(,)g FD(i.e.)73 b FQ(its)29 b(output)h(is)g
FJ(c*hypergeometric\(upper,)o(lowe)o(r,x\))o FQ(,)891
867 y(corresp)s(onding)f(to)i(the)f(represen)m(tation)1438
1006 y Fu(1)1413 1031 y FB(X)1363 1216 y FF(k)r FO(=)p
Fu(\0001)1597 1112 y FL(f)1642 1127 y FF(k)1710 1112
y FQ(=)25 b FL(c)20 b FP(\001)1936 1126 y FF(p)1976 1112
y FL(F)2034 1126 y FF(q)2097 968 y FB( )2205 1055 y FL(a)2253
1069 y FO(1)2292 1055 y FL(;)83 b(a)2448 1069 y FO(2)2488
1055 y FL(;)g FP(\001)15 b(\001)g(\001)h FL(;)84 b(a)2874
1069 y FF(p)2209 1168 y FL(b)2248 1182 y FO(1)2288 1168
y FL(;)92 b(b)2444 1182 y FO(2)2483 1168 y FL(;)c FP(\001)15
b(\001)g(\001)h FL(;)89 b(b)2870 1182 y FF(q)2955 965
y FB(\014)2955 1015 y(\014)2955 1064 y(\014)2955 1114
y(\014)2955 1164 y(\014)2998 1112 y FL(x)3050 968 y FB(!)3156
1112 y FL(;)891 1379 y FQ(where)30 b FJ(upper)p FQ(=)24
b FP(f)p FL(a)1582 1393 y FO(1)1622 1379 y FL(;)15 b(a)1710
1393 y FO(2)1750 1379 y FL(;)g(:)g(:)g(:)h(;)f(a)1999
1393 y FF(p)2040 1379 y FP(g)30 b FQ(and)g FJ(lower)p
FQ(=)24 b FP(f)p FL(b)2711 1393 y FO(1)2751 1379 y FL(;)15
b(b)2830 1393 y FO(2)2869 1379 y FL(;)g(:)g(:)g(:)i(;)e(b)3110
1393 y FF(q)3148 1379 y FP(g)31 b FQ(are)g(the)891 1492
y(lists)e(of)i(upp)s(er)d(and)i(lo)m(w)m(er)h(parameters.)664
1713 y(Examples:)664 1941 y FH(sumtohyper\(binomi)o(al)o(\(n)o(,k\))o
(^3)o(,k\))o(;)664 2140 y(hypergeometric\({)37 b(-)43
b(n,)g(-)g(n,)g(-)g(n},{1,1},-1\))664 2293 y @beginspecial
@setspecial @endspecial 180 x FE(89.7)136 b(Simpli\014cation)46
b(Op)t(erators)664 2726 y FQ(F)-8 b(or)31 b(the)g(decision)e(that)i(an)
f(expression)f FL(a)2137 2741 y FF(k)2210 2726 y FQ(is)h(a)g(h)m(yp)s
(ergeometric)h(term,)f(it)g(is)664 2839 y(necessary)h(to)g(\014nd)e
(out)i(whether)e(or)i(not)f FL(a)2191 2854 y FF(k)2234
2839 y FL(=a)2327 2854 y FF(k)r Fu(\000)p FO(1)2491 2839
y FQ(is)f(a)i(rational)e(function)g(with)664 2952 y(resp)s(ect)i(to)g
FL(k)s FQ(.)40 b(F)-8 b(or)32 b(the)e(purp)s(ose)f(to)i(decide)f
(whether)f(or)i(not)f(an)h(expression)664 3065 y(in)m(v)m(olving)e(p)s
(o)m(w)m(ers,)i(factorials,)f(\000)g(function)f(terms,)i(binomial)c(co)
s(e\016cien)m(ts,)32 b(and)664 3178 y(P)m(o)s(c)m(hhammer)f(sym)m(b)s
(ols)e(is)g(a)i(h)m(yp)s(ergeometric)f(term,)h(the)f(follo)m(wing)664
3291 y(simpli\014cation)d(op)s(erators)k(can)f(b)s(e)g(used:)801
3512 y FP(\017)45 b FJ(simplify)p 1281 3512 29 4 v 33
w(gamma\(f\))28 b FQ(simpli\014es)f(an)j(expression)f
FJ(f)h FQ(in)m(v)m(olving)f(only)891 3625 y(rational,)h(p)s(o)m(w)m
(ers)h(and)e(\000)h(function)g(terms.)801 3806 y FP(\017)45
b FJ(simplify)p 1281 3806 V 33 w(combinatorial\(f\))26
b FQ(simpli\014es)h(an)j(expression)f FJ(f)h FQ(in)m(v)m(olving)891
3919 y(p)s(o)m(w)m(ers,)h(factorials,)f(\000)h(function)e(terms,)h
(binomial)e(co)s(e\016cien)m(ts,)j(and)891 4032 y(P)m(o)s(c)m(hhammer)g
(sym)m(b)s(ols)e(b)m(y)h(con)m(v)m(erting)h(factorials,)g(binomial)d
(co)s(e\016cien)m(ts,)891 4145 y(and)i(P)m(o)s(c)m(hhammer)h(sym)m(b)s
(ols)e(in)m(to)h(\000)g(function)f(terms,)i(and)f(applying)891
4258 y FJ(simplify)p 1281 4258 V 33 w(gamma)e FQ(to)j(its)f(result.)40
b(If)29 b(the)i(output)e(is)h(not)g(rational,)g(it)g(is)f(giv)m(en)891
4371 y(in)h(terms)g(of)g(\000)g(functions.)40 b(If)30
b(factorials)g(are)h(preferred)e(use)801 4552 y FP(\017)45
b FJ(gammatofactorial)26 b FQ(\(rule\))k(con)m(v)m(erting)h(\000)f
(function)g(terms)g(in)m(to)g(factorials)891 4665 y(using)f(\000)20
b(\()p FL(x)p FQ(\))26 b FP(!)f FQ(\()p FL(x)c FP(\000)f
FQ(1\)!.)801 4846 y FP(\017)45 b FJ(simplify)p 1281 4846
V 33 w(gamma2\(f\))27 b FQ(uses)j(the)h(duplication)d(form)m(ula)h(of)i
(the)f(\000)h(function)891 4959 y(to)h(simplify)27 b
FL(f)10 b FQ(.)p eop
%%Page: 605 605
605 604 bop 241 299 a @beginspecial @setspecial @endspecial
FM(89.7.)72 b(SIMPLIFICA)-8 b(TION)30 b(OPERA)-8 b(TORS)1213
b FQ(605)377 555 y FP(\017)46 b FJ(simplify)p 858 555
29 4 v 32 w(gamman\(f,n\))28 b FQ(uses)h(the)i(m)m(ultiplication)c
(form)m(ula)j(of)g(the)h(\000)468 668 y(function)e(to)i(simplify)c
FL(f)10 b FQ(.)241 906 y(The)30 b(use)g(of)g FJ(simplify)p
1078 906 V 32 w(combinatorial\(f\))c FQ(is)k(a)h(safe)f(w)m(a)m(y)i(to)
f(decide)f(the)241 1018 y(rationalit)m(y)f(for)h(an)m(y)g(ratio)g(of)h
(pro)s(ducts)d(of)i(p)s(o)m(w)m(ers,)h(factorials,)f(\000)g(function)e
(terms,)241 1131 y(binomial)g(co)s(e\016cien)m(ts,)j(and)f(P)m(o)s(c)m
(hhammer)g(sym)m(b)s(ols.)241 1294 y(Example:)241 1525
y FH(simplify_gamma2\()o(ga)o(mm)o(a\(2)o(*n)o(\)/g)o(am)o(ma\()o(n\))o
(\);)328 1724 y(2*n)347 b(2*n)43 b(+)g(1)284 1824 y(2)131
b(*gamma\(--------)o(-\))938 1923 y(2)241 2023 y(----------------)o(--)
o(--)o(---)502 2123 y(2*sqrt\(pi\))p eop
%%Page: 606 606
606 605 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(606)165 b FM(CHAPTER)30 b(89.)72 b(ZEILBER)m(G:)30
b(INDEF)h(&)f(DEFINITE)h(SUMMA)-8 b(TION)p eop
%%Page: 607 607
607 606 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(90)241 1693 y FT(ZTRANS:)76 b Fc(Z)15 b FT(-transform)241
1942 y(pac)-6 b(k)-13 b(age)1186 2424 y Fx(W)-6 b(olfram)26
b(Ko)r(epf)g(and)f(Lisa)i(T)-6 b(emme)826 2515 y(Konrad{Zuse{Zen)n
(trum)25 b(f)r(\177)-41 b(ur)26 b(Informationstec)n(hnik)f(Berlin)1521
2607 y(T)-6 b(akustra)l(\177)-34 b(se)27 b(7)1150 2698
y(D{14195)g(Berlin{Dahlem,)g(German)n(y)1370 2819 y(e{mail:)35
b(Ko)r(epf@zib.de)241 3061 y FQ(The)30 b FL(Z)7 b FQ(-T)-8
b(ransform)29 b(of)h(a)h(sequence)g FP(f)p FL(f)1613
3075 y FF(n)1660 3061 y FP(g)g FQ(is)e(the)i(discrete)f(analogue)h(of)f
(the)241 3174 y(Laplace)g(T)-8 b(ransform,)30 b(and)1173
3423 y FP(Z)7 b(f)p FL(f)1336 3437 y FF(n)1383 3423 y
FP(g)26 b FQ(=)f FL(F)13 b FQ(\()p FL(z)t FQ(\))26 b(=)1890
3317 y Fu(1)1866 3342 y FB(X)1859 3523 y FF(n)p FO(=0)2007
3423 y FL(f)2052 3437 y FF(n)2099 3423 y FL(z)2145 3385
y Fu(\000)p FF(n)2272 3423 y FL(:)241 3683 y FQ(This)i(series)i(con)m
(v)m(erges)i(in)d(the)i(region)f(outside)g(the)g(circle)241
3796 y FP(j)p FL(z)t FP(j)c FQ(=)f FP(j)p FL(z)526 3810
y FO(0)566 3796 y FP(j)g FQ(=)g(lim)15 b(sup)759 3863
y FF(n)p Fu(!1)1031 3762 y Fp(n)1019 3723 y FB(p)p 1102
3723 142 4 v 73 x FP(j)p FL(f)1172 3810 y FF(n)1218 3796
y FP(j)26 b FL(:)31 b FQ(In)e(the)i(same)f(w)m(a)m(y)i(that)f(a)g
(Laplace)f(T)-8 b(ransform)30 b(can)241 3943 y(b)s(e)g(used)f(to)i
(solv)m(e)g(di\013eren)m(tial)e(equations,)h(so)h FL(Z)7
b FQ(-T)-8 b(ransforms)29 b(can)h(b)s(e)g(used)g(to)241
4056 y(solv)m(e)g(di\013erence)g(equations.)241 4298
y FN(SYNT)-9 b(AX:)60 b FJ(ztrans\()p FL(f)1152 4312
y FF(n)1197 4298 y FJ(,)47 b(n,)h(z\))242 b FQ(where)29
b FL(f)2081 4312 y FF(n)2158 4298 y FQ(is)h(an)g(expression,)f(and)h
FL(n)p FQ(,)p FL(z)1774 4411 y FQ(are)g(iden)m(ti\014ers.)241
4846 y(This)e(pac)m(kage)33 b(can)d(compute)h(the)g FL(Z)7
b FQ(-T)-8 b(ransforms)29 b(of)h(the)h(follo)m(wing)e(list)g(of)h
FL(f)3003 4860 y FF(n)3050 4846 y FQ(,)g(and)241 4959
y(certain)g(com)m(binations)g(thereof.)1667 5187 y(607)p
eop
%%Page: 608 608
608 607 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(608)566 b FM(CHAPTER)30 b(90.)72 b(ZTRANS:)29 b FL(Z)7
b FM(-TRANSF)m(ORM)31 b(P)-8 b(A)m(CKA)m(GE)1054 668
y FQ(1)808 b FL(e)1949 635 y FF(\013n)2830 632 y FO(1)p
2752 647 192 4 v 2752 700 a(\()p FF(n)p FO(+)p FF(k)r
FO(\))1077 873 y(1)p 1064 888 63 4 v 1064 940 a FF(n)p
FO(!)1976 873 y(1)p 1917 888 153 4 v 1917 941 a(\(2)p
FF(n)p FO(\)!)2856 873 y(1)p 2752 888 243 4 v 2752 941
a(\(2)p FF(n)p FO(+1\)!)1064 1120 y(sin)o(\()p FF(\014)s(n)p
FO(\))p 1064 1143 228 4 v 1146 1196 a FF(n)p FO(!)1907
1164 y FQ(sin)o(\()p FL(\013n)20 b FQ(+)g FL(\036)p FQ(\))375
b FL(e)2784 1131 y FF(\013n)2892 1164 y FQ(sin)o(\()p
FL(\014)5 b(n)p FQ(\))1064 1361 y FO(cos\()p FF(\014)s(n)p
FO(\))p 1064 1384 236 4 v 1150 1437 a FF(n)p FO(!)1907
1405 y FQ(cos)q(\()p FL(\013n)20 b FQ(+)g FL(\036)p FQ(\))365
b FL(e)2784 1372 y FF(\013n)2892 1405 y FQ(cos)q(\()p
FL(\014)5 b(n)p FQ(\))1064 1602 y FO(sin)o(\()p FF(\014)s
FO(\()p FF(n)p FO(+1\)\))p 1064 1625 373 4 v 1183 1678
a FF(n)p FO(+1)1907 1646 y FQ(sinh)n(\()p FL(\013n)21
b FQ(+)f FL(\036)p FQ(\))2752 1602 y FO(cos)q(\()p FF(\014)s
FO(\()p FF(n)p FO(+1\)\))p 2752 1625 381 4 v 2876 1678
a FF(n)p FO(+1)1054 1884 y FQ(cosh\()p FL(\013n)g FQ(+)g
FL(\036)p FQ(\))1907 1815 y FB(\000)1945 1844 y FF(n)p
FO(+)p FF(k)1982 1915 y(m)2081 1815 y FB(\001)664 2241
y FN(Other)34 b(Com)m(binations)p 664 2254 933 4 v 664
2467 a FQ(Linearit)m(y)p 664 2498 361 4 v 572 w FP(Z)7
b(f)p FL(af)1808 2481 y FF(n)1875 2467 y FQ(+)20 b FL(bg)2048
2481 y FF(n)2095 2467 y FP(g)26 b FQ(=)f FL(a)p FP(Z)7
b(f)p FL(f)2473 2481 y FF(n)2520 2467 y FP(g)21 b FQ(+)e
FL(b)p FP(Z)7 b(f)p FL(g)2876 2481 y FF(n)2924 2467 y
FP(g)664 2711 y FQ(Multiplication)28 b(b)m(y)i FL(n)p
664 2742 775 4 v 158 w FP(Z)7 b(f)p FL(n)1770 2678 y
FF(k)1833 2711 y FP(\001)20 b FL(f)1923 2725 y FF(n)1969
2711 y FP(g)26 b FQ(=)f FP(\000)p FL(z)2281 2676 y FF(d)p
2263 2691 72 4 v 2263 2743 a(dz)2360 2617 y FB(\020)2410
2711 y FP(Z)7 b(f)p FL(n)2583 2678 y FF(k)r Fu(\000)p
FO(1)2736 2711 y FP(\001)20 b FL(f)2826 2725 y FF(n)2873
2711 y FL(;)15 b(n;)g(z)t FP(g)3099 2617 y FB(\021)664
2955 y FQ(Multiplication)28 b(b)m(y)i FL(\025)1437 2922
y FF(n)p 664 2986 820 4 v 1597 2955 a FP(Z)7 b(f)p FL(\025)1768
2922 y FF(n)1835 2955 y FP(\001)21 b FL(f)1926 2969 y
FF(n)1972 2955 y FP(g)26 b FQ(=)f FL(F)2225 2886 y FB(\000)2276
2919 y FF(z)p 2273 2934 42 4 v 2273 2987 a(\025)2324
2886 y FB(\001)664 3250 y FQ(Shift)k(Equation)p 664 3281
583 4 v 350 w FP(Z)7 b(f)p FL(f)1760 3265 y FF(n)p FO(+)p
FF(k)1900 3250 y FP(g)26 b FQ(=)f FL(z)2113 3217 y FF(k)2171
3106 y FB( )2236 3250 y FL(F)13 b FQ(\()p FL(z)t FQ(\))22
b FP(\000)2536 3169 y FF(k)r Fu(\000)p FO(1)2556 3185
y FB(P)2539 3326 y FF(j)t FO(=0)2680 3250 y FL(f)2725
3264 y FF(j)2761 3250 y FL(z)2807 3217 y Fu(\000)p FF(j)2898
3106 y FB(!)664 3587 y FQ(Sym)m(b)s(olic)29 b(Sums)p
664 3618 605 4 v 327 w FP(Z)1685 3468 y FB(\032)1790
3506 y FF(n)1768 3523 y FB(P)1747 3666 y FF(k)r FO(=0)1891
3587 y FL(f)1936 3602 y FF(k)1978 3468 y FB(\033)2066
3587 y FQ(=)2217 3551 y FF(z)p 2172 3566 126 4 v 2172
3618 a(z)s Fu(\000)p FO(1)2328 3587 y FP(\001)20 b(Z)7
b(f)p FL(f)2536 3601 y FF(n)2583 3587 y FP(g)1597 3934
y(Z)1685 3790 y FB(\()1752 3848 y FF(n)p FO(+)p FF(q)1774
3870 y FB(P)1753 4013 y FF(k)r FO(=)p FF(p)1898 3934
y FL(f)1943 3949 y FF(k)1986 3790 y FB(\))2174 3934 y
FQ(com)m(bination)29 b(of)i(the)f(ab)s(o)m(v)m(e)664
4228 y(where)g FL(k)s FQ(,)p FL(\025)c FP(2)k FN(N)p
FP(\000f)p FQ(0)p FP(g)p FQ(;)h(and)f FL(a)p FQ(,)p FL(b)h
FQ(are)f(v)-5 b(ariables)29 b(or)i(fractions;)f(and)g
FL(p)p FQ(,)p FL(q)e FP(2)i FN(Z)g FQ(or)664 4341 y(are)h(functions)e
(of)h FL(n)p FQ(;)h(and)e FL(\013)p FQ(,)i FL(\014)36
b FQ(and)30 b FL(\036)g FQ(are)h(angles)f(in)f(radians.)664
4585 y(The)h(calculation)g(of)g(the)h(Lauren)m(t)f(co)s(e\016cien)m(ts)
h(of)g(a)g(regular)e(function)g(results)g(in)664 4698
y(the)i(follo)m(wing)e(in)m(v)m(erse)h(form)m(ula)f(for)i(the)f
FL(Z)7 b FQ(-T)-8 b(ransform:)664 4860 y(If)30 b FL(F)13
b FQ(\()p FL(z)t FQ(\))31 b(is)f(a)h(regular)e(function)g(in)g(the)i
(region)f FP(j)p FL(z)t FP(j)c FL(>)f(\032)30 b FQ(then)g
FP(9)g FQ(a)h(sequence)g FP(f)p FL(f)3467 4874 y FF(n)3514
4860 y FP(g)p eop
%%Page: 609 609
609 608 bop 241 299 a @beginspecial @setspecial @endspecial
2852 w FQ(609)241 555 y(with)29 b FP(Z)7 b(f)p FL(f)611
569 y FF(n)658 555 y FP(g)26 b FQ(=)f FL(F)13 b FQ(\()p
FL(z)t FQ(\))31 b(giv)m(en)f(b)m(y)1264 774 y FL(f)1309
788 y FF(n)1380 774 y FQ(=)1530 712 y(1)p 1486 753 132
4 v 1486 836 a(2)p FL(\031)s(i)1643 659 y FB(I)1742 774
y FL(F)13 b FQ(\()p FL(z)t FQ(\))p FL(z)1975 736 y FF(n)p
Fu(\000)p FO(1)2113 774 y FL(dz)241 1050 y FN(SYNT)-9
b(AX:)60 b FJ(invztrans\()p FL(F)13 b FQ(\()p FL(z)t
FQ(\))p FJ(,)46 b(z,)h(n\))242 b FQ(where)30 b FL(F)13
b FQ(\()p FL(z)t FQ(\))32 b(is)d(an)h(expression,)2013
1163 y(and)g FL(z)t FQ(,)p FL(n)g FQ(are)h(iden)m(ti\014ers.)241
1480 y(This)d(pac)m(k)-5 b(age)33 b(can)d(compute)h(the)g(In)m(v)m
(erse)f(Z-T)-8 b(ransforms)30 b(of)g(an)m(y)h(rational)e(function,)241
1593 y(whose)h(denominator)g(can)g(b)s(e)g(factored)h(o)m(v)m(er)h
FN(Q)p FQ(,)e(in)f(addition)g(to)i(the)f(follo)m(wing)f(list)241
1706 y(of)h FL(F)13 b FQ(\()p FL(z)t FQ(\).)448 1967
y(sin)575 1873 y FB(\020)635 1923 y FO(sin)o(\()p FF(\014)s
FO(\))p 635 1946 185 4 v 709 1999 a FF(z)859 1873 y FB(\021)924
1967 y FL(e)966 1861 y FB(\000)1015 1890 y Fy(cos\()p
Fp(\014)s Fy(\))p 1015 1909 168 4 v 1082 1950 a Fp(z)1222
1861 y FB(\001)1787 1967 y FQ(cos)1924 1873 y FB(\020)1984
1923 y FO(sin\()p FF(\014)s FO(\))p 1984 1946 185 4 v
2058 1999 a FF(z)2209 1873 y FB(\021)2273 1967 y FL(e)2315
1861 y FB(\000)2364 1890 y Fy(cos)q(\()p Fp(\014)s Fy(\))p
2364 1909 168 4 v 2432 1950 a Fp(z)2571 1861 y FB(\001)448
2139 y(q)p 531 2139 73 4 v 550 2195 a FF(z)p 541 2210
53 4 v 541 2262 a(A)619 2230 y FQ(sin)746 2136 y FB(\020)796
2139 y(q)p 879 2139 73 4 v 897 2195 a FF(z)p 889 2210
53 4 v 889 2262 a(A)982 2136 y FB(\021)1787 2230 y FQ(cos)1924
2136 y FB(\020)1974 2139 y(q)p 2057 2139 73 4 v 2076
2195 a FF(z)p 2067 2210 53 4 v 2067 2262 a(A)2160 2136
y FB(\021)448 2404 y(q)p 531 2404 73 4 v 550 2460 a FF(z)p
541 2475 53 4 v 541 2527 a(A)619 2496 y FQ(sinh)797 2402
y FB(\020)846 2404 y(q)p 929 2404 73 4 v 948 2460 a FF(z)p
939 2475 53 4 v 939 2527 a(A)1032 2402 y FB(\021)1787
2496 y FQ(cosh)1975 2402 y FB(\020)2024 2404 y(q)p 2107
2404 73 4 v 2126 2460 a FF(z)p 2117 2475 53 4 v 2117
2527 a(A)2211 2402 y FB(\021)448 2761 y FL(z)50 b FQ(log)673
2667 y FB(\020)906 2725 y FF(z)p 732 2740 384 4 v 732
2749 a Fu(p)p 791 2749 325 3 v 56 x FF(z)827 2786 y Fy(2)861
2805 y Fu(\000)p FF(Az)s FO(+)p FF(B)1156 2667 y FB(\021)1787
2761 y FL(z)g FQ(log)2012 2667 y FB(\020)2071 2669 y
Fu(p)p 2130 2669 V 56 x FF(z)2166 2706 y Fy(2)2200 2725
y FO(+)p FF(Az)s FO(+)p FF(B)p 2071 2740 384 4 v 2245
2792 a(z)2495 2667 y FB(\021)448 3023 y FQ(arctan)716
2929 y FB(\020)825 2979 y FO(sin\()p FF(\014)s FO(\))p
776 3002 283 4 v 776 3055 a FF(z)s FO(+cos\()p FF(\014)s
FO(\))1099 2929 y FB(\021)241 3395 y FQ(here)30 b FL(k)s
FQ(,)p FL(\025)c FP(2)k FN(N)p FP(\000f)p FQ(0)p FP(g)h
FQ(and)f FL(A)p FQ(,)p FL(B)35 b FQ(are)c(fractions)f(or)g(v)-5
b(ariables)29 b(\()p FL(B)h(>)25 b FQ(0\))31 b(and)f
FL(\013)p FQ(,)p FL(\014)5 b FQ(,)31 b(&)241 3507 y FL(\036)f
FQ(are)h(angles)f(in)f(radians.)241 3657 y(Examples:)241
3863 y FH(ztrans\(sum\(1/fac)o(to)o(ri)o(al\()o(k\))o(,k,)o(0,)o(n\),)o
(n,)o(z\))o(;)328 4062 y(1/z)284 4162 y(e)131 b(*z)241
4261 y(--------)284 4361 y(z)44 b(-)f(1)241 4560 y(invztrans\(z/\(\(z-)
o(a\))o(*\()o(z-b)o(\)\))o(,z,)o(n\))o(;)328 4759 y(n)174
b(n)284 4859 y(a)87 b(-)43 b(b)241 4959 y(---------)p
eop
%%Page: 610 610
610 609 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(610)566 b FM(CHAPTER)30 b(90.)72 b(ZTRANS:)29 b FL(Z)7
b FM(-TRANSF)m(ORM)31 b(P)-8 b(A)m(CKA)m(GE)751 555 y
FH(a)44 b(-)f(b)p eop
%%Page: 611 611
611 610 bop 241 299 a @beginspecial @setspecial @endspecial
1470 x @beginspecial @setspecial @endspecial 1401 2026
a FI(P)-5 b(art)66 b(I)5 b(I)g(I)623 2491 y FT(Standard)78
b(Lisp)f(Rep)6 b(ort)1667 5187 y FQ(611)p eop
%%Page: 612 612
612 611 bop 664 299 a @beginspecial @setspecial @endspecial
eop
%%Page: 613 613
613 612 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(Chapter)64
b(91)241 1693 y FT(The)77 b(Standard)h(Lisp)e(Rep)6 b(ort)1569
2175 y Fx(Jed)26 b(Marti)1530 2266 y(A.)g(C.)g(Hearn)1543
2358 y(M.)g(L.)g(Griss)1598 2449 y(C.)g(Griss)241 2667
y @beginspecial @setspecial @endspecial 199 x FE(91.1)135
b(In)l(tro)t(duction)241 3119 y FQ(Although)29 b(the)i(programming)e
(language)i(LISP)e(w)m(as)i(\014rst)e(form)m(ulated)h(in)241
3232 y(1960)i([)p @beginspecial @setspecial @endspecial(16)q(],)f(a)g
(widely)d(accepted)k(standard)d(has)h(nev)m(er)h(app)s(eared.)40
b(As)30 b(a)h(result,)241 3345 y(v)-5 b(arious)29 b(dialects)h(of)g
(LISP)g(w)m(ere)h(pro)s(duced)d([)p @beginspecial @setspecial
@endspecial(2)q(,)j @beginspecial @setspecial @endspecial(9,)g
@beginspecial @setspecial @endspecial(15)q(,)f @beginspecial
@setspecial @endspecial(19)q(,)h @beginspecial @setspecial
@endspecial(17,)g @beginspecial @setspecial @endspecial(18)q(])f(in)g
(some)g(cases)241 3458 y(sev)m(eral)h(on)f(the)g(same)h(mac)m(hine!)41
b(Consequen)m(tly)-8 b(,)30 b(a)h(user)e(often)i(faces)g(considerable)
241 3571 y(di\016cult)m(y)e(in)g(mo)m(ving)h(programs)g(from)g(one)g
(system)h(to)g(another.)41 b(In)30 b(addition,)e(it)241
3684 y(is)h(di\016cult)g(to)i(write)e(and)h(use)g(programs)g(whic)m(h)f
(dep)s(end)g(on)h(the)h(structure)f(of)g(the)241 3797
y(source)g(co)s(de)h(suc)m(h)f(as)h(translators,)f(editors)g(and)f
(cross-reference)j(programs.)241 3959 y(In)c(1969,)j(a)e(mo)s(del)f
(for)h(suc)m(h)f(a)i(standard)e(w)m(as)h(pro)s(duced)e([)p
@beginspecial @setspecial @endspecial(12)q(])i(as)g(part)g(of)g(a)g
(general)241 4072 y(e\013ort)i(to)g(mak)m(e)g(a)g(large)g(LISP)e(based)
h(algebraic)g(manipulation)e(program,)241 4185 y(REDUCE)i([)p
@beginspecial @setspecial @endspecial(11)q(],)h(as)g(p)s(ortable)e(as)i
(p)s(ossible.)38 b(The)30 b(goal)h(of)f(this)f(w)m(ork)i(w)m(as)g(to)g
(de\014ne)241 4298 y(a)g(uniform)d(subset)h(of)i(LISP)e(1.5)j(and)e
(its)f(v)-5 b(arian)m(ts)31 b(so)f(that)h(programs)f(written)g(in)241
4411 y(this)f(subset)h(could)f(run)g(on)h(an)m(y)h(reasonable)f(LISP)g
(system.)241 4574 y(In)f(the)i(in)m(terv)m(ening)e(y)m(ears,)j(t)m(w)m
(o)f(de\014ciencies)f(in)f(the)h(approac)m(h)h(tak)m(en)g(in)f(Ref.)g
([)p @beginspecial @setspecial @endspecial(12)q(])241
4687 y(ha)m(v)m(e)h(emerged.)42 b(First)29 b(in)g(order)h(to)h(b)s(e)f
(as)h(general)f(as)h(p)s(ossible,)d(the)i(sp)s(eci\014c)241
4800 y(seman)m(tics)g(and)g(v)-5 b(alues)30 b(of)g(sev)m(eral)h(k)m(ey)
g(functions)e(w)m(ere)i(left)f(unde\014ned.)241 4912
y(Consequen)m(tly)-8 b(,)30 b(programs)g(built)e(on)j(this)e(subset)h
(could)f(not)i(mak)m(e)g(an)m(y)1667 5187 y(613)p eop
%%Page: 614 614
614 613 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(614)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FQ(assumptions)29
b(ab)s(out)h(the)h(form)e(of)i(the)g(v)-5 b(alues)29
b(of)i(suc)m(h)f(functions.)39 b(The)30 b(second)664
668 y(de\014ciency)g(related)g(to)h(the)g(prop)s(osed)e(metho)s(d)h(of)
g(implemen)m(tation)f(of)i(this)664 781 y(language.)41
b(The)30 b(mo)s(del)f(considered)h(in)f(e\013ect)j(t)m(w)m(o)f(v)m
(ersions)f(of)h(LISP)e(on)h(an)m(y)664 894 y(giv)m(en)h(mac)m(hine,)f
(namely)g(Standard)f(LISP)g(and)h(the)g(LISP)g(of)g(the)h(host)f(mac)m
(hine)664 1007 y(\(whic)m(h)g(w)m(e)g(shall)f(refer)h(to)h(as)g(T)-8
b(arget)32 b(LISP\).)e(This)e(mean)m(t)j(that)g(if)f(an)m(y)g
(de\014nition)664 1120 y(w)m(as)h(stored)f(in)f(in)m(terpretiv)m(e)h
(form,)h(it)e(w)m(ould)h(v)-5 b(ary)30 b(from)g(implemen)m(tation)f(to)
664 1233 y(implemen)m(tation,)g(and)h(consequen)m(tly)h(one)f(could)g
(not)g(write)g(programs)g(in)664 1346 y(Standard)e(LISP)g(whic)m(h)g
(needed)g(to)i(assume)f(an)m(y)g(kno)m(wledge)g(ab)s(out)g(the)g
(structure)664 1458 y(of)i(suc)m(h)f(forms.)40 b(This)28
b(de\014ciency)i(b)s(ecame)h(apparen)m(t)f(during)f(recen)m(t)i(w)m
(ork)g(on)f(the)664 1571 y(dev)m(elopmen)m(t)h(of)f(a)h(p)s(ortable)f
(compiler)f(for)h(LISP)f([)p @beginspecial @setspecial
@endspecial(10)q(].)41 b(Clearly)29 b(a)i(compiler)e(has)664
1684 y(to)i(kno)m(w)g(precisely)e(the)h(structure)g(of)h(its)e(source)i
(co)s(de;)g(w)m(e)g(concluded)e(that)i(the)664 1797 y(appropriate)f
(source)g(w)m(as)h(Standard)e(LISP)g(and)h(not)h(T)-8
b(arget)31 b(LISP)-8 b(.)664 1960 y(With)30 b(these)h(though)m(ts)g(in)
e(mind)f(w)m(e)j(decided)e(to)i(attempt)h(again)e(a)h(de\014nition)d
(of)664 2073 y(Standard)h(LISP)-8 b(.)30 b(Ho)m(w)m(ev)m(er,)j(our)d
(approac)m(h)h(this)e(time)h(is)f(more)i(aggressiv)m(e.)42
b(In)664 2186 y(this)29 b(do)s(cumen)m(t)i(w)m(e)f(de\014ne)g(a)h
(standard)e(for)i(a)f(reasonably)g(large)h(subset)e(of)i(LISP)664
2299 y(with)e(as)i(precise)f(as)g(p)s(ossible)e(a)j(statemen)m(t)h(ab)s
(out)e(the)h(seman)m(tics)f(of)h(eac)m(h)664 2412 y(function.)40
b(Secondly)-8 b(,)30 b(w)m(e)g(no)m(w)h(require)e(that)i(the)f(target)i
(mac)m(hine)e(in)m(terpreter)g(b)s(e)664 2524 y(mo)s(di\014ed)e(or)j
(written)e(to)i(supp)s(ort)e(this)g(standard,)h(rather)g(than)g
(mapping)664 2637 y(Standard)f(LISP)h(on)m(to)h(T)-8
b(arget)32 b(LISP)d(as)i(previously)-8 b(.)664 2800 y(W)g(e)32
b(ha)m(v)m(e)f(sp)s(en)m(t)f(coun)m(tless)h(hours)e(in)g(discussion)f
(o)m(v)m(er)j(man)m(y)g(of)f(the)h(de\014nitions)664
2913 y(giv)m(en)g(in)e(this)g(rep)s(ort.)40 b(W)-8 b(e)32
b(ha)m(v)m(e)f(also)f(dra)m(wn)g(on)g(the)h(help)e(and)h(advice)g(of)g
(a)h(lot)g(of)664 3026 y(friends)d(whose)j(names)f(are)h(giv)m(en)f(in)
f(the)i(Ac)m(kno)m(wledgemen)m(ts.)42 b(Wherev)m(er)664
3139 y(p)s(ossible,)28 b(w)m(e)j(ha)m(v)m(e)h(used)d(the)i
(de\014nition)d(of)j(a)f(function)f(as)i(giv)m(en)f(in)f(the)i(LISP)e
(1.5)664 3252 y(Programmer's)i(Man)m(ual)f([)p @beginspecial
@setspecial @endspecial(16)q(])h(and)e(ha)m(v)m(e)j(only)d(deviated)i
(where)e(w)m(e)i(felt)f(it)664 3365 y(desirable)f(in)g(the)h(ligh)m(t)g
(of)g(LISP)g(programming)f(exp)s(erience)h(since)f(that)i(time.)41
b(In)664 3478 y(particular,)29 b(w)m(e)i(ha)m(v)m(e)h(giv)m(en)e
(considerable)f(though)m(t)i(to)g(the)f(question)g(of)h(v)-5
b(ariable)664 3590 y(bindings)27 b(and)j(the)h(de\014nition)d(of)i(the)
h(ev)-5 b(aluator)31 b(functions)d(EV)-10 b(AL)31 b(and)e(APPL)-8
b(Y.)664 3703 y(W)g(e)32 b(ha)m(v)m(e)f(also)g(abandoned)e(the)i
(previous)e(de\014nition)f(of)i(LISP)g(arra)m(ys)g(in)f(fa)m(v)m(or)j
(of)664 3816 y(the)f(more)f(accepted)i(idea)e(of)g(a)h(v)m(ector)h
(whic)m(h)d(most)i(mo)s(dern)e(LISP)g(systems)664 3929
y(supp)s(ort.)39 b(These)30 b(are)h(the)g(places)f(where)g(w)m(e)h(ha)m
(v)m(e)g(stra)m(y)m(ed)h(furthest)d(from)h(the)664 4042
y(con)m(v)m(en)m(tional)h(de\014nitions,)e(but)g(w)m(e)i(feel)f(that)h
(the)g(consistency)f(whic)m(h)f(results)664 4155 y(from)h(our)g
(approac)m(h)h(is)e(w)m(orth)h(the)h(rede\014nition.)664
4318 y(W)-8 b(e)32 b(ha)m(v)m(e)f(a)m(v)m(oided)g(en)m(tirely)f(in)f
(this)g(rep)s(ort)h(problems)e(whic)m(h)i(arise)f(from)664
4431 y(en)m(vironmen)m(t)h(passing,)g(suc)m(h)g(as)g(those)h(represen)m
(ted)f(b)m(y)h(the)f(FUNAR)m(G)i(problem.)664 4544 y(W)-8
b(e)32 b(do)e(not)h(necessarily)e(exclude)h(these)g(considerations)g
(from)g(our)f(standard,)h(but)664 4656 y(in)f(this)h(rep)s(ort)f(ha)m
(v)m(e)j(decided)d(to)i(a)m(v)m(oid)g(the)g(con)m(tro)m(v)m(ersy)h
(whic)m(h)d(they)i(create.)664 4769 y(The)e(seman)m(tic)h
(di\013erences)f(b)s(et)m(w)m(een)i(compiled)d(and)h(in)m(terpreted)g
(functions)f(is)h(the)664 4882 y(topic)h(of)h(another)g(pap)s(er)e([)p
@beginspecial @setspecial @endspecial(10)q(].)41 b(Only)29
b(functions)g(whic)m(h)g(a\013ect)j(the)e(compiler)f(in)g(a)p
eop
%%Page: 615 615
615 614 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.2.)72 b(PRELIMINARIES)1849 b FQ(615)241 555 y(general)30
b(w)m(a)m(y)h(mak)m(e)h(reference)f(to)g(it.)241 718
y(This)d(do)s(cumen)m(t)j(is)e(not)i(in)m(tended)e(as)h(an)h(in)m(tro)s
(duction)d(to)j(LISP)f(rather)g(it)g(is)241 831 y(assumed)f(that)i(the)
g(reader)f(is)g(already)g(familiar)e(with)h(some)i(v)m(ersion.)40
b(The)241 944 y(do)s(cumen)m(t)30 b(is)f(th)m(us)h(in)m(tended)g(as)g
(an)g(arbiter)g(of)g(the)h(syn)m(tax)g(and)f(seman)m(tics)g(of)241
1057 y(Standard)f(LISP)-8 b(.)30 b(Ho)m(w)m(ev)m(er,)j(since)c(it)h(is)
g(not)g(in)m(tended)g(as)g(an)g(implemen)m(tation)241
1170 y(description,)e(w)m(e)j(delib)s(erately)d(lea)m(v)m(e)k(unsp)s
(eci\014ed)c(man)m(y)i(of)h(the)f(details)g(on)g(whic)m(h)241
1282 y(an)g(actual)h(implemen)m(tation)e(dep)s(ends.)39
b(F)-8 b(or)31 b(example,)f(while)e(w)m(e)j(assume)f(the)241
1395 y(existence)h(of)f(a)h(sym)m(b)s(ol)e(table)h(for)g(atoms)i(\(the)
f("ob)5 b(ject)31 b(list")f(in)f(LISP)241 1508 y(terminology\),)h(w)m
(e)h(do)f(not)h(sp)s(ecify)e(its)h(structure,)g(since)g(con)m(v)m(en)m
(tional)h(LISP)241 1621 y(programming)e(do)s(es)h(not)h(require)e(this)
g(information.)39 b(Our)29 b(ultimate)h(goal,)241 1734
y(ho)m(w)m(ev)m(er,)i(is)d(to)i(remedy)f(this)g(b)m(y)g(de\014ning)e
(an)i(in)m(terpreter)g(for)g(Standard)g(LISP)241 1847
y(whic)m(h)f(is)g(su\016cien)m(tly)g(complete)i(that)g(its)f(implemen)m
(tation)f(on)h(an)m(y)h(giv)m(en)241 1960 y(computer)f(will)e(b)s(e)i
(straigh)m(tforw)m(ard)g(and)f(precise.)41 b(A)m(t)31
b(that)g(time,)f(w)m(e)h(shall)241 2073 y(pro)s(duce)e(an)h(implemen)m
(tation)f(lev)m(el)h(sp)s(eci\014cation)f(for)i(Standard)e(LISP)g(whic)
m(h)241 2186 y(will)e(extend)k(the)g(description)d(of)i(the)h(primitiv)
m(e)d(functions)h(de\014ned)g(herein)g(b)m(y)241 2299
y(in)m(tro)s(ducing)f(a)j(new)e(set)i(of)g(lo)m(w)m(er)g(lev)m(el)f
(primitiv)m(e)e(functions)h(in)g(whic)m(h)g(the)241 2412
y(structure)h(of)g(the)h(sym)m(b)s(ol)e(table,)h(heap)h(and)e(so)i(on)f
(ma)m(y)h(b)s(e)f(de\014ned.)241 2574 y(The)g(plan)f(of)h(this)f(c)m
(hapter)i(is)f(as)h(follo)m(ws.)39 b(In)30 b(Section)g
@beginspecial @setspecial @endspecial(91.2)i(w)m(e)f(describ)s(e)e(the)
241 2687 y(v)-5 b(arious)29 b(data)i(t)m(yp)s(es)g(used)e(in)g
(Standard)g(LISP)-8 b(.)30 b(In)g(Section)g @beginspecial
@setspecial @endspecial(91.3)r(,)g(a)h(description)e(of)241
2800 y(all)g(Standard)g(LISP)h(functions)e(is)i(presen)m(ted,)g
(organized)h(b)m(y)f(t)m(yp)s(e.)41 b(These)241 2913
y(functions)29 b(are)h(de\014ned)g(in)f(an)h(RLISP)f(syn)m(tax)i(whic)m
(h)e(is)h(easier)g(to)h(read)f(than)241 3026 y(LISP)f(S-expressions.)39
b(Section)30 b @beginspecial @setspecial @endspecial(91.4)i(describ)s
(es)d(global)h(v)-5 b(ariables)29 b(whic)m(h)g(con)m(trol)241
3139 y(the)h(op)s(eration)g(of)h(Standard)e(LISP)-8 b(.)241
3294 y @beginspecial @setspecial @endspecial 181 x FE(91.2)135
b(Preliminaries)241 3565 y @beginspecial @setspecial
@endspecial 166 x FR(91.2.1)112 b(Primitiv)m(e)34 b(Data)j(T)m(yp)s(es)
241 3953 y FN(in)m(teger)45 b FQ(In)m(tegers)31 b(are)g(also)g(called)e
("\014xed")i(n)m(um)m(b)s(ers.)39 b(The)30 b(magnitude)f(of)i(an)468
4066 y(in)m(teger)g(is)e(unrestricted.)40 b(In)m(tegers)31
b(in)e(the)h(LISP)g(input)e(stream)j(are)468 4178 y(recognized)g(b)m(y)
f(the)h(grammar:)468 4428 y FL(<)p FD(digit)p FL(>)f
FQ(::=)h(0)p FP(j)p FQ(1)p FP(j)p FQ(2)p FP(j)p FQ(3)p
FP(j)p FQ(4)p FP(j)p FQ(5)p FP(j)p FQ(6)p FP(j)p FQ(7)p
FP(j)p FQ(8)p FP(j)p FQ(9)468 4541 y FL(<)p FD(unsigne)-5
b(d-inte)g(ger)p FL(>)30 b FQ(::=)h FL(<)p FD(digit)p
FL(>)p FP(j)p FL(<)p FD(unsigne)-5 b(d-inte)g(ger)p FL(><)p
FD(digit)p FL(>)468 4654 y(<)p FD(inte)g(ger)p FL(>)30
b FQ(::=)h FL(<)p FD(unsigne)-5 b(d-inte)g(ger)p FL(>)30
b FP(j)1060 4767 y FQ(+)p FL(<)p FD(unsigne)-5 b(d-inte)g(ger)p
FL(>)29 b FP(j)1060 4880 y FQ(|)p FL(<)p FD(unsigne)-5
b(d-inte)g(ger)p FL(>)p eop
%%Page: 616 616
616 615 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(616)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FN(\015oating)46
b FQ(-)30 b(An)m(y)h(\015oating)f(p)s(oin)m(t)g(n)m(um)m(b)s(er.)39
b(The)30 b(precision)e(of)j(\015oating)f(p)s(oin)m(t)891
668 y(n)m(um)m(b)s(ers)f(is)h(determined)f(solely)g(b)m(y)i(the)f
(implemen)m(tation.)39 b(In)30 b(BNF)891 781 y(\015oating)h(p)s(oin)m
(t)e(n)m(um)m(b)s(ers)g(are)i(recognized)f(b)m(y)h(the)f(grammar:)891
1012 y FL(<)p FD(b)-5 b(ase)p FL(>)31 b FQ(::=)f FL(<)p
FD(unsigne)-5 b(d-inte)g(ger)p FL(>)p FQ(.)p FP(j)p FQ(.)p
FL(<)p FD(unsigne)g(d-inte)g(ger)p FL(>)p FP(j)1377 1125
y FL(<)p FD(unsigne)g(d-inte)g(ger)p FL(>)p FQ(.)p FL(<)p
FD(unsigne)g(d-inte)g(ger)p FL(>)1377 1238 y(<)p FD(unsigne)g(d-\015o)g
(ating)p FL(>)32 b FQ(::=)e FL(<)p FD(b)-5 b(ase)p FL(>)p
FP(j)1377 1350 y FL(<)p FD(b)g(ase)p FL(>)p FQ(E)p FL(<)p
FD(unsigne)g(d-inte)g(ger)p FL(>)p FP(j)1377 1463 y FL(<)p
FD(b)g(ase)p FL(>)p FQ(E-)p FL(<)p FD(unsigne)g(d-inte)g(ger)p
FL(>)p FP(j)1377 1576 y FL(<)p FD(b)g(ase)p FL(>)p FQ(E+)p
FL(<)p FD(unsigne)g(d-inte)g(ger)p FL(>)891 1689 y(<)p
FD(\015o)g(ating)p FL(>)32 b FQ(::=)e FL(<)p FD(unsigne)-5
b(d-\015o)g(ating)p FL(>)p FP(j)1507 1802 y FQ(+)p FL(<)p
FD(unsigne)g(d-\015o)g(ating)p FL(>)p FP(j)p FQ(-)p FL(<)p
FD(unsigne)g(d-\015o)g(ating)p FL(>)664 2033 y FN(id)46
b FQ(An)30 b(iden)m(ti\014er)e(is)i(a)g(string)g(of)g(c)m(haracters)i
(whic)m(h)d(ma)m(y)i(ha)m(v)m(e)h(the)61 b(follo)m(wing)891
2146 y(items)30 b(asso)s(ciated)h(with)e(it.)891 2350
y FN(prin)m(t)35 b(name)45 b FQ(The)30 b(c)m(haracters)h(of)g(the)f
(iden)m(ti\014er.)891 2491 y FN(\015ags)46 b FQ(An)30
b(iden)m(ti\014er)f(ma)m(y)i(b)s(e)f(tagged)i(with)d(a)h(\015ag.)41
b(Access)32 b(is)d(b)m(y)h(the)1091 2603 y(FLA)m(G,)i(REMFLA)m(G,)g
(and)e(FLA)m(GP)h(functions)e(de\014ned)g(in)1091 2716
y(section)i @beginspecial @setspecial @endspecial(91.3.4)i(on)d(page)h
@beginspecial @setspecial @endspecial(629)q(.)891 2857
y FN(prop)s(erties)46 b FQ(An)30 b(iden)m(ti\014er)f(ma)m(y)i(ha)m(v)m
(e)g(an)g(indicator-v)-5 b(alue)28 b(pair)1091 2970 y(asso)s(ciated)j
(with)e(it.)41 b(Access)31 b(is)e(b)m(y)i(the)f(PUT,)h(GET,)f(and)1091
3083 y(REMPR)m(OP)h(functions)e(de\014ned)g(in)g(section)h
@beginspecial @setspecial @endspecial(91.3.4)j(on)d(page)h
@beginspecial @setspecial @endspecial(629)r(.)891 3223
y FN(v)-6 b(alues/functions)47 b FQ(An)30 b(iden)m(ti\014er)f(ma)m(y)i
(ha)m(v)m(e)h(a)e(v)-5 b(alue)30 b(asso)s(ciated)h(with)1091
3336 y(it.)41 b(Access)31 b(to)g(v)-5 b(alues)30 b(is)f(b)m(y)i(SET)e
(and)h(SETQ)f(de\014ned)g(in)1091 3449 y(section)i @beginspecial
@setspecial @endspecial(91.3.6)i(on)d(page)h @beginspecial
@setspecial @endspecial(633)q(.)41 b(The)30 b(metho)s(d)g(b)m(y)g(whic)
m(h)f(the)i(v)-5 b(alue)29 b(is)1091 3562 y(attac)m(hed)k(to)e(the)f
(iden)m(ti\014er)f(is)g(kno)m(wn)h(as)h(the)f(binding)e(t)m(yp)s(e,)i
(b)s(eing)1091 3675 y(one)h(of)g(LOCAL,)e(GLOBAL,)i(or)g(FLUID.)g
(Access)g(to)g(the)g(binding)1091 3788 y(t)m(yp)s(e)g(is)e(b)m(y)i(the)
f(GLOBAL,)h(GLOBALP)-8 b(,)31 b(FLUID,)g(FLUIDP)-8 b(,)32
b(and)1091 3901 y(UNFLUID)g(functions.)1091 4028 y(An)e(iden)m
(ti\014er)f(ma)m(y)i(ha)m(v)m(e)h(a)e(function)f(or)i(macro)g(asso)s
(ciated)g(with)e(it.)1091 4141 y(Access)j(is)d(b)m(y)i(the)f(PUTD,)h
(GETD,)g(and)e(REMD)i(functions)e(\(see)1091 4254 y(\\F)-8
b(unction)31 b(De\014nition",)f(section)g @beginspecial
@setspecial @endspecial(91.3.5)s(,)g(on)g(page)h @beginspecial
@setspecial @endspecial(631)r(\).)81 b(An)1091 4366 y(iden)m(ti\014er)
29 b(ma)m(y)i(not)g(ha)m(v)m(e)g(b)s(oth)f(a)h(function)e(and)g(a)i(v)
-5 b(alue)30 b(asso)s(ciated)1091 4479 y(with)g(it.)891
4620 y FN(OBLIST)35 b(en)m(try)45 b FQ(An)30 b(iden)m(ti\014er)f(ma)m
(y)h(b)s(e)g(en)m(tered)h(and)f(remo)m(v)m(ed)h(from)f(a)1091
4733 y(structure)g(called)g(the)g(OBLIST.)g(Its)g(presence)h(on)f(the)h
(OBLIST)e(do)s(es)1091 4846 y(not)i(directly)e(a\013ect)j(the)f(other)f
(prop)s(erties.)39 b(Access)32 b(to)f(the)f(OBLIST)1091
4959 y(is)g(b)m(y)g(the)h(INTERN,)f(REMOB,)h(and)e(READ)i(functions.)p
eop
%%Page: 617 617
617 616 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.2.)72 b(PRELIMINARIES)1849 b FQ(617)468 555 y(The)30
b(maxim)m(um)f(length)h(of)g(a)h(Standard)e(LISP)h(iden)m(ti\014er)e
(is)i(24)h(c)m(haracters)468 668 y(\(excluding)e(o)s(ccurrences)h(of)h
(the)f(escap)s(e)h(c)m(haracter)h(!\))41 b(but)30 b(an)468
781 y(implemen)m(tation)f(ma)m(y)i(allo)m(w)f(more.)41
b(Sp)s(ecial)28 b(c)m(haracters)k(\(digits)d(in)h(the)468
894 y(\014rst)g(p)s(osition)e(and)i(punctuation\))f(m)m(ust)i(b)s(e)e
(pre\014xed)h(with)f(an)h(escap)s(e)468 1007 y(c)m(haracter,)i(an)f(!)
40 b(in)29 b(Standard)g(LISP)-8 b(.)30 b(In)g(BNF)h(iden)m(ti\014ers)e
(are)h(recognized)468 1120 y(b)m(y)g(the)h(grammar:)468
1370 y FL(<)p FD(sp)-5 b(e)g(cial-char)g(acter)p FL(>)33
b FQ(::=)d(!)p FL(<)p FD(any-char)-5 b(acter)p FL(>)468
1483 y(<)p FD(alphab)g(etic)p FL(>)32 b FQ(::=)648 1595
y(A)p FP(j)p FQ(B)p FP(j)p FQ(C)p FP(j)p FQ(D)p FP(j)p
FQ(E)p FP(j)p FQ(F)p FP(j)p FQ(G)p FP(j)p FQ(H)p FP(j)p
FQ(I)p FP(j)p FQ(J)p FP(j)p FQ(K)p FP(j)p FQ(L)p FP(j)p
FQ(M)p FP(j)p FQ(N)p FP(j)p FQ(O)p FP(j)p FQ(P)p FP(j)p
FQ(Q)p FP(j)p FQ(R)p FP(j)p FQ(S)p FP(j)p FQ(T)p FP(j)p
FQ(U)p FP(j)p FQ(V)p FP(j)p FQ(W)p FP(j)p FQ(X)p FP(j)q
FQ(Y)p FP(j)p FQ(Z)p FP(j)648 1708 y FQ(a)p FP(j)p FQ(b)p
FP(j)p FQ(c)p FP(j)p FQ(d)p FP(j)p FQ(e)p FP(j)p FQ(f)p
FP(j)p FQ(g)p FP(j)p FQ(h)p FP(j)p FQ(i)p FP(j)p FQ(j)p
FP(j)p FQ(k)p FP(j)p FQ(l)p FP(j)p FQ(m)p FP(j)p FQ(n)p
FP(j)p FQ(o)p FP(j)p FQ(p)p FP(j)p FQ(q)p FP(j)p FQ(r)p
FP(j)p FQ(s)p FP(j)p FQ(t)p FP(j)p FQ(u)p FP(j)p FQ(v)p
FP(j)p FQ(w)p FP(j)p FQ(x)p FP(j)p FQ(y)p FP(j)p FQ(z)468
1821 y FL(<)p FD(le)-5 b(ad-char)g(acter)p FL(>)33 b
FQ(::=)d FL(<)p FD(sp)-5 b(e)g(cial-char)g(acter)p FL(>)p
FP(j)p FL(<)p FD(alphab)g(etic)p FL(>)468 1934 y(<)p
FD(r)g(e)g(gular-char)g(acter)p FL(>)33 b FQ(::=)d FL(<)p
FD(le)-5 b(ad-char)g(acter)p FL(>)p FP(j)p FL(<)p FD(digit)p
FL(>)468 2047 y(<)p FD(last-p)g(art)p FL(>)32 b FQ(::=)f
FL(<)p FD(r)-5 b(e)g(gular-char)g(acter)p FL(>)32 b FP(j)1118
2160 y FL(<)p FD(last-p)-5 b(art)p FL(><)p FD(r)g(e)g(gular-char)g
(acter)p FL(>)468 2273 y(<)p FD(id)p FL(>)30 b FQ(::=)h
FL(<)p FD(le)-5 b(ad-char)g(acter)p FL(>)p FP(j)p FL(<)p
FD(le)g(ad-char)g(acter)p FL(><)p FD(last-p)g(art)q FL(>)468
2523 y FQ(Note:)42 b(Using)30 b(lo)m(w)m(er)g(case)i(letters)e(in)f
(iden)m(ti\014ers)g(ma)m(y)i(cause)g(p)s(ortabilit)m(y)468
2636 y(problems.)39 b(Lo)m(w)m(er)31 b(case)h(letters)e(are)h
(automatically)f(con)m(v)m(erted)i(to)f(upp)s(er)468
2749 y(case)g(when)f(the)g(!*RAISE)h(\015ag)f(is)g(T.)241
2936 y FN(string)46 b FQ(A)30 b(set)h(of)f(c)m(haracters)i(enclosed)e
(in)f(double)g(quotes)i(as)g(in)e("THIS)h(IS)g(A)468
3049 y(STRING".)41 b(A)30 b(quote)h(is)e(included)f(b)m(y)i(doubling)e
(it)i(as)h(in)e("HE)i(SAID,)468 3162 y(""LISP""".)42
b(The)30 b(maxim)m(um)f(size)h(of)h(strings)e(is)g(80)j(c)m(haracters)g
(but)d(an)468 3275 y(implemen)m(tation)g(ma)m(y)h(allo)m(w)g(more.)41
b(Strings)28 b(are)j(not)f(part)g(of)g(the)h(OBLIST)468
3388 y(and)f(are)h(considered)e(constan)m(ts)i(lik)m(e)f(n)m(um)m(b)s
(ers,)f(v)m(ectors,)j(and)468 3501 y(function-p)s(oin)m(ters.)241
3688 y FN(dotted-pair)45 b FQ(A)30 b(primitiv)m(e)e(structure)i(whic)m
(h)f(has)h(a)h(left)f(and)g(righ)m(t)g(part.)81 b(A)468
3801 y(notation)31 b(called)e FD(dot-notation)k FQ(is)d(used)f(for)h
(dotted)h(pairs)e(and)h(tak)m(es)i(the)468 3914 y(form:)468
4164 y(\()p FL(<)p FD(left-p)-5 b(art)p FL(>)32 b FQ(.)40
b FL(<)p FD(right-p)-5 b(art)p FL(>)p FQ(\))468 4414
y(The)30 b FL(<)p FD(left-p)-5 b(art)p FL(>)31 b FQ(is)f(kno)m(wn)f(as)
i(the)g(CAR)f(p)s(ortion)f(and)g(the)i FL(<)p FD(right-p)-5
b(art)p FL(>)468 4527 y FQ(as)31 b(the)f(CDR)h(p)s(ortion.)39
b(The)30 b(left)g(and)g(righ)m(t)g(parts)g(ma)m(y)h(b)s(e)e(of)i(an)m
(y)g(t)m(yp)s(e.)468 4640 y(Spaces)f(are)h(used)f(to)h(resolv)m(e)g(am)
m(biguit)m(y)e(with)h(\015oating)g(p)s(oin)m(t)f(n)m(um)m(b)s(ers.)241
4828 y FN(v)m(ector)46 b FQ(A)30 b(primitiv)m(e)e(uniform)h(structure)h
(in)f(whic)m(h)g(an)h(in)m(teger)h(index)e(is)g(used)h(to)468
4940 y(access)i(random)d(v)-5 b(alues)30 b(in)f(the)i(structure.)40
b(The)30 b(individual)c(elemen)m(ts)k(of)h(a)p eop
%%Page: 618 618
618 617 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(618)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)891 555 y FQ(v)m(ector)32
b(ma)m(y)f(b)s(e)f(of)h(an)m(y)f(t)m(yp)s(e.)41 b(Access)32
b(to)f(v)m(ectors)h(is)d(restricted)h(to)891 668 y(functions)f
(de\014ned)g(in)g(\\V)-8 b(ectors")32 b(section)e @beginspecial
@setspecial @endspecial(91.3.9)j(on)d(page)h @beginspecial
@setspecial @endspecial(639)q(.)40 b(A)31 b(notation)891
781 y(for)g(v)m(ectors,)h FD(ve)-5 b(ctor-notation)p
FQ(,)32 b(has)f(the)f(elemen)m(ts)h(of)f(a)h(v)m(ector)h(surrounded)891
894 y(b)m(y)f(square)f(brac)m(k)m(ets)p @beginspecial
@setspecial @endspecial -33 x FO(1)891 1144 y FL(<)p
FD(elements)p FL(>)h FQ(::=)f FL(<)p FD(any)p FL(>)p
FP(j)p FL(<)p FD(any)p FL(>)h(<)p FD(elements)p FL(>)891
1257 y(<)p FD(ve)-5 b(ctor)p FL(>)31 b FQ(::=)f([)p FL(<)p
FD(elements)p FL(>)p FQ(])664 1507 y FN(function-p)s(oin)m(ter)46
b FQ(An)30 b(implemen)m(tation)f(ma)m(y)i(ha)m(v)m(e)h(functions)d
(whic)m(h)g(deal)891 1620 y(with)h(sp)s(eci\014c)f(data)i(t)m(yp)s(es)f
(other)h(than)f(those)h(listed.)39 b(The)30 b(use)g(of)h(these)891
1732 y(en)m(tities)g(is)e(to)i(b)s(e)f(a)m(v)m(oided)h(with)e(the)h
(exception)h(of)f(a)h(restricted)f(use)g(of)h(the)891
1845 y(function-p)s(oin)m(ter,)e(an)h(access)i(metho)s(d)e(to)h
(compiled)e(EXPRs)h(and)891 1958 y(FEXPRs.)41 b(A)31
b(particular)d(function-p)s(oin)m(ter)h(m)m(ust)h(remain)f(v)-5
b(alid)891 2071 y(throughout)30 b(execution.)41 b(Systems)30
b(whic)m(h)f(c)m(hange)j(the)f(lo)s(cation)f(of)g(a)891
2184 y(function)g(m)m(ust)g(use)g(either)g(an)g(indirect)f(reference)h
(or)h(c)m(hange)g(all)891 2297 y(o)s(ccurrences)g(of)f(the)h(asso)s
(ciated)g(v)-5 b(alue.)40 b(There)30 b(are)h(t)m(w)m(o)g(classes)g(of)f
(use)g(of)891 2410 y(function-p)s(oin)m(ters,)f(those)i(whic)m(h)e(are)
i(supp)s(orted)d(b)m(y)j(Standard)e(LISP)g(but)891 2523
y(are)i(not)g(w)m(ell)e(de\014ned,)h(and)f(those)i(whic)m(h)e(are)i(w)m
(ell)e(de\014ned.)891 2735 y FN(Not)35 b(w)m(ell)f(de\014ned)46
b FQ(F)-8 b(unction)30 b(p)s(oin)m(ters)f(ma)m(y)i(b)s(e)f(displa)m(y)m
(ed)f(b)m(y)h(the)h(prin)m(t)1091 2848 y(functions)e(or)i(expanded)e(b)
m(y)i(EXPLODE.)f(The)g(v)-5 b(alue)30 b(app)s(ears)f(in)g(the)1091
2961 y(con)m(v)m(en)m(tion)j(of)f(the)f(implemen)m(tation)f(site.)41
b(The)29 b(v)-5 b(alue)30 b(is)g(not)g(de\014ned)1091
3074 y(in)g(Standard)f(LISP)-8 b(.)30 b(F)-8 b(unction)30
b(p)s(oin)m(ters)f(ma)m(y)i(b)s(e)f(created)h(b)m(y)1091
3187 y(COMPRESS)e(in)g(the)i(format)f(used)g(for)g(prin)m(ting)e(but)i
(the)h(v)-5 b(alue)29 b(used)1091 3300 y(is)h(not)g(de\014ned)g(in)f
(Standard)g(LISP)-8 b(.)30 b(F)-8 b(unction)30 b(p)s(oin)m(ters)f(ma)m
(y)i(b)s(e)1091 3413 y(created)h(b)m(y)e(functions)f(whic)m(h)g(deal)h
(with)f(compiled)g(function)g(loading.)1091 3526 y(Again,)h(the)g(v)-5
b(alues)30 b(created)g(are)h(not)f(w)m(ell)f(de\014ned)f(in)h(Standard)
f(LISP)-8 b(.)891 3672 y FN(W)f(ell)36 b(de\014ned)45
b FQ(The)30 b(function)f(p)s(oin)m(ter)h(asso)s(ciated)g(with)f(an)i
(EXPR)f(or)1091 3785 y(FEXPR)h(ma)m(y)g(b)s(e)f(retriev)m(ed)g(b)m(y)g
(GETD)h(and)f(is)f(v)-5 b(alid)29 b(as)h(long)g(as)1091
3898 y(Standard)g(LISP)f(is)g(in)g(execution.)41 b(F)-8
b(unction)30 b(p)s(oin)m(ters)g(ma)m(y)h(b)s(e)e(stored)1091
4011 y(using)60 b(PUTD,)30 b(PUT,)h(SETQ)e(and)g(the)i(lik)m(e)f(or)g
(b)m(y)g(b)s(eing)f(b)s(ound)g(to)1091 4123 y(v)-5 b(ariables.)40
b(F)-8 b(unction)30 b(p)s(oin)m(ters)f(ma)m(y)i(b)s(e)f(c)m(hec)m(k)m
(ed)i(for)e(equiv)-5 b(alence)30 b(b)m(y)1091 4236 y(EQ.)h(The)e(v)-5
b(alue)30 b(ma)m(y)h(b)s(e)f(c)m(hec)m(k)m(ed)i(for)e(b)s(eing)f(a)i
(function)e(p)s(oin)m(ter)h(b)m(y)1091 4349 y(the)h(CODEP)f(function.)
664 4477 y @beginspecial @setspecial @endspecial 664
4538 1196 4 v 768 4592 a Fy(1)802 4623 y @beginspecial
@setspecial @endspecial Fx(V)-6 b(ector)37 b(elemen)n(ts)f(are)i(not)f
(separated)g(b)n(y)f(commas)g(as)h(in)g(the)g(published)f(v)n(ersion)h
(of)h(this)664 4715 y(do)r(cumen)n(t.)p eop
%%Page: 619 619
619 618 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.2.)72 b(PRELIMINARIES)1849 b FQ(619)241 555 y FR(91.2.2)112
b(Classes)38 b(of)g(Primitiv)m(e)33 b(Data)38 b(T)m(yp)s(es)241
777 y FQ(The)30 b(classes)g(of)h(primitiv)m(e)d(t)m(yp)s(es)i(are)h(a)g
(notational)f(con)m(v)m(enience)h(for)g(describing)241
890 y(the)f(prop)s(erties)f(of)i(functions.)241 1148
y FN(b)s(o)s(olean)46 b FQ(The)29 b(set)i(of)g(global)f(v)-5
b(ariables)29 b FP(f)p FQ(T,NIL)p FP(g)p FQ(,)i(or)f(their)g(resp)s
(ectiv)m(e)g(v)-5 b(alues,)468 1261 y FP(f)p FQ(T,)31
b(NIL)p FP(g)p FQ(.)241 1447 y FN(extra-b)s(o)s(olean)45
b FQ(An)m(y)30 b(v)-5 b(alue)30 b(in)f(the)i(system.)41
b(An)m(ything)29 b(that)i(is)f(not)g(NIL)g(has)468 1560
y(the)h(b)s(o)s(olean)e(in)m(terpretation)h(T.)241 1747
y FN(ft)m(yp)s(e)45 b FQ(The)30 b(class)g(of)h(de\014nable)d(function)h
(t)m(yp)s(es.)41 b(The)30 b(set)h(of)g(ids)d FP(f)p FQ(EXPR,)468
1860 y(FEXPR,)j(MA)m(CR)m(O)p FP(g)p FQ(.)241 2046 y
FN(n)m(um)m(b)s(er)45 b FQ(The)30 b(set)g(of)h FP(f)p
FQ(in)m(teger,)g(\015oating)p FP(g)p FQ(.)241 2232 y
FN(constan)m(t)46 b FQ(The)29 b(set)i(of)g FP(f)p FQ(in)m(teger,)g
(\015oating,)g(string,)e(v)m(ector,)k(function-p)s(oin)m(ter)p
FP(g)p FQ(.)468 2345 y(Constan)m(ts)e(ev)-5 b(aluate)31
b(to)g(themselv)m(es)g(\(see)g(the)f(de\014nition)e(of)j(EV)-10
b(AL)30 b(in)468 2458 y(\\The)g(In)m(terpreter",)h(section)g
@beginspecial @setspecial @endspecial(91.3.14)i(on)d(page)h
@beginspecial @setspecial @endspecial(653)r(\).)241 2645
y FN(an)m(y)45 b FQ(The)30 b(set)h(of)g FP(f)p FQ(in)m(teger,)g
(\015oating,)g(string,)e(id,)h(dotted-pair,)g(v)m(ector,)468
2758 y(function-p)s(oin)m(ter)p FP(g)p FQ(.)39 b(An)30
b(S-expression)f(is)h(another)g(term)h(for)f(an)m(y)-8
b(.)41 b(All)468 2870 y(Standard)29 b(LISP)h(en)m(tities)g(ha)m(v)m(e)h
(some)g(v)-5 b(alue)30 b(unless)f(an)h(ERR)m(OR)g(o)s(ccurs)468
2983 y(during)e(ev)-5 b(aluation)30 b(or)g(the)h(function)e(causes)i
(transfer)f(of)g(con)m(trol)h(\(suc)m(h)f(as)468 3096
y(GO)g(and)g(RETURN\).)241 3283 y FN(atom)44 b FQ(The)30
b(set)h FP(f)p FQ(an)m(y)p FP(g)p FQ(-)p FP(f)p FQ(dotted-pair)p
FP(g)p FQ(.)241 3432 y @beginspecial @setspecial @endspecial
143 x FR(91.2.3)112 b(Structures)241 3797 y FQ(Structures)29
b(are)i(en)m(tities)f(created)i(out)e(of)h(the)f(primitiv)m(e)e(t)m(yp)
s(es)j(b)m(y)f(the)h(use)f(of)241 3910 y(dotted-pairs.)40
b(Lists)29 b(are)i(structures)f(v)m(ery)h(commonly)f(required)e(as)j
(actual)241 4023 y(parameters)f(to)i(functions.)39 b(Where)31
b(a)f(list)f(of)i(homogeneous)g(en)m(tities)f(is)f(required)241
4136 y(b)m(y)h(a)h(function)e(this)g(class)h(will)e(b)s(e)i(denoted)g
(b)m(y)g FL(<)p FN(xxx)p FD(-list)p FL(>)h FQ(where)f
Fo(xxx)g FQ(is)f(the)241 4248 y(name)h(of)h(a)f(class)h(of)f(primitiv)m
(es)e(or)j(structures.)40 b(Th)m(us)29 b(a)i(list)e(of)h(ids)f(is)h(an)
g FD(id-list)p FQ(,)h(a)241 4361 y(list)e(of)h(in)m(tegers)h(an)f
FD(inte)-5 b(ger-list)31 b FQ(and)f(so)g(on.)241 4620
y FN(list)45 b FQ(A)31 b(list)e(is)g(recursiv)m(ely)g(de\014ned)g(as)i
(NIL)f(or)g(the)61 b(dotted-pair)30 b(\(an)m(y)h(.)g(list\).)40
b(A)468 4733 y(sp)s(ecial)29 b(notation)i(called)e FD(list-notation)j
FQ(is)e(used)f(to)j(represen)m(t)e(lists.)468 4846 y(List-notation)g
(eliminates)e(extra)i(paren)m(theses)g(and)g(dots.)40
b(The)29 b(list)g(\(a)h(.)41 b(\(b)29 b(.)468 4959 y(\(c)i(.)41
b(NIL\)\)\))31 b(in)e(list)g(notation)i(is)e(\(a)i(b)f(c\).)41
b(List-notation)31 b(and)e(dot-notation)p eop
%%Page: 620 620
620 619 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(620)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)891 555 y FQ(ma)m(y)31
b(b)s(e)f(mixed)f(as)i(in)e(\(a)i(b)f(.)41 b(c\))31 b(or)f(\(a)h(\(b)f
(.)41 b(c\))31 b(d\))f(whic)m(h)f(are)i(\(a)g(.)41 b(\(b)30
b(.)41 b(c\)\))891 668 y(and)30 b(\(a)h(.)41 b(\(\(b)31
b(.)40 b(c\))31 b(.)41 b(\(d)30 b(.)41 b(NIL\)\)\).)31
b(In)f(BNF)h(lists)e(are)i(recognized)f(b)m(y)h(the)891
781 y(grammar:)891 1022 y FL(<)p FD(left-p)-5 b(art)p
FL(>)32 b FQ(::=)e(\()h FP(j)f FL(<)p FD(left-p)-5 b(art)p
FL(>)32 b(<)p FD(any)p FL(>)891 1135 y(<)p FD(list)p
FL(>)f FQ(::=)f FL(<)p FD(left-p)-5 b(art)p FL(>)p FQ(\))32
b FP(j)e FL(<)p FD(left-p)-5 b(art)p FL(>)31 b FQ(.)41
b FL(<)p FD(any)p FL(>)p FQ(\))891 1377 y(Note:)h(\(\))32
b(is)d(an)h(alternate)h(input)e(represen)m(tation)h(of)h(NIL.)664
1562 y FN(alist)45 b FQ(An)29 b(asso)s(ciation)g(list;)g(eac)m(h)h
(elemen)m(t)f(of)h(the)f(list)f(is)g(a)i(dotted-pair,)f(the)g(CAR)891
1675 y(part)i(b)s(eing)e(a)h(k)m(ey)i(asso)s(ciated)e(with)f(the)i(v)-5
b(alue)30 b(in)f(the)h(CDR)h(part.)664 1860 y FN(cond-form)46
b FQ(A)30 b(cond-form)g(is)g(a)g(list)g(of)g(2)h(elemen)m(t)g(lists)e
(of)h(the)h(form:)891 2009 y(\()p FN(ANTECEDENT)p FQ(:)p
FD(any)f FN(CONSEQUENT)p FQ(:)p FD(any)p FQ(\))891 2158
y(The)g(\014rst)g(elemen)m(t)h(will)d(henceforth)i(b)s(e)f(kno)m(wn)h
(as)h(the)g(an)m(teceden)m(t)h(and)891 2271 y(the)f(second)f(as)h(the)g
(consequen)m(t.)41 b(The)30 b(an)m(teceden)m(t)j(m)m(ust)d(ha)m(v)m(e)h
(a)g(v)-5 b(alue.)891 2384 y(The)30 b(consequen)m(t)h(ma)m(y)g(ha)m(v)m
(e)h(a)f(v)-5 b(alue)30 b(or)g(an)g(o)s(ccurrence)h(of)f(GO)h(or)891
2497 y(RETURN)61 b(as)30 b(describ)s(ed)f(in)g(the)h(\\Program)h(F)-8
b(eature)32 b(F)-8 b(unctions",)891 2610 y(section)31
b @beginspecial @setspecial @endspecial(91.3.7)i(on)d(page)h
@beginspecial @setspecial @endspecial(635)q(.)664 2795
y FN(lam)m(b)s(da)45 b FQ(A)30 b(LAMBD)m(A)i(expression)d(whic)m(h)g(m)
m(ust)i(ha)m(v)m(e)g(the)g(form)f(\(in)f(list)891 2908
y(notation\):)42 b(\(LAMBD)m(A)32 b(parameters)f(b)s(o)s(dy\).)39
b(\\parameters")32 b(is)e(a)g(list)f(of)891 3021 y(formal)h(parameters)
h(for)f(\\b)s(o)s(dy")g(an)g(S-expression)f(to)i(b)s(e)f(ev)-5
b(aluated.)41 b(The)891 3134 y(seman)m(tics)31 b(of)g(the)f(ev)-5
b(aluation)30 b(are)h(de\014ned)e(with)g(the)i(EV)-10
b(AL)30 b(function)f(\(see)891 3247 y(\\The)i(In)m(terpreter",)g
(section)f @beginspecial @setspecial @endspecial(91.3.14)j(on)e(page)g
@beginspecial @setspecial @endspecial(653)q(\).)664 3432
y FN(function)46 b FQ(A)31 b(LAMBD)m(A)h(expression)d(or)h(a)h
(function-p)s(oin)m(ter)e(to)i(a)f(function.)40 b(A)891
3545 y(function)30 b(is)f(alw)m(a)m(ys)i(ev)-5 b(aluated)30
b(as)h(an)f(EV)-10 b(AL,)31 b(SPREAD)f(form.)664 3689
y @beginspecial @setspecial @endspecial 148 x FR(91.2.4)113
b(F)-9 b(unction)37 b(Descriptions)664 4059 y FQ(Eac)m(h)31
b(function)e(is)h(pro)m(vided)f(with)g(a)h(protot)m(ypical)h(header)f
(line.)39 b(Eac)m(h)31 b(formal)664 4171 y(parameter)g(is)e(giv)m(en)i
(a)g(name)f(and)g(su\016xed)f(with)g(its)h(allo)m(w)m(ed)g(t)m(yp)s(e.)
41 b(Lo)m(w)m(er)31 b(case,)664 4284 y(italic)e(tok)m(ens)j(are)f
(names)f(of)g(classes)h(and)f(upp)s(er)e(case,)k(b)s(old)c(face,)k(tok)
m(ens)f(are)664 4397 y(parameter)g(names)f(referred)g(to)h(in)e(the)i
(de\014nition.)38 b(The)30 b(t)m(yp)s(e)g(of)h(the)g(v)-5
b(alue)664 4510 y(returned)29 b(b)m(y)i(the)f(function)f(\(if)h(an)m
(y\))h(is)e(su\016xed)h(to)h(the)f(parameter)h(list.)40
b(If)30 b(it)f(is)664 4623 y(not)i(commonly)f(used)f(the)i(parameter)g
(t)m(yp)s(e)f(ma)m(y)h(b)s(e)f(a)h(sp)s(eci\014c)e(set)i(enclosed)f(in)
664 4736 y(brac)m(k)m(ets)i FP(f)p FQ(.)16 b(.)f(.)h
FP(g)p FQ(.)41 b(F)-8 b(or)31 b(example:)664 4959 y FJ(PUTD)p
FQ(\()p FN(FNAME)p FQ(:)p FD(id)p FQ(,)f FN(TYPE)p FQ(:)p
FD(ftyp)-5 b(e)p FQ(,)32 b FN(BOD)m(Y)p FQ(:)p FP(f)p
FD(lamb)-5 b(da,)35 b(function-p)-5 b(ointer)p FP(g)p
FQ(\):)p FD(id)p eop
%%Page: 621 621
621 620 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.2.)72 b(PRELIMINARIES)1849 b FQ(621)241 555 y(PUTD)30
b(is)g(a)g(function)f(with)h(three)g(parameters.)41 b(The)30
b(parameter)h(FNAME)g(is)f(an)241 668 y(id)f(to)i(b)s(e)f(the)g(name)h
(of)f(the)h(function)e(b)s(eing)g(de\014ned.)39 b(TYPE)30
b(is)g(the)g(t)m(yp)s(e)h(of)f(the)241 781 y(function)f(b)s(eing)g
(de\014ned)g(and)h(BOD)m(Y)h(is)f(a)g(lam)m(b)s(da)g(expression)f(or)h
(a)241 894 y(function-p)s(oin)m(ter.)39 b(PUTD)30 b(returns)f(the)i
(name)f(of)h(the)f(function)f(b)s(eing)g(de\014ned.)241
1057 y(F)-8 b(unctions)30 b(whic)m(h)f(accept)j(formal)d(parameter)i
(lists)e(of)h(arbitrary)g(length)f(ha)m(v)m(e)j(the)241
1170 y(t)m(yp)s(e)e(class)g(and)g(parameter)h(enclosed)f(in)f(square)h
(brac)m(k)m(ets)i(indicating)c(that)j(zero)241 1282 y(or)f(more)h(o)s
(ccurrences)f(of)h(that)g(argumen)m(t)f(are)h(p)s(ermitted.)39
b(F)-8 b(or)32 b(example:)241 1505 y FJ(AND)p FQ(\([)p
FN(U)p FQ(:)p FD(any)p FQ(]\):)p FD(extr)-5 b(a-b)g(o)g(ole)g(an)241
1728 y FQ(AND)31 b(is)e(a)i(function)e(whic)m(h)g(accepts)j(zero)f(or)f
(more)h(argumen)m(ts)g(whic)m(h)e(ma)m(y)i(b)s(e)e(of)241
1841 y(an)m(y)h(t)m(yp)s(e.)241 1986 y @beginspecial
@setspecial @endspecial 148 x FR(91.2.5)112 b(F)-9 b(unction)37
b(T)m(yp)s(es)241 2356 y FQ(EV)-10 b(AL)30 b(t)m(yp)s(e)h(functions)d
(are)j(those)g(whic)m(h)e(are)i(in)m(v)m(ok)m(ed)g(with)e(ev)-5
b(aluated)241 2468 y(argumen)m(ts.)41 b(NOEV)-10 b(AL)30
b(functions)f(are)i(in)m(v)m(ok)m(ed)f(with)g(unev)-5
b(aluated)29 b(argumen)m(ts.)241 2581 y(SPREAD)h(t)m(yp)s(e)g
(functions)f(ha)m(v)m(e)j(their)d(argumen)m(ts)i(passed)f(in)f
(one-to-one)241 2694 y(corresp)s(ondence)h(with)f(their)g(formal)h
(parameters.)41 b(NOSPREAD)30 b(functions)241 2807 y(receiv)m(e)h
(their)e(argumen)m(ts)i(as)g(a)f(single)g(list.)39 b(EV)-10
b(AL,)30 b(SPREAD)g(functions)f(are)241 2920 y(asso)s(ciated)i(with)e
(EXPRs)h(and)f(NOEV)-10 b(AL,)31 b(NOSPREAD)f(functions)f(with)241
3033 y(FEXPRs.)40 b(EV)-10 b(AL,)31 b(NOSPREAD)f(and)g(NOEV)-10
b(AL,)30 b(SPREAD)g(functions)f(can)i(b)s(e)241 3146
y(sim)m(ulated)e(using)g(NOEV)-10 b(AL,)30 b(NOSPREAD)g(functions)f(or)
h(MA)m(CR)m(Os.)241 3309 y(EV)-10 b(AL,)30 b(SPREAD)g(t)m(yp)s(e)h
(functions)e(ma)m(y)i(ha)m(v)m(e)g(a)g(maxim)m(um)e(of)i(15)g
(parameters.)241 3422 y(There)f(is)f(no)h(limit)e(on)j(the)f(n)m(um)m
(b)s(er)f(of)i(parameters)g(a)f(NOEV)-10 b(AL,)31 b(NOSPREAD)241
3534 y(function)e(or)h(MA)m(CR)m(O)h(ma)m(y)g(ha)m(v)m(e.)241
3697 y(In)e(the)i(con)m(text)h(of)f(the)f(description)f(of)h(an)h(EV)
-10 b(AL,)30 b(SPREAD)g(function,)f(then)h(w)m(e)241
3810 y(sp)s(eak)g(of)g(the)h(formal)f(parameters)g(w)m(e)h(mean)f
(their)g(actual)h(v)-5 b(alues.)40 b(Ho)m(w)m(ev)m(er,)32
b(in)d(a)241 3923 y(NOEV)-10 b(AL,)30 b(NOSPREAD)g(function)f(it)h(is)g
(the)g(unev)-5 b(aluated)30 b(actual)g(parameters.)241
4086 y(A)g(third)f(function)g(t)m(yp)s(e,)i(the)f(MA)m(CR)m(O,)i
(implemen)m(ts)c(functions)h(whic)m(h)g(create)241 4199
y(S-expressions)g(based)h(on)g(actual)h(parameters.)41
b(When)30 b(a)h(macro)g(in)m(v)m(o)s(cation)f(is)241
4312 y(encoun)m(tered,)h(the)f(b)s(o)s(dy)f(of)i(the)f(macro,)i(a)e
(lam)m(b)s(da)g(expression,)f(is)g(in)m(v)m(ok)m(ed)i(as)g(a)241
4424 y(NOEV)-10 b(AL,)30 b(NOSPREAD)g(function)f(with)g(the)i(macro's)g
(in)m(v)m(o)s(cation)f(b)s(ound)f(as)h(a)241 4537 y(list)f(to)i(the)f
(macros)h(single)e(formal)h(parameter.)41 b(When)30 b(the)h(macro)g
(has)f(b)s(een)241 4650 y(ev)-5 b(aluated)30 b(the)h(resulting)d
(S-expression)h(is)h(reev)-5 b(aluated.)41 b(The)30 b(description)e(of)
i(the)241 4763 y(EV)-10 b(AL)30 b(and)g(EXP)-8 b(AND)31
b(functions)e(pro)m(vide)h(precise)f(details.)241 4908
y @beginspecial @setspecial @endspecial eop
%%Page: 622 622
622 621 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(622)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FR(91.2.6)113
b(Error)36 b(and)i(W)-9 b(arning)37 b(Messages)664 777
y FQ(Man)m(y)31 b(functions)e(detect)j(errors.)40 b(The)30
b(description)e(of)j(suc)m(h)f(functions)f(will)664 890
y(include)f(these)j(error)f(conditions)f(and)h(suggested)h(formats)f
(for)h(displa)m(y)d(of)j(the)664 1002 y(generated)h(error)e(messages.)
41 b(A)31 b(call)e(on)i(the)f(ERR)m(OR)g(function)f(is)h(implied)d(but)
664 1115 y(the)k(error)f(n)m(um)m(b)s(er)f(is)g(not)i(sp)s(eci\014ed)d
(b)m(y)j(Standard)e(LISP)-8 b(.)30 b(In)g(some)g(cases)i(a)664
1228 y(w)m(arning)d(message)i(is)e(su\016cien)m(t.)40
b(T)-8 b(o)31 b(distinguish)26 b(b)s(et)m(w)m(een)60
b(errors)30 b(and)f(w)m(arnings,)664 1341 y(errors)h(are)h(pre\014xed)e
(with)g(\014v)m(e)i(asterisks)f(and)f(w)m(arnings)h(with)f(only)g
(three.)664 1504 y(Primitiv)m(e)g(functions)g(c)m(hec)m(k)j(argumen)m
(ts)e(that)h(m)m(ust)f(b)s(e)g(of)h(a)f(certain)h(primitiv)m(e)664
1617 y(t)m(yp)s(e)g(for)f(b)s(eing)f(of)h(that)h(t)m(yp)s(e)g(and)f
(displa)m(y)e(an)i(error)g(message)i(if)d(the)i(argumen)m(t)g(is)664
1730 y(not)g(correct.)42 b(The)30 b(t)m(yp)s(e)g(mismatc)m(h)g(error)g
(alw)m(a)m(ys)h(tak)m(es)h(the)f(form:)664 1952 y FJ(*****)47
b(PARAMETER)e(not)i(TYPE)f(for)h(FN)664 2125 y FQ(Here)31
b(P)-8 b(ARAMETER)31 b(is)e(the)i(unacceptable)f(actual)h(parameter,)g
(TYPE)f(is)f(the)664 2238 y(t)m(yp)s(e)i(that)g(P)-8
b(ARAMETER)30 b(w)m(as)h(supp)s(osed)d(to)k(b)s(e.)40
b(FN)30 b(is)g(the)g(name)h(of)f(the)664 2351 y(function)f(that)i
(detected)h(the)e(error.)664 2478 y @beginspecial @setspecial
@endspecial 166 x FR(91.2.7)113 b(Commen)m(ts)664 2866
y FQ(The)30 b(c)m(haracter)i(\045)e(signals)f(the)i(start)g(of)f(a)h
(commen)m(t,)g(text)h(to)f(b)s(e)f(ignored)f(during)664
2979 y(parsing.)39 b(A)31 b(commen)m(t)g(is)f(terminated)g(b)m(y)g(the)
h(end)e(of)i(the)f(line)f(it)60 b(is)30 b(on.)40 b(The)664
3092 y(function)29 b(READCH)i(m)m(ust)f(b)s(e)g(able)g(to)h(read)f(a)h
(commen)m(t)g(one)g(c)m(haracter)h(at)f(a)664 3205 y(time.)41
b(Commen)m(ts)30 b(are)h(transparen)m(t)f(to)h(the)g(function)e(READ.)i
(\045)f(ma)m(y)h(o)s(ccur)f(as)h(a)664 3318 y(c)m(haracter)h(in)d(iden)
m(ti\014ers)g(b)m(y)h(preceding)f(it)h(with)f(the)i(escap)s(e)g(c)m
(haracter)h(!.)664 3472 y @beginspecial @setspecial @endspecial
182 x FE(91.3)136 b(F)-11 b(unctions)664 3744 y @beginspecial
@setspecial @endspecial 166 x FR(91.3.1)113 b(Elemen)m(tary)36
b(Predicates)664 4131 y FQ(F)-8 b(unctions)30 b(in)f(this)g(section)i
(return)e(T)h(when)g(the)g(condition)f(de\014ned)g(is)h(met)g(and)664
4244 y(NIL)g(when)g(it)g(is)f(not.)41 b(De\014ned)30
b(are)h(t)m(yp)s(e)f(c)m(hec)m(king)i(functions)c(and)i(elemen)m(tary)
664 4357 y(comparisons.)p eop
%%Page: 623 623
623 622 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(623)241 623 y FJ(ATOM)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)p FQ(o)s(olean)1697
b FD(eval,)33 b(spr)-5 b(e)g(ad)391 736 y FQ(Returns)29
b(T)h(if)g(U)g(is)f(not)i(a)g(pair.)391 931 y FJ(EXPR)46
b(PROCEDURE)g(ATOM\(U\);)534 1043 y(NULL)h(PAIRP)f(U;)241
1467 y(CODEP)p FQ(\()p FN(U)p FQ(:)p FJ(any)p FQ(\):)p
FD(b)p FQ(o)s(olean)1646 b FD(eval,)33 b(spr)-5 b(e)g(ad)391
1579 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(a)i(function-p)s(oin)m(ter.)
241 1986 y FJ(CONSTANTP)p FQ(\()p FN(U)p FQ(:)p FD(any)p
FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1473 b(eval,)33 b(spr)-5
b(e)g(ad)391 2099 y FQ(Returns)31 b(T)g(if)g(U)g(is)g(a)h(constan)m(t)h
(\(a)g(n)m(um)m(b)s(er,)e(string,)g(function-p)s(oin)m(ter,)g(or)391
2212 y(v)m(ector\).)391 2406 y FJ(EXPR)46 b(PROCEDURE)g
(CONSTANTP\(U\);)534 2519 y(NULL)h(OR\(PAIRP)e(U,)i(IDP)g(U\);)241
2942 y(EQ)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)32 b
FN(V)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1507
b(eval,)33 b(spr)-5 b(e)g(ad)391 3055 y FQ(Returns)30
b(T)i(if)e(U)i(p)s(oin)m(ts)e(to)i(the)g(same)g(ob)5
b(ject)33 b(as)e(V.)h(EQ)f(is)g(not)p 2563 3068 132 4
v 32 w(a)h(reliable)391 3168 y(comparison)d(b)s(et)m(w)m(een)i(n)m
(umeric)f(argumen)m(ts.)241 3575 y FJ(EQN)p FQ(\()p FN(U)p
FQ(:)p FD(any)p FQ(,)h FN(V)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1460 b(eval,)33 b(spr)-5 b(e)g(ad)391
3688 y FQ(Returns)32 b(T)h(if)f(U)h(and)f(V)i(are)f(EQ)g(or)g(if)f(U)h
(and)g(V)g(are)g(n)m(um)m(b)s(ers)f(and)g(ha)m(v)m(e)391
3801 y(the)e(same)h(v)-5 b(alue)30 b(and)g(t)m(yp)s(e.)241
4208 y FJ(EQUAL)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)h
FN(V)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1364
b(eval,)33 b(spr)-5 b(e)g(ad)391 4321 y FQ(Returns)42
b(T)g(if)g(U)i(and)e(V)h(are)h(the)f(same.)79 b(Dotted-pairs)43
b(are)h(compared)391 4434 y(recursiv)m(ely)38 b(to)j(the)f(b)s(ottom)g
(lev)m(els)f(of)h(their)f(trees.)69 b(V)-8 b(ectors)42
b(m)m(ust)d(ha)m(v)m(e)391 4547 y(iden)m(tical)k(dimensions)e(and)i
(EQUAL)h(v)-5 b(alues)43 b(in)g(all)g(p)s(ositions.)79
b(Strings)391 4659 y(m)m(ust)g(ha)m(v)m(e)41 b(iden)m(tical)e(c)m
(haracters.)70 b(F)-8 b(unction)40 b(p)s(oin)m(ters)e(m)m(ust)i(ha)m(v)
m(e)h(EQ)391 4772 y(v)-5 b(alues.)40 b(Other)30 b(atoms)h(m)m(ust)f(b)s
(e)g(EQN)g(equal.)p eop
%%Page: 624 624
624 623 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(624)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(FIXP)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)j(o)g(ole)g(an)1714
b(eval,)33 b(spr)-5 b(e)g(ad)814 736 y FQ(Returns)30
b(T)g(if)f(U)h(is)g(an)g(in)m(teger)h(\(a)g(\014xed)f(n)m(um)m(b)s
(er\).)664 1148 y FJ(FLOATP)p FQ(\()p FN(U)p FQ(:)p FD(any)p
FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1618 b(eval,)33 b(spr)-5
b(e)g(ad)814 1261 y FQ(Returns)30 b(T)g(if)f(U)h(is)g(a)h(\015oating)f
(p)s(oin)m(t)f(n)m(um)m(b)s(er.)664 1668 y FJ(IDP)p FQ(\()p
FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1762
b(eval,)33 b(spr)-5 b(e)g(ad)814 1781 y FQ(Returns)30
b(T)g(if)f(U)h(is)g(an)g(id.)664 2170 y FJ(MINUSP)p FQ(\()p
FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1618
b(eval,)33 b(spr)-5 b(e)g(ad)814 2283 y FQ(Returns)28
b(T)h(if)f(U)i(is)e(a)h(n)m(um)m(b)s(er)f(and)h(less)f(than)h(0.)41
b(If)29 b(U)g(is)f(not)i(a)f(n)m(um)m(b)s(er)f(or)814
2396 y(is)i(a)g(p)s(ositiv)m(e)g(n)m(um)m(b)s(er,)f(NIL)h(is)g
(returned.)814 2590 y FJ(EXPR)47 b(PROCEDURE)e(MINUSP\(U\);)957
2703 y(IF)j(NUMBERP)d(U)j(THEN)e(LESSP\(U,)g(0\))h(ELSE)g(NIL;)664
3126 y(NULL)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1714 b(eval,)33 b(spr)-5 b(e)g(ad)814
3239 y FQ(Returns)30 b(T)g(if)f(U)h(is)g(NIL.)814 3433
y FJ(EXPR)47 b(PROCEDURE)e(NULL\(U\);)957 3546 y(U)j(EQ)f(NIL;)664
3969 y(NUMBERP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1570 b(eval,)33 b(spr)-5 b(e)g(ad)814
4082 y FQ(Returns)30 b(T)g(if)f(U)h(is)g(a)h(n)m(um)m(b)s(er)e(\(in)m
(teger)i(or)f(\015oating\).)814 4277 y FJ(EXPR)47 b(PROCEDURE)e
(NUMBERP\(U\);)957 4389 y(IF)j(OR\(FIXP)d(U,)j(FLOATP)e(U\))h(THEN)f(T)
i(ELSE)f(NIL;)p eop
%%Page: 625 625
625 624 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(625)241 623 y FJ(ONEP)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1686
b(eval,)32 b(spr)-5 b(e)g(ad.)391 736 y FQ(Returns)28
b(T)g(if)f(U)i(is)f(a)h(n)m(um)m(b)s(er)f(and)g(has)g(the)h(v)-5
b(alue)28 b(1)h(or)g(1.0.)41 b(Returns)28 b(NIL)391 849
y(otherwise.)40 b @beginspecial @setspecial @endspecial
-33 x Fb(a)391 1043 y FJ(EXPR)46 b(PROCEDURE)g(ONEP\(U\);)534
1156 y(OR\(EQN\(U,)f(1\),)i(EQN\(U,)f(1.0\)\);)p 391
1252 1080 4 v 495 1305 a Fa(a)529 1337 y @beginspecial
@setspecial @endspecial Fx(The)24 b(de\014nition)g(in)g(the)f
(published)g(rep)r(ort)h(is)h(incorrect)g(as)f(it)g(do)r(es)h(not)e
(return)h(T)g(for)391 1429 y Fl(U)h Fx(of)i(1.0.)241
1845 y FJ(PAIRP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1665 b(eval,)33 b(spr)-5 b(e)g(ad)391
1958 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(a)i(dotted-pair.)241
2365 y FJ(STRINGP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1569 b(eval,)33 b(spr)-5 b(e)g(ad)391
2478 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(a)i(string.)241
2885 y FJ(VECTORP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1569 b(eval,)33 b(spr)-5 b(e)g(ad)391
2998 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(a)i(v)m(ector.)241
3387 y FJ(ZEROP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1638 b(eval,)32 b(spr)-5 b(e)g(ad.)391
3500 y FQ(Returns)28 b(T)g(if)f(U)i(is)f(a)h(n)m(um)m(b)s(er)f(and)g
(has)g(the)h(v)-5 b(alue)28 b(0)h(or)g(0.0.)41 b(Returns)28
b(NIL)391 3613 y(otherwise.)p @beginspecial @setspecial
@endspecial -33 x Fb(a)391 3807 y FJ(EXPR)46 b(PROCEDURE)g(ZEROP\(U\);)
534 3920 y(OR\(EQN\(U,)f(0\),)i(EQN\(U,)f(0.0\)\);)p
391 4015 V 495 4069 a Fa(a)529 4101 y @beginspecial @setspecial
@endspecial Fx(The)24 b(de\014nition)g(in)g(the)f(published)g(rep)r
(ort)h(is)h(incorrect)g(as)f(it)g(do)r(es)h(not)e(return)h(T)g(for)391
4192 y Fl(U)h Fx(of)i(0.0.)241 4355 y @beginspecial @setspecial
@endspecial 166 x FR(91.3.2)112 b(F)-9 b(unctions)37
b(on)h(Dotted-P)m(airs)241 4742 y FQ(The)30 b(follo)m(wing)e(are)j
(elemen)m(tary)g(functions)e(on)h(dotted-pairs.)41 b(All)29
b(functions)f(in)241 4855 y(this)h(section)i(whic)m(h)e(require)g
(dotted-pairs)h(as)g(parameters)h(detect)h(a)e(t)m(yp)s(e)p
eop
%%Page: 626 626
626 625 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(626)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FQ(mismatc)m(h)30
b(error)g(if)g(the)g(actual)h(parameter)g(is)e(not)i(a)g(dotted-pair.)
664 936 y FJ(CAR)p FQ(\()p FN(U)p FQ(:)p FD(dotte)-5
b(d-p)g(air)p FQ(\):)p FD(any)1622 b(eval,)33 b(spr)-5
b(e)g(ad)814 1049 y FQ(CAR\(CONS\(a,)37 b(b\)\))f FP(!)g
FQ(a.)57 b(The)35 b(left)g(part)h(of)g(U)g(is)e(returned.)56
b(The)35 b(t)m(yp)s(e)814 1162 y(mismatc)m(h)30 b(error)g(o)s(ccurs)g
(if)g(U)g(is)g(not)g(a)h(dotted-pair.)664 1569 y FJ(CDR)p
FQ(\()p FN(U)p FQ(:)p FD(dotte)-5 b(d-p)g(air)p FQ(\):)p
FD(any)1622 b(eval,)33 b(spr)-5 b(e)g(ad)814 1682 y FQ(CDR\(CONS\(a,)32
b(b\)\))g FP(!)g FQ(b.)43 b(The)31 b(righ)m(t)g(part)h(of)g(U)f(is)g
(returned.)43 b(The)31 b(t)m(yp)s(e)814 1795 y(mismatc)m(h)f(error)g(o)
s(ccurs)g(if)g(U)g(is)g(not)g(a)h(dotted-pair.)664 1983
y(The)f(comp)s(osites)g(of)h(CAR)f(and)g(CDR)g(are)h(supp)s(orted)d(up)
h(to)j(4)e(lev)m(els,)h(namely:)1314 2138 y(CAAAAR)105
b(CAAAR)f(CAAR)1314 2251 y(CAAADR)g(CAADR)f(CADR)1314
2364 y(CAAD)m(AR)k(CAD)m(AR)f(CD)m(AR)1314 2477 y(CAADDR)d(CADDR)f
(CDDR)1314 2590 y(CAD)m(AAR)107 b(CD)m(AAR)1314 2703
y(CAD)m(ADR)f(CD)m(ADR)1314 2816 y(CADD)m(AR)g(CDD)m(AR)1314
2929 y(CADDDR)c(CDDDR)1314 3041 y(CD)m(AAAR)1314 3154
y(CD)m(AADR)1314 3267 y(CD)m(AD)m(AR)1314 3380 y(CD)m(ADDR)1314
3493 y(CDD)m(AAR)1314 3606 y(CDD)m(ADR)1314 3719 y(CDDD)m(AR)1314
3832 y(CDDDDR)664 4142 y FJ(CONS)p FQ(\()p FN(U)p FQ(:)p
FD(any)p FQ(,)31 b FN(V)p FQ(:)p FD(any)p FQ(\):)p FD(dotte)-5
b(d-p)g(air)1273 b(eval,)33 b(spr)-5 b(e)g(ad)814 4255
y FQ(Returns)29 b(a)h(dotted-pair)g(whic)m(h)e(is)h(not)h(EQ)f(to)i(an)
m(ything)e(and)g(has)h(U)g(as)g(its)844 4368 y(CAR)h(part)f(and)g(V)g
(as)h(its)e(CDR)i(part.)p eop
%%Page: 627 627
627 626 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(627)241 623 y FJ(LIST)p
FQ(\([)p FN(U)p FQ(:)p FD(any)p FQ(]\):)p FD(list)1215
b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad,)35 b(or)f(macr)-5
b(o)391 736 y FQ(A)24 b(list)e(of)i(the)g(ev)-5 b(aluation)23
b(of)h(eac)m(h)h(elemen)m(t)g(of)f(U)g(is)f(returned.)37
b(The)23 b(order)h(of)391 849 y(ev)-5 b(aluation)20 b(need)h(not)g(b)s
(e)f(\014rst)g(to)h(last)g(as)g(the)g(follo)m(wing)e(de\014nition)g
(implies.)p @beginspecial @setspecial @endspecial -33
x Fb(a)391 1043 y FJ(FEXPR)46 b(PROCEDURE)f(LIST\(U\);)534
1156 y(EVLIS)h(U;)p 391 1252 1080 4 v 495 1305 a Fa(a)529
1337 y @beginspecial @setspecial @endspecial Fx(The)26
b(published)f(rep)r(ort's)h(de\014nition)g(implies)f(a)h(sp)r(eci\014c)
h(ordering.)241 1754 y FJ(RPLACA)p FQ(\()p FN(U)p FQ(:)p
FD(dotte)-5 b(d-p)g(air)p FQ(,)33 b FN(V)p FQ(:)p FD(any)p
FQ(\):)p FD(dotte)-5 b(d-p)g(air)894 b(eval,)33 b(spr)-5
b(e)g(ad)391 1867 y FQ(The)34 b(CAR)g(p)s(ortion)f(of)h(the)h
(dotted-pair)f(U)h(is)e(replaced)h(b)m(y)g(V.)h(If)f(dotted-)391
1980 y(pair)c(U)i(is)f(\(a)h(.)45 b(b\))31 b(then)h(\(V)g(.)g(b\))f(is)
g(returned.)44 b(The)31 b(t)m(yp)s(e)h(mismatc)m(h)f(error)391
2093 y(o)s(ccurs)f(if)f(U)i(is)e(not)i(a)f(dotted-pair.)241
2499 y FJ(RPLACD)p FQ(\()p FN(U)p FQ(:)p FD(dotte)-5
b(d-p)g(air)p FQ(,)33 b FN(V)p FQ(:)p FD(any)p FQ(\):)p
FD(dotte)-5 b(d-p)g(air)894 b(eval,)33 b(spr)-5 b(e)g(ad)391
2612 y FQ(The)34 b(CDR)g(p)s(ortion)f(of)h(the)h(dotted-pair)f(U)g(is)f
(replaced)h(b)m(y)g(V.)h(If)f(dotted-)391 2725 y(pair)c(U)h(is)g(\(a)h
(.)43 b(b\))31 b(then)g(\(a)i(.)43 b(V\))32 b(is)e(returned.)43
b(The)30 b(t)m(yp)s(e)i(mismatc)m(h)f(error)391 2838
y(o)s(ccurs)f(if)f(U)i(is)e(not)i(a)f(dotted-pair.)241
2991 y @beginspecial @setspecial @endspecial 166 x FR(91.3.3)112
b(Iden)m(ti\014ers)241 3379 y FQ(The)30 b(follo)m(wing)e(functions)h
(deal)h(with)f(iden)m(ti\014ers)g(and)h(the)g(OBLIST,)g(the)241
3492 y(structure)g(of)g(whic)m(h)f(is)h(not)g(de\014ned.)40
b(The)30 b(function)f(of)h(the)h(OBLIST)e(is)g(to)241
3605 y(pro)m(vide)g(a)i(sym)m(b)s(ol)e(table)h(for)h(iden)m(ti\014ers)d
(created)j(during)e(input.)38 b(Iden)m(ti\014ers)241
3718 y(created)31 b(b)m(y)f(READ)h(whic)m(h)e(ha)m(v)m(e)j(the)e(same)h
(c)m(haracters)h(will)58 b(therefore)31 b(refer)f(to)241
3830 y(the)g(same)h(ob)5 b(ject)31 b(\(see)h(the)e(EQ)g(function)f(in)g
(\\Elemen)m(tary)i(Predicates",)241 3943 y(section)f
@beginspecial @setspecial @endspecial(91.3.1)j(on)d(page)h
@beginspecial @setspecial @endspecial(622)r(\).)p eop
%%Page: 628 628
628 627 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(628)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(COMPRESS)p
FQ(\()p FN(U)p FQ(:)p FD(id-list)p FQ(\):)p FP(f)p FD(atom)p
FQ(-)p FD(ve)j(ctor)p FP(g)1168 b FD(eval,)33 b(spr)-5
b(e)g(ad)814 736 y FQ(U)32 b(is)f(a)h(list)f(of)h(single)f(c)m
(haracter)i(iden)m(ti\014ers)d(whic)m(h)h(is)g(built)e(in)m(to)j(a)h
(Stand-)814 849 y(ard)45 b(LISP)g(en)m(tit)m(y)h(and)f(returned.)85
b(Recognized)46 b(are)g(n)m(um)m(b)s(ers,)i(strings,)814
962 y(and)43 b(iden)m(ti\014ers)e(with)g(the)j(escap)s(e)f(c)m
(haracter)i(pre\014xing)c(sp)s(ecial)h(c)m(harac-)814
1075 y(ters.)47 b(The)32 b(formats)h(of)f(these)h(items)f(app)s(ear)g
(in)f(\\Primitiv)m(e)g(Data)j(T)m(yp)s(es")814 1188 y(section)h
@beginspecial @setspecial @endspecial(91.2.1)h(on)e(page)h
@beginspecial @setspecial @endspecial(615)r(.)52 b(Iden)m(ti\014ers)33
b(are)h(not)h(in)m(terned)e(on)h(the)h(OB-)814 1301 y(LIST.)26
b(F)-8 b(unction)26 b(p)s(oin)m(ters)f(ma)m(y)j(b)s(e)e(compressed)g
(but)g(this)f(is)h(an)g(unde\014ned)814 1414 y(use.)39
b(If)25 b(an)h(en)m(tit)m(y)g(cannot)g(b)s(e)f(parsed)g(out)h(of)g(U)g
(or)f(c)m(haracters)i(are)f(left)g(o)m(v)m(er)814 1527
y(after)31 b(parsing)e(an)h(error)g(o)s(ccurs:)814 1700
y FJ(*****)47 b(Poorly)f(formed)g(atom)g(in)i(COMPRESS)664
2262 y(EXPLODE)p FQ(\()p FN(U)p FQ(:)p FP(f)p FD(atom)p
FP(g)p FQ(-)p FP(f)p FD(ve)-5 b(ctor)p FP(g)p FQ(\):)p
FD(id-list)1126 b(eval,)33 b(spr)-5 b(e)g(ad)814 2375
y FQ(Returned)20 b(is)g(a)h(list)e(of)i(in)m(terned)f(c)m(haracters)i
(represen)m(ting)e(the)h(c)m(haracters)h(to)814 2488
y(prin)m(t)k(of)h(the)g(v)-5 b(alue)27 b(of)g(U.)h(The)e(primitiv)m(e)f
(data)j(t)m(yp)s(es)f(ha)m(v)m(e)h(these)g(formats:)814
2700 y FN(in)m(teger)46 b FQ(Leading)24 b(zero)s(es)i(are)f(suppressed)
e(and)h(a)i(min)m(us)d(sign)h(pre\014xes)g(the)1041 2813
y(digits)29 b(if)h(the)g(in)m(teger)h(is)f(negativ)m(e.)814
3001 y FN(\015oating)46 b FQ(The)34 b(v)-5 b(alue)34
b(app)s(ears)g(in)f(the)i(format)f([-]0.nn...nnE[-]mm)h(if)f(the)1041
3114 y(magnitude)40 b(of)h(the)g(n)m(um)m(b)s(er)f(is)g(to)s(o)h(large)
g(or)g(small)e(to)i(displa)m(y)e(in)1041 3226 y([-]nnnn.nnnn)24
b(format.)39 b(The)26 b(crosso)m(v)m(er)i(p)s(oin)m(t)d(is)h
(determined)f(b)m(y)h(the)1041 3339 y(implemen)m(tation.)814
3527 y FN(id)46 b FQ(The)36 b(c)m(haracters)i(of)e(the)h(prin)m(t)e
(name)h(of)h(the)f(iden)m(ti\014er)f(are)i(pro)s(duced)1041
3640 y(with)30 b(sp)s(ecial)e(c)m(haracters)k(pre\014xed)e(with)f(the)h
(escap)s(e)h(c)m(haracter.)814 3827 y FN(string)46 b
FQ(The)21 b(c)m(haracters)j(of)e(the)g(string)f(are)i(pro)s(duced)d
(surrounded)g(b)m(y)h(dou-)1041 3940 y(ble)30 b(quotes)h(".)16
b(.)f(.)g(".)814 4128 y FN(function-p)s(oin)m(ter)46
b FQ(The)30 b(v)-5 b(alue)29 b(of)i(the)f(function-p)s(oin)m(ter)e(is)h
(created)i(as)g(a)1041 4241 y(list)h(of)h(c)m(haracters)h(conforming)e
(to)i(the)f(con)m(v)m(en)m(tions)h(of)f(the)g(system)1041
4354 y(site.)814 4566 y(The)43 b(t)m(yp)s(e)h(mismatc)m(h)f(error)h(o)s
(ccurs)f(if)g(U)g(is)g(not)h(a)g(n)m(um)m(b)s(er,)i(iden)m(ti\014er,)
814 4679 y(string,)30 b(or)g(function-p)s(oin)m(ter.)p
eop
%%Page: 629 629
629 628 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(629)241 623 y FJ(GENSYM)p
FQ(\(\):)p FD(identi\014er)1788 b(eval,)33 b(spr)-5 b(e)g(ad)391
736 y FQ(Creates)30 b(an)g(iden)m(ti\014er)f(whic)m(h)f(is)h(not)i(in)m
(terned)e(on)h(the)g(OBLIST)f(and)g(con-)391 849 y(sequen)m(tly)h(not)g
(EQ)g(to)h(an)m(ything)f(else.)241 1256 y FJ(INTERN)p
FQ(\()p FN(U)p FQ(:)p FP(f)p FD(id,string)p FP(g)p FQ(\):)p
FD(id)1547 b(eval,)33 b(spr)-5 b(e)g(ad)391 1369 y FQ(INTERN)29
b(searc)m(hes)i(the)e(OBLIST)g(for)g(an)h(iden)m(ti\014er)e(with)g(the)
i(same)g(prin)m(t)391 1482 y(name)44 b(as)g(U)f(and)h(returns)e(the)i
(iden)m(ti\014er)e(on)h(the)h(OBLIST)f(if)g(a)h(matc)m(h)391
1595 y(is)35 b(found.)59 b(An)m(y)37 b(prop)s(erties)e(and)h(global)g
(v)-5 b(alues)36 b(asso)s(ciated)h(with)e(U)i(ma)m(y)391
1708 y(b)s(e)g(lost.)64 b(If)37 b(U)i(do)s(es)e(not)i(matc)m(h)f(an)m
(y)h(en)m(try)-8 b(,)41 b(a)d(new)g(one)g(is)f(created)i(and)391
1821 y(returned.)61 b(If)37 b(U)h(has)f(more)h(than)f(the)h(maxim)m(um)
e(n)m(um)m(b)s(er)h(of)g(c)m(haracters)391 1934 y(p)s(ermitted)g(b)m(y)
h(the)h(implemen)m(tation)e(\(the)i(minim)m(um)d(n)m(um)m(b)s(er)h(is)g
(24\))j(an)391 2046 y(error)30 b(o)s(ccurs:)391 2219
y FJ(*****)46 b(Too)h(many)g(characters)e(to)i(INTERN)241
2781 y(REMOB)p FQ(\()p FN(U)p FQ(:)p FD(id)p FQ(\):)p
FD(id)1939 b(eval,)33 b(spr)-5 b(e)g(ad)391 2894 y FQ(If)28
b(U)i(is)e(presen)m(t)h(on)g(the)g(OBLIST)f(it)g(is)g(remo)m(v)m(ed.)42
b(This)27 b(do)s(es)i(not)g(a\013ect)i(U)391 3007 y(ha)m(ving)f(prop)s
(erties,)f(\015ags,)i(functions)d(and)i(the)h(lik)m(e.)40
b(U)30 b(is)g(returned.)241 3160 y @beginspecial @setspecial
@endspecial 167 x FR(91.3.4)112 b(Prop)s(ert)m(y)37 b(List)g(F)-9
b(unctions)241 3548 y FQ(With)30 b(eac)m(h)h(id)e(in)g(the)i(system)f
(is)g(a)h(\\prop)s(ert)m(y)f(list",)f(a)i(set)g(of)g(en)m(tities)f
(whic)m(h)f(are)241 3661 y(asso)s(ciated)i(with)e(the)h(id)f(for)h
(fast)h(access.)42 b(These)30 b(en)m(tities)h(are)f(called)g
(\\\015ags")h(if)241 3774 y(their)e(use)h(giv)m(es)h(the)g(id)e(a)h
(single)f(v)-5 b(alued)30 b(prop)s(ert)m(y)-8 b(,)30
b(and)g(\\prop)s(erties")g(if)f(the)i(id)e(is)241 3887
y(to)i(ha)m(v)m(e)g(a)g(m)m(ultiv)-5 b(alued)28 b(attribute:)41
b(an)30 b(indicator)f(with)g(a)i(prop)s(ert)m(y)-8 b(.)241
4049 y(Flags)29 b(and)g(indicators)f(ma)m(y)i(clash,)g(consequen)m(tly)
f(care)h(should)e(b)s(e)g(tak)m(en)j(to)f(a)m(v)m(oid)241
4162 y(this)f(o)s(ccurrence.)41 b(Flagging)30 b(X)h(with)e(an)h(id)f
(whic)m(h)g(already)h(is)g(an)g(indicator)f(for)h(X)241
4275 y(ma)m(y)h(result)e(in)g(that)i(indicator)e(and)h(asso)s(ciated)h
(prop)s(ert)m(y)e(b)s(eing)g(lost.)41 b(Lik)m(ewise,)241
4388 y(adding)29 b(an)h(indicator)f(whic)m(h)g(is)h(the)g(same)h(id)e
(as)i(a)f(\015ag)h(ma)m(y)g(result)e(in)g(the)i(\015ag)241
4501 y(b)s(eing)e(destro)m(y)m(ed.)p eop
%%Page: 630 630
630 629 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(630)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(FLAG)p
FQ(\()p FN(U)p FQ(:)p FD(id-list)p FQ(,)31 b FN(V)p FQ(:)p
FD(id)p FQ(\):)p FD(NIL)1517 b(eval,)33 b(spr)-5 b(e)g(ad)814
736 y FQ(U)38 b(is)f(a)h(list)f(of)g(ids)g(whic)m(h)f(are)j(\015agged)f
(with)e(V.)j(The)e(e\013ect)i(of)f(FLA)m(G)h(is)814 849
y(that)i(FLA)m(GP)g(will)d(ha)m(v)m(e)j(the)g(v)-5 b(alue)39
b(T)h(for)g(those)h(ids)e(of)h(U)h(whic)m(h)e(w)m(ere)814
962 y(\015agged.)i(Both)31 b(V)f(and)f(all)g(the)h(elemen)m(ts)h(of)f
(U)g(m)m(ust)g(b)s(e)f(iden)m(ti\014ers)f(or)i(the)814
1075 y(t)m(yp)s(e)h(mismatc)m(h)f(error)g(o)s(ccurs.)664
1482 y FJ(FLAGP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)h
FN(V)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1365
b(eval,)33 b(spr)-5 b(e)g(ad)814 1595 y FQ(Returns)23
b(T)h(if)f(U)h(has)g(b)s(een)g(previously)e(\015agged)j(with)d(V,)j
(else)f(NIL.)g(Returns)814 1708 y(NIL)30 b(if)g(either)f(U)i(or)f(V)h
(is)e(not)i(an)f(id.)664 2097 y FJ(GET)p FQ(\()p FN(U)p
FQ(:)p FD(any)p FQ(,)i FN(IND)p FQ(:)p FD(any)p FQ(\):)p
FD(any)1477 b(eval,)33 b(spr)-5 b(e)g(ad)814 2210 y FQ(Returns)32
b(the)g(prop)s(ert)m(y)g(asso)s(ciated)h(with)e(indicator)g(IND)h(from)
g(the)h(prop-)814 2323 y(ert)m(y)40 b(list)e(of)h(U.)h(If)e(U)i(do)s
(es)e(not)i(ha)m(v)m(e)g(indicator)e(IND,)i(NIL)f(is)f(returned.)814
2436 y(GET)30 b(cannot)h(b)s(e)f(used)g(to)h(access)g(functions)e
(\(use)i(GETD)f(instead\).)664 2848 y FJ(PUT)p FQ(\()p
FN(U)p FQ(:)p FD(id)p FQ(,)h FN(IND)p FQ(:)p FD(id)p
FQ(,)g FN(PR)m(OP)p FQ(:)p FD(any)p FQ(\):)p FD(any)1094
b(eval,)33 b(spr)-5 b(e)g(ad)814 2961 y FQ(The)21 b(indicator)g(IND)h
(with)f(the)g(prop)s(ert)m(y)h(PR)m(OP)f(is)g(placed)g(on)h(the)g(prop)
s(ert)m(y)814 3073 y(list)33 b(of)h(the)g(id)f(U.)i(If)e(the)i(action)f
(of)g(PUT)g(o)s(ccurs,)h(the)f(v)-5 b(alue)34 b(of)g(PR)m(OP)g(is)814
3186 y(returned.)k(If)26 b(either)f(of)h(U)g(and)g(IND)g(are)h(not)f
(ids)e(the)j(t)m(yp)s(e)f(mismatc)m(h)f(error)814 3299
y(will)32 b(o)s(ccur)i(and)g(no)h(prop)s(ert)m(y)f(will)e(b)s(e)i
(placed.)52 b(PUT)35 b(cannot)g(b)s(e)f(used)f(to)814
3412 y(de\014ne)d(functions)f(\(use)h(PUTD)h(instead\).)664
3824 y FJ(REMFLAG)p FQ(\()p FN(U)p FQ(:)p FD(any-list)p
FQ(,)g FN(V)p FQ(:)p FD(id)p FQ(\):)p FD(NIL)1306 b(eval,)33
b(spr)-5 b(e)g(ad)814 3937 y FQ(Remo)m(v)m(es)42 b(the)e(\015ag)g(V)g
(from)f(the)h(prop)s(ert)m(y)f(list)g(of)h(eac)m(h)h(mem)m(b)s(er)e(of)
h(the)814 4050 y(list)e(U.)i(Both)g(V)f(and)g(all)f(the)h(elemen)m(ts)h
(of)f(U)h(m)m(ust)f(b)s(e)f(ids)g(or)h(the)h(t)m(yp)s(e)814
4163 y(mismatc)m(h)30 b(error)g(will)e(o)s(ccur.)664
4552 y FJ(REMPROP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)j
FN(IND)p FQ(:)p FD(any)p FQ(\):)p FD(any)1286 b(eval,)33
b(spr)-5 b(e)g(ad)814 4665 y FQ(Remo)m(v)m(es)24 b(the)e(prop)s(ert)m
(y)g(with)f(indicator)g(IND)h(from)g(the)g(prop)s(ert)m(y)g(list)e(of)j
(U.)814 4778 y(Returns)j(the)i(remo)m(v)m(ed)g(prop)s(ert)m(y)e(or)h
(NIL)g(if)f(there)i(w)m(as)f(no)g(suc)m(h)g(indicator.)664
4931 y @beginspecial @setspecial @endspecial eop
%%Page: 631 631
631 630 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(631)241 555 y FR(91.3.5)112
b(F)-9 b(unction)37 b(De\014nition)241 777 y FQ(F)-8
b(unctions)30 b(in)f(Standard)g(LISP)g(are)i(global)f(en)m(tities.)40
b(T)-8 b(o)31 b(a)m(v)m(oid)g(function-v)-5 b(ariable)241
890 y(naming)29 b(clashes)h(no)g(v)-5 b(ariable)29 b(ma)m(y)i(ha)m(v)m
(e)h(the)f(same)f(name)h(as)f(a)h(function.)241 1270
y FJ(DE)p FQ(\()p FN(FNAME)p FQ(:)p FD(id)p FQ(,)f FN(P)-9
b(ARAMS)p FQ(:)p FD(id-list)p FQ(,)33 b FN(FN)p FQ(:)p
FD(any)p FQ(\):)p FD(id)446 b(no)-5 b(eval,)34 b(nospr)-5
b(e)g(ad)391 1383 y FQ(The)31 b(function)f(FN)i(with)f(the)g(formal)g
(parameter)h(list)f(P)-8 b(ARAMS)32 b(is)e(added)391
1496 y(to)36 b(the)f(set)h(of)g(de\014ned)e(functions)g(with)g(the)h
(name)h(FNAME.)g(An)m(y)g(previ-)391 1609 y(ous)h(de\014nitions)f(of)i
(the)g(function)e(are)i(lost.)63 b(The)37 b(function)g(created)i(is)e
(of)391 1722 y(t)m(yp)s(e)c(EXPR.)h(If)f(the)g(!*COMP)h(v)-5
b(ariable)32 b(is)h(non-NIL,)g(the)h(EXPR)f(is)f(\014rst)391
1835 y(compiled.)39 b(The)30 b(name)g(of)h(the)f(de\014ned)f(function)h
(is)f(returned.)391 2029 y FJ(FEXPR)46 b(PROCEDURE)f(DE\(U\);)534
2142 y(PUTD\(CAR)g(U,)j('EXPR,)e(LIST\('LAMBDA,)e(CADR)j(U,)g(CADDR)f
(U\)\);)241 2565 y(DF)p FQ(\()p FN(FNAME)p FQ(:)p FD(id)p
FQ(,)30 b FN(P)-9 b(ARAM)p FQ(:)p FD(id-list)p FQ(,)33
b FN(FN)p FQ(:)p FD(any)p FQ(\):)p FD(id)504 b(no)-5
b(eval,)34 b(nospr)-5 b(e)g(ad)391 2678 y FQ(The)26 b(function)g(FN)h
(with)f(formal)g(parameter)h(P)-8 b(ARAM)28 b(is)e(added)g(to)i(the)f
(set)391 2791 y(of)22 b(de\014ned)e(functions)h(with)f(the)i(name)g
(FNAME.)h(An)m(y)f(previous)e(de\014nitions)391 2904
y(of)30 b(the)h(function)e(are)h(lost.)41 b(The)30 b(function)f
(created)i(is)e(of)i(t)m(yp)s(e)f(FEXPR.)61 b(If)391
3017 y(the)33 b(!*COMP)g(v)-5 b(ariable)31 b(is)h(T)g(the)h(FEXPR)g(is)
e(\014rst)h(compiled.)46 b(The)33 b(name)391 3130 y(of)d(the)h
(de\014ned)e(function)g(is)g(returned.)391 3324 y FJ(FEXPR)46
b(PROCEDURE)f(DF\(U\);)534 3437 y(PUTD\(CAR)g(U,)j('FEXPR,)d
(LIST\('LAMBDA,)g(CADR)h(U,)h(CADDR)g(U\)\);)241 3973
y(DM)p FQ(\()p FN(MNAME)p FQ(:)p FD(id)p FQ(,)31 b FN(P)-9
b(ARAM)p FQ(:)p FD(id-list)p FQ(,)32 b FN(FN)p FQ(:)p
FD(any)p FQ(\):)p FD(id)471 b(no)-5 b(eval,)34 b(nospr)-5
b(e)g(ad)391 4086 y FQ(The)32 b(macro)i(FN)g(with)e(the)h(formal)f
(parameter)i(P)-8 b(ARAM)34 b(is)e(added)h(to)h(the)391
4199 y(set)e(of)h(de\014ned)e(functions)f(with)h(the)i(name)f(MNAME.)h
(An)m(y)f(previous)f(def-)391 4312 y(initions)i(of)j(the)g(function)e
(are)i(o)m(v)m(erwritten.)57 b(The)36 b(function)e(created)j(is)e(of)
391 4425 y(t)m(yp)s(e)30 b(MA)m(CR)m(O.)i(The)d(name)i(of)f(the)h
(macro)g(is)e(returned.)391 4619 y FJ(FEXPR)46 b(PROCEDURE)f(DM\(U\);)
534 4732 y(PUTD\(CAR)g(U,)j('MACRO,)d(LIST\('LAMBDA,)g(CADR)h(U,)h
(CADDR)g(U\)\);)p eop
%%Page: 632 632
632 631 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(632)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(GETD)p
FQ(\()p FN(FNAME)p FQ(:)p FD(any)p FQ(\):)p FP(f)p FQ(NIL,)31
b FD(dotte)-5 b(d-p)g(air)p FP(g)955 b FD(eval,)33 b(spr)-5
b(e)g(ad)814 736 y FQ(If)27 b(FNAME)i(is)e(not)h(the)f(name)h(of)g(a)g
(de\014ned)f(function,)g(NIL)g(is)g(returned.)39 b(If)814
849 y(FNAME)31 b(is)f(a)h(de\014ned)e(function)g(then)h(the)g
(dotted-pair)814 1052 y(\()p FN(TYPE)p FQ(:)p FD(ftyp)-5
b(e)32 b FQ(.)41 b FN(DEF)p FQ(:)p FP(f)p FD(function-p)-5
b(ointer,)34 b(lamb)-5 b(da)p FP(g)p FQ(\))814 1255 y(is)30
b(returned.)664 1644 y FJ(PUTD)p FQ(\()p FN(FNAME)p FQ(:)p
FD(id)p FQ(,)g FN(TYPE)p FQ(:)p FD(ftyp)-5 b(e)p FQ(,)32
b FN(BOD)m(Y)p FQ(:)p FD(function)p FQ(\):)p FD(id)400
b(eval,)33 b(spr)-5 b(e)g(ad)814 1757 y FQ(Creates)27
b(a)g(function)e(with)g(name)h(FNAME)h(and)f(de\014nition)e(BOD)m(Y)j
(of)g(t)m(yp)s(e)814 1870 y(TYPE.)40 b(If)g(PUTD)h(succeeds)f(the)h
(name)f(of)h(the)f(de\014ned)f(function)g(is)h(re-)814
1983 y(turned.)73 b(The)41 b(e\013ect)i(of)f(PUTD)g(is)e(that)i(GETD)g
(will)d(return)h(a)i(dotted-)814 2096 y(pair)25 b(with)g(the)h
(functions)f(t)m(yp)s(e)h(and)g(de\014nition.)37 b(Lik)m(ewise)25
b(the)h(GLOBALP)814 2209 y(predicate)k(will)58 b(return)30
b(T)g(when)f(queried)g(with)g(the)i(function)e(name.)814
2322 y(If)f(the)h(function)f(FNAME)h(has)g(already)f(b)s(een)g
(declared)g(as)h(a)g(GLOBAL)g(or)814 2435 y(FLUID)i(v)-5
b(ariable)29 b(the)i(error:)814 2608 y FJ(*****)47 b(FNAME)f(is)h(a)h
(non-local)d(variable)814 2893 y FQ(o)s(ccurs)d(and)f(the)h(function)e
(will)f(not)j(b)s(e)f(de\014ned.)74 b(If)41 b(function)f(FNAME)814
3006 y(already)30 b(exists)g(a)h(w)m(arning)e(message)j(will)27
b(app)s(ear:)814 3179 y FJ(***)47 b(FNAME)f(redefined)814
3465 y FQ(The)31 b(function)g(de\014ned)f(b)m(y)i(PUTD)f(will)e(b)s(e)i
(compiled)g(b)s(efore)g(de\014nition)e(if)814 3578 y(the)i(!*COMP)f
(global)g(v)-5 b(ariable)29 b(is)h(non-NIL.)664 3985
y FJ(REMD)p FQ(\()p FN(FNAME)p FQ(:)p FD(id)p FQ(\):)p
FP(f)p FQ(NIL,)h FD(dotte)-5 b(d-p)g(air)p FP(g)1022
b FD(eval,)33 b(spr)-5 b(e)g(ad)814 4098 y FQ(Remo)m(v)m(es)34
b(the)e(function)f(named)g(FNAME)i(from)e(the)h(set)h(of)f(de\014ned)f
(func-)814 4211 y(tions.)73 b(Returns)41 b(the)g(\(ft)m(yp)s(e)h(.)74
b(function\))40 b(dotted-pair)h(or)h(NIL)f(as)g(do)s(es)814
4323 y(GETD.)i(The)e(global/function)f(attribute)i(of)g(FNAME)h(is)e
(remo)m(v)m(ed)i(and)814 4436 y(the)31 b(name)f(ma)m(y)h(b)s(e)f(used)f
(subsequen)m(tly)g(as)i(a)g(v)-5 b(ariable.)664 4590
y @beginspecial @setspecial @endspecial eop
%%Page: 633 633
633 632 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(633)241 555 y FR(91.3.6)112
b(V)-9 b(ariables)37 b(and)h(Bindings)241 777 y FQ(A)30
b(v)-5 b(ariable)29 b(is)h(a)h(place)f(holder)f(for)h(a)h(Standard)e
(LISP)g(en)m(tit)m(y)i(whic)m(h)f(is)f(said)g(to)i(b)s(e)241
890 y(b)s(ound)d(to)j(the)g(v)-5 b(ariable.)39 b(The)30
b(scop)s(e)h(of)f(a)h(v)-5 b(ariable)29 b(is)g(the)i(range)g(o)m(v)m
(er)g(whic)m(h)f(the)241 1002 y(v)-5 b(ariable)29 b(has)h(a)h
(de\014ned)e(v)-5 b(alue.)40 b(There)30 b(are)h(three)f(di\013eren)m(t)
g(binding)d(mec)m(hanisms)241 1115 y(in)i(Standard)g(LISP)-8
b(.)241 1378 y FN(Lo)s(cal)35 b(Binding)46 b FQ(This)29
b(t)m(yp)s(e)i(of)f(binding)d(o)s(ccurs)j(only)g(in)f(compiled)g
(functions.)468 1491 y(Lo)s(cal)h(v)-5 b(ariables)29
b(o)s(ccur)h(as)h(formal)f(parameters)g(in)f(lam)m(b)s(da)h
(expressions)468 1604 y(and)g(as)g(PR)m(OG)h(form)f(v)-5
b(ariables.)39 b(The)30 b(binding)d(o)s(ccurs)k(when)e(a)i(lam)m(b)s
(da)468 1716 y(expression)c(is)h(ev)-5 b(aluated)29 b(or)g(when)e(a)i
(PR)m(OG)g(form)f(is)g(executed.)41 b(The)28 b(scop)s(e)468
1829 y(of)j(a)f(lo)s(cal)g(v)-5 b(ariable)29 b(is)h(the)g(b)s(o)s(dy)f
(of)h(the)h(function)e(in)g(whic)m(h)g(it)h(is)g(de\014ned.)241
2017 y FN(Global)35 b(Binding)46 b FQ(Only)29 b(one)i(binding)c(of)k(a)
f(global)g(v)-5 b(ariable)29 b(exists)h(at)h(an)m(y)g(time)468
2130 y(allo)m(wing)e(direct)h(access)i(to)f(the)f(v)-5
b(alue)30 b(b)s(ound)e(to)k(the)e(v)-5 b(ariable.)40
b(The)30 b(scop)s(e)468 2243 y(of)h(a)f(global)g(v)-5
b(ariable)29 b(is)h(univ)m(ersal.)39 b(V)-8 b(ariables)29
b(declared)h(GLOBAL)h(ma)m(y)468 2356 y(not)g(app)s(ear)e(as)i
(parameters)g(in)e(lam)m(b)s(da)g(expressions)g(or)h(as)h(PR)m(OG)g
(form)468 2469 y(v)-5 b(ariables.)39 b(A)31 b(v)-5 b(ariable)29
b(m)m(ust)h(b)s(e)g(declared)g(GLOBAL)g(prior)f(to)i(its)f(use)g(as)h
(a)468 2582 y(global)f(v)-5 b(ariable)29 b(since)h(the)g(default)g(t)m
(yp)s(e)g(for)g(undeclared)f(v)-5 b(ariables)29 b(is)468
2694 y(FLUID.)241 2882 y FN(Fluid)35 b(Binding)46 b FQ(Fluid)28
b(v)-5 b(ariables)29 b(are)i(global)f(in)f(scop)s(e)h(but)g(ma)m(y)h(o)
s(ccur)f(as)468 2995 y(formal)g(parameters)g(or)h(PR)m(OG)f(form)g(v)-5
b(ariables.)40 b(In)29 b(in)m(terpreted)h(functions)468
3108 y(all)f(formal)h(parameters)h(and)e(PR)m(OG)i(form)f(v)-5
b(ariables)29 b(are)i(considered)e(to)468 3221 y(ha)m(v)m(e)j(\015uid)c
(binding)f(un)m(til)i(c)m(hanged)i(to)g(lo)s(cal)e(binding)f(b)m(y)i
(compilation.)468 3334 y(When)g(\015uid)e(v)-5 b(ariables)29
b(are)i(used)f(as)g(parameters)h(they)f(are)h(reb)s(ound)e(in)468
3447 y(suc)m(h)h(a)h(w)m(a)m(y)g(that)g(the)g(previous)e(binding)e(ma)m
(y)k(b)s(e)f(restored.)40 b(All)29 b(references)468 3560
y(to)i(\015uid)d(v)-5 b(ariables)29 b(are)i(to)g(the)g(curren)m(tly)e
(activ)m(e)j(binding.)241 4040 y FJ(FLUID)p FQ(\()p FN(IDLIST)p
FQ(:)p FD(id-list)p FQ(\):)p FN(NIL)1403 b FD(eval,)33
b(spr)-5 b(e)g(ad)391 4153 y FQ(The)38 b(ids)g(in)g(IDLIST)g(are)i
(declared)f(as)g(FLUID)h(t)m(yp)s(e)f(v)-5 b(ariables)38
b(\(ids)g(not)391 4266 y(previously)32 b(declared)i(are)g(initialized)d
(to)k(NIL\).)g(V)-8 b(ariables)34 b(in)e(IDLIST)i(al-)391
4379 y(ready)28 b(declared)h(FLUID)g(are)g(ignored.)40
b(Changing)27 b(a)i(v)-5 b(ariable's)28 b(t)m(yp)s(e)h(from)391
4492 y(GLOBAL)h(to)h(FLUID)g(is)f(not)g(p)s(ermissible)d(and)j(results)
f(in)g(the)h(error:)391 4665 y FJ(*****)46 b(ID)h(cannot)f(be)i
(changed)d(to)j(FLUID)p eop
%%Page: 634 634
634 633 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(634)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(FLUIDP)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)j(o)g(ole)g(an)1618
b(eval,)33 b(spr)-5 b(e)g(ad)814 736 y FQ(If)34 b(U)g(has)g(b)s(een)f
(declared)g(FLUID)i(\(b)m(y)f(declaration)g(only\))f(T)h(is)f
(returned,)814 849 y(otherwise)d(NIL)g(is)g(returned.)664
1238 y FJ(GLOBAL)p FQ(\()p FN(IDLIST)p FQ(:)p FD(id-list)p
FQ(\):)p FN(NIL)1356 b FD(eval,)33 b(spr)-5 b(e)g(ad)814
1351 y FQ(The)23 b(ids)g(of)g(IDLIST)g(are)h(declared)f(global)g(t)m
(yp)s(e)h(v)-5 b(ariables.)37 b(If)24 b(an)f(id)f(has)i(not)814
1464 y(b)s(een)f(declared)f(previously)f(it)i(is)f(initialized)e(to)k
(NIL.)g(V)-8 b(ariables)22 b(already)h(de-)814 1577 y(clared)f(GLOBAL)h
(are)g(ignored.)37 b(Changing)22 b(a)h(v)-5 b(ariables)21
b(t)m(yp)s(e)h(from)h(FLUID)814 1690 y(to)31 b(GLOBAL)g(is)e(not)i(p)s
(ermissible)26 b(and)k(results)f(in)g(the)i(error:)814
1863 y FJ(*****)47 b(ID)g(cannot)f(be)h(changed)f(to)h(GLOBAL)664
2425 y(GLOBALP)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1570 b(eval,)33 b(spr)-5 b(e)g(ad)814
2538 y FQ(If)23 b(U)h(has)f(b)s(een)g(declared)g(GLOBAL)h(or)f(is)g
(the)h(name)f(of)h(a)g(de\014ned)e(function,)814 2651
y(T)30 b(is)g(returned,)f(else)h(NIL)g(is)g(returned.)664
3058 y FJ(SET)p FQ(\()p FN(EXP)p FQ(:)p FD(id)p FQ(,)h
FN(V)-12 b(ALUE)p FQ(:)p FD(any)p FQ(\):)p FD(any)1250
b(eval,)33 b(spr)-5 b(e)g(ad)814 3171 y FQ(EXP)40 b(m)m(ust)f(b)s(e)g
(an)h(iden)m(ti\014er)e(or)i(a)g(t)m(yp)s(e)f(mismatc)m(h)h(error)f(o)s
(ccurs.)69 b(The)814 3284 y(e\013ect)37 b(of)e(SET)f(is)g(replacemen)m
(t)i(of)f(the)g(item)g(b)s(ound)e(to)j(the)f(iden)m(ti\014er)e(b)m(y)
814 3397 y(V)-10 b(ALUE.)34 b(If)g(the)g(iden)m(ti\014er)e(is)h(not)h
(a)h(lo)s(cal)e(v)-5 b(ariable)33 b(or)h(has)g(not)g(b)s(een)f(de-)814
3509 y(clared)26 b(GLOBAL)h(it)f(is)g(automatically)g(declared)g(FLUID)
h(with)e(the)i(result-)814 3622 y(ing)j(w)m(arning)f(message:)814
3795 y FJ(***)47 b(EXP)g(declared)f(FLUID)814 4081 y
FQ(EXP)30 b(m)m(ust)h(not)f(ev)-5 b(aluate)31 b(to)g(T)f(or)h(NIL)f(or)
g(an)h(error)f(o)s(ccurs:)814 4254 y FJ(*****)47 b(Cannot)f(change)g(T)
h(or)g(NIL)p eop
%%Page: 635 635
635 634 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(635)241 623 y FJ(SETQ)p
FQ(\()p FN(V)-12 b(ARIABLE)p FQ(:)p FD(id)p FQ(,)31 b
FN(V)-12 b(ALUE)p FQ(:)p FD(any)p FQ(\):)p FD(any)681
b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad)391 736 y FQ(If)44
b(V)-10 b(ARIABLE)46 b(is)e(not)h(lo)s(cal)f(or)h(GLOBAL)g(it)g(is)f(b)
m(y)h(default)f(declared)391 849 y(FLUID)31 b(and)e(the)i(w)m(arning)e
(message:)391 1022 y FJ(***)47 b(VARIABLE)e(declared)h(FLUID)391
1308 y FQ(app)s(ears.)39 b(The)26 b(v)-5 b(alue)27 b(of)h(the)f(curren)
m(t)g(binding)d(of)k(V)-10 b(ARIABLE)27 b(is)f(replaced)391
1421 y(b)m(y)37 b(the)g(v)-5 b(alue)37 b(of)g(V)-10 b(ALUE.)38
b(V)-10 b(ARIABLE)37 b(m)m(ust)g(not)h(b)s(e)f(T)f(or)i(NIL)f(or)g(an)
391 1534 y(error)30 b(o)s(ccurs:)391 1707 y FJ(*****)46
b(Cannot)g(change)g(T)i(or)f(NIL)391 2074 y(MACRO)f(PROCEDURE)f
(SETQ\(X\);)534 2187 y(LIST\('SET,)g(LIST\('QUOTE,)f(CADR)j(X\),)g
(CADDR)f(X\);)241 2610 y(UNFLUID)p FQ(\()p FN(IDLIST)p
FQ(:)p FD(id-list)p FQ(\):)p FD(NIL)1332 b(eval,)33 b(spr)-5
b(e)g(ad)391 2723 y FQ(The)40 b(v)-5 b(ariables)39 b(in)h(IDLIST)g
(that)h(ha)m(v)m(e)h(b)s(een)e(declared)g(as)h(FLUID)g(v)-5
b(ari-)391 2836 y(ables)27 b(are)h(no)g(longer)f(considered)g(as)h
(\015uid)d(v)-5 b(ariables.)39 b(Others)27 b(are)h(ignored.)391
2949 y(This)k(a\013ects)j(only)e(compiled)f(functions)g(as)i(free)g(v)
-5 b(ariables)32 b(in)g(in)m(terpreted)391 3061 y(functions)d(are)h
(automatically)h(considered)e(\015uid)f([)p @beginspecial
@setspecial @endspecial(10)q(].)241 3220 y @beginspecial
@setspecial @endspecial 166 x FR(91.3.7)112 b(Program)37
b(F)-9 b(eature)38 b(F)-9 b(unctions)241 3607 y FQ(These)30
b(functions)f(pro)m(vide)g(for)h(explicit)f(con)m(trol)i(sequencing,)f
(and)g(the)g(de\014nition)241 3720 y(of)g(blo)s(c)m(ks)g(altering)g
(the)g(scop)s(e)h(of)f(lo)s(cal)g(v)-5 b(ariables.)p
eop
%%Page: 636 636
636 635 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(636)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(GO)p
FQ(\()p FN(LABEL)p FQ(:)p FD(id)p FQ(\))1724 b FD(no)-5
b(eval,)34 b(nospr)-5 b(e)g(ad)814 736 y FQ(GO)31 b(alters)g(the)h
(normal)e(\015o)m(w)h(of)g(con)m(trol)h(within)d(a)i(PR)m(OG)h
(function.)42 b(The)814 849 y(next)33 b(statemen)m(t)h(of)e(a)h(PR)m
(OG)f(function)f(to)i(b)s(e)f(ev)-5 b(aluated)32 b(is)g(immediately)814
962 y(preceded)e(b)m(y)f(LABEL.)h(A)g(GO)g(ma)m(y)h(only)d(app)s(ear)i
(in)e(the)i(follo)m(wing)e(situa-)814 1075 y(tions:)814
1137 y @beginspecial @setspecial @endspecial 925 1288
a(1.)46 b(A)m(t)33 b(the)e(top)h(lev)m(el)f(of)g(a)h(PR)m(OG)g
(referencing)e(a)i(lab)s(el)e(whic)m(h)g(also)h(ap-)1041
1400 y(p)s(ears)f(at)h(the)g(top)f(lev)m(el)g(of)h(the)g(same)f(PR)m
(OG.)814 1456 y @beginspecial @setspecial @endspecial
925 1588 a(2.)46 b(As)33 b(the)g(consequen)m(t)g(of)g(a)g(COND)f(item)h
(of)g(a)g(COND)f(app)s(earing)f(on)1041 1701 y(the)g(top)g(lev)m(el)f
(of)g(a)h(PR)m(OG.)814 1756 y @beginspecial @setspecial
@endspecial 925 1889 a(3.)46 b(As)30 b(the)g(consequen)m(t)h(of)f(a)g
(COND)g(item)g(whic)m(h)e(app)s(ears)h(as)h(the)h(con-)1041
2002 y(sequen)m(t)g(of)g(a)g(COND)f(item)g(to)h(an)m(y)g(lev)m(el.)814
2057 y @beginspecial @setspecial @endspecial 925 2189
a(4.)46 b(As)35 b(the)g(last)f(statemen)m(t)i(of)f(a)g(PR)m(OGN)g(whic)
m(h)e(app)s(ears)h(at)h(the)g(top)1041 2302 y(lev)m(el)c(of)h(a)f(PR)m
(OG)g(or)h(in)d(a)j(PR)m(OGN)f(app)s(earing)f(in)g(the)h(consequen)m(t)
1041 2415 y(of)g(a)g(COND)f(to)h(an)m(y)g(lev)m(el)f(sub)5
b(ject)30 b(to)h(the)g(restrictions)e(of)i(2)f(and)g(3.)814
2470 y @beginspecial @setspecial @endspecial 925 2603
a(5.)46 b(As)28 b(the)g(last)f(statemen)m(t)j(of)d(a)h(PR)m(OGN)g
(within)d(a)j(PR)m(OGN)g(or)g(as)g(the)1041 2716 y(consequen)m(t)40
b(of)e(a)h(COND)f(in)f(a)i(PR)m(OGN)g(to)g(an)m(y)g(lev)m(el)f(sub)5
b(ject)38 b(to)1041 2828 y(the)31 b(restrictions)e(of)i(2,)g(3)g(and)e
(4.)814 3041 y(If)36 b(LABEL)g(do)s(es)f(not)h(app)s(ear)g(at)g(the)h
(top)f(lev)m(el)f(of)h(the)h(PR)m(OG)f(in)e(whic)m(h)814
3154 y(the)d(GO)f(app)s(ears,)g(an)g(error)g(o)s(ccurs:)814
3327 y FJ(*****)47 b(LABEL)f(is)h(not)g(a)g(known)g(label)814
3613 y FQ(If)40 b(the)g(GO)g(has)g(b)s(een)g(placed)f(in)g(a)h(p)s
(osition)f(not)h(de\014ned)f(b)m(y)h(rules)f(1-5,)814
3726 y(another)31 b(error)f(is)f(detected:)814 3898 y
FJ(*****)47 b(Illegal)e(use)i(of)g(GO)h(to)f(LABEL)p
eop
%%Page: 637 637
637 636 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(637)241 623 y FJ(PROG)p
FQ(\()p FN(V)-12 b(ARS)p FQ(:)p FD(id-list)p FQ(,)31
b([)p FN(PR)m(OGRAM)p FQ(:)p FP(f)p FD(id,)k(any)p FP(g)p
FQ(]\):)p FD(any)315 b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad)391
736 y FQ(V)-10 b(ARS)33 b(is)g(a)h(list)e(of)i(ids)f(whic)m(h)f(are)i
(considered)f(\015uid)e(when)i(the)h(PR)m(OG)g(is)391
849 y(in)m(terpreted)c(and)g(lo)s(cal)g(when)f(compiled)g(\(see)j(\\V)
-8 b(ariables)30 b(and)g(Bindings",)391 962 y(section)44
b @beginspecial @setspecial @endspecial(91.3.6)j(on)d(page)h
@beginspecial @setspecial @endspecial(633)q(\).)82 b(The)44
b(PR)m(OGs)g(v)-5 b(ariables)43 b(are)i(allo)s(cated)391
1075 y(space)d(when)f(the)h(PR)m(OG)g(form)f(is)g(in)m(v)m(ok)m(ed)i
(and)e(are)h(deallo)s(cated)g(when)391 1188 y(the)e(PR)m(OG)h(is)e
(exited.)71 b(PR)m(OG)41 b(v)-5 b(ariables)39 b(are)h(initialized)e(to)
j(NIL.)f(The)391 1301 y(PR)m(OGRAM)33 b(is)e(a)h(set)h(of)f
(expressions)f(to)h(b)s(e)g(ev)-5 b(aluated)32 b(in)f(order)g(of)i
(their)391 1414 y(app)s(earance)g(in)f(the)h(PR)m(OG)g(function.)47
b(Iden)m(ti\014ers)32 b(app)s(earing)g(in)f(the)i(top)391
1527 y(lev)m(el)g(of)g(the)h(PR)m(OGRAM)g(are)f(lab)s(els)f(whic)m(h)g
(can)h(b)s(e)g(referenced)g(b)m(y)g(GO.)391 1640 y(The)h(v)-5
b(alue)33 b(returned)h(b)m(y)g(the)h(PR)m(OG)f(function)f(is)h
(determined)f(b)m(y)h(a)h(RE-)391 1752 y(TURN)30 b(function)f(or)h(NIL)
h(if)e(the)h(PR)m(OG)h(\\falls)e(through".)241 2159 y
FJ(PROGN)p FQ(\([)p FN(U)p FQ(:)p FD(any)p FQ(]\):)p
FD(any)1565 b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad)391
2272 y FQ(U)31 b(is)f(a)i(set)f(of)h(expressions)d(whic)m(h)h(are)i
(executed)g(sequen)m(tially)-8 b(.)42 b(The)30 b(v)-5
b(alue)391 2385 y(returned)29 b(is)g(the)i(v)-5 b(alue)30
b(of)g(the)h(last)f(expression.)241 2792 y FJ(PROG2)p
FQ(\(A:an)m(y)-8 b(,)31 b(B:an)m(y\))p FD(any)1564 b(eval,)33
b(spr)-5 b(e)g(ad)391 2905 y FQ(Returns)29 b(the)i(v)-5
b(alue)30 b(of)g(B.)391 3099 y FJ(EXPR)46 b(PROCEDURE)g(PROG2\(A,)f
(B\);)534 3212 y(B;)241 3635 y(RETURN)p FQ(\()p FN(U)p
FQ(:)p FD(any)p FQ(\))1923 b FD(eval,)33 b(spr)-5 b(e)g(ad)391
3748 y FQ(Within)36 b(a)j(PR)m(OG,)f(RETURN)g(terminates)g(the)h(ev)-5
b(aluation)38 b(of)g(a)g(PR)m(OG)391 3861 y(and)h(returns)g(U)g(as)h
(the)g(v)-5 b(alue)40 b(of)g(the)g(PR)m(OG.)g(The)f(restrictions)g(on)h
(the)391 3974 y(placemen)m(t)23 b(of)g(RETURN)f(are)i(exactly)f(those)g
(of)g(GO.)g(Improp)s(er)e(placemen)m(t)391 4087 y(of)30
b(RETURN)g(results)f(in)h(the)g(error:)391 4260 y FJ(*****)46
b(Illegal)g(use)h(of)g(RETURN)241 4568 y @beginspecial
@setspecial @endspecial eop
%%Page: 638 638
638 637 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(638)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FR(91.3.8)113
b(Error)36 b(Handling)664 995 y FJ(ERROR)p FQ(\()p FN(NUMBER)p
FQ(:)p FD(inte)-5 b(ger)p FQ(,)31 b FN(MESSA)m(GE)p FQ(:)p
FD(any)p FQ(\))710 b FD(eval,)33 b(spr)-5 b(e)g(ad)814
1108 y FQ(NUMBER)42 b(and)f(MESSA)m(GE)h(are)g(passed)f(bac)m(k)h(to)g
(a)g(surrounding)c(ER-)814 1221 y(R)m(ORSET)h(\(the)i(Standard)e(LISP)g
(reader)h(has)g(an)h(ERR)m(ORSET\).)e(MES-)814 1334 y(SA)m(GE)26
b(is)f(placed)g(in)g(the)h(global)f(v)-5 b(ariable)24
b(EMSG!*)j(and)e(the)h(error)f(n)m(um)m(b)s(er)814 1446
y(b)s(ecomes)g(the)g(v)-5 b(alue)23 b(of)i(the)g(surrounding)c(ERR)m
(ORSET.)i(FLUID)i(v)-5 b(ariables)814 1559 y(and)30 b(lo)s(cal)g
(bindings)e(are)j(un)m(b)s(ound)d(to)k(return)d(to)j(the)f(en)m
(vironmen)m(t)f(of)h(the)814 1672 y(ERR)m(ORSET.)f(Global)f(v)-5
b(ariables)29 b(are)i(not)g(a\013ected)g(b)m(y)g(the)f(pro)s(cess.)664
2079 y FJ(ERRORSET)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)g
FN(MSGP)p FQ(:)p FD(b)-5 b(o)g(ole)g(an)p FQ(,)35 b FN(TR)p
FQ(:)p FD(b)-5 b(o)g(ole)g(an)p FQ(\):)p FD(any)474 b(eval,)33
b(spr)-5 b(e)g(ad)814 2192 y FQ(If)27 b(an)g(error)g(o)s(ccurs)g
(during)e(the)i(ev)-5 b(aluation)27 b(of)g(U,)h(the)f(v)-5
b(alue)27 b(of)g(NUMBER)814 2305 y(from)38 b(the)g(ERR)m(OR)g(call)g
(is)f(returned)g(as)h(the)h(v)-5 b(alue)37 b(of)i(ERR)m(ORSET.)e(In)814
2418 y(addition,)28 b(if)g(the)h(v)-5 b(alue)29 b(of)g(MSGP)g(is)f
(non-NIL,)h(the)g(MESSA)m(GE)g(from)g(the)814 2531 y(ERR)m(OR)g(call)f
(is)f(displa)m(y)m(ed)h(up)s(on)f(b)s(oth)h(the)h(standard)f(output)g
(device)h(and)814 2644 y(the)k(curren)m(tly)e(selected)i(output)f
(device)g(unless)f(the)h(standard)g(output)g(de-)814
2757 y(vice)25 b(is)f(not)h(op)s(en.)38 b(The)24 b(message)i(app)s
(ears)e(pre\014xed)g(with)f(5)i(asterisks.)39 b(The)814
2870 y(MESSA)m(GE)23 b(list)f(is)g(displa)m(y)m(ed)g(without)h(top)g
(lev)m(el)g(paren)m(theses.)38 b(The)23 b(MES-)814 2982
y(SA)m(GE)32 b(from)f(the)g(ERR)m(OR)g(call)g(will)e(b)s(e)h(a)m(v)-5
b(ailable)31 b(in)f(the)i(global)e(v)-5 b(ariable)814
3095 y(EMSG!*.)40 b(The)25 b(exact)i(format)e(of)h(error)f(messages)h
(generated)g(b)m(y)f(Standard)814 3208 y(LISP)30 b(functions)f(describ)
s(ed)g(in)g(this)h(do)s(cumen)m(t)g(are)h(not)g(\014xed)f(and)g(should)
814 3321 y(not)44 b(b)s(e)e(relied)g(up)s(on)g(to)i(b)s(e)e(in)g(an)m
(y)i(particular)e(form.)79 b(Lik)m(ewise,)45 b(error)814
3434 y(n)m(um)m(b)s(ers)30 b(generated)h(b)m(y)g(Standard)f(LISP)g
(functions)f(are)i(implemen)m(tation)814 3547 y(dep)s(enden)m(t.)814
3660 y(If)41 b(no)h(error)f(o)s(ccurs)g(during)e(the)j(ev)-5
b(aluation)41 b(of)h(U,)g(the)f(v)-5 b(alue)41 b(of)h(\(LIST)814
3773 y(\(EV)-10 b(AL)31 b(U\)\))g(is)e(returned.)814
3886 y(If)d(an)g(error)f(has)h(b)s(een)g(signaled)e(and)i(the)g(v)-5
b(alue)26 b(of)g(TR)f(is)h(non-NIL)f(a)i(trace-)814 3999
y(bac)m(k)37 b(sequence)f(will)d(b)s(e)i(initiated)f(on)i(the)g
(selected)g(output)g(device.)57 b(The)814 4112 y(tracebac)m(k)26
b(will)21 b(displa)m(y)g(information)h(suc)m(h)h(as)h(un)m(bindings)c
(of)k(FLUID)g(v)-5 b(ari-)814 4224 y(ables,)28 b(argumen)m(t)h(lists)e
(and)g(so)h(on)g(in)f(an)h(implemen)m(tation)f(dep)s(enden)m(t)g(for-)
814 4337 y(mat.)664 4473 y @beginspecial @setspecial
@endspecial eop
%%Page: 639 639
639 638 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(639)241 555 y FR(91.3.9)112
b(V)-9 b(ectors)241 777 y FQ(V)h(ectors)32 b(are)f(structured)e(en)m
(tities)h(in)f(whic)m(h)g(random)h(elemen)m(ts)h(ma)m(y)g(b)s(e)e
(accessed)241 890 y(with)g(an)h(in)m(teger)h(index.)39
b(A)31 b(v)m(ector)h(has)e(a)h(single)e(dimension.)38
b(Its)30 b(maxim)m(um)f(size)241 1002 y(is)g(determined)g(b)m(y)h(the)h
(implemen)m(tation)e(and)h(a)m(v)-5 b(ailable)30 b(space.)41
b(A)30 b(suggested)241 1115 y(input)e(\\v)m(ector)33
b(notation")e(is)e(de\014ned)g(in)g(\\Classes)h(of)h(Primitiv)m(e)d
(Data)k(T)m(yp)s(es",)241 1228 y(section)e @beginspecial
@setspecial @endspecial(91.2.2)j(on)d(page)h @beginspecial
@setspecial @endspecial(619)h(and)e(output)g(with)f(EXPLODE,)h(\\Iden)m
(ti\014ers")241 1341 y(section)g @beginspecial @setspecial
@endspecial(91.3.3)j(on)d(page)h @beginspecial @setspecial
@endspecial(627)r(.)241 1722 y FJ(GETV)p FQ(\()p FN(V)p
FQ(:)p FD(ve)-5 b(ctor)p FQ(,)31 b FN(INDEX)p FQ(:)p
FD(inte)-5 b(ger)p FQ(\):)p FD(any)1061 b(eval,)33 b(spr)-5
b(e)g(ad)391 1835 y FQ(Returns)37 b(the)i(v)-5 b(alue)38
b(stored)g(at)h(p)s(osition)e(INDEX)h(of)h(the)g(v)m(ector)g(V.)g(The)
391 1948 y(t)m(yp)s(e)29 b(mismatc)m(h)f(error)h(ma)m(y)g(o)s(ccur.)40
b(An)29 b(error)f(o)s(ccurs)h(if)f(the)h(INDEX)g(do)s(es)391
2061 y(not)h(lie)g(within)d(0.)16 b(.)g(.)f(UPBV\(V\))32
b(inclusiv)m(e:)391 2234 y FJ(*****)46 b(INDEX)g(subscript)g(is)h(out)g
(of)g(range)241 2796 y(MKVECT)p FQ(\()p FN(UPLIM)p FQ(:)p
FD(inte)-5 b(ger)p FQ(\):)p FD(ve)g(ctor)1263 b(eval,)33
b(spr)-5 b(e)g(ad)391 2909 y FQ(De\014nes)42 b(and)f(allo)s(cates)i
(space)f(for)g(a)h(v)m(ector)g(with)e(UPLIM+1)h(elemen)m(ts)391
3022 y(accessed)28 b(as)f(0.)16 b(.)f(.)h(UPLIM.)27 b(Eac)m(h)g(elemen)
m(t)h(is)d(initialized)f(to)k(NIL.)f(An)f(error)391 3135
y(will)h(o)s(ccur)i(if)g(UPLIM)g(is)g FL(<)g FQ(0)h(or)f(there)h(is)f
(not)g(enough)h(space)g(for)f(a)h(v)m(ector)391 3247
y(of)g(this)g(size:)391 3420 y FJ(*****)46 b(A)i(vector)e(of)h(size)f
(UPLIM)h(cannot)f(be)h(allocated)241 3983 y(PUTV)p FQ(\()p
FN(V)p FQ(:)p FD(ve)-5 b(ctor)p FQ(,)31 b FN(INDEX)p
FQ(:)p FD(inte)-5 b(ger)p FQ(,)30 b FN(V)-12 b(ALUE)p
FQ(:)p FD(any)p FQ(\):)p FD(any)482 b(eval,)33 b(spr)-5
b(e)g(ad)391 4095 y FQ(Stores)32 b(V)-10 b(ALUE)32 b(in)m(to)f(the)h(v)
m(ector)i(V)e(at)g(p)s(osition)e(INDEX.)j(V)-10 b(ALUE)32
b(is)e(re-)391 4208 y(turned.)39 b(The)29 b(t)m(yp)s(e)g(mismatc)m(h)g
(error)f(ma)m(y)i(o)s(ccur.)40 b(If)29 b(INDEX)h(do)s(es)e(not)i(lie)
391 4321 y(in)f(0.)16 b(.)f(.)g(UPBV\(V\))32 b(an)f(error)f(o)s(ccurs:)
391 4494 y FJ(*****)46 b(INDEX)g(subscript)g(is)h(out)g(of)g(range)p
eop
%%Page: 640 640
640 639 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(640)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(UPBV)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):NIL,)p FD(inte)j(ger)1544
b(eval,)33 b(spr)-5 b(e)g(ad)814 736 y FQ(Returns)30
b(the)g(upp)s(er)f(limit)f(of)i(U)h(if)e(U)i(is)e(a)i(v)m(ector,)h(or)e
(NIL)g(if)g(it)g(is)f(not.)664 889 y @beginspecial @setspecial
@endspecial 167 x FR(91.3.10)113 b(Bo)s(olean)37 b(F)-9
b(unctions)37 b(and)h(Conditionals)664 1495 y FJ(AND)p
FQ(\([)p FN(U)p FQ(:)p FD(any)p FQ(]\):)p FD(extr)-5
b(a-b)g(o)g(ole)g(an)1295 b(no)-5 b(eval,)34 b(nospr)-5
b(e)g(ad)814 1608 y FQ(AND)27 b(ev)-5 b(aluates)27 b(eac)m(h)g(U)f(un)m
(til)f(a)h(v)-5 b(alue)26 b(of)g(NIL)g(is)f(found)g(or)h(the)g(end)g
(of)g(the)814 1721 y(list)f(is)g(encoun)m(tered.)39 b(If)26
b(a)g(non-NIL)g(v)-5 b(alue)25 b(is)g(the)h(last)g(v)-5
b(alue)26 b(it)f(is)g(returned,)814 1834 y(or)31 b(NIL)f(is)f
(returned.)814 2028 y FJ(FEXPR)47 b(PROCEDURE)e(AND\(U\);)814
2141 y(BEGIN)957 2254 y(IF)j(NULL)e(U)i(THEN)e(RETURN)g(NIL;)814
2367 y(LOOP:)h(IF)g(NULL)f(CDR)h(U)h(THEN)e(RETURN)g(EVAL)h(CAR)g(U)
1244 2480 y(ELSE)f(IF)i(NULL)e(EVAL)h(CAR)g(U)g(THEN)g(RETURN)f(NIL;)
1053 2593 y(U)h(:=)g(CDR)g(U;)1053 2706 y(GO)g(LOOP)814
2819 y(END;)664 3242 y(COND)p FQ(\([)p FN(U)p FQ(:)p
FD(c)-5 b(ond-form)p FQ(]\):)p FD(any)1355 b(no)-5 b(eval,)34
b(nospr)-5 b(e)g(ad)814 3355 y FQ(The)27 b(an)m(teceden)m(ts)i(of)e
(all)f(U's)h(are)g(ev)-5 b(aluated)28 b(in)d(order)i(of)g(their)f(app)s
(earance)814 3467 y(un)m(til)e(a)i(non-NIL)f(v)-5 b(alue)25
b(is)f(encoun)m(tered.)40 b(The)25 b(consequen)m(t)h(of)g(the)g
(selected)814 3580 y(U)h(is)f(ev)-5 b(aluated)27 b(and)g(b)s(ecomes)g
(the)g(v)-5 b(alue)26 b(of)i(the)f(COND.)g(The)f(consequen)m(t)814
3693 y(ma)m(y)j(also)g(con)m(tain)g(the)f(sp)s(ecial)f(functions)g(GO)i
(and)f(RETURN)g(sub)5 b(ject)28 b(to)814 3806 y(the)33
b(restrain)m(ts)g(giv)m(en)g(for)g(these)g(functions)f(in)f(\\Program)j
(F)-8 b(eature)34 b(F)-8 b(unct-)814 3919 y(ions",)36
b(section)g @beginspecial @setspecial @endspecial(91.3.7)h(on)e(page)i
@beginspecial @setspecial @endspecial(635)q(.)110 b(In)35
b(these)h(cases)g(COND)f(do)s(es)g(not)814 4032 y(ha)m(v)m(e)23
b(a)f(de\014ned)e(v)-5 b(alue,)23 b(but)e(rather)h(an)f(e\013ect.)40
b(If)21 b(no)g(an)m(teceden)m(t)j(is)d(non-NIL)814 4145
y(the)30 b(v)-5 b(alue)28 b(of)i(COND)f(is)g(NIL.)g(An)g(error)g(is)f
(detected)j(if)d(a)i(U)f(is)f(improp)s(erly)814 4258
y(formed:)814 4431 y FJ(*****)47 b(Improper)e(cond-form)g(as)j
(argument)d(of)i(COND)p eop
%%Page: 641 641
641 640 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(641)241 623 y FJ(NOT)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1761
b(eval,)33 b(spr)-5 b(e)g(ad)391 736 y FQ(If)30 b(U)g(is)g(NIL,)g
(return)f(T)h(else)g(return)g(NIL)g(\(same)h(as)g(function)e(NULL\).)
391 931 y FJ(EXPR)46 b(PROCEDURE)g(NOT\(U\);)534 1043
y(U)h(EQ)h(NIL;)241 1467 y(OR)p FQ(\([)p FN(U)p FQ(:)p
FD(any)p FQ(]\):)p FD(extr)-5 b(a-b)g(o)g(ole)g(an)1343
b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad)391 1579 y FQ(U)28
b(is)g(an)m(y)h(n)m(um)m(b)s(er)e(of)h(expressions)f(whic)m(h)h(are)g
(ev)-5 b(aluated)29 b(in)e(order)h(of)h(their)391 1692
y(app)s(earance.)45 b(When)31 b(one)h(is)f(found)g(to)h(b)s(e)f
(non-NIL)h(it)f(is)g(returned)f(as)j(the)391 1805 y(v)-5
b(alue)30 b(of)g(OR.)g(If)g(all)g(are)g(NIL,)h(NIL)f(is)f(returned.)391
2000 y FJ(FEXPR)46 b(PROCEDURE)f(OR\(U\);)391 2112 y(BEGIN)h(SCALAR)g
(X;)391 2225 y(LOOP:)g(IF)h(NULL)g(U)g(THEN)g(RETURN)f(NIL)820
2338 y(ELSE)h(IF)g(\(X)g(:=)g(EVAL)g(CAR)g(U\))g(THEN)g(RETURN)f(X;)629
2451 y(U)i(:=)f(CDR)g(U;)629 2564 y(GO)h(LOOP)391 2677
y(END;)241 2846 y @beginspecial @setspecial @endspecial
166 x FR(91.3.11)112 b(Arithmetic)34 b(F)-9 b(unctions)241
3234 y FQ(Con)m(v)m(ersions)30 b(b)s(et)m(w)m(een)h(n)m(umeric)e(t)m
(yp)s(es)h(are)h(pro)m(vided)e(explicitly)f(b)m(y)i(the)61
b(FIX)241 3347 y(and)30 b(FLO)m(A)-8 b(T)30 b(functions)f(and)h
(implicitly)d(b)m(y)j(an)m(y)h(m)m(ulti-parameter)e(arithmetic)241
3460 y(function)g(whic)m(h)g(receiv)m(es)i(mixed)e(t)m(yp)s(es)i(of)f
(argumen)m(ts.)41 b(A)31 b(con)m(v)m(ersion)f(from)g(\014xed)241
3573 y(to)h(\015oating)f(p)s(oin)m(t)g(n)m(um)m(b)s(ers)e(ma)m(y)j
(result)f(in)f(a)i(loss)e(of)i(precision)d(without)i(a)241
3686 y(w)m(arning)f(message)i(b)s(eing)e(generated.)42
b(Since)30 b(in)m(tegers)g(ma)m(y)h(ha)m(v)m(e)h(a)e(greater)241
3798 y(magnitude)f(that)i(that)g(p)s(ermitted)e(for)h(\015oating)h(n)m
(um)m(b)s(ers,)e(an)h(error)g(ma)m(y)h(b)s(e)241 3911
y(signaled)e(when)g(the)i(attempted)g(con)m(v)m(ersion)g(cannot)g(b)s
(e)e(done.)41 b(Because)32 b(the)241 4024 y(magnitude)d(of)i(in)m
(tegers)f(is)g(unlimited)d(the)j(con)m(v)m(ersion)h(of)g(a)f
(\015oating)h(p)s(oin)m(t)241 4137 y(n)m(um)m(b)s(er)e(to)i(a)g
(\014xed)e(n)m(um)m(b)s(er)g(is)h(alw)m(a)m(ys)h(p)s(ossible,)d(the)j
(only)e(loss)h(of)g(precision)241 4250 y(b)s(eing)f(the)h(digits)f(to)i
(the)g(righ)m(t)f(of)g(the)h(decimal)e(p)s(oin)m(t)h(whic)m(h)f(are)i
(truncated.)40 b(If)30 b(a)241 4363 y(function)f(receiv)m(es)i(mixed)e
(t)m(yp)s(es)i(of)f(argumen)m(ts)h(the)f(general)h(rule)e(will)e(ha)m
(v)m(e)32 b(the)241 4476 y(\014xed)d(n)m(um)m(b)s(ers)g(con)m(v)m
(erted)j(to)f(\015oating)g(b)s(efore)f(arithmetic)f(op)s(erations)h
(are)241 4589 y(p)s(erformed.)39 b(In)30 b(all)f(cases)i(an)f(error)g
(o)s(ccurs)g(if)g(the)g(parameter)h(to)g(an)g(arithmetic)241
4702 y(function)e(is)g(not)i(a)g(n)m(um)m(b)s(er:)241
4924 y FJ(*****)46 b(XXX)h(parameter)e(to)i(FUNCTION)f(is)h(not)g(a)h
(number)p eop
%%Page: 642 642
642 641 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(642)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FQ(XXX)30
b(is)e(the)h(v)-5 b(alue)28 b(of)i(the)f(parameter)g(at)h(fault)e(and)h
(FUNCTION)f(is)g(the)i(name)f(of)664 668 y(the)i(function)e(that)i
(detected)g(the)g(error.)40 b(Exceptions)30 b(to)h(the)g(rule)e(are)i
(noted)664 781 y(where)f(they)h(o)s(ccur.)664 1162 y
FJ(ABS)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(\):)p
FD(numb)g(er)1602 b(eval,)33 b(spr)-5 b(e)g(ad)814 1275
y FQ(Returns)30 b(the)g(absolute)g(v)-5 b(alue)30 b(of)h(its)e(argumen)
m(t.)814 1469 y FJ(EXPR)47 b(PROCEDURE)e(ABS\(U\);)957
1582 y(IF)j(LESSP\(U,)d(0\))i(THEN)g(MINUS\(U\))e(ELSE)i(U;)664
2005 y(ADD1)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p
FQ(\):)p FD(numb)g(er)1554 b(eval,)33 b(spr)-5 b(e)g(ad)814
2118 y FQ(Returns)21 b(the)g(v)-5 b(alue)21 b(of)h(U)f(plus)f(1)h(of)h
(the)g(same)f(t)m(yp)s(e)h(as)g(U)f(\(\014xed)g(or)h(\015oating\).)814
2312 y FJ(EXPR)47 b(PROCEDURE)e(ADD1\(U\);)957 2425 y(PLUS2\(U,)h(1\);)
664 2848 y(DIFFERENCE)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5
b(er)p FQ(,)30 b FN(V)p FQ(:)p FD(numb)-5 b(er)p FQ(\):)p
FD(numb)g(er)816 b(eval,)33 b(spr)-5 b(e)g(ad)814 2961
y FQ(The)30 b(v)-5 b(alue)30 b(U)g(-)h(V)f(is)g(returned.)664
3350 y FJ(DIVIDE)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p
FQ(,)31 b FN(V)p FQ(:)p FD(numb)-5 b(er)p FQ(\):)p FD(dotte)g(d-p)g
(air)877 b(eval,)33 b(spr)-5 b(e)g(ad)814 3463 y FQ(The)39
b(dotted-pair)f(\(quotien)m(t)i(.)66 b(remainder\))37
b(is)h(returned.)66 b(The)38 b(quotien)m(t)814 3576 y(part)j(is)e
(computed)i(the)g(same)g(as)g(b)m(y)f(QUOTIENT)g(and)g(the)h(remainder)
814 3689 y(the)30 b(same)g(as)g(b)m(y)f(REMAINDER.)i(An)e(error)g(o)s
(ccurs)g(if)g(division)d(b)m(y)k(zero)g(is)814 3802 y(attempted:)814
3975 y FJ(*****)47 b(Attempt)e(to)j(divide)e(by)h(0)g(in)g(DIVIDE)814
4342 y(EXPR)g(PROCEDURE)e(DIVIDE\(U,)g(V\);)957 4455
y(\(QUOTIENT\(U,)g(V\))i(.)g(REMAINDER\(U,)e(V\)\);)p
eop
%%Page: 643 643
643 642 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(643)241 623 y FJ(EXPT)p
FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(,)31 b FN(V)p
FQ(:)p FD(inte)-5 b(ger)p FQ(\):)p FD(numb)g(er)1125
b(eval,)33 b(spr)-5 b(e)g(ad)391 736 y FQ(Returns)39
b(U)h(raised)f(to)i(the)g(V)f(p)s(o)m(w)m(er.)70 b(A)40
b(\015oating)g(p)s(oin)m(t)f(U)i(to)f(an)g(in)m(te-)391
849 y(ger)c(p)s(o)m(w)m(er)h(V)f(do)s(es)g(not)p 1135
862 132 4 v 36 w(ha)m(v)m(e)i(V)e(c)m(hanged)h(to)g(a)f(\015oating)g(n)
m(um)m(b)s(er)f(b)s(efore)391 962 y(exp)s(onen)m(tiation.)241
1369 y FJ(FIX)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p
FQ(\):)p FD(inte)g(ger)1624 b(eval,)33 b(spr)-5 b(e)g(ad)391
1482 y FQ(Returns)35 b(an)g(in)m(teger)i(whic)m(h)d(corresp)s(onds)h
(to)h(the)g(truncated)g(v)-5 b(alue)35 b(of)h(U.)391
1595 y(The)c(result)f(of)i(con)m(v)m(ersion)f(m)m(ust)g(retain)g(all)g
(signi\014can)m(t)f(p)s(ortions)g(of)h(U.)h(If)391 1708
y(U)d(is)g(an)g(in)m(teger)h(it)f(is)f(returned)g(unc)m(hanged.)241
2115 y FJ(FLOAT)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p
FQ(\):)p FD(\015o)g(ating)1505 b(eval,)33 b(spr)-5 b(e)g(ad)391
2228 y FQ(The)36 b(\015oating)g(p)s(oin)m(t)g(n)m(um)m(b)s(er)f
(corresp)s(onding)g(to)i(the)g(v)-5 b(alue)36 b(of)h(the)f(argu-)391
2340 y(men)m(t)29 b(U)g(is)e(returned.)39 b(Some)29 b(of)g(the)f(least)
h(signi\014can)m(t)f(digits)f(of)i(an)f(in)m(teger)391
2453 y(ma)m(y)44 b(b)s(e)f(lost)h(do)f(to)i(the)e(implemen)m(tation)g
(of)h(\015oating)f(p)s(oin)m(t)g(n)m(um)m(b)s(ers.)391
2566 y(FLO)m(A)-8 b(T)34 b(of)h(a)f(\015oating)h(p)s(oin)m(t)e(n)m(um)m
(b)s(er)g(returns)g(the)h(n)m(um)m(b)s(er)f(unc)m(hanged.)391
2679 y(If)d(U)g(is)g(to)s(o)h(large)f(to)h(represen)m(t)g(in)e
(\015oating)h(p)s(oin)m(t)f(an)i(error)f(o)s(ccurs:)391
2852 y FJ(*****)46 b(Argument)g(to)h(FLOAT)f(is)h(too)g(large)241
3414 y(GREATERP)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p
FQ(,)30 b FN(V)p FQ(:)p FD(numb)-5 b(er)p FQ(\):)p FD(b)g(o)g(ole)g(an)
921 b(eval,)33 b(spr)-5 b(e)g(ad)391 3527 y FQ(Returns)29
b(T)h(if)g(U)g(is)f(strictly)h(greater)h(than)f(V,)h(otherwise)f
(returns)f(NIL.)241 3934 y FJ(LESSP)p FQ(\()p FN(U)p
FQ(:)p FD(numb)-5 b(er)p FQ(,)31 b FN(V)p FQ(:)p FD(numb)-5
b(er)p FQ(\):)p FD(b)g(o)g(ole)g(an)1064 b(eval,)33 b(spr)-5
b(e)g(ad)391 4047 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(strictly)h(less)f
(than)i(V,)f(otherwise)g(returns)f(NIL.)p eop
%%Page: 644 644
644 643 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(644)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(MAX)p
FQ(\([)p FN(U)p FQ(:)p FD(numb)j(er)p FQ(]\):)p FD(numb)g(er)941
b(no)-5 b(eval,)33 b(nospr)-5 b(e)g(ad,)36 b(or)d(macr)-5
b(o)814 736 y FQ(Returns)29 b(the)h(largest)g(of)h(the)f(v)-5
b(alues)29 b(in)f(U.)j(If)e(t)m(w)m(o)i(or)f(more)g(v)-5
b(alues)30 b(are)g(the)814 849 y(same)h(the)g(\014rst)e(is)h(returned.)
814 1043 y FJ(MACRO)47 b(PROCEDURE)e(MAX\(U\);)957 1156
y(EXPAND\(CDR)g(U,)j('MAX2\);)664 1579 y(MAX2)p FQ(\()p
FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(,)31 b FN(V)p FQ(:)p
FD(numb)-5 b(er)p FQ(\):)p FD(numb)g(er)1103 b(eval,)33
b(spr)-5 b(e)g(ad)814 1692 y FQ(Returns)32 b(the)h(larger)g(of)g(U)g
(and)g(V.)g(If)g(U)g(and)f(V)h(are)h(the)f(same)g(v)-5
b(alue)33 b(U)g(is)814 1805 y(returned)c(\(U)i(and)f(V)g(migh)m(t)h(b)s
(e)e(of)i(di\013eren)m(t)f(t)m(yp)s(es\).)814 2000 y
FJ(EXPR)47 b(PROCEDURE)e(MAX2\(U,)h(V\);)957 2112 y(IF)i(LESSP\(U,)d
(V\))i(THEN)g(V)g(ELSE)g(U;)664 2536 y(MIN)p FQ(\([)p
FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(]\):)p FD(numb)g(er)941
b(no)-5 b(eval,)33 b(nospr)-5 b(e)g(ad,)36 b(or)d(macr)-5
b(o)814 2648 y FQ(Returns)25 b(the)h(smallest)f(of)h(the)h(v)-5
b(alues)25 b(in)f(U.)j(If)e(t)m(w)m(o)i(or)f(more)g(v)-5
b(alues)26 b(are)g(the)814 2761 y(same)31 b(the)g(\014rst)e(of)i(these)
g(is)e(returned.)814 2956 y FJ(MACRO)47 b(PROCEDURE)e(MIN\(U\);)957
3069 y(EXPAND\(CDR)g(U,)j('MIN2\);)664 3492 y(MIN2)p
FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(,)31 b FN(V)p
FQ(:)p FD(numb)-5 b(er)p FQ(\):)p FD(numb)g(er)1103 b(eval,)33
b(spr)-5 b(e)g(ad)814 3605 y FQ(Returns)25 b(the)h(smaller)f(of)h(its)f
(argumen)m(ts.)40 b(If)25 b(U)h(and)g(V)g(are)g(the)g(same)g(v)-5
b(alue,)814 3717 y(U)31 b(is)e(returned)g(\(U)i(and)f(V)g(migh)m(t)g(b)
s(e)g(of)h(di\013eren)m(t)f(t)m(yp)s(es\).)814 3912 y
FJ(EXPR)47 b(PROCEDURE)e(MIN2\(U,)h(V\);)957 4025 y(IF)i(GREATERP\(U,)c
(V\))j(THEN)g(V)h(ELSE)e(U;)664 4448 y(MINUS)p FQ(\()p
FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(\):)p FD(numb)g(er)1506
b(eval,)33 b(spr)-5 b(e)g(ad)814 4561 y FQ(Returns)30
b(-U.)814 4755 y FJ(EXPR)47 b(PROCEDURE)e(MINUS\(U\);)957
4868 y(DIFFERENCE\(0,)g(U\);)p eop
%%Page: 645 645
645 644 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(645)241 623 y FJ(PLUS)p
FQ(\([)p FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(]\):)p FD(numb)g(er)892
b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad,)35 b(or)f(macr)-5
b(o)391 736 y FQ(F)d(orms)31 b(the)f(sum)g(of)g(all)f(its)h(argumen)m
(ts.)391 931 y FJ(MACRO)46 b(PROCEDURE)f(PLUS\(U\);)534
1043 y(EXPAND\(CDR)g(U,)i('PLUS2\);)241 1467 y(PLUS2)p
FQ(\()p FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(,)31 b FN(V)p
FQ(:)p FD(numb)-5 b(er)p FQ(\):)p FD(numb)g(er)1054 b(eval,)33
b(spr)-5 b(e)g(ad)391 1579 y FQ(Returns)29 b(the)i(sum)e(of)i(U)f(and)g
(V.)241 1969 y FJ(QUOTIENT)p FQ(\()p FN(U)p FQ(:)p FD(numb)-5
b(er)p FQ(,)30 b FN(V)p FQ(:)p FD(numb)-5 b(er)p FQ(\):)p
FD(numb)g(er)911 b(eval,)33 b(spr)-5 b(e)g(ad)391 2082
y FQ(The)27 b(quotien)m(t)i(of)f(U)g(divided)e(b)m(y)i(V)g(is)f
(returned.)39 b(Division)26 b(of)i(t)m(w)m(o)i(p)s(ositiv)m(e)391
2194 y(or)37 b(t)m(w)m(o)i(negativ)m(e)g(in)m(tegers)f(is)f(con)m(v)m
(en)m(tional.)63 b(When)38 b(b)s(oth)f(U)g(and)h(V)f(are)391
2307 y(in)m(tegers)i(and)g(exactly)h(one)g(of)g(them)f(is)f(negativ)m
(e)j(the)f(v)-5 b(alue)38 b(returned)h(is)391 2420 y(the)h(negativ)m(e)
i(truncation)e(of)g(the)h(absolute)f(v)-5 b(alue)40 b(of)h(U)f(divided)
e(b)m(y)j(the)391 2533 y(absolute)27 b(v)-5 b(alue)26
b(of)i(V.)f(An)g(error)g(o)s(ccurs)g(if)f(division)e(b)m(y)j(zero)h(is)
e(attempted:)391 2819 y FJ(*****)46 b(Attempt)g(to)h(divide)f(by)h(0)h
(in)f(QUOTIENT)241 3381 y(REMAINDER)p FQ(\()p FN(U)p
FQ(:)p FD(numb)-5 b(er)p FQ(,)29 b FN(V)p FQ(:)p FD(numb)-5
b(er)p FQ(\):)p FD(numb)g(er)864 b(eval,)33 b(spr)-5
b(e)g(ad)391 3494 y FQ(If)35 b(b)s(oth)g(U)h(and)f(V)h(are)g(in)m
(tegers)h(the)f(result)e(is)h(the)h(in)m(teger)g(remainder)f(of)391
3607 y(U)j(divided)d(b)m(y)j(V.)h(If)e(either)h(parameter)g(is)f
(\015oating)h(p)s(oin)m(t,)h(the)g(result)e(is)391 3720
y(the)27 b(di\013erence)f(b)s(et)m(w)m(een)h(U)g(and)f(V*\(U/V\))j(all)
c(in)h(\015oating)g(p)s(oin)m(t.)39 b(If)26 b(either)391
3833 y(n)m(um)m(b)s(er)g(is)h(negativ)m(e)i(the)f(remainder)e(is)h
(negativ)m(e.)41 b(If)27 b(b)s(oth)g(are)h(p)s(ositiv)m(e)f(or)391
3946 y(b)s(oth)32 b(are)g(negativ)m(e)i(the)f(remainder)e(is)g(p)s
(ositiv)m(e.)46 b(An)32 b(error)g(o)s(ccurs)h(if)e(V)i(is)391
4059 y(zero:)391 4232 y FJ(*****)46 b(Attempt)g(to)h(divide)f(by)h(0)h
(in)f(REMAINDER)391 4599 y(EXPR)f(PROCEDURE)g(REMAINDER\(U,)e(V\);)534
4712 y(DIFFERENCE\(U,)g(TIMES2\(QUOTIENT\(U,)f(V\),)k(V\)\);)p
eop
%%Page: 646 646
646 645 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(646)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(SUB1)p
FQ(\()p FN(U)p FQ(:)p FD(numb)j(er)p FQ(\):)p FD(numb)g(er)1554
b(eval,)33 b(spr)-5 b(e)g(ad)814 736 y FQ(Returns)36
b(the)g(v)-5 b(alue)36 b(of)h(U)f(less)g(1.)59 b(If)36
b(U)g(is)g(a)h(FLO)m(A)-8 b(T)37 b(t)m(yp)s(e)f(n)m(um)m(b)s(er,)h(the)
814 849 y(v)-5 b(alue)30 b(returned)f(is)h(U)g(less)g(1.0.)814
1043 y FJ(EXPR)47 b(PROCEDURE)e(SUB1\(U\);)957 1156 y(DIFFERENCE\(U,)g
(1\);)664 1579 y(TIMES)p FQ(\([)p FN(U)p FQ(:)p FD(numb)-5
b(er)p FQ(]\):)p FD(numb)g(er)845 b(no)-5 b(eval,)33
b(nospr)-5 b(e)g(ad,)36 b(or)d(macr)-5 b(o)814 1692 y
FQ(Returns)30 b(the)g(pro)s(duct)f(of)i(all)e(its)h(argumen)m(ts.)814
1887 y FJ(MACRO)47 b(PROCEDURE)e(TIMES\(U\);)957 2000
y(EXPAND\(CDR)g(U,)j('TIMES2\);)664 2423 y(TIMES2)p FQ(\()p
FN(U)p FQ(:)p FD(numb)-5 b(er)p FQ(,)31 b FN(V)p FQ(:)p
FD(numb)-5 b(er)p FQ(\):)p FD(numb)g(er)1007 b(eval,)33
b(spr)-5 b(e)g(ad)814 2536 y FQ(Returns)30 b(the)g(pro)s(duct)f(of)i(U)
f(and)g(V.)664 2689 y @beginspecial @setspecial @endspecial
166 x FR(91.3.12)113 b(MAP)37 b(Comp)s(osite)f(F)-9 b(unctions)664
3294 y FJ(MAP)p FQ(\()p FN(X)p FQ(:)p FD(list)p FQ(,)31
b(F)p FN(N)p FQ(:)p FD(function)p FQ(\):)p FD(any)1379
b(eval,)33 b(spr)-5 b(e)g(ad)814 3407 y FQ(Applies)28
b(FN)j(to)g(successiv)m(e)g(CDR)f(segmen)m(ts)i(of)e(X.)h(NIL)f(is)g
(returned.)814 3602 y FJ(EXPR)47 b(PROCEDURE)e(MAP\(X,)h(FN\);)957
3714 y(WHILE)h(X)g(DO)g FL(<<)g FJ(FN)h(X;)f(X)g(:=)g(CDR)g(X)h
FL(>>)p FJ(;)664 4138 y(MAPC)p FQ(\(X:list,)29 b(FN:function\):)p
FD(any)1351 b(eval,)33 b(spr)-5 b(e)g(ad)814 4250 y FQ(FN)28
b(is)e(applied)e(to)k(successiv)m(e)f(CAR)g(segmen)m(ts)h(of)f(list)f
(X.)h(NIL)g(is)f(returned.)814 4445 y FJ(EXPR)47 b(PROCEDURE)e
(MAPC\(X,)h(FN\);)957 4558 y(WHILE)h(X)g(DO)g FL(<<)g
FJ(FN)h(CAR)f(X;)g(X)g(:=)g(CDR)g(X)h FL(>>)p FJ(;)p
eop
%%Page: 647 647
647 646 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(647)241 623 y FJ(MAPCAN)p
FQ(\(X:list,)28 b(FN:function\):)p FD(any)1255 b(eval,)33
b(spr)-5 b(e)g(ad)391 736 y FQ(A)31 b(concatenated)j(list)c(of)i(FN)g
(applied)d(to)k(successiv)m(e)f(CAR)f(elemen)m(ts)h(of)g(X)391
849 y(is)d(returned.)391 1043 y FJ(EXPR)46 b(PROCEDURE)g(MAPCAN\(X,)f
(FN\);)534 1156 y(IFNULL)h(X)h(THEN)g(NIL)629 1269 y(ELSE)g(NCONC\(FN)f
(CAR)g(X,)i(MAPCAN\(CDR)d(X,)i(FN\)\);)241 1692 y(MAPCAR)p
FQ(\(X:list,)28 b(FN:function\):)p FD(any)1255 b(eval,)33
b(spr)-5 b(e)g(ad)391 1805 y FQ(Returned)29 b(is)h(a)g(constructed)h
(list)e(of)i(FN)f(applied)f(to)i(eac)m(h)g(CAR)f(of)h(list)e(X.)391
2000 y FJ(EXPR)46 b(PROCEDURE)g(MAPCAR\(X,)f(FN\);)534
2112 y(IFNULL)h(X)h(THEN)g(NIL)629 2225 y(ELSE)g(FN)g(CAR)g(X)h(.)f
(MAPCAR\(CDR)e(X,)i(FN\);)241 2648 y(MAPCON)p FQ(\(X:list,)28
b(FN:function\):)p FD(any)1255 b(eval,)33 b(spr)-5 b(e)g(ad)391
2761 y FQ(Returned)41 b(is)g(a)h(concatenated)j(list)40
b(of)i(FN)h(applied)d(to)i(successiv)m(e)h(CDR)391 2874
y(segmen)m(ts)31 b(of)g(X.)391 3069 y FJ(EXPR)46 b(PROCEDURE)g
(MAPCON\(X,)f(FN\);)534 3181 y(IFNULL)h(X)h(THEN)g(NIL)629
3294 y(ELSE)g(NCONC\(FN)f(X,)h(MAPCON\(CDR)e(X,)i(FN\)\);)241
3717 y(MAPLIST)p FQ(\(X:list,)28 b(FN:function\):)p FD(any)1207
b(eval,)33 b(spr)-5 b(e)g(ad)391 3830 y FQ(Returns)23
b(a)h(constructed)g(list)f(of)h(FN)g(applied)e(to)j(successiv)m(e)f
(CDR)g(segmen)m(ts)391 3943 y(of)30 b(X.)391 4138 y FJ(EXPR)46
b(PROCEDURE)g(MAPLIST\(X,)f(FN\);)534 4250 y(IFNULL)h(X)h(THEN)g(NIL)
629 4363 y(ELSE)g(FN)g(X)h(.)f(MAPLIST\(CDR)e(X,)i(FN\);)241
4533 y @beginspecial @setspecial @endspecial eop
%%Page: 648 648
648 647 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(648)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FR(91.3.13)113
b(Comp)s(osite)36 b(F)-9 b(unctions)664 995 y FJ(APPEND)p
FQ(\()p FN(U)p FQ(:)p FD(list)p FQ(,)31 b FN(V)p FQ(:)p
FD(list)p FQ(\):)p FD(list)1526 b(eval,)33 b(spr)-5 b(e)g(ad)814
1108 y FQ(Returns)29 b(a)h(constructed)g(list)e(in)g(whic)m(h)h(the)h
(last)f(elemen)m(t)h(of)g(U)g(is)e(follo)m(w)m(ed)814
1221 y(b)m(y)i(the)h(\014rst)f(elemen)m(t)g(of)h(V.)g(The)f(list)f(U)h
(is)g(copied,)g(V)g(is)g(not.)814 1415 y FJ(EXPR)47 b(PROCEDURE)e
(APPEND\(U,)g(V\);)957 1528 y(IFNULL)h(U)i(THEN)f(V)1053
1641 y(ELSE)f(CAR)h(U)h(.)f(APPEND\(CDR)e(U,)i(V\);)664
2064 y(ASSOC)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)31
b FN(V)p FQ(:)p FD(alist)p FQ(\):)p FP(f)p FD(dotte)-5
b(d-p)g(air)p FQ(,)36 b(NIL)p FP(g)893 b FD(eval,)33
b(spr)-5 b(e)g(ad)814 2177 y FQ(If)40 b(U)g(o)s(ccurs)g(as)g(the)g(CAR)
g(p)s(ortion)f(of)h(an)g(elemen)m(t)h(of)f(the)g(alist)f(V,)i(the)814
2290 y(dotted-pair)e(in)e(whic)m(h)h(U)h(o)s(ccurred)f(is)g(returned,)i
(else)f(NIL)f(is)g(returned.)814 2403 y(ASSOC)d(migh)m(t)i(not)g
(detect)h(a)f(p)s(o)s(orly)e(formed)i(alist)f(so)h(an)f(in)m(v)-5
b(alid)72 b(con-)814 2515 y(struction)30 b(ma)m(y)h(b)s(e)e(detected)j
(b)m(y)e(CAR)g(or)h(CDR.)814 2710 y FJ(EXPR)47 b(PROCEDURE)e(ASSOC\(U,)
h(V\);)957 2823 y(IF)i(NULL)e(V)i(THEN)e(NIL)1101 2936
y(ELSE)g(IF)h(ATOM)g(CAR)g(V)g(THEN)1339 3048 y(ERROR\(000,)e(LIST\(V,)
h("is)h(a)g(poorly)f(formed)h(alist"\)\))1101 3161 y(ELSE)f(IF)h(U)h(=)
f(CAAR)g(V)g(THEN)g(CAR)g(V)1101 3274 y(ELSE)f(ASSOC\(U,)g(CDR)h(V\);)
664 3697 y(DEFLIST)p FQ(\()p FN(U)p FQ(:)p FD(d)5 b(list)p
FQ(,)30 b FN(IND)p FQ(:)p FD(id)p FQ(\):)p FD(list)1349
b(eval,)33 b(spr)-5 b(e)g(ad)814 3810 y FQ(A)29 b("dlist")f(is)g(a)i
(list)d(in)h(whic)m(h)g(eac)m(h)i(elemen)m(t)g(is)e(a)h(t)m(w)m(o)h
(elemen)m(t)g(list:)39 b(\(ID:id)814 3923 y(PR)m(OP:an)m(y\).)81
b(Eac)m(h)44 b(ID)g(in)f(U)g(has)g(the)h(indicator)f(IND)g(with)g(prop)
s(ert)m(y)814 4036 y(PR)m(OP)35 b(placed)f(on)h(its)g(prop)s(ert)m(y)f
(list)f(b)m(y)i(the)g(PUT)g(function.)53 b(The)35 b(v)-5
b(alue)814 4149 y(of)36 b(DEFLIST)f(is)g(a)h(list)e(of)i(the)g(\014rst)
f(elemen)m(ts)g(of)h(eac)m(h)h(t)m(w)m(o)g(elemen)m(t)f(list.)814
4262 y(Lik)m(e)30 b(PUT,)h(DEFLIST)e(ma)m(y)i(not)g(b)s(e)f(used)f(to)i
(de\014ne)f(functions.)814 4456 y FJ(EXPR)47 b(PROCEDURE)e(DEFLIST\(U,)
g(IND\);)957 4569 y(IF)j(NULL)e(U)i(THEN)e(NIL)1053 4682
y(ELSE)g FL(<<)i FJ(PUT\(CAAR)d(U,)i(IND,)g(CADAR)f(U\);)1481
4795 y(CAAR)g(U)i FL(>>)f FJ(.)95 b(DEFLIST\(CDR)45 b(U,)i(IND\);)p
eop
%%Page: 649 649
649 648 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(649)241 623 y FJ(DELETE)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)30 b FN(V)p FQ(:)p
FD(list)p FQ(\):)p FD(list)1503 b(eval,)33 b(spr)-5 b(e)g(ad)391
736 y FQ(Returns)28 b(V)g(with)g(the)h(\014rst)e(top)i(lev)m(el)g(o)s
(ccurrence)g(of)f(U)h(remo)m(v)m(ed)h(from)e(it.)391
931 y FJ(EXPR)46 b(PROCEDURE)g(DELETE\(U,)f(V\);)534
1043 y(IF)i(NULL)g(V)g(THEN)g(NIL)629 1156 y(ELSE)g(IF)g(CAR)g(V)h(=)f
(U)g(THEN)g(CDR)g(V)629 1269 y(ELSE)g(CAR)g(V)g(.)h(DELETE\(U,)d(CDR)i
(V\);)241 1692 y(DIGIT)p FQ(\()p FN(U)p FQ(:)p FD(any)p
FQ(\):)p FD(b)-5 b(o)g(ole)g(an)1665 b(eval,)33 b(spr)-5
b(e)g(ad)391 1805 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(a)i(digit,)f
(otherwise)f(NIL.)391 2000 y FJ(EXPR)46 b(PROCEDURE)g(DIGIT\(U\);)534
2112 y(IF)h(MEMQ\(U,)f('\(!0)h(!1)g(!2)g(!3)g(!4)g(!5)g(!6)h(!7)f(!8)g
(!9\)\))629 2225 y(THEN)g(T)g(ELSE)g(NIL;)241 2648 y(LENGTH)p
FQ(\()p FN(X)p FQ(:)p FD(any)p FQ(\):)p FD(inte)-5 b(ger)1631
b(eval,)33 b(spr)-5 b(e)g(ad)391 2761 y FQ(The)30 b(top)g(lev)m(el)g
(length)g(of)h(the)f(list)f(X)i(is)e(returned.)391 2956
y FJ(EXPR)46 b(PROCEDURE)g(LENGTH\(X\);)534 3069 y(IF)h(ATOM)g(X)g
(THEN)g(0)629 3181 y(ELSE)g(PLUS\(1,)f(LENGTH)g(CDR)h(X\);)241
3605 y(LITER)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(b)-5 b(o)g(ole)g(an)1665 b(eval,)33 b(spr)-5 b(e)g(ad)391
3717 y FQ(Returns)29 b(T)h(if)g(U)g(is)f(a)i(c)m(haracter)h(of)f(the)f
(alphab)s(et,)g(NIL)g(otherwise.)p @beginspecial @setspecial
@endspecial -33 x Fb(a)391 3912 y FJ(EXPR)46 b(PROCEDURE)g(LITER\(U\);)
534 4025 y(IF)h(MEMQ\(U,)f('\(!A)h(!B)g(!C)g(!D)g(!E)g(!F)g(!G)h(!H)f
(!I)g(!J)g(!K)g(!L)h(!M)1154 4138 y(!N)g(!O)f(!P)g(!Q)g(!R)g(!S)g(!T)h
(!U)f(!V)g(!W)g(!X)g(!Y)h(!Z)1154 4250 y(!a)g(!b)f(!c)g(!d)g(!e)g(!f)g
(!g)h(!h)f(!i)g(!j)g(!k)g(!l)h(!m)1154 4363 y(!n)g(!o)f(!p)g(!q)g(!r)g
(!s)g(!t)h(!u)f(!v)g(!w)g(!x)g(!y)h(!z\)\))677 4476 y(THEN)f(T)g(ELSE)g
(NIL;)p 391 4572 1080 4 v 495 4625 a Fa(a)529 4657 y
@beginspecial @setspecial @endspecial Fx(The)30 b(published)g(rep)r
(ort)g(omits)g(escap)r(e)h(c)n(haracters.)49 b(These)31
b(are)f(required)g(for)h(b)r(oth)391 4748 y(upp)r(er)25
b(and)g(lo)n(w)n(er)i(case)f(as)h(some)e(systems)g(default)h(to)g(lo)n
(w)n(er.)p eop
%%Page: 650 650
650 649 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(650)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(MEMBER)p
FQ(\()p FN(A)p FQ(:)p FD(any)p FQ(,)30 b FN(B)p FQ(:)p
FD(list)p FQ(\):)p FD(extr)-5 b(a-b)g(o)g(ole)g(an)1121
b(eval,)33 b(spr)-5 b(e)g(ad)814 736 y FQ(Returns)27
b(NIL)g(if)f(A)i(is)e(not)i(a)f(mem)m(b)s(er)g(of)h(list)e(B,)h
(returns)g(the)g(remainder)f(of)814 849 y(B)31 b(whose)f(\014rst)g
(elemen)m(t)h(is)e(A.)814 1043 y FJ(EXPR)47 b(PROCEDURE)e(MEMBER\(A,)g
(B\);)957 1156 y(IF)j(NULL)e(B)i(THEN)e(NIL)1053 1269
y(ELSE)g(IF)i(A)f(=)h(CAR)e(B)i(THEN)f(B)1053 1382 y(ELSE)f(MEMBER\(A,)
g(CDR)h(B\);)664 1805 y(MEMQ)p FQ(\()p FN(A)p FQ(:)p
FD(any)p FQ(,)31 b FN(B)p FQ(:)p FD(list)p FQ(\):)p FD(extr)-5
b(a-b)g(o)g(ole)g(an)1216 b(eval,)33 b(spr)-5 b(e)g(ad)814
1918 y FQ(Same)31 b(as)f(MEMBER)h(but)f(an)g(EQ)g(c)m(hec)m(k)i(is)d
(used)h(for)g(comparison.)814 2112 y FJ(EXPR)47 b(PROCEDURE)e(MEMQ\(A,)
h(B\);)957 2225 y(IF)i(NULL)e(B)i(THEN)e(NIL)1101 2338
y(ELSE)g(IF)h(A)h(EQ)f(CAR)g(B)g(THEN)g(B)1101 2451 y(ELSE)f(MEMQ\(A,)g
(CDR)h(B\);)664 2874 y(NCONC)p FQ(\()p FN(U)p FQ(:)p
FD(list)p FQ(,)31 b FN(V)p FQ(:)p FD(list)p FQ(\):)p
FD(list)1574 b(eval,)33 b(spr)-5 b(e)g(ad)814 2987 y
FQ(Concatenates)47 b(V)f(to)g(U)g(without)e(cop)m(ying)h(U.)h(The)f
(last)h(CDR)f(of)h(U)f(is)814 3100 y(mo)s(di\014ed)28
b(to)j(p)s(oin)m(t)f(to)h(V.)814 3294 y FJ(EXPR)47 b(PROCEDURE)e
(NCONC\(U,)h(V\);)814 3407 y(BEGIN)h(SCALAR)f(W;)1053
3520 y(IF)h(NULL)g(U)g(THEN)g(RETURN)f(V;)1053 3633 y(W)h(:=)g(U;)1053
3746 y(WHILE)f(CDR)h(W)h(DO)f(W)g(:=)g(CDR)g(W;)1053
3859 y(RPLACD\(W,)e(V\);)1053 3972 y(RETURN)h(U)814 4085
y(END;)p eop
%%Page: 651 651
651 650 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(651)241 623 y FJ(PAIR)p
FQ(\()p FN(U)p FQ(:)p FD(list)p FQ(,)31 b FN(V)p FQ(:)p
FD(list)p FQ(\):)p FD(alist)1575 b(eval,)33 b(spr)-5
b(e)g(ad)391 736 y FQ(U)30 b(and)g(V)g(are)h(lists)d(whic)m(h)h(m)m
(ust)h(ha)m(v)m(e)i(an)e(iden)m(tical)f(n)m(um)m(b)s(er)g(of)h(elemen)m
(ts.)391 849 y(If)f(not,)h(an)f(error)g(o)s(ccurs)g(\(the)h(000)h(used)
d(in)g(the)i(ERR)m(OR)f(call)g(is)f(arbitrary)391 962
y(and)i(need)h(not)g(b)s(e)f(adhered)g(to\).)44 b(Returned)30
b(is)g(a)h(list)f(where)g(eac)m(h)i(elemen)m(t)391 1075
y(is)j(a)i(dotted-pair,)h(the)e(CAR)g(of)h(the)f(pair)f(b)s(eing)g
(from)h(U,)h(and)e(the)i(CDR)391 1188 y(the)30 b(corresp)s(onding)f
(elemen)m(t)i(from)e(V.)391 1382 y FJ(EXPR)46 b(PROCEDURE)g(PAIR\(U,)f
(V\);)534 1495 y(IF)i(AND\(U,)f(V\))h(THEN)g(\(CAR)g(U)g(.)h(CAR)e(V\))
i(.)f(PAIR\(CDR)f(U,)h(CDR)g(V\))629 1608 y(ELSE)g(IF)g(OR\(U,)g(V\))g
(THEN)f(ERROR\(000,)820 1721 y("Different)f(length)h(lists)h(in)g
(PAIR"\))629 1834 y(ELSE)g(NIL;)241 2257 y(REVERSE)p
FQ(\()p FN(U)p FQ(:)p FD(list)p FQ(\):)p FD(list)1755
b(eval,)33 b(spr)-5 b(e)g(ad)391 2370 y FQ(Returns)29
b(a)i(cop)m(y)g(of)g(the)f(top)h(lev)m(el)f(of)g(U)h(in)e(rev)m(erse)i
(order.)391 2564 y FJ(EXPR)46 b(PROCEDURE)g(REVERSE\(U\);)391
2677 y(BEGIN)g(SCALAR)g(W;)629 2790 y(WHILE)h(U)g(DO)g
FL(<<)h FJ(W)f(:=)g(CAR)g(U)h(.)f(W;)1344 2903 y(U)g(:=)g(CDR)g(U)h
FL(>>)p FJ(;)629 3016 y(RETURN)e(W)391 3129 y(END;)241
3552 y(SASSOC)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(,)30
b FN(V)p FQ(:)p FD(alist)p FQ(,)i FN(FN)p FQ(:)p FD(function)p
FQ(\):)p FD(any)879 b(eval,)33 b(spr)-5 b(e)g(ad)391
3665 y FQ(Searc)m(hes)35 b(the)g(alist)e(V)i(for)f(an)h(o)s(ccurrence)g
(of)f(U.)h(If)f(U)h(is)f(not)h(in)e(the)i(alist)391 3778
y(the)30 b(ev)-5 b(aluation)30 b(of)h(function)e(FN)i(is)e(returned.)
391 3972 y FJ(EXPR)46 b(PROCEDURE)g(SASSOC\(U,)f(V,)i(FN\);)534
4085 y(IF)g(NULL)g(V)g(THEN)g(FN\(\))629 4198 y(ELSE)g(IF)g(U)h(=)f
(CAAR)g(V)g(THEN)g(CAR)g(V)629 4311 y(ELSE)g(SASSOC\(U,)e(CDR)i(V,)g
(FN\);)p eop
%%Page: 652 652
652 651 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(652)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(SUBLIS)p
FQ(\()p FN(X)p FQ(:)p FD(alist)p FQ(,)31 b FN(Y)p FQ(:)p
FD(any)p FQ(\):)p FD(any)1435 b(eval,)33 b(spr)-5 b(e)g(ad)814
736 y FQ(The)42 b(v)-5 b(alue)42 b(returned)f(is)g(the)i(result)e(of)i
(substituting)d(the)i(CDR)g(of)h(eac)m(h)814 849 y(elemen)m(t)32
b(of)g(the)g(alist)f(X)h(for)f(ev)m(ery)i(o)s(ccurrence)f(of)g(the)g
(CAR)f(part)h(of)g(that)814 962 y(elemen)m(t)f(in)e(Y.)814
1156 y FJ(EXPR)47 b(PROCEDURE)e(SUBLIS\(X,)g(Y\);)910
1269 y(IF)i(NULL)f(X)i(THEN)f(Y)1053 1382 y(ELSE)f(BEGIN)h(SCALAR)f(U;)
1578 1495 y(U)h(:=)g(ASSOC\(Y,)f(X\);)1578 1608 y(RETURN)g(IF)h(U)h
(THEN)e(CDR)h(U)1912 1721 y(ELSE)g(IF)g(ATOM)f(Y)i(THEN)e(Y)1912
1834 y(ELSE)h(SUBLIS\(X,)e(CAR)i(Y\))g(.)2151 1947 y(SUBLIS\(X,)e(CDR)i
(Y\))1578 2060 y(END;)664 2483 y(SUBST)p FQ(\()p FN(U)p
FQ(:)p FD(any)p FQ(,)31 b FN(V)p FQ(:)p FD(any)p FQ(,)h
FN(W)p FQ(:)p FD(any)p FQ(\):)p FD(any)1174 b(eval,)33
b(spr)-5 b(e)g(ad)814 2596 y FQ(The)28 b(v)-5 b(alue)28
b(returned)f(is)g(the)h(result)f(of)i(substituting)d(U)i(for)g(all)f(o)
s(ccurrences)814 2709 y(of)k(V)f(in)f(W.)814 2903 y FJ(EXPR)47
b(PROCEDURE)e(SUBST\(U,)h(V,)h(W\);)957 3016 y(IF)h(NULL)e(W)i(THEN)e
(NIL)1053 3129 y(ELSE)g(IF)i(V)f(=)h(W)f(THEN)g(U)1053
3242 y(ELSE)f(IF)i(ATOM)e(W)i(THEN)e(W)1053 3354 y(ELSE)g(SUBST\(U,)g
(V,)h(CAR)g(W\))g(.)h(SUBST\(U,)d(V,)i(CDR)g(W\);)664
3524 y @beginspecial @setspecial @endspecial eop
%%Page: 653 653
653 652 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(653)241 555 y FR(91.3.14)112
b(The)38 b(In)m(terpreter)241 995 y FJ(APPLY)p FQ(\()p
FN(FN)p FQ(:)p FP(f)p FD(id,function)p FP(g)p FQ(,)31
b FN(AR)m(GS)p FQ(:)p FD(any-list)p FQ(\):)p FD(any)694
b(eval,)33 b(spr)-5 b(e)g(ad)391 1108 y FQ(APPL)d(Y)28
b(returns)f(the)h(v)-5 b(alue)28 b(of)g(FN)g(with)f(actual)h
(parameters)h(AR)m(GS.)f(The)391 1221 y(actual)46 b(parameters)f(in)f
(AR)m(GS)i(are)g(already)f(in)f(the)h(form)g(required)f(for)391
1334 y(binding)e(to)k(the)f(formal)g(parameters)g(of)h(FN.)g(Implemen)m
(tation)e(sp)s(eci\014c)391 1446 y(p)s(ortions)29 b(describ)s(ed)f(in)h
(English)f(are)j(enclosed)f(in)f(b)s(o)m(xes.)391 1641
y FJ(EXPR)46 b(PROCEDURE)g(APPLY\(FN,)f(ARGS\);)391 1754
y(BEGIN)h(SCALAR)g(DEFN;)582 1867 y(IF)h(CODEP)f(FN)h(THEN)g(RETURN)p
725 1904 1950 4 v 725 2481 4 578 v 726 1984 a(Spread)e(the)i(actual)f
(parameters)f(in)i(ARGS)726 2097 y(following)d(the)j(conventions:)92
b(for)47 b(calling)726 2210 y(functions,)d(transfer)h(to)j(the)e(entry)
h(point)726 2323 y(of)f(the)h(function,)e(and)i(return)f(the)h(value)
726 2436 y(returned)d(by)k(the)e(function.)p 2672 2481
V 725 2484 1950 4 v 2675 2215 a(;)582 2563 y(IF)h(IDP)g(FN)g(THEN)g
(RETURN)725 2676 y(IF)g(NULL\(DEFN)e(:=)i(GETD)g(FN\))g(THEN)868
2789 y(ERROR\(000,)e(LIST\(FN,)h("is)g(an)i(undefined)d(function"\)\))
725 2902 y(ELSE)h(IF)i(CAR)f(DEFN)f(EQ)h('EXPR)g(THEN)868
3015 y(APPLY\(CDR)e(DEFN,)i(ARGS\))725 3128 y(ELSE)f(ERROR\(000,)868
3241 y(LIST\(FN,)g("cannot)f(be)j(evaluated)d(by)i(APPLY"\)\);)582
3354 y(IF)g(OR\(ATOM)f(FN,)h(NOT\(CAR)e(FN)j(EQ)f('LAMBDA\)\))e(THEN)
725 3467 y(ERROR\(000,)725 3579 y(LIST\(FN,)g("cannot)h(be)h(evaluated)
f(by)h(APPLY"\)\);)582 3692 y(RETURN)p 725 3730 V 725
4400 4 670 v 726 3810 a(Bind)e(the)i(actual)f(parameters)f(in)j(ARGS)e
(to)726 3923 y(the)g(formal)g(parameters)f(of)i(the)g(lambda)726
4036 y(expression.)91 b(If)47 b(the)g(two)g(lists)g(are)g(not)726
4149 y(of)f(equal)g(length)g(then)h(ERROR\(000,)e("Number)726
4262 y(of)h(parameters)f(do)i(not)g(match"\);)f(The)h(value)726
4375 y(returned)d(is)k(EVAL)e(CADDR)h(FN.)p 2672 4400
V 725 4403 1950 4 v 391 4482 a(END;)p eop
%%Page: 654 654
654 653 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(654)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(EVAL)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(any)1854 b(eval,)33
b(spr)-5 b(e)g(ad)814 736 y FQ(The)35 b(v)-5 b(alue)34
b(of)i(the)f(expression)f(U)h(is)f(computed.)55 b(Error)34
b(n)m(um)m(b)s(ers)f(are)j(ar-)814 849 y(bitrary)-8 b(.)85
b(P)m(ortions)46 b(of)f(EV)-10 b(AL)46 b(in)m(v)m(olving)e(mac)m(hine)h
(sp)s(eci\014c)f(co)s(ding)h(are)814 962 y(expressed)30
b(in)f(English)f(enclosed)i(in)f(b)s(o)m(xes.)814 1156
y FJ(EXPR)47 b(PROCEDURE)e(EVAL\(U\);)814 1269 y(BEGIN)i(SCALAR)f(FN;)
1053 1382 y(IF)h(CONSTANTP)e(U)j(THEN)e(RETURN)g(U;)1053
1495 y(IF)h(IDP)g(U)g(THEN)g(RETURN)p 1196 1532 1950
4 v 1196 1989 4 457 v 1197 1613 a(U)f(is)i(an)f(id.)94
b(Return)47 b(the)f(value)h(most)1197 1726 y(currently)d(bound)j(to)g
(U)g(or)g(if)h(there)1197 1839 y(is)e(no)h(such)g(binding:)93
b(ERROR\(000,)1197 1951 y(LIST\("Unbound:",)42 b(U\)\);)p
3143 1989 V 1196 1992 1950 4 v 1053 2071 a(IF)47 b(PAIRP)f(CAR)h(U)h
(THEN)e(RETURN)1196 2184 y(IF)h(CAAR)g(U)g(EQ)g('LAMBDA)f(THEN)h
(APPLY\(CAR)e(U,)i(EVLIS)g(CDR)g(U\))1196 2297 y(ELSE)g(ERROR\(000,)e
(LIST\(CAR)g(U,)1721 2410 y("improperly)g(formed)h(LAMBDA)g
(expression"\)\))1196 2523 y(ELSE)h(IF)g(CODEP)f(CAR)h(U)h(THEN)1721
2636 y(RETURN)e(APPLY\(CAR)f(U,)j(EVLIS)e(CDR)h(U\);)1053
2749 y(FN)g(:=)g(GETD)g(CAR)g(U;)1053 2862 y(IF)g(NULL)g(FN)g(THEN)1196
2975 y(ERROR\(000,)e(LIST\(CAR)h(U,)h("is)g(an)g(undefined)e
(function"\)\))1053 3088 y(ELSE)h(IF)i(CAR)f(FN)g(EQ)g('EXPR)f(THEN)
1196 3200 y(RETURN)g(APPLY\(CDR)f(FN,)i(EVLIS)g(CDR)g(U\))1053
3313 y(ELSE)f(IF)i(CAR)f(FN)g(EQ)g('FEXPR)f(THEN)1196
3426 y(RETURN)g(APPLY\(CDR)f(FN,)i(LIST)g(CDR)g(U\))1053
3539 y(ELSE)f(IF)i(CAR)f(FN)g(EQ)g('MACRO)f(THEN)1196
3652 y(RETURN)g(EVAL)h(APPLY\(CDR)e(FN,)i(LIST)g(U\))814
3765 y(END;)664 4188 y(EVLIS)p FQ(\()p FN(U)p FQ(:)p
FD(any-list)p FQ(\):)p FD(any-list)1504 b(eval,)33 b(spr)-5
b(e)g(ad)814 4301 y FQ(EVLIS)30 b(returns)f(a)i(list)e(of)h(the)h(ev)-5
b(aluation)30 b(of)g(eac)m(h)i(elemen)m(t)f(of)f(U.)814
4495 y FJ(EXPR)47 b(PROCEDURE)e(EVLIS\(U\);)957 4608
y(IF)j(NULL)e(U)i(THEN)e(NIL)1053 4721 y(ELSE)g(EVAL)h(CAR)g(U)g(.)h
(EVLIS)e(CDR)h(U;)p eop
%%Page: 655 655
655 654 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(655)241 623 y FJ(EXPAND)p
FQ(\()p FN(L)p FQ(:)p FD(list)p FQ(,)30 b FN(FN)p FQ(:)p
FD(function)p FQ(\):)p FD(list)1267 b(eval,)33 b(spr)-5
b(e)g(ad)391 736 y FQ(FN)22 b(is)f(a)i(de\014ned)d(function)h(of)h(t)m
(w)m(o)h(argumen)m(ts)g(to)f(b)s(e)g(used)f(in)g(the)h(expansion)391
849 y(of)30 b(a)h(MA)m(CR)m(O.)g(EXP)-8 b(AND)32 b(returns)d(a)i(list)e
(in)g(the)h(form:)391 1052 y(\(FN)h(L)641 1066 y FO(0)711
1052 y FQ(\(FN)g(L)961 1066 y FO(1)1030 1052 y FQ(.)16
b(.)f(.)g(\(FN)32 b(L)1402 1066 y FF(n)p Fu(\000)p FO(1)1569
1052 y FQ(L)1626 1066 y FF(n)1673 1052 y FQ(\))e(.)16
b(.)f(.)h(\)\))391 1255 y(where)30 b FL(n)g FQ(is)f(the)h(n)m(um)m(b)s
(er)g(of)g(elemen)m(ts)h(in)e(L,)h(L)2068 1269 y FF(i)2127
1255 y FQ(is)f(the)i FL(i)p FQ(th)f(elemen)m(t)h(of)f(L.)391
1449 y FJ(EXPR)46 b(PROCEDURE)g(EXPAND\(L,FN\);)534 1562
y(IF)h(NULL)g(CDR)g(L)g(THEN)g(CAR)g(L)629 1675 y(ELSE)g(LIST\(FN,)f
(CAR)g(L,)i(EXPAND\(CDR)d(L,)i(FN\)\);)241 2098 y(FUNCTION)p
FQ(\()p FN(FN)p FQ(:)p FD(function)p FQ(\):)p FD(function)1035
b(no)-5 b(eval,)34 b(nospr)-5 b(e)g(ad)391 2211 y FQ(The)23
b(function)g(FN)i(is)e(to)i(b)s(e)f(passed)f(to)i(another)g(function.)
37 b(If)24 b(FN)g(is)g(to)g(ha)m(v)m(e)391 2324 y(side)29
b(e\013ects)j(its)e(free)h(v)-5 b(ariables)29 b(m)m(ust)i(b)s(e)f
(\015uid)e(or)j(global.)40 b(FUNCTION)31 b(is)391 2437
y(lik)m(e)h(QUOTE)f(but)h(its)g(argumen)m(t)h(ma)m(y)g(b)s(e)f
(a\013ected)i(b)m(y)f(compilation.)46 b(W)-8 b(e)391
2550 y(do)30 b(not)h(consider)e(FUNAR)m(Gs)j(in)d(this)g(rep)s(ort.)241
2957 y FJ(QUOTE)p FQ(\(U:an)m(y\):)p FD(any)1627 b(no)-5
b(eval,)34 b(nospr)-5 b(e)g(ad)391 3070 y FQ(Stops)30
b(ev)-5 b(aluation)30 b(and)f(returns)h(U)g(unev)-5 b(aluated.)391
3264 y FJ(FEXPR)46 b(PROCEDURE)f(QUOTE\(U\);)582 3377
y(CAR)i(U;)241 3546 y @beginspecial @setspecial @endspecial
166 x FR(91.3.15)112 b(Input)38 b(and)g(Output)241 3934
y FQ(The)30 b(user)f(normally)g(comm)m(unicates)i(with)e(Standard)g
(LISP)g(through)h(\\standard)241 4047 y(devices".)41
b(The)30 b(default)f(devices)h(are)h(selected)g(in)e(accordance)j(with)
d(the)241 4159 y(con)m(v)m(en)m(tions)i(of)g(the)f(implemen)m(tation)f
(site.)41 b(Other)30 b(input)e(and)i(output)g(devices)g(or)241
4272 y(\014les)f(ma)m(y)i(b)s(e)f(selected)h(for)f(reading)f(and)h
(writing)e(using)h(the)i(functions)e(describ)s(ed)241
4385 y(herein.)p eop
%%Page: 656 656
656 655 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(656)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(CLOSE)p
FQ(\()p FN(FILEHANDLE)p FQ(:)p FD(any)p FQ(\):)p FD(any)1193
b(eval,)33 b(spr)-5 b(e)g(ad)814 736 y FQ(Closes)40 b(the)g(\014le)f
(with)g(the)h(in)m(ternal)f(name)h(FILEHANDLE)h(writing)d(an)m(y)814
849 y(necessary)e(end)e(of)i(\014le)e(marks)h(and)g(suc)m(h.)55
b(The)34 b(v)-5 b(alue)35 b(of)h(FILEHANDLE)814 962 y(is)30
b(that)i(returned)d(b)m(y)i(the)g(corresp)s(onding)e(OPEN.)i(The)f(v)-5
b(alue)30 b(returned)g(is)814 1075 y(the)35 b(v)-5 b(alue)34
b(of)h(FILEHANDLE.)g(An)f(error)g(o)s(ccurs)h(if)e(the)i(\014le)f(can)g
(not)h(b)s(e)814 1188 y(closed.)862 1361 y FJ(*****)46
b(FILEHANDLE)f(could)i(not)g(be)g(closed)664 1923 y(EJECT)p
FQ(\(\):NIL)2035 b FD(eval,)33 b(spr)-5 b(e)g(ad)814
2036 y FQ(Skip)38 b(to)h(the)h(top)f(of)h(the)f(next)g(output)g(page.)
68 b(Automatic)40 b(EJECTs)e(are)814 2149 y(executed)d(b)m(y)g(the)f
(prin)m(t)f(functions)g(when)h(the)g(length)g(set)h(b)m(y)f(the)h(P)-8
b(A)m(GE-)814 2262 y(LENGTH)31 b(function)e(is)g(exceeded.)664
2651 y FJ(LINELENGTH)p FQ(\()p FN(LEN)p FQ(:)p FP(f)p
FD(inte)-5 b(ger)p FQ(,)29 b(NIL)p FP(g)p FQ(\):)p FD(inte)-5
b(ger)876 b(eval,)33 b(spr)-5 b(e)g(ad)814 2764 y FQ(If)34
b(LEN)h(is)e(an)i(in)m(teger)f(the)h(maxim)m(um)f(line)e(length)i(to)i
(b)s(e)d(prin)m(ted)g(b)s(efore)814 2877 y(the)28 b(prin)m(t)e
(functions)f(initiate)h(an)i(automatic)g(TERPRI)e(is)g(set)i(to)g(the)g
(v)-5 b(alue)814 2990 y(LEN.)27 b(No)g(initial)d(Standard)h(LISP)h
(line)f(length)h(is)g(assumed.)38 b(The)27 b(previous)814
3103 y(line)36 b(length)h(is)g(returned)f(except)j(when)d(LEN)i(is)e
(NIL.)i(This)e(sp)s(ecial)g(case)814 3215 y(returns)28
b(the)h(curren)m(t)f(line)f(length)h(and)g(do)s(es)h(not)g(cause)g(it)f
(to)i(b)s(e)e(reset.)40 b(An)814 3328 y(error)28 b(o)s(ccurs)f(if)g
(the)i(requested)f(line)e(length)h(is)g(to)s(o)i(large)f(for)g(the)g
(curren)m(tly)814 3441 y(selected)j(output)f(\014le)g(or)g(LEN)g(is)f
(negativ)m(e)j(or)e(zero.)862 3614 y FJ(*****)46 b(LEN)h(is)g(an)h
(invalid)d(line)i(length)664 4176 y(LPOSN)p FQ(\(\):)p
FD(inte)-5 b(ger)1925 b(eval,)33 b(spr)-5 b(e)g(ad)814
4289 y FQ(Returns)27 b(the)i(n)m(um)m(b)s(er)d(of)j(lines)d(prin)m(ted)
h(on)h(the)g(curren)m(t)g(page.)41 b(A)m(t)29 b(the)f(top)814
4402 y(of)j(a)f(page,)i(0)f(is)e(returned.)p eop
%%Page: 657 657
657 656 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(657)241 623 y FJ(OPEN)p
FQ(\()p FN(FILE)p FQ(:)p FD(any)p FQ(,)30 b FN(HO)m(W)p
FQ(:)p FD(id)p FQ(\):)p FD(any)1275 b(eval,)33 b(spr)-5
b(e)g(ad)391 736 y FQ(Op)s(en)35 b(the)j(\014le)e(with)g(the)h(system)g
(dep)s(enden)m(t)f(name)h(FILE)g(for)g(output)g(if)391
849 y(HO)m(W)30 b(is)e(EQ)h(to)h(OUTPUT,)f(or)h(input)d(if)i(HO)m(W)h
(is)e(EQ)h(to)h(INPUT.)g(If)f(the)391 962 y(\014le)39
b(is)120 b(op)s(ened)40 b(successfully)-8 b(,)42 b(a)e(v)-5
b(alue)40 b(whic)m(h)f(is)h(in)m(ternally)e(asso)s(ciated)391
1075 y(with)32 b(the)i(\014le)e(is)h(returned.)49 b(This)32
b(v)-5 b(alue)33 b(m)m(ust)g(b)s(e)g(sa)m(v)m(ed)i(for)e(use)g(b)m(y)h
(RDS)391 1188 y(and)28 b(WRS.)i(An)f(error)f(o)s(ccurs)h(if)g(HO)m(W)h
(is)e(something)h(other)g(than)g(INPUT)391 1301 y(or)h(OUTPUT)g(or)g
(the)h(\014le)e(can't)i(b)s(e)f(op)s(ened.)391 1474 y
FJ(*****)46 b(HOW)h(is)g(not)g(option)f(for)h(OPEN)421
1587 y(*****)f(FILE)h(could)f(not)h(be)h(opened)241 2269
y(PAGELENGTH)p FQ(\()p FN(LEN)p FQ(:)p FP(f)p FD(inte)-5
b(ger)p FQ(,)28 b(NIL)p FP(g)p FQ(\):)p FD(inte)-5 b(ger)876
b(eval,)33 b(spr)-5 b(e)g(ad)391 2382 y FQ(Sets)26 b(the)g(v)m(ertical)
h(length)e(\(in)g(lines\))g(of)h(an)g(output)g(page.)40
b(Automatic)27 b(page)391 2495 y(EJECTs)44 b(are)i(executed)g(b)m(y)f
(the)h(prin)m(t)e(functions)g(when)g(this)h(length)g(is)391
2608 y(reac)m(hed.)50 b(The)32 b(initial)f(v)m(ertical)i(length)g(is)f
(implemen)m(tation)g(sp)s(eci\014c.)48 b(The)391 2720
y(previous)37 b(page)j(length)e(is)g(returned.)66 b(If)38
b(LEN)h(is)f(0,)k(no)d(automatic)h(page)391 2833 y(ejects)31
b(will)d(o)s(ccur.)241 3240 y FJ(POSN)p FQ(\(\):)p FD(inte)-5
b(ger)1972 b(eval,)33 b(spr)-5 b(e)g(ad)391 3353 y FQ(Returns)36
b(the)i(n)m(um)m(b)s(er)e(of)h(c)m(haracters)i(in)d(the)h(output)g
(bu\013er.)60 b(When)38 b(the)391 3466 y(bu\013er)29
b(is)h(empt)m(y)-8 b(,)31 b(0)g(is)e(returned.)241 3873
y FJ(PRINC)p FQ(\()p FN(U)p FQ(:)p FD(id)p FQ(\):)p FD(id)1939
b(eval,)33 b(spr)-5 b(e)g(ad)391 3986 y FQ(U)32 b(m)m(ust)g(b)s(e)f(a)h
(single)f(c)m(haracter)i(id)e(suc)m(h)h(as)g(pro)s(duced)e(b)m(y)i
(EXPLODE)g(or)391 4099 y(read)21 b(b)m(y)g(READCH)h(or)f(the)g(v)-5
b(alue)21 b(of)g(!$EOL!$.)39 b(The)21 b(e\013ect)h(is)f(the)g(c)m
(haracter)391 4212 y(U)29 b(displa)m(y)m(ed)e(up)s(on)h(the)h(curren)m
(tly)f(selected)h(output)g(device.)40 b(The)28 b(v)-5
b(alue)29 b(of)391 4325 y(!$EOL!$)23 b(causes)g(termination)f(of)h(the)
g(curren)m(t)f(line)f(lik)m(e)h(a)h(call)f(to)h(TERPRI.)p
eop
%%Page: 658 658
658 657 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(658)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 623 y FJ(PRINT)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(any)1806 b(eval,)33
b(spr)-5 b(e)g(ad)814 736 y FQ(Displa)m(ys)30 b(U)g(in)f(READ)i
(readable)f(format)h(and)f(terminates)g(the)g(prin)m(t)g(line.)814
849 y(The)g(v)-5 b(alue)30 b(of)g(U)h(is)e(returned.)814
1043 y FJ(EXPR)47 b(PROCEDURE)e(PRINT\(U\);)1053 1156
y FL(<<)i FJ(PRIN1)f(U;)h(TERPRI\(\);)f(U)h FL(>>)p FJ(;)664
1579 y(PRIN1)p FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p
FD(any)1806 b(eval,)33 b(spr)-5 b(e)g(ad)814 1692 y FQ(U)35
b(is)f(displa)m(y)m(ed)g(in)g(a)h(READ)g(readable)g(form.)54
b(The)34 b(format)i(of)f(displa)m(y)e(is)814 1805 y(the)38
b(result)f(of)g(EXPLODE)h(expansion;)i(sp)s(ecial)c(c)m(haracters)j
(are)f(pre\014xed)814 1918 y(with)31 b(the)h(escap)s(e)g(c)m(haracter)h
(!,)g(and)e(strings)f(are)i(enclosed)g(in)e(".)16 b(.)f(.)h(".)45
b(Lists)814 2031 y(are)31 b(displa)m(y)m(ed)e(in)g(list-notation)h(and)
f(v)m(ectors)j(in)d(v)m(ector-notation.)664 2438 y FJ(PRIN2)p
FQ(\()p FN(U)p FQ(:)p FD(any)p FQ(\):)p FD(any)1806 b(eval,)33
b(spr)-5 b(e)g(ad)814 2551 y FQ(U)28 b(is)f(displa)m(y)m(ed)g(up)s(on)f
(the)i(curren)m(tly)f(selected)h(prin)m(t)f(device)g(but)h(output)f(is)
814 2664 y(not)f(READ)g(readable.)39 b(The)25 b(v)-5
b(alue)25 b(of)h(U)f(is)g(returned.)38 b(Items)26 b(are)g(displa)m(y)m
(ed)814 2777 y(as)43 b(describ)s(ed)e(in)h(the)h(EXPLODE)g(function)f
(with)f(the)i(exceptions)h(that)814 2890 y(the)38 b(escap)s(e)h(c)m
(haracter)h(do)s(es)d(not)i(pre\014x)e(sp)s(ecial)f(c)m(haracters)k
(and)d(strings)814 3003 y(are)j(not)f(enclosed)g(in)f(".)16
b(.)g(.)f(".)68 b(Lists)38 b(are)i(displa)m(y)m(ed)e(in)g
(list-notation)h(and)814 3115 y(v)m(ectors)32 b(in)d(v)m
(ector-notation.)43 b(The)30 b(v)-5 b(alue)30 b(of)g(U)h(is)e
(returned.)664 3505 y FJ(RDS)p FQ(\()p FN(FILEHANDLE)p
FQ(:)p FD(any)p FQ(\):)p FD(any)1289 b(eval,)33 b(spr)-5
b(e)g(ad)814 3618 y FQ(Input)40 b(from)h(the)h(curren)m(tly)e(selected)
i(input)e(\014le)h(is)f(susp)s(ended)f(and)i(fur-)814
3730 y(ther)c(input)e(comes)j(from)e(the)h(\014le)f(named.)60
b(FILEHANDLE)38 b(is)e(a)h(system)814 3843 y(dep)s(enden)m(t)44
b(in)m(ternal)g(name)h(whic)m(h)e(is)h(a)i(v)-5 b(alue)44
b(returned)g(b)m(y)h(OPEN.)g(If)814 3956 y(FILEHANDLE)34
b(is)e(NIL)h(the)h(standard)e(input)g(device)h(is)f(selected.)50
b(When)814 4069 y(end)34 b(of)h(\014le)f(is)g(reac)m(hed)h(on)g(a)g
(non-standard)e(input)g(device,)j(the)f(standard)814
4182 y(input)d(device)h(is)g(reselected.)50 b(When)34
b(end)e(of)i(\014le)f(o)s(ccurs)g(on)g(the)h(standard)814
4295 y(input)26 b(device)i(the)f(Standard)g(LISP)g(reader)g
(terminates.)40 b(RDS)27 b(returns)g(the)814 4408 y(in)m(ternal)i(name)
i(of)f(the)h(previously)d(selected)j(input)d(\014le.)814
4581 y FJ(*****)47 b(FILEHANDLE)e(could)h(not)h(be)g(selected)f(for)g
(input)p eop
%%Page: 659 659
659 658 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.3.)72 b(FUNCTIONS)2045 b FQ(659)241 623 y FJ(READ)p
FQ(\(\):)p FD(any)391 736 y FQ(The)30 b(next)g(expression)f(from)h(the)
h(\014le)e(curren)m(tly)h(selected)h(for)f(input.)39
b(V)-8 b(alid)391 849 y(input)36 b(forms)i(are:)57 b(v)m
(ector-notation,)43 b(dot-notation,)e(list-notation,)f(n)m(um-)391
962 y(b)s(ers,)e(function-p)s(oin)m(ters,)g(strings,)h(and)e(iden)m
(ti\014ers)f(with)g(escap)s(e)i(c)m(harac-)391 1075 y(ters.)59
b(Iden)m(ti\014ers)35 b(are)i(in)m(terned)f(onW)g(the)h(OBLIST)e(\(see)
74 b(the)37 b(INTERN)391 1188 y(function)26 b(in)g("Iden)m(ti\014ers",)
h(section)h @beginspecial @setspecial @endspecial(91.3.3)h(on)e(page)h
@beginspecial @setspecial @endspecial(627)q(\).)40 b(READ)28
b(returns)391 1301 y(the)37 b(v)-5 b(alue)37 b(of)g(!$EOF!$)i(when)d
(the)h(end)g(of)g(the)h(curren)m(tly)e(selected)i(input)391
1414 y(\014le)29 b(is)h(reac)m(hed.)241 1803 y FJ(READCH)p
FQ(\(\):)p FD(id)391 1916 y FQ(Returns)i(the)h(next)g(in)m(terned)f(c)m
(haracter)j(from)e(the)g(\014le)f(curren)m(tly)g(selected)391
2029 y(for)f(input.)43 b(Tw)m(o)32 b(sp)s(ecial)f(cases)h(o)s(ccur.)45
b(If)32 b(all)e(the)i(c)m(haracters)h(in)e(an)h(input)423
2142 y(record)f(ha)m(v)m(e)j(b)s(een)d(read,)h(the)h(v)-5
b(alue)31 b(of)h(!$EOL!$)h(is)e(returned.)44 b(If)31
b(the)i(\014le)391 2255 y(selected)27 b(for)g(input)e(has)i(all)f(b)s
(een)g(read)h(the)g(v)-5 b(alue)27 b(of)g(!$EOF!$)i(is)d(returned.)391
2368 y(Commen)m(ts)42 b(delimited)f(b)m(y)h(\045)g(and)g(end-of-line)g
(are)h(not)f(transparen)m(t)h(to)391 2480 y(READCH.)241
2870 y FJ(TERPRI)p FQ(\(\):)p FN(NIL)391 2983 y FQ(The)30
b(curren)m(t)g(prin)m(t)f(line)g(is)g(terminated.)241
3389 y FJ(WRS)p FQ(\()p FN(FILEHANDLE)p FQ(:)p FD(any)p
FQ(\):)p FD(any)1288 b(eval,)33 b(spr)-5 b(e)g(ad)391
3502 y FQ(Output)32 b(to)i(the)g(curren)m(tly)e(activ)m(e)j(output)e
(\014le)g(is)f(susp)s(ended)f(and)i(further)391 3615
y(output)i(is)g(directed)f(to)j(the)e(\014le)g(named.)56
b(FILEHANDLE)36 b(is)f(an)g(in)m(ternal)391 3728 y(name)f(whic)m(h)g
(is)g(returned)f(b)m(y)i(OPEN.)f(The)g(\014le)g(named)g(m)m(ust)h(ha)m
(v)m(e)g(b)s(een)391 3841 y(op)s(ened)k(for)h(output.)70
b(If)40 b(FILEHANDLE)h(is)e(NIL)h(the)h(standard)e(output)391
3954 y(device)26 b(is)g(selected.)79 b(WRS)26 b(returns)g(the)g(in)m
(ternal)g(name)g(of)h(the)g(previously)391 4067 y(selected)k(output)f
(\014le.)391 4240 y FJ(*****)46 b(FILEHANDLE)f(could)h(not)h(be)h
(selected)d(for)i(output)241 4548 y @beginspecial @setspecial
@endspecial eop
%%Page: 660 660
660 659 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(660)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FR(91.3.16)113
b(LISP)37 b(Reader)664 777 y FQ(An)30 b(EV)-10 b(AL)30
b(read)h(lo)s(op)e(has)h(b)s(een)g(c)m(hosen)h(to)g(driv)m(e)f(a)g
(Standard)f(LISP)h(system)g(to)664 890 y(pro)m(vide)g(a)g(con)m(tin)m
(uit)m(y)h(in)e(functional)g(syn)m(tax.)41 b(Choices)30
b(of)g(messages)i(and)d(the)664 1002 y(amoun)m(t)i(of)g(extra)g
(information)d(displa)m(y)m(ed)h(are)i(decisions)e(left)h(to)h(the)664
1115 y(implemen)m(tor.)664 1359 y FJ(EXPR)47 b(PROCEDURE)e
(STANDARD!-LISP\(\);)664 1472 y(BEGIN)i(SCALAR)f(VALUE;)903
1585 y(RDS)h(NIL;)f(WRS)h(NIL;)903 1698 y(PRIN2)f("Standard)f(LISP";)i
(TERPRI\(\);)903 1811 y(WHILE)f(T)i(DO)1046 1924 y FL(<<)f
FJ(PRIN2)f("EVAL:";)g(TERPRI\(\);)1235 2037 y(VALUE)g(:=)i
(ERRORSET\(QUOTE)c(EVAL)i(READ\(\),)g(T,)h(T\);)1235
2150 y(IF)g(NOT)g(ATOM)g(VALUE)f(THEN)h(PRINT)f(CAR)h(VALUE;)1235
2263 y(TERPRI\(\))f FL(>>)p FJ(;)664 2376 y(END;)664
2838 y(QUIT)p FQ(\(\))814 2951 y(Causes)28 b(termination)f(of)i(the)f
(LISP)g(reader)g(and)g(con)m(trol)g(to)h(b)s(e)f(transferred)814
3064 y(to)j(the)g(op)s(erating)f(system.)664 3227 y @beginspecial
@setspecial @endspecial 199 x FE(91.4)136 b(System)45
b(GLOBAL)e(V)-11 b(ariables)664 3679 y FQ(These)30 b(v)-5
b(ariables)29 b(pro)m(vide)h(global)f(con)m(trol)i(of)g(the)f(LISP)g
(system,)g(or)h(implemen)m(t)664 3792 y(v)-5 b(alues)30
b(whic)m(h)f(are)i(constan)m(t)g(throughout)f(execution.)p
@beginspecial @setspecial @endspecial -33 x FO(2)664
4173 y FN(*COMP)g FQ(=)h(NIL)2104 b FD(glob)-5 b(al)875
4285 y FQ(The)33 b(v)-5 b(alue)34 b(of)g(!*COMP)h(con)m(trols)f
(whether)g(or)g(not)g(PUTD)h(compiles)e(the)875 4398
y(function)i(de\014ned)h(in)g(its)g(argumen)m(ts)h(b)s(efore)f
(de\014ning)f(it.)60 b(If)37 b(!*COMP)g(is)875 4511 y(NIL)32
b(the)h(function)e(is)h(de\014ned)f(as)i(an)g(xEXPR.)g(If)f(!*COMP)h
(is)e(something)875 4624 y(else)g(the)g(function)e(is)h(\014rst)g
(compiled.)41 b(Compilation)29 b(will)f(pro)s(duce)i(certain)875
4737 y(c)m(hanges)22 b(in)d(the)i(seman)m(tics)h(of)f(functions)e
(particularly)g(FLUID)i(t)m(yp)s(e)g(access.)p 664 4771
1196 4 v 768 4824 a Fy(2)802 4856 y @beginspecial @setspecial
@endspecial Fx(The)26 b(published)f(do)r(cumen)n(t)f(do)r(es)j(not)e
(sp)r(ecify)i(that)e(all)i(these)e(are)i(GLOBAL.)p eop
%%Page: 661 661
661 660 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.4.)72 b(SYSTEM)30 b(GLOBAL)g(V)-10 b(ARIABLES)1238
b FQ(661)241 623 y FN(EMSG*)31 b FQ(=)f(NIL)2120 b FD(glob)-5
b(al)451 736 y FQ(Will)29 b(con)m(tain)h(the)h(MESSA)m(GE)f(generated)h
(b)m(y)f(the)h(last)f(ERR)m(OR)g(call)f(\(see)451 849
y(\\Error)h(Handling")f(section)i @beginspecial @setspecial
@endspecial(91.3.8)h(on)f(page)g @beginspecial @setspecial
@endspecial(638)q(\).)241 1148 y FN($EOF$)f FQ(=)g FL(<)p
FD(an)i(uninterne)-5 b(d)34 b(identi\014er)p FL(>)1237
b FD(glob)-5 b(al)451 1261 y FQ(The)24 b(v)-5 b(alue)24
b(of)h(!$EOF!$)g(is)f(returned)f(b)m(y)h(all)g(input)e(functions)h
(when)g(the)i(end)451 1374 y(of)31 b(the)f(curren)m(tly)g(selected)h
(input)d(\014le)i(is)f(reac)m(hed.)241 1668 y FN($EOL$)h
FQ(=)g FL(<)p FD(an)j(uninterne)-5 b(d)33 b(identi\014er)p
FL(>)1240 b FD(glob)-5 b(al)451 1781 y FQ(The)33 b(v)-5
b(alue)32 b(of)h(!$EOL!$)g(is)f(returned)f(b)m(y)i(READCH)g(when)e(it)h
(reac)m(hes)i(the)451 1894 y(end)k(of)77 b(a)39 b(logical)f(input)f
(record.)65 b(Lik)m(ewise)38 b(PRINC)f(will)f(terminate)j(its)451
2007 y(curren)m(t)31 b(line)d(\(lik)m(e)i(a)h(call)f(to)h(TERPRI\))f
(when)f(!$EOL!$)i(is)e(its)h(argumen)m(t.)241 2306 y
FN(*GC)g FQ(=)g(NIL)2271 b FD(glob)-5 b(al)451 2419 y
FQ(!*GC)44 b(con)m(trols)g(the)f(prin)m(ting)e(of)j(garbage)g
(collector)g(messages.)81 b(If)43 b(NIL)451 2532 y(no)c(indication)d
(of)j(garbage)g(collection)f(ma)m(y)i(o)s(ccur.)64 b(If)38
b(non-NIL)g(v)-5 b(arious)451 2645 y(system)31 b(dep)s(enden)m(t)e
(messages)j(ma)m(y)f(b)s(e)e(displa)m(y)m(ed.)241 2933
y FN(NIL)g FQ(=)h(NIL)2297 b FD(glob)-5 b(al)451 3046
y FQ(NIL)31 b(is)f(a)i(sp)s(ecial)e(global)g(v)-5 b(ariable.)42
b(It)31 b(is)f(protected)i(from)f(b)s(eing)e(mo)s(di\014ed)451
3159 y(b)m(y)i(SET)e(or)h(SETQ.)241 3453 y FN(*RAISE)g
FQ(=)g(NIL)2105 b FD(glob)-5 b(al)451 3566 y FQ(If)34
b(!*RAISE)f(is)g(non-NIL)g(all)g(c)m(haracters)i(input)d(through)h
(Standard)f(LISP)451 3679 y(input/output)i(functions)g(will)f(b)s(e)i
(raised)f(to)i(upp)s(er)e(case.)57 b(If)35 b(!*RAISE)g(is)451
3792 y(NIL)c(c)m(haracters)g(will)d(b)s(e)i(input)e(as)j(is.)241
4081 y FN(T)f FQ(=)g(T)2500 b FD(glob)-5 b(al)451 4194
y FQ(T)28 b(is)f(a)i(sp)s(ecial)e(global)g(v)-5 b(ariable.)39
b(It)28 b(is)g(protected)h(from)f(b)s(eing)e(mo)s(di\014ed)g(b)m(y)451
4307 y(SET)k(or)g(SETQ.)241 4461 y @beginspecial @setspecial
@endspecial eop
%%Page: 662 662
662 661 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(662)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FE(91.5)136
b(The)44 b(Extended)i(Syn)l(tax)664 808 y FQ(Whenev)m(er)30
b(it)g(is)e(p)s(ossible)g(to)i(de\014ne)f(Standard)f(LISP)h(functions)f
(in)g(LISP)h(the)h(text)664 921 y(of)h(the)f(function)f(will)f(app)s
(ear)i(in)f(an)h(extended)h(syn)m(tax.)41 b(These)30
b(de\014nitions)e(are)664 1034 y(supplied)f(as)k(an)f(aid)g(to)h
(understanding)c(the)k(b)s(eha)m(vior)f(of)g(functions)f(and)h(not)g
(as)h(a)664 1147 y(strict)f(implemen)m(tation)f(guide.)40
b(A)31 b(formal)e(sc)m(heme)i(for)f(the)h(translation)e(of)664
1260 y(extended)i(syn)m(tax)f(to)i(Standard)d(LISP)g(is)g(presen)m(ted)
i(to)g(eliminate)664 1372 y(misin)m(terpretation)e(of)h(the)h
(de\014nitions.)664 1517 y @beginspecial @setspecial
@endspecial 149 x FR(91.5.1)113 b(De\014nition)664 1887
y FQ(The)30 b(goal)h(of)f(the)h(transformation)f(sc)m(heme)h(is)e(to)i
(pro)s(duce)f(a)g(PUTD)h(in)m(v)m(o)s(cation)664 2000
y(whic)m(h)e(has)h(the)h(function)e(translated)h(from)g(the)h(extended)
f(syn)m(tax)h(as)f(its)g(actual)664 2113 y(parameter.)41
b(A)30 b(rule)f(has)h(a)g(name)g(in)f(brac)m(k)m(ets)i
FL(<)p FD(.)14 b(.)g(.)g FL(>)29 b FQ(b)m(y)h(whic)m(h)f(it)g(is)g(kno)
m(wn)h(and)664 2226 y(is)g(de\014ned)f(b)m(y)h(what)g(follo)m(ws)g(the)
g(meta)i(sym)m(b)s(ol)d(::=.)41 b(Eac)m(h)31 b(rule)e(of)h(the)h(set)
664 2339 y(consists)f(of)h(one)f(or)h(more)f(\\alternativ)m(es")i
(separated)f(b)m(y)f(the)g FP(j)h FQ(meta)g(sym)m(b)s(ol,)664
2452 y(b)s(eing)e(the)i(di\013eren)m(t)f(w)m(a)m(ys)h(in)e(whic)m(h)g
(the)h(rule)g(will)d(b)s(e)j(matc)m(hed)h(b)m(y)f(source)h(text.)664
2565 y(Eac)m(h)d(alternativ)m(e)g(is)f(comp)s(osed)g(of)h(a)g
(\\recognizer")h(and)e(a)h(\\generator")h(separated)664
2678 y(b)m(y)h(the)h(=)-15 b FP(\))30 b FQ(meta)h(sym)m(b)s(ol.)40
b(The)29 b(recognizer)i(is)f(a)g(concatenation)i(of)f(an)m(y)f(of)h
(three)664 2790 y(di\013eren)m(t)f(forms.)40 b(1\))31
b(T)-8 b(erminals)29 b(-)h(Upp)s(er)f(case)j(lexemes)e(and)g
(punctuation)f(whic)m(h)664 2903 y(is)h(not)g(part)g(of)h(the)g(meta)g
(syn)m(tax)g(represen)m(t)f(items)g(whic)m(h)f(m)m(ust)h(app)s(ear)g
(as)h(is)e(in)664 3016 y(the)i(source)f(text)i(for)e(the)g(rule)f(to)j
(succeed.)41 b(2\))31 b(Rules)e(-)i(Lo)m(w)m(er)g(case)g(lexemes)664
3129 y(enclosed)f(in)f FL(<)p FD(.)14 b(.)g(.)g FL(>)29
b FQ(are)i(names)g(of)f(other)h(rules.)39 b(The)30 b(source)g(text)i
(is)d(matc)m(hed)i(if)664 3242 y(the)g(named)f(rule)f(succeeds.)41
b(3\))31 b(Primitiv)m(es)d(-)j(Lo)m(w)m(er)g(case)g(singletons)f(not)g
(in)664 3355 y(brac)m(k)m(ets)i(are)f(names)f(of)h(primitiv)m(es)d(or)i
(primitiv)m(e)e(classes)i(of)h(Standard)e(LISP)-8 b(.)664
3468 y(The)30 b(syn)m(tax)h(and)f(seman)m(tics)g(of)h(the)f(primitiv)m
(es)e(are)j(giv)m(en)g(in)e(P)m(art)i(I.)664 3631 y(The)f(recognizer)h
(p)s(ortion)e(of)h(the)h(follo)m(wing)e(rule)g(matc)m(hes)i(an)g
(extended)f(syn)m(tax)664 3744 y(pro)s(cedure:)664 3906
y FL(<)p FD(function)p FL(>)g FQ(::=)h(ft)m(yp)s(e)f(PR)m(OCEDURE)g(id)
f(\()p FL(<)p FD(id)k(list)p FL(>)p FQ(\);)876 4019 y
FL(<)p FD(statement)p FL(>)p FQ(;)f(=)-15 b FP(\))664
4182 y FQ(A)31 b(function)e(is)g(recognized)i(as)f(an)h(\\ft)m(yp)s(e")
g(\(one)g(of)g(the)f(tok)m(ens)h(EXPR,)g(FEXPR,)664 4295
y(etc.\))42 b(follo)m(w)m(ed)30 b(b)m(y)h(the)f(k)m(eyw)m(ord)h(PR)m
(OCEDURE,)f(follo)m(w)m(ed)h(b)m(y)f(an)g(\\id")g(\(the)664
4408 y(name)h(of)f(the)h(function\),)e(follo)m(w)m(ed)h(b)m(y)h(an)f
FL(<)p FD(id)i(list)p FL(>)f FQ(\(the)g(formal)e(parameter)664
4521 y(names\))i(enclosed)f(in)f(paren)m(theses.)41 b(A)30
b(semicolon)g(terminates)g(the)h(title)f(line.)39 b(The)664
4634 y(b)s(o)s(dy)29 b(of)i(the)f(function)f(is)h(a)g
FL(<)p FD(statement)p FL(>)h FQ(follo)m(w)m(ed)f(b)m(y)h(a)f
(semicolon.)40 b(F)-8 b(or)664 4746 y(example:)p eop
%%Page: 663 663
663 662 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.5.)72 b(THE)30 b(EXTENDED)h(SYNT)-8 b(AX)1431 b
FQ(663)241 555 y FH(EXPR)42 b(PROCEDURE)e(NULL\(X\);)g(EQ\(X,)h(NIL\);)
241 799 y FQ(satis\014es)28 b(the)h(recognizer,)g(causes)h(the)e
(generator)i(to)g(b)s(e)e(activ)-5 b(ated)29 b(and)g(the)f(rule)g(to)
241 912 y(b)s(e)i(matc)m(hed)h(successfully)-8 b(.)241
1075 y(The)30 b(generator)h(is)f(a)g(template)h(in)m(to)f(whic)m(h)g
(generated)h(items)f(are)h(substituted.)241 1188 y(The)f(three)g(syn)m
(tactic)i(en)m(tities)e(ha)m(v)m(e)h(corresp)s(onding)e(meanings)g
(when)h(they)241 1301 y(app)s(ear)g(in)f(the)h(generator)i(p)s(ortion.)
39 b(1\))31 b(T)-8 b(erminals)29 b(-)h(These)g(lexemes)h(are)f(copied)
241 1414 y(as)g(is)g(to)h(the)f(generated)i(text.)42
b(2\))31 b(Rules)e(-)i(If)e(a)i(rule)e(has)h(succeeded)h(in)e(the)241
1527 y(recognizer)i(section)f(then)g(the)h(v)-5 b(alue)30
b(of)g(the)h(rule)e(is)g(the)i(result)e(of)i(the)f(generator)241
1639 y(p)s(ortion)f(of)h(that)h(rule.)40 b(3\))31 b(Primitiv)m(es)d(-)j
(When)f(primitiv)m(es)e(are)j(matc)m(hed)g(the)241 1752
y(primitiv)m(e)d(lexeme)i(replaces)h(its)e(o)s(ccurrence)i(in)e(the)i
(generator.)241 1915 y(If)f(more)g(than)g(one)h(o)s(ccurrence)g(of)f
(an)g(item)g(w)m(ould)g(cause)g(am)m(biguit)m(y)g(in)f(the)241
2028 y(generator)i(p)s(ortion)e(this)h(en)m(tit)m(y)h(app)s(ears)e
(with)g(a)i(brac)m(k)m(eted)h(subscript.)38 b(Th)m(us:)241
2272 y FL(<)p FD(c)-5 b(onditional)p FL(>)32 b FQ(::=)453
2385 y(IF)e FL(<)p FD(expr)-5 b(ession)p FL(>)32 b FQ(THEN)e
FL(<)p FD(statement)1900 2399 y FO(1)1940 2385 y FL(>)1153
2498 y FQ(ELSE)f FL(<)p FD(statement)1867 2512 y FO(2)1908
2498 y FL(>)h FQ(.)15 b(.)g(.)241 2742 y(has)30 b(o)s(ccurrences)g(of)h
(t)m(w)m(o)h(di\013eren)m(t)d FL(<)p FD(statement)p FL(>)p
FQ(s.)42 b(The)29 b(generator)j(p)s(ortion)d(uses)241
2855 y(the)h(subscripted)e(en)m(tities)j(to)g(reference)f(the)h(prop)s
(er)e(generated)i(v)-5 b(alue.)241 3018 y(The)30 b FL(<)p
FD(function)p FL(>)g FQ(rule)f(app)s(ears)g(in)g(its)h(en)m(tiret)m(y)h
(as:)241 3262 y FL(<)p FD(function)p FL(>)f FQ(::=)g(ft)m(yp)s(e)h(PR)m
(OCEDURE)f(id)f(\()p FL(<)p FD(id)k(list)p FL(>)p FQ(\);)p
FL(<)p FD(statement)p FL(>)p FQ(;)f(=)-15 b FP(\))453
3375 y FQ(\(PUTD)31 b(\(QUOTE)e(id\))784 3488 y(\(QUOTE)g(ft)m(yp)s
(e\))784 3600 y(\(QUOTE)g(\(LAMBD)m(A)k(\()p FL(<)p FD(id)g(list)p
FL(>)p FQ(\))e FL(<)p FD(statement)p FL(>)p FQ(\)\)\))241
3845 y(If)f(the)g(recognizer)h(succeeds)g(\(as)g(it)f(w)m(ould)f(in)g
(the)h(case)i(of)e(the)h(NULL)f(pro)s(cedure)241 3957
y(example\))g(the)h(generator)g(returns:)241 4188 y FH(\(PUTD)41
b(\(QUOTE)g(NULL\))h(\(QUOTE)f(EXPR\))h(\(QUOTE)f(\(LAMBDA)f(\(X\))j
(\(EQ)f(X)h(NIL\)\)\)\))241 4432 y FQ(The)30 b(iden)m(ti\014er)e(in)h
(the)i(template)g(is)e(replaced)h(b)m(y)g(the)h(pro)s(cedure)e(name)h
(NULL,)241 4545 y FL(<)p FD(id)i(list)p FL(>)f FQ(b)m(y)f(the)h(single)
e(formal)g(parameter)i(X,)g(the)f FL(<)p FD(statement)p
FL(>)h FQ(b)m(y)g(\(EQ)f(X)241 4658 y(NIL\))g(whic)m(h)f(is)h(the)g
(result)g(of)g(the)h FL(<)p FD(statement)p FL(>)g FQ(generator.)42
b(EXPR)30 b(replaces)241 4771 y(ft)m(yp)s(e,)g(the)h(t)m(yp)s(e)f(of)h
(the)g(de\014ned)e(pro)s(cedure.)241 4916 y @beginspecial
@setspecial @endspecial eop
%%Page: 664 664
664 663 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(664)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)664 555 y FR(91.5.2)113
b(The)37 b(Extended)h(Syn)m(tax)g(Rules)664 777 y FL(<)p
FD(function)p FL(>)30 b FQ(::=)h(ft)m(yp)s(e)f FN(PR)m(OCEDURE)h
FQ(id)e(\()p FL(<)p FD(id)k(list)p FL(>)p FQ(\);)e FL(<)p
FD(statement)p FL(>)p FQ(;)g(=)-15 b FP(\))876 890 y
FQ(\(PUTD)31 b(\(QUOTE)f(id\))1207 1002 y(\(QUOTE)g(ft)m(yp)s(e\))1207
1115 y(\(QUOTE)g(\(LAMBD)m(A)i(\()p FL(<)p FD(id)h(list)p
FL(>)p FQ(\))e FL(<)p FD(statement)p FL(>)p FQ(\)\)\))664
1341 y FL(<)p FD(id)i(list)p FL(>)d FQ(::=)h(id)e(=)-15
b FP(\))30 b FQ(id)f FP(j)876 1454 y FQ(id,)h FL(<)p
FD(id)i(list)p FL(>)f FQ(=)-15 b FP(\))29 b FQ(id)h FL(<)p
FD(id)i(list)p FL(>)f FP(j)876 1567 y FQ(=)-15 b FP(\))30
b FQ(NIL)664 1680 y FL(<)p FD(statement)p FL(>)h FQ(::=)g
FL(<)p FD(expr)-5 b(ession)p FL(>)31 b FQ(=)-15 b FP(\))30
b FL(<)p FD(expr)-5 b(ession)p FL(>)31 b FP(j)876 1793
y FL(<)p FD(pr)-5 b(op)g(er)35 b(statement)p FL(>)c FQ(=)-15
b FP(\))30 b FL(<)p FD(pr)-5 b(op)g(er)35 b(statement)p
FL(>)664 2019 y(<)p FD(pr)-5 b(op)g(er)35 b(statement)p
FL(>)c FQ(::=)876 2132 y FL(<)p FD(assignment)j(statement)p
FL(>)d FQ(=)-15 b FP(\))30 b FL(<)p FD(assignment)j(statement)p
FL(>)e FP(j)876 2244 y FL(<)p FD(c)-5 b(onditional)35
b(statement)p FL(>)c FQ(=)-15 b FP(\))30 b FL(<)p FD(c)-5
b(onditional)35 b(statement)p FL(>)c FP(j)876 2357 y
FL(<)p FD(while)i(statement)p FL(>)f FQ(=)-15 b FP(\))29
b FL(<)p FD(while)k(statement)p FL(>)f FP(j)876 2470
y FL(<)p FD(c)-5 b(omp)g(ound)35 b(statement)p FL(>)c
FQ(=)-15 b FP(\))30 b FL(<)p FD(c)-5 b(omp)g(ound)35
b(statement)p FL(>)664 2696 y(<)p FD(assignment)e(statement)p
FL(>)f FQ(::=)e(id)f(:=)i FL(<)p FD(expr)-5 b(ession)p
FL(>)31 b FQ(=)-15 b FP(\))1207 2809 y FQ(\(SETQ)30 b(id)f
FL(<)p FD(expr)-5 b(ession)p FL(>)p FQ(\))664 3035 y
FL(<)p FD(c)g(onditional)35 b(statement)p FL(>)c FQ(::=)876
3148 y FN(IF)f FL(<)p FD(expr)-5 b(ession)p FL(>)32 b
FN(THEN)d FL(<)p FD(statement)2378 3162 y FO(1)2418 3148
y FL(>)h FN(ELSE)g FL(<)p FD(statement)3261 3162 y FO(2)3301
3148 y FL(>)g FQ(=)-15 b FP(\))1088 3261 y FQ(\(COND)31
b(\()p FL(<)p FD(expr)-5 b(ession)p FL(>)32 b(<)p FD(statement)2494
3275 y FO(1)2534 3261 y FL(>)p FQ(\)\(T)f FL(<)p FD(statement)3225
3275 y FO(2)3265 3261 y FL(>)p FQ(\)\))g FP(j)876 3374
y FN(IF)f FL(<)p FD(expr)-5 b(ession)p FL(>)32 b FN(THEN)d
FL(<)p FD(statement)p FL(>)i FQ(=)-15 b FP(\))1088 3486
y FQ(\(COND)31 b(\()p FL(<)p FD(expr)-5 b(ession)p FL(>)32
b(<)p FD(statement)p FL(>)p FQ(\)\))664 3712 y FL(<)p
FD(while)h(statement)p FL(>)f FQ(::=)e FN(WHILE)f FL(<)p
FD(expr)-5 b(ession)p FL(>)32 b FN(DO)e FL(<)p FD(statement)p
FL(>)h FQ(=)-15 b FP(\))1088 3825 y FQ(\(PR)m(OG)31 b(NIL)1088
3938 y(LBL)g(\(COND)f(\(\(NULL)h FL(<)p FD(expr)-5 b(ession)p
FL(>)p FQ(\))32 b(\(RETURN)f(NIL\)\)\))1297 4051 y FL(<)p
FD(statement)p FL(>)1297 4164 y FQ(\(GO)f(LBL\)\))664
4390 y FL(<)p FD(c)-5 b(omp)g(ound)35 b(statement)p FL(>)c
FQ(::=)876 4503 y FN(BEGIN)f(SCALAR)h FL(<)p FD(id)h(list)p
FL(>)p FQ(;)f FL(<)p FD(pr)-5 b(o)g(gr)g(am)35 b(list)p
FL(>)c FN(END)f FQ(=)-15 b FP(\))1088 4616 y FQ(\(PR)m(OG)31
b(\()p FL(<)p FD(id)i(list)p FL(>)p FQ(\))e FL(<)p FD(pr)-5
b(o)g(gr)g(am)36 b(list)p FL(>)p FQ(\))31 b FP(j)876
4728 y FN(BEGIN)f FL(<)p FD(pr)-5 b(o)g(gr)g(am)36 b(list)p
FL(>)30 b FN(END)g FQ(=)-15 b FP(\))1088 4841 y FQ(\(PR)m(OG)31
b(NIL)g FL(<)p FD(pr)-5 b(o)g(gr)g(am)35 b(list)p FL(>)p
FQ(\))c FP(j)876 4954 y FL(<<)f(<)p FD(statement)k(list)p
FL(>)c(>>)g FQ(=)-15 b FP(\))30 b FQ(\(PR)m(OGN)h FL(<)p
FD(statement)i(list)p FL(>)p FQ(\))p eop
%%Page: 665 665
665 664 bop 241 299 a @beginspecial @setspecial @endspecial
FM(91.5.)72 b(THE)30 b(EXTENDED)h(SYNT)-8 b(AX)1431 b
FQ(665)241 668 y FL(<)p FD(pr)-5 b(o)g(gr)g(am)35 b(list)p
FL(>)c FQ(::=)f FL(<)p FD(ful)5 b(l)32 b(statement)p
FL(>)g FQ(=)-15 b FP(\))29 b FL(<)p FD(ful)5 b(l)32 b(statement)p
FL(>)g FP(j)453 781 y FL(<)p FD(ful)5 b(l)32 b(statement)p
FL(>)f(<)p FD(pr)-5 b(o)g(gr)g(am)36 b(list)p FL(>)30
b FQ(=)-15 b FP(\))665 894 y FL(<)p FD(ful)5 b(l)32 b(statement)p
FL(>)f(<)p FD(pr)-5 b(o)g(gr)g(am)36 b(list)p FL(>)241
1120 y(<)p FD(ful)5 b(l)32 b(statement)p FL(>)f FQ(::=)g
FL(<)p FD(statement)p FL(>)g FQ(=)-15 b FP(\))29 b FL(<)p
FD(statement)p FL(>)i FP(j)g FQ(id:)39 b(=)-15 b FP(\))30
b FQ(id)241 1346 y FL(<)p FD(statement)j(list)p FL(>)e
FQ(::=)f FL(<)p FD(statement)p FL(>)h FQ(=)-15 b FP(\))30
b FL(<)p FD(statement)p FL(>)h FP(j)453 1458 y FL(<)p
FD(statement)p FL(>)p FQ(;)g FL(<)p FD(statement)j(list)p
FL(>)c FQ(=)-15 b FP(\))665 1571 y FL(<)p FD(statement)p
FL(>)31 b(<)p FD(statement)j(list)p FL(>)241 1797 y(<)p
FD(expr)-5 b(ession)p FL(>)31 b FQ(::=)453 1910 y FL(<)p
FD(expr)-5 b(ession)928 1924 y FO(1)969 1910 y FL(>)30
b FN(.)40 b FL(<)p FD(expr)-5 b(ession)1614 1924 y FO(2)1655
1910 y FL(>)30 b FQ(=)-15 b FP(\))665 2023 y FQ(\(CONS)30
b FL(<)p FD(expr)-5 b(ession)1461 2037 y FO(1)1502 2023
y FL(>)30 b(<)p FD(expr)-5 b(ession)2078 2037 y FO(2)2119
2023 y FL(>)30 b FP(j)453 2136 y FL(<)p FD(expr)-5 b(ession)928
2150 y FO(1)969 2136 y FL(>)30 b FN(=)g FL(<)p FD(expr)-5
b(ession)1656 2150 y FO(2)1697 2136 y FL(>)30 b FQ(=)-15
b FP(\))665 2249 y FQ(\(EQUAL)30 b FL(<)p FD(expr)-5
b(ession)1531 2263 y FO(1)1572 2249 y FL(>)30 b(<)p FD(expr)-5
b(ession)2148 2263 y FO(2)2189 2249 y FL(>)p FQ(\))31
b FP(j)453 2362 y FL(<)p FD(expr)-5 b(ession)928 2376
y FO(1)969 2362 y FL(>)30 b FN(EQ)f FL(<)p FD(expr)-5
b(ession)1722 2376 y FO(2)1763 2362 y FL(>)30 b FQ(=)-15
b FP(\))665 2475 y FQ(\(EQ)30 b FL(<)p FD(expr)-5 b(ession)1338
2489 y FO(1)1379 2475 y FL(>)30 b(<)p FD(expr)-5 b(ession)1955
2489 y FO(2)1996 2475 y FL(>)p FQ(\))30 b FP(j)453 2588
y FQ(')p FL(<)p FD(expr)-5 b(ession)p FL(>)32 b FQ(=)-15
b FP(\))29 b FQ(\(QUOTE)h FL(<)p FD(expr)-5 b(ession)p
FL(>)p FQ(\))32 b FP(j)453 2700 y FQ(function)d FL(<)p
FD(expr)-5 b(ession)p FL(>)31 b FQ(=)-15 b FP(\))30 b
FQ(\(function)g FL(<)p FD(expr)-5 b(ession)p FL(>)p FQ(\))31
b FP(j)453 2813 y FQ(function\()p FL(<)p FD(ar)-5 b(gument)32
b(list)p FL(>)p FQ(\))f(=)-15 b FP(\))30 b FQ(\(function)f
FL(<)p FD(ar)-5 b(gument)34 b(list)p FL(>)p FQ(\))d FP(j)453
2926 y FQ(n)m(um)m(b)s(er)e(=)-15 b FP(\))30 b FQ(n)m(um)m(b)s(er)f
FP(j)453 3039 y FQ(id)g(=)-15 b FP(\))30 b FQ(id)241
3265 y FL(<)p FD(ar)-5 b(gument)33 b(list)p FL(>)e FQ(::=)f(\(\))h(=)
-15 b FP(\))30 b(j)453 3378 y FL(<)p FD(expr)-5 b(ession)p
FL(>)31 b FQ(=)-15 b FP(\))30 b FL(<)p FD(expr)-5 b(ession)p
FL(>)32 b FP(j)453 3491 y FL(<)p FD(expr)-5 b(ession)p
FL(>)p FQ(,)32 b FL(<)p FD(ar)-5 b(gument)33 b(list)p
FL(>)e FQ(=)-15 b FP(\))29 b FL(<)p FD(expr)-5 b(ession)p
FL(>)32 b(<)p FD(ar)-5 b(gument)33 b(list)p FL(>)241
3735 y FQ(Notice)e(the)g(three)f(in\014x)f(op)s(erators)h(.)41
b(EQ)30 b(and)g(=)g(whic)m(h)f(are)i(translated)f(in)m(to)g(calls)241
3848 y(on)g(CONS,)g(EQ,)g(and)g(EQUAL)g(resp)s(ectiv)m(ely)-8
b(.)40 b(Note)32 b(also)e(that)h(a)g(call)e(on)i(a)241
3961 y(function)e(whic)m(h)g(has)h(no)g(formal)g(parameters)h(m)m(ust)f
(ha)m(v)m(e)h(\(\))g(as)g(an)f(argumen)m(t)h(list.)241
4074 y(The)f(QUOTE)f(function)g(is)h(abbreviated)f(b)m(y)i('.)p
eop
%%Page: 666 666
666 665 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(666)787 b FM(CHAPTER)30 b(91.)72 b(THE)30 b(ST)-8
b(AND)m(ARD)31 b(LISP)f(REPOR)-8 b(T)p eop
%%Page: 667 667
667 666 bop 241 299 a @beginspecial @setspecial @endspecial
1470 x @beginspecial @setspecial @endspecial 1406 2026
a FI(P)-5 b(art)65 b(IV)1239 2491 y FT(App)6 b(endix)1667
5187 y FQ(667)p eop
%%Page: 668 668
668 667 bop 664 299 a @beginspecial @setspecial @endspecial
eop
%%Page: 669 669
669 668 bop 241 299 a @beginspecial @setspecial @endspecial
165 x @beginspecial @setspecial @endspecial 764 x FI(App)5
b(endix)65 b(A)241 1693 y FT(Reserv)-6 b(ed)76 b(Iden)-6
b(ti\014ers)241 2187 y FQ(W)e(e)31 b(list)e(here)i(all)e(iden)m
(ti\014ers)f(that)j(are)g(normally)e(reserv)m(ed)h(in)f(REDUCE)241
2300 y(including)e(names)j(of)h(commands,)f(op)s(erators)g(and)g(switc)
m(hes)g(initially)d(in)i(the)241 2413 y(system.)41 b(Excluded)28
b(are)j(w)m(ords)f(that)h(are)g(reserv)m(ed)f(in)f(sp)s(eci\014c)g
(implemen)m(tations)241 2526 y(of)h(the)h(system.)241
2896 y(Commands)479 b FJ(ALGEBRAIC)28 b(ANTISYMMETRIC)f(ARRAY)i(BYE)g
(CLEAR)1166 3009 y(CLEARRULES)f(COMMENT)g(CONT)h(DECOMPOSE)f(DEFINE)
1166 3122 y(DEPEND)h(DISPLAY)f(ED)i(EDITDEF)e(END)i(EVEN)f(FACTOR)g
(FOR)1166 3235 y(FORALL)g(FOREACH)f(GO)i(GOTO)f(IF)h(IN)g(INDEX)f
(INFIX)g(INPUT)1166 3348 y(INTEGER)g(KORDER)f(LET)i(LINEAR)e(LISP)i
(LISTARGP)e(LOAD)1166 3461 y(LOAD)p 1364 3461 29 4 v
34 w(PACKAGE)g(MASS)h(MATCH)g(MATRIX)g(MSHELL)1166 3574
y(NODEPEND)f(NONCOM)h(NONZERO)f(NOSPUR)h(ODD)h(OFF)f(ON)1166
3687 y(OPERATOR)f(ORDER)h(OUT)h(PAUSE)f(PRECEDENCE)1166
3800 y(PRINT)p 1412 3800 V 33 w(PRECISION)f(PROCEDURE)g(QUIT)h(REAL)g
(REMFAC)1166 3913 y(REMIND)g(RETRY)g(RETURN)g(SAVEAS)f(SCALAR)h(SETMOD)
1166 4026 y(SHARE)g(SHOWTIME)f(SHUT)i(SPUR)f(SYMBOLIC)f(SYMMETRIC)1166
4138 y(VECDIM)h(VECTOR)g(WEIGHT)f(WRITE)h(WTLEVEL)241
4326 y FQ(Bo)s(olean)i(Op)s(erators)177 b FJ(EVENP)29
b(FIXP)g(FREEOF)g(NUMBERP)f(ORDP)i(PRIMEP)241 4514 y
FQ(In\014x)f(Op)s(erators)315 b FJ(:=)30 b(=)g(>=)g(>)g(<=)g(<)g(=>)f
(+)h(*)g(/)g(^)h(**)e(.)h(WHERE)f(SETQ)g(OR)h(AND)1166
4627 y(MEMBER)f(MEMQ)g(EQUAL)g(NEQ)h(EQ)f(GEQ)h(GREATERP)e(LEQ)1166
4740 y(LESSP)h(PLUS)g(DIFFERENCE)f(MINUS)h(TIMES)g(QUOTIENT)1166
4852 y(EXPT)g(CONS)1667 5187 y FQ(669)p eop
%%Page: 670 670
670 669 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(670)1047 b FM(APPENDIX)31 b(A.)61 b(RESER)-10 b(VED)30
b(IDENTIFIERS)664 555 y FQ(Numerical)f(Op)s(erators)91
b FJ(ABS)29 b(ACOS)g(ACOSH)g(ACOT)h(ACOTH)e(ACSC)i(ACSCH)f(ASEC)1590
668 y(ASECH)g(ASIN)g(ASINH)g(ATAN)g(ATANH)g(ATAN2)g(COS)g(COSH)h(COT)
1590 781 y(COTH)f(CSC)g(CSCH)h(EXP)f(FACTORIAL)f(FIX)h(FLOOR)g(HYPOT)g
(LN)1590 894 y(LOG)g(LOGB)g(LOG10)g(NEXTPRIME)f(ROUND)h(SEC)h(SECH)f
(SIN)1590 1007 y(SINH)g(SQRT)g(TAN)h(TANH)664 1194 y
FQ(Pre\014x)g(Op)s(erators)261 b FJ(APPEND)28 b(ARGLENGTH)g(CEILING)h
(COEFF)g(COEFFN)1590 1307 y(COFACTOR)f(CONJ)h(DEG)g(DEN)h(DET)f(DF)h
(DILOG)f(EI)h(EPS)f(ERF)1590 1420 y(FACTORIZE)f(FIRST)g(GCD)i(G)g
(IMPART)f(INT)g(INTERPOL)f(LCM)1590 1533 y(LCOF)h(LENGTH)g(LHS)g
(LINELENGTH)f(LTERM)h(MAINVAR)f(MAT)1590 1646 y(MATEIGEN)g(MAX)h(MIN)h
(MKID)f(NULLSPACE)f(NUM)h(PART)h(PF)1590 1759 y(PRECISION)e(RANDOM)g
(RANDOM)p 2660 1759 29 4 v 33 w(NEW)p 2837 1759 V 33
w(SEED)i(RANK)f(REDERR)1590 1872 y(REDUCT)f(REMAINDER)g(REPART)h(REST)g
(RESULTANT)1590 1985 y(REVERSE)f(RHS)i(SECOND)e(SET)i(SHOWRULES)e(SIGN)
h(SOLVE)1590 2098 y(STRUCTR)f(SUB)i(SUM)f(THIRD)g(TP)h(TRACE)f(VARNAME)
664 2285 y FQ(Reserv)m(ed)i(V)-8 b(ariables)175 b FJ(CARD)p
1788 2285 V 33 w(NO)30 b(E)g(EVAL)p 2217 2285 V 33 w(MODE)f(FORT)p
2663 2285 V 33 w(WIDTH)g(HIGH)p 3157 2285 V 34 w(POW)g(I)1590
2398 y(INFINITY)f(K!*)h(LOW)p 2325 2398 V 34 w(POW)g(NIL)h(PI)g(ROOT)p
3024 2398 V 33 w(MULTIPLICITY)1590 2511 y(T)664 2699
y FQ(Switc)m(hes)584 b FJ(ADJPREC)28 b(ALGINT)h(ALLBRANCH)f(ALLFAC)g
(BFSPACE)1590 2812 y(COMBINEEXPT)f(COMBINELOGS)g(COMP)i(COMPLEX)g
(CRAMER)1590 2925 y(CREF)e(DEFN)h(DEMO)g(DIV)g(ECHO)g(ERRCONT)f
(EVALLHSEQP)f(EXP)1590 3038 y(EXPANDLOGS)h(EZGCD)i(FACTOR)g(FORT)g
(FULLROOTS)f(GCD)1590 3150 y(IFACTOR)g(INT)i(INTSTR)e(LCM)i(LIST)f
(LISTARGS)f(MCD)1590 3263 y(MODULAR)g(MSG)i(MULTIPLICITIES)c(NAT)k
(NERO)f(NOSPLIT)1590 3376 y(OUTPUT)f(PERIOD)h(PRECISE)f(PRET)i(PRI)f
(RAT)h(RATARG)1590 3489 y(RATIONAL)e(RATIONALIZE)f(RATPRI)i(REVPRI)f
(RLISP88)1590 3602 y(ROUNDALL)g(ROUNDBF)g(ROUNDED)h(SAVESTRUCTR)1590
3715 y(SOLVESINGULAR)d(TIME)k(TRA)f(TRFAC)g(TRIGFORM)f(TRINT)664
3903 y FQ(Other)i(Reserv)m(ed)h(Ids)157 b FJ(BEGIN)29
b(DO)g(EXPR)h(FEXPR)f(INPUT)f(LAMBDA)h(LISP)g(MACRO)1590
4016 y(PRODUCT)f(REPEAT)h(SMACRO)f(SUM)i(UNTIL)f(WHEN)g(WHILE)g(WS)p
eop
%%Page: 671 671
671 670 bop 241 299 a @beginspecial @setspecial @endspecial
970 x FT(Bibliograph)-6 b(y)241 1641 y @beginspecial
@setspecial @endspecial 286 1752 a FQ([1])47 b(George)32
b(A.)e(Bak)m(er\(Jr.\))i(and)e(P)m(eter)h(Gra)m(v)m(es-Morris.)42
b FD(Pad)n(\023)-44 b(e)33 b(Appr)-5 b(oximants,)428
1864 y(Part)33 b(I:)f(Basic)h(The)-5 b(ory)p FQ(.)42
b(Addison-W)-8 b(esley)30 b(Publishing)c(Compan)m(y)-8
b(,)31 b(Reading,)428 1977 y(Massac)m(h)m(usetts,)h(1981.)241
2032 y @beginspecial @setspecial @endspecial 286 2165
a([2])47 b(Computation)29 b(Cen)m(ter.)41 b FD(LISP)33
b(R)-5 b(efer)g(enc)g(e)33 b(Manual,)g(CDC-6000)p FQ(.)41
b(The)428 2278 y(Univ)m(ersit)m(y)29 b(of)i(T)-8 b(exas)31
b(at)g(Austin.)241 2333 y @beginspecial @setspecial @endspecial
286 2466 a([3])47 b(S.-C.)30 b(Chou.)40 b(Pro)m(ving)29
b(elemen)m(tary)i(geometry)h(theorems)f(using)e(W)-8
b(u's)428 2578 y(algorithm.)39 b(In)30 b FD(Contemp.)k(Math.)p
FQ(,)d(v)m(olume)f(19,)h(pages)g(243)h({)f(286.)h(AMS,)428
2691 y(Pro)m(vidence,)e(Rho)s(de)g(Island,)f(1984.)241
2746 y @beginspecial @setspecial @endspecial 286 2879
a([4])47 b(S.-C.)30 b(Chou.)40 b FD(Me)-5 b(chanic)g(al)33
b(ge)-5 b(ometry)34 b(the)-5 b(or)g(em)35 b(pr)-5 b(oving)p
FQ(.)42 b(Reidel,)29 b(Dortrec)m(h)m(t,)428 2992 y(1988.)241
3029 y @beginspecial @setspecial @endspecial 286 3180
a([5])47 b(S.-C.)30 b(Chou.)40 b(Automated)31 b(reasoning)f(in)f
(geometries)i(using)e(the)428 3292 y(c)m(haracteristic)i(set)g(metho)s
(d)e(and)h(Gr\177)-45 b(obner)30 b(basis)f(metho)s(d.)40
b(In)30 b FD(Pr)-5 b(o)g(c.)428 3405 y(ISSA)n(C-90)p
FQ(,)30 b(pages)h(255{260.)j(A)m(CM)d(Press,)f(1990.)241
3460 y @beginspecial @setspecial @endspecial 286 3593
a([6])47 b(Andreas)29 b(Dolzmann)i(and)e(Thomas)h(Sturm.)40
b(Redlog:)g(Computer)30 b(algebra)428 3706 y(meets)h(computer)f(logic.)
40 b FD(A)n(CM)32 b(SIGSAM)g(Bul)5 b(letin)p FQ(,)30
b(31\(2\):2{9,)35 b(June)29 b(1997.)241 3766 y @beginspecial
@setspecial @endspecial 286 3894 a([7])47 b(Andreas)29
b(Dolzmann)i(and)e(Thomas)h(Sturm.)40 b(Simpli\014cation)26
b(of)428 4006 y(quan)m(ti\014er-free)j(form)m(ulae)h(o)m(v)m(er)i
(ordered)e(\014elds.)39 b FD(Journal)34 b(of)f(Symb)-5
b(olic)428 4119 y(Computation)p FQ(,)33 b(24\(2\):209{231,)j(August)30
b(1997.)241 4179 y @beginspecial @setspecial @endspecial
286 4307 a([8])47 b(Andreas)29 b(Dolzmann)i(and)e(Thomas)h(Sturm.)40
b FD(R)-5 b(e)g(d)5 b(lo)-5 b(g)34 b(User)e(Manual)p
FQ(.)41 b(FMI,)428 4420 y(Univ)m(ersit\177)-45 b(at)30
b(P)m(assau,)h(D-94030)i(P)m(assau,)e(German)m(y)-8 b(,)31
b(April)e(1999.)42 b(Edition)428 4533 y(2.0)31 b(for)f(V)-8
b(ersion)30 b(2.0.)241 4570 y @beginspecial @setspecial
@endspecial 286 4720 a([9])47 b(Stanford)29 b(Cen)m(ter)i(for)f
(Information)f(Pro)s(cessing.)40 b FD(LISP/360)34 b(R)-5
b(efer)g(enc)g(e)428 4833 y(Manual)p FQ(.)41 b(Stanford)29
b(Univ)m(ersit)m(y)-8 b(.)1667 5187 y(671)p eop
%%Page: 672 672
672 671 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(672)2127 b FM(BIBLIOGRAPHY)664 464 y @beginspecial
@setspecial @endspecial 91 x FQ([10])47 b(M.)31 b(L.)f(Griss)g(and)f
(A.)i(C.)f(Hearn.)41 b(A)30 b(p)s(ortable)g(LISP)f(compiler.)851
668 y FD(Softwar)-5 b(e|Pr)g(actic)g(e)35 b(and)f(Exp)-5
b(erienc)g(e)p FQ(,)31 b(11:541{605,)k(June)29 b(1981.)664
723 y @beginspecial @setspecial @endspecial 133 x([11])47
b(A.)31 b(C.)f(Hearn.)41 b(REDUCE)30 b(user's)g(man)m(ual:)40
b(V)-8 b(ersion)30 b(3.3.)42 b(Publication)28 b(CP78)851
969 y(\(Rev)j(1/88\),)i(RAND,)e(1988.)664 1029 y @beginspecial
@setspecial @endspecial 127 x([12])47 b(A.)31 b(C.)f(Hearn,)h(P)-8
b(.)31 b(K.)f(Kuo,)g(and)g(D.)h(R.)f(Y)-8 b(ennie.)41
b(Radiativ)m(e)30 b(corrections)g(to)851 1269 y(an)g(electron-p)s
(ositron)g(scattering)h(exp)s(erimen)m(t.)39 b FD(Phys.)33
b(R)-5 b(ev.)p FQ(,)851 1382 y(187:2088{2096,)36 b(1969.)664
1437 y @beginspecial @setspecial @endspecial 133 x([13])47
b(W)-8 b(olfram)31 b(Ko)s(epf.)39 b(REDUCE)31 b(pac)m(k)-5
b(age)32 b(for)e(the)h(inde\014nite)d(and)i(de\014nite)851
1683 y(summation.)40 b FD(SIGSAM)32 b(Bul)5 b(letin)p
FQ(,)30 b(29\(1\):14{30,)35 b(Jan)m(uary)30 b(1995.)664
1743 y @beginspecial @setspecial @endspecial 127 x([14])47
b(T.)30 b(H.)h(Ko)s(orn)m(winder.)38 b(On)30 b(Zeilb)s(erger's)e
(algorithm)i(and)f(its)h FL(q)s FQ(-analogue:)41 b(a)851
1983 y(rigorous)30 b(description.)38 b FD(J.)32 b(of)h(Comput.)h(and)f
(Appl.)h(Math.)p FQ(,)d(48:91{111,)j(1993.)664 2038 y
@beginspecial @setspecial @endspecial 133 x([15])47 b
FD(MA)n(CLISP)31 b(R)-5 b(efer)g(enc)g(e)34 b(Manual)p
FQ(,)d(Marc)m(h)g(1976.)664 2231 y @beginspecial @setspecial
@endspecial 127 x([16])47 b(John)30 b(McCarth)m(y)-8
b(,)31 b(P)m(aul)f(W.)h(Abrahams,)f(Daniel)g(J.)g(Edw)m(ards,)f(Timoth)
m(y)h(P)-8 b(.)851 2471 y(Hart,)31 b(and)f(Mic)m(hael)g(I.)h(Levin.)39
b FD(LISP)33 b(1.5)g(Pr)-5 b(o)g(gr)g(ammers)36 b(Manual)p
FQ(.)41 b(The)851 2584 y(M.I.T.)31 b(Press,)f(Cam)m(bridge,)g(Massac)m
(h)m(usettes,)j(1965.)664 2639 y @beginspecial @setspecial
@endspecial 133 x([17])47 b(Mats)31 b(Nordstrom,)g(Erik)e(Sandew)m
(all,)g(and)g(Diz)i(Breslo)m(w.)41 b FD(LISP)32 b(F1:)42
b(A)851 2885 y(F)n(OR)-7 b(TRAN)32 b(Implementation)j(of)e(LISP)f(1.5)p
FQ(.)42 b(Uppsala)29 b(Univ)m(ersit)m(y)-8 b(,)851 2998
y(Departmen)m(t)32 b(of)e(Computer)g(Sciences.)664 3053
y @beginspecial @setspecial @endspecial 132 x([18])47
b(Lynn)29 b(H.)i(Quam)f(and)f(Whit\014eld)g(Di\016e.)40
b FD(Stanfor)-5 b(d)35 b(LISP)e(1.6)g(Manual)p FQ(.)851
3298 y(Stanford)26 b(Arti\014cial)f(In)m(telligence)h(Lab)s(oratory)-8
b(,)29 b(op)s(erating)d(note)i(28.7)g(edition.)664 3353
y @beginspecial @setspecial @endspecial 133 x([19])47
b(W)-8 b(arren)31 b(T)-8 b(eitelman.)40 b FD(INTERLISP)32
b(R)-5 b(efer)g(enc)g(e)33 b(Manual)p FQ(.)41 b(XER)m(O)m(X,)32
b(P)m(alo)851 3599 y(Alto)f(Researc)m(h)g(Cen)m(ters,)g(3333)h(Co)m(y)m
(ote)g(Road,)f(P)m(alo)g(Alto,)g(California)851 3712
y(94304,)i(1978.)664 3767 y @beginspecial @setspecial
@endspecial 132 x([20])47 b(V)-8 b(olk)m(er)31 b(W)-8
b(eispfenning.)39 b(Comprehensiv)m(e)29 b(Gr\177)-45
b(obner)30 b(bases.)40 b FD(Journal)34 b(of)851 4012
y(Symb)-5 b(olic)34 b(Computation)p FQ(,)f(14:1{29,)g(July)c(1992.)664
4067 y @beginspecial @setspecial @endspecial 133 x([21])47
b(W.-T.)31 b(W)-8 b(u.)41 b(On)30 b(the)g(decision)f(problem)g(and)h
(the)g(mec)m(hanization)h(of)851 4313 y(theorem-pro)m(ving)f(in)f
(elemen)m(tary)i(geometry)-8 b(.)43 b(In)29 b FD(Contemp.)34
b(Math.)p FQ(,)851 4426 y(v)m(olume)c(19,)i(pages)f(213)g({)g(234.)h
(AMS,)f(Pro)m(vidence,)f(Rho)s(de)g(Island,)f(1984.)664
4481 y @beginspecial @setspecial @endspecial 132 x([22])47
b(W.-T.)31 b(W)-8 b(u.)41 b(Some)31 b(recen)m(t)g(adv)-5
b(ances)31 b(in)e(mec)m(hanical)h(theorem)h(pro)m(ving)e(of)851
4726 y(geometry)-8 b(.)42 b(In)30 b FD(Contemp.)k(Math.)p
FQ(,)d(v)m(olume)f(19,)i(pages)f(235)g({)g(241.)h(AMS,)851
4839 y(Pro)m(vidence,)e(Rho)s(de)g(Island,)f(1984.)p
eop
%%Page: 673 673
673 672 bop 241 299 a @beginspecial @setspecial @endspecial
FM(BIBLIOGRAPHY)2126 b FQ(673)241 464 y @beginspecial
@setspecial @endspecial 91 x([23])47 b(W.-T.)31 b(W)-8
b(u.)41 b FD(Me)-5 b(chanic)g(al)34 b(The)-5 b(or)g(em)34
b(Pr)-5 b(oving)33 b(in)g(Ge)-5 b(ometries)p FQ(.)42
b(Num)m(b)s(er)29 b(1)i(in)428 668 y(T)-8 b(exts)31 b(and)e(Monographs)
i(in)e(Sym)m(b)s(olic)f(Computation.)i(Springer,)e(Wien,)428
781 y(1994.)p eop
%%Page: 674 674
674 673 bop 664 299 a @beginspecial @setspecial @endspecial
723 x FT(Index)664 1446 y FQ(!*CSYSTEMS)29 b(global)996
1559 y(\(A)-10 b(VECTOR\),)31 b @beginspecial @setspecial
@endspecial(272)664 1672 y FL(><)830 1785 y FQ(3-D)h(v)m(ector,)g
@beginspecial @setspecial @endspecial(455)830 1897 y(diph)m(thong,)d
@beginspecial @setspecial @endspecial(455)664 2010 y
FP(j)p 694 2010 28 4 v 63 w FQ(op)s(erator,)i @beginspecial
@setspecial @endspecial(338)664 2123 y(\(\),)g @beginspecial
@setspecial @endspecial(620)664 2236 y(*)830 2349 y(3-D)h(v)m(ector,)g
@beginspecial @setspecial @endspecial(455)830 2462 y(p)s(o)m(w)m(er)f
(series,)f @beginspecial @setspecial @endspecial(575)830
2575 y(v)m(ector,)i @beginspecial @setspecial @endspecial(270)664
2688 y(**)830 2801 y(p)s(o)m(w)m(er)f(series,)f @beginspecial
@setspecial @endspecial(575)664 2914 y(***)i(\(w)m(arning)d(message\),)
k @beginspecial @setspecial @endspecial(622)664 3027
y(*****)g(\(error)d(message\),)i @beginspecial @setspecial
@endspecial(622)r(,)e @beginspecial @setspecial @endspecial(638)664
3139 y(*COMP)g(\(\015uid\),)g @beginspecial @setspecial
@endspecial(631)q(,)g @beginspecial @setspecial @endspecial(632)664
3252 y(*COMP)g(\(global\),)h @beginspecial @setspecial
@endspecial(660)664 3365 y(*COMP)f(v)-5 b(ariable,)30
b @beginspecial @setspecial @endspecial(631)664 3478
y(*GC)h(\(global\),)g @beginspecial @setspecial @endspecial(661)664
3591 y(*RAISE)f(\(global\),)h @beginspecial @setspecial
@endspecial(617)q(,)g @beginspecial @setspecial @endspecial(661)664
3704 y(+)830 3817 y(3-D)h(v)m(ector,)g @beginspecial
@setspecial @endspecial(455)830 3930 y(p)s(o)m(w)m(er)f(series,)f
@beginspecial @setspecial @endspecial(575)830 4043 y(v)m(ector,)i
@beginspecial @setspecial @endspecial(270)664 4156 y(-)830
4269 y(3-D)g(v)m(ector,)g @beginspecial @setspecial @endspecial(455)830
4382 y(p)s(o)m(w)m(er)f(series,)f @beginspecial @setspecial
@endspecial(575)830 4494 y(v)m(ector,)i @beginspecial
@setspecial @endspecial(270)664 4607 y(-list,)e @beginspecial
@setspecial @endspecial(619)664 4720 y FJ(.)p FQ(,)g
@beginspecial @setspecial @endspecial(245)664 4833 y
FJ(.)95 b(\(CONS\))p FQ(,)29 b @beginspecial @setspecial
@endspecial(60)664 4946 y(/)2470 1446 y(3-D)i(v)m(ector,)i
@beginspecial @setspecial @endspecial(455)2470 1559 y(p)s(o)m(w)m(er)d
(series,)g @beginspecial @setspecial @endspecial(575)2470
1672 y(v)m(ector,)i @beginspecial @setspecial @endspecial(270)2304
1785 y FJ(:-)p FQ(,)e @beginspecial @setspecial @endspecial(472)2304
1897 y(::=,)h @beginspecial @setspecial @endspecial(354)2304
2010 y(::=:,)g @beginspecial @setspecial @endspecial(355)2304
2123 y(:=:,)g @beginspecial @setspecial @endspecial(354)2304
2236 y(;BEGIN;)g(mark)m(er,)g @beginspecial @setspecial
@endspecial(358)2304 2349 y(;END;)g(mark)m(er,)g @beginspecial
@setspecial @endspecial(358)2304 2462 y(@)f(op)s(erator,)h
@beginspecial @setspecial @endspecial(336)2304 2575 y([.)16
b(.)f(.)g(])41 b(syn)m(tax,)31 b @beginspecial @setspecial
@endspecial(621)2304 2688 y(#)2470 2801 y(Ho)s(dge-*)g(op)s(erator,)g
@beginspecial @setspecial @endspecial(338)2304 2914 y($EOF$)g
(\(global\),)g @beginspecial @setspecial @endspecial(659)q(,)g
@beginspecial @setspecial @endspecial(661)2304 3027 y($EOL$)f
(\(global\),)h @beginspecial @setspecial @endspecial(657)q(,)g
@beginspecial @setspecial @endspecial(659)q(,)g @beginspecial
@setspecial @endspecial(661)2304 3139 y(\045,)f @beginspecial
@setspecial @endspecial(622)2304 3252 y(\045)2470 3365
y(read)g(b)m(y)g(READCH,)h @beginspecial @setspecial
@endspecial(659)2304 3478 y(^)2470 3591 y(3-D)g(v)m(ector,)i
@beginspecial @setspecial @endspecial(455)2470 3704 y(exterior)d(m)m
(ultiplication,)e @beginspecial @setspecial @endspecial(335)p
2309 3817 V 2337 3817 a FP(j)i FQ(op)s(erator,)h @beginspecial
@setspecial @endspecial(337)p 2310 3930 29 4 v 2338 3930
a FJ(=)p FQ(,)g @beginspecial @setspecial @endspecial(471)2304
4043 y FP(f)p FQ(.)16 b(.)f(.)h FP(g)2470 4156 y FQ(as)31
b(syn)m(tax,)g @beginspecial @setspecial @endspecial(620)2304
4269 y(3j)f(and)g(6j)h(sym)m(b)s(ols,)e @beginspecial
@setspecial @endspecial(543)2304 4465 y FJ(ABAGLISTP)p
FQ(,)f @beginspecial @setspecial @endspecial(248)2304
4577 y(ABS,)i @beginspecial @setspecial @endspecial(642)2304
4690 y FJ(ABS)p FQ(,)g @beginspecial @setspecial @endspecial(80)2304
4803 y FJ(ACFSF)p FQ(,)f @beginspecial @setspecial @endspecial(497)q(,)
i @beginspecial @setspecial @endspecial(499)2304 4916
y FJ(ACOS)p FQ(,)e @beginspecial @setspecial @endspecial(83)q(,)i
@beginspecial @setspecial @endspecial(86)2090 5187 y(674)p
eop
%%Page: 675 675
675 674 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(675)241 555 y FJ(ACOSH)p FQ(,)29 b
@beginspecial @setspecial @endspecial(83)q(,)h @beginspecial
@setspecial @endspecial(86)241 668 y FJ(ACOT)p FQ(,)f
@beginspecial @setspecial @endspecial(83)q(,)i @beginspecial
@setspecial @endspecial(86)241 781 y FJ(ACOTH)p FQ(,)e
@beginspecial @setspecial @endspecial(83)q(,)h @beginspecial
@setspecial @endspecial(86)241 894 y FJ(ACSC)p FQ(,)f
@beginspecial @setspecial @endspecial(83)q(,)i @beginspecial
@setspecial @endspecial(86)241 1007 y FJ(ACSCH)p FQ(,)e
@beginspecial @setspecial @endspecial(83)q(,)h @beginspecial
@setspecial @endspecial(86)241 1120 y(ADD1,)i @beginspecial
@setspecial @endspecial(642)241 1233 y FJ(ADD)p 391 1233
29 4 v 33 w(COLUMNS)p FQ(,)d @beginspecial @setspecial
@endspecial(403)q(,)i @beginspecial @setspecial @endspecial(405)241
1346 y FJ(ADD)p 391 1346 V 33 w(ROWS)p FQ(,)f @beginspecial
@setspecial @endspecial(403)241 1458 y FJ(ADD)p 391 1458
V 33 w(TO)p 520 1458 V 34 w(COLUMNS)p FQ(,)f @beginspecial
@setspecial @endspecial(403)q(,)i @beginspecial @setspecial
@endspecial(405)241 1571 y FJ(ADD)p 391 1571 V 33 w(TO)p
520 1571 V 34 w(ROWS)p FQ(,)f @beginspecial @setspecial
@endspecial(403)q(,)h @beginspecial @setspecial @endspecial(405)241
1684 y FJ(ADJ)p FQ(,)e @beginspecial @setspecial @endspecial(467)241
1797 y FJ(ADJPREC)p FQ(,)f @beginspecial @setspecial
@endspecial(149)241 1910 y(Airy)h(functions,)g @beginspecial
@setspecial @endspecial(543)241 2023 y FJ(Airy)p 439
2023 V 33 w(Ai)p FQ(,)h @beginspecial @setspecial @endspecial(543)241
2136 y FJ(Airy)p 439 2136 V 33 w(Aiprime)p FQ(,)f @beginspecial
@setspecial @endspecial(543)241 2249 y FJ(Airy)p 439
2249 V 33 w(Bi)p FQ(,)h @beginspecial @setspecial @endspecial(543)241
2362 y FJ(Airy)p 439 2362 V 33 w(Biprime)p FQ(,)f @beginspecial
@setspecial @endspecial(543)241 2475 y FJ(ALATOMP)p FQ(,)f
@beginspecial @setspecial @endspecial(255)241 2588 y
FJ(ALG)p 391 2588 V 33 w(TO)p 520 2588 V 34 w(SYMB)p
FQ(,)i @beginspecial @setspecial @endspecial(256)241
2700 y FJ(ALGEBRAIC)p FQ(,)e @beginspecial @setspecial
@endspecial(197)241 2813 y(Algebraic)i(mo)s(de,)g @beginspecial
@setspecial @endspecial(197)q(,)h @beginspecial @setspecial
@endspecial(203)q(,)g @beginspecial @setspecial @endspecial(204)241
2926 y FJ(ALGINT)p FQ(,)e @beginspecial @setspecial @endspecial(193)q
(,)i @beginspecial @setspecial @endspecial(231)241 3039
y(alist,)e @beginspecial @setspecial @endspecial(620)241
3152 y(alist)407 3265 y(in)g(ASSOC,)g @beginspecial @setspecial
@endspecial(648)407 3378 y(in)g(SASSOC,)f @beginspecial
@setspecial @endspecial(651)407 3491 y(in)h(SUBLIS,)h
@beginspecial @setspecial @endspecial(652)241 3604 y
FJ(ALKERNP)p FQ(,)e @beginspecial @setspecial @endspecial(255)241
3717 y FJ(ALL)p FQ(,)h @beginspecial @setspecial @endspecial(497)241
3830 y FJ(ALL!*)p FQ(,)g @beginspecial @setspecial @endspecial(352)241
3942 y FJ(ALLBRANCH)p FQ(,)f @beginspecial @setspecial
@endspecial(99)241 4055 y FJ(ALLFAC)p FQ(,)h @beginspecial
@setspecial @endspecial(116)q(,)i @beginspecial @setspecial
@endspecial(119)241 4168 y FJ(allsymmetrybases)p FQ(,)26
b @beginspecial @setspecial @endspecial(558)241 4281
y FJ(ALTITUDE)p FQ(,)i @beginspecial @setspecial @endspecial(364)241
4394 y(AND,)j @beginspecial @setspecial @endspecial(640)241
4507 y FJ(AND)p FQ(,)e @beginspecial @setspecial @endspecial(497)241
4620 y FJ(ANGLE)p 487 4620 V 33 w(SUM)p FQ(,)g @beginspecial
@setspecial @endspecial(364)241 4733 y(an)m(teceden)m(t)j
(\(cond-form\),)f @beginspecial @setspecial @endspecial(620)241
4846 y FJ(ANTICOM)p FQ(,)d @beginspecial @setspecial
@endspecial(320)r(,)i @beginspecial @setspecial @endspecial(466)241
4959 y FJ(ANTICOMM)p FQ(,)e @beginspecial @setspecial
@endspecial(466)1880 555 y FJ(ANTICOMMUTE)p FQ(,)g @beginspecial
@setspecial @endspecial(467)1880 668 y FJ(ANTISYMMETRIC)p
FQ(,)f @beginspecial @setspecial @endspecial(107)r(,)j
@beginspecial @setspecial @endspecial(320)1880 781 y(an)m(y)-8
b(,)32 b @beginspecial @setspecial @endspecial(619)1880
894 y(APPEND,)f @beginspecial @setspecial @endspecial(648)1880
1007 y FJ(APPEND)p FQ(,)e @beginspecial @setspecial @endspecial(61)1880
1120 y FJ(APPENDN)p FQ(,)g @beginspecial @setspecial
@endspecial(245)1880 1233 y(APPL)-8 b(Y,)31 b @beginspecial
@setspecial @endspecial(653)1880 1346 y FJ(APPLYSYM)p
FQ(,)e @beginspecial @setspecial @endspecial(194)q(,)i
@beginspecial @setspecial @endspecial(235)1880 1458 y(ARBCONST)f(op)s
(erator,)h @beginspecial @setspecial @endspecial(450)1880
1571 y FJ(ARBVARS)p FQ(,)e @beginspecial @setspecial
@endspecial(99)1880 1684 y FJ(ARGLENGTH)p FQ(,)g @beginspecial
@setspecial @endspecial(131)1880 1797 y FJ(ARNUM)p FQ(,)h
@beginspecial @setspecial @endspecial(194)q(,)h @beginspecial
@setspecial @endspecial(239)1880 1910 y FJ(ARRAY)p FQ(,)f
@beginspecial @setspecial @endspecial(75)1880 2023 y
FJ(ARRAY)p 2126 2023 V 33 w(TO)p 2255 2023 V 34 w(LIST)p
FQ(,)g @beginspecial @setspecial @endspecial(259)1880
2136 y FJ(ASEC)p FQ(,)g @beginspecial @setspecial @endspecial(83)q(,)g
@beginspecial @setspecial @endspecial(86)1880 2249 y
FJ(ASECH)p FQ(,)g @beginspecial @setspecial @endspecial(83)q(,)g
@beginspecial @setspecial @endspecial(86)1880 2362 y
FJ(ASFIRST)p FQ(,)f @beginspecial @setspecial @endspecial(246)1880
2475 y FJ(ASFLIST)p FQ(,)g @beginspecial @setspecial
@endspecial(246)1880 2588 y FJ(ASIN)p FQ(,)h @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)1880 2700 y FJ(ASINH)p FQ(,)g @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)1880 2813 y FJ(ASLAST)p FQ(,)f @beginspecial
@setspecial @endspecial(246)1880 2926 y FJ(ASREST)p FQ(,)g
@beginspecial @setspecial @endspecial(246)1880 3039 y(Assignmen)m(t,)i
@beginspecial @setspecial @endspecial(64)q(,)f @beginspecial
@setspecial @endspecial(65)q(,)h @beginspecial @setspecial
@endspecial(67,)g @beginspecial @setspecial @endspecial(72)q(,)f
@beginspecial @setspecial @endspecial(202)r(,)2213 3152
y @beginspecial @setspecial @endspecial(204)1880 3265
y FJ(ASSIST)p FQ(,)f @beginspecial @setspecial @endspecial(194)r(,)h
@beginspecial @setspecial @endspecial(243)1880 3378 y
FJ(ASSLIST)p FQ(,)f @beginspecial @setspecial @endspecial(246)1880
3491 y(ASSOC,)h @beginspecial @setspecial @endspecial(648)1880
3604 y FJ(ASSOC)p FQ(,)g @beginspecial @setspecial @endspecial(498)1880
3717 y(asso)s(ciation)h(list,)e @beginspecial @setspecial
@endspecial(620)1880 3830 y FJ(assumptions)p FQ(,)f @beginspecial
@setspecial @endspecial(101)1880 3942 y(Asymptotic)j(command,)f
@beginspecial @setspecial @endspecial(153)r(,)g @beginspecial
@setspecial @endspecial(166)1880 4055 y FJ(ATAN)p FQ(,)g
@beginspecial @setspecial @endspecial(83)q(,)g @beginspecial
@setspecial @endspecial(86)q(,)h @beginspecial @setspecial
@endspecial(90)1880 4168 y FJ(ATAN2)p FQ(,)f @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)1880 4281 y FJ(ATANH)p FQ(,)g @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)1880 4394 y FJ(ATENSOR)p FQ(,)f @beginspecial
@setspecial @endspecial(265)1880 4507 y(A)-8 b(TOM,)31
b @beginspecial @setspecial @endspecial(623)1880 4620
y(atom,)h @beginspecial @setspecial @endspecial(619)1880
4733 y FJ(AUGMENT)p FQ(,)d @beginspecial @setspecial
@endspecial(328)1880 4846 y FJ(AUGMENT)p 2222 4846 V
33 w(COLUMNS)p FQ(,)g @beginspecial @setspecial @endspecial(403)q(,)h
@beginspecial @setspecial @endspecial(407)1880 4959 y(A)-10
b(VEC)31 b(function,)e @beginspecial @setspecial @endspecial(270)p
eop
%%Page: 676 676
676 675 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(676)2553 b FM(INDEX)664 555 y FJ(AVECTOR)p FQ(,)29
b @beginspecial @setspecial @endspecial(194)q(,)i @beginspecial
@setspecial @endspecial(269)664 668 y(A)-10 b(VECTOR)30
b(pac)m(k)-5 b(age)830 781 y(example,)31 b @beginspecial
@setspecial @endspecial(273)q({)p @beginspecial @setspecial
@endspecial(275)664 894 y FJ(AXP)p FQ(,)f @beginspecial
@setspecial @endspecial(552)664 1007 y FJ(AXX)p FQ(,)g
@beginspecial @setspecial @endspecial(552)664 1203 y
FJ(B)p 718 1203 29 4 v 34 w(PART)p FQ(,)g @beginspecial
@setspecial @endspecial(554)664 1316 y(BA)m(G,)i @beginspecial
@setspecial @endspecial(247)664 1429 y FJ(BAGLISTP)p
FQ(,)d @beginspecial @setspecial @endspecial(248)664
1542 y FJ(BAGLMAT)p FQ(,)g @beginspecial @setspecial
@endspecial(261)664 1654 y FJ(BAGP)p FQ(,)h @beginspecial
@setspecial @endspecial(248)664 1767 y FJ(BALANCED)p
1054 1767 V 32 w(MOD)p FQ(,)g @beginspecial @setspecial
@endspecial(149)664 1880 y FJ(BAND)p 862 1880 V 33 w(MATRIX)p
FQ(,)f @beginspecial @setspecial @endspecial(404)r(,)h
@beginspecial @setspecial @endspecial(407)664 1993 y
FJ(BEGIN)47 b(...END)p FQ(,)28 b @beginspecial @setspecial
@endspecial(71)q({)p @beginspecial @setspecial @endspecial(74)664
2106 y FJ(BELAST)p FQ(,)h @beginspecial @setspecial @endspecial(245)664
2219 y FJ(Bernoulli)p FQ(,)f @beginspecial @setspecial
@endspecial(542)664 2332 y(Bernoulli)g(n)m(um)m(b)s(ers,)h
@beginspecial @setspecial @endspecial(542)664 2445 y(Bernoulli)f(p)s
(olynomials,)g @beginspecial @setspecial @endspecial(543)664
2558 y FJ(BernoulliP)p FQ(,)g @beginspecial @setspecial
@endspecial(543)664 2671 y FJ(Bernstein)p 1102 2671 V
32 w(base)p FQ(,)i @beginspecial @setspecial @endspecial(446)664
2784 y(Bessel)h(functions,)e @beginspecial @setspecial
@endspecial(542)664 2896 y FJ(BesselI)p FQ(,)g @beginspecial
@setspecial @endspecial(542)664 3009 y FJ(BesselJ)p FQ(,)g
@beginspecial @setspecial @endspecial(542)664 3122 y
FJ(BesselK)p FQ(,)g @beginspecial @setspecial @endspecial(542)664
3235 y FJ(BesselY)p FQ(,)g @beginspecial @setspecial
@endspecial(542)664 3348 y FJ(Beta)p FQ(,)h @beginspecial
@setspecial @endspecial(542)664 3461 y(Beta)i(function,)d
@beginspecial @setspecial @endspecial(542)664 3574 y
FJ(Bezout)p FQ(,)g @beginspecial @setspecial @endspecial(140)664
3687 y FJ(BF)p 766 3687 V 34 w(PART)p FQ(,)g @beginspecial
@setspecial @endspecial(554)664 3800 y FJ(BFSPACE)p FQ(,)g
@beginspecial @setspecial @endspecial(148)664 3913 y
FJ(Binomial)p FQ(,)g @beginspecial @setspecial @endspecial(542)664
4026 y(Binomial)g(co)s(e\016cien)m(ts,)i @beginspecial
@setspecial @endspecial(542)664 4138 y(Blo)s(c)m(k,)g
@beginspecial @setspecial @endspecial(71)q(,)g @beginspecial
@setspecial @endspecial(74)664 4251 y FJ(BLOCK)p 910
4251 V 33 w(MATRIX)p FQ(,)e @beginspecial @setspecial
@endspecial(404)q(,)i @beginspecial @setspecial @endspecial(407)664
4364 y FJ(BNDEQ!*)p FQ(,)e @beginspecial @setspecial
@endspecial(339)664 4477 y FJ(BOOLEAN)p FQ(,)g @beginspecial
@setspecial @endspecial(194)q(,)i @beginspecial @setspecial
@endspecial(277)664 4590 y(Bo)s(olean,)g @beginspecial
@setspecial @endspecial(55)664 4703 y(b)s(o)s(olean,)f
@beginspecial @setspecial @endspecial(619)664 4816 y
FJ(BOS)p FQ(,)g @beginspecial @setspecial @endspecial(552)664
4929 y FJ(BOTH)p FQ(,)g @beginspecial @setspecial @endspecial(416)2304
555 y FJ(BOUNDS)p FQ(,)f @beginspecial @setspecial @endspecial(437)q(,)
i @beginspecial @setspecial @endspecial(443)2304 668
y FJ(BPART)p FQ(,)e @beginspecial @setspecial @endspecial(554)2304
781 y(Buc)m(h)m(b)s(erger's)i(Algorithm,)e @beginspecial
@setspecial @endspecial(375)2304 894 y FJ(BYE)p FQ(,)h
@beginspecial @setspecial @endspecial(77)2304 1090 y
FJ(C1)p 2406 1090 V 34 w(CIRCLE)p FQ(,)f @beginspecial
@setspecial @endspecial(364)2304 1203 y FJ(CALI)p FQ(,)g
@beginspecial @setspecial @endspecial(194)r(,)h @beginspecial
@setspecial @endspecial(283)2304 1316 y(Call)f(b)m(y)h(v)-5
b(alue,)30 b @beginspecial @setspecial @endspecial(187)r(,)g
@beginspecial @setspecial @endspecial(189)2304 1429 y(CAMAL,)h
@beginspecial @setspecial @endspecial(285)2304 1542 y
FJ(CAMAL)p FQ(,)e @beginspecial @setspecial @endspecial(194)q(,)i
@beginspecial @setspecial @endspecial(285)2304 1654 y(Canonical)e
(form,)h @beginspecial @setspecial @endspecial(111)2304
1767 y FJ(canonicaldecomposition)p FQ(,)24 b @beginspecial
@setspecial @endspecial(558)2304 1880 y(CAR,)30 b @beginspecial
@setspecial @endspecial(626)2304 1993 y(CAR)2470 2106
y(comp)s(osite)g(forms,)g @beginspecial @setspecial @endspecial(626)
2304 2219 y FJ(CARD)p 2502 2219 V 33 w(NO)p FQ(,)g @beginspecial
@setspecial @endspecial(123)2304 2332 y FJ(CARTAN)p 2598
2332 V 33 w(SYSTEM)p FQ(,)f @beginspecial @setspecial
@endspecial(329)2304 2445 y(cartesian)h(co)s(ordinates,)h
@beginspecial @setspecial @endspecial(453)2304 2558 y
FJ(Catalan)p FQ(,)e @beginspecial @setspecial @endspecial(541)2304
2671 y FJ(CAUCHY)p 2598 2671 V 33 w(SYSTEM)p FQ(,)g @beginspecial
@setspecial @endspecial(329)2304 2784 y FJ(CC)p 2406
2784 V 34 w(TANGENT)p FQ(,)f @beginspecial @setspecial
@endspecial(364)2304 2896 y(CDR,)i @beginspecial @setspecial
@endspecial(626)2304 3009 y(CDR)2470 3122 y(comp)s(osite)g(forms,)g
@beginspecial @setspecial @endspecial(626)2304 3235 y
FJ(CEILING)p FQ(,)f @beginspecial @setspecial @endspecial(80)2304
3348 y(Celestial)g(Mec)m(hanics,)i @beginspecial @setspecial
@endspecial(285)2304 3461 y FJ(CFRAC)p FQ(,)e @beginspecial
@setspecial @endspecial(489)2304 3574 y FJ(CGB)p FQ(,)h
@beginspecial @setspecial @endspecial(290)2304 3687 y
FJ(CGBFULLRED)p FQ(,)e @beginspecial @setspecial @endspecial(294)2304
3800 y FJ(CGBGEN)p FQ(,)h @beginspecial @setspecial @endspecial(292)
2304 3913 y FJ(CGBGS)p FQ(,)g @beginspecial @setspecial
@endspecial(294)2304 4026 y FJ(CGBREAL)p FQ(,)g @beginspecial
@setspecial @endspecial(293)2304 4138 y FJ(CGBSTAT)p
FQ(,)g @beginspecial @setspecial @endspecial(294)2304
4251 y(c)m(hain)h(rule,)f @beginspecial @setspecial @endspecial(337)
2304 4364 y FJ(CHAN)p FQ(,)g @beginspecial @setspecial
@endspecial(554)2304 4477 y FJ(CHANGEVAR)p FQ(,)f @beginspecial
@setspecial @endspecial(295)2304 4590 y FJ(CHANGEVR)p
FQ(,)g @beginspecial @setspecial @endspecial(194)2304
4703 y FJ(CHAR)p 2502 4703 V 33 w(MATRIX)p FQ(,)h @beginspecial
@setspecial @endspecial(404)q(,)i @beginspecial @setspecial
@endspecial(408)2304 4816 y FJ(CHAR)p 2502 4816 V 33
w(POLY)p FQ(,)f @beginspecial @setspecial @endspecial(403)q(,)h
@beginspecial @setspecial @endspecial(404)q(,)f @beginspecial
@setspecial @endspecial(408)2304 4929 y FJ(character)p
FQ(,)e @beginspecial @setspecial @endspecial(558)p eop
%%Page: 677 677
677 676 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(677)241 555 y(Character)31 b(set,)g
@beginspecial @setspecial @endspecial(43)241 668 y FJ(CHARACTERISTIC)p
919 668 29 4 v 30 w(VARIETY)p FQ(,)e @beginspecial @setspecial
@endspecial(330)241 781 y FJ(CHARACTERS)p FQ(,)f @beginspecial
@setspecial @endspecial(329)241 894 y(Cheb)m(yshev)h(\014t,)i
@beginspecial @setspecial @endspecial(437)241 1007 y(Cheb)m(yshev)e(p)s
(olynomials,)f @beginspecial @setspecial @endspecial(543)241
1120 y FJ(Chebyshev)p 679 1120 V 32 w(base)p 903 1120
V 33 w(T)p FQ(,)i @beginspecial @setspecial @endspecial(446)241
1233 y FJ(Chebyshev)p 679 1233 V 32 w(base)p 903 1233
V 33 w(U)p FQ(,)g @beginspecial @setspecial @endspecial(446)241
1346 y FJ(Chebyshev)p 679 1346 V 32 w(df)p FQ(,)g @beginspecial
@setspecial @endspecial(443)241 1458 y FJ(Chebyshev)p
679 1458 V 32 w(eval)p FQ(,)f @beginspecial @setspecial
@endspecial(444)241 1571 y FJ(Chebyshev)p 679 1571 V
32 w(fit)p FQ(,)g @beginspecial @setspecial @endspecial(443)241
1684 y FJ(Chebyshev)p 679 1684 V 32 w(int)p FQ(,)g @beginspecial
@setspecial @endspecial(443)241 1797 y FJ(ChebyshevT)p
FQ(,)f @beginspecial @setspecial @endspecial(543)241
1910 y FJ(ChebyshevU)p FQ(,)g @beginspecial @setspecial
@endspecial(543)241 2023 y FJ(CHECKPROLIST)p FQ(,)f @beginspecial
@setspecial @endspecial(253)241 2136 y FJ(Chi)p FQ(,)i
@beginspecial @setspecial @endspecial(544)241 2249 y
FJ(CHIRAL)p FQ(,)g @beginspecial @setspecial @endspecial(555)241
2362 y FJ(CHIRAL1)p FQ(,)f @beginspecial @setspecial
@endspecial(555)241 2475 y FJ(CHOLESKY)p FQ(,)g @beginspecial
@setspecial @endspecial(404)241 2588 y FJ(CHOOSE)p 535
2588 V 32 w(PC)p FQ(,)i @beginspecial @setspecial @endspecial(364)241
2700 y FJ(CHOOSE)p 535 2700 V 32 w(PL)p FQ(,)g @beginspecial
@setspecial @endspecial(365)241 2813 y FJ(Ci)p FQ(,)g
@beginspecial @setspecial @endspecial(544)241 2926 y
FJ(CIRCLE)p FQ(,)f @beginspecial @setspecial @endspecial(365)241
3039 y FJ(CIRCLE1)p FQ(,)f @beginspecial @setspecial
@endspecial(365)241 3152 y FJ(CIRCLE)p 535 3152 V 32
w(CENTER)p FQ(,)h @beginspecial @setspecial @endspecial(365)241
3265 y FJ(CIRCLE)p 535 3265 V 32 w(SQRADIUS)p FQ(,)g
@beginspecial @setspecial @endspecial(365)241 3378 y
FJ(CL)p 343 3378 V 34 w(TANGENT)p FQ(,)f @beginspecial
@setspecial @endspecial(365)241 3491 y FJ(CLEANUP)p FQ(,)g
@beginspecial @setspecial @endspecial(329)r(,)i @beginspecial
@setspecial @endspecial(330)241 3604 y FJ(CLEAR)p FQ(,)f
@beginspecial @setspecial @endspecial(156)q(,)i @beginspecial
@setspecial @endspecial(160)q(,)g @beginspecial @setspecial
@endspecial(256)241 3717 y FJ(CLEARBAG)p FQ(,)d @beginspecial
@setspecial @endspecial(247)241 3830 y FJ(CLEARFLAG)p
FQ(,)g @beginspecial @setspecial @endspecial(253)241
3942 y FJ(CLEARFUNCTIONS)p FQ(,)e @beginspecial @setspecial
@endspecial(256)241 4055 y FJ(CLEAROP)p FQ(,)i @beginspecial
@setspecial @endspecial(256)241 4168 y FJ(CLEARPHYSOP)p
FQ(,)f @beginspecial @setspecial @endspecial(463)241
4281 y FJ(CLEARRULES)p FQ(,)h @beginspecial @setspecial
@endspecial(161)241 4394 y(Clebsc)m(h)h(Gordan)h(co)s(e\016cien)m(ts,)i
@beginspecial @setspecial @endspecial(543)241 4507 y
FJ(Clebsch)p 583 4507 V 32 w(Gordan)p FQ(,)d @beginspecial
@setspecial @endspecial(543)241 4620 y(CLOSE,)g @beginspecial
@setspecial @endspecial(656)241 4733 y FJ(CLOSED)p FQ(,)g
@beginspecial @setspecial @endspecial(330)241 4846 y
FJ(CLOSURE)p FQ(,)f @beginspecial @setspecial @endspecial(329)241
4959 y FJ(COBASIS)p FQ(,)g @beginspecial @setspecial
@endspecial(327)1880 555 y(co)s(de)j(templates,)g @beginspecial
@setspecial @endspecial(358)1880 668 y(CODEP)-8 b(,)31
b @beginspecial @setspecial @endspecial(618)q(,)g @beginspecial
@setspecial @endspecial(623)1880 781 y FJ(COEFF)p FQ(,)f
@beginspecial @setspecial @endspecial(128)1880 894 y
FJ(COEFF)p 2126 894 V 33 w(MATRIX)p FQ(,)f @beginspecial
@setspecial @endspecial(404)1880 1007 y(Co)s(e\016cien)m(t,)i
@beginspecial @setspecial @endspecial(147)r({)p @beginspecial
@setspecial @endspecial(150)1880 1120 y FJ(COEFFN)p FQ(,)e
@beginspecial @setspecial @endspecial(129)1880 1233 y
FJ(COERCEMAT)p FQ(,)g @beginspecial @setspecial @endspecial(261)1880
1346 y FJ(COFACTOR)p FQ(,)g @beginspecial @setspecial
@endspecial(181)1880 1458 y(coframe,)j @beginspecial
@setspecial @endspecial(338)q(,)f @beginspecial @setspecial
@endspecial(341)1880 1571 y(COFRAME)2046 1684 y(WITH)g(METRIC,)f
@beginspecial @setspecial @endspecial(341)2046 1797 y(WITH)h(SIGNA)-8
b(TURE,)31 b @beginspecial @setspecial @endspecial(341)1880
1910 y FJ(COFRAMING)p FQ(,)e @beginspecial @setspecial
@endspecial(326)q(,)h @beginspecial @setspecial @endspecial(327)1880
2023 y FJ(COLLECT)p FQ(,)f @beginspecial @setspecial
@endspecial(67)1880 2136 y FJ(COLLINEAR)p FQ(,)g @beginspecial
@setspecial @endspecial(365)1880 2249 y FJ(COLUMN)p 2174
2249 V 33 w(DIM)p FQ(,)h @beginspecial @setspecial @endspecial(403)q(,)
h @beginspecial @setspecial @endspecial(405)1880 2362
y FJ(COMBINATIONS)p FQ(,)d @beginspecial @setspecial
@endspecial(251)1880 2475 y FJ(COMBINEEXPT)p FQ(,)g @beginspecial
@setspecial @endspecial(86)1880 2588 y FJ(COMBINELOGS)p
FQ(,)g @beginspecial @setspecial @endspecial(85)1880
2700 y FJ(COMBNUM)p FQ(,)h @beginspecial @setspecial
@endspecial(250)1880 2813 y FJ(COMM)p FQ(,)h @beginspecial
@setspecial @endspecial(466)q(,)h @beginspecial @setspecial
@endspecial(536)1880 2926 y(Command,)f @beginspecial
@setspecial @endspecial(75)1880 3039 y(Command)g(terminator,)g
@beginspecial @setspecial @endspecial(169)1880 3152 y
FJ(COMMENT)p FQ(,)f @beginspecial @setspecial @endspecial(48)1880
3265 y(commen)m(ts,)j @beginspecial @setspecial @endspecial(622)1880
3378 y FJ(COMMUTE)p FQ(,)d @beginspecial @setspecial
@endspecial(467)1880 3491 y FJ(COMP)p FQ(,)h @beginspecial
@setspecial @endspecial(219)1880 3604 y FJ(COMPACT)p
FQ(,)f @beginspecial @setspecial @endspecial(194)q(,)i
@beginspecial @setspecial @endspecial(297)1880 3717 y(COMP)-8
b(A)m(CT)31 b(op)s(erator,)g @beginspecial @setspecial
@endspecial(297)1880 3830 y(COMP)-8 b(A)m(CT)31 b(pac)m(k)-5
b(age,)32 b @beginspecial @setspecial @endspecial(297)1880
3942 y FJ(COMPANION)p FQ(,)d @beginspecial @setspecial
@endspecial(404)1880 4055 y(Compiler,)g @beginspecial
@setspecial @endspecial(219)1880 4168 y FJ(COMPLEX)p
FQ(,)g @beginspecial @setspecial @endspecial(150)1880
4281 y(Complex)h(co)s(e\016cien)m(t,)h @beginspecial
@setspecial @endspecial(150)1880 4394 y(Comp)s(ound)e(statemen)m(t,)j
@beginspecial @setspecial @endspecial(70)q(,)f @beginspecial
@setspecial @endspecial(72)1880 4507 y(COMPRESS,)e @beginspecial
@setspecial @endspecial(618)r(,)h @beginspecial @setspecial
@endspecial(628)1880 4620 y FJ(CONCURRENT)p FQ(,)e @beginspecial
@setspecial @endspecial(365)1880 4733 y(COND,)j @beginspecial
@setspecial @endspecial(640)1880 4846 y(cond-form,)g
@beginspecial @setspecial @endspecial(620)1880 4959 y(Conditional)d
(statemen)m(t,)33 b @beginspecial @setspecial @endspecial(66)p
eop
%%Page: 678 678
678 677 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(678)2553 b FM(INDEX)664 555 y FJ(CONJ)p FQ(,)30 b
@beginspecial @setspecial @endspecial(80)664 668 y(CONS,)g
@beginspecial @setspecial @endspecial(626)664 781 y FJ(CONS)p
FQ(,)g @beginspecial @setspecial @endspecial(245)664
894 y(consequen)m(t)h(\(cond-form\),)g @beginspecial
@setspecial @endspecial(620)664 1007 y(constan)m(t,)h
@beginspecial @setspecial @endspecial(619)664 1120 y(CONST)-8
b(ANTP)g(,)30 b @beginspecial @setspecial @endspecial(623)664
1233 y(Constructor,)g @beginspecial @setspecial @endspecial(205)664
1346 y FJ(CONT)p FQ(,)g @beginspecial @setspecial @endspecial(176)664
1458 y FJ(CONTACT)p FQ(,)f @beginspecial @setspecial
@endspecial(326)664 1571 y FJ(CONTFR)p FQ(,)g @beginspecial
@setspecial @endspecial(194)664 1684 y FJ(CONTFRAC)p
FQ(,)g @beginspecial @setspecial @endspecial(489)664
1797 y(con)m(tin)m(uation)h(lines,)f @beginspecial @setspecial
@endspecial(357)664 1910 y FJ(contour)p FQ(,)g @beginspecial
@setspecial @endspecial(372)664 2023 y FJ(CONTRACT)p
FQ(,)g @beginspecial @setspecial @endspecial(465)664
2136 y FJ(CONVERT)p FQ(,)g @beginspecial @setspecial
@endspecial(411)664 2249 y FJ(COORDINATES)p FQ(,)f @beginspecial
@setspecial @endspecial(327)q(,)j @beginspecial @setspecial
@endspecial(330)664 2362 y(COORDINA)-8 b(TES)30 b(op)s(erator,)g
@beginspecial @setspecial @endspecial(272)664 2475 y(COORDS)f(v)m
(ector,)k @beginspecial @setspecial @endspecial(272)664
2588 y FJ(COPY)p 862 2588 29 4 v 33 w(INTO)p FQ(,)d @beginspecial
@setspecial @endspecial(403)q(,)h @beginspecial @setspecial
@endspecial(405)664 2700 y FJ(COS)p FQ(,)f @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)664 2813 y FJ(COSH)p FQ(,)g @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)664 2926 y FJ(COT)p FQ(,)g @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)664 3039 y FJ(COTH)p FQ(,)g @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)664 3152 y FJ(CP)p FQ(,)g @beginspecial
@setspecial @endspecial(554)664 3265 y FJ(CRACK)p FQ(,)f
@beginspecial @setspecial @endspecial(194)r(,)h @beginspecial
@setspecial @endspecial(299)664 3378 y FJ(CRAMER)p FQ(,)f
@beginspecial @setspecial @endspecial(95)q(,)i @beginspecial
@setspecial @endspecial(179)664 3491 y FJ(CREF)p FQ(,)f
@beginspecial @setspecial @endspecial(221)q(,)h @beginspecial
@setspecial @endspecial(222)664 3604 y FJ(CRESYS)p FQ(,)e
@beginspecial @setspecial @endspecial(536)664 3717 y
FJ(CROSS)p FQ(,)g @beginspecial @setspecial @endspecial(328)664
3830 y(CR)m(OSS)830 3942 y(v)m(ector,)j @beginspecial
@setspecial @endspecial(270)664 4055 y(cross)f(pro)s(duct,)e
@beginspecial @setspecial @endspecial(270)q(,)i @beginspecial
@setspecial @endspecial(455)664 4168 y(Cross)f(reference,)h
@beginspecial @setspecial @endspecial(221)664 4281 y
FJ(CROSSVECT)p FQ(,)d @beginspecial @setspecial @endspecial(259)664
4394 y FJ(CSC)p FQ(,)i @beginspecial @setspecial @endspecial(83)q(,)g
@beginspecial @setspecial @endspecial(86)664 4507 y FJ(CSCH)p
FQ(,)g @beginspecial @setspecial @endspecial(83)q(,)g
@beginspecial @setspecial @endspecial(86)664 4620 y(CURL)830
4733 y(op)s(erator,)h @beginspecial @setspecial @endspecial(271)664
4846 y(curl)830 4959 y(v)m(ector)h(\014eld,)d @beginspecial
@setspecial @endspecial(271)2304 555 y(curl)g(op)s(erator,)i
@beginspecial @setspecial @endspecial(456)2304 668 y
FJ(CVIT)p FQ(,)e @beginspecial @setspecial @endspecial(194)r(,)h
@beginspecial @setspecial @endspecial(303)2304 781 y
FJ(CVITBTR)p FQ(,)f @beginspecial @setspecial @endspecial(303)2304
894 y FJ(CVITOP)p FQ(,)g @beginspecial @setspecial @endspecial(303)2304
1007 y FJ(CVITRACE)p FQ(,)f @beginspecial @setspecial
@endspecial(303)2304 1120 y FJ(CYCLICPERMLIST)p FQ(,)f
@beginspecial @setspecial @endspecial(250)2304 1233 y(cylindrical)g(co)
s(ordinates,)j @beginspecial @setspecial @endspecial(453)2304
1429 y FJ(D)p FQ(,)g @beginspecial @setspecial @endspecial(552)2304
1542 y FJ(D)p 2358 1542 V 34 w(PART)p FQ(,)f @beginspecial
@setspecial @endspecial(554)2304 1654 y(data)i(structures,)f
@beginspecial @setspecial @endspecial(619)2304 1767 y(DE,)h
@beginspecial @setspecial @endspecial(631)2304 1880 y(Declaration,)g
@beginspecial @setspecial @endspecial(75)2304 1993 y(DECLARE)f
(function,)f @beginspecial @setspecial @endspecial(356)2304
2106 y FJ(DECOMPOSE)p FQ(,)f @beginspecial @setspecial
@endspecial(141)2304 2219 y(default)2470 2332 y(term)i(order,)g
@beginspecial @setspecial @endspecial(376)2304 2445 y
FJ(defid)p FQ(,)f @beginspecial @setspecial @endspecial(510)2304
2558 y FJ(defindex)p FQ(,)f @beginspecial @setspecial
@endspecial(510)2304 2671 y FJ(DEFINE)p FQ(,)h @beginspecial
@setspecial @endspecial(78)2304 2784 y(de\014nite)g(in)m(tegration)h
(\(simple\),)g @beginspecial @setspecial @endspecial(274)2304
2896 y FJ(DEFINT)p FQ(,)f @beginspecial @setspecial @endspecial(194)q
(,)i @beginspecial @setspecial @endspecial(305)2304 3009
y(DEFINT)f(function,)g @beginspecial @setspecial @endspecial(274)2304
3122 y(DEFLINEINT)g(function,)f @beginspecial @setspecial
@endspecial(275)2304 3235 y(DEFLIST,)h @beginspecial
@setspecial @endspecial(648)2304 3348 y FJ(DEFN)p FQ(,)f
@beginspecial @setspecial @endspecial(203)r(,)h @beginspecial
@setspecial @endspecial(223)r(,)g @beginspecial @setspecial
@endspecial(224)2304 3461 y FJ(DEFPOLY)p FQ(,)f @beginspecial
@setspecial @endspecial(239)2304 3574 y FJ(DEG)p FQ(,)h
@beginspecial @setspecial @endspecial(143)2304 3687 y(Degree,)i
@beginspecial @setspecial @endspecial(143)2304 3800 y
FJ(DEL)p FQ(,)e @beginspecial @setspecial @endspecial(552)2304
3913 y(DELETE,)g @beginspecial @setspecial @endspecial(649)2304
4026 y FJ(DELETE)p FQ(,)f @beginspecial @setspecial @endspecial(244)
2304 4138 y FJ(DELETE)p 2598 4138 V 33 w(ALL)p FQ(,)g
@beginspecial @setspecial @endspecial(244)2304 4251 y
FJ(DELLASTDIGIT)p FQ(,)e @beginspecial @setspecial @endspecial(249)2304
4364 y FJ(DELPAIR)p FQ(,)i @beginspecial @setspecial
@endspecial(244)2304 4477 y(DELSQ)2470 4590 y(op)s(erator,)i
@beginspecial @setspecial @endspecial(271)2304 4703 y(delsq)e(op)s
(erator,)i @beginspecial @setspecial @endspecial(456)2304
4816 y FJ(DEMO)p FQ(,)e @beginspecial @setspecial @endspecial(76)2304
4929 y FJ(DEN)p FQ(,)h @beginspecial @setspecial @endspecial(134)q(,)h
@beginspecial @setspecial @endspecial(143)p eop
%%Page: 679 679
679 678 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(679)241 555 y FJ(DEPATOM)p FQ(,)28
b @beginspecial @setspecial @endspecial(252)241 668 y
FJ(DEPEND)p FQ(,)h @beginspecial @setspecial @endspecial(109)241
781 y(dep)s(end,)g @beginspecial @setspecial @endspecial(103)241
894 y(DEPEND)i(statemen)m(t,)h @beginspecial @setspecial
@endspecial(457)241 1007 y FJ(DEPTH)p FQ(,)d @beginspecial
@setspecial @endspecial(245)241 1120 y FJ(DEPVARP)p FQ(,)f
@beginspecial @setspecial @endspecial(255)241 1233 y
FJ(DER)p FQ(,)h @beginspecial @setspecial @endspecial(552)241
1346 y(deriv)-5 b(ativ)m(e)407 1458 y(v)g(ariational,)29
b @beginspecial @setspecial @endspecial(339)241 1571
y(deriv)-5 b(ativ)m(es,)30 b @beginspecial @setspecial
@endspecial(313)241 1684 y FJ(DERIVED)p 583 1684 29 4
v 32 w(SYSTEMS)p FQ(,)f @beginspecial @setspecial @endspecial(329)241
1797 y FJ(DESIR)p FQ(,)g @beginspecial @setspecial @endspecial(194)q(,)
i @beginspecial @setspecial @endspecial(309)241 1910
y FJ(DET)p FQ(,)e @beginspecial @setspecial @endspecial(112)r(,)h
@beginspecial @setspecial @endspecial(179)241 2023 y
FJ(DETIDNUM)p FQ(,)e @beginspecial @setspecial @endspecial(249)241
2136 y FJ(DETRAFO)p FQ(,)g @beginspecial @setspecial
@endspecial(237)241 2249 y(DF,)j @beginspecial @setspecial
@endspecial(631)241 2362 y FJ(DF)p FQ(,)f @beginspecial
@setspecial @endspecial(87)q(,)g @beginspecial @setspecial
@endspecial(88)241 2475 y FJ(DFP)p FQ(,)f @beginspecial
@setspecial @endspecial(314)241 2588 y FJ(DFP)p 391 2588
V 33 w(COMMUTE)p FQ(,)g @beginspecial @setspecial @endspecial(316)241
2700 y FJ(DFPART)p FQ(,)g @beginspecial @setspecial @endspecial(194)q
(,)i @beginspecial @setspecial @endspecial(313)241 2813
y FJ(DIAGONAL)p FQ(,)d @beginspecial @setspecial @endspecial(403)q(,)j
@beginspecial @setspecial @endspecial(405)241 2926 y
FJ(diagonalize)p FQ(,)c @beginspecial @setspecial @endspecial(558)241
3039 y(DIFFERENCE,)k @beginspecial @setspecial @endspecial(642)241
3152 y(Di\013eren)m(tiation,)f @beginspecial @setspecial
@endspecial(87)q(,)h @beginspecial @setspecial @endspecial(88,)g
@beginspecial @setspecial @endspecial(109)241 3265 y(di\013eren)m
(tiation)407 3378 y(partial,)e @beginspecial @setspecial
@endspecial(336)407 3491 y(v)m(ector,)j @beginspecial
@setspecial @endspecial(271)241 3604 y FJ(DIFFSET)p FQ(,)c
@beginspecial @setspecial @endspecial(249)241 3717 y(DIGIT,)i
@beginspecial @setspecial @endspecial(649)241 3830 y
FJ(DILOG)p FQ(,)f @beginspecial @setspecial @endspecial(83)q(,)h
@beginspecial @setspecial @endspecial(90)241 3942 y FJ(dilog)p
FQ(,)f @beginspecial @setspecial @endspecial(544)241
4055 y(Dilogarithm)g(function,)g @beginspecial @setspecial
@endspecial(544)241 4168 y FJ(DIM)p FQ(,)g @beginspecial
@setspecial @endspecial(329)241 4281 y FJ(DIM)p 391 4281
V 33 w(GRASSMANN)p 856 4281 V 32 w(VARIETY)p FQ(,)g @beginspecial
@setspecial @endspecial(329)241 4394 y(dimension,)f @beginspecial
@setspecial @endspecial(335)241 4507 y(Dirac)i FL(\015)36
b FQ(matrix,)30 b @beginspecial @setspecial @endspecial(212)241
4620 y(direct)g(pro)s(duct,)f @beginspecial @setspecial
@endspecial(410)241 4733 y FJ(DISJOIN)p FQ(,)f @beginspecial
@setspecial @endspecial(330)241 4846 y FJ(DISPJACOBIAN)p
FQ(,)f @beginspecial @setspecial @endspecial(296)241
4959 y FJ(DISPLAY)p FQ(,)h @beginspecial @setspecial
@endspecial(174)1880 555 y(Displa)m(y)-8 b(,)31 b @beginspecial
@setspecial @endspecial(111)1880 668 y FJ(DISPLAYFLAG)p
FQ(,)d @beginspecial @setspecial @endspecial(253)1880
781 y(DISPLA)-8 b(YFRAME)32 b(command,)e @beginspecial
@setspecial @endspecial(342)1880 894 y(Displa)m(ying)f(structure,)h
@beginspecial @setspecial @endspecial(126)1880 1007 y
FJ(DISTRIBUTE)p FQ(,)e @beginspecial @setspecial @endspecial(257)1880
1120 y FJ(DIV)p FQ(,)i @beginspecial @setspecial @endspecial(117)r(,)g
@beginspecial @setspecial @endspecial(147)q(,)h @beginspecial
@setspecial @endspecial(498)1880 1233 y(DIV)2046 1346
y(op)s(erator,)g @beginspecial @setspecial @endspecial(271)1880
1458 y(div)e(op)s(erator,)i @beginspecial @setspecial
@endspecial(456)1880 1571 y(div)m(ergence)2046 1684 y(v)m(ector)h
(\014eld,)e @beginspecial @setspecial @endspecial(271)1880
1797 y(DIVIDE,)i @beginspecial @setspecial @endspecial(642)1880
1910 y(division)c(b)m(y)i(zero,)h @beginspecial @setspecial
@endspecial(642)r(,)f @beginspecial @setspecial @endspecial(645)1880
2023 y FJ(DIVPOL)p FQ(,)f @beginspecial @setspecial @endspecial(258)
1880 2136 y FJ(DLINEINT)p FQ(,)g @beginspecial @setspecial
@endspecial(458)1880 2249 y(dlist,)g @beginspecial @setspecial
@endspecial(648)1880 2362 y(DM,)j @beginspecial @setspecial
@endspecial(631)1880 2475 y FJ(DO)p FQ(,)e @beginspecial
@setspecial @endspecial(67)q(,)h @beginspecial @setspecial
@endspecial(69)1880 2588 y(Dollar)f(sign,)g @beginspecial
@setspecial @endspecial(63)1880 2700 y FJ(DOT)p FQ(,)g
@beginspecial @setspecial @endspecial(464)1880 2813 y(DOT)2046
2926 y(v)m(ector,)j @beginspecial @setspecial @endspecial(270)1880
3039 y(Dot)f(pro)s(duct,)d @beginspecial @setspecial
@endspecial(211)r(,)h @beginspecial @setspecial @endspecial(270)1880
3152 y(dot)h(pro)s(duct,)e @beginspecial @setspecial
@endspecial(456)1880 3265 y(dot-notation,)j @beginspecial
@setspecial @endspecial(617)q(,)f @beginspecial @setspecial
@endspecial(619)1880 3378 y FJ(DOT)p 2030 3378 V 34 w(HAM)p
FQ(,)f @beginspecial @setspecial @endspecial(554)1880
3491 y(dotgrad)h(op)s(erator,)g @beginspecial @setspecial
@endspecial(456)1880 3604 y(dotted-pair,)g @beginspecial
@setspecial @endspecial(617)q(,)g @beginspecial @setspecial
@endspecial(625)q(,)g @beginspecial @setspecial @endspecial(626)1880
3717 y(DOUBLE)g(switc)m(h,)f @beginspecial @setspecial
@endspecial(353)1880 3830 y FJ(DR)p FQ(,)g @beginspecial
@setspecial @endspecial(552)1880 3942 y FJ(DRR)p FQ(,)g
@beginspecial @setspecial @endspecial(555)1880 4055 y
FJ(DUMMY)p FQ(,)g @beginspecial @setspecial @endspecial(194)q(,)h
@beginspecial @setspecial @endspecial(319)1880 4168 y
FJ(DUMMY)p 2126 4168 V 33 w(BASE)p FQ(,)f @beginspecial
@setspecial @endspecial(319)1880 4281 y FJ(dummy)p 2126
4281 V 33 w(names)p FQ(,)g @beginspecial @setspecial
@endspecial(320)1880 4394 y FJ(DUMMYPRI)p FQ(,)f @beginspecial
@setspecial @endspecial(267)1880 4507 y FJ(DVFSF)p FQ(,)h
@beginspecial @setspecial @endspecial(497)q(,)h @beginspecial
@setspecial @endspecial(498)1880 4620 y FJ(DVINT)p FQ(,)f
@beginspecial @setspecial @endspecial(458)1880 4733 y
FJ(DVOLINT)p FQ(,)f @beginspecial @setspecial @endspecial(458)1880
4846 y FJ(DYW)p FQ(,)h @beginspecial @setspecial @endspecial(554)p
eop
%%Page: 680 680
680 679 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(680)2553 b FM(INDEX)664 555 y FJ(E)p FQ(,)30 b @beginspecial
@setspecial @endspecial(46)664 668 y FJ(ECHO)p FQ(,)g
@beginspecial @setspecial @endspecial(169)664 781 y FJ(ED)p
FQ(,)g @beginspecial @setspecial @endspecial(173)r(,)g
@beginspecial @setspecial @endspecial(174)664 894 y FJ(EDITDEF)p
FQ(,)f @beginspecial @setspecial @endspecial(175)664
1007 y FJ(EDS)p FQ(,)h @beginspecial @setspecial @endspecial(323)q(,)h
@beginspecial @setspecial @endspecial(326)664 1120 y
FJ(EDS:)47 b(Exterior)e(differential)996 1233 y(dystems)p
FQ(,)29 b @beginspecial @setspecial @endspecial(323)664
1346 y FJ(EDSDEBUG)p FQ(,)g @beginspecial @setspecial
@endspecial(330)664 1458 y FJ(EDSDISJOINT)p FQ(,)f @beginspecial
@setspecial @endspecial(330)664 1571 y FJ(EDSSLOPPY)p
FQ(,)g @beginspecial @setspecial @endspecial(330)664
1684 y FJ(EDSVERBOSE)p FQ(,)g @beginspecial @setspecial
@endspecial(330)664 1797 y FJ(Ei)p FQ(,)i @beginspecial
@setspecial @endspecial(83)q(,)h @beginspecial @setspecial
@endspecial(544)664 1910 y(EJECT,)e @beginspecial @setspecial
@endspecial(656)r(,)h @beginspecial @setspecial @endspecial(657)664
2023 y FJ(EllipticE)p FQ(,)e @beginspecial @setspecial
@endspecial(544)664 2136 y FJ(EllipticF)p FQ(,)g @beginspecial
@setspecial @endspecial(544)664 2249 y FJ(EllipticK)p
FQ(,)g @beginspecial @setspecial @endspecial(544)664
2362 y FJ(EllipticTheta)p FQ(,)f @beginspecial @setspecial
@endspecial(544)664 2475 y FJ(ELMULT)p FQ(,)i @beginspecial
@setspecial @endspecial(244)664 2588 y(EMSG*)i(\(global\),)g
@beginspecial @setspecial @endspecial(638)q(,)g @beginspecial
@setspecial @endspecial(661)664 2700 y FJ(END)p FQ(,)f
@beginspecial @setspecial @endspecial(77)664 2813 y(end)g(of)g(\014le,)
g @beginspecial @setspecial @endspecial(661)664 2926
y(end)g(of)g(line,)f @beginspecial @setspecial @endspecial(661)664
3039 y FJ(EPS)p FQ(,)h @beginspecial @setspecial @endspecial(213)q(,)h
@beginspecial @setspecial @endspecial(343)664 3152 y(EQ,)f
@beginspecial @setspecial @endspecial(623)664 3265 y(EQ)830
3378 y(in)f(MEMQ,)i @beginspecial @setspecial @endspecial(650)830
3491 y(of)g(dotted-pairs,)f @beginspecial @setspecial
@endspecial(626)830 3604 y(of)h(function-p)s(oin)m(ters,)d
@beginspecial @setspecial @endspecial(618)r(,)i @beginspecial
@setspecial @endspecial(623)830 3717 y(of)h(GENSYMs,)g
@beginspecial @setspecial @endspecial(629)830 3830 y(of)g(iden)m
(ti\014ers,)d @beginspecial @setspecial @endspecial(627)664
3942 y(EQN,)i @beginspecial @setspecial @endspecial(623)664
4055 y(EQUAL,)g @beginspecial @setspecial @endspecial(623)664
4168 y FJ(EQUAL)p FQ(,)f @beginspecial @setspecial @endspecial(498)r(,)
h @beginspecial @setspecial @endspecial(499)664 4281
y(EQUAL)830 4394 y(in)f(ASSOC,)g @beginspecial @setspecial
@endspecial(648)830 4507 y(in)g(DELETE,)h @beginspecial
@setspecial @endspecial(649)830 4620 y(in)f(MEMBER,)j
@beginspecial @setspecial @endspecial(650)830 4733 y(in)d(SASSOC,)g
@beginspecial @setspecial @endspecial(651)830 4846 y(in)g(SUBST,)h
@beginspecial @setspecial @endspecial(652)664 4959 y(Equation,)g
@beginspecial @setspecial @endspecial(57)2304 555 y FJ(EQUIV)p
FQ(,)f @beginspecial @setspecial @endspecial(330)q(,)i
@beginspecial @setspecial @endspecial(497)2304 668 y
FJ(ERF)p FQ(,)f @beginspecial @setspecial @endspecial(90)2304
781 y FJ(erf)p FQ(,)g @beginspecial @setspecial @endspecial(544)2304
894 y FJ(erfc)p FQ(,)f @beginspecial @setspecial @endspecial(544)2304
1007 y FJ(ERRCONT)p FQ(,)g @beginspecial @setspecial
@endspecial(173)2304 1120 y(ERR)m(OR,)h @beginspecial
@setspecial @endspecial(622)r(,)g @beginspecial @setspecial
@endspecial(638)r(,)g @beginspecial @setspecial @endspecial(661)2304
1233 y(error)2470 1346 y(t)m(yp)s(e)g(mismatc)m(h)h(error,)f
@beginspecial @setspecial @endspecial(622)2304 1458 y(error)g
(messages,)h @beginspecial @setspecial @endspecial(622)2304
1571 y(ERR)m(ORSET,)e @beginspecial @setspecial @endspecial(638)2304
1684 y(escap)s(e)i(c)m(haracter,)h @beginspecial @setspecial
@endspecial(622)2304 1797 y(Euclidean)c(metric,)j @beginspecial
@setspecial @endspecial(341)2304 1910 y FJ(Euler)p FQ(,)e
@beginspecial @setspecial @endspecial(542)2304 2023 y(Euler)g(p)s
(olynomials,)f @beginspecial @setspecial @endspecial(542)2304
2136 y FJ(Euler)p 2550 2136 29 4 v 33 w(Gamma)p FQ(,)h
@beginspecial @setspecial @endspecial(541)2304 2249 y
FJ(EulerP)p FQ(,)g @beginspecial @setspecial @endspecial(543)2304
2362 y(EV)-10 b(AL,)30 b @beginspecial @setspecial @endspecial(654)2304
2475 y FJ(EVAL)p FQ(,)f @beginspecial @setspecial @endspecial(353)2304
2588 y(EV)-10 b(AL)2470 2700 y(function,)29 b @beginspecial
@setspecial @endspecial(620)2470 2813 y(function)g(t)m(yp)s(e,)i
@beginspecial @setspecial @endspecial(621)2470 2926 y(lam)m(b)s(da)e
(expressions,)g @beginspecial @setspecial @endspecial(620)2470
3039 y(MA)m(CR)m(O)i(functions,)e @beginspecial @setspecial
@endspecial(621)2470 3152 y(of)h(constan)m(ts,)i @beginspecial
@setspecial @endspecial(619)2304 3265 y FJ(EVAL)p 2502
3265 V 33 w(MODE)p FQ(,)e @beginspecial @setspecial @endspecial(197)
2304 3378 y FJ(evalb)p FQ(,)f @beginspecial @setspecial
@endspecial(527)2304 3491 y FJ(EVALLHSEQP)p FQ(,)f @beginspecial
@setspecial @endspecial(57)2304 3604 y FJ(EVEN)p FQ(,)h
@beginspecial @setspecial @endspecial(104)2304 3717 y(Ev)m(en)h(op)s
(erator,)h @beginspecial @setspecial @endspecial(104)2304
3830 y FJ(EVENP)p FQ(,)e @beginspecial @setspecial @endspecial(56)2304
3942 y(EVLIS,)h @beginspecial @setspecial @endspecial(654)2304
4055 y FJ(EX)p FQ(,)g @beginspecial @setspecial @endspecial(497)2304
4168 y FJ(EXCALC)p FQ(,)f @beginspecial @setspecial @endspecial(194)q
(,)i @beginspecial @setspecial @endspecial(325)q(,)g
@beginspecial @setspecial @endspecial(333)2304 4281 y(EX)m(CALC)f(pac)m
(k)-5 b(age)2470 4394 y(example,)30 b @beginspecial @setspecial
@endspecial(336)r(,)g @beginspecial @setspecial @endspecial(337)r(,)g
@beginspecial @setspecial @endspecial(339)q(,)h @beginspecial
@setspecial @endspecial(340)q(,)2636 4507 y @beginspecial
@setspecial @endspecial(342)2304 4620 y(Exclamation)f(mark,)g
@beginspecial @setspecial @endspecial(43)2304 4733 y
FJ(EXCLUDE)p FQ(,)f @beginspecial @setspecial @endspecial(514)2304
4846 y(EXDEGREE)i(command,)f @beginspecial @setspecial
@endspecial(334)2304 4959 y FJ(EXFACTORS)p FQ(,)e @beginspecial
@setspecial @endspecial(330)p eop
%%Page: 681 681
681 680 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(681)241 555 y FJ(EXP)p FQ(,)29 b @beginspecial
@setspecial @endspecial(83)q(,)i @beginspecial @setspecial
@endspecial(86)q(,)f @beginspecial @setspecial @endspecial(90)q(,)h
@beginspecial @setspecial @endspecial(134)q(,)g @beginspecial
@setspecial @endspecial(137)241 668 y(EXP)-8 b(AND,)31
b @beginspecial @setspecial @endspecial(655)241 781 y
FJ(EXPAND)p 535 781 29 4 v 32 w(CASES)p FQ(,)f @beginspecial
@setspecial @endspecial(96)241 894 y FJ(EXPANDLOGS)p
FQ(,)e @beginspecial @setspecial @endspecial(85)241 1007
y FJ(EXPLICIT)p FQ(,)g @beginspecial @setspecial @endspecial(252)241
1120 y(EXPLODE,)i @beginspecial @setspecial @endspecial(618)q(,)h
@beginspecial @setspecial @endspecial(628)q(,)g @beginspecial
@setspecial @endspecial(639)241 1233 y(EXPR,)f @beginspecial
@setspecial @endspecial(618)r(,)g @beginspecial @setspecial
@endspecial(619)q(,)h @beginspecial @setspecial @endspecial(631)241
1346 y FJ(EXPR)p FQ(,)e @beginspecial @setspecial @endspecial(203)241
1458 y(Expression,)g @beginspecial @setspecial @endspecial(53)241
1571 y(EXPT,)h @beginspecial @setspecial @endspecial(643)241
1684 y FJ(EXTEND)p FQ(,)f @beginspecial @setspecial @endspecial(403)q
(,)i @beginspecial @setspecial @endspecial(405)241 1797
y FJ(extended)p 631 1797 V 32 w(gosper)p FQ(,)e @beginspecial
@setspecial @endspecial(600)241 1910 y(exterior)h(calculus,)f
@beginspecial @setspecial @endspecial(333)241 2023 y(exterior)h
(di\013eren)m(tiation,)f @beginspecial @setspecial @endspecial(336)241
2136 y(exterior)h(form)407 2249 y(declaration,)g @beginspecial
@setspecial @endspecial(334)407 2362 y(v)m(ector,)i @beginspecial
@setspecial @endspecial(334)407 2475 y(with)d(indices,)g
@beginspecial @setspecial @endspecial(340)241 2588 y(exterior)h(pro)s
(duct,)g @beginspecial @setspecial @endspecial(335)q(,)g
@beginspecial @setspecial @endspecial(343)241 2700 y(extra-b)s(o)s
(olean,)h @beginspecial @setspecial @endspecial(619)241
2813 y FJ(EXTRACTLIST)p FQ(,)c @beginspecial @setspecial
@endspecial(253)241 2926 y FJ(EXTRACTMAT)p FQ(,)h @beginspecial
@setspecial @endspecial(367)241 3039 y FJ(EXTREMUM)p
FQ(,)g @beginspecial @setspecial @endspecial(252)241
3152 y FJ(EZGCD)p FQ(,)h @beginspecial @setspecial @endspecial(137)241
3348 y FJ(FACTOR)p FQ(,)g @beginspecial @setspecial @endspecial(115)q
(,)i @beginspecial @setspecial @endspecial(135)241 3461
y FJ(FACTORIAL)p FQ(,)d @beginspecial @setspecial @endspecial(80)q(,)i
@beginspecial @setspecial @endspecial(190)241 3574 y(F)-8
b(actorization,)32 b @beginspecial @setspecial @endspecial(134)241
3687 y FJ(FACTORIZE)p FQ(,)c @beginspecial @setspecial
@endspecial(135)q(,)j @beginspecial @setspecial @endspecial(136)241
3800 y FJ(FALSE)p FQ(,)e @beginspecial @setspecial @endspecial(497)241
3913 y(F)-8 b(ast)32 b(loading)d(of)h(co)s(de,)h @beginspecial
@setspecial @endspecial(220)241 4026 y FJ(FAST)p 439
4026 V 33 w(LA)p FQ(,)f @beginspecial @setspecial @endspecial(413)241
4138 y FJ(FCOMB)p FQ(,)f @beginspecial @setspecial @endspecial(554)241
4251 y(FDOMAIN)i(command,)f @beginspecial @setspecial
@endspecial(336)241 4364 y FJ(FER)p FQ(,)f @beginspecial
@setspecial @endspecial(552)241 4477 y(FEXPR,)i @beginspecial
@setspecial @endspecial(618)q(,)f @beginspecial @setspecial
@endspecial(619)r(,)g @beginspecial @setspecial @endspecial(621)r(,)g
@beginspecial @setspecial @endspecial(631)241 4590 y
FJ(FEXPR)p FQ(,)f @beginspecial @setspecial @endspecial(203)241
4703 y(Fib)s(onacci,)g @beginspecial @setspecial @endspecial(542)241
4816 y FJ(Fibonacci)p FQ(,)f @beginspecial @setspecial
@endspecial(542)241 4929 y(Fib)s(onacci)h(p)s(olynomials,)f
@beginspecial @setspecial @endspecial(543)1880 555 y
FJ(FibonacciP)p FQ(,)g @beginspecial @setspecial @endspecial(543)1880
668 y FJ(FIDE)p FQ(,)i @beginspecial @setspecial @endspecial(194)q(,)h
@beginspecial @setspecial @endspecial(345)1880 781 y(\014le)f(handle,)f
@beginspecial @setspecial @endspecial(656)q({)p @beginspecial
@setspecial @endspecial(659)1880 894 y(File)h(handling,)e
@beginspecial @setspecial @endspecial(169)1880 1007 y(\014les,)i
@beginspecial @setspecial @endspecial(656)q(,)h @beginspecial
@setspecial @endspecial(657)1880 1120 y FJ(FIND)p 2078
1120 V 34 w(COMPANION)p FQ(,)d @beginspecial @setspecial
@endspecial(403)q(,)j @beginspecial @setspecial @endspecial(408)1880
1233 y FJ(FIRST)p FQ(,)f @beginspecial @setspecial @endspecial(60)1880
1346 y FJ(FIRSTROOT)p FQ(,)f @beginspecial @setspecial
@endspecial(515)1880 1458 y(FIX,)i @beginspecial @setspecial
@endspecial(641)r(,)f @beginspecial @setspecial @endspecial(643)1880
1571 y FJ(FIX)p FQ(,)g @beginspecial @setspecial @endspecial(81)1880
1684 y(FIXP)-8 b(,)32 b @beginspecial @setspecial @endspecial(624)1880
1797 y FJ(FIXP)p FQ(,)e @beginspecial @setspecial @endspecial(56)1880
1910 y FJ(FJACOB)p FQ(,)f @beginspecial @setspecial @endspecial(554)
1880 2023 y(FLA)m(G,)j @beginspecial @setspecial @endspecial(616)r(,)e
@beginspecial @setspecial @endspecial(630)1880 2136 y(FLA)m(GP)-8
b(,)32 b @beginspecial @setspecial @endspecial(616)r(,)e
@beginspecial @setspecial @endspecial(630)1880 2249 y(\015ags,)h
@beginspecial @setspecial @endspecial(629)1880 2362 y(FLO)m(A)-8
b(T,)32 b @beginspecial @setspecial @endspecial(641)q(,)f
@beginspecial @setspecial @endspecial(643)1880 2475 y(\015oating)2046
2588 y(input,)e @beginspecial @setspecial @endspecial(616)2046
2700 y(output,)i @beginspecial @setspecial @endspecial(628)1880
2813 y(FLO)m(A)-8 b(TP)g(,)32 b @beginspecial @setspecial
@endspecial(624)1880 2926 y FJ(FLOOR)p FQ(,)e @beginspecial
@setspecial @endspecial(81)1880 3039 y(FLUID,)i @beginspecial
@setspecial @endspecial(616)q(,)f @beginspecial @setspecial
@endspecial(633)1880 3152 y(\015uid)2046 3265 y(in)f(tracebac)m(k,)i
@beginspecial @setspecial @endspecial(638)2046 3378 y(un)m(binding)27
b(b)m(y)k(ERR)m(OR,)f @beginspecial @setspecial @endspecial(638)1880
3491 y(\015uid)f(binding,)e @beginspecial @setspecial
@endspecial(633)1880 3604 y(\015uid)i(binding)2046 3717
y(as)i(default,)f @beginspecial @setspecial @endspecial(633)1880
3830 y(FLUIDP)-8 b(,)32 b @beginspecial @setspecial @endspecial(634)
1880 3942 y FJ(FOLLOWLINE)p FQ(,)c @beginspecial @setspecial
@endspecial(250)1880 4055 y FJ(FOR)p FQ(,)i @beginspecial
@setspecial @endspecial(74)1880 4168 y FJ(FOR)47 b(ALL)p
FQ(,)30 b @beginspecial @setspecial @endspecial(155)q(,)h
@beginspecial @setspecial @endspecial(156)1880 4281 y
FJ(FOR)47 b(EACH)p FQ(,)30 b @beginspecial @setspecial
@endspecial(67)q(,)g @beginspecial @setspecial @endspecial(68)q(,)h
@beginspecial @setspecial @endspecial(202)1880 4394 y(F)m(ORDER)g
(command,)g @beginspecial @setspecial @endspecial(343)1880
4507 y(formal)f(parameter)h(limit,)d @beginspecial @setspecial
@endspecial(621)1880 4620 y FJ(FORT)p FQ(,)i @beginspecial
@setspecial @endspecial(123)1880 4733 y FJ(FORT)p 2078
4733 V 34 w(WIDTH)p FQ(,)f @beginspecial @setspecial
@endspecial(125)1880 4846 y(F)m(OR)-8 b(TRAN,)32 b @beginspecial
@setspecial @endspecial(123)q(,)f @beginspecial @setspecial
@endspecial(124)1880 4959 y FJ(FORTUPPER)p FQ(,)e @beginspecial
@setspecial @endspecial(125)p eop
%%Page: 682 682
682 681 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(682)2553 b FM(INDEX)664 555 y FJ(FOURIER)p FQ(,)29
b @beginspecial @setspecial @endspecial(286)664 668 y(F)-8
b(ourier)30 b(cosine)g(transform,)g @beginspecial @setspecial
@endspecial(307)664 781 y(F)-8 b(ourier)30 b(Series,)g
@beginspecial @setspecial @endspecial(285)664 894 y(F)-8
b(ourier)30 b(sine)f(transform,)h @beginspecial @setspecial
@endspecial(307)664 1007 y FJ(FPART)p FQ(,)f @beginspecial
@setspecial @endspecial(554)664 1120 y FJ(FPS)p FQ(,)h
@beginspecial @setspecial @endspecial(194)q(,)h @beginspecial
@setspecial @endspecial(349)664 1233 y FJ(fps)p 814 1233
29 4 v 34 w(search)p 1136 1233 V 32 w(depth)p FQ(,)f
@beginspecial @setspecial @endspecial(350)664 1346 y(FRAME)h(command,)g
@beginspecial @setspecial @endspecial(342)664 1458 y
FJ(FREEOF)p FQ(,)e @beginspecial @setspecial @endspecial(56)664
1571 y FJ(FREQUENCY)p FQ(,)f @beginspecial @setspecial
@endspecial(244)664 1684 y FJ(Fresnel)p 1006 1684 V 33
w(C)p FQ(,)i @beginspecial @setspecial @endspecial(544)664
1797 y FJ(Fresnel)p 1006 1797 V 33 w(S)p FQ(,)g @beginspecial
@setspecial @endspecial(544)664 1910 y FJ(frobenius)p
FQ(,)e @beginspecial @setspecial @endspecial(432)664
2023 y(ft)m(yp)s(e,)j @beginspecial @setspecial @endspecial(619)664
2136 y(FUIDP)-8 b(,)32 b @beginspecial @setspecial @endspecial(616)664
2249 y FJ(FULLROOTS)p FQ(,)c @beginspecial @setspecial
@endspecial(97)664 2362 y FJ(FUN)p FQ(,)i @beginspecial
@setspecial @endspecial(552)664 2475 y(FUNAR)m(Gs)i(not)f(supp)s
(orted,)d @beginspecial @setspecial @endspecial(655)664
2588 y(FUNCTION,)i @beginspecial @setspecial @endspecial(357)r(,)g
@beginspecial @setspecial @endspecial(655)664 2700 y(F)-8
b(unction,)30 b @beginspecial @setspecial @endspecial(191)664
2813 y(function,)f @beginspecial @setspecial @endspecial(620)664
2926 y(function)830 3039 y(as)i(GLOBAL,)g @beginspecial
@setspecial @endspecial(631)830 3152 y(as)g(global,)f
@beginspecial @setspecial @endspecial(632)664 3265 y(function-p)s(oin)m
(ter,)f @beginspecial @setspecial @endspecial(618)664
3378 y(function-p)s(oin)m(ter)830 3491 y(output,)h @beginspecial
@setspecial @endspecial(628)664 3604 y(functions,)f @beginspecial
@setspecial @endspecial(616)664 3717 y FJ(FUNCVAR)p FQ(,)g
@beginspecial @setspecial @endspecial(252)664 3913 y
FJ(G)p FQ(,)h @beginspecial @setspecial @endspecial(212)664
4026 y FJ(G3)p FQ(,)g @beginspecial @setspecial @endspecial(589)664
4138 y FJ(Gamma)p FQ(,)f @beginspecial @setspecial @endspecial(542)664
4251 y(Gamma)i(function,)f @beginspecial @setspecial
@endspecial(542)664 4364 y FJ(gammatofactorial)p FQ(,)c
@beginspecial @setspecial @endspecial(604)664 4477 y(garbage)32
b(collector,)f @beginspecial @setspecial @endspecial(661)664
4590 y FJ(GCD)p FQ(,)f @beginspecial @setspecial @endspecial(137)664
4703 y FJ(GDIMENSION)p FQ(,)e @beginspecial @setspecial
@endspecial(378)664 4816 y(Gegen)m(bauer)k(p)s(olynomials,)27
b @beginspecial @setspecial @endspecial(543)664 4929
y FJ(GegenbauerP)p FQ(,)h @beginspecial @setspecial @endspecial(543)
2304 555 y(Generalised)h(Hyp)s(ergeometric)2636 668 y(functions,)g
@beginspecial @setspecial @endspecial(545)2304 781 y(generic)h
(function,)g @beginspecial @setspecial @endspecial(313)2304
894 y FJ(GENERIC)p 2646 894 V 32 w(FUNCTION)p FQ(,)f
@beginspecial @setspecial @endspecial(313)2304 1007 y
FJ(GENPOS)p FQ(,)g @beginspecial @setspecial @endspecial(330)2304
1120 y(GENSYM,)i @beginspecial @setspecial @endspecial(629)2304
1233 y FJ(GENTRAN)p FQ(,)e @beginspecial @setspecial
@endspecial(194)q(,)h @beginspecial @setspecial @endspecial(351)r(,)g
@beginspecial @setspecial @endspecial(521)2304 1346 y(GENTRAN)2470
1458 y(\014le)f(output,)i @beginspecial @setspecial @endspecial(361)
2470 1571 y(preev)-5 b(aluation,)30 b @beginspecial @setspecial
@endspecial(354)q(,)g @beginspecial @setspecial @endspecial(359)2470
1684 y(templates,)h @beginspecial @setspecial @endspecial(358)2304
1797 y(GENTRAN)f(pac)m(k)-5 b(age)2470 1910 y(example,)30
b @beginspecial @setspecial @endspecial(352)2304 2023
y(GENTRANIN)h(command,)f @beginspecial @setspecial @endspecial(358)2304
2136 y FJ(GENTRANOPT)p FQ(,)e @beginspecial @setspecial
@endspecial(521)2304 2249 y(GENTRANOUT)i(command,)g @beginspecial
@setspecial @endspecial(361)2304 2362 y(GENTRANSEG)g(switc)m(h,)g
@beginspecial @setspecial @endspecial(357)2304 2475 y(GENTRANSHUT)g
(command,)g @beginspecial @setspecial @endspecial(361)2304
2588 y FJ(GEOMETRY)p FQ(,)e @beginspecial @setspecial
@endspecial(363)2304 2700 y FJ(GEQ)p FQ(,)i @beginspecial
@setspecial @endspecial(498)2304 2813 y(GET,)g @beginspecial
@setspecial @endspecial(616)r(,)g @beginspecial @setspecial
@endspecial(630)2304 2926 y(GET)2470 3039 y(not)h(for)f(functions,)f
@beginspecial @setspecial @endspecial(630)2304 3152 y
FJ(GET)p 2454 3152 V 33 w(COLUMNS)p FQ(,)g @beginspecial
@setspecial @endspecial(403)q(,)i @beginspecial @setspecial
@endspecial(405)2304 3265 y FJ(GET)p 2454 3265 V 33 w(ROWS)p
FQ(,)f @beginspecial @setspecial @endspecial(403)q(,)h
@beginspecial @setspecial @endspecial(406)2304 3378 y(GETCSYSTEM)e
(command,)h @beginspecial @setspecial @endspecial(272)2304
3491 y(GETD,)h @beginspecial @setspecial @endspecial(616)q(,)g
@beginspecial @setspecial @endspecial(618)q(,)g @beginspecial
@setspecial @endspecial(632)2304 3604 y FJ(GETROOT)p
FQ(,)e @beginspecial @setspecial @endspecial(515)2304
3717 y(GETV,)h @beginspecial @setspecial @endspecial(639)2304
3830 y FJ(GHOSTFACTOR)p FQ(,)d @beginspecial @setspecial
@endspecial(260)2304 3942 y FJ(GINDEPENDENT)p 2886 3942
V 31 w(SETS)p FQ(,)i @beginspecial @setspecial @endspecial(378)2304
4055 y FJ(GLEXCONVERT)p FQ(,)e @beginspecial @setspecial
@endspecial(379)2304 4168 y(GLOBAL,)k @beginspecial @setspecial
@endspecial(616)q(,)g @beginspecial @setspecial @endspecial(634)2304
4281 y(global)f(binding,)d @beginspecial @setspecial
@endspecial(633)2304 4394 y(GLOBALP)-8 b(,)31 b @beginspecial
@setspecial @endspecial(616)q(,)g @beginspecial @setspecial
@endspecial(632)q(,)g @beginspecial @setspecial @endspecial(634)2304
4507 y FJ(GLTBASIS)p FQ(,)d @beginspecial @setspecial
@endspecial(378)r(,)i @beginspecial @setspecial @endspecial(382)2304
4620 y FJ(GNUPLOT)p FQ(,)f @beginspecial @setspecial
@endspecial(194)q(,)h @beginspecial @setspecial @endspecial(371)2304
4733 y(GO,)g @beginspecial @setspecial @endspecial(620)r(,)g
@beginspecial @setspecial @endspecial(636)2304 4846 y(GO)2470
4959 y(in)f(COND,)i @beginspecial @setspecial @endspecial(636)q(,)f
@beginspecial @setspecial @endspecial(640)p eop
%%Page: 683 683
683 682 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(683)241 555 y FJ(GO)47 b(TO)p FQ(,)30
b @beginspecial @setspecial @endspecial(72)q(,)g @beginspecial
@setspecial @endspecial(73)241 668 y FJ(Golden)p 535
668 29 4 v 32 w(Ratio)p FQ(,)g @beginspecial @setspecial
@endspecial(541)241 781 y FJ(gosper)p FQ(,)f @beginspecial
@setspecial @endspecial(599)241 894 y(Gosp)s(er's)h(Algorithm,)f
@beginspecial @setspecial @endspecial(547)241 1007 y
FJ(GRA)p FQ(,)g @beginspecial @setspecial @endspecial(554)241
1120 y(GRAD)407 1233 y(op)s(erator,)i @beginspecial @setspecial
@endspecial(271)241 1346 y(grad)f(op)s(erator,)h @beginspecial
@setspecial @endspecial(456)241 1458 y(gradien)m(t)407
1571 y(v)m(ector)h(\014eld,)d @beginspecial @setspecial
@endspecial(271)241 1684 y FJ(GRADLEX)p FQ(,)f @beginspecial
@setspecial @endspecial(389)241 1797 y(GRADLEX)407 1910
y(term)i(order,)g @beginspecial @setspecial @endspecial(376)241
2023 y FJ(GRAM)p 439 2023 V 33 w(SCHMIDT)p FQ(,)f @beginspecial
@setspecial @endspecial(404)q(,)i @beginspecial @setspecial
@endspecial(411)241 2136 y FJ(GRAS)p FQ(,)e @beginspecial
@setspecial @endspecial(552)241 2249 y(Grassmann)g(Op)s(erators,)h
@beginspecial @setspecial @endspecial(259)241 2362 y
FJ(GRASSMANN)p 679 2362 V 32 w(VARIETY)p FQ(,)e @beginspecial
@setspecial @endspecial(329)241 2475 y FJ(GRASSP)p FQ(,)h
@beginspecial @setspecial @endspecial(260)241 2588 y
FJ(GRASSPARITY)p FQ(,)e @beginspecial @setspecial @endspecial(260)241
2700 y(GREA)-8 b(TERP)g(,)31 b @beginspecial @setspecial
@endspecial(643)241 2813 y FJ(GREATERP)p FQ(,)d @beginspecial
@setspecial @endspecial(498)241 2926 y FJ(GREDUCE)p FQ(,)g
@beginspecial @setspecial @endspecial(383)241 3039 y
FJ(GROEBFULLREDUCTION)p FQ(,)d @beginspecial @setspecial
@endspecial(378)r(,)30 b @beginspecial @setspecial @endspecial(382)241
3152 y FJ(GROEBNER)p FQ(,)e @beginspecial @setspecial
@endspecial(195)q(,)j @beginspecial @setspecial @endspecial(375)q(,)g
@beginspecial @setspecial @endspecial(377)241 3265 y(Gro)s(ebner,)f
@beginspecial @setspecial @endspecial(95)241 3378 y(Gro)s(ebner)f
(Bases,)j @beginspecial @setspecial @endspecial(425)241
3491 y(GR)m(OEBNER)f(pac)m(k)-5 b(age,)32 b @beginspecial
@setspecial @endspecial(375)241 3604 y(GR)m(OEBNER)f(pac)m(k)-5
b(age)407 3717 y(example,)30 b @beginspecial @setspecial
@endspecial(377)241 3830 y FJ(GROEBNERF)p FQ(,)e @beginspecial
@setspecial @endspecial(381)q(,)j @beginspecial @setspecial
@endspecial(384)241 3942 y FJ(GROEBOPT)p FQ(,)d @beginspecial
@setspecial @endspecial(378)q(,)j @beginspecial @setspecial
@endspecial(382)241 4055 y FJ(GROEBRESTRICTION)p FQ(,)26
b @beginspecial @setspecial @endspecial(382)241 4168
y FJ(GROEBSTAT)p FQ(,)i @beginspecial @setspecial @endspecial(382)241
4281 y FJ(GROESOLVE)p FQ(,)g @beginspecial @setspecial
@endspecial(384)241 4394 y(Group)h(statemen)m(t,)k @beginspecial
@setspecial @endspecial(65)q(,)d @beginspecial @setspecial
@endspecial(66)q(,)h @beginspecial @setspecial @endspecial(70)241
4507 y FJ(GSYS)p FQ(,)e @beginspecial @setspecial @endspecial(291)241
4620 y FJ(GSYS2CGB)p FQ(,)f @beginspecial @setspecial
@endspecial(292)241 4733 y FJ(GVARS)p FQ(,)h @beginspecial
@setspecial @endspecial(377)241 4846 y FJ(GVARSLAST)p
FQ(,)f @beginspecial @setspecial @endspecial(378)241
4959 y FJ(gvarslast)p FQ(,)g @beginspecial @setspecial
@endspecial(377)1880 555 y FJ(GZERODIM?)p FQ(,)h @beginspecial
@setspecial @endspecial(378)1880 751 y(Hank)m(el)i(functions,)e
@beginspecial @setspecial @endspecial(542)1880 864 y(Hank)m(el)i
(transform,)f @beginspecial @setspecial @endspecial(307)1880
977 y FJ(Hankel1)p FQ(,)f @beginspecial @setspecial @endspecial(542)
1880 1090 y FJ(Hankel2)p FQ(,)g @beginspecial @setspecial
@endspecial(542)1880 1203 y FJ(HARMONIC)p FQ(,)g @beginspecial
@setspecial @endspecial(285)1880 1316 y FJ(HCONCMAT)p
FQ(,)g @beginspecial @setspecial @endspecial(262)1880
1429 y FJ(HDIFF)p FQ(,)h @beginspecial @setspecial @endspecial(286)1880
1542 y FJ(HERMAT)p FQ(,)f @beginspecial @setspecial @endspecial(262)
1880 1654 y(Hermite)i(p)s(olynomials,)d @beginspecial
@setspecial @endspecial(543)1880 1767 y FJ(Hermite)p
2222 1767 V 33 w(base)p FQ(,)h @beginspecial @setspecial
@endspecial(446)1880 1880 y FJ(HermiteP)p FQ(,)g @beginspecial
@setspecial @endspecial(543)1880 1993 y FJ(HERMITIAN)p
2318 1993 V 32 w(TP)p FQ(,)h @beginspecial @setspecial
@endspecial(403)r(,)g @beginspecial @setspecial @endspecial(406)1880
2106 y FJ(HESSIAN)p FQ(,)f @beginspecial @setspecial
@endspecial(404)q(,)i @beginspecial @setspecial @endspecial(408)1880
2219 y(HF)-10 b(A)m(CTORS)30 b(scale)h(factors,)g @beginspecial
@setspecial @endspecial(272)1880 2332 y FJ(hidden3d)p
FQ(,)e @beginspecial @setspecial @endspecial(372)1880
2445 y(High)h(energy)h(trace,)h @beginspecial @setspecial
@endspecial(215)1880 2558 y(High)e(energy)h(v)m(ector)h(expression,)
2213 2671 y @beginspecial @setspecial @endspecial(211)q(,)e
@beginspecial @setspecial @endspecial(214)1880 2784 y
FJ(HIGH)p 2078 2784 V 34 w(POW)p FQ(,)f @beginspecial
@setspecial @endspecial(129)1880 2896 y FJ(HIGHESTDERIV)p
FQ(,)f @beginspecial @setspecial @endspecial(450)1880
3009 y FJ(HILBERT)p FQ(,)h @beginspecial @setspecial
@endspecial(404)q(,)i @beginspecial @setspecial @endspecial(409)1880
3122 y FJ(HINT)p FQ(,)f @beginspecial @setspecial @endspecial(286)1880
3235 y(History)-8 b(,)31 b @beginspecial @setspecial
@endspecial(174)1880 3348 y(Ho)s(dge-*)h(dualit)m(y)d(op)s(erator,)i
@beginspecial @setspecial @endspecial(338)q(,)2213 3461
y @beginspecial @setspecial @endspecial(343)1880 3574
y FJ(HSUB)p FQ(,)f @beginspecial @setspecial @endspecial(286)1880
3687 y FJ(hyperrecursion)p FQ(,)d @beginspecial @setspecial
@endspecial(602)1880 3800 y FJ(hypersum)p FQ(,)i @beginspecial
@setspecial @endspecial(602)1880 3913 y FJ(hyperterm)p
FQ(,)g @beginspecial @setspecial @endspecial(602)1880
4026 y FJ(HYPEXPAND)p FQ(,)g @beginspecial @setspecial
@endspecial(258)1880 4138 y FJ(HYPOT)p FQ(,)h @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)1880 4251 y FJ(HYPREDUCE)p FQ(,)f @beginspecial
@setspecial @endspecial(258)1880 4447 y FJ(I)p FQ(,)i
@beginspecial @setspecial @endspecial(46)1880 4560 y(i,)f
@beginspecial @setspecial @endspecial(239)1880 4673 y
FJ(I)p 1934 4673 V 35 w(SOLVE)p FQ(,)f @beginspecial
@setspecial @endspecial(519)1880 4786 y FJ(iBeta)p FQ(,)h
@beginspecial @setspecial @endspecial(542)1880 4899 y(id)p
eop
%%Page: 684 684
684 683 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(684)2553 b FM(INDEX)830 555 y FQ(escap)s(e)31 b(c)m(haracter,)h
@beginspecial @setspecial @endspecial(617)830 668 y(input,)d
@beginspecial @setspecial @endspecial(616)830 781 y(maxim)m(um)g
(length,)h @beginspecial @setspecial @endspecial(617)830
894 y(minim)m(um)e(size,)i @beginspecial @setspecial
@endspecial(629)830 1007 y(output,)g @beginspecial @setspecial
@endspecial(628)664 1120 y(id-list,)f @beginspecial @setspecial
@endspecial(619)664 1233 y FJ(ideal)47 b(dimension)p
FQ(,)28 b @beginspecial @setspecial @endspecial(378)664
1346 y FJ(IDEALQUOTIENT)p FQ(,)f @beginspecial @setspecial
@endspecial(384)664 1458 y FJ(IDEALS)p FQ(,)i @beginspecial
@setspecial @endspecial(195)q(,)i @beginspecial @setspecial
@endspecial(385)664 1571 y(Iden)m(ti\014er,)f @beginspecial
@setspecial @endspecial(45)664 1684 y(iden)m(ti\014er)f(\(see)i(id\),)f
@beginspecial @setspecial @endspecial(616)664 1797 y(IDP)-8
b(,)31 b @beginspecial @setspecial @endspecial(624)664
1910 y FJ(IF)p FQ(,)f @beginspecial @setspecial @endspecial(65)q(,)h
@beginspecial @setspecial @endspecial(66)664 2023 y FJ(IFACTOR)p
FQ(,)e @beginspecial @setspecial @endspecial(135)664
2136 y FJ(iGamma)p FQ(,)g @beginspecial @setspecial @endspecial(542)664
2249 y FJ(IMAGINARY)p FQ(,)f @beginspecial @setspecial
@endspecial(409)664 2362 y(imaginary)h(unit,)g @beginspecial
@setspecial @endspecial(239)664 2475 y FJ(IMPART)p FQ(,)g
@beginspecial @setspecial @endspecial(80)q(,)i @beginspecial
@setspecial @endspecial(81,)g @beginspecial @setspecial
@endspecial(83)664 2588 y FJ(IMPL)p FQ(,)f @beginspecial
@setspecial @endspecial(497)664 2700 y FJ(IMPLICIT)p
FQ(,)f @beginspecial @setspecial @endspecial(252)664
2813 y(IMPLICIT)g(option,)h @beginspecial @setspecial
@endspecial(357)664 2926 y(IMPLICIT)p 1102 2926 28 4
v 32 w(T)-8 b(A)g(YLOR)30 b(op)s(erator,)996 3039 y @beginspecial
@setspecial @endspecial(562)664 3152 y FJ(IN)p FQ(,)g
@beginspecial @setspecial @endspecial(169)664 3265 y(incomplete)g(Beta)
i(function,)d @beginspecial @setspecial @endspecial(542)664
3378 y(incomplete)h(Gamma)h(function,)e @beginspecial
@setspecial @endspecial(542)664 3491 y(Inde\014nite)g(in)m(tegration,)h
@beginspecial @setspecial @endspecial(88)664 3604 y FJ(INDEPENDENCE)p
FQ(,)d @beginspecial @setspecial @endspecial(327)664
3717 y FJ(independent)45 b(sets)p FQ(,)29 b @beginspecial
@setspecial @endspecial(378)664 3830 y FJ(INDEX)p FQ(,)g
@beginspecial @setspecial @endspecial(212)664 3942 y
FJ(INDEX)p 910 3942 29 4 v 33 w(EXPAND)p FQ(,)g @beginspecial
@setspecial @endspecial(330)664 4055 y(INDEXSYMMETRIES)996
4168 y(command,)i @beginspecial @setspecial @endspecial(340)664
4281 y FJ(INEQ)p FQ(,)f @beginspecial @setspecial @endspecial(195)q(,)h
@beginspecial @setspecial @endspecial(387)664 4394 y
FJ(INFINITY)p FQ(,)e @beginspecial @setspecial @endspecial(46,)i
@beginspecial @setspecial @endspecial(514)664 4507 y
FJ(INFIX)p FQ(,)e @beginspecial @setspecial @endspecial(108)664
4620 y(In\014x)g(op)s(erator,)i @beginspecial @setspecial
@endspecial(48)q({)p @beginspecial @setspecial @endspecial(51)664
4733 y(inner)e(pro)s(duct,)g @beginspecial @setspecial
@endspecial(456)664 4846 y(inner)g(pro)s(duct)830 4959
y(exterior)i(form,)f @beginspecial @setspecial @endspecial(337)2304
555 y(INPUT,)g @beginspecial @setspecial @endspecial(657)2304
668 y FJ(INPUT)p FQ(,)f @beginspecial @setspecial @endspecial(174)2304
781 y(Input,)g @beginspecial @setspecial @endspecial(169)2304
894 y FJ(INSERT)p FQ(,)g @beginspecial @setspecial @endspecial(244)2304
1007 y FJ(INSERT)p 2598 1007 V 33 w(KEEP)p 2823 1007
V 33 w(ORDER)p FQ(,)g @beginspecial @setspecial @endspecial(244)2304
1120 y(Instan)m(t)h(ev)-5 b(aluation,)31 b @beginspecial
@setspecial @endspecial(76)q(,)f @beginspecial @setspecial
@endspecial(131)q(,)h @beginspecial @setspecial @endspecial(154)q(,)
2636 1233 y @beginspecial @setspecial @endspecial(178)q(,)g
@beginspecial @setspecial @endspecial(180)2304 1346 y
FJ(INT)p FQ(,)f @beginspecial @setspecial @endspecial(88)q(,)g
@beginspecial @setspecial @endspecial(176)q(,)h @beginspecial
@setspecial @endspecial(231)q(,)g @beginspecial @setspecial
@endspecial(305)2304 1458 y FJ(INTEGER)p FQ(,)e @beginspecial
@setspecial @endspecial(71)2304 1571 y(In)m(teger,)i
@beginspecial @setspecial @endspecial(54)2304 1684 y(in)m(teger)2470
1797 y(input,)e @beginspecial @setspecial @endspecial(615)2470
1910 y(magnitude,)h @beginspecial @setspecial @endspecial(615)q(,)h
@beginspecial @setspecial @endspecial(641)2470 2023 y(output,)f
@beginspecial @setspecial @endspecial(628)2304 2136 y(in)m(teger-list,)
g @beginspecial @setspecial @endspecial(619)2304 2249
y FJ(INTEGRAL)p 2694 2249 V 32 w(ELEMENT)p FQ(,)f @beginspecial
@setspecial @endspecial(329)2304 2362 y(In)m(tegration,)i
@beginspecial @setspecial @endspecial(88)q(,)g @beginspecial
@setspecial @endspecial(106)2304 2475 y(in)m(tegration)2470
2588 y(de\014nite)e(\(simple\),)g @beginspecial @setspecial
@endspecial(274)2470 2700 y(line,)g @beginspecial @setspecial
@endspecial(275)2470 2813 y(v)m(olume,)h @beginspecial
@setspecial @endspecial(274)2304 2926 y(In)m(teractiv)m(e)i(use,)e
@beginspecial @setspecial @endspecial(173)q(,)h @beginspecial
@setspecial @endspecial(176)2304 3039 y(INTERN,)f @beginspecial
@setspecial @endspecial(616)q(,)h @beginspecial @setspecial
@endspecial(629)q(,)g @beginspecial @setspecial @endspecial(659)2304
3152 y FJ(INTERPOL)p FQ(,)d @beginspecial @setspecial
@endspecial(142)2304 3265 y FJ(INTERSECT)p FQ(,)g @beginspecial
@setspecial @endspecial(249)2304 3378 y FJ(intersect)p
FQ(,)g @beginspecial @setspecial @endspecial(526)2304
3491 y FJ(INTERSECTION)p 2886 3491 V 31 w(POINT)p FQ(,)h
@beginspecial @setspecial @endspecial(365)2304 3604 y(In)m(terv)-5
b(al,)30 b @beginspecial @setspecial @endspecial(437)2304
3717 y(In)m(tro)s(duction,)f @beginspecial @setspecial
@endspecial(37)2304 3830 y FJ(INTSTR)p FQ(,)g @beginspecial
@setspecial @endspecial(112)2304 3942 y FJ(INVARIANTS)p
FQ(,)f @beginspecial @setspecial @endspecial(330)2304
4055 y FJ(INVBASE)p FQ(,)h @beginspecial @setspecial
@endspecial(195)q(,)h @beginspecial @setspecial @endspecial(389)r(,)g
@beginspecial @setspecial @endspecial(390)2304 4168 y
FJ(INVERSE)p FQ(,)f @beginspecial @setspecial @endspecial(555)2304
4281 y(INVERSE)p 2720 4281 28 4 v 32 w(T)-8 b(A)g(YLOR,)31
b @beginspecial @setspecial @endspecial(562)2304 4394
y FJ(INVERT)p FQ(,)e @beginspecial @setspecial @endspecial(330)2304
4507 y FJ(INVLAP)p FQ(,)g @beginspecial @setspecial @endspecial(393)
2304 4620 y FJ(INVOLUTION)p FQ(,)f @beginspecial @setspecial
@endspecial(329)2304 4733 y FJ(INVOLUTIVE)p FQ(,)g @beginspecial
@setspecial @endspecial(330)2304 4846 y FJ(INVTORDER)p
FQ(,)g @beginspecial @setspecial @endspecial(390)2304
4959 y FJ(invztrans)p FQ(,)g @beginspecial @setspecial
@endspecial(609)p eop
%%Page: 685 685
685 684 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(685)241 555 y FJ(ISOLATER)p FQ(,)28
b @beginspecial @setspecial @endspecial(514)241 743 y
FJ(JACOB)p FQ(,)h @beginspecial @setspecial @endspecial(554)241
856 y(Jacobi)h(Elliptic)d(F)-8 b(unctions)30 b(and)573
969 y(In)m(tegrals,)h @beginspecial @setspecial @endspecial(544)241
1082 y(Jacobi's)f(p)s(olynomials,)e @beginspecial @setspecial
@endspecial(543)241 1195 y FJ(JACOBIAN)p FQ(,)g @beginspecial
@setspecial @endspecial(404)q(,)j @beginspecial @setspecial
@endspecial(409)q(,)g @beginspecial @setspecial @endspecial(440)241
1308 y FJ(Jacobicd)p FQ(,)d @beginspecial @setspecial
@endspecial(544)241 1421 y FJ(Jacobicn)p FQ(,)g @beginspecial
@setspecial @endspecial(544)241 1534 y FJ(Jacobics)p
FQ(,)g @beginspecial @setspecial @endspecial(544)241
1647 y FJ(Jacobidc)p FQ(,)g @beginspecial @setspecial
@endspecial(544)241 1760 y FJ(Jacobidn)p FQ(,)g @beginspecial
@setspecial @endspecial(544)241 1872 y FJ(Jacobids)p
FQ(,)g @beginspecial @setspecial @endspecial(544)241
1985 y FJ(Jacobinc)p FQ(,)g @beginspecial @setspecial
@endspecial(544)241 2098 y FJ(Jacobind)p FQ(,)g @beginspecial
@setspecial @endspecial(544)241 2211 y FJ(Jacobins)p
FQ(,)g @beginspecial @setspecial @endspecial(544)241
2324 y FJ(JacobiP)p FQ(,)g @beginspecial @setspecial
@endspecial(543)241 2437 y FJ(Jacobisc)p FQ(,)g @beginspecial
@setspecial @endspecial(544)241 2550 y FJ(Jacobisd)p
FQ(,)g @beginspecial @setspecial @endspecial(544)241
2663 y FJ(Jacobisn)p FQ(,)g @beginspecial @setspecial
@endspecial(544)241 2776 y FJ(JOIN)p FQ(,)h @beginspecial
@setspecial @endspecial(67)241 2889 y FJ(jordan)p FQ(,)g
@beginspecial @setspecial @endspecial(434)241 3002 y
FJ(JORDAN)p 535 3002 29 4 v 32 w(BLOCK)p FQ(,)h @beginspecial
@setspecial @endspecial(404)q(,)h @beginspecial @setspecial
@endspecial(409)241 3114 y FJ(jordansymbolic)p FQ(,)26
b @beginspecial @setspecial @endspecial(433)241 3303
y(K-transform,)k @beginspecial @setspecial @endspecial(307)241
3416 y FJ(KBASIS)p FQ(,)f @beginspecial @setspecial @endspecial(266)241
3528 y(KEEP)g(command,)i @beginspecial @setspecial @endspecial(343)241
3641 y(Kernel,)e @beginspecial @setspecial @endspecial(111)r(,)h
@beginspecial @setspecial @endspecial(112)q(,)h @beginspecial
@setspecial @endspecial(115)q(,)g @beginspecial @setspecial
@endspecial(128)241 3754 y(k)m(ernel)f(form,)g @beginspecial
@setspecial @endspecial(112)241 3867 y FJ(KERNLIST)p
FQ(,)e @beginspecial @setspecial @endspecial(244)241
3980 y FJ(Khinchin)p FQ(,)g @beginspecial @setspecial
@endspecial(541)241 4093 y FJ(KORDER)p FQ(,)h @beginspecial
@setspecial @endspecial(128)q(,)i @beginspecial @setspecial
@endspecial(464)241 4206 y FJ(KORDERLIST)p FQ(,)d @beginspecial
@setspecial @endspecial(252)241 4319 y FJ(KRONECKER)p
679 4319 V 32 w(PRODUCT)p FQ(,)g @beginspecial @setspecial
@endspecial(404)r(,)i @beginspecial @setspecial @endspecial(410)241
4432 y(Kummer)f(functions,)g @beginspecial @setspecial
@endspecial(543)241 4545 y FJ(KummerM)p FQ(,)f @beginspecial
@setspecial @endspecial(543)241 4658 y FJ(KummerU)p FQ(,)g
@beginspecial @setspecial @endspecial(543)241 4846 y(l'H^)-45
b(opital's)29 b(rule,)g @beginspecial @setspecial @endspecial(399)r(,)h
@beginspecial @setspecial @endspecial(458)241 4959 y
FJ(L2)p 343 4959 V 34 w(ANGLE)p FQ(,)f @beginspecial
@setspecial @endspecial(365)1880 555 y(Lab)s(el,)h @beginspecial
@setspecial @endspecial(72)q(,)g @beginspecial @setspecial
@endspecial(73)1880 668 y(Laguerre)h(p)s(olynomials,)d
@beginspecial @setspecial @endspecial(543)1880 781 y
FJ(Laguerre)p 2270 781 V 33 w(base)p FQ(,)h @beginspecial
@setspecial @endspecial(446)1880 894 y FJ(LaguerreP)p
FQ(,)g @beginspecial @setspecial @endspecial(543)1880
1007 y FJ(laline!*)p FQ(,)g @beginspecial @setspecial
@endspecial(510)1880 1120 y(LAMBD)m(A,)k @beginspecial
@setspecial @endspecial(620)1880 1233 y FJ(LAMBDA)p FQ(,)c
@beginspecial @setspecial @endspecial(201)1880 1346 y(lam)m(b)s(da)h
(expression,)f @beginspecial @setspecial @endspecial(620)1880
1458 y(Lam)m(b)s(ert)i FL(!)i FQ(function,)c @beginspecial
@setspecial @endspecial(544)1880 1571 y(Lam)m(b)s(ert's)i(W,)g
@beginspecial @setspecial @endspecial(95)1880 1684 y
FJ(Lambert)p 2222 1684 V 33 w(W)p FQ(,)f @beginspecial
@setspecial @endspecial(544)1880 1797 y FJ(LAPLACE)p
FQ(,)f @beginspecial @setspecial @endspecial(195)q(,)i
@beginspecial @setspecial @endspecial(393)1880 1910 y(Laplace)g
(transform,)f @beginspecial @setspecial @endspecial(307)1880
2023 y(Laplacian)2046 2136 y(v)m(ector)i(\014eld,)e @beginspecial
@setspecial @endspecial(271)1880 2249 y FJ(lasimp)p FQ(,)f
@beginspecial @setspecial @endspecial(509)1880 2362 y
FJ(LAST)p FQ(,)h @beginspecial @setspecial @endspecial(245)1880
2475 y FJ(latex)p FQ(,)g @beginspecial @setspecial @endspecial(509)1880
2588 y(Lauren)m(t)h(series,)f @beginspecial @setspecial
@endspecial(561)1880 2700 y(Lauren)m(t)h(series)f(expansions,)f
@beginspecial @setspecial @endspecial(567)1880 2813 y
FJ(LCM)p FQ(,)h @beginspecial @setspecial @endspecial(138)1880
2926 y FJ(LCOF)p FQ(,)g @beginspecial @setspecial @endspecial(144)1880
3039 y(Leading)g(co)s(e\016cien)m(t,)i @beginspecial
@setspecial @endspecial(144)1880 3152 y FJ(LEADTERM)p
FQ(,)d @beginspecial @setspecial @endspecial(257)1880
3265 y(Legendre)i(p)s(olynomials,)d @beginspecial @setspecial
@endspecial(187)q(,)j @beginspecial @setspecial @endspecial(543)1880
3378 y FJ(Legendre)p 2270 3378 V 33 w(base)p FQ(,)e @beginspecial
@setspecial @endspecial(446)1880 3491 y FJ(LegendreP)p
FQ(,)g @beginspecial @setspecial @endspecial(543)1880
3604 y(LENGTH,)i @beginspecial @setspecial @endspecial(649)1880
3717 y FJ(LENGTH)p FQ(,)e @beginspecial @setspecial @endspecial(59)q(,)
i @beginspecial @setspecial @endspecial(76)q(,)f @beginspecial
@setspecial @endspecial(90)q(,)h @beginspecial @setspecial
@endspecial(133)q(,)g @beginspecial @setspecial @endspecial(135)q(,)g
@beginspecial @setspecial @endspecial(179)q(,)2213 3830
y @beginspecial @setspecial @endspecial(499)1880 3942
y FJ(LEQ)p FQ(,)f @beginspecial @setspecial @endspecial(498)1880
4055 y(Lerc)m(h)h(Phi)e(function,)g @beginspecial @setspecial
@endspecial(544)1880 4168 y FJ(Lerch)p 2126 4168 V 33
w(Phi)p FQ(,)h @beginspecial @setspecial @endspecial(544)1880
4281 y(LESSP)-8 b(,)30 b @beginspecial @setspecial @endspecial(643)1880
4394 y FJ(LESSP)p FQ(,)g @beginspecial @setspecial @endspecial(498)1880
4507 y FJ(LET)p FQ(,)g @beginspecial @setspecial @endspecial(85)q(,)h
@beginspecial @setspecial @endspecial(87)q(,)f @beginspecial
@setspecial @endspecial(100)q(,)h @beginspecial @setspecial
@endspecial(106)q({)p @beginspecial @setspecial @endspecial(108)r(,)g
@beginspecial @setspecial @endspecial(152)q(,)2213 4620
y @beginspecial @setspecial @endspecial(161)q(,)f @beginspecial
@setspecial @endspecial(189)r(,)g @beginspecial @setspecial
@endspecial(190)1880 4733 y(Levi-Cevita)h(tensor,)f @beginspecial
@setspecial @endspecial(343)1880 4846 y FJ(LEX)p FQ(,)g
@beginspecial @setspecial @endspecial(389)1880 4959 y(LEX)p
eop
%%Page: 686 686
686 685 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(686)2553 b FM(INDEX)830 555 y FQ(term)31 b(order,)f
@beginspecial @setspecial @endspecial(376)664 668 y FJ(LHS)p
FQ(,)g @beginspecial @setspecial @endspecial(57)664 781
y FJ(li)p FQ(,)g @beginspecial @setspecial @endspecial(544)664
894 y FJ(LIE)p FQ(,)g @beginspecial @setspecial @endspecial(195)q(,)h
@beginspecial @setspecial @endspecial(397)664 1007 y(Lie)f(Deriv)-5
b(ativ)m(e,)31 b @beginspecial @setspecial @endspecial(338)664
1120 y FJ(LIE)p 814 1120 29 4 v 34 w(LIST)p FQ(,)e @beginspecial
@setspecial @endspecial(398)664 1233 y FJ(LIECLASS)p
FQ(,)g @beginspecial @setspecial @endspecial(398)664
1346 y FJ(LIENDIMCOM1)p FQ(,)f @beginspecial @setspecial
@endspecial(397)664 1458 y FJ(LIFT)p FQ(,)i @beginspecial
@setspecial @endspecial(328)664 1571 y FJ(LIMIT)p FQ(,)f
@beginspecial @setspecial @endspecial(399)r(,)h @beginspecial
@setspecial @endspecial(458)664 1684 y FJ(LIMIT+)p FQ(,)f
@beginspecial @setspecial @endspecial(400)664 1797 y
FJ(LIMIT-)p FQ(,)g @beginspecial @setspecial @endspecial(400)664
1910 y FJ(LIMITS)p FQ(,)g @beginspecial @setspecial @endspecial(195)q
(,)i @beginspecial @setspecial @endspecial(399)664 2023
y FJ(LINALG)p FQ(,)e @beginspecial @setspecial @endspecial(195)q(,)i
@beginspecial @setspecial @endspecial(403)664 2136 y
FJ(LINE)p FQ(,)f @beginspecial @setspecial @endspecial(365)664
2249 y(line)f(in)m(tegrals,)h @beginspecial @setspecial
@endspecial(275)664 2362 y FJ(LINEAR)p FQ(,)f @beginspecial
@setspecial @endspecial(105)664 2475 y(Linear)h(op)s(erator,)g
@beginspecial @setspecial @endspecial(105)r(,)g @beginspecial
@setspecial @endspecial(106)r(,)g @beginspecial @setspecial
@endspecial(109)664 2588 y FJ(LINEAR)p 958 2588 V 33
w(DIVISORS)p FQ(,)e @beginspecial @setspecial @endspecial(330)664
2700 y FJ(LINEARISE)p FQ(,)g @beginspecial @setspecial
@endspecial(329)664 2813 y FJ(LINEINT)p FQ(,)h @beginspecial
@setspecial @endspecial(458)664 2926 y(LINEINT)h(function,)f
@beginspecial @setspecial @endspecial(275)664 3039 y(LINELENGTH,)h
@beginspecial @setspecial @endspecial(656)664 3152 y
FJ(LINELENGTH)p FQ(,)e @beginspecial @setspecial @endspecial(114)664
3265 y FJ(LISP)p FQ(,)i @beginspecial @setspecial @endspecial(197)664
3378 y(Lisp,)f @beginspecial @setspecial @endspecial(197)664
3491 y(LIST,)h @beginspecial @setspecial @endspecial(627)664
3604 y FJ(LIST)p FQ(,)g @beginspecial @setspecial @endspecial(117)664
3717 y(List,)g @beginspecial @setspecial @endspecial(59)664
3830 y(list,)f @beginspecial @setspecial @endspecial(619)664
3942 y FJ(list)p FQ(,)h @beginspecial @setspecial @endspecial(93)664
4055 y(List)g(op)s(eration,)g @beginspecial @setspecial
@endspecial(59)q(,)g @beginspecial @setspecial @endspecial(61)664
4168 y(list-notation,)g @beginspecial @setspecial @endspecial(619)664
4281 y FJ(LIST)p 862 4281 V 33 w(TO)p 991 4281 V 34 w(ARRAY)p
FQ(,)f @beginspecial @setspecial @endspecial(259)664
4394 y FJ(LIST)p 862 4394 V 33 w(TO)p 991 4394 V 34 w(IDS)p
FQ(,)h @beginspecial @setspecial @endspecial(249)664
4507 y FJ(LISTARGP)p FQ(,)f @beginspecial @setspecial
@endspecial(61)664 4620 y FJ(LISTARGS)p FQ(,)g @beginspecial
@setspecial @endspecial(61)664 4733 y FJ(LISTBAG)p FQ(,)g
@beginspecial @setspecial @endspecial(248)664 4846 y(LITER,)h
@beginspecial @setspecial @endspecial(649)664 4959 y
FJ(LN)p FQ(,)g @beginspecial @setspecial @endspecial(83)q(,)h
@beginspecial @setspecial @endspecial(86)2304 555 y FJ(LOAD)p
FQ(,)e @beginspecial @setspecial @endspecial(220)2304
668 y FJ(LOAD)p 2502 668 V 33 w(PACKAGE)p FQ(,)g @beginspecial
@setspecial @endspecial(193)q(,)i @beginspecial @setspecial
@endspecial(221)2304 781 y(lo)s(cal)f(binding,)d @beginspecial
@setspecial @endspecial(633)2304 894 y FJ(LOG)p FQ(,)j
@beginspecial @setspecial @endspecial(83)q(,)g @beginspecial
@setspecial @endspecial(86)q(,)h @beginspecial @setspecial
@endspecial(90)2304 1007 y FJ(LOG10)p FQ(,)e @beginspecial
@setspecial @endspecial(83)q(,)i @beginspecial @setspecial
@endspecial(86)2304 1120 y FJ(LOGB)p FQ(,)e @beginspecial
@setspecial @endspecial(83)q(,)i @beginspecial @setspecial
@endspecial(86)2304 1233 y(Lommel)f(functions,)f @beginspecial
@setspecial @endspecial(543)2304 1346 y FJ(Lommel1)p
FQ(,)g @beginspecial @setspecial @endspecial(543)2304
1458 y FJ(Lommel2)p FQ(,)g @beginspecial @setspecial
@endspecial(543)2304 1571 y(Lo)s(op,)h @beginspecial
@setspecial @endspecial(67)q(,)h @beginspecial @setspecial
@endspecial(68)2304 1684 y FJ(LOT)p FQ(,)f @beginspecial
@setspecial @endspecial(365)2304 1797 y FJ(LOW)p 2454
1797 V 33 w(POW)p FQ(,)g @beginspecial @setspecial @endspecial(129)2304
1910 y FJ(LOWER)p 2550 1910 V 33 w(MATRIX)p FQ(,)f @beginspecial
@setspecial @endspecial(409)2304 2023 y FJ(LOWESTDEG)p
FQ(,)f @beginspecial @setspecial @endspecial(258)2304
2136 y FJ(lpon)p FQ(,)h @beginspecial @setspecial @endspecial(393)2304
2249 y(LPOSN,)g @beginspecial @setspecial @endspecial(656)2304
2362 y FJ(LPOWER)p FQ(,)g @beginspecial @setspecial @endspecial(145)
2304 2475 y FJ(LRSETQ)p FQ(,)g @beginspecial @setspecial
@endspecial(356)2304 2588 y(lrsetq)h(op)s(erator,)h @beginspecial
@setspecial @endspecial(355)2304 2700 y FJ(LSETQ)p FQ(,)e
@beginspecial @setspecial @endspecial(355)2304 2813 y(lsetq)h(op)s
(erator,)h @beginspecial @setspecial @endspecial(354)2304
2926 y FJ(LTERM)p FQ(,)e @beginspecial @setspecial @endspecial(145)q(,)
i @beginspecial @setspecial @endspecial(209)2304 3039
y FJ(ltrig)p FQ(,)e @beginspecial @setspecial @endspecial(393)2304
3152 y FJ(LU)p 2406 3152 V 34 w(DECOM)p FQ(,)g @beginspecial
@setspecial @endspecial(404)q(,)i @beginspecial @setspecial
@endspecial(411)2304 3265 y FJ(LYST)p FQ(,)e @beginspecial
@setspecial @endspecial(554)2304 3378 y FJ(LYST1)p FQ(,)g
@beginspecial @setspecial @endspecial(554)2304 3491 y
FJ(LYST2)p FQ(,)g @beginspecial @setspecial @endspecial(554)2304
3687 y FJ(M)p FQ(,)h @beginspecial @setspecial @endspecial(470)2304
3800 y FJ(M)p 2358 3800 V 34 w(ROOTS)p FQ(,)f @beginspecial
@setspecial @endspecial(419)2304 3913 y FJ(M)p 2358 3913
V 34 w(SOLVE)p FQ(,)g @beginspecial @setspecial @endspecial(419)2304
4026 y FJ(MACIERZ)p FQ(,)g @beginspecial @setspecial
@endspecial(554)2304 4138 y(MA)m(CR)m(O,)i @beginspecial
@setspecial @endspecial(619)r(,)f @beginspecial @setspecial
@endspecial(621)q(,)h @beginspecial @setspecial @endspecial(631)2304
4251 y FJ(MACRO)p FQ(,)e @beginspecial @setspecial @endspecial(203)2304
4364 y FJ(MAINVAR)p FQ(,)g @beginspecial @setspecial
@endspecial(146)2304 4477 y FJ(MAKE)p 2502 4477 V 33
w(IDENTITY)p FQ(,)g @beginspecial @setspecial @endspecial(404)q(,)h
@beginspecial @setspecial @endspecial(409)2304 4590 y(MAP)-8
b(,)31 b @beginspecial @setspecial @endspecial(646)2304
4703 y FJ(MAP)p FQ(,)f @beginspecial @setspecial @endspecial(91)2304
4816 y FJ(map)p FQ(,)g @beginspecial @setspecial @endspecial(93)2304
4929 y(MAPC,)g @beginspecial @setspecial @endspecial(646)p
eop
%%Page: 687 687
687 686 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(687)241 555 y(MAPCAN,)31 b @beginspecial
@setspecial @endspecial(647)241 668 y(MAPCAR,)f @beginspecial
@setspecial @endspecial(647)241 781 y(MAPCON,)g @beginspecial
@setspecial @endspecial(647)241 894 y(MAPLIST,)g @beginspecial
@setspecial @endspecial(647)241 1007 y FJ(MASS)p FQ(,)f
@beginspecial @setspecial @endspecial(214)r(,)h @beginspecial
@setspecial @endspecial(216)241 1120 y FJ(MAT)p FQ(,)f
@beginspecial @setspecial @endspecial(177)r(,)h @beginspecial
@setspecial @endspecial(178)241 1233 y FJ(MATCH)p FQ(,)f
@beginspecial @setspecial @endspecial(159)241 1346 y
FJ(MATEIGEN)p FQ(,)f @beginspecial @setspecial @endspecial(180)241
1458 y FJ(MATEXTC)p FQ(,)g @beginspecial @setspecial
@endspecial(262)241 1571 y FJ(MATEXTR)p FQ(,)g @beginspecial
@setspecial @endspecial(262)241 1684 y(Mathematical)j(function,)e
@beginspecial @setspecial @endspecial(83)241 1797 y FJ(MATHML)p
FQ(,)g @beginspecial @setspecial @endspecial(415)q(,)i
@beginspecial @setspecial @endspecial(416)241 1910 y
FJ(mathstyle)p FQ(,)d @beginspecial @setspecial @endspecial(510)241
2023 y(matrices)407 2136 y(in)h(GENTRAN,)i @beginspecial
@setspecial @endspecial(354)q(,)g @beginspecial @setspecial
@endspecial(355)q(,)g @beginspecial @setspecial @endspecial(360)241
2249 y FJ(MATRIX)p FQ(,)e @beginspecial @setspecial @endspecial(178)241
2362 y(Matrix)h(assignmen)m(t,)g @beginspecial @setspecial
@endspecial(183)241 2475 y(Matrix)g(calculations,)g @beginspecial
@setspecial @endspecial(177)241 2588 y FJ(MATRIX,)46
b(see)g(also)h(SPARSE)p FQ(,)29 b @beginspecial @setspecial
@endspecial(531)241 2700 y FJ(MATRIX)p 535 2700 29 4
v 32 w(AUGMENT)p FQ(,)g @beginspecial @setspecial @endspecial(403)q(,)i
@beginspecial @setspecial @endspecial(406)241 2813 y
FJ(MATRIX)p 535 2813 V 32 w(STACK)p FQ(,)f @beginspecial
@setspecial @endspecial(403)q(,)h @beginspecial @setspecial
@endspecial(406)241 2926 y FJ(MATRIXP)p FQ(,)d @beginspecial
@setspecial @endspecial(404)r(,)i @beginspecial @setspecial
@endspecial(533)241 3039 y FJ(MATSUBC)p FQ(,)e @beginspecial
@setspecial @endspecial(262)241 3152 y FJ(MATSUBR)p FQ(,)g
@beginspecial @setspecial @endspecial(262)241 3265 y(MAX,)j
@beginspecial @setspecial @endspecial(644)241 3378 y
FJ(MAX)p FQ(,)e @beginspecial @setspecial @endspecial(81)241
3491 y(MAX2,)i @beginspecial @setspecial @endspecial(644)241
3604 y FJ(MAXEXPPRINTLEN!*)p FQ(,)26 b @beginspecial
@setspecial @endspecial(357)241 3717 y FJ(MCD)p FQ(,)j
@beginspecial @setspecial @endspecial(137)r(,)h @beginspecial
@setspecial @endspecial(139)241 3830 y FJ(MEDIAN)p FQ(,)f
@beginspecial @setspecial @endspecial(365)241 3942 y(Meijer's)h(G)h
(function,)e @beginspecial @setspecial @endspecial(545)241
4055 y(MEMBER,)i @beginspecial @setspecial @endspecial(650)241
4168 y FJ(member)p FQ(,)e @beginspecial @setspecial @endspecial(528)241
4281 y(MEMQ,)i @beginspecial @setspecial @endspecial(650)241
4394 y FJ(MERGE)p 487 4394 V 33 w(LIST)p FQ(,)e @beginspecial
@setspecial @endspecial(244)241 4507 y(metric)h(structure,)g
@beginspecial @setspecial @endspecial(341)241 4620 y
FJ(MIDPOINT)p FQ(,)e @beginspecial @setspecial @endspecial(365)241
4733 y(MIN,)j @beginspecial @setspecial @endspecial(644)241
4846 y FJ(MIN)p FQ(,)e @beginspecial @setspecial @endspecial(81)241
4959 y(MIN2,)i @beginspecial @setspecial @endspecial(644)1880
555 y(Minim)m(um,)e @beginspecial @setspecial @endspecial(437)1880
668 y FJ(MINOR)p FQ(,)h @beginspecial @setspecial @endspecial(403)q(,)h
@beginspecial @setspecial @endspecial(406)1880 781 y(MINUS,)g
@beginspecial @setspecial @endspecial(644)1880 894 y(MINUSP)-8
b(,)31 b @beginspecial @setspecial @endspecial(624)1880
1007 y FJ(MINVECT)p FQ(,)e @beginspecial @setspecial
@endspecial(259)1880 1120 y(mixed-mo)s(de)h(arithmetic,)g
@beginspecial @setspecial @endspecial(641)1880 1233 y
FJ(MKAND)p FQ(,)g @beginspecial @setspecial @endspecial(497)1880
1346 y FJ(MKDEPEND)p FQ(,)f @beginspecial @setspecial
@endspecial(330)1880 1458 y FJ(MKID)p FQ(,)h @beginspecial
@setspecial @endspecial(92)q(,)g @beginspecial @setspecial
@endspecial(261)1880 1571 y FJ(MKIDM)p FQ(,)g @beginspecial
@setspecial @endspecial(261)1880 1684 y FJ(MKIDNEW)p
FQ(,)f @beginspecial @setspecial @endspecial(249)1880
1797 y FJ(MKLIST)p FQ(,)g @beginspecial @setspecial @endspecial(244)
1880 1910 y FJ(MKOR)p FQ(,)h @beginspecial @setspecial
@endspecial(497)1880 2023 y FJ(MKPOLY)p FQ(,)f @beginspecial
@setspecial @endspecial(515)1880 2136 y FJ(MKRANDTABL)p
FQ(,)f @beginspecial @setspecial @endspecial(250)1880
2249 y FJ(MKSET)p FQ(,)i @beginspecial @setspecial @endspecial(249)q(,)
h @beginspecial @setspecial @endspecial(526)1880 2362
y(MKVECT,)f @beginspecial @setspecial @endspecial(639)1880
2475 y FJ(MML)p FQ(,)g @beginspecial @setspecial @endspecial(416)1880
2588 y(Mo)s(de,)h @beginspecial @setspecial @endspecial(76)1880
2700 y(Mo)s(de)g(comm)m(unication,)f @beginspecial @setspecial
@endspecial(203)1880 2813 y FJ(MODSR)p FQ(,)g @beginspecial
@setspecial @endspecial(195)q(,)h @beginspecial @setspecial
@endspecial(419)1880 2926 y FJ(MODULAR)p FQ(,)e @beginspecial
@setspecial @endspecial(149)1880 3039 y(Mo)s(dular)g(co)s(e\016cien)m
(t,)j @beginspecial @setspecial @endspecial(149)1880
3152 y FJ(MONOM)p FQ(,)e @beginspecial @setspecial @endspecial(257)1880
3265 y FJ(monomial)p 2270 3265 V 33 w(base)p FQ(,)f @beginspecial
@setspecial @endspecial(446)1880 3378 y(Mo)s(ore{P)m(enrose)k(in)m(v)m
(erse,)d @beginspecial @setspecial @endspecial(411)1880
3491 y(Motzkin,)h @beginspecial @setspecial @endspecial(542)1880
3604 y FJ(Motzkin)p FQ(,)e @beginspecial @setspecial
@endspecial(542)1880 3717 y FJ(MP)p FQ(,)h @beginspecial
@setspecial @endspecial(365)1880 3830 y FJ(MPVECT)p FQ(,)f
@beginspecial @setspecial @endspecial(259)1880 3942 y
FJ(MRV)p 2030 3942 V 34 w(LIMIT)p FQ(,)g @beginspecial
@setspecial @endspecial(422)1880 4055 y FJ(MRVLIMIT)p
FQ(,)g @beginspecial @setspecial @endspecial(421)1880
4168 y FJ(MSG)p FQ(,)h @beginspecial @setspecial @endspecial(223)1880
4281 y FJ(MSHELL)p FQ(,)f @beginspecial @setspecial @endspecial(216)
1880 4394 y FJ(MULT)p 2078 4394 V 34 w(COLUMNS)p FQ(,)f
@beginspecial @setspecial @endspecial(403)r(,)i @beginspecial
@setspecial @endspecial(405)1880 4507 y FJ(MULT)p 2078
4507 V 34 w(ROW)p FQ(,)f @beginspecial @setspecial @endspecial(405)1880
4620 y FJ(MULT)p 2078 4620 V 34 w(ROWS)p FQ(,)g @beginspecial
@setspecial @endspecial(403)1880 4733 y(Multiple)g(assignmen)m(t)h
(statemen)m(t,)2213 4846 y @beginspecial @setspecial
@endspecial(64)1880 4959 y FJ(MULTIPLICITIES)p FQ(,)d
@beginspecial @setspecial @endspecial(96)p eop
%%Page: 688 688
688 687 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(688)2553 b FM(INDEX)664 555 y FJ(MULTIROOT)p FQ(,)28
b @beginspecial @setspecial @endspecial(517)664 751 y
FJ(N)p 718 751 29 4 v 34 w(GAT)p FQ(,)i @beginspecial
@setspecial @endspecial(554)664 864 y FJ(NASSOC)p FQ(,)f
@beginspecial @setspecial @endspecial(498)664 977 y FJ(NAT)p
FQ(,)h @beginspecial @setspecial @endspecial(125)q(,)h
@beginspecial @setspecial @endspecial(327)664 1090 y(NA)-8
b(T)31 b(\015ag,)g @beginspecial @setspecial @endspecial(340)664
1203 y FJ(nc)p 766 1203 V 34 w(cleanup)p FQ(,)e @beginspecial
@setspecial @endspecial(427)664 1316 y FJ(nc)p 766 1316
V 34 w(compact)p FQ(,)g @beginspecial @setspecial @endspecial(430)664
1429 y FJ(nc)p 766 1429 V 34 w(divide)p FQ(,)g @beginspecial
@setspecial @endspecial(429)664 1542 y FJ(nc)p 766 1542
V 34 w(factorize)p FQ(,)f @beginspecial @setspecial @endspecial(429)664
1654 y FJ(nc)p 766 1654 V 34 w(factorize)p 1232 1654
V 32 w(all)p FQ(,)i @beginspecial @setspecial @endspecial(430)664
1767 y FJ(nc)p 766 1767 V 34 w(groebner)p FQ(,)e @beginspecial
@setspecial @endspecial(428)664 1880 y FJ(nc)p 766 1880
V 34 w(preduce)p FQ(,)h @beginspecial @setspecial @endspecial(429)664
1993 y FJ(nc)p 766 1993 V 34 w(setup)p FQ(,)g @beginspecial
@setspecial @endspecial(426)664 2106 y(NCONC,)h @beginspecial
@setspecial @endspecial(650)664 2219 y FJ(NCPOLY)p FQ(,)f
@beginspecial @setspecial @endspecial(195)q(,)i @beginspecial
@setspecial @endspecial(425)664 2332 y FJ(NEARESTROOT)p
FQ(,)d @beginspecial @setspecial @endspecial(515)664
2445 y FJ(NEARESTROOTS)p FQ(,)f @beginspecial @setspecial
@endspecial(515)664 2558 y FJ(NEGATIVE)p FQ(,)i @beginspecial
@setspecial @endspecial(514)664 2671 y FJ(NEQ)p FQ(,)h
@beginspecial @setspecial @endspecial(498)q(,)h @beginspecial
@setspecial @endspecial(499)664 2784 y FJ(NERO)p FQ(,)f
@beginspecial @setspecial @endspecial(122)664 2896 y(Newton's)h(metho)s
(d,)f @beginspecial @setspecial @endspecial(437)664 3009
y FJ(NEXTPRIME)p FQ(,)e @beginspecial @setspecial @endspecial(82)664
3122 y(NIL)830 3235 y(cannot)j(b)s(e)f(c)m(hanged,)h
@beginspecial @setspecial @endspecial(634)r(,)f @beginspecial
@setspecial @endspecial(635)q(,)996 3348 y @beginspecial
@setspecial @endspecial(661)664 3461 y(NIL)g(\(global\),)h
@beginspecial @setspecial @endspecial(619)q(,)g @beginspecial
@setspecial @endspecial(622)q(,)g @beginspecial @setspecial
@endspecial(661)664 3574 y FJ(NOCONVERT)p FQ(,)d @beginspecial
@setspecial @endspecial(148)664 3687 y FJ(NODEPEND)p
FQ(,)h @beginspecial @setspecial @endspecial(109)664
3800 y(NODEPEND)i(statemen)m(t,)i @beginspecial @setspecial
@endspecial(457)664 3913 y FJ(NODRR)p FQ(,)c @beginspecial
@setspecial @endspecial(555)664 4026 y(NOETHER)h(function,)f
@beginspecial @setspecial @endspecial(339)664 4138 y(NOEV)-10
b(AL)830 4251 y(function)29 b(t)m(yp)s(e,)i @beginspecial
@setspecial @endspecial(621)664 4364 y(Non-comm)m(uting)g(op)s(erator,)
g @beginspecial @setspecial @endspecial(106)664 4477
y FJ(NONCOM)p FQ(,)e @beginspecial @setspecial @endspecial(106)q(,)i
@beginspecial @setspecial @endspecial(320)q(,)g @beginspecial
@setspecial @endspecial(461)q(,)g @beginspecial @setspecial
@endspecial(466)664 4590 y FJ(NONZERO)p FQ(,)e @beginspecial
@setspecial @endspecial(104)664 4703 y FJ(NORDP)p FQ(,)g
@beginspecial @setspecial @endspecial(255)664 4816 y
FJ(NORMFORM)p FQ(,)g @beginspecial @setspecial @endspecial(195)q(,)h
@beginspecial @setspecial @endspecial(431)664 4929 y
FJ(NOSPLIT)p FQ(,)f @beginspecial @setspecial @endspecial(117)2304
555 y(NOSPREAD)2470 668 y(function)g(t)m(yp)s(e,)i @beginspecial
@setspecial @endspecial(621)2304 781 y FJ(NOSPUR)p FQ(,)e
@beginspecial @setspecial @endspecial(215)2304 894 y(NOSUM)h(command,)g
@beginspecial @setspecial @endspecial(340)2304 1007 y(NOSUM)g(switc)m
(h,)g @beginspecial @setspecial @endspecial(340)2304
1120 y(NOT,)g @beginspecial @setspecial @endspecial(641)2304
1233 y FJ(NOT)p FQ(,)g @beginspecial @setspecial @endspecial(497)2304
1346 y FJ(NOT)p 2454 1346 V 33 w(NEGATIVE)p FQ(,)f @beginspecial
@setspecial @endspecial(409)2304 1458 y(NO)m(XPND)2470
1571 y(@,)h @beginspecial @setspecial @endspecial(337)2470
1684 y(D,)h @beginspecial @setspecial @endspecial(337)2304
1797 y(NULL,)f @beginspecial @setspecial @endspecial(624)2304
1910 y FJ(NULLSPACE)p FQ(,)e @beginspecial @setspecial
@endspecial(182)2304 2023 y FJ(NUM)p FQ(,)i @beginspecial
@setspecial @endspecial(146)2304 2136 y FJ(NUM)p 2454
2136 V 33 w(FIT)p FQ(,)g @beginspecial @setspecial @endspecial(444)2304
2249 y FJ(NUM)p 2454 2249 V 33 w(INT)p FQ(,)g @beginspecial
@setspecial @endspecial(437)r(,)g @beginspecial @setspecial
@endspecial(440)2304 2362 y FJ(NUM)p 2454 2362 V 33 w(MIN)p
FQ(,)g @beginspecial @setspecial @endspecial(437)r(,)g
@beginspecial @setspecial @endspecial(438)2304 2475 y
FJ(NUM)p 2454 2475 V 33 w(ODESOLVE)p FQ(,)f @beginspecial
@setspecial @endspecial(437)q(,)i @beginspecial @setspecial
@endspecial(441)2304 2588 y FJ(NUM)p 2454 2588 V 33 w(SOLVE)p
FQ(,)f @beginspecial @setspecial @endspecial(437)q(,)h
@beginspecial @setspecial @endspecial(439)2304 2700 y(Num)m(b)s(er,)e
@beginspecial @setspecial @endspecial(44)q(,)i @beginspecial
@setspecial @endspecial(45)2304 2813 y(n)m(um)m(b)s(er,)e
@beginspecial @setspecial @endspecial(619)2304 2926 y(NUMBERP)-8
b(,)32 b @beginspecial @setspecial @endspecial(624)2304
3039 y FJ(NUMBERP)p FQ(,)d @beginspecial @setspecial
@endspecial(56)2304 3152 y FJ(NUMERIC)p FQ(,)g @beginspecial
@setspecial @endspecial(195)q(,)h @beginspecial @setspecial
@endspecial(437)2304 3265 y(Numerical)f(op)s(erator,)i
@beginspecial @setspecial @endspecial(79)2304 3378 y(Numerical)e
(precision,)g @beginspecial @setspecial @endspecial(46)2304
3574 y(OBLIST,)g @beginspecial @setspecial @endspecial(627)2304
3687 y(OBLIST)g(en)m(try)-8 b(,)31 b @beginspecial @setspecial
@endspecial(616)r(,)f @beginspecial @setspecial @endspecial(629)r(,)g
@beginspecial @setspecial @endspecial(659)2304 3800 y
FJ(ODD)p FQ(,)g @beginspecial @setspecial @endspecial(104)2304
3913 y(Odd)f(op)s(erator,)i @beginspecial @setspecial
@endspecial(104)2304 4026 y FJ(ODDP)p FQ(,)e @beginspecial
@setspecial @endspecial(250)2304 4138 y FJ(ODEDEGREE)p
FQ(,)f @beginspecial @setspecial @endspecial(450)2304
4251 y FJ(ODELINEARITY)p FQ(,)f @beginspecial @setspecial
@endspecial(450)2304 4364 y FJ(ODEORDER)p FQ(,)h @beginspecial
@setspecial @endspecial(450)2304 4477 y FJ(ODESOLVE)p
FQ(,)g @beginspecial @setspecial @endspecial(195)r(,)i
@beginspecial @setspecial @endspecial(449)r(,)g @beginspecial
@setspecial @endspecial(450)2304 4590 y FJ(ODWA)p FQ(,)f
@beginspecial @setspecial @endspecial(554)2304 4703 y
FJ(OFF)p FQ(,)h @beginspecial @setspecial @endspecial(76)q(,)g
@beginspecial @setspecial @endspecial(77)2304 4816 y
FJ(OFSF)p FQ(,)f @beginspecial @setspecial @endspecial(497)r(,)h
@beginspecial @setspecial @endspecial(498)2304 4929 y
FJ(ON)p FQ(,)g @beginspecial @setspecial @endspecial(76)q(,)g
@beginspecial @setspecial @endspecial(77)p eop
%%Page: 689 689
689 688 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(689)241 555 y FJ(ONE)p 391 555 29
4 v 33 w(FORMS)p FQ(,)29 b @beginspecial @setspecial
@endspecial(327)241 668 y FJ(ONE)p 391 668 V 33 w(OF)p
FQ(,)h @beginspecial @setspecial @endspecial(96)241 781
y(ONEP)-8 b(,)30 b @beginspecial @setspecial @endspecial(625)241
894 y FJ(ONLY)p 439 894 V 33 w(INTEGER)p FQ(,)f @beginspecial
@setspecial @endspecial(409)241 1007 y FJ(OPAPPLY)p FQ(,)f
@beginspecial @setspecial @endspecial(467)241 1120 y(OPEN,)i
@beginspecial @setspecial @endspecial(656)q(,)h @beginspecial
@setspecial @endspecial(657)241 1233 y FJ(OPERATOR)p
FQ(,)d @beginspecial @setspecial @endspecial(208)241
1346 y(Op)s(erator,)i @beginspecial @setspecial @endspecial(48)q({)p
@beginspecial @setspecial @endspecial(51)241 1458 y(Op)s(erator)g
(precedence,)h @beginspecial @setspecial @endspecial(49)q(,)f
@beginspecial @setspecial @endspecial(51)241 1571 y FJ(OPORDER)p
FQ(,)e @beginspecial @setspecial @endspecial(464)241
1684 y FJ(OPTIMIZE)p FQ(,)g @beginspecial @setspecial
@endspecial(521)241 1797 y(OR,)i @beginspecial @setspecial
@endspecial(641)241 1910 y FJ(OR)p FQ(,)g @beginspecial
@setspecial @endspecial(497)241 2023 y FJ(ORDER)p FQ(,)f
@beginspecial @setspecial @endspecial(115)q(,)i @beginspecial
@setspecial @endspecial(128)241 2136 y(ordering)407 2249
y(exterior)f(form,)g @beginspecial @setspecial @endspecial(343)241
2362 y(ordinary)e(di\013eren)m(tial)h(equations,)573
2475 y @beginspecial @setspecial @endspecial(449)241
2588 y FJ(ORDP)p FQ(,)g @beginspecial @setspecial @endspecial(56)q(,)i
@beginspecial @setspecial @endspecial(106)241 2700 y
FJ(ORTHOGONAL)p FQ(,)d @beginspecial @setspecial @endspecial(366)241
2813 y(Orthogonal)i(p)s(olynomials,)e @beginspecial @setspecial
@endspecial(539)241 2926 y FJ(ORTHOVEC)p FQ(,)g @beginspecial
@setspecial @endspecial(195)q(,)j @beginspecial @setspecial
@endspecial(453)241 3039 y FJ(OTHER)p 487 3039 V 33 w(CC)p
616 3039 V 34 w(POINT)p FQ(,)e @beginspecial @setspecial
@endspecial(366)241 3152 y FJ(OTHER)p 487 3152 V 33 w(CL)p
616 3152 V 34 w(POINT)p FQ(,)g @beginspecial @setspecial
@endspecial(366)241 3265 y FJ(OUT)p FQ(,)g @beginspecial
@setspecial @endspecial(169)r(,)h @beginspecial @setspecial
@endspecial(170)241 3378 y(OUTPUT,)g @beginspecial @setspecial
@endspecial(657)241 3491 y FJ(OUTPUT)p FQ(,)f @beginspecial
@setspecial @endspecial(114)241 3604 y(Output,)g @beginspecial
@setspecial @endspecial(120)r(,)h @beginspecial @setspecial
@endspecial(124)241 3717 y(Output)f(declaration,)h @beginspecial
@setspecial @endspecial(114)r(,)g @beginspecial @setspecial
@endspecial(115)241 3913 y FJ(P3)p 343 3913 V 34 w(ANGLE)p
FQ(,)f @beginspecial @setspecial @endspecial(366)241
4026 y FJ(P3)p 343 4026 V 34 w(CIRCLE)p FQ(,)f @beginspecial
@setspecial @endspecial(366)241 4138 y FJ(P3)p 343 4138
V 34 w(CIRCLE1)p FQ(,)g @beginspecial @setspecial @endspecial(366)241
4251 y FJ(P4)p 343 4251 V 34 w(CIRCLE)p FQ(,)g @beginspecial
@setspecial @endspecial(366)241 4364 y FJ(PAD)385 4348
y(\023)385 4364 y(E)p FQ(,)h @beginspecial @setspecial
@endspecial(490)241 4477 y(P)-8 b(A)m(GELENGTH,)32 b
@beginspecial @setspecial @endspecial(656)q(,)e @beginspecial
@setspecial @endspecial(657)241 4590 y(P)-8 b(AIR,)31
b @beginspecial @setspecial @endspecial(651)241 4703
y FJ(PAIR)p FQ(,)e @beginspecial @setspecial @endspecial(245)241
4816 y(P)-8 b(AIRP)g(,)31 b @beginspecial @setspecial
@endspecial(625)241 4929 y FJ(PAR)p FQ(,)e @beginspecial
@setspecial @endspecial(366)1880 555 y FJ(PARALLEL)p
FQ(,)g @beginspecial @setspecial @endspecial(366)1880
668 y FJ(PARSEML)p FQ(,)g @beginspecial @setspecial @endspecial(416)
1880 781 y FJ(PART)p FQ(,)h @beginspecial @setspecial
@endspecial(59)q(,)g @beginspecial @setspecial @endspecial(127)r(,)g
@beginspecial @setspecial @endspecial(130)r(,)g @beginspecial
@setspecial @endspecial(499)1880 894 y(partial)g(deriv)-5
b(ativ)m(es,)30 b @beginspecial @setspecial @endspecial(313)1880
1007 y(partial)g(di\013eren)m(tiation,)f @beginspecial
@setspecial @endspecial(336)1880 1120 y FJ(PAUSE)p FQ(,)h
@beginspecial @setspecial @endspecial(176)1880 1233 y
FJ(PDE2EDS)p FQ(,)f @beginspecial @setspecial @endspecial(326)1880
1346 y FJ(PDE2JET)p FQ(,)g @beginspecial @setspecial
@endspecial(330)1880 1458 y FJ(PEDALPOINT)p FQ(,)f @beginspecial
@setspecial @endspecial(366)1880 1571 y(P)m(ercen)m(t)k(sign,)e
@beginspecial @setspecial @endspecial(48)1880 1684 y
FJ(PERIOD)p FQ(,)f @beginspecial @setspecial @endspecial(125)1880
1797 y FJ(PERIODIC)p FQ(,)g @beginspecial @setspecial
@endspecial(488)1880 1910 y FJ(PERIODIC2RATIONAL)p FQ(,)d
@beginspecial @setspecial @endspecial(488)1880 2023 y
FJ(PERMUTATIONS)p FQ(,)i @beginspecial @setspecial @endspecial(250)1880
2136 y FJ(PF)p FQ(,)i @beginspecial @setspecial @endspecial(93)1880
2249 y FJ(PFAFFIAN)p FQ(,)f @beginspecial @setspecial
@endspecial(330)1880 2362 y(PF)m(ORM)i(statemen)m(t,)i
@beginspecial @setspecial @endspecial(334)1880 2475 y
FJ(PG)p FQ(,)d @beginspecial @setspecial @endspecial(554)1880
2588 y FJ(PHYSINDEX)p FQ(,)f @beginspecial @setspecial
@endspecial(463)q(,)h @beginspecial @setspecial @endspecial(466)1880
2700 y FJ(PHYSOP)p FQ(,)f @beginspecial @setspecial @endspecial(195)r
(,)h @beginspecial @setspecial @endspecial(461)1880 2813
y FJ(PI)p FQ(,)g @beginspecial @setspecial @endspecial(47)1880
2926 y FJ(PIVOT)p FQ(,)g @beginspecial @setspecial @endspecial(403)q(,)
h @beginspecial @setspecial @endspecial(406)1880 3039
y FJ(PLOT)p FQ(,)f @beginspecial @setspecial @endspecial(194)q(,)h
@beginspecial @setspecial @endspecial(371)1880 3152 y
FJ(PLOT)p 2078 3152 V 34 w(XMESH)p FQ(,)e @beginspecial
@setspecial @endspecial(372)1880 3265 y FJ(PLOT)p 2078
3265 V 34 w(YMESH)p FQ(,)g @beginspecial @setspecial
@endspecial(373)1880 3378 y FJ(PLOTKEEP)p FQ(,)g @beginspecial
@setspecial @endspecial(372)1880 3491 y FJ(PLOTREFINE)p
FQ(,)f @beginspecial @setspecial @endspecial(372)1880
3604 y FJ(plotrefine)p FQ(,)g @beginspecial @setspecial
@endspecial(372)1880 3717 y FJ(PLOTRESET)p FQ(,)h @beginspecial
@setspecial @endspecial(372)1880 3830 y(PLUS,)h @beginspecial
@setspecial @endspecial(645)1880 3942 y(PLUS2,)h @beginspecial
@setspecial @endspecial(645)1880 4055 y FJ(PM)p FQ(,)f
@beginspecial @setspecial @endspecial(195)r(,)g @beginspecial
@setspecial @endspecial(469)1880 4168 y FJ(Pochhammer)p
FQ(,)e @beginspecial @setspecial @endspecial(542)1880
4281 y(P)m(o)s(c)m(hhammer's)j(sym)m(b)s(ol,)e @beginspecial
@setspecial @endspecial(542)1880 4394 y FJ(POINCARE)p
FQ(,)g @beginspecial @setspecial @endspecial(330)1880
4507 y FJ(POINT)p FQ(,)h @beginspecial @setspecial @endspecial(366)1880
4620 y FJ(POINT)p 2126 4620 V 33 w(ON)p 2255 4620 V 34
w(BISECTOR)p FQ(,)f @beginspecial @setspecial @endspecial(366)1880
4733 y FJ(POINT)p 2126 4733 V 33 w(ON)p 2255 4733 V 34
w(CIRCLE)p FQ(,)g @beginspecial @setspecial @endspecial(366)1880
4846 y FJ(POINT)p 2126 4846 V 33 w(ON)p 2255 4846 V 34
w(CIRCLE1)p FQ(,)g @beginspecial @setspecial @endspecial(366)1880
4959 y FJ(POINT)p 2126 4959 V 33 w(ON)p 2255 4959 V 34
w(LINE)p FQ(,)h @beginspecial @setspecial @endspecial(366)p
eop
%%Page: 690 690
690 689 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(690)2553 b FM(INDEX)664 555 y FJ(poleorder)p FQ(,)28
b @beginspecial @setspecial @endspecial(507)664 668 y
FJ(Polygamma)p FQ(,)g @beginspecial @setspecial @endspecial(542)664
781 y(P)m(olygamma)j(functions,)f @beginspecial @setspecial
@endspecial(542)664 894 y FJ(Polylog)p FQ(,)f @beginspecial
@setspecial @endspecial(544)664 1007 y(P)m(olylogarithm)h(function,)f
@beginspecial @setspecial @endspecial(544)664 1120 y(P)m(olynomial,)g
@beginspecial @setspecial @endspecial(133)664 1233 y
FJ(POSITION)p FQ(,)g @beginspecial @setspecial @endspecial(245)664
1346 y FJ(POSITIVE)p FQ(,)g @beginspecial @setspecial
@endspecial(514)664 1458 y(POSN,)h @beginspecial @setspecial
@endspecial(657)664 1571 y(p)s(o)m(w)m(er)h(series,)f
@beginspecial @setspecial @endspecial(567)664 1684 y(p)s(o)m(w)m(er)h
(series)830 1797 y(arithmetic,)f @beginspecial @setspecial
@endspecial(574)830 1910 y(comp)s(osition,)g @beginspecial
@setspecial @endspecial(573)830 2023 y(di\013eren)m(tiation,)g
@beginspecial @setspecial @endspecial(575)830 2136 y(of)h(in)m(tegral,)
f @beginspecial @setspecial @endspecial(569)830 2249
y(of)h(user)e(de\014ned)h(function,)f @beginspecial @setspecial
@endspecial(568)664 2362 y FJ(PP)p 766 2362 29 4 v 34
w(LINE)p FQ(,)g @beginspecial @setspecial @endspecial(366)664
2475 y FJ(PR)p FQ(,)h @beginspecial @setspecial @endspecial(554)664
2588 y FJ(PRECEDENCE)p FQ(,)e @beginspecial @setspecial
@endspecial(108)664 2700 y FJ(PRECISE)p FQ(,)h @beginspecial
@setspecial @endspecial(86)664 2813 y FJ(PRECISION)p
FQ(,)f @beginspecial @setspecial @endspecial(148)664
2926 y(precision,)h @beginspecial @setspecial @endspecial(353)664
3039 y(PRECISION)g(command,)h @beginspecial @setspecial
@endspecial(353)664 3152 y FJ(PRECP)p FQ(,)f @beginspecial
@setspecial @endspecial(255)664 3265 y(predicate)h(,)h
@beginspecial @setspecial @endspecial(622)664 3378 y
FJ(PREDUCE)p FQ(,)e @beginspecial @setspecial @endspecial(384)664
3491 y(Pre\014x,)h @beginspecial @setspecial @endspecial(79)q(,)h
@beginspecial @setspecial @endspecial(107)q(,)f @beginspecial
@setspecial @endspecial(108)664 3604 y(Pre\014x)g(op)s(erator,)h
@beginspecial @setspecial @endspecial(48)q(,)f @beginspecial
@setspecial @endspecial(49)664 3717 y FJ(PRET)p FQ(,)g
@beginspecial @setspecial @endspecial(223)664 3830 y
FJ(PRETTYPRINT)p FQ(,)e @beginspecial @setspecial @endspecial(224)664
3942 y(Prett)m(yprin)m(ting,)i @beginspecial @setspecial
@endspecial(223)q(,)h @beginspecial @setspecial @endspecial(224)664
4055 y FJ(PRGEN)p FQ(,)e @beginspecial @setspecial @endspecial(536)664
4168 y FJ(PRI)p FQ(,)h @beginspecial @setspecial @endspecial(115)664
4281 y FJ(PRIMEP)p FQ(,)f @beginspecial @setspecial @endspecial(56)664
4394 y(PRIN1,)i @beginspecial @setspecial @endspecial(658)664
4507 y(PRIN2,)g @beginspecial @setspecial @endspecial(658)664
4620 y(PRINC,)f @beginspecial @setspecial @endspecial(657)r(,)g
@beginspecial @setspecial @endspecial(661)664 4733 y(PRINT,)g
@beginspecial @setspecial @endspecial(658)664 4846 y(prin)m(t)f(name,)i
@beginspecial @setspecial @endspecial(616)2304 555 y(PRINT!-PRECISION)e
(command,)2636 668 y @beginspecial @setspecial @endspecial(353)2304
781 y FJ(PRINT)p 2550 781 V 33 w(PRECISION)p FQ(,)f @beginspecial
@setspecial @endspecial(148)2304 894 y FJ(PROCEDURE)p
FQ(,)g @beginspecial @setspecial @endspecial(185)2304
1007 y(Pro)s(cedure)h(b)s(o)s(dy)-8 b(,)30 b @beginspecial
@setspecial @endspecial(187)q(,)h @beginspecial @setspecial
@endspecial(189)2304 1120 y(Pro)s(cedure)e(heading,)h
@beginspecial @setspecial @endspecial(186)2304 1233 y(PR)m(OD)h(op)s
(erator,)f @beginspecial @setspecial @endspecial(547)2304
1346 y FJ(PRODUCT)p FQ(,)f @beginspecial @setspecial
@endspecial(67,)i @beginspecial @setspecial @endspecial(68)2304
1458 y(PR)m(OG,)g @beginspecial @setspecial @endspecial(637)2304
1571 y(PR)m(OG)2470 1684 y(default)e(v)-5 b(alue,)31
b @beginspecial @setspecial @endspecial(637)2470 1797
y(v)-5 b(ariables,)29 b @beginspecial @setspecial @endspecial(637)2304
1910 y(PR)m(OG2,)i @beginspecial @setspecial @endspecial(637)2304
2023 y(PR)m(OGN,)g @beginspecial @setspecial @endspecial(637)2304
2136 y(Program,)g @beginspecial @setspecial @endspecial(48)2304
2249 y(Program)f(structure,)h @beginspecial @setspecial
@endspecial(43)2304 2362 y FJ(PROLONG)p FQ(,)e @beginspecial
@setspecial @endspecial(329)2304 2475 y(Prop)s(er)g(statemen)m(t,)k
@beginspecial @setspecial @endspecial(58)q(,)d @beginspecial
@setspecial @endspecial(63)q(,)h @beginspecial @setspecial
@endspecial(64)2304 2588 y FJ(PROPERTIES)p FQ(,)d @beginspecial
@setspecial @endspecial(327)2304 2700 y(prop)s(erties,)h
@beginspecial @setspecial @endspecial(616)q(,)i @beginspecial
@setspecial @endspecial(629)2304 2813 y(prop)s(ert)m(y)f(list,)f
@beginspecial @setspecial @endspecial(629)2304 2926 y
FJ(PRSYS)p FQ(,)g @beginspecial @setspecial @endspecial(536)2304
3039 y FJ(PS)p FQ(,)h @beginspecial @setspecial @endspecial(196)q(,)h
@beginspecial @setspecial @endspecial(567)2304 3152 y(PS)f(op)s
(erator,)g @beginspecial @setspecial @endspecial(568)2304
3265 y(PSCHANGEV)-10 b(AR)30 b(op)s(erator,)h @beginspecial
@setspecial @endspecial(571)2304 3378 y(PSCOMPOSE)d(op)s(erator,)j
@beginspecial @setspecial @endspecial(572)2304 3491 y(PSDEPV)-10
b(AR)30 b(op)s(erator,)h @beginspecial @setspecial @endspecial(571)2304
3604 y FJ(PSE)p 2454 3604 V 33 w(ELE)p FQ(,)f @beginspecial
@setspecial @endspecial(554)2304 3717 y FJ(PSEUDO)p 2598
3717 V 33 w(DIVIDE)p FQ(,)f @beginspecial @setspecial
@endspecial(139)2304 3830 y FJ(PSEUDO)p 2598 3830 V 33
w(INVERSE)p FQ(,)f @beginspecial @setspecial @endspecial(404)r(,)i
@beginspecial @setspecial @endspecial(411)2304 3942 y
FJ(PSEUDO)p 2598 3942 V 33 w(REMAINDER)p FQ(,)e @beginspecial
@setspecial @endspecial(139)2304 4055 y(PSEXP)-8 b(ANSIONPT)29
b(op)s(erator,)i @beginspecial @setspecial @endspecial(571)2304
4168 y(PSEXPLIM)e(op)s(erator,)i @beginspecial @setspecial
@endspecial(568)2304 4281 y(PSFUNCTION)e(op)s(erator,)i
@beginspecial @setspecial @endspecial(571)2304 4394 y
FJ(Psi)p FQ(,)f @beginspecial @setspecial @endspecial(542)2304
4507 y(Psi)f(function,)g @beginspecial @setspecial @endspecial(542)2304
4620 y(PSINTCONST)f(\(shared\),)j @beginspecial @setspecial
@endspecial(569)2304 4733 y(PSORDER)e(op)s(erator,)i
@beginspecial @setspecial @endspecial(570)2304 4846 y(PSORDLIM)f(op)s
(erator,)h @beginspecial @setspecial @endspecial(569)2304
4959 y(PSREVERSE)e(op)s(erator,)i @beginspecial @setspecial
@endspecial(572)p eop
%%Page: 691 691
691 690 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(691)241 555 y(PSSETORDER)28 b(op)s(erator,)j
@beginspecial @setspecial @endspecial(570)241 668 y(PSSUM)e(op)s
(erator,)i @beginspecial @setspecial @endspecial(573)241
781 y(PSTERM)e(op)s(erator,)i @beginspecial @setspecial
@endspecial(570)241 894 y(Puiseux)d(expansion,)i @beginspecial
@setspecial @endspecial(572)241 1007 y FJ(PULLBACK)p
FQ(,)e @beginspecial @setspecial @endspecial(328)241
1120 y(PUT,)i @beginspecial @setspecial @endspecial(616)q(,)h
@beginspecial @setspecial @endspecial(618)q(,)g @beginspecial
@setspecial @endspecial(630)241 1233 y(PUT)407 1346 y(not)f(for)h
(functions,)e @beginspecial @setspecial @endspecial(630)241
1458 y FJ(PUTBAG)p FQ(,)g @beginspecial @setspecial @endspecial(247)241
1571 y(PUTCSYSTEM)f(command,)j @beginspecial @setspecial
@endspecial(273)241 1684 y(PUTD,)f @beginspecial @setspecial
@endspecial(616)r(,)g @beginspecial @setspecial @endspecial(618)r(,)g
@beginspecial @setspecial @endspecial(632)241 1797 y
FJ(PUTFLAG)p FQ(,)e @beginspecial @setspecial @endspecial(253)241
1910 y FJ(PUTGRASS)p FQ(,)g @beginspecial @setspecial
@endspecial(260)241 2023 y FJ(PUTPROP)p FQ(,)g @beginspecial
@setspecial @endspecial(254)241 2136 y(PUTV,)i @beginspecial
@setspecial @endspecial(639)241 2332 y FJ(QBINOMIAL)p
FQ(,)e @beginspecial @setspecial @endspecial(476)241
2445 y FJ(QBRACKETS)p FQ(,)g @beginspecial @setspecial
@endspecial(476)241 2558 y FJ(QFACTORIAL)p FQ(,)g @beginspecial
@setspecial @endspecial(476)241 2671 y FJ(QG)p FQ(,)i
@beginspecial @setspecial @endspecial(589)241 2784 y
FJ(QPHIHYPERTERM)p FQ(,)d @beginspecial @setspecial @endspecial(476)241
2896 y FJ(QPOCHHAMMER)p FQ(,)g @beginspecial @setspecial
@endspecial(476)241 3009 y FJ(QPSIHYPERTERM)p FQ(,)g
@beginspecial @setspecial @endspecial(476)241 3122 y
FJ(QSUM)p FQ(,)i @beginspecial @setspecial @endspecial(475)241
3235 y FJ(QSUMRECURSION)p FQ(,)e @beginspecial @setspecial
@endspecial(477)241 3348 y(Quadrature,)i @beginspecial
@setspecial @endspecial(437)241 3461 y FJ(QUASILINEAR)p
FQ(,)e @beginspecial @setspecial @endspecial(330)241
3574 y FJ(QUASILINPDE)p FQ(,)g @beginspecial @setspecial
@endspecial(235)241 3687 y(QUIT,)j @beginspecial @setspecial
@endspecial(660)241 3800 y FJ(QUIT)p FQ(,)f @beginspecial
@setspecial @endspecial(77)241 3913 y(QUOTE,)g @beginspecial
@setspecial @endspecial(655)241 4026 y FJ(QUOTE)p FQ(,)g
@beginspecial @setspecial @endspecial(200)241 4138 y(QUOTIENT,)g
@beginspecial @setspecial @endspecial(645)241 4334 y
FJ(R)p 295 4334 29 4 v 34 w(SOLVE)p FQ(,)g @beginspecial
@setspecial @endspecial(519)241 4447 y FJ(RANDOM)p FQ(,)g
@beginspecial @setspecial @endspecial(82)241 4560 y FJ(RANDOM)p
535 4560 V 32 w(MATRIX)p FQ(,)g @beginspecial @setspecial
@endspecial(404)r(,)h @beginspecial @setspecial @endspecial(409)241
4673 y FJ(RANDOM)p 535 4673 V 32 w(NEW)p 711 4673 V 34
w(SEED)p FQ(,)f @beginspecial @setspecial @endspecial(82)241
4786 y FJ(RANDOMLIST)p FQ(,)f @beginspecial @setspecial
@endspecial(250)241 4899 y FJ(RANDPOLY)p FQ(,)g @beginspecial
@setspecial @endspecial(195)q(,)j @beginspecial @setspecial
@endspecial(481)1880 555 y(randp)s(oly)2046 668 y FJ(coeffs)p
FQ(,)e @beginspecial @setspecial @endspecial(483)2046
781 y FJ(degree)p FQ(,)g @beginspecial @setspecial @endspecial(482)2046
894 y FJ(dense)p FQ(,)h @beginspecial @setspecial @endspecial(482)2046
1007 y FJ(expons)p FQ(,)f @beginspecial @setspecial @endspecial(483)
2046 1120 y FJ(ord)p FQ(,)h @beginspecial @setspecial
@endspecial(482)2046 1233 y FJ(sparse)p FQ(,)f @beginspecial
@setspecial @endspecial(482)2046 1346 y FJ(terms)p FQ(,)h
@beginspecial @setspecial @endspecial(482)1880 1458 y
FJ(RANK)p FQ(,)g @beginspecial @setspecial @endspecial(183)1880
1571 y FJ(RANPOS)p FQ(,)f @beginspecial @setspecial @endspecial(330)
1880 1684 y FJ(RAT)p FQ(,)h @beginspecial @setspecial
@endspecial(117)1880 1797 y FJ(RATAPRX)p FQ(,)f @beginspecial
@setspecial @endspecial(487)1880 1910 y FJ(RATARG)p FQ(,)g
@beginspecial @setspecial @endspecial(129)r(,)h @beginspecial
@setspecial @endspecial(142)1880 2023 y FJ(RATIONAL)p
FQ(,)f @beginspecial @setspecial @endspecial(147)1880
2136 y(Rational)h(co)s(e\016cien)m(t,)i @beginspecial
@setspecial @endspecial(147)1880 2249 y(Rational)e(function,)g
@beginspecial @setspecial @endspecial(133)1880 2362 y
FJ(RATIONAL2PERIODIC)p FQ(,)c @beginspecial @setspecial
@endspecial(488)1880 2475 y FJ(RATIONALIZE)p FQ(,)i @beginspecial
@setspecial @endspecial(150)1880 2588 y FJ(ratjordan)p
FQ(,)h @beginspecial @setspecial @endspecial(433)1880
2700 y FJ(RATPRI)p FQ(,)g @beginspecial @setspecial @endspecial(119)
1880 2813 y FJ(RATROOT)p FQ(,)g @beginspecial @setspecial
@endspecial(517)1880 2926 y(RDS,)i @beginspecial @setspecial
@endspecial(658)1880 3039 y FJ(REACTEQN)p FQ(,)e @beginspecial
@setspecial @endspecial(195)q(,)i @beginspecial @setspecial
@endspecial(493)1880 3152 y(reacteqn)2046 3265 y FJ(inputmat)p
FQ(,)e @beginspecial @setspecial @endspecial(494)2046
3378 y FJ(outputmat)p FQ(,)g @beginspecial @setspecial
@endspecial(494)2046 3491 y FJ(rates)p FQ(,)h @beginspecial
@setspecial @endspecial(494)2046 3604 y FJ(species)p
FQ(,)f @beginspecial @setspecial @endspecial(494)1880
3717 y(READ,)i @beginspecial @setspecial @endspecial(616)r(,)f
@beginspecial @setspecial @endspecial(622)r(,)g @beginspecial
@setspecial @endspecial(627)r(,)g @beginspecial @setspecial
@endspecial(659)1880 3830 y(READCH,)h @beginspecial @setspecial
@endspecial(622)r(,)f @beginspecial @setspecial @endspecial(659)r(,)g
@beginspecial @setspecial @endspecial(661)1880 3942 y
FJ(REAL)p FQ(,)g @beginspecial @setspecial @endspecial(71)1880
4055 y(Real,)h @beginspecial @setspecial @endspecial(44)q(,)f
@beginspecial @setspecial @endspecial(45)1880 4168 y(Real)h(co)s
(e\016cien)m(t,)g @beginspecial @setspecial @endspecial(147)r(,)f
@beginspecial @setspecial @endspecial(148)1880 4281 y
FJ(REALROOTS)p FQ(,)f @beginspecial @setspecial @endspecial(514)q(,)h
@beginspecial @setspecial @endspecial(515)1880 4394 y
FJ(RED)p 2030 4394 V 34 w(HOM)p 2208 4394 V 34 w(COORDS)p
FQ(,)e @beginspecial @setspecial @endspecial(367)1880
4507 y FJ(REDERR)p FQ(,)h @beginspecial @setspecial @endspecial(189)
1880 4620 y FJ(REDEXPR)p FQ(,)g @beginspecial @setspecial
@endspecial(257)1880 4733 y FJ(REDLOG)p FQ(,)g @beginspecial
@setspecial @endspecial(289)r(,)h @beginspecial @setspecial
@endspecial(495)1880 4846 y FJ(REDUCT)p FQ(,)f @beginspecial
@setspecial @endspecial(146)1880 4959 y(relations)p eop
%%Page: 692 692
692 691 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(692)2553 b FM(INDEX)830 555 y FQ(side,)30 b @beginspecial
@setspecial @endspecial(297)664 668 y(REMAINDER,)h @beginspecial
@setspecial @endspecial(645)664 781 y FJ(REMAINDER)p
FQ(,)d @beginspecial @setspecial @endspecial(139)664
894 y(REMD,)j @beginspecial @setspecial @endspecial(616)r(,)f
@beginspecial @setspecial @endspecial(632)664 1007 y
FJ(REMEMBER)p FQ(,)f @beginspecial @setspecial @endspecial(192)664
1120 y FJ(REMFAC)p FQ(,)g @beginspecial @setspecial @endspecial(116)664
1233 y(REMFLA)m(G,)j @beginspecial @setspecial @endspecial(616)q(,)f
@beginspecial @setspecial @endspecial(630)664 1346 y(REMF)m(ORDER)g
(command,)g @beginspecial @setspecial @endspecial(343)664
1458 y FJ(REMGRASS)p FQ(,)e @beginspecial @setspecial
@endspecial(260)664 1571 y FJ(REMIND)p FQ(,)g @beginspecial
@setspecial @endspecial(212)664 1684 y(REMOB,)i @beginspecial
@setspecial @endspecial(616)q(,)g @beginspecial @setspecial
@endspecial(629)664 1797 y FJ(REMOVE)p FQ(,)e @beginspecial
@setspecial @endspecial(244)664 1910 y FJ(REMOVE)p 958
1910 29 4 v 33 w(COLUMNS)p FQ(,)g @beginspecial @setspecial
@endspecial(403)q(,)h @beginspecial @setspecial @endspecial(407)664
2023 y FJ(REMOVE)p 958 2023 V 33 w(ROWS)p FQ(,)f @beginspecial
@setspecial @endspecial(403)r(,)h @beginspecial @setspecial
@endspecial(407)664 2136 y(REMPR)m(OP)-8 b(,)31 b @beginspecial
@setspecial @endspecial(616)q(,)g @beginspecial @setspecial
@endspecial(630)664 2249 y FJ(REMSYM)p FQ(,)e @beginspecial
@setspecial @endspecial(251)664 2362 y(RENOSUM)h(command,)h
@beginspecial @setspecial @endspecial(340)664 2475 y
FJ(REORDER)p FQ(,)e @beginspecial @setspecial @endspecial(330)664
2588 y FJ(REPART)p FQ(,)g @beginspecial @setspecial @endspecial(80)q(,)
i @beginspecial @setspecial @endspecial(81,)g @beginspecial
@setspecial @endspecial(83)664 2700 y FJ(REPEAT)p FQ(,)e
@beginspecial @setspecial @endspecial(70)q({)p @beginspecial
@setspecial @endspecial(72)q(,)i @beginspecial @setspecial
@endspecial(74)664 2813 y FJ(REPL)p FQ(,)f @beginspecial
@setspecial @endspecial(497)664 2926 y FJ(REPLAST)p FQ(,)f
@beginspecial @setspecial @endspecial(245)664 3039 y
FJ(requirements)p FQ(,)e @beginspecial @setspecial @endspecial(100)664
3152 y(Reserv)m(ed)k(v)-5 b(ariable,)29 b @beginspecial
@setspecial @endspecial(46)q(,)i @beginspecial @setspecial
@endspecial(47)664 3265 y FJ(RESET)p FQ(,)e @beginspecial
@setspecial @endspecial(195)r(,)h @beginspecial @setspecial
@endspecial(243)r(,)g @beginspecial @setspecial @endspecial(505)664
3378 y FJ(RESETREDUCE)p FQ(,)e @beginspecial @setspecial
@endspecial(505)664 3491 y FJ(RESIDUE)p FQ(,)h @beginspecial
@setspecial @endspecial(195)q(,)i @beginspecial @setspecial
@endspecial(507)664 3604 y FJ(residue)p FQ(,)e @beginspecial
@setspecial @endspecial(507)664 3717 y FJ(REST)p FQ(,)h
@beginspecial @setspecial @endspecial(60)664 3830 y FJ(RESTASLIST)p
FQ(,)e @beginspecial @setspecial @endspecial(246)664
3942 y FJ(RESTRICT)p FQ(,)h @beginspecial @setspecial
@endspecial(328)664 4055 y FJ(RESTRICTIONS)p FQ(,)e @beginspecial
@setspecial @endspecial(327)664 4168 y FJ(RESULT)p FQ(,)i
@beginspecial @setspecial @endspecial(536)664 4281 y
FJ(RESULTANT)p FQ(,)f @beginspecial @setspecial @endspecial(140)664
4394 y FJ(RETRY)p FQ(,)h @beginspecial @setspecial @endspecial(174)664
4507 y(RETUNR)830 4620 y(in)g(CODE,)i @beginspecial @setspecial
@endspecial(640)664 4733 y(RETURN,)f @beginspecial @setspecial
@endspecial(620)r(,)g @beginspecial @setspecial @endspecial(637)664
4846 y FJ(RETURN)p FQ(,)f @beginspecial @setspecial @endspecial(72)q({)
p @beginspecial @setspecial @endspecial(74)664 4959 y(RETURN)2470
555 y(in)g(COND,)i @beginspecial @setspecial @endspecial(636)2304
668 y(REVERSE,)f @beginspecial @setspecial @endspecial(651)2304
781 y FJ(REVERSE)p FQ(,)f @beginspecial @setspecial @endspecial(61)2304
894 y FJ(REVGRADLEX)p FQ(,)f @beginspecial @setspecial
@endspecial(389)2304 1007 y(REV)m(GRADLEX)2470 1120 y(term)i(order,)g
@beginspecial @setspecial @endspecial(376)2304 1233 y
FJ(REVPRI)p FQ(,)f @beginspecial @setspecial @endspecial(119)2304
1346 y FJ(RHS)p FQ(,)h @beginspecial @setspecial @endspecial(57)2304
1458 y(RIEMANNCONX)g(command,)h @beginspecial @setspecial
@endspecial(343)2304 1571 y(Riemannian)d(Connections,)i
@beginspecial @setspecial @endspecial(343)2304 1684 y
FJ(RLATAB)p FQ(,)f @beginspecial @setspecial @endspecial(500)2304
1797 y FJ(RLCNF)p FQ(,)g @beginspecial @setspecial @endspecial(501)2304
1910 y FJ(RLDNF)p FQ(,)g @beginspecial @setspecial @endspecial(501)2304
2023 y FJ(RLFI)p FQ(,)g @beginspecial @setspecial @endspecial(195)r(,)h
@beginspecial @setspecial @endspecial(509)2304 2136 y
FJ(RLGQE)p FQ(,)f @beginspecial @setspecial @endspecial(502)2304
2249 y FJ(RLGQEA)p FQ(,)g @beginspecial @setspecial @endspecial(502)
2304 2362 y FJ(RLGSN)p FQ(,)g @beginspecial @setspecial
@endspecial(500)2304 2475 y(Rlisp,)f @beginspecial @setspecial
@endspecial(219)2304 2588 y FJ(RLISP88)p FQ(,)h @beginspecial
@setspecial @endspecial(210)2304 2700 y FJ(RLITAB)p FQ(,)g
@beginspecial @setspecial @endspecial(500)2304 2813 y
FJ(RLNNF)p FQ(,)g @beginspecial @setspecial @endspecial(501)2304
2926 y FJ(RLOPT)p FQ(,)g @beginspecial @setspecial @endspecial(503)2304
3039 y FJ(RLPNF)p FQ(,)g @beginspecial @setspecial @endspecial(501)2304
3152 y FJ(RLQE)p FQ(,)g @beginspecial @setspecial @endspecial(501)2304
3265 y FJ(RLQEA)p FQ(,)g @beginspecial @setspecial @endspecial(502)2304
3378 y FJ(RLREALTIME)p FQ(,)f @beginspecial @setspecial
@endspecial(499)2304 3491 y FJ(RLROOTNO)p FQ(,)g @beginspecial
@setspecial @endspecial(514)2304 3604 y FJ(RLSET)p FQ(,)h
@beginspecial @setspecial @endspecial(497)2304 3717 y
FJ(RLSIMPL)p FQ(,)g @beginspecial @setspecial @endspecial(499)2304
3830 y FJ(RLTAB)p FQ(,)g @beginspecial @setspecial @endspecial(500)2304
3942 y FJ(RLVERBOSE)p FQ(,)f @beginspecial @setspecial
@endspecial(499)2304 4055 y FJ(ROOT)p 2502 4055 V 33
w(OF)p FQ(,)i @beginspecial @setspecial @endspecial(95)q(,)h
@beginspecial @setspecial @endspecial(96)2304 4168 y
FJ(ROOT)p 2502 4168 V 33 w(VAL)p FQ(,)f @beginspecial
@setspecial @endspecial(515)2304 4281 y FJ(ROOTS)p FQ(,)f
@beginspecial @setspecial @endspecial(195)q(,)i @beginspecial
@setspecial @endspecial(513)q({)p @beginspecial @setspecial
@endspecial(515)2304 4394 y FJ(ROOTS)p 2550 4394 V 33
w(AT)p 2679 4394 V 34 w(PREC)p FQ(,)e @beginspecial @setspecial
@endspecial(515)2304 4507 y FJ(ROOTSCOMPLEX)p FQ(,)e
@beginspecial @setspecial @endspecial(515)2304 4620 y
FJ(ROOTSREAL)p FQ(,)h @beginspecial @setspecial @endspecial(515)2304
4733 y FJ(ROUND)p FQ(,)h @beginspecial @setspecial @endspecial(83)2304
4846 y FJ(ROUNDALL)p FQ(,)f @beginspecial @setspecial
@endspecial(149)2304 4959 y FJ(ROUNDBF)p FQ(,)h @beginspecial
@setspecial @endspecial(148)p eop
%%Page: 693 693
693 692 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(693)241 555 y FJ(ROUNDED)p FQ(,)28
b @beginspecial @setspecial @endspecial(46)q(,)j @beginspecial
@setspecial @endspecial(54)q(,)f @beginspecial @setspecial
@endspecial(86)q(,)h @beginspecial @setspecial @endspecial(122)q(,)g
@beginspecial @setspecial @endspecial(148)241 668 y FJ(ROW)p
391 668 29 4 v 33 w(DIM)p FQ(,)f @beginspecial @setspecial
@endspecial(403)q(,)h @beginspecial @setspecial @endspecial(405)241
781 y FJ(ROWS)p 439 781 V 33 w(PIVOT)p FQ(,)e @beginspecial
@setspecial @endspecial(403)r(,)h @beginspecial @setspecial
@endspecial(406)241 894 y(RPLA)m(CA,)g @beginspecial
@setspecial @endspecial(627)241 1007 y(RPLA)m(CD,)h @beginspecial
@setspecial @endspecial(627)241 1120 y(rsetq)f(op)s(erator,)h
@beginspecial @setspecial @endspecial(354)241 1233 y
FJ(RSOLVE)p FQ(,)e @beginspecial @setspecial @endspecial(195)q(,)i
@beginspecial @setspecial @endspecial(519)241 1346 y(Rule)e(lists,)g
@beginspecial @setspecial @endspecial(160)241 1458 y
FJ(RZUT)p FQ(,)g @beginspecial @setspecial @endspecial(554)241
1654 y FJ(S)p FQ(,)h @beginspecial @setspecial @endspecial(471)241
1767 y FJ(s)p 295 1767 V 34 w(i)p FQ(,)g @beginspecial
@setspecial @endspecial(544)241 1880 y FJ(S)p 295 1880
V 34 w(INT)p FQ(,)g @beginspecial @setspecial @endspecial(554)241
1993 y FJ(S)p 295 1993 V 34 w(PART)p FQ(,)f @beginspecial
@setspecial @endspecial(554)241 2106 y(SASSOC,)f @beginspecial
@setspecial @endspecial(651)241 2219 y FJ(SAVEAS)p FQ(,)h
@beginspecial @setspecial @endspecial(113)241 2332 y
FJ(SAVESTRUCTR)p FQ(,)e @beginspecial @setspecial @endspecial(127)241
2445 y(Sa)m(ving)j(an)g(expression,)f @beginspecial @setspecial
@endspecial(125)241 2558 y FJ(SCALAR)p FQ(,)g @beginspecial
@setspecial @endspecial(71)241 2671 y(Scalar,)h @beginspecial
@setspecial @endspecial(53)241 2784 y(SCALEF)-10 b(A)m(CTORS)28
b(op)s(erator,)j @beginspecial @setspecial @endspecial(272)241
2896 y FJ(SCALOP)p FQ(,)e @beginspecial @setspecial @endspecial(463)241
3009 y FJ(SCALVECT)p FQ(,)f @beginspecial @setspecial
@endspecial(259)241 3122 y FJ(SCIENTIFIC)p 727 3122 V
31 w(NOTATION)p FQ(,)h @beginspecial @setspecial @endspecial(44)241
3235 y FJ(SCOPE)p FQ(,)g @beginspecial @setspecial @endspecial(196)241
3348 y(scop)s(e,)h @beginspecial @setspecial @endspecial(633)241
3461 y(scop)s(e)407 3574 y(\015uid,)e @beginspecial @setspecial
@endspecial(633)407 3687 y(\015uid)g(and)i(compiled,)f
@beginspecial @setspecial @endspecial(635)407 3800 y(global,)h
@beginspecial @setspecial @endspecial(633)407 3913 y(lo)s(cal,)g
@beginspecial @setspecial @endspecial(633)241 4026 y(SCOPE)f(function)
407 4138 y FJ(RESETLENGTH)p FQ(,)e @beginspecial @setspecial
@endspecial(523)407 4251 y FJ(SETLENGTH)p FQ(,)h @beginspecial
@setspecial @endspecial(522)241 4364 y(SCOPE)h(option)407
4477 y FJ(INAME)p FQ(,)g @beginspecial @setspecial @endspecial(522)241
4590 y FJ(SD)p FQ(,)h @beginspecial @setspecial @endspecial(472)241
4703 y FJ(SD)p 343 4703 V 34 w(PART)p FQ(,)f @beginspecial
@setspecial @endspecial(554)241 4816 y FJ(SDIV)p FQ(,)g
@beginspecial @setspecial @endspecial(498)241 4929 y
FJ(SEC)p FQ(,)g @beginspecial @setspecial @endspecial(83)q(,)i
@beginspecial @setspecial @endspecial(86)1880 555 y FJ(SECH)p
FQ(,)f @beginspecial @setspecial @endspecial(83)q(,)g
@beginspecial @setspecial @endspecial(86)1880 668 y FJ(SECOND)p
FQ(,)f @beginspecial @setspecial @endspecial(60)1880
781 y(segmen)m(ting)i(expressions,)e @beginspecial @setspecial
@endspecial(357)1880 894 y FJ(SELECT)p FQ(,)g @beginspecial
@setspecial @endspecial(93)1880 1007 y(Selector,)i @beginspecial
@setspecial @endspecial(205)1880 1120 y FJ(SEMANTIC)p
FQ(,)e @beginspecial @setspecial @endspecial(470)1880
1233 y(Semicolon,)h @beginspecial @setspecial @endspecial(63)1880
1346 y FJ(SEMILINEAR)p FQ(,)e @beginspecial @setspecial
@endspecial(330)1880 1458 y(SET,)i @beginspecial @setspecial
@endspecial(616)q(,)h @beginspecial @setspecial @endspecial(634)1880
1571 y FJ(SET)p FQ(,)f @beginspecial @setspecial @endspecial(65)q(,)h
@beginspecial @setspecial @endspecial(92)1880 1684 y
FJ(SET)p 2030 1684 V 34 w(COFRAMING)p FQ(,)d @beginspecial
@setspecial @endspecial(326)1880 1797 y FJ(setdiff)p
FQ(,)h @beginspecial @setspecial @endspecial(527)1880
1910 y FJ(SETMOD)p FQ(,)g @beginspecial @setspecial @endspecial(149)
1880 2023 y FJ(SETP)p FQ(,)h @beginspecial @setspecial
@endspecial(249)1880 2136 y(SETQ,)g @beginspecial @setspecial
@endspecial(616)q(,)h @beginspecial @setspecial @endspecial(618)q(,)g
@beginspecial @setspecial @endspecial(635)1880 2249 y
FJ(SETS)p FQ(,)f @beginspecial @setspecial @endspecial(196)q(,)h
@beginspecial @setspecial @endspecial(525)1880 2362 y(SGN)2046
2475 y(indeterminate)f(sign,)f @beginspecial @setspecial
@endspecial(338)1880 2588 y FJ(SHARE)p FQ(,)h @beginspecial
@setspecial @endspecial(204)1880 2700 y FJ(Shi)p FQ(,)g
@beginspecial @setspecial @endspecial(544)1880 2813 y
FJ(SHORTEST)p FQ(,)f @beginspecial @setspecial @endspecial(267)1880
2926 y FJ(SHOW)p FQ(,)h @beginspecial @setspecial @endspecial(255)1880
3039 y FJ(SHOW)p 2078 3039 V 34 w(GRID)p FQ(,)f @beginspecial
@setspecial @endspecial(373)1880 3152 y FJ(SHOWRULES)p
FQ(,)g @beginspecial @setspecial @endspecial(165)1880
3265 y FJ(SHOWTIME)p FQ(,)g @beginspecial @setspecial
@endspecial(78)1880 3378 y FJ(SHUT)p FQ(,)h @beginspecial
@setspecial @endspecial(169)q({)p @beginspecial @setspecial
@endspecial(171)1880 3491 y FJ(SI)p FQ(,)g @beginspecial
@setspecial @endspecial(471)1880 3604 y FJ(Si)p FQ(,)g
@beginspecial @setspecial @endspecial(544)1880 3717 y(Side)f(e\013ect,)
k @beginspecial @setspecial @endspecial(58)1880 3830
y(side)d(relations,)f @beginspecial @setspecial @endspecial(297)1880
3942 y FJ(SIGN)p FQ(,)h @beginspecial @setspecial @endspecial(83)1880
4055 y FJ(SIMPLEX)p FQ(,)f @beginspecial @setspecial
@endspecial(404)q(,)i @beginspecial @setspecial @endspecial(412)1880
4168 y(Simplex)d(Algorithm,)i @beginspecial @setspecial
@endspecial(412)1880 4281 y(Simpli\014cation,)d @beginspecial
@setspecial @endspecial(54)q(,)k @beginspecial @setspecial
@endspecial(111)1880 4394 y FJ(SIMPLIFY)p FQ(,)e @beginspecial
@setspecial @endspecial(253)1880 4507 y FJ(simplify)p
2270 4507 V 33 w(combinatorial)p FQ(,)e @beginspecial
@setspecial @endspecial(604)1880 4620 y FJ(simplify)p
2270 4620 V 33 w(gamma)p FQ(,)i @beginspecial @setspecial
@endspecial(604)1880 4733 y FJ(simplify)p 2270 4733 V
33 w(gamma2)p FQ(,)g @beginspecial @setspecial @endspecial(604)1880
4846 y FJ(simplify)p 2270 4846 V 33 w(gamman)p FQ(,)g
@beginspecial @setspecial @endspecial(605)1880 4959 y
FJ(SIMPSYS)p FQ(,)g @beginspecial @setspecial @endspecial(536)p
eop
%%Page: 694 694
694 693 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(694)2553 b FM(INDEX)664 555 y FJ(SIN)p FQ(,)30 b @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)664 668 y FJ(SINH)p FQ(,)g @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)664 781 y FJ(SixJSymbol)p FQ(,)e @beginspecial
@setspecial @endspecial(543)664 894 y FJ(size)p FQ(,)i
@beginspecial @setspecial @endspecial(372)664 1007 y
FJ(SMACRO)p FQ(,)f @beginspecial @setspecial @endspecial(203)664
1120 y FJ(smithex)p FQ(,)g @beginspecial @setspecial
@endspecial(432)664 1233 y FJ(smithex)p 1006 1233 29
4 v 33 w(int)p FQ(,)g @beginspecial @setspecial @endspecial(432)664
1346 y FJ(SolidHarmonicY)p FQ(,)e @beginspecial @setspecial
@endspecial(543)664 1458 y FJ(SOLVE)p FQ(,)i @beginspecial
@setspecial @endspecial(94)q(,)i @beginspecial @setspecial
@endspecial(95)q(,)f @beginspecial @setspecial @endspecial(99)664
1571 y(SOL)-10 b(VE)29 b(pac)m(k)-5 b(age)830 1684 y(with)29
b(R)m(OOTS)h(pac)m(k)-5 b(age,)32 b @beginspecial @setspecial
@endspecial(513)664 1797 y FJ(SOLVESINGULAR)p FQ(,)27
b @beginspecial @setspecial @endspecial(99)664 1910 y
FJ(SORTLIST)p FQ(,)i @beginspecial @setspecial @endspecial(251)664
2023 y FJ(SORTNUMLIST)p FQ(,)f @beginspecial @setspecial
@endspecial(251)664 2136 y FJ(SORTOUTODE)p FQ(,)g @beginspecial
@setspecial @endspecial(450)664 2249 y(SP)-8 b(A)m(CEDIM)31
b(command,)f @beginspecial @setspecial @endspecial(335)664
2362 y FJ(SPADD)p 910 2362 V 33 w(COLUMNS)p FQ(,)f @beginspecial
@setspecial @endspecial(532)664 2475 y FJ(SPADD)p 910
2475 V 33 w(ROWS)p FQ(,)h @beginspecial @setspecial @endspecial(532)664
2588 y FJ(SPADD)p 910 2588 V 33 w(TO)p 1039 2588 V 34
w(COLUMNS)p FQ(,)f @beginspecial @setspecial @endspecial(532)664
2700 y FJ(SPADD)p 910 2700 V 33 w(TO)p 1039 2700 V 34
w(ROWS)p FQ(,)g @beginspecial @setspecial @endspecial(532)664
2813 y FJ(SPARSE)p FQ(,)g @beginspecial @setspecial @endspecial(531)664
2926 y FJ(SPARSE,)46 b(Sparse)g(matrices)p FQ(,)28 b
@beginspecial @setspecial @endspecial(531)664 3039 y
FJ(SPARSEMATP)p FQ(,)g @beginspecial @setspecial @endspecial(533)664
3152 y FJ(SPAUGMENT)p 1102 3152 V 32 w(COLUMNS)p FQ(,)h
@beginspecial @setspecial @endspecial(532)664 3265 y
FJ(SPBAND)p 958 3265 V 33 w(MATRIX)p FQ(,)g @beginspecial
@setspecial @endspecial(532)664 3378 y FJ(SPBLOCK)p 1006
3378 V 33 w(MATRIX)p FQ(,)g @beginspecial @setspecial
@endspecial(532)664 3491 y FJ(SPCHAR)p 958 3491 V 33
w(MATRIX)p FQ(,)g @beginspecial @setspecial @endspecial(532)664
3604 y FJ(SPCHAR)p 958 3604 V 33 w(POLY)p FQ(,)g @beginspecial
@setspecial @endspecial(532)664 3717 y FJ(SPCHOLESKY)p
FQ(,)f @beginspecial @setspecial @endspecial(532)664
3830 y FJ(SPCOEFF)p 1006 3830 V 33 w(MATRIX)p FQ(,)h
@beginspecial @setspecial @endspecial(532)664 3942 y
FJ(SPCOL)p 910 3942 V 33 w(DIM)p FQ(,)h @beginspecial
@setspecial @endspecial(532)664 4055 y FJ(SPCOMPANION)p
FQ(,)e @beginspecial @setspecial @endspecial(532)664
4168 y FJ(SPCOPY)p 958 4168 V 33 w(INTO)p FQ(,)h @beginspecial
@setspecial @endspecial(532)664 4281 y FJ(SPDE)p FQ(,)h
@beginspecial @setspecial @endspecial(196)q(,)h @beginspecial
@setspecial @endspecial(535)664 4394 y FJ(SPDIAGONAL)p
FQ(,)d @beginspecial @setspecial @endspecial(532)664
4507 y FJ(SPECFN)p FQ(,)h @beginspecial @setspecial @endspecial(85)q(,)
i @beginspecial @setspecial @endspecial(196)q(,)f @beginspecial
@setspecial @endspecial(539)664 4620 y FJ(SPECFN2)p FQ(,)f
@beginspecial @setspecial @endspecial(196)q(,)i @beginspecial
@setspecial @endspecial(545)664 4733 y FJ(SPEXTEND)p
FQ(,)e @beginspecial @setspecial @endspecial(532)664
4846 y FJ(SPFIND)p 958 4846 V 33 w(COMPANION)p FQ(,)f
@beginspecial @setspecial @endspecial(532)664 4959 y
FJ(SPGET)p 910 4959 V 33 w(COLUMNS)p FQ(,)h @beginspecial
@setspecial @endspecial(532)2304 555 y FJ(SPGET)p 2550
555 V 33 w(ROWS)p FQ(,)g @beginspecial @setspecial @endspecial(532)2304
668 y FJ(SPGRAM)p 2598 668 V 33 w(SCHMIDT)p FQ(,)f @beginspecial
@setspecial @endspecial(532)2304 781 y(spherical)g(co)s(ordinates,)j
@beginspecial @setspecial @endspecial(453)2304 894 y
FJ(SphericalHarmonicY)p FQ(,)25 b @beginspecial @setspecial
@endspecial(543)2304 1007 y FJ(SPHERMITIAN)p 2838 1007
V 31 w(TP)p FQ(,)30 b @beginspecial @setspecial @endspecial(532)2304
1120 y FJ(SPHESSIAN)p FQ(,)e @beginspecial @setspecial
@endspecial(532)2304 1233 y FJ(SPJACOBIAN)p FQ(,)g @beginspecial
@setspecial @endspecial(532)2304 1346 y FJ(SPJORDAN)p
2694 1346 V 32 w(BLOCK)p FQ(,)h @beginspecial @setspecial
@endspecial(532)2304 1458 y FJ(SPLIT)p 2550 1458 V 33
w(FIELD)p FQ(,)g @beginspecial @setspecial @endspecial(241)2304
1571 y FJ(SPLITPLUSMINUS)p FQ(,)e @beginspecial @setspecial
@endspecial(258)2304 1684 y FJ(SPLITTERMS)p FQ(,)h @beginspecial
@setspecial @endspecial(257)2304 1797 y FJ(SPLU)p 2502
1797 V 33 w(DECOM)p FQ(,)h @beginspecial @setspecial
@endspecial(532)2304 1910 y FJ(SPMAKE)p 2598 1910 V 33
w(IDENTITY)p FQ(,)f @beginspecial @setspecial @endspecial(532)2304
2023 y FJ(SPMATRIX)p 2694 2023 V 32 w(AUGMENT)p FQ(,)h
@beginspecial @setspecial @endspecial(532)2304 2136 y
FJ(SPMATRIX)p 2694 2136 V 32 w(STACK)p FQ(,)g @beginspecial
@setspecial @endspecial(532)2304 2249 y FJ(SPMINOR)p
FQ(,)g @beginspecial @setspecial @endspecial(532)2304
2362 y FJ(SPMULT)p 2598 2362 V 33 w(COLUMNS)p FQ(,)f
@beginspecial @setspecial @endspecial(532)2304 2475 y
FJ(SPMULT)p 2598 2475 V 33 w(ROWS)p FQ(,)h @beginspecial
@setspecial @endspecial(532)2304 2588 y FJ(SPPIVOT)p
FQ(,)g @beginspecial @setspecial @endspecial(532)2304
2700 y FJ(SPPSEUDO)p 2694 2700 V 32 w(INVERSE)p FQ(,)g
@beginspecial @setspecial @endspecial(532)2304 2813 y(SPREAD)2470
2926 y(function)g(t)m(yp)s(e,)i @beginspecial @setspecial
@endspecial(621)2304 3039 y FJ(SPREMOVE)p 2694 3039 V
32 w(COLUMNS)p FQ(,)e @beginspecial @setspecial @endspecial(532)2304
3152 y FJ(SPREMOVE)p 2694 3152 V 32 w(ROWS)p FQ(,)h @beginspecial
@setspecial @endspecial(532)2304 3265 y FJ(SPROW)p 2550
3265 V 33 w(DIM)p FQ(,)g @beginspecial @setspecial @endspecial(532)2304
3378 y FJ(SPROWS)p 2598 3378 V 33 w(PIVOT)p FQ(,)f @beginspecial
@setspecial @endspecial(532)2304 3491 y FJ(SPSTACK)p
2646 3491 V 32 w(ROWS)p FQ(,)h @beginspecial @setspecial
@endspecial(532)2304 3604 y FJ(SPSUB)p 2550 3604 V 33
w(MATRIX)p FQ(,)f @beginspecial @setspecial @endspecial(532)2304
3717 y FJ(SPSWAP)p 2598 3717 V 33 w(COLUMNS)p FQ(,)f
@beginspecial @setspecial @endspecial(532)2304 3830 y
FJ(SPSWAP)p 2598 3830 V 33 w(ENTRIES)p FQ(,)g @beginspecial
@setspecial @endspecial(532)2304 3942 y FJ(SPSWAP)p 2598
3942 V 33 w(ROWS)p FQ(,)h @beginspecial @setspecial @endspecial(532)
2304 4055 y FJ(SpTT)p FQ(,)g @beginspecial @setspecial
@endspecial(589)2304 4168 y FJ(SPUR)p FQ(,)g @beginspecial
@setspecial @endspecial(216)2304 4281 y FJ(SQFRF)p FQ(,)g
@beginspecial @setspecial @endspecial(517)2304 4394 y
FJ(SQRDIST)p FQ(,)g @beginspecial @setspecial @endspecial(367)2304
4507 y FJ(SQRT)p FQ(,)g @beginspecial @setspecial @endspecial(83)q(,)i
@beginspecial @setspecial @endspecial(86)2304 4620 y
FJ(SQUAREP)p FQ(,)e @beginspecial @setspecial @endspecial(404)q(,)h
@beginspecial @setspecial @endspecial(533)2304 4733 y
FJ(STACK)p 2550 4733 V 33 w(ROWS)p FQ(,)f @beginspecial
@setspecial @endspecial(403)r(,)h @beginspecial @setspecial
@endspecial(407)2304 4846 y(standard)f(devices,)i @beginspecial
@setspecial @endspecial(655)2304 4959 y(Standard)e(form,)h
@beginspecial @setspecial @endspecial(205)p eop
%%Page: 695 695
695 694 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(695)241 555 y(standard)29 b(input,)g
@beginspecial @setspecial @endspecial(658)241 668 y FJ(Standard)45
b(Lisp)i(Report)p FQ(,)29 b @beginspecial @setspecial
@endspecial(613)241 781 y(standard)g(output,)i @beginspecial
@setspecial @endspecial(659)241 894 y(Standard)e(quotien)m(t,)i
@beginspecial @setspecial @endspecial(205)241 1007 y(ST)-8
b(AND)m(ARD-LISP)g(,)31 b @beginspecial @setspecial @endspecial(660)241
1120 y FJ(STATE)p FQ(,)e @beginspecial @setspecial @endspecial(463)241
1233 y(Statemen)m(t,)j @beginspecial @setspecial @endspecial(63)241
1346 y(Stirling)27 b(n)m(um)m(b)s(ers,)i @beginspecial
@setspecial @endspecial(542)241 1458 y FJ(Stirling1)p
FQ(,)f @beginspecial @setspecial @endspecial(542)241
1571 y FJ(Stirling2)p FQ(,)g @beginspecial @setspecial
@endspecial(542)241 1684 y(String,)h @beginspecial @setspecial
@endspecial(47)241 1797 y(string,)g @beginspecial @setspecial
@endspecial(617)241 1910 y(string)407 2023 y(output,)h
@beginspecial @setspecial @endspecial(628)241 2136 y(STRINGP)-8
b(,)30 b @beginspecial @setspecial @endspecial(625)241
2249 y FJ(STRUCTR)p FQ(,)e @beginspecial @setspecial
@endspecial(126)r(,)i @beginspecial @setspecial @endspecial(127)241
2362 y FJ(STRUCTURE)p 679 2362 29 4 v 32 w(EQUATIONS)p
FQ(,)e @beginspecial @setspecial @endspecial(327)q(,)j
@beginspecial @setspecial @endspecial(330)241 2475 y(structures,)f
@beginspecial @setspecial @endspecial(619)241 2588 y(Structuring,)e
@beginspecial @setspecial @endspecial(111)241 2700 y(Struv)m(e)i
(functions,)f @beginspecial @setspecial @endspecial(543)241
2813 y FJ(StruveH)p FQ(,)f @beginspecial @setspecial
@endspecial(543)241 2926 y(Struv)m(eH)i(transform,)g
@beginspecial @setspecial @endspecial(307)241 3039 y
FJ(StruveL)p FQ(,)e @beginspecial @setspecial @endspecial(543)241
3152 y FJ(SUB)p FQ(,)h @beginspecial @setspecial @endspecial(57)q(,)i
@beginspecial @setspecial @endspecial(151)q(,)g @beginspecial
@setspecial @endspecial(499)241 3265 y(SUB1,)g @beginspecial
@setspecial @endspecial(646)241 3378 y FJ(SUB)p 391 3378
V 33 w(MATRIX)p FQ(,)e @beginspecial @setspecial @endspecial(403)241
3491 y(SUBLIS,)h @beginspecial @setspecial @endspecial(652)241
3604 y FJ(SUBMAT)p FQ(,)f @beginspecial @setspecial @endspecial(262)241
3717 y(SUBR)m(OUTINE,)h @beginspecial @setspecial @endspecial(357)241
3830 y FJ(subset)p FQ(,)f @beginspecial @setspecial @endspecial(528)241
3942 y FJ(subset)p 535 3942 V 32 w(eq)p FQ(,)h @beginspecial
@setspecial @endspecial(528)241 4055 y(SUBST,)g @beginspecial
@setspecial @endspecial(652)241 4168 y(Substitution,)e
@beginspecial @setspecial @endspecial(151)241 4281 y
FJ(SUCH)46 b(THAT)p FQ(,)30 b @beginspecial @setspecial
@endspecial(156)241 4394 y FJ(SUdim)p FQ(,)f @beginspecial
@setspecial @endspecial(589)241 4507 y FJ(SUM)p FQ(,)g
@beginspecial @setspecial @endspecial(67)q(,)i @beginspecial
@setspecial @endspecial(68)q(,)f @beginspecial @setspecial
@endspecial(196)r(,)g @beginspecial @setspecial @endspecial(547)241
4620 y(SUM)g(op)s(erator,)h @beginspecial @setspecial
@endspecial(547)241 4733 y FJ(SUM-SQ)p FQ(,)e @beginspecial
@setspecial @endspecial(548)241 4846 y FJ(sumrecursion)p
FQ(,)e @beginspecial @setspecial @endspecial(601)241
4959 y FJ(sumtohyper)p FQ(,)h @beginspecial @setspecial
@endspecial(603)1880 555 y FJ(SUMVECT)p FQ(,)h @beginspecial
@setspecial @endspecial(259)1880 668 y FJ(SUPPRESS)p
FQ(,)g @beginspecial @setspecial @endspecial(255)1880
781 y FJ(surface)p FQ(,)g @beginspecial @setspecial @endspecial(372)
1880 894 y FJ(SUSY2)p FQ(,)h @beginspecial @setspecial
@endspecial(551)1880 1007 y FJ(SVD)p FQ(,)g @beginspecial
@setspecial @endspecial(404)r(,)g @beginspecial @setspecial
@endspecial(412)q(,)h @beginspecial @setspecial @endspecial(532)1880
1120 y FJ(SVEC)p FQ(,)f @beginspecial @setspecial @endspecial(454)1880
1233 y FJ(SWAP)p 2078 1233 V 34 w(COLUMNS)p FQ(,)e @beginspecial
@setspecial @endspecial(403)r(,)i @beginspecial @setspecial
@endspecial(406)1880 1346 y FJ(SWAP)p 2078 1346 V 34
w(ENTRIES)p FQ(,)e @beginspecial @setspecial @endspecial(403)r(,)i
@beginspecial @setspecial @endspecial(406)1880 1458 y
FJ(SWAP)p 2078 1458 V 34 w(ROWS)p FQ(,)f @beginspecial
@setspecial @endspecial(403)r(,)h @beginspecial @setspecial
@endspecial(406)1880 1571 y(Switc)m(h,)g @beginspecial
@setspecial @endspecial(76)q(,)h @beginspecial @setspecial
@endspecial(77)1880 1684 y FJ(SWITCHES)p FQ(,)e @beginspecial
@setspecial @endspecial(243)1880 1797 y FJ(SWITCHORG)p
FQ(,)g @beginspecial @setspecial @endspecial(243)1880
1910 y FJ(SYMB)p 2078 1910 V 34 w(TO)p 2208 1910 V 34
w(ALG)p FQ(,)g @beginspecial @setspecial @endspecial(256)1880
2023 y FJ(SYMBOL)p 2174 2023 V 33 w(MATRIX)p FQ(,)g @beginspecial
@setspecial @endspecial(330)1880 2136 y FJ(SYMBOL)p 2174
2136 V 33 w(RELATIONS)p FQ(,)f @beginspecial @setspecial
@endspecial(330)1880 2249 y FJ(SYMBOLIC)p FQ(,)h @beginspecial
@setspecial @endspecial(197)1880 2362 y(Sym)m(b)s(olic)g(mo)s(de,)h
@beginspecial @setspecial @endspecial(197)q(,)h @beginspecial
@setspecial @endspecial(199)q(,)g @beginspecial @setspecial
@endspecial(203)q(,)2213 2475 y @beginspecial @setspecial
@endspecial(204)1880 2588 y(Sym)m(b)s(olic)e(pro)s(cedure,)g
@beginspecial @setspecial @endspecial(202)1880 2700 y
FJ(SYMDIFF)p FQ(,)g @beginspecial @setspecial @endspecial(249)1880
2813 y FJ(SYMLINE)p FQ(,)g @beginspecial @setspecial
@endspecial(367)1880 2926 y FJ(SYMMETRIC)p FQ(,)g @beginspecial
@setspecial @endspecial(106)q(,)h @beginspecial @setspecial
@endspecial(320)r(,)g @beginspecial @setspecial @endspecial(409)1880
3039 y FJ(SYMMETRICP)p FQ(,)e @beginspecial @setspecial
@endspecial(404)r(,)i @beginspecial @setspecial @endspecial(533)1880
3152 y FJ(SYMMETRIZE)p FQ(,)e @beginspecial @setspecial
@endspecial(251)1880 3265 y FJ(SYMMETRY)p FQ(,)h @beginspecial
@setspecial @endspecial(196)q(,)i @beginspecial @setspecial
@endspecial(557)1880 3378 y FJ(symmetrybasis)p FQ(,)c
@beginspecial @setspecial @endspecial(558)1880 3491 y
FJ(symmetrybasispart)p FQ(,)f @beginspecial @setspecial
@endspecial(558)1880 3604 y FJ(SYMPOINT)p FQ(,)j @beginspecial
@setspecial @endspecial(367)1880 3717 y FJ(SYMTREE)p
FQ(,)g @beginspecial @setspecial @endspecial(320)1880
3830 y FJ(SYSTEM)p FQ(,)g @beginspecial @setspecial @endspecial(327)
1880 4026 y FJ(T)p FQ(,)i @beginspecial @setspecial @endspecial(47)1880
4138 y(T)2046 4251 y(cannot)g(b)s(e)f(c)m(hanged,)h @beginspecial
@setspecial @endspecial(634)r(,)f @beginspecial @setspecial
@endspecial(635)r(,)2213 4364 y @beginspecial @setspecial
@endspecial(661)1880 4477 y(T)g(\(global\),)h @beginspecial
@setspecial @endspecial(619)q(,)g @beginspecial @setspecial
@endspecial(622)q(,)g @beginspecial @setspecial @endspecial(661)1880
4590 y FJ(TABLEAU)p FQ(,)e @beginspecial @setspecial
@endspecial(329)1880 4703 y FJ(TAN)p FQ(,)h @beginspecial
@setspecial @endspecial(83)q(,)h @beginspecial @setspecial
@endspecial(86)q(,)f @beginspecial @setspecial @endspecial(90)1880
4816 y(tangen)m(t)i(v)m(ector,)g @beginspecial @setspecial
@endspecial(336)1880 4929 y FJ(TANH)p FQ(,)e @beginspecial
@setspecial @endspecial(83)q(,)g @beginspecial @setspecial
@endspecial(86)p eop
%%Page: 696 696
696 695 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(696)2553 b FM(INDEX)664 555 y FJ(TAYLOR)p FQ(,)29
b @beginspecial @setspecial @endspecial(196)q(,)i @beginspecial
@setspecial @endspecial(561)664 668 y(T)-8 b(A)g(YLOR)31
b(pac)m(k)-5 b(age,)32 b @beginspecial @setspecial @endspecial(561)664
781 y(T)-8 b(a)m(ylor)31 b(Series,)e @beginspecial @setspecial
@endspecial(561)664 894 y(T)-8 b(a)m(ylor)31 b(series)830
1007 y(arithmetic,)f @beginspecial @setspecial @endspecial(563)830
1120 y(di\013eren)m(tiation,)g @beginspecial @setspecial
@endspecial(564)830 1233 y(in)m(tegration,)h @beginspecial
@setspecial @endspecial(564)830 1346 y(rev)m(ersion,)f
@beginspecial @setspecial @endspecial(564)830 1458 y(substitution,)f
@beginspecial @setspecial @endspecial(564)664 1571 y(T)-8
b(A)g(YLORA)m(UTOCOMBINE)996 1684 y(switc)m(h,)30 b @beginspecial
@setspecial @endspecial(564)664 1797 y(T)-8 b(A)g(YLORA)m(UTOEXP)g(AND)
32 b(switc)m(h,)996 1910 y @beginspecial @setspecial
@endspecial(564)r(,)e @beginspecial @setspecial @endspecial(565)664
2023 y FJ(TAYLORCOMBINE)p FQ(,)d @beginspecial @setspecial
@endspecial(563)664 2136 y FJ(TAYLORKEEPORIGINAL)p FQ(,)f
@beginspecial @setspecial @endspecial(563)664 2249 y(T)-8
b(A)g(YLORKEEPORIGINAL)996 2362 y(switc)m(h,)30 b @beginspecial
@setspecial @endspecial(562)r(,)g @beginspecial @setspecial
@endspecial(565)664 2475 y(T)-8 b(A)g(YLORPRINTORDER)30
b(switc)m(h,)996 2588 y @beginspecial @setspecial @endspecial(565)664
2700 y(T)-8 b(A)g(YLORPRINTTERMS)996 2813 y(v)j(ariable,)30
b @beginspecial @setspecial @endspecial(562)664 2926
y FJ(TAYLORSERIESP)p FQ(,)d @beginspecial @setspecial
@endspecial(563)664 3039 y FJ(TAYLORTEMPLATE)p FQ(,)g
@beginspecial @setspecial @endspecial(563)664 3152 y
FJ(TAYLORTOSTANDARD)p FQ(,)f @beginspecial @setspecial
@endspecial(563)664 3265 y FJ(TCLEAR)p FQ(,)j @beginspecial
@setspecial @endspecial(266)664 3378 y(templates,)i @beginspecial
@setspecial @endspecial(358)664 3491 y FJ(TENSOP)p FQ(,)e
@beginspecial @setspecial @endspecial(463)664 3604 y
FJ(TENSOR)p FQ(,)g @beginspecial @setspecial @endspecial(266)664
3717 y(tensor)i(pro)s(duct,)e @beginspecial @setspecial
@endspecial(410)664 3830 y FJ(terminal)p FQ(,)g @beginspecial
@setspecial @endspecial(372)664 3942 y(T)-8 b(erminator,)30
b @beginspecial @setspecial @endspecial(63)664 4055 y(TERPRI,)g
@beginspecial @setspecial @endspecial(656)q(,)h @beginspecial
@setspecial @endspecial(659)664 4168 y FJ(TESTBOOL)p
FQ(,)e @beginspecial @setspecial @endspecial(280)664
4281 y FJ(TEX)p FQ(,)h @beginspecial @setspecial @endspecial(577)664
4394 y FJ(TEXBREAK)p FQ(,)f @beginspecial @setspecial
@endspecial(577)664 4507 y FJ(TEXINDENT)p FQ(,)f @beginspecial
@setspecial @endspecial(577)664 4620 y FJ(TeXitem)p FQ(,)h
@beginspecial @setspecial @endspecial(579)664 4733 y
FJ(TeXlet)p FQ(,)g @beginspecial @setspecial @endspecial(578)664
4846 y FJ(TeXsetbreak)p FQ(,)f @beginspecial @setspecial
@endspecial(578)664 4959 y FJ(THIRD)p FQ(,)h @beginspecial
@setspecial @endspecial(60)2304 555 y FJ(ThreeJSymbol)p
FQ(,)e @beginspecial @setspecial @endspecial(543)2304
668 y FJ(TIME)p FQ(,)i @beginspecial @setspecial @endspecial(76)2304
781 y(TIMES,)h @beginspecial @setspecial @endspecial(646)2304
894 y(TIMES2,)g @beginspecial @setspecial @endspecial(646)2304
1007 y FJ(title)p FQ(,)f @beginspecial @setspecial @endspecial(372)2304
1120 y FJ(TOEPLITZ)p FQ(,)f @beginspecial @setspecial
@endspecial(404)r(,)i @beginspecial @setspecial @endspecial(410)2304
1233 y FJ(togamma)p FQ(,)f @beginspecial @setspecial
@endspecial(603)2304 1346 y FJ(TORDER)p FQ(,)g @beginspecial
@setspecial @endspecial(376)2304 1458 y FJ(TORSION)p
FQ(,)g @beginspecial @setspecial @endspecial(329)2304
1571 y FJ(TP)p FQ(,)h @beginspecial @setspecial @endspecial(181)2304
1684 y FJ(TPMAT)p FQ(,)f @beginspecial @setspecial @endspecial(262)2304
1797 y FJ(TPS)p FQ(,)h @beginspecial @setspecial @endspecial(196)q(,)h
@beginspecial @setspecial @endspecial(567)2304 1910 y
FJ(TRA)p FQ(,)f @beginspecial @setspecial @endspecial(233)2304
2023 y FJ(TRACE)p FQ(,)f @beginspecial @setspecial @endspecial(181)2304
2136 y FJ(TRACEFPS)p FQ(,)f @beginspecial @setspecial
@endspecial(350)2304 2249 y(tracing)2470 2362 y(EX)m(CALC,)i
@beginspecial @setspecial @endspecial(342)2304 2475 y
FJ(TRAD)p FQ(,)f @beginspecial @setspecial @endspecial(555)2304
2588 y FJ(TRANSFORM)p FQ(,)f @beginspecial @setspecial
@endspecial(328)2304 2700 y FJ(TRFAC)p FQ(,)h @beginspecial
@setspecial @endspecial(136)2304 2813 y FJ(TRGROEB)p
FQ(,)g @beginspecial @setspecial @endspecial(382)2304
2926 y FJ(TRGROEB1)p FQ(,)f @beginspecial @setspecial
@endspecial(382)2304 3039 y FJ(TRGROEBS)p FQ(,)g @beginspecial
@setspecial @endspecial(382)2304 3152 y FJ(TRI)p FQ(,)i
@beginspecial @setspecial @endspecial(196)q(,)h @beginspecial
@setspecial @endspecial(577)2304 3265 y(TRI)2470 3378
y(page-width,)f @beginspecial @setspecial @endspecial(578)2470
3491 y(tolerance,)h @beginspecial @setspecial @endspecial(578)2304
3604 y FJ(TRIANG)p 2598 3604 29 4 v 33 w(ADJOINT)p FQ(,)d
@beginspecial @setspecial @endspecial(404)r(,)i @beginspecial
@setspecial @endspecial(412)2304 3717 y FJ(TRIGEXPAND)p
FQ(,)e @beginspecial @setspecial @endspecial(258)2304
3830 y FJ(trigfactorize)p FQ(,)f @beginspecial @setspecial
@endspecial(585)2304 3942 y FJ(TRIGFORM)p FQ(,)h @beginspecial
@setspecial @endspecial(97)2304 4055 y FJ(triggcd)p FQ(,)h
@beginspecial @setspecial @endspecial(586)2304 4168 y
FJ(trigonometric)p 2934 4168 V 31 w(base)p FQ(,)g @beginspecial
@setspecial @endspecial(446)2304 4281 y FJ(TRIGREDUCE)p
FQ(,)f @beginspecial @setspecial @endspecial(258)2304
4394 y FJ(TRIGSIMP)p FQ(,)g @beginspecial @setspecial
@endspecial(85)q(,)j @beginspecial @setspecial @endspecial(196)q(,)g
@beginspecial @setspecial @endspecial(583)2304 4507 y
FJ(trigsimp)p FQ(,)d @beginspecial @setspecial @endspecial(584)2304
4620 y(trigsimp)2470 4733 y(com)m(bine,)i @beginspecial
@setspecial @endspecial(584)2470 4846 y(compact,)i @beginspecial
@setspecial @endspecial(584)2470 4959 y(cos,)f @beginspecial
@setspecial @endspecial(584)p eop
%%Page: 697 697
697 696 bop 241 299 a @beginspecial @setspecial @endspecial
FM(INDEX)2552 b FQ(697)407 555 y(cosh,)31 b @beginspecial
@setspecial @endspecial(584)407 668 y(expand,)f @beginspecial
@setspecial @endspecial(584)407 781 y(exp)s(on,)g @beginspecial
@setspecial @endspecial(584)407 894 y(h)m(yp,)g @beginspecial
@setspecial @endspecial(584)407 1007 y(k)m(eepalltrig,)g
@beginspecial @setspecial @endspecial(584)407 1120 y(sin,)f
@beginspecial @setspecial @endspecial(584)407 1233 y(sinh,)f
@beginspecial @setspecial @endspecial(584)407 1346 y(trig,)i
@beginspecial @setspecial @endspecial(584)241 1458 y
FJ(TRUE)p FQ(,)f @beginspecial @setspecial @endspecial(497)241
1571 y(truncated)h(p)s(o)m(w)m(er)h(series,)f @beginspecial
@setspecial @endspecial(567)241 1684 y FJ(TSYM)p FQ(,)f
@beginspecial @setspecial @endspecial(266)241 1797 y(TVECTOR)g
(command,)h @beginspecial @setspecial @endspecial(334)241
1993 y(UNFLUID,)h @beginspecial @setspecial @endspecial(616)r(,)f
@beginspecial @setspecial @endspecial(635)241 2106 y
FJ(UNION)p FQ(,)f @beginspecial @setspecial @endspecial(249)241
2219 y FJ(union)p FQ(,)g @beginspecial @setspecial @endspecial(526)241
2332 y FJ(UNITMAT)p FQ(,)f @beginspecial @setspecial
@endspecial(260)241 2445 y FJ(UNTIL)p FQ(,)h @beginspecial
@setspecial @endspecial(67)241 2558 y(UPBV,)i @beginspecial
@setspecial @endspecial(640)241 2671 y FJ(UPPER)p 487
2671 29 4 v 33 w(MATRIX)p FQ(,)e @beginspecial @setspecial
@endspecial(409)241 2784 y(User)h(pac)m(k)-5 b(ages,)33
b @beginspecial @setspecial @endspecial(193)241 2979
y(v)-5 b(alues,)30 b @beginspecial @setspecial @endspecial(616)241
3092 y FJ(VANDERMONDE)p FQ(,)d @beginspecial @setspecial
@endspecial(404)r(,)j @beginspecial @setspecial @endspecial(410)241
3205 y FJ(VARDF)p FQ(,)f @beginspecial @setspecial @endspecial(339)241
3318 y(V)-8 b(ariable,)30 b @beginspecial @setspecial
@endspecial(46)241 3431 y(v)-5 b(ariable)29 b(scop)s(e,)i
@beginspecial @setspecial @endspecial(633)241 3544 y(v)-5
b(ariational)29 b(deriv)-5 b(ativ)m(e,)30 b @beginspecial
@setspecial @endspecial(339)241 3657 y FJ(VARNAME)p FQ(,)e
@beginspecial @setspecial @endspecial(125)r(,)i @beginspecial
@setspecial @endspecial(126)241 3770 y FJ(varopt)p FQ(,)f
@beginspecial @setspecial @endspecial(102)241 3883 y
FJ(VARPOINT)p FQ(,)f @beginspecial @setspecial @endspecial(367)241
3996 y FJ(VCONCMAT)p FQ(,)g @beginspecial @setspecial
@endspecial(262)241 4109 y FJ(VDF)p FQ(,)h @beginspecial
@setspecial @endspecial(457)241 4221 y(VEC)h(command,)g
@beginspecial @setspecial @endspecial(269)241 4334 y
FJ(VECDIM)p FQ(,)f @beginspecial @setspecial @endspecial(218)241
4447 y FJ(VECOP)p FQ(,)g @beginspecial @setspecial @endspecial(463)241
4560 y FJ(VECTOR)p FQ(,)g @beginspecial @setspecial @endspecial(214)241
4673 y(v)m(ector,)j @beginspecial @setspecial @endspecial(617)q(,)f
@beginspecial @setspecial @endspecial(639)241 4786 y(v)m(ector)407
4899 y(addition,)e @beginspecial @setspecial @endspecial(455)2046
555 y(cross)i(pro)s(duct,)e @beginspecial @setspecial
@endspecial(455)2046 668 y(di\013eren)m(tiation,)h @beginspecial
@setspecial @endspecial(271)2046 781 y(division,)e @beginspecial
@setspecial @endspecial(455)2046 894 y(dot)j(pro)s(duct,)f
@beginspecial @setspecial @endspecial(456)2046 1007 y(exp)s(onen)m
(tiation,)g @beginspecial @setspecial @endspecial(456)2046
1120 y(inner)f(pro)s(duct,)g @beginspecial @setspecial
@endspecial(456)2046 1233 y(in)m(tegration,)i @beginspecial
@setspecial @endspecial(271)2046 1346 y(mo)s(dulus,)d
@beginspecial @setspecial @endspecial(456)2046 1458 y(m)m
(ultiplication,)g @beginspecial @setspecial @endspecial(455)2046
1571 y(subtraction,)i @beginspecial @setspecial @endspecial(455)1880
1684 y(v)m(ector-notation,)j @beginspecial @setspecial
@endspecial(618)1880 1797 y FJ(VECTORADD)p FQ(,)c @beginspecial
@setspecial @endspecial(455)1880 1910 y FJ(VECTORCROSS)p
FQ(,)f @beginspecial @setspecial @endspecial(455)1880
2023 y FJ(VECTORDIFFERENCE)p FQ(,)f @beginspecial @setspecial
@endspecial(455)1880 2136 y FJ(VECTOREXPT)p FQ(,)h @beginspecial
@setspecial @endspecial(456)1880 2249 y FJ(VECTORMINUS)p
FQ(,)g @beginspecial @setspecial @endspecial(455)1880
2362 y(VECTORP)-8 b(,)30 b @beginspecial @setspecial
@endspecial(625)1880 2475 y FJ(VECTORPLUS)p FQ(,)e @beginspecial
@setspecial @endspecial(455)1880 2588 y FJ(VECTORQUOTIENT)p
FQ(,)f @beginspecial @setspecial @endspecial(455)1880
2700 y FJ(VECTORRECIP)p FQ(,)h @beginspecial @setspecial
@endspecial(455)1880 2813 y FJ(VECTORTIMES)p FQ(,)g @beginspecial
@setspecial @endspecial(455)1880 2926 y FJ(VERBATIM)p
FQ(,)h @beginspecial @setspecial @endspecial(509)1880
3039 y FJ(view)p FQ(,)h @beginspecial @setspecial @endspecial(372)1880
3152 y FJ(VINT)p FQ(,)g @beginspecial @setspecial @endspecial(458)1880
3265 y FJ(VMOD)p FQ(,)g @beginspecial @setspecial @endspecial(456)1880
3378 y(VMOD)h(op)s(erator,)g @beginspecial @setspecial
@endspecial(270)1880 3491 y FJ(VOLINT)p FQ(,)e @beginspecial
@setspecial @endspecial(458)1880 3604 y(V)m(OLINTEGRAL)i(function,)e
@beginspecial @setspecial @endspecial(274)1880 3717 y(V)m(OLINTORDER)h
(v)m(ector,)j @beginspecial @setspecial @endspecial(274)1880
3830 y FJ(VORDER)p FQ(,)c @beginspecial @setspecial @endspecial(458)
1880 3942 y FJ(VOUT)p FQ(,)h @beginspecial @setspecial
@endspecial(454)1880 4055 y FJ(VSTART)p FQ(,)f @beginspecial
@setspecial @endspecial(453)1880 4168 y FJ(VTAYLOR)p
FQ(,)g @beginspecial @setspecial @endspecial(457)1880
4364 y FJ(W)p 1934 4364 V 35 w(COMB)p FQ(,)g @beginspecial
@setspecial @endspecial(554)1880 4477 y FJ(WAR)p FQ(,)h
@beginspecial @setspecial @endspecial(554)1880 4590 y(w)m(arning)g
(messages,)h @beginspecial @setspecial @endspecial(622)1880
4703 y FJ(WEB)p FQ(,)f @beginspecial @setspecial @endspecial(416)1880
4816 y FJ(WEIGHT)p FQ(,)f @beginspecial @setspecial @endspecial(167)
1880 4929 y FJ(WHEN)p FQ(,)h @beginspecial @setspecial
@endspecial(161)p eop
%%Page: 698 698
698 697 bop 664 299 a @beginspecial @setspecial @endspecial
FQ(698)2553 b FM(INDEX)664 555 y FJ(WHERE)p FQ(,)29 b
@beginspecial @setspecial @endspecial(161)664 668 y FJ(WHILE)p
FQ(,)g @beginspecial @setspecial @endspecial(69)q(,)i
@beginspecial @setspecial @endspecial(71)q(,)f @beginspecial
@setspecial @endspecial(72)q(,)h @beginspecial @setspecial
@endspecial(74)664 781 y(Whittak)m(er)g(functions,)e
@beginspecial @setspecial @endspecial(543)664 894 y FJ(WhittakerM)p
FQ(,)f @beginspecial @setspecial @endspecial(543)664
1007 y FJ(WhittakerW)p FQ(,)g @beginspecial @setspecial
@endspecial(543)664 1120 y(W)-8 b(orkspace,)32 b @beginspecial
@setspecial @endspecial(113)664 1233 y FJ(WRITE)p FQ(,)d
@beginspecial @setspecial @endspecial(120)664 1346 y(WRS,)i
@beginspecial @setspecial @endspecial(659)664 1458 y
FJ(WS)p FQ(,)f @beginspecial @setspecial @endspecial(39)q(,)h
@beginspecial @setspecial @endspecial(174)664 1571 y
FJ(WTLEVEL)p FQ(,)e @beginspecial @setspecial @endspecial(167)664
1684 y FJ(WU)p FQ(,)h @beginspecial @setspecial @endspecial(196)r(,)g
@beginspecial @setspecial @endspecial(587)664 1880 y
FJ(XCOLOR)p FQ(,)f @beginspecial @setspecial @endspecial(196)q(,)i
@beginspecial @setspecial @endspecial(589)664 1993 y
FJ(XFULLREDUCE)p FQ(,)d @beginspecial @setspecial @endspecial(595)664
2106 y FJ(XIDEAL)p FQ(,)h @beginspecial @setspecial @endspecial(196)q
(,)i @beginspecial @setspecial @endspecial(593)q(,)g
@beginspecial @setspecial @endspecial(594)664 2219 y
FJ(xlabel)p FQ(,)e @beginspecial @setspecial @endspecial(372)664
2332 y FJ(XMODULO)p FQ(,)g @beginspecial @setspecial
@endspecial(594)664 2445 y FJ(XMODULOP)p FQ(,)g @beginspecial
@setspecial @endspecial(595)664 2558 y(XPND)830 2671
y(@,)h @beginspecial @setspecial @endspecial(337)830
2784 y(D,)h @beginspecial @setspecial @endspecial(337)664
2896 y FJ(XSTATS)p FQ(,)e @beginspecial @setspecial @endspecial(595)664
3092 y(Y-transform,)i @beginspecial @setspecial @endspecial(307)664
3205 y FJ(ylabel)p FQ(,)e @beginspecial @setspecial @endspecial(372)664
3401 y FJ(ZEILBERG)p FQ(,)g @beginspecial @setspecial
@endspecial(196)q(,)h @beginspecial @setspecial @endspecial(599)664
3514 y FJ(ZERO)p 862 3514 29 4 v 33 w(FORMS)p FQ(,)g
@beginspecial @setspecial @endspecial(327)664 3627 y(ZER)m(OP)-8
b(,)31 b @beginspecial @setspecial @endspecial(625)664
3740 y FJ(Zeta)p FQ(,)f @beginspecial @setspecial @endspecial(542)664
3853 y(Zeta)h(function)e(\(Riemann's\),)h @beginspecial
@setspecial @endspecial(542)664 3966 y FJ(Zeta)p 862
3966 V 33 w(function)p FQ(,)f @beginspecial @setspecial
@endspecial(544)664 4079 y FJ(zlabel)p FQ(,)g @beginspecial
@setspecial @endspecial(372)664 4192 y FJ(ZTRANS)p FQ(,)g
@beginspecial @setspecial @endspecial(196)q(,)i @beginspecial
@setspecial @endspecial(607)664 4304 y FJ(ztrans)p FQ(,)e
@beginspecial @setspecial @endspecial(607)p eop
%%Trailer
end
userdict /end-hook known{end-hook}if
%%EOF