Initiation and printing a line of list of examples

Mathematica program

(* Initiation and printing a line of list of examples *)

name = names[[nser]];
enex = exact[name];
func = coeff[name];
nm = Length[func];
molec = molecule[name];
mol = removetag[molec];
bas = basis[name];
fdat = structure[name];
(* Reading supplemental data if available *)
fsuppl = name <> ".txt";
slist0 = {};
engap=.;
zmin=zmax=fmin=fmax=.;
If[FileType[fsuppl] === File, Get[fsuppl]];

Print["Example No. ",nser,":   Name ",name,"   -   Molecule ",mol,
   "   -   Basis ",bas,"   -   N = ",nm];
expprint = 
  ToString[N[func[[1]]] + N[func[[2]]] z + N[func[[3]]] z^2 + N[func[[nm]]] z^(nm - 1)];
sp = Last[StringPosition[expprint, {"+", "-"}]];
sgn = StringTake[expprint, sp];
rpl = If[sgn === "+", "+ ... +", "+ ... -"];
expprint = StringReplacePart[expprint, rpl, sp];
sb = StringPosition[expprint, "\n"];
If[sb =!= {},
  nb = sb[[1, 1]];
  sp1 = sp - nb;
  expprint = StringReplacePart[expprint, "       ", sp1]];
namel = StringReplace[ToLowerCase[name], "+" -> "-"];
dir = ToFileName[dirhtml, namel];
If[ifwrite, 
If[FileType[dir] =!= Directory, Print["Creating parent HTML-directory ", dir];
   CreateDirectory[dir]];
];

of = indf;
"<TR ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" BGCOLOR=\"#FFFFFF\"><TD WIDTH=\"8%\"><A HREF=\"" <>
      namel <> "/index.htm\">" <> name <> "</A></TD>" <>
      "<TD WIDTH=\"8%\">" <> molec <> "</TD>" <>
      "<TD WIDTH=\"13%\">" <> bas <> "</TD>" <>
      "<TD WIDTH=\"13%\">" <> fdat <> "</TD>" <>
      "<TD><PRE>" <> expprint <> "</PRE></TD></TR>" // p;

printprogr["indline"];

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

Designed by A. Sergeev.