Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Integration problem

• To: mathgroup at smc.vnet.net
• Subject: [mg36325] Integration problem
• From: rajgupta121 at rediffmail.com (Raj)
• Date: Sat, 31 Aug 2002 01:26:13 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Hi All,


   What is the problem with this integration. Its keep on running and
not coming out.
\[CapitalPsi][r_, \[Theta]_, \[Phi]_][4] := 
  r Exp[-r/2]Sin[\[Theta]]Cos[\[Phi]];
\[CapitalPsi][r_, \[Theta]_, \[Phi]_][11] := 
  r^2 Exp[-r/2]Sin[\[Theta]]Cos[\[Theta]]Cos[\[Phi]];


\[ScriptCapitalH][
    r_, \[Theta]_, \[Phi]_] := (-\[HBar]/
            2 m (1/(r^2 Sin[\[Theta]]))(Sin[\[Theta]]D[r^2 D[#, r], r]
+
              D[Sin[\[Theta]] D[#, \[Theta]], \[Theta]] + 
              1/(Sin[\[Theta]])(D[D[#, \[Phi]], \[Phi]])) + e V &)´_b

ho = Sum[
    Sum[
      Integrate[\[CapitalPsi][r, \[Theta], \[Phi]][
            j](\[ScriptCapitalH][r, \[Theta], \[Phi]])[\[CapitalPsi][
                r, \[Theta], \[Phi]][i]], {r, 0, h}, {\[Theta], 0, 
          Pi}, {\[Phi], 0, 2 Pi}],
      {i, 11, 11}],
    {j, 4, 4}]




  Thanks in advance.

  Raj Kumar Gupta