일반적인 LaTeX 스타일과 일치하도록 화살촉 모양을 사용자 정의하려면 어떻게해야합니까?

다음은 Manipulate를 사용하여 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} ] ] 

필요한 경우 제어점을 쉽게 추가 할 수 있습니다.

화살촉 그래픽은 h 변수에 배치됩니다. 제어점을 더 잘 볼 수 있도록 Opacity 함수가 포함되어 있습니다. 완전히 포화 된 화살촉을 얻으려면 제거해야합니다.

다음을 사용하여이 Manipulate로 생성 된 몇 가지 예 :

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 ] 

화살표 코드는 h. 나중에 사용할 수 있도록 그래픽 또는 FullForm를 복사하여 저장하세요.

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.}}]}]} ] *) 

편집
하나 이상의 제어점이 가장 일반적인 모양을 다룹니다.

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} ] ] 

댓글

• 놀랍습니다! 감사합니다!

화살촉 모양의 소스 중 하나는 Graph는 EdgeShapeFunction 옵션을 사용하여 설정할 수있는 사전 정의 된 화살촉 모양 목록과 함께 제공됩니다. 이러한 도형의 이름은

arrowheadNames = GraphElementData["Edge"]; 

안타깝게도 Arrowheads에서는 그 자체로 쓸모가 없습니다. div>. 다행히 Graph를 GraphicsGraphics 사양을 추출하는 방법이 있습니다. div> Show 사용 및 Arrowheads 지시문 추출 :

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] 

다음과 같이 Arrowheads에서 사용할 수 있습니다.

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

댓글

• '이 코드가 더 이상 작동하지 않게합니다.
• 여기서와 마찬가지로 Mathematica 10.1에서도이 코드가 더 이상 작동하지 않습니다.
• 이 경우 Mathematica 10에서 작업하려면 GraphicsBox를 Graphics : headlist = Flatten[Cases[ Show[Graph[{1 \[DirectedEdge] 2}, EdgeShapeFunction -> #]], Arrowheads[a_] :> Cases[a, _Graphics, Infinity, 1], Infinity, 1] & /@ arrowheadNames];

로 바꿉니다.

• 오류가 있습니다. Headlist는 처음에 작은 l “Headlist”가 끝에 대문자 L “HeadList”로 작성됩니다 …
• I 이 문제를 해결했습니다, @Phil.