Plotting coefficients for each example

Mathematica program

(* Plotting coefficients for each example *)

sect = "cplot";
entity = "figure";

If[newfigure == True,
enplus = enminus = enall = {};
Do[ener = func[[n]];
    If[ener != 0, enlog = Abs[ener]; enall = Append[enall, {n, enlog}]];
    If[ener > 0, enplus = Append[enplus, {n, enlog}]];
    If[ener < 0, enminus = Append[enminus, {n, enlog}]], {n, nm}];
rat = 1/GoldenRatio // N;
pntsz = 0.015 Sqrt[30/(15 + nm)];
pltplus = 
    If[Length[enplus] == 0, {}, 
      LogListPlot[enplus, PlotStyle -> {RGBColor[1, 0, 0], PointSize[pntsz]},
        DisplayFunction -> Identity]];
pltminus = 
    If[Length[enminus] == 0, {}, 
      LogListPlot[enminus, PlotStyle -> {RGBColor[0, 0, 1], PointSize[pntsz]},
        DisplayFunction -> Identity]];
pltall = LogListPlot[enall, 
      PlotStyle -> {Thickness[pntsz/4], RGBColor[0.5, 0.5, 0.5]}, 
      PlotJoined -> True,
      DisplayFunction -> Identity];
Off[Display::"pserr"];
plt = Show[pltall, plt00, pltplus, pltminus,
      AxesLabel -> {"\!\(\* StyleBox[\"n\",\nFontFamily->\"Times\",\nFontSlant->\"Italic\"]\)",
          "|\!\(\* StyleBox[\(E\_n\),\nFontFamily->\"Times\",\nFontSlant->\"Italic\"]\)|"},
      AspectRatio -> rat, 
      PlotRange -> {{0, nm + 0.3}, All}, 
      AxesOrigin -> {0, 0}, 
      DisplayFunction -> If[ifexport, Identity, $DisplayFunction]];
outfile = ToFileName[dir, sect <> ".gif"];
If[ifexport, Export[outfile, plt, "GIF", ImageSize -> 320 {1, rat}, 
    ImageResolution -> 150]];
outfile1 = StringReplace[outfile, ".gif" -> ".pdf"];
plt1 = Show[plt, PlotRegion -> {{0.05, 0.95}, {0.05, 0.95}},
(*      TextStyle -> {FontSubstitutions -> {"Math2Mono" -> "Times"}}, *) (* Trying to fix incorrect display of "|", but it does not work *)
      DisplayFunction -> Identity];
If[ifexport, Export[outfile1, plt1, "PDF",
    ImageSize -> Automatic,
    ImageRotated -> True]];
];

"<A NAME=\"" <> sect <> "\"></A><TABLE BORDER=1 CELLPADDING=8 CELLSPACING=0 BGCOLOR=\"#FFFFFF\"><TR><TD>" // p;
"<TABLE BORDER=0 CELLPADDING=8 BGCOLOR=\"#FFFFFF\">" // p;
"<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\" BGCOLOR=\"#FEF8CB\"><TH>" <>
      "Coefficients of Moller-Plesset perturbation theory, semilogarithmic plot." <>
      "<BR>Red/blue dots correspond to <FONT \
COLOR=\"#FF0000\">positive</FONT>/<FONT COLOR=\"#0000FF\">negative</FONT> coefficients</TH></TR>" // p;
"<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\"><TD>" <>
      "<IMG SRC=\"" <> sect <> ".gif?"<>rndm<>"\" WIDTH=666 HEIGHT=412 ALT=\"Plot of MP coefficients\"></TD></TR>" <>
      "</TABLE></TD></TR></TABLE>" // p;

printprogr[sect]; printnav;

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

Designed by A. Sergeev.