Printing footer for each example

Mathematica program

(* Printing footer for each example *)

"<HR>" <> ruler <> "<HR>" // p;

"<A NAME=\"bugs\"></A><H3>Known inaccuracies</H3>\n
<UL>
<LI>We always sum the series 
<BR><I>F</I>(<I>z</I>)&nbsp;=&nbsp;MP1&nbsp;+&nbsp;(MP2-MP1)&nbsp;<I>z</I>&nbsp;+&nbsp;(MP3-MP2)&nbsp;<I>z</I><SUP>2</SUP>&nbsp;+&nbsp;...
rather than a complete M&#248;ller-Plesset series
<BR><I>E</I>(<I>z</I>)&nbsp;=&nbsp;MP0&nbsp;+&nbsp;(MP1-MP0)&nbsp;<I>z</I>&nbsp;+&nbsp;(MP2-MP1)&nbsp;<I>z</I><SUP>2</SUP>&nbsp;+&nbsp;...
where <I>F</I>(<I>z</I>) is expressed through <I>E</I>(<I>z</I>) by a formula
<BR><I>F</I>(<I>z</I>)&nbsp;=&nbsp;MP0&nbsp;+&nbsp;[<I>E</I>(<I>z</I>)&nbsp;-&nbsp;MP0]&nbsp;<I>z</I><SUP>-1</SUP>.\n
<LI>On the <A HREF=\"sings.htm\">page</A>, table of singularities with their weights 
for <I>differential</I> approximants is absent." // p;
If[NumberQ[engap], "<LI>The lowest excited energy level shown on the <A HREF=\"#function\">plot</A> of the function 
<I>E</I>(<I>z</I>) was calculated
using data for &quot;HOMO-LUMO gap in canonical RHF orbitals&quot; from the paper 
J.&nbsp;Chem.&nbsp;Phys., vol.&nbsp;112, p.&nbsp;9213. It likely corresponds to <I>z</I>&nbsp;=&nbsp;0
rather than <I>z</I>&nbsp;=&nbsp;1 as marked on the <A HREF=\"#function\">plot</A>." // p; ];
"</UL><HR>" // p;

refbar // p;
"<P><FONT SIZE=\"-2\">Designed by <A HREF=\"../../../../index.htm\">A. Sergeev</A></FONT>.</P></BODY></HTML>" // p;
close[exampf];

printprogr["foot"];

Molecule - icon for Allen-dataBlankExamples of MP seriesBlankSource code of Mathematica programBlankMathematica programsBlankWork in UMass DartmouthWork in UMassDBlankWaste iconUnpublished reports

Designed by A. Sergeev.