MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Multiple axes on MultipleListPlot
  • Next by Date: Mathematica 5.2 and mathssh
  • Previous by thread: Re: How to express a Product (special case) in Mathematica?
  • Next by thread: Re: How to express a Product (special case) in Mathematica?