Clear["@"];
<< "D:\\sergeev\\purdue\\math\\packages\\printing.m";
(*** ** ** ** ** ********)
istate = 0;
npages = 9;
nfigs = 6;
(* 6*9 = 54 - number of normal modes *)
(*** ** ** ** ** ********)
grex[ist_] := If[ist == 0, "ground", "excited", "unknown"];
Module[{s}, p[s_String] := Write[of, s]];
state = grex[istate];
statef = state <> ".m";
dir = "D:\\sergeev\\bgu\\math\\zilberg";
SetDirectory[dir];
Get[statef];
Print[title];
SetDirectory["html"];
Do[(* npage = 1, 2, ..., nopages *)
page = ToString[npage];
nmax = npage nfigs;
nmin = nmax - nfigs + 1;
fpage = state <> page <> ".htm";
of = OpenWrite[fpage, PageWidth -> Infinity, FormatType -> OutputForm];
"" // p;
"" // p;
"Vibrations no. " <> ToString[nmin] <> " - " <> ToString[nmax] <>
" of 1-phenylpyrrole molecule" <>
", " <> state <> " state" // p;
"
"unpublished report\">" // p;
"
"vibrations, transition rates\">" // p;
"" // p;
"Normal modes of vibration of 1-phenylpyrrole molecule
" // p;
"
"ALIGN=\"CENTER\" VALIGN=\"MIDDLE\">" // p;
Do[mode = ToString[nmode];
"| " <> mode <> " | " // p;
, {nmode, nmin, nmax}];
"
" // p;
Do[mode = ToString[nmode];
mode2 = If[nmode < 10, "0", ""] <> mode;
"![](\"") state <> "/vibr" <> mode2 <>
".gif\" ALT=\"Mode No. " <> mode <>
"\" BORDER=0 WIDTH=125 HEIGHT=200> | " // p;
, {nmode, nmin, nmax}];
"
" // p;
Do[
"m =" <> printing`printF[redms[[nmode]], 5, 2] <>
"
w =" <> printing`printF[freqs[[nmode]], 8, 2] <>
" | " // p;
, {nmode, nmin, nmax}];
"
| " // p;
" |
" // p;
"Back to Transitions in " <>
"1-phenylpyrrole molecule
" // p;
"Results of work at " <>
"BGU with B. Segev
" // p;
"Designed by A.Sergeev" <>
"
" // p;
"" // p;
"" // p;
Close[of];
, {npage, npages}];