Re: Product with p!=j
- To: mathgroup at smc.vnet.net
- Subject: [mg21705] Re: [mg21683] Product with p!=j
- From: "Tomas Garza" <tgarza at mail.internet.com.mx>
- Date: Sat, 22 Jan 2000 02:53:19 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
guillerm at gugu.usal.es wrote:
> 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?.
Perhaps this will help:
In[1]:=
d[p_, j_] := If[p != j, 1/(Subscript[k, p] - Subscript[k, j]), 1]
In[2]:=
q[n_] = Sum[Product[d[p, j], {p, 1, n}], {j, 1, n}]
Tomas Garza
Mexico City