{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 1 12 0 0 0 1 2 2 2 0 0 0 
0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 
0 0 0 0 0 0 0 0 0 0 2 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE 
"Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" 
-1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 
-1 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 10 
255 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "" 1 10 0 0 0 1 2 2 2 0 
0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 27 "First note how cost counts:" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 7 "C:=x+y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"CG,&%\"xG\"\"\"%\"yGF'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 
"codegen[cost](C);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%*additionsG" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "C1:=x+y+z;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#C1G,(%\"xG\"\"\"%\"yGF'%\"zGF'" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "codegen[cost](C1);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,$%*additionsG\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "interface(labelling=false):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 7 "grtw();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%BGRTe
nsorII~Version~1.80-pre2~(R6)G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%-2~
March~2001G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%ZDeveloped~by~Peter~Mu
sgrave,~Denis~Pollney~and~Kayll~LakeG" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#%DCopyright~1994-2001~by~the~authors.G" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%inLatest~version~available~from:~http://grtensor.phy.q
ueensu.ca/G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%4e:/Grtii(6)/MetricsG
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "Load the dimension" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 13 "qload(fived);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/%2Default~spacetimeG%&fivedG" }}{PARA 6 "" 1 "" {TEXT 
-1 28 "sig has not been calculated." }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#%9For~the~fived~spacetime:G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(%,Co
ordinatesG\"\"\"%\":GF%-%\"xG6#%#upGF%" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#/)%#x~G%\"aG-%'vectorG6#7'%#x1G%#x2G%#x3G%#x4G%#x5G" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#*(%-Line~elementG\"\"\"%\":GF%%#dsGF%" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#/*$)%$~dsG\"\"#\"\"\",@*(-%\"aG6'%#x1G%#x2G%
#x3G%#x4G%#x5GF(%#~dGF()F.%#2~GF(F(*.F'F(-%\"bGF-F(F3F()F.%\"~GF(%#d~G
F()F/F:F(F(*.F'F(-%\"cGF-F(F3F(F9F(F;F()F0F:F(F(*.F'F(-%\"dGF-F(F3F(F9
F(F;F()F1F:F(F(*.F'F(-%\"eGF-F(F3F(F9F(F;F()F2F:F(F(*(-%\"fGF-F(F3F()F
/F5F(F(*.F'F(-%\"gGF-F(F3F(F<F(F;F(F@F(F(*.F'F(-%\"hGF-F(F3F(F<F(F;F(F
DF(F(*.F'F(-%\"iGF-F(F3F(F<F(F;F(FHF(F(*(-%\"jGF-F(F3F()F0F5F(F(*.F'F(
-%\"kGF-F(F3F(F@F(F;F(FDF(F(*.F'F(-%\"lGF-F(F3F(F@F(F;F(FHF(F(*(-%\"mG
F-F(F3F()F1F5F(F(*.F'F(-%\"nGF-F(F3F(FDF(F;F(FHF(F(*(-%\"oGF-F(F3F()F2
F5F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "grOptionDefaultSi
mp:=0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "grdef(`RR11:=g\{^
c ^d\}*R\{c $x1 $x1 d\}`):" }}{PARA 6 "" 1 "" {TEXT -1 27 "Created def
inition for RR11" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "grdef(`
RR12:=g\{^c ^d\}*R\{c $x1 $x2 d\}`):" }}{PARA 6 "" 1 "" {TEXT -1 27 "C
reated definition for RR12" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "grcalc(RR11):" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/%*CPU~Time~G$\"%/G!\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "codegen[cost](numer(grcomponent(RR11,[])));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#,(%*additionsG\"'L\")H*&\"(^I+$\"\"\"%*funct
ionsGF(F(*&\"('foHF(%0multiplicationsGF(F(" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }{XPPEDIT 18 0 "298133*additions;" "6#*&\"'L\")H\"\"\"%*
additionsGF%" }{TEXT -1 13 "=298134 terms" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 13 "grcalc(RR12):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%
*CPU~Time~G$\"$]&!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "co
degen[cost](numer(grcomponent(RR12,[])));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,(%*additionsG\"'s4T*&\"((>]T\"\"\"%*functionsGF(F(*&\"
(iH2%F(%0multiplicationsGF(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "
" }{XPPEDIT 18 0 "410972*additions;" "6#*&\"'s4T\"\"\"%*additionsGF%" 
}{TEXT -1 14 "= 410973 terms" }}}}{MARK "15 1" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }