MathGroup Archive 2002

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

Search the Archive

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


  • Prev by Date: Re: Mathematica 4.2 & Strange Plot results
  • Next by Date: RE: Sub- and Superscripts in FrameLabel
  • Previous by thread: Font error after Upgrade to SuSE Linux 8.0
  • Next by thread: L2 inner product. Integrate and Conjugate?