a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c:=Table[GraphicsColumn[{a,b},Alignment->Left],{t,0,20}];
ListAnimate[c]

Export["PDE.avi",c]

t:=0
a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c=GraphicsColumn[{a,b},Alignment->Left]

t:=2
a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c=GraphicsColumn[{a,b},Alignment->Left]

t:=4
a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c=GraphicsColumn[{a,b},Alignment->Left]

t:=6
a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c=GraphicsColumn[{a,b},Alignment->Left]

t:=8
a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c=GraphicsColumn[{a,b},Alignment->Left]

t:=16
a:=Plot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},PlotRange->{{0,8},{0,100}},PlotLabel->"一維熱傳 一根長8cm的金屬棒上溫度分布",ImageSize->300,AxesLabel->{"x","T(x,t)"}];
b:=ContourPlot[T=100*(E^(-((((π/8)))^2)t))*Sin[((π*x)/8)],{x,0,8},{y,-0.5,0.5},PlotRange->{{0,8},{-10,10}},ColorFunctionScaling->False,ColorFunction->Function[ColorData["Rainbow"][#/100]],Contours->20,ContourLines->False,FrameLabel->"x",ImageSize->260];
c=GraphicsColumn[{a,b},Alignment->Left]