Rappresentare graficamente un cerchio con vettori / frecce
Ho una domanda che non so come fare.
Fare i due cerchi non è un problema, ma sono bloccato su come procedere per il passaggio 2. Posso ricevere assistenza per favore?
a) Due cerchi centrati nel punto originale, uno con raggio 2, di colore rosso, e un altro con raggio 3, di colore blu
b) Due set di vettori, uno consiste di vettori dal punto originale al punto (2cos (x), 2sin (x)) come x varia da 0 a 2π in intervalli di π / 16, e un altro consiste di vettori dal punto (3cos (x), 3sin (x)), al punto (2cos (x), 2sin (x)), poiché x varia da 0 a 2π con intervalli di π / 16. Nota: tutti i vettori di due set sono in rosso. Il risultato dovrebbe essere lo stesso della figura nella pagina successiva

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