Printing head of list of examples

Mathematica program

(* Printing head of list of examples *)

plt00 = ListPlot[{{0, 0}}, PlotStyle -> {PointSize[0]}, 
      DisplayFunction -> Identity];

ruler := (
mrul = mser; (* to shrink ruler, decrease to ~20 *)
names1 = names;
rulertext = "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5>";
While[(m = Length[names1]) != 0,
    rulertext = rulertext <> "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\"><TD><B>Examples</B></TD>";
    Do[
      c = If[nrul <= m,
          name1 = names1[[nrul]];
          namel1 = StringReplace[ToLowerCase[name1], "+" -> "-"];
          ref = If[name1 === name, "<B>" <> name1 <> "</B>",
                   "<A HREF=\"../" <> namel1 <> "/index.htm\">" <> name1 <> "</A>"];
          "<TD NOWRAP><FONT SIZE=\"-2\">" <> ref <> "</FONT></TD>",
          "<TD>&nbsp;</TD>"];
      rulertext = rulertext <> c
      , {nrul, mrul}];
    rulertext = rulertext <> "</TR>";
    rulertext = rulertext <> "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\"><TD><B>Molecule</B></TD>";
    Do[
      c = If[nrul <= m,
          name1 = names1[[nrul]];
          namel1 = StringReplace[ToLowerCase[name1], "+" -> "-"];
          "<TD NOWRAP><FONT SIZE=\"-2\">" <> If[name1 === name, "<B>", ""] <> molecule[name1] <>
 If[name1 === name, "</B>", ""] <> "</FONT></TD>",
          "<TD>&nbsp;</TD>"];
      rulertext = rulertext <> c
      , {nrul, mrul}];
    rulertext = rulertext <> "</TR>";
    rulertext = rulertext <> "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\"><TD><B>Basis</B></TD>";
    Do[
      c = If[nrul <= m,
          name1 = names1[[nrul]];
          namel1 = StringReplace[ToLowerCase[name1], "+" -> "-"];
          "<TD NOWRAP><FONT SIZE=\"-2\">" <> If[name1 === name, "<B>", ""] <> basis[name1] <>
 If[name1 === name, "</B>", ""] <> "</FONT></TD>",
          "<TD>&nbsp;</TD>"];
      rulertext = rulertext <> c
      , {nrul, mrul}];
    rulertext = rulertext <> "</TR>";
    names1 = Drop[names1, Min[m, mrul]]];
rulertext = rulertext <> "</TABLE>";
rulertext);

If[ifwrite, indfile = ToFileName[dirhtml, "index.htm"];
indf = open[indfile];
of = indf;
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">" // p;
"<HTML><HEAD>" // p;
"<TITLE>Examples of Moller-Plesset perturbation theory for different molecules</TITLE>" // p;
"<META name=\"description\" content=\"Details of computations for each example of MP perturbation series\">" // p;
"<META name=\"keywords\" content=\"quantum mechanics, Moller Plesset perturbation theory, summation, Pade approximants\">" // p;
"</HEAD><BODY BGCOLOR=\"#C0C0C0\">" // p;
"<H1><IMG SRC=\"../../../iconz/molec1.gif\" WIDTH=36 HEIGHT=41 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Molecule - icon for Allen-data\">
Examples of M&#248;ller-Plesset perturbation theory</H1>" // p;
"<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=5>" // p;
"<TR><TH ALIGN=\"CENTER\" VALIGN=\"MIDDLE\" BGCOLOR=\"#FFFFFF\" COLSPAN=5>List of examples. " <>
      "To view details for each example, follow a link to its name</TH></TR>" // p;
"<TR ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" BGCOLOR=\"#FEF8CB\"><TH WIDTH=\"8%\">Name</TH>" <>
      "<TH WIDTH=\"8%\">Molecule</TH><TH WIDTH=\"13%\">Basis</TH><TH WIDTH=\"13%\">Structure</TH><TH>M&#248;ller-Plesset perturbation series</TH></TR>" // p;
];
printprogr["indhead"];

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

Designed by A. Sergeev.