(* from formula 4.32 *)
(Subscript[A, Λ]) = (Sqrt[0.7 + 0.3 (x^(-3))])
(Subscript[A, DE]) = (Sqrt[0.7 (x^((-3)/10))+0.3 (x^(-3))])

(* from formula 4.35 *)
(Subscript[d, Λ])[z_]:= ((1+z)/(Subscript[H, 0]))NIntegrate[(1/((x^2)(Subscript[A, Λ]))),{x,(1/(1+z)),1}]
(Subscript[d, DE])[z_]:= ((1+z)/(Subscript[H, 0]))NIntegrate[(1/((x^2)(Subscript[A, DE]))),{x,(1/(1+z)),1}]

(Subscript[d, Λ])[1]
(Subscript[d, DE])[1]

Abs[(((Subscript[d, Λ])[1] - (Subscript[d, DE])[1])/((Subscript[d, Λ])[1]))]