next up previous
Up: Back to the Chemistry 3730 test index

Chemistry 3730 Fall 1997 Test 2 Solutions

  1. tex2html_wrap_inline340
    1. displaymath342

    2. If we neglect the last term, we have two independent hydrogenic problems. Thus treat the last term as a perturbation using a product of 1s hydrogenic wavefunctions as the solution of the known problem. Compute tex2html_wrap_inline344 and add this quantity to tex2html_wrap_inline346 (computed with Z=2, of course) to obtain an approximation to the energy of the ground state.
  2. Start by defining the wavefunction and telling Maple that tex2html_wrap_inline350 :

    > psi2p0 := (r,theta,phi) -> A*r*exp(-r/(2*a0))*cos(theta);

    displaymath320

    > assume(a0>0);


    We want tex2html_wrap_inline352 . Compute the inner product, which I will call N:

    > N := int(int(int(
      psi2p0(r,theta,phi)^2*r^2*sin(theta),r=0..infinity),
      theta=0..Pi),phi=0..2*Pi);

    displaymath321



    If N=1, tex2html_wrap_inline358 or, in somewhat simplified form,

    displaymath360

  3. displaymath362

    Using Taylor's theorem, we have

    eqnarray57

  4. Define the potential energy and wavefunction and tell Maple that L>0:

    > V := x -> hbar^2/(m*L^3)*abs(x-L/2);

    displaymath322

    > phi := x -> x*(L-x) + c*x^2*(L-x)^2;

    displaymath323

    > assume(L>0);


    The variational energy is

    displaymath366

    We will compute it in pieces. First tex2html_wrap_inline368 :


    > Kip := int(phi(x)*(-hbar^2/(2*m))*diff(phi(x),x$2),x=0..L);

    displaymath324



    Now tex2html_wrap_inline370 :

    > Vip := int(phi(x)*V(x)*phi(x),x=0..L);

    displaymath325



    Finally, we calculate tex2html_wrap_inline372 :

    > ip:=int(phi(x)^2,x=0..L);

    displaymath326

    > Evar:=(Kip+Vip)/ip;

    eqnarray146



    To find the best value of the variational parameter c, we minimize tex2html_wrap_inline376 with respect to this parameter:


    > s1:=solve(diff(Evar,c)=0,c);

    displaymath327



    The best solution is the one which gives the lowest energy:

    > evalf(subs(c=s1[1],Evar));

    displaymath328

    > evalf(subs(c=s1[2],Evar));

    displaymath329



    The first is obviously the superior solution so

    displaymath378



Marc Roussel
Mon Nov 10 14:57:10 MST 1997