Notenstatistik der Klassen in einem bestimmten Fach

Das gegebene Datenmaterial:

Notendurchschnitt der 1A:

rd(x):=floor(x*100+0.5)/100.0;
H:[2, 8, 10, 1, 1];
X:[1, 2, 3, 4, 5];
N:sum(H[i],i,1,5);
P:H/N;
E:X.P,numer;
E:rd(E);

Notendurchschnitt der 1B ausgerechnet:

http://maxima-online.org/?inc=r-1166623105