В математике можно, вот как-то так, например
Код:
Show[Graphics[Text["\!\(\*
StyleBox[OverscriptBox[
StyleBox[\"a\",\nFontSize->16], \"\[RightVector]\"],\n\
FontSize->16]\)", {0, -0.1}]], Graphics[Text["\!\(\*
StyleBox[OverscriptBox[
StyleBox[\"b\",\nFontSize->16], \"\[RightVector]\"],\n\
FontSize->16]\)", {0.6, 0.9}]], Graphics[Text["\!\(\*
StyleBox[OverscriptBox[
StyleBox[\"c\",\nFontSize->16], \"\[RightVector]\"],\n\
FontSize->16]\)", {-0.6, 0.9}]],
Graphics[{Dashed, Circle[{0, 1/Sqrt[3]}, 1/Sqrt[3]]}],
Graphics[Arrow[#]] & /@ {{{1, 0}, {0, Sqrt[3]}}, {{0, Sqrt[3]}, {-1,
0}}, {{-1, 0}, {1, 0}}}]
получится вот это