Good evening! I am working on a quantum mechanics problem using Mathematica and when I typed in the functions I need, I keep getting syntax problem saying " Expression imcomplete, more input needed". I have no idea what is going on. Will anyone help me with it? Thank you so much!!!

Input:

\!\(\*SuperscriptBox[\(J\), \('\)]\)[D_] := 
 N[E, 10]^2/(
  4*\[Pi]*Quantity[1, "ElectricConstant"]*
   Quantity["BohrRadius"]) (1/D - 
    Exp[-2*D] (1/D + 11/8 + (3 D)/4 + D^2/6))

Getting:Syntax::sntxi

Input:
(J^')[D_]:=N[E,10]^2/(4*\[Pi]*Quantity[1, "ElectricConstant"]*Quantity["BohrRadius"]) (1/D-Exp[-2D]*(1/D+11/8+(3D)/4+D^2/6))
\!\(\*SuperscriptBox[\(K\), \('\)]\)[D_] := 
 N[E, 10]^2/(
  20*\[Pi]*Quantity[1, "ElectricConstant"]*
   Quantity[
    "BohrRadius"]) (-Exp[-2*D] (-25/8 + 23/4 D + 3 D^2 + 1/3 D^3) + 
    6/D (\[CapitalDelta]^2 (N[EulerGamma, 10] + Log[D]) + 
\!\(\*SuperscriptBox[\(\[CapitalDelta]\), \('\)]\)^2*
        ExpIntegralEi[-4 D] - 2*\[CapitalDelta]*
\!\(\*SuperscriptBox[\(\[CapitalDelta]\), \('\)]\)*
        ExpIntegralEi[-2 D]))

Getting:Syntax::sntxi

Attachments: