Re: clever way to do a product?

*To*: mathgroup at smc.vnet.net*Subject*: [mg27169] Re: [mg27164] clever way to do a product?*From*: BobHanlon at aol.com*Date*: Fri, 9 Feb 2001 03:10:17 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

n = 5; j = 3; Product[1/(x[i]-x[j]), {i, j-1}]*Product[1/(x[i]-x[j]), {i, j+1, n}] == Product[If[i == j, 1, 1/(x[i]-x[j])], {i, n}] == Product[1/(x[i]-x[j] + KroneckerDelta[i, j]), {i, n}] True Bob Hanlon In a message dated 2001/2/8 4:47:52 AM, drearyslig at hotmail.com writes: >Does anyone know of a clever way where I can calculate a product, where >i >runs from 1 to n, except where i=j?