<< Graphics`Graphics`

Δ(Subscript[2, Q]) = Δ(Subscript[2, L]) ((Subscript[(((1 + Δ(Subscript[2, L])))^β), n])/(1 + (Subscript[α, n]) Δ(Subscript[2, L]))) 
        Exp[-f]

(Subscript[α, n]) = 1.3884 + 0.3700  n - 0.1452  (n^2)

(Subscript[β, n]) = 0.8291 + 0.9854  n + 0.3401  (n^2)

f = y/4 + (y^2)/8

y = k/(Subscript[k, σ])

(Subscript[k, σ]) = (Subscript[k, 0]) (((((((1 + n)/2)!)/2)))^(-1/(3 + n)))

Δ(Subscript[2, H]) = Δ((Subscript[2, H1])/(1 + (Subscript[μ, n]) (y^(-1)) + (Subscript[ν, n]) (y^(-2))))

(Subscript[μ, n]) = (10^(-3.5442 + 0.1908  n))

(Subscript[ν, n]) = (10^(0.9589 + 1.2857  n))

Δ(Subscript[2, H1]) = (((Subscript[a, n]) (y^3))/(1 + (Subscript[b, n]) y + (Subscript[c, n]) (y^(3 - (Subscript[γ, n])))))

(Subscript[a, \[Placeholder]]) = 
      (10^(1.4861 + 1.8369  n + 1.6762  (n^2) + 0.7940  (n^3) + 0.1670  (n^4) - 0.6206  C))

(Subscript[b, n]) = (10^(0.9463 + 0.9466  n + 0.3084  (n^2) - 0.9400  C))

(Subscript[c, n]) = 
      (10^(-0.2807 + 0.6669  n + 0.3214  (n^2) - 0.0793  C))

(Subscript[γ, n]) = 0.8649 + 0.2989  n + 0.1631  C

σ2[
        R_] = (∫_(-∞)^∞) Δ(Subscript[2, L]) 
          Exp[-(k^2) (R^2)] (1/k) \[DifferentialD]k

Cee = -R Derivative[R Derivative[Log[σ2]]]

Δ(Subscript[2, L]) = ((((k/(Subscript[k, 0]))))^(3 + n))

Δ(Subscript[2, NL]) = Δ(Subscript[2, Q]) + Δ(Subscript[2, H])