Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: How to plot divergence of gradient as contour plot
  • Next by Date: Re: Extension to BinLists Function
  • Previous by thread: Re: drawing polygon diagonals
  • Next by thread: Re: beginner question regarding units in equations