ToSUs := proc(alist,ave,sd) local i,n,newList; n := nops(alist); newList := linalg[vector](n); for i from 1 to n do newList[i] := (alist[i]-ave)/sd; od; RETURN( convert(newList,list) ); end;