Kuinka voin mukauttaa nuolenkärjen muotoa vastaamaan yleisiä LaTeX-tyylejä?

Tässä on Manipulate suunnitella itsellesi Arrow:

DynamicModule[{top, baseMid, rightBase, outerMidRight, innerMidRight}, Manipulate[ top = {0, 0}; baseMid = {1, 0} baseMid; rightBase = {1, -1} leftBase; outerMidRight = {1, -1} outerMidLeft; innerMidRight = {1, -1} innerMidLeft; h = Graphics[ { Opacity[0.5], FilledCurve[ { BSplineCurve[{baseMid, innerMidLeft, leftBase}], BSplineCurve[{leftBase, outerMidLeft, top}], BSplineCurve[{top, outerMidRight, rightBase}], BSplineCurve[{rightBase, innerMidRight, baseMid}] } ] } ], {{baseMid, {-2, 0}}, Locator}, {{innerMidLeft, {-2, 0.5}}, Locator}, {{leftBase, {-2, 1}}, Locator}, {{outerMidLeft, {-1, 1}}, Locator} ] ] 

Lisää ohjauspisteitä on helppo lisätä tarvittaessa.

Nuolipään grafiikka laitetaan muuttujaan h. Huomaa, että se sisältää Opacity -toiminnon, joka parantaa hallintapisteiden näkyvyyttä. Sinun on poistettava tämä, jos haluat, että sinulla on täysin kylläinen nuolenpää.

Joitakin esimerkkejä, jotka on luotu tällä Manipulate -toiminnolla:

Graphics[ { Arrowheads[{{Automatic, 1, h /. Opacity[_] :> Sequence[]}}], Arrow /@ Table[{{0, 0}, {Sin[t], Cos[t]}}, {t, 0, 2 \[Pi] - 2 \[Pi]/20, 2 \[Pi]/20}] }, PlotRangePadding -> 0.2 ] 

Nuolipään koodi löytyy kohdasta h. Kopioi vain grafiikka tai FullForm ja tallenna se myöhempää käyttöä varten.

h /. Opacity[_] :> Sequence[] // FullForm (* ==> Graphics[{FilledCurve[{BSplineCurve[{{-0.496, 0.}, {-1., 0.48}, {-2,1}}], BSplineCurve[{{-2, 1}, {-0.548, 0.44999999999999996}, {0, 0}}], BSplineCurve[{{0, 0}, {-0.548, -0.44999999999999996}, {-2, -1}}], BSplineCurve[{{-2, -1}, {-1., -0.48}, {-0.496, 0.}}]}]} ] *) 

MUOKKAA
Yksi ohjauspiste kattaa yleisimmät muodot:

DynamicModule[{top, baseMid, outerMidRight, innerMidRight, innerBaseRight, outerBaseRight}, Manipulate[ top = {0, 0}; baseMid = {1, 0} baseMid; innerBaseRight = {1, -1} innerBaseLeft; outerBaseRight = {1, -1} outerBaseLeft; outerMidRight = {1, -1} outerMidLeft; innerMidRight = {1, -1} innerMidLeft; h = Graphics[ { Opacity[0.5], FilledCurve[ { BSplineCurve[{baseMid, innerMidLeft, innerBaseLeft}], Line[{innerBaseLeft, outerBaseLeft}], BSplineCurve[{outerBaseLeft, outerMidLeft, top}], BSplineCurve[{top, outerMidRight, outerBaseRight}], Line[{outerBaseRight, innerBaseRight}], BSplineCurve[{innerBaseRight, innerMidRight, baseMid}] } ] } ], {{baseMid, {-2, 0}}, Locator}, {{innerMidLeft, {-2, 0.5}}, Locator}, {{innerBaseLeft, {-2, 1}}, Locator}, {{outerBaseLeft, {-2, 1.1}}, Locator}, {{outerMidLeft, {-1, 1}}, Locator} ] ] 

kommentit

• Hämmästyttävää! Kiitos!

Yksi nuolenpäämuotojen lähde on Graph, joka sisältää luettelon ennalta määritetyistä nuolenkärjen muodoista, jotka voit asettaa käyttämällä vaihtoehtoa EdgeShapeFunction. Voit saada näiden muotojen nimet tekemällä jotain esimerkiksi

arrowheadNames = GraphElementData["Edge"]; 

Valitettavasti nämä nimet sinänsä ovat turhia Arrowheads. Onneksi on olemassa tapa purkaa näiden nuolenkärkien Graphics -määritykset muuntamalla Graph Graphics käyttäen Show ja poimimalla Arrowheads -direktiivit:

headlist = Flatten[Cases[ Show[Graph[{1 <-> 2}, EdgeShapeFunction -> #]], Arrowheads[a_] :> Cases[a, b_GraphicsBox :> ToExpression[b], Infinity, 1], Infinity, 1] & /@ arrowheadNames]; GraphicsGrid[Partition[headlist, 5, 5, {1, 1}, ""], Frame -> All] 

Voit käyttää niitä kohdassa Arrowheads seuraavasti:

grlist = Graphics[{Arrowheads[{{.3, 1, #}}], Arrow[{{0, 0}, {1, 1}}]}] & /@ headlist; GraphicsGrid[Partition[grlist, 5, 5, {1, 1}, ""], Frame -> All] 

kommentit

• osaan ' ei saa tätä koodia toimimaan enää.
• Sama täällä Mathematica 10.1: ssä tämä koodi ei enää toimi.
• Tätä varten toimiakseen Mathematica 10: ssä, korvaa GraphicsBox sanalla Graphics: headlist = Flatten[Cases[ Show[Graph[{1 \[DirectedEdge] 2}, EdgeShapeFunction -> #]], Arrowheads[a_] :> Cases[a, _Graphics, Infinity, 1], Infinity, 1] & /@ arrowheadNames];
• Väärin kirjoitettu, otsikko kirjoitetaan alkuun pienellä l ”otsikkoluettelolla” lopussa isolla L ”päälistalla” …
• I ve korjattu, @Phil.