Old graphics

aArrow = {RGBColor[1, .28, .71], Line[{{0, 0, 0}, aD}], Point[{0, 0, 1}]} ; bArrow = {RGBColor ... {{0, 0, 0}, cD}], Point[cD]} ; dArrow = {RGBColor[.5, .5, 1], Line[{{0, 0, 0}, dD}], Point[dD]} ;

RowBox[{Show, [, RowBox[{RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{{, RowBox[{RowBox[{ ... RowBox[{{, RowBox[{1, ,,  , RowBox[{-, 1.943}], ,,  , 1.5}], }}]}], ,, PlotRangeAll}], ]}]

[Graphics:../HTMLFiles/4LetterWalksInDiamondLattice_102.gif]

⁃Graphics3D⁃


Created by Mathematica  (February 18, 2004)