In[2]:= m = Table[ i^2, {i,6} ]

Out[2]= {1, 4, 9, 16, 25, 36}

In[3]:= Sum [ m[[i]], {i, 1, Length[m]} ]

Out[3]= 91

In[5]:= Product[ m[[i]], {i,1,Length[m]} ]

Out[5]= 518400

In[6]:= Sum[ i^2, {i, 2, 6, 2} ]

Out[6]= 56

In[7]:= << "Calculus/VectorAnalysis.m"

In[8]:= CrossProduct[ {1,0,0}, {1,1,0} ]

Out[8]= {0, 0, 1}

In[9]:= Grad[ x^2 y ]

Out[9]= {2*x*y, x^2, 0}