Mathematica programs to display results of summation of Moller-Plesset perturbation series as web-pages

Main program

(* Display results for each example of series in HTML - format *)
 itest = 0; (* 1 for testing *)
 newabc = True;  (* re - calculate parameters a, b, c *)
 newfigure = True;  (* re - create figure files *)
 dirhtml = "C:\html\files\umassd\mollerpl";
 dirser = "C:\sergeev\umassd\dgoodson\projects\qsum\series";
 dirhome = "C:\sergeev\umassd\math\internet";
 If[FileType[dirhtml] =!= Directory,
     Print["Creating HTML-directory ", dirhtml]; CreateDirectory[dirhtml]];
 << indhead.m;
     << indline.m;
     << head.m;
     << ctable.m;
     << cplot.m;
     << cplots.m;
     << errors.m;
     << sings3.m;
     << foot.m,
     {nser, mser}];
 << indfoot.m;


indhead Printing head of list of examples
indline Initiation and printing a line of list of examples
head Printing head for each example
ctable Printing table of coefficients and partial sums for each example
cplot Plotting coefficients for each example
cplots Plotting scaled coefficients for each example
errors Plotting number of accurate digits as function of n
sings3 Location of singularities of diagonal quadratic and differential approximants
foot Printing footer for each example
indfoot Printing footer of list of examples

List of examples of MP series Blank Work in UMassD BlankWaste icon Unpublished reports

Designed by A. Sergeev.