Problem 2.18 in Felder & Rousseau

restart;

TA:=[72.4, 73.1, 72.6, 72.8, 73];

TB:=[97.3, 101.4, 98.7, 103.1, 100.4];

with(stats);

op(1...5,TA);

max(op(1...5,TA));max(op(1...5,TB));

TAbar:=describe[mean](TA);TBbar:=describe[mean](TB);This is in the stats package

min(op(1...5,TA));min(op(1...5,TB));

sqrt(sum((TA[k]-TAbar)^2,k=1...5)/4);

sqrt(sum((TB[k]-TBbar)^2,k=1...5)/4);

Thermocouple B has the higher degree of scatter, but it is also the more accurate thermocouple.