Re: Product with p!=j
- To: mathgroup at smc.vnet.net
- Subject: [mg21723] Re: Product with p!=j
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 26 Jan 2000 03:45:27 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <86abkr$8k0@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
q[n_Integer] := Module[{ p, j},
Sum[
1/(Product[Subscript[k, p] - Subscript[k, j],
{p, 1, j - 1}]*
Product[Subscript[k, p] - Subscript[k, j],
{p, j + 1, n}]),
{j, 1, n}
]
]
If[] constructions will work also.
Hope that helps
Jens
guillerm at gugu.usal.es wrote:
>
> Dear friends,
> I have the following problem:
>
> q[n_]:= Sum[1/Product[Subscript[k, p] - Subscript[k, j], {p, 1, n}], {j, 1, n}], with p!=j
>
> Any suggestions?.
> Thanks
>
> ---------------------------------------------
> This message was sent using Endymion MailMan.
> http://www.endymion.com/products/mailman/