% details of W16 PHTS 2030 midterm grades (as graded by Azita)

clear

% all non-test takers excluded here
A=[70.5
61
57.5
69.5
54
78.5
77.5
86.5
73.5
80.5
31
62.5
78
73
73.5
47.5
56.5
87.5
35
50
68
62.5
50
34
80.5
78.5
75
73.5
67.5
73.5
58.5
55.5
86.5
51.5
63.5
65.5
50
54.5
65.5];



% ======
Ac= A+5;           % adjust all scores up by 5 pts. (so to normalize max to 92.5% and mean to 70%)
% ======
% make some informative strings
s1= ['mean score = ',num2str(mean(Ac)),'% +/- ',num2str(std(Ac))];
s2= ['median = ',num2str(median(Ac)),'%'];
s3= ['mode = ',num2str(mode(Ac)),'%'];
s4= ['max score = ',num2str(max(Ac)),'%'];
s5= ['min score = ',num2str(min(Ac)),'%'];
% ======
disp(s1);
disp(s2);
disp(s3);
disp(s4);
disp(s5);
% ======
% plot a histogram of the scores
[counts,centers]= hist(Ac,15); 
clf; figH= bar(centers,counts); title('PHYS 2030 W16 midterm scores');
xlabel('Score'); ylabel('Counts'); hold on; grid on;
mTextBox = uicontrol('style','text');
set(mTextBox,'String',{s1;s2;s3;s4;s5});
set(mTextBox,'Position',[92 315 249 59])
set(mTextBox,'Units','characters')