R/VMPDSigmaLL.R

In rcarcasses/HQCD-P: An R package for the Holographic Pomeron

VMPDSigmaLL <- function(vmName) {
  obs <- DSigma('VMP', 'LL')
  attr(obs, 'vmName') <- vmName
  obs
}

getExternalStateFactor.VMPDSigmaLL <- function(vmpll, Q2 = Q2, alpha = 0) {
  f1   <- getU1NNMode(Q2 = Q2, alpha = alpha)$dfQ(z)
  f3   <- getU1NormalizableMode()$dfm(z)
  splinefun(z, f1 * f3 / (sqrt(Q2) * mass))
}

getCfact.VMPDSigmaLL <- getCfact.VMPDSigma