Re: drawing polygon diagonals
- To: mathgroup at smc.vnet.net
- Subject: [mg124027] Re: drawing polygon diagonals
- From: Chris Young <cy56 at comcast.net>
- Date: Fri, 6 Jan 2012 04:16:21 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <i6755n$873$1@smc.vnet.net> <jdrnod$93d$1@smc.vnet.net>
On 2012-01-02 07:52:45 +0000, Ralph Dratman said: > How about > > CompleteGraph[6] > > Would that serve your purpose? > > > Ralph Yes, except that then we'd have a Graph structure. I'm not sure how easy it is to deal with both a Graph structure and a Graphics structure at once. In[1209]:= FullForm[CompleteGraph[6]] Out[1209]//FullForm= \!\(\* TagBox[ StyleBox[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "]"}], ",", RowBox[{"List", "[", RowBox[{"Null", ",", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", RowBox[{"List", "[", RowBox[{"6", ",", "6"}], "]"}], ",", "0", ",", RowBox[{"List", "[", RowBox[{"1", ",", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"0", ",", "5", ",", "10", ",", "15", ",", "20", ",", "25", ",", "30"}], "]"}], ",", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", "2", "]"}], ",", RowBox[{"List", "[", "3", "]"}], ",", RowBox[{"List", "[", "4", "]"}], ",", RowBox[{"List", "[", "5", "]"}], ",", RowBox[{"List", "[", "6", "]"}], ",", RowBox[{"List", "[", "1", "]"}], ",", RowBox[{"List", "[", "3", "]"}], ",", RowBox[{"List", "[", "4", "]"}], ",", RowBox[{"List", "[", "5", "]"}], ",", RowBox[{"List", "[", "6", "]"}], ",", RowBox[{"List", "[", "1", "]"}], ",", RowBox[{"List", "[", "2", "]"}], ",", RowBox[{"List", "[", "4", "]"}], ",", RowBox[{"List", "[", "5", "]"}], ",", RowBox[{"List", "[", "6", "]"}], ",", RowBox[{"List", "[", "1", "]"}], ",", RowBox[{"List", "[", "2", "]"}], ",", RowBox[{"List", "[", "3", "]"}], ",", RowBox[{"List", "[", "5", "]"}], ",", RowBox[{"List", "[", "6", "]"}], ",", RowBox[{"List", "[", "1", "]"}], ",", RowBox[{"List", "[", "2", "]"}], ",", RowBox[{"List", "[", "3", "]"}], ",", RowBox[{"List", "[", "4", "]"}], ",", RowBox[{"List", "[", "6", "]"}], ",", RowBox[{"List", "[", "1", "]"}], ",", RowBox[{"List", "[", "2", "]"}], ",", RowBox[{"List", "[", "3", "]"}], ",", RowBox[{"List", "[", "4", "]"}], ",", RowBox[{"List", "[", "5", "]"}]}], "]"}]}], "]"}], ",", "Pattern"}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"List", "[", RowBox[{"Rule", "[", RowBox[{"VertexCoordinates", ",", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"0.8660254037844386`", ",", "0.5000000000000001`"}], "]"}], ",", RowBox[{"List", "[", RowBox[{"0.8660254037844388`", ",", RowBox[{"-", "0.4999999999999998`"}]}], "]"}], ",", RowBox[{"List", "[", RowBox[{"1.2246467991473532`*^-16", ",", RowBox[{"-", "1.`"}]}], "]"}], ",", RowBox[{"List", "[", RowBox[{ RowBox[{"-", "0.8660254037844384`"}], ",", RowBox[{"-", "0.5000000000000004`"}]}], "]"}], ",", RowBox[{"List", "[", RowBox[{ RowBox[{"-", "0.866025403784439`"}], ",", "0.4999999999999993`"}], "]"}], ",", RowBox[{"List", "[", RowBox[{ RowBox[{"-", "2.4492935982947064`*^-16"}], ",", "1.`"}], "]"}]}], "]"}]}], "]"}], "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]\)