Some minor bug corrections

This commit is contained in:
Alberto Ramos 2021-11-18 16:55:37 +01:00
parent 7766517358
commit 5b1f45f8e0
3 changed files with 6 additions and 4 deletions

View file

@ -42,6 +42,7 @@ include("GroupSU3.jl")
include("M3x3.jl") include("M3x3.jl")
include("AlgebraSU3.jl") include("AlgebraSU3.jl")
include("FundamentalSU3.jl") include("FundamentalSU3.jl")
export imm, mimm
## END SU(3) ## END SU(3)
include("GroupU1.jl") include("GroupU1.jl")

View file

@ -51,7 +51,7 @@ include("Spinors/Spinors.jl")
using .Spinors using .Spinors
export Spinor, Pgamma export Spinor, Pgamma
export norm, norm2, dot, imm, mimm export imm, mimm
export pmul, gpmul, gdagpmul export pmul, gpmul, gdagpmul
end # module end # module

View file

@ -12,6 +12,7 @@
module Spinors module Spinors
using ..Groups using ..Groups
import ..Groups.imm, ..Groups.mimm, ..Groups.norm, ..Groups.norm2
struct Spinor{NS,G} struct Spinor{NS,G}
s::NTuple{NS,G} s::NTuple{NS,G}
@ -122,7 +123,7 @@ function pmul(::Type{Pgamma{1,-1}}, a::Spinor{4,G}) where {NS,G}
r1 = a.s[1]-imm(a.s[4]) r1 = a.s[1]-imm(a.s[4])
r2 = a.s[2]-imm(a.s[3]) r2 = a.s[2]-imm(a.s[3])
return Spinor{4,G}((imm(r2),imm(r1))) return Spinor{4,G}((r1,r2,imm(r2),imm(r1)))
end end
function pmul(::Type{Pgamma{2,1}}, a::Spinor{4,G}) where {NS,G} function pmul(::Type{Pgamma{2,1}}, a::Spinor{4,G}) where {NS,G}
@ -180,7 +181,7 @@ function gpmul(::Type{Pgamma{1,-1}}, g, a::Spinor{4,G}) where {NS,G}
r1 = g*(a.s[1]-imm(a.s[4])) r1 = g*(a.s[1]-imm(a.s[4]))
r2 = g*(a.s[2]-imm(a.s[3])) r2 = g*(a.s[2]-imm(a.s[3]))
return Spinor{4,G}((imm(r2),imm(r1))) return Spinor{4,G}((r1,r2,imm(r2),imm(r1)))
end end
function gpmul(::Type{Pgamma{2,1}}, g, a::Spinor{4,G}) where {NS,G} function gpmul(::Type{Pgamma{2,1}}, g, a::Spinor{4,G}) where {NS,G}
@ -237,7 +238,7 @@ function gdagpmul(::Type{Pgamma{1,-1}}, g, a::Spinor{4,G}) where {NS,G}
r1 = g\(a.s[1]-imm(a.s[4])) r1 = g\(a.s[1]-imm(a.s[4]))
r2 = g\(a.s[2]-imm(a.s[3])) r2 = g\(a.s[2]-imm(a.s[3]))
return Spinor{4,G}((imm(r2),imm(r1))) return Spinor{4,G}((r1,r2,imm(r2),imm(r1)))
end end
function gdagpmul(::Type{Pgamma{2,1}}, g, a::Spinor{4,G}) where {NS,G} function gdagpmul(::Type{Pgamma{2,1}}, g, a::Spinor{4,G}) where {NS,G}