interval1 = mean(values) - (1.5*st_deviation(values));
interval2 = mean(values) + (1.5*st_deviation(values));
//k=3/2 and ATLEAST 100*(1-1/k^2) percent = 100*5/9 = 55.56 percent of the data lies within mean +/- 3/2 * stddev
disp(interval2, , "to" , interval1,"Atleast 55.55% of the data lies in the interval");


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

disp("Now the weighted version");
interval1 = mymean(values,frequency) - (1.5*mystd(values,frequency));
interval2 = mymean(values,frequency) + (1.5*mystd(values,frequency));
//k=3/2 and ATLEAST 100*(1-1/k^2) percent = 100*5/9 = 55.56 percent of the data lies within mean +/- 3/2 * stddev
disp(interval2, , "to" , interval1,"Atleast 55.55% of the data lies in the interval");


