home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Applications / Mathematiques / Schoonschip.lha / Schoonschip / SDocsAMI.LZH / SDocsAMI / Standb.e < prev    next >
Encoding:
Text File  |  1991-06-14  |  7.9 KB  |  214 lines
  1. BLOCK NAMES{}
  2. C Groups.
  3. C 1=W and Higgs propagators, three and four vertices.
  4. C 2=Ghost propagators and vertices.
  5. C 3=quark propagators and vertices.
  6. C 4=Lepton propagators and vertices.
  7.  
  8. C It is important with respect to ordering that m is mentioned last.
  9. C Sofar only one generation was needed. The neutrino mass is kept finite.
  10.  
  11. A N,N_,Pi,C,S
  12. A PM,M,M0,Mu,Md,Me,Mn
  13. C Mc,Ms,Mm,Mt,Mb,Mv
  14. A m
  15.  
  16. F Ax,Bx,Cx,Dx,Fx,Log,VE4,VE3,PROP
  17.  
  18. C L1,... Internal Lorentz indices (Dimension N).
  19.   l1,... Gamma matrix indices.
  20.   c1,... color indices.
  21.  
  22. I L1=N,l1,c1=3,L2=N,l2,c2=3,L3=N,l3,c3=3,
  23.   L4=N,l4,c4=3,L5=N,l5,c5=3,L6=N,l6,c6=3,
  24.   L7=N,l7,c7=3,L8=N,l8,c8=3,L9=N,l9,c9=3
  25.  
  26. C al,be,ga,de,mu,nu   External Lorents indices (Dimension 4).
  27.   lA,lB,lC,lD         External gamma indices.
  28.   cA,cB,cC,cD         External color indices.
  29.  
  30. I al,be,ga,de,mu,nu
  31. I lA,lB,lC,lD
  32. I cA=3,cB=3,cC=3,cD=3
  33.  
  34. C P,Q,K,Q1,... Internal momenta.
  35.   p0,p,q,k,... External momenta, specifically p0(mu) = p0(2) = p0Dp0 = 0.
  36.  
  37. V p0=z,q,p,k,P,Q,K,Q1
  38. ENDBLOCK
  39.  
  40. BLOCK VERT{}
  41.  
  42. C A=Photon, F=Neutral Higgs ghost, G=Positive Higgs Ghost,
  43.   U=Positive W, W=Neutral W, Z=HIGGS.
  44.  
  45.   F-P ghosts: C stands for Chi, P for Plus, M for Minus.
  46.   Y=CP, P=CM, R=Y0, T=YA.
  47.  
  48.   Fermions:
  49.   u=Up, d=Down, e=Electron, 1=Electron-neutrino.
  50.   c=Charm, s=Strange, m=Muon, 2=Muon neutrino.
  51.   t=Top, b=Bottom, v=Tau, 3=Tau neutrino,
  52.  
  53. X DEDEX(L1,L2,L3,L4)=2.*D(L1,L2)*D(L3,L4) - D(L1,L3)*D(L2,L4)
  54.                                          - D(L1,L4)*D(L2,L3)
  55.  
  56. T TAP: A,F,W,Z
  57. T TFE: P,R,T,Y, u,d,1,e, c,s,2,m, t,b,3,v
  58. T THI: Z=1:1
  59.  
  60. Anti,TAP
  61.  
  62. G 1
  63.  
  64. C Vector bosons.
  65.  
  66. X AA(L1,l1,c1,L2,l2,c2,K) = NOM(K,PM)*D(L1,L2)
  67. X U_U(L1,l1,c1,L2,l2,c2,K) = NOM(K,M)*D(L1,L2)
  68. X WW(L1,l1,c1,L2,l2,c2,K) = NOM(K,M0)*D(L1,L2)
  69.  
  70. X FF(L1,l1,c1,L2,l2,c2,K) = NOM(K,M0)
  71. X G_G(L1,l1,c1,L2,l2,c2,K) = NOM(K,M)
  72. X ZZ(L1,l1,c1,L2,l2,c2,K) = NOM(K,m)
  73.  
  74. X AG_G(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = S*K(L1)-S*Q(L1)
  75. X AU_U(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -S*D(L1,L3)*(K(L2)-P(L2))
  76.        -S*D(L1,L2)*(P(L3)-Q(L3))-S*D(L2,L3)*(Q(L1)-K(L1))
  77. X FGU_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*Q(L3)+0.5*P(L3)
  78. X FG_U(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = 0.5*Q(L3)-0.5*P(L3)
  79. X FWZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = i*(P(L2)-K(L2))/2/C
  80. X G_GW(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = [C^2-S^2]*(Q(L3)-P(L3))/2/C
  81. X GU_Z(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = 0.5*i*(P(L2)-K(L2))
  82. X G_UZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = 0.5*i*(P(L2)-K(L2))
  83. X U_UW(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -C*D(L1,L2)*(P(L3)-Q(L3))
  84.    -C*D(L2,L3)*(Q(L1)-K(L1))-C*D(L1,L3)*(K(L2)-P(L2))
  85.  
  86. X AGU_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - i*S*M*D(L1,L3)
  87. X AG_U(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = i*S*M*D(L1,L3)
  88. X FFZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - 0.5*m**2/M
  89. X G_GZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*m**2/M
  90. X GU_W(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = i*S**2*M*D(L2,L3)/C
  91. X G_UW(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - i*S**2*M*D(L2,L3)/C
  92. X U_UZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - M*D(L1,L2)
  93. X WWZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -M*D(L1,L2)/C**2
  94. X ZZZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -1.5*m**2/M
  95.  
  96. X AAG_G(L1,L2,L3,L4) = - 2.*S**2*D(L1,L2)
  97. X AAU_U(L1,L2,L3,L4) = - S**2*DEDEX(L1,L2,L3,L4)
  98. X AFGU_(L1,L2,L3,L4) = 0.5*S*D(L1,L4)
  99. X AFG_U(L1,L2,L3,L4) = 0.5*S*D(L1,L4)
  100. X AG_GW(L1,L2,L3,L4) = - S*[C^2-S^2]*D(L1,L4)/C
  101. X AGU_Z(L1,L2,L3,L4) = - 0.5*i*S*D(L1,L3)
  102. X AG_UZ(L1,L2,L3,L4) = 0.5*i*S*D(L1,L3)
  103. X AU_UW(L1,L2,L3,L4) = - S*C*DEDEX(L1,L4,L2,L3)
  104. X FFFF(L1,L2,L3,L4) = - 0.75*m**2/M**2
  105. X FFG_G(L1,L2,L3,L4) = - 0.25*m**2/M**2
  106. X FFU_U(L1,L2,L3,L4) = - 0.5*D(L3,L4)
  107. X FFWW(L1,L2,L3,L4) = - 0.5*D(L3,L4)/C**2
  108. X FFZZ(L1,L2,L3,L4) = - 0.25*m**2/M**2
  109. X FGU_W(L1,L2,L3,L4) = - 0.5*S**2*D(L3,L4)/C
  110. X FG_UW(L1,L2,L3,L4) = - 0.5*S**2*D(L3,L4)/C
  111. X G_G_GG(L1,L2,L3,L4) = - 0.5*m**2/M**2
  112. X G_GU_U(L1,L2,L3,L4) = - 0.5*D(L3,L4)
  113. X G_GWW(L1,L2,L3,L4) = - 0.5*[C^2-S^2]**2*D(L3,L4)/C**2
  114. X G_GZZ(L1,L2,L3,L4) = - 0.25*m**2/M**2
  115. X GU_WZ(L1,L2,L3,L4) = 0.5*i*S**2*D(L2,L3)/C
  116. X G_UWZ(L1,L2,L3,L4) = - 0.5*i*S**2*D(L2,L3)/C
  117. X U_U_UU(L1,L2,L3,L4) = DEDEX(L1,L2,L3,L4)
  118. X U_UWW(L1,L2,L3,L4) = - C**2*DEDEX(L2,L1,L4,L3)
  119. X U_UZZ(L1,L2,L3,L4) = - 0.5*D(L1,L2)
  120. X WWZZ(L1,L2,L3,L4) = - 0.5*D(L1,L2)/C**2
  121. X ZZZZ(L1,L2,L3,L4) = - 0.75*m**2/M**2
  122.  
  123. G 2
  124.  
  125. C F-P ghosts.
  126.  
  127. X P_P(L1,l1,c1,L2,l2,c2,K) = NOM(K,M)
  128. X R_R(L1,l1,c1,L2,l2,c2,K) = NOM(K,M0)
  129. X T_T(L1,l1,c1,L2,l2,c2,K) = NOM(K,PM)
  130. X Y_Y(L1,l1,c1,L2,l2,c2,K) = NOM(K,M)
  131.  
  132. X AP_P(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = S*Q(L1)
  133. X AY_Y(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - S*Q(L1)
  134. X P_PW(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = C*P(L3)
  135. X P_RU_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -C*P(L3)
  136. X P_TU_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -S*P(L3)
  137. X PR_U(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - C*Q(L3)
  138. X PT_U(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -S*Q(L3)
  139. X R_U_Y(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = C*P(L2)
  140. X RUY_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = C*K(L2)
  141. X T_U_Y(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = S*P(L2)
  142. X TUY_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = S*K(L2)
  143. X WY_Y(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -C*Q(L1)
  144.  
  145. X FP_P(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*i*M
  146. X FY_Y(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = 0.5*i*M
  147. X GPR_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = 0.5*i*M*C**-1
  148. X GRY_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*i*[C^2-S^2]*M/C
  149. X GTY_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -i*S*M
  150. X G_P_R(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = 0.5*i*[C^2-S^2]*M/C
  151. X G_P_T(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = i*S*M
  152. X G_R_Y(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*i*M*C**-1
  153. X P_PZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*M
  154. X R_RZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*M/C**2
  155. X Y_YZ(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = -0.5*M
  156.  
  157. G 3
  158. C Quarks.
  159.  
  160. X u_u(L1,l1,c1,L2,l2,c2,K)= - i*NOM(K,Mu)*G(l1,l2,K)*D(c1,c2)
  161.   + NOM(K,Mu)*Gi(l1,l2)*Mu*D(c1,c2)
  162. X d_d(L1,l1,c1,L2,l2,c2,K)= - i*NOM(K,Md)*G(l1,l2,K)*D(c1,c2)
  163.   + NOM(K,Md)*Gi(l1,l2)*Md*D(c1,c2)
  164.  
  165. X Udu_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= i/2/Sqrt2*G(l3,l2,L1,G6)*D(c2,c3)
  166. X U_d_u(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= i/2/Sqrt2*G(l2,l3,L1,G6)*D(c2,c3)
  167. X Wu_u(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)=i/4/C*[1-8/3*S^2]*G(l2,l3,L1)*D(c2,c3)
  168.                  + i/4/C*G(l2,l3,L1,G5)*D(c2,c3)
  169. X Wd_d(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)=i/4/C*[4/3*S^2-1]*G(l2,l3,L1)*D(c2,c3)
  170.                  - i/4/C*G(l2,l3,L1,G5)*D(c2,c3)
  171. X Au_u(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= 2/3*i*S*G(l2,l3,L1)*D(c2,c3)
  172. X Ad_d(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= - 1/3*i*S*G(l2,l3,L1)
  173.  
  174. X Gdu_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) =
  175.  - i/2/Sqrt2*Md/M*G(l3,l2,Gi)*D(c2,c3) + i/2/Sqrt2*Md/M*G(l3,l2,G5)*D(c2,c3)
  176.  + i/2/Sqrt2*Mu/M*G(l3,l2,Gi)*D(c2,c3) + i/2/Sqrt2*Mu/M*G(l3,l2,G5)*D(c2,c3)
  177. X G_d_u(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) =
  178.  + i/2/Sqrt2*Md/M*G(l2,l3,Gi)*D(c2,c3) + i/2/Sqrt2*Md/M*G(l2,l3,G5)*D(c2,c3)
  179.  - i/2/Sqrt2*Mu/M*G(l2,l3,Gi)*D(c2,c3) + i/2/Sqrt2*Mu/M*G(l2,l3,G5)*D(c2,c3)
  180. X Zu_u(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - 1/2*Mu/M*G(l2,l3,Gi)*D(c2,c3)
  181. X Zd_d(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - 1/2*Md/M*G(l2,l3,Gi)*D(c2,c3)
  182. X Fu_u(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = i/2*Mu/M*G(l2,l3,G5)*D(c2,c3)
  183. X Fd_d(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - i/2*Md/M*G(l2,l3,G5)*D(c2,c3)
  184.  
  185. G 4
  186. C Leptons.
  187.  
  188. X 1_1(L1,l1,c1,L2,l2,c2,K)= -i*NOM(K,Mn)*G(l1,l2,K) + NOM(K,Mn)*Gi(l1,l2)*Mn
  189. X e_e(L1,l1,c1,L2,l2,c2,K)= -i*NOM(K,Me)*G(l1,l2,K) + NOM(K,Me)*Gi(l1,l2)*Me
  190.  
  191. X Ue1_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= i/2/Sqrt2*G(l3,l2,L1,G6)
  192. X U_e_1(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= i/2/Sqrt2*G(l2,l3,L1,G6)
  193. X W1_1(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= i/4/C*G(l2,l3,L1,G6)
  194. X We_e(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= i/4/C*[4*S^2-1]*G(l2,l3,L1)
  195.                  - i/4/C*G(l2,l3,L1,G5)
  196. X Ae_e(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K)= - i*S*G(l2,l3,L1)
  197.  
  198. X Ge1_(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) =
  199.  - i/2/Sqrt2*Me/M*G(l3,l2,Gi) + i/2/Sqrt2*Me/M*G(l3,l2,G5)
  200.  + i/2/Sqrt2*Mn/M*G(l3,l2,Gi) + i/2/Sqrt2*Mn/M*G(l3,l2,G5)
  201. X G_e_1(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) =
  202.  + i/2/Sqrt2*Me/M*G(l2,l3,Gi) + i/2/Sqrt2*Me/M*G(l2,l3,G5)
  203.  - i/2/Sqrt2*Mn/M*G(l2,l3,Gi) + i/2/Sqrt2*Mn/M*G(l2,l3,G5)
  204. X Z1_1(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - 1/2*Mn/M*G(l2,l3,Gi)
  205. X Ze_e(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - 1/2*Me/M*G(l2,l3,Gi)
  206. X F1_1(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = i/2*Mn/M*G(l2,l3,G5)
  207. X Fe_e(L1,l1,c1,P,L2,l2,c2,Q,L3,l3,c3,K) = - i/2*Me/M*G(l2,l3,G5)
  208.  
  209. G
  210.  
  211. ENDBLOCK
  212.  
  213. End
  214.