Consider the dyadic forks wmean and wmean1 discussed in the following message.
wmean =: * %&(+/)[ NB. weighted mean wmean1=: # %&(+/) [ http://www.jsoftware.com/pipermail/programming/2009-February/013728.html -- (B=) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm