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?