In[4]:=

xyn = {xn, yn} ; n = 4 ; (* number of nodes *)  pts = Array[Through[xyn[#]] &, n]

Out[5]=

{{xn[1], yn[1]}, {xn[2], yn[2]}, {xn[3], yn[3]}, {xn[4], yn[4]}}


Converted by Mathematica  (March 7, 2003)