File: formQ0-examples-additional.mac

package info (click to toggle)
maxima 5.49.0%2Bdsfg-3
  • links: PTS
  • area: main
  • in suites: sid
  • size: 128,992 kB
  • sloc: lisp: 437,845; fortran: 14,665; tcl: 10,143; sh: 4,598; makefile: 2,206; ansic: 447; java: 374; python: 262; perl: 201; xml: 60; awk: 28; sed: 15; javascript: 2
file content (20 lines) | stat: -rw-r--r-- 790 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
load("formQ0.mac")$
load(itensor)$
dim:3$
decsym(g,0,2,[],[sym(all)])$
imetric(g)$
flipflag:true$
defcon(x,x,r2)$
components(r2([],[]),r^2)$
showtime: true $
ishow(canform('kdels([a,b,c],[j,k,l])*Q0(x([],[a])*x([],[b])*x([],[c]))))$
time3: time(%);
ishow(canform('kdels([a,b,c,d],[j,k,l,m])*Q0(x([],[a])*x([],[b])*x([],[c])*x([],[d]))))$
time4: time(%);
ishow(canform('kdels([a,b,c,d,e],[j,k,l,m,n])*Q0(x([],[a])*x([],[b])*x([],[c])*x([],[d])*x([],[e]))))$
time5: time(%);
ishow(canform('kdels([a,b,c,d,e,f],[j,k,l,m,n,o])*Q0(x([],[a])*x([],[b])*x([],[c])*x([],[d])*x([],[e])*x([],[f]))))$
time6: time(%);
ishow(canform('kdels([a,b,c,d,e,f,h],[j,k,l,m,n,o,p])*Q0(x([],[a])*x([],[b])*x([],[c])*x([],[d])*x([],[e])*x([],[f])*x([],[h]))))$
time7: time(%);
[time3, time4, time5, time6, time7];