回复 4# kuing
展示一下这 9 种情况,用 MMC(A):- lst={{0,7,3},{3,7,3},{4,7,3},{8,7,3},{8,5,5},{10,7,3},{10,5,5},{12,7,3},{12,5,5}};
- Do[{{d,r1,r2}=lst[[n]];
- tu[n]=ContourPlot[{Abs[Sqrt[(x+d/2)^2+y^2]-r1]==Abs[Sqrt[(x-d/2)^2+y^2]-r2],
- (x+d/2)^2+y^2==r1^2,(x-d/2)^2+y^2==r2^2},{x,-10,10},{y,-10,10},
- PlotPoints->21]},{n,Length[lst]}]
- Table[tu[n],{n,Length[lst]}]
复制代码 得
|