(* Creating the beginning of HTML - list of examples *) indexhead := If[ifindex, ofile = ToFileName[dirhtml, "index.htm"]; of = OpenWrite[ofile, FormatType -> OutputForm, PageWidth -> Infinity]; " \n \n Scattering of plane wave on radially symmetrical potential, in two dimensions\n \n \n \n \n

Scattering of plane wave on radially symmetrical potential, in two dimensions

Computation of wavefunctions using exact quantum and semiclassical approaches

Examples of two-dimensional potentials

\n \n \n \n \n \n \n \n \n \n \n " // o; Close[of]; ]; (* Writing a line into a table of HTML - list of examples *) indexline := If[ifindex, ofile = ToFileName[dirhtml, "index.htm"]; of = OpenAppend[ofile, FormatType -> OutputForm, PageWidth -> Infinity]; " \n \n \n \n \n \n \n \n " // o; Close[of]; ]; (* Creating the end of HTML - list of examples *) indextail := If[ifindex, ofile = ToFileName[dirhtml, "index.htm"]; of = OpenAppend[ofile, FormatType -> OutputForm, PageWidth -> Infinity]; "

Click on one of the plots below to see results of calculation	Potential	Energy	Mass	Short description
handle<>"/index.htm\">handle<>"/pot.gif\" WIDTH=\"150\" HEIGHT=\"60\" BORDER=0 ALT=\""<>name<>"\">	"<>wname<>"	"<>printnumb[en]<>"	"<>printnumb[m]<>"	"<>name<>"

\n \n \n

Mathematica programs\n

\n \n

\n \n \n \n \n " // o; (* Copy program files *) dirmath = dirhome; dirhtmlmath = "C:\\html\\files\\tulane\\twodim\\math"; If[FileType[dirmath]=!=Directory, Print["Warning: directory ",dirmath," does not exist. Mathematica packages will not be copied to HTML-directory!"], If[FileType[dirhtmlmath]=!=Directory, Print["Warning: directory ",dirhtmlmath," does not exist. Mathematica packages will not be copied to HTML-directory!"], filesold = FileNames[ToFileName[dirhtmlmath, "*.m"]]; If[iprint>0,Print["Deleting old math-package files: ", filesold]]; DeleteFile[filesold]; SetDirectory[dirmath]; filesnew = FileNames["*.m"]; If[iprint>0,Print["Copying new math-package files: ", filesnew]]; CopyFile[#, ToFileName[dirhtmlmath, #]] & /@ filesnew; ResetDirectory[]; ]]; Close[of]; ];