MathGroup Archive 2005

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

Search the Archive

Re: How to express a Product (special case) in Mathematica?


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?