# 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; "
namel <> "/index.htm\">" <> name <> "" <> molec <> "" <> bas <> "" <> fdat <> "
" <> expprint <> "
" <> "" <> "" <> "" <> "" // p; printprogr["indline"];```

 Examples of MP seriesMathematica programsWork in UMassDUnpublished reports

Designed by A. Sergeev.