Mathematica에서 크기 각도 벡터를 어떻게 플로팅합니까?

Question

Mathematica에서 크기와 각도를 사용하여이 매우 간단한 벡터를 그리는 방법을 잊어 버렸습니다. 어떤 도움을 주시면 감사하겠습니다. 미리 감사드립니다.

예 : 50도 각도에서 20

Answer 1

다음 기능을 사용할 수 있습니다 AnglePath.

{x, y} = {0, 0};
r = 20;
t = 50 Degree;
Graphics[{Red, Arrow @ AnglePath[{x, y}, {{r, t}}]}]

또는 다음을 사용할 수 있습니다 AngleVector.

Graphics[{Red, Arrow[{{x, y}, AngleVector[{r, t}]}]}]

같은 사진

Answer 2

와

{r, t} = {20, 50 Degree}

항상 수학적으로 벡터를 만들 수 있습니다.

vec = r {Cos@t, Sin@t}

및 예시적인 예

With[
 {pt = r {Cos@t, Sin@t}(*Mathematical implementation of the vector*)},
 Graphics[
  {
   (*Make all the lines thick*) Thickness[.007],
   (*The arrow itself*){Arrow@{{0, 0}, pt}},
   (*Arc to show label the angle*) {Circle[{0, 0}, 5, {0, 50 Degree}]},
   (*Angle label*) {Text[Style[θ == 50 Degree, 15], 4 {0.85 Cos[t/2.5], 1.1 Sin[t/2.5]}]},
   (*Magnitude label*) {Text[Style["r = 20", 15], pt {0.9, 1}]}
   }
  ]
 ]