Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
StianRamsnes`MaXrd`
CrystalPlot  |
|
| | ||||
Details and Options
Examples
(16)
Basic Examples
(4)
In[1]:=
 | CrystalPlot |
Out[1]=
In[2]:=
| CrystalPlot |
Out[2]=
In[1]:=
| CrystalPlot |
Out[1]=
In[1]:=
| CrystalPlot |
Out[1]=
Defining a list of all the “original” crystal that come with the package:
In[1]:=
originalKeys=
[]
 | ResetCrystalData |
Out[1]=
{Aluminium,Austenite,CalciumFluoride,Cobalt(II)Fluoride,Copper,CopperTungstenOxide,Corundum,Diamond,Ferrite,GalliumArsenide,Germanium,Glycyl-L-alanine,Ice,LanthanumHexaboride,LithiumCobaltate,LithiumManganesePhosphate,ManganeseSilicon,Nickel,OxalicAcid,Perovskite,Polonium,PrussianBlue,Quartz,Silicon,Silver,Sodalite,SodiumChloride,Sphalerite,Tungsten,Zinc}
Randomly select nine crystals and display the unit cells (name/label shown as tooltip):
In[2]:=
randomSamples=RandomSample[originalKeys,9];plots=
[#,"StructureSize"{1,1,1}]&/@randomSamples;Multicolumn[Thread@Tooltip[plots,randomSamples],3]
 | CrystalPlot |
Out[2]=
 |  |  |
 |  |  |
 |  |  |