Plotting a polygon

• To: mathgroup at yoda.physics.unc.edu
• Subject: Plotting a polygon
• From: koleh%joyl.dnet at joyx.joensuu.fi
• Date: Fri, 11 Dec 1992 14:42:20 +0300

```Hi Mathgroup !

What is the problem here? My student tried to plot a polygon in a
complicated way.

Mathematica 2.0 for MS-DOS 386/7

In[1]:= t=Table[Random[],{5},{2}];

This works:

In[2]:= Show[Graphics[Map[Line,Partition[AppendTo[t,First[t]],2,1]]]]

Out[2]= -Graphics-

But when he uses a function polygon[], it does not work.

In[3]:= polygon[t_]:=
Show[Graphics[Map[Line,Partition[AppendTo[t,First[t]],2,1]]]]

In[4]:= polygon[t]

AppendTo::rvalue:
{{0.10459, 0.840989}, {0.177361, 0.503785}, <<3>>, {0.10459, 0.840989}}
has not been assigned a value.

AppendTo::argr: AppendTo called with 1 argument; 2 arguments are expected.

AppendTo::argr: AppendTo called with 1 argument; 2 arguments are expected.

Graphics::gprim:
Unknown Graphics primitive AppendTo[Line[AppendTo[<<2>>]]] encountered.

Out[4]= -Graphics-

In[5]:= ?polygon
Global`polygon

polygon[t_] := Show[Graphics[Line /@ Partition[AppendTo[t, First[t]], 2, 1]]]

Osmo Kolemainen
University of Joensuu
Finland

```

• Prev by Date: What should Mma be
• Next by Date: Re: What should Mma be, part II
• Previous by thread: What should Mma be
• Next by thread: re: Plotting a polygon