maxmark=[ 30 100 30 30 40 40 100];   % A5 final  A4 A3,A2,A1 finalgrade
weights=[10 50 10 10 10 10 0];
a=[
30 45 30 30 39 39  72%90112661  
30 80 40 30 40 35  92%96803821  
30 81 30 30 40 37  90%91105679  
30 61 30 28 40 38  79%91990342  
30 31 30 29 40 38  65%96800206  
30 57 30 30 40 36  78%92000139  
30 68 30 30 39 37  83%91039657  
30 63 30 28 40 38  80%96801494  
30 20 22 16 25 25  50%93007524  
30 91 40 25 40 39  97%93136376  
30 60 20 15 40 25  68%92153616  
(23+7) 51 30 10 40 36  68%93151588 
30 43 0  23 40 36  58%93060531  
30 93 40 30 39 34  98%92031047  
];
final=a*inv(diag(maxmark))*diag(weights);
final=sum(final');
final=final';
disp('arith recorded')
[final a(:,7)]