(o <- kform_general(5,2,1:10))
hodge(o)
o == hodge(hodge(o))
Faraday <- kform_general(4,2,runif(6)) # Faraday electromagnetic tensor
mink <- c(-1,1,1,1) # Minkowski metric
hodge(Faraday,g=mink)
Faraday == Faraday |>
hodge(g=mink) |>
hodge(g=mink) |>
hodge(g=mink) |>
hodge(g=mink)
hodge(dx,3) == dy^dz
## Some edge-cases:
hodge(scalar(1),2)
hodge(zeroform(5),9)
hodge(volume(5))
hodge(volume(5),lose=TRUE)
hodge(scalar(7),n=9)
Run the code above in your browser using DataLab