Membuat grafik lingkaran dengan vektor / panah

Question

Saya memiliki pertanyaan yang saya tidak yakin bagaimana melakukannya.

Membuat kedua lingkaran tidak menjadi masalah, tetapi saya tidak dapat melakukan apa-apa untuk melanjutkan ke langkah 2. Bisakah saya mendapatkan bantuan?

a) Dua lingkaran berpusat pada titik awal, satu dengan jari-jari 2, berwarna merah, dan satu lagi dengan jari-jari 3, berwarna biru

b) Dua kumpulan vektor, satu terdiri dari vektor dari titik awal ke titik (2cos (x), 2sin (x)) karena x berkisar dari 0 hingga 2π dalam interval π / 16, dan lainnya terdiri dari vektor dari titik (3cos (x), 3sin (x)), ke titik (2cos (x), 2sin (x)), karena x berkisar dari 0 hingga 2π dengan interval π / 16. Catatan: Semua vektor dari dua set berwarna merah. Hasilnya harus sama dengan gambar di halaman berikutnya

requred.

Answer 1

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]