function [y,yy,av,md,s]=grades(t1,t2,f,hw,tp,m,g,gp)

% [y,yy,av,md,s]=grades(t1,t2,f,hw,tp,m,g,gp); tj=testj, f=final, h=hw,
% tp=termpaper, m=maxscore[t1,t2,f,hw,tp] 
% g=average grade, gp=grade pts per std, md=median
yy=(.2/m(1))*t1+(.2/m(2))*t2+(.3/m(3))*f+(.2/m(4))*hw+(.1/m(5))*tp;
av=mean(yy);
s=std(yy);
md=median(yy);
y=gp*(yy-av)/s+g;
