Message Boards Message Boards

Creating fullerene molecules using BuckyballGraph

Posted 2 years ago

enter image description here

POSTED BY: J. M.
2 Replies

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: EDITORIAL BOARD

@J.M. - this is a great application of FindIndependentEdgeSet.

It's interesting to note that you can convert a BuckyballGraph to a molecule using the XYZ importer,

In[109]:= bucky = BuckyballGraph[];
xyzString = StringJoin[IntegerString[VertexCount[bucky]], "\n\n",
   ExportString[Prepend[#, "C"] & /@ GraphEmbedding[bucky], "Table"]
   ];
ImportString[xyzString, "XYZ"] // OutputForm

Out[111]//OutputForm= Molecule[<C60>]

In[112]:= Counts[%["BondType"]]

Out[112]= <|"Aromatic" -> 90|>
POSTED BY: Jason Biggs
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract