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: