disp("According to the empirical rule")
disp("68% of the data lies between")
disp(mean(values)+st_deviation(values), "and", mean(values)-st_deviation(values))
disp("95% of the data lies between")
disp(mean(values)+(2*st_deviation(values)), "and", mean(values)-(2*st_deviation(values)) )
disp("99.7% of the data lies between")
disp(mean(values)+(3*st_deviation(values)), "and", mean(values)-(3*st_deviation(values)))


exec ../../CH2/EX2.3b/mymean.sce;
exec ../../CH2/EX2.3b/mystd.sce;

disp("According to the empirical rule [The Weighted version]")
disp("68% of the data lies between")
disp(mymean(values,frequency))+mystd(values,frequency), "and", mymean(values,frequency)-mystd(values,frequency))
disp("95% of the data lies between")
disp(mymean(values,frequency)+(2*mystd(values,frequency)), "and", mymean(values,frequency)-(2*mystd(values,frequency)) )
disp("99.7% of the data lies between")
disp(mymean(values)+(3*mystd(values,frequency)), "and", mymean(values,frequency)-(3*mystd(values,frequency)))


