Wave Propagation in Linear Media | re-examined

ReSize[l_List,n_] := ReSize[l,{n,n}];
Link3DList[names_,outname_,path__:""] := Module[{dir,mergelist={}},
dir = FileNames[names,path];
If[Length[dir] < 2, Message[Link3DList::fewlists],
If[FileNames[outname,path] == {} ||
InputString["Output file exists! Overwrite (y/n)?"] == "y",
Print["Merging ",Length[dir]," lists"];
mergelist = OrderGrid[Flatten[Map[Get,dir],2]];
If[!Apply[SameQ,Map[Length,mergelist]],
Message[Link3DList::reggrid]];
If[path != "", SetDirectory[path]];
Put[mergelist,outname];
If[path != "", ResetDirectory[]]
]];
];
Disp3DList[t_List, opts___] := ListSurfacePlot3D[t,opts,BoxRatios->{1,1,0.4},
Axes->True];
Disp3DContour[t_List, opts___] := If[!Apply[SameQ,Map[Length,t]],
Message[Disp3DContour::reggrid],
ListContourPlot[Transpose[t]/.{x_,y_,z_}:>z,
MeshRange->{{t[[1,1,1]],t[[Length[t],1,1]]},
{t[[1,1,2]],t[[1,Length[t[[1]]],2]]}},opts]];
Movie[list_List, opts___] := Module[{minz,maxz,optlist},
{minz,maxz} = Apply[{Min[#],Max[#]}&,
{Transpose[Flatten[list,1]][[3]]}];
Map[ListPlot[#/.{x_,y_,z_}:>{x,z},
opts,PlotJoined->True,PlotRange->{All,{minz,maxz}}]&,
Transpose[list]]
];
End[]
SetAttributes[OrderGrid, ReadProtected]
SetAttributes[ReSize, ReadProtected]
SetAttributes[Link3DList, ReadProtected]
SetAttributes[Movie, ReadProtected]
Protect[OrderGrid, ReSize, Link3DList, Movie]
EndPackage[]
236
A Mathematica packages