CODEWITHSUNDEEP
wolfram-mathematicacalculus
MuhminA
MuhminA

Reputation: 115

Create the following parametric plot of circles with Mathematica (image)

The only thing that is given is that the red circle has a radius of 2 and intersects the center of the black circles.

enter image description here

Upvotes: 0

Views: 1422

Answers (1)

Chris Degnen
Chris Degnen

Reputation: 8655

To start you off...

x = Sqrt[2^2 + 2^2]/2;
Show[
 ParametricPlot[{
   {x Cos[t], x Sin[t] + 2},
   {x Cos[t] + 2, x Sin[t]},
   {x Cos[t], x Sin[t] - 2},
   {x Cos[t] - 2, x Sin[t]}}, {t, 0, 2 Pi}],
 Graphics[Line[{{2, 0}, {0, 2}}]]]

enter image description here

Upvotes: 2

Related Questions