clear all; 
clc;
close all;
A=[170 167 174 179 179 187 179 183 179 156 163 156 187 156 167 156 174 170 183 179 174 179 170 159 187];
[h,p,ci,stats] = ttest(A,170,'Alpha',0.01,"Tail","right")
m=round(1+3.3*log10(length(A))); % Sturgis
histfit(A,m)
% histfit(A)
xlabel("Durezza Brinnel")
ylabel("Frequency")
hold on 
plot(mean(A),0,'rx')