Построение круга с векторами / стрелками

Aug 20 2020

У меня вопрос, который я не знаю, как это сделать.

Создание двух кругов - не проблема, но я застрял в том, как перейти к шагу 2. Могу я получить помощь, пожалуйста?

а) Два круга с центром в исходной точке, один с радиусом 2, красного цвета, а другой с радиусом 3, синего цвета.

б) Два набора векторов, один состоит из векторов от исходной точки до точки (2cos (x), 2sin (x)), когда x изменяется от 0 до 2π с интервалами π / 16, а другой состоит из векторов из от точки (3cos (x), 3sin (x)) до точки (2cos (x), 2sin (x)), так как x изменяется от 0 до 2π с интервалами π / 16. Примечание. Все векторы двух наборов отмечены красным цветом. Результат должен быть таким же, как на рисунке на следующей странице.

требуется.

Ответы

4 kglr Aug 20 2020 at 07:24
divs = Transpose @ Through @ {Cos, Sin} @ Subdivide[0, 2 Pi, 32];

{r1, r2} = {2, 3};

Graphics[{Thick, Blue, Circle[{0, 0}, r2], Red, Circle[{0, 0}, r1], 
  Thin, Arrowheads[{{-.05, r1/r2}, {.05, r1/r2}}], Arrow[{{0, 0}, r2 #}] & /@ divs}, 
 PlotRangePadding -> Scaled[.08], 
 ImagePadding -> 40, 
 AxesStyle -> Directive[14, Black, Arrowheads[.05]], 
 Axes -> True,
 AxesLabel -> (Style[#, 16] & /@ {"x", "y"}), 
 Background -> RGBColor[0.8354, 0.8, 0.6315], 
 ImageSize -> Large]