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