Rappresentare graficamente un cerchio con vettori / frecce

Aug 20 2020

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

richiesto.

Risposte

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]