4LetterWalksInDiamondLattice.nb

Designing of the heads for arrows

(*myCone = Prepend[Table[{ Cos[t], Sin[t], -5}/10, {t, 0, 2π, π/3}], {0, 0, 0}] (* This light version of a cone is not good for LiveGraphics3D *)*)

${{0, 0, 0}, {1/10, 0, -1/2}, {1/20, 3^(1/2)/20, -1/2}, {-1/20, 3^(1/2)/20, -1/2}, {-1/10, 0, -1/2}, {-1/20, -3^(1/2)/20, -1/2}, {1/20, -3^(1/2)/20, -1/2}, {1/10, 0, -1/2}}$

<<Graphics`ParametricPlot3D`

myCone = Map[Drop[#, -1] & ,  (aCone = ParametricPlot3D[{Abs[u] * Cos[t], Abs[ u] ... 20, {t, 0, 2π, π/3}, {u, -1, 0, 1}, PlotRangeAll, AxesFalse])[[1]], {2}]

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

RowBox[{{, RowBox[{RowBox[{Polygon, [, RowBox[{{, RowBox[{RowBox[{{, RowBox[{0.05, ,, 0., ,, R ... 7}], ,, RowBox[{-, 0.25}]}], }}], ,, RowBox[{{, RowBox[{0., ,, 0., ,, 0.}], }}]}], }}], ]}]}], }}]

$(*Clear[testCone] ; testCone[direction_, headPointAt_] := Graphics3D[Polygon[( ... Sin[t], -5}/10, {t, 0, 2π, π/3}], {0, 0, 0}]] ]] *) (* Light version *)$

$Clear[testCone] ; testCone[direction_, headPointAt_] := Graphics3D[Map[(# + headPointAt) &, Map[AyAx[direction, 2] . #& , myCone, {3}], {3} ] ]$

RowBox[{RowBox[{viewP, =, RowBox[{{, RowBox[{1, ,, , RowBox[{-, 1.943}], ,, , 1.5}], }}]}], ... one[cD, headP], testCone[dD, headP]}, PlotRangeAll], ViewPoint->viewP]

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

Created by Mathematica (February 18, 2004)