Skip to main content
Mathematica

Return to Answer

added 100 characters in body
Source Link
kglr
kglr
  • 400.5k
  • 18
  • 488
  • 929
m = 5; r = 3000;
Table[pt[i] = RandomReal[{-2000,2000},2], {i, m}];
circles = Table[Circle[pt[i], r], {i, m}];
regdisks = RegionIntersection[circlescircles /. Circle ->Disk];> Disk;
areareg1 = RegionMeasure[reg];RegionIntersection[disks];
area1 = RegionMeasure[reg1];
reg2 = RegionUnion[disks];
area2 = RegionMeasure[reg2];
g10 = Show[Graphics[{RandomColor[], #}& /@ @circlescircles, Axes-> True, 
           PlotRange->{{-5000, 5000}, {-5000, 5000}}],
      RegionPlot[reg]RegionPlot[reg1], PlotLabel->Row[{"area "ratio = ", areaarea1 / area2}]]

Mathematica graphicsMathematica graphics

m = 5; r = 3000;
Table[pt[i] = RandomReal[{-2000,2000},2], {i, m}];
circles = Table[Circle[pt[i], r], {i, m}];
reg = RegionIntersection[circles /. Circle->Disk];
area = RegionMeasure[reg];
g10 = Show[Graphics[{RandomColor[], #}& / @circles, Axes-> True, 
           PlotRange->{{-5000, 5000}, {-5000, 5000}}],
      RegionPlot[reg], PlotLabel->Row[{"area  = ", area}]]

Mathematica graphics

m = 5; r = 3000;
Table[pt[i] = RandomReal[{-2000,2000},2], {i, m}];
circles = Table[Circle[pt[i], r], {i, m}];
disks = circles /. Circle -> Disk;
reg1 = RegionIntersection[disks];
area1 = RegionMeasure[reg1];
reg2 = RegionUnion[disks];
area2 = RegionMeasure[reg2];
g10 = Show[Graphics[{RandomColor[], #}& /@ circles, Axes-> True, 
           PlotRange->{{-5000, 5000}, {-5000, 5000}}],
      RegionPlot[reg1], PlotLabel->Row[{"ratio = ", area1 / area2}]]

Mathematica graphics

Source Link
kglr
kglr
  • 400.5k
  • 18
  • 488
  • 929

m = 5; r = 3000;
Table[pt[i] = RandomReal[{-2000,2000},2], {i, m}];
circles = Table[Circle[pt[i], r], {i, m}];
reg = RegionIntersection[circles /. Circle->Disk];
area = RegionMeasure[reg];
g10 = Show[Graphics[{RandomColor[], #}& / @circles, Axes-> True, 
           PlotRange->{{-5000, 5000}, {-5000, 5000}}],
      RegionPlot[reg], PlotLabel->Row[{"area  = ", area}]]

Mathematica graphics