Example Notebook, Thermodynamics

Newton's Law of Cooling

Manipulate[
Plot[
{(Ti-Ts)(E^(-α1*t))+Ts,(Ti-Ts)(E^(-α2*t))+Ts,Ts},{t,0,220},
PlotRange->{{0,220},{0,100}},
Frame->False,
AxesLabel->{"Time (s)","T (°C)"},
PlotStyle->{{Thick,Green},{Thick,Blue},{Dashed,Black}},
ImageSize->600,
AspectRatio->0.5,
LabelStyle->(FontSize->12)
],
{{Ti,80},0,100,1, Appearance->"Labeled"},
{{Ts,20},0,100,1, Appearance->"Labeled"},
{{α1,0.015},0.000,0.6,0.001, Appearance->"Labeled"},{{α2,0.220},0.000,0.6,0.001, Appearance->"Labeled"}
]