TransWikia.com

Intersection of 3 circles in GeometricScene

Mathematica Asked by SorinS on February 26, 2021

I am trying to represent the image below in Mathematica and can’t seem to make it work. There doesn’t seem to be any constraint of type circle intersection in the documentation. I tried this:

 GeometricScene[{{A, B, C, O, X, Y, Z}, {}}, {
       CircleThrough[{O, B, C}, X, 50],
       CircleThrough[{O, A, C}, Y, 50],
       CircleThrough[{O, A, B}, Z, 50]
  }, {}]

but the result is far from inspiring. I’m quite new to Mathematica so I might have overlooked something trivial. Any help would be great, appreciate your time.

enter image description here

One Answer

You need more constraints. For example:

GeometricScene[
  {{a, b, c, o, o1, o2, o3}, {r}},
  {
   CircleThrough[{o, b, c}, o1, r],
   CircleThrough[{o, a, c}, o2, r],
   CircleThrough[{o, a, b}, o3, r],
   GeometricAssertion[{o1, o2, o3}, "Counterclockwise"],
   GeometricAssertion[{a, b, c, o}, "Distinct"],
   Equal @@
    EuclideanDistance @@@
     Subsets[{o1, o2, o3}, {2}]
  }
] // RandomInstance

Correct answer by SneezeFor16Min on February 26, 2021

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP