1% Tests of Cvitanovic Package.
2
3
4% COPYRIGHT (C) 1990, INSTITUTE OF NUCLEAR PHYSICS, MOSCOW STATE UNIV.
5% CVITBUBLE  TEST OF CVITANOVIC PACKAGE
6% AUTHOR     A. KRYUKOV, ARODIONOV, A.TARANOV
7% VERSION    1.1
8% RELEASE    18-SEP-90
9
10index j1,j2,j3,j4,j5,j6,j7,j8,j9,j0;
11vecdim n$
12
13%       Tests of the weels with buble
14%       (Use notation from SIGSAM Bull, 1989, v.23, no.4, pp.15-24)
15
16g(l,j1,j2,j2,j1);
17
18g(l,j1,j2)*g(l1,j3,j1,j2,j3);
19g(l,j1,j2)*g(l1,j3,j1,j3,j2);
20g(l,j1,j2)*g(l1,j3,j3,j2,j1);
21
22g(l,j1,j2,j3,j4)*g(l1,j1,j2,j3,j4);
23g(l,j1,j2)*g(l1,j3,j4,j1,j2,j4,j3);
24g(l,j1,j2,j3,j4)*g(l1,j1,j4,j2,j3);
25g(l,j1,j2)*g(l1,j3,j4,j1,j4,j3,j2);
26
27g(l,j1,j2)*g(l1,j3,j4,j5,j1,j2,j3,j4,j5);
28g(l,j1,j2,j3,j4)*g(l1,j5,j1,j2,j3,j5,j4);
29g(l,j1,j2,j3,j4,j5,j1)*g(l1,j2,j5,j3,j4);
30g(l,j1,j2,j3,j4,j5,j1,j2,j5)*g(l1,j4,j3);
31
32g(l,j1,j2)*g(l1,j3,j4,j5,j6,j1,j2,j3,j4,j5,j6);
33g(l,j1,j2,j3,j4)*g(l1,j5,j6,j1,j2,j3,j4,j6,j5);
34g(l,j1,j2,j3,j4,j5,j6)*g(l1,j1,j2,j4,j3,j6,j5);
35g(l,j1,j2,j3,j4,j5,j6,j1,j2)*g(l1,j6,j3,j4,j5);
36g(l,j1,j2,j3,j4,j5,j6,j7,j1,j2,j3,j4,j5)*g(l1,j6,j7);
37g(l,j1,j2,j3,j4,j5,j6,j7,j1,j2,j3)*g(l1,j4,j5,j7,j6);
38g(l,j1,j2,j3,j4,j5,j6,j7,j2)*g(l1,j1,j3,j4,j5,j6,j7);
39
40
41% COPYRIGHT (C) 1988,1990, INSTITUTE OF NUCLEAR PHYSICS, MOSCOW STATE U.
42% CVITEST   Test of CVITANOVIC PACKAGE
43% AUTHOR    A. KRYUKOV, A.RODIONOV, A.TARANOV
44% VERSION   1.2
45% RELEASE   11-MAR-90
46
47%
48%     Test for trace of Dirac matrices.
49%
50%     All tests are the lattices with difference lines
51%     (Use notation from SIGSAM Bull, 1989, v.4,no.23, pp.15-24)
52
53index m1,m2,m3,m4,m5,m6,m7,m8,m9,m0;
54index n1,n2,n3,n4,n5,n6,n7,n8,n9,n0;
55
56vecdim n;
57
58 g(l,n1,n1);
59 g(l,n1,m1,n1,m1);
60
61 g(l,n1,n2,n2,n1);
62 g(l,n1,n2,m1,n2,n1,m1);
63 g(l,n1,n2,m1,m2,n2,n1,m2,m1);
64
65 g(l,n1,n2,n3,n3,n2,n1);
66 g(l,n1,n2,n3,m1,n3,n2,n1,m1);
67 g(l,n1,n2,n3,m1,m2,n3,n2,n1,m2,m1);
68 g(l,n1,n2,n3,m1,m2,m3,n3,n2,n1,m3,m2,m1);
69 g(l,n1,n2,n3,m1,n3,n1,n2,m1);
70 g(l,n1,n2,n3,m1,m2,n3,n1,n2,m1,m2);
71 g(l,n1,n2,n3,m1,m2,m3,n2,n3,n1,m3,m1,m2);
72
73
74% COPYRIGHT (C) 1988,1990, INSTITUTE OF NUCLEAR PHYSICS, MOSCOW STATE U.
75% CVITWEEL  TEST OF CVITANOVIC PACKAGE
76% AUTHOR    A. KRYUKOV, ARODIONOV, A.TARANOV
77% VERSION   1.2
78% RELEASE   11-MAR-90
79
80index j1,j2,j3,j4,j5,j6,j7,j8,j9,j0;
81vecdim n$
82
83%       Test of CVITANOVIC PACKAGE
84%
85%       All tests are the weels with defferent spoke
86%       (Use notation from SIGSAM Bull, 1989, v.23, no.4, pp.15-24)
87
88g(l,j1,j2,j2,j1);
89
90g(l,j1,j2,j3,j1,j2,j3);
91g(l,j1,j2,j3,j1,j3,j2);
92g(l,j1,j2,j3,j3,j2,j1);
93
94g(l,j1,j2,j3,j4,j1,j2,j3,j4);
95g(l,j1,j2,j3,j4,j1,j2,j4,j3);
96g(l,j1,j2,j3,j4,j1,j4,j2,j3);
97g(l,j1,j2,j3,j4,j1,j4,j3,j2);
98
99g(l,j1,j2,j3,j4,j5,j1,j2,j3,j4,j5);
100g(l,j1,j2,j3,j4,j5,j1,j2,j3,j5,j4);
101g(l,j1,j2,j3,j4,j5,j1,j2,j5,j3,j4);
102g(l,j1,j2,j3,j4,j5,j1,j2,j5,j4,j3);
103
104g(l,j1,j2,j3,j4,j5,j6,j1,j2,j3,j4,j5,j6);
105g(l,j1,j2,j3,j4,j5,j6,j1,j2,j3,j4,j6,j5);
106g(l,j1,j2,j3,j4,j5,j6,j1,j2,j4,j3,j6,j5);
107g(l,j1,j2,j3,j4,j5,j6,j1,j2,j6,j3,j4,j5);
108g(l,j1,j2,j3,j4,j5,j6,j7,j1,j2,j3,j4,j5,j6,j7);
109g(l,j1,j2,j3,j4,j5,j6,j7,j1,j2,j3,j4,j5,j7,j6);
110g(l,j1,j2,j3,j4,j5,j6,j7,j2,j1,j3,j4,j5,j6,j7);
111
112%  Test of example that calculated incorrectly in earlier package.
113
114index ix,iy,iz;
115mass p1=mm, p2=mm, p3=mm, p4=mm, k1=0;
116mshell p1,p2,p3,p4,k1;
117vector q1,q2;
118operator ga,gb;
119for all p let ga(p)=g(la,p) + mm,
120              gb(p)=g(lb,p) + mm;
121xx := g(la,ix)*g(la,iy)*(g(lb,ix)*gb(p1)*g(lb,iy)*gb(q2) +
122                      gb(p3)*g(lb,ix)*g(lb,iy));
123let q1=p1-k1, q2=p3+k1;
124
125xx;
126
127end;
128