使用 Mathematica 创建以下圆的参数图（图像）

Question

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

Answer 1

让你开始...

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

使用 Mathematica 创建以下圆的参数图（图像）

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

wolfram-mathematica

calculus