Re: How to express a Product (special case) in Mathematica?
- To: mathgroup at smc.vnet.net
- Subject: [mg59118] Re: How to express a Product (special case) in Mathematica?
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Fri, 29 Jul 2005 00:42:00 -0400 (EDT)
- References: <dc9vqf$cr8$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Product with drop of an index.
My solution :
In[1]:= phi[j_, tau_, n_]:=
Times@@Release[Drop[Table[(tau-t[i])/(Hold[t[j]]-t[i]),{i,0,5}],{j+1}]]
Example :
In[2]:=phi[3,tau,5]
Out[2]=
((tau - t[0])*(tau - t[1])*(tau - t[2])*(tau - t[4])*(tau - t[5]))/
((-t[0] + t[3])*(-t[1] + t[3])*(-t[2] + t[3])*(t[3] - t[4])*(t[3] -
t[5]))
hth
Valeri Astanoff