Printing head for each example

Mathematica program

(* Printing head for each example *)

exampf = ToFileName[dir, "index.htm"];
of = OpenWrite[exampf, PageWidth -> Infinity, FormatType -> OutputForm];

"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">" // p;
"<HTML><HEAD>" // p;
"<TITLE>Moller-Plesset perturbation theory: example &quot;" <> name <> 
      "&quot;</TITLE>" // p;
"<META name=\"description\" content=\"Moller-Plesset perturbation series is taken from the file &quot;" <>
      name <> "&quot;\">" // p;
"<META name=\"keywords\" content=\"quantum mechanics, Moller Plesset perturbation theory, summation, Pade approximants\">" // p;
"</HEAD><BODY BGCOLOR=\"#C0C0C0\"><A NAME=\"top\"></A>" // p;
ruler // p;
"<CENTER><H1>Moller-Plesset perturbation theory: example &quot;" <> name <> 
      "&quot;</H1>" // p;
If[syst =!= "",
    "<H3>System <IMG SRC=\"name.gif\" WIDTH=" <>
      gifw <> " HEIGHT=" <> gifh <>
      " ALT=\"" <> name <> "\" BORDER=\"0\" ALIGN=\"MIDDLE\">" <> 
          If[cls === "&nbsp;", "", " (class " <> cls <> ")"]
          <> "</H3>" // p;
];

(*
If[syst =!= "",
    "<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=5><TR><TH ALIGN=\"CENTER\" VALIGN=\"MIDDLE\" BGCOLOR=\"#FFFFFF\">" <>
          "System <IMG SRC=\"name.gif\" WIDTH=" <>
      gifw <> " HEIGHT=" <> gifh <>
      " ALT=\"" <> name <> "\" BORDER=\"0\" ALIGN=\"MIDDLE\">" <> 
          If[cls === "&nbsp;", "", " (class " <> cls <> ")"]
          <> "</TH></TR></TABLE><BR>" // p;
];
*)

"</CENTER><H3>Content</H3>\n
<UL>\n
<LI><A HREF=\"#ctable\">Table of coefficients and partial sums</A>\n
<LI><A HREF=\"#cplot\">Semilogarithmic plot of coefficients</A>\n
<LI><A HREF=\"#cplots\">Plot of scaled coefficients</A>\n
<LI><A HREF=\"#errors\">Convergence of summation approximants</A>\n
<LI><A HREF=\"#sings3\">Singularities of approximants in complex plane</A>\n
</UL><BR>" // p;

printprogr["head"];

All Mathematica programs used to study M. - P. series Blank Work in UMassD BlankWaste icon Unpublished reports

Designed by A. Sergeev.