data={
{1,71.70},
{2,71.14},
{3,71.22},
{4,71.07},
{5 ,71.30},
{6,70.95},
{7,71.26},
{8,71.60},
{9 ,71.35},
{10,71.01},
{11,77.35},
{12,77.35},
{13,73.72},
{14,72.14},
{15,71.66},
{16,71.49},
{17,71.27},
{18,71.40},
{19,71.23},
{20,70.91},
{21,71.19},
{22,71.49},
{23,71.48},
{24,71.25},
{25,71.07},
{26,71.14},
{ 27,70.89},
{28,70.89},
{29,71.03},
{30,70.82},
{31,70.88},
{32,71.28},
{33,71.13},
{34,71.10},
{35,70.81},
{36,71.00},
{37,71.17},
{38,71.24},
{39,71.37},
{40,71.28},
{41,71.37},
{42,71.17},
{43,71.40},
{44,72.02},
{45,71.46},
{46,71.23},
{47,70.43},
{48,70.63},
{49,70.44},
{50,70.33},
{51,70.19},
{52,70.30},
{53,70.26},
{54,70.11},
{55,70.11},
{56,69.75},
{57,69.80},
{58,69.81},
{59,69.75},
{60,69.81}
}
f=Interpolation[data];
thePlot=Show[
Plot[f[x],{x,1,60},PlotRange->{{0,60},{68,78}}],
ListPlot[data,PlotStyle->Directive[Red,PointSize[Medium]],PlotRange->{{0,60},{68,78}}],
PlotLabel->"SuperSleepyDS18B20",
AxesLabel->{"Measurement","Temperature (F)"},
AxesOrigin->{0,68}
]
Export["SuperSleepyDS18B20.PNG",thePlot];