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]\)