Message Boards Message Boards

0
|
3011 Views
|
2 Replies
|
2 Total Likes
View groups...
Share
Share this post:

[?] Find area of polygons in a geometric scene?

Posted 5 years ago

Is it possible to find a polygon area in geometric scenes? For example, I want to find the area of a triangle kln:

scene = GeometricScene[{k, l, n, m}, {EuclideanDistance[k, n] == 3,
    PlanarAngle[{l, m, n}] == 120 \[Degree],
    Triangle[{k, l, n}], 
    GeometricAssertion[{CircleThrough[{k, l, n}], Line[{m, n}]}, 
     "PairwiseTangent"], 
    GeometricAssertion[{CircleThrough[{k, l, n}], Line[{l, m}]}, 
     "PairwiseTangent"], Polygon[{k, l, m, n}], 
    GeometricAssertion[{Line[{k, n}], Line[{l, m}]}, "Parallel"]}];
RandomInstance[scene, RandomSeeding -> 1]
POSTED BY: Nikita Tokarev
2 Replies

Try:

triangle = RandomInstance[scene, RandomSeeding -> 1]["Points"]
pol = Polygon[{triangle[[1, 2]], triangle[[2, 2]], triangle[[4, 2]]}]
Area[pol]

(* 1.29904*)
POSTED BY: Mariusz Iwaniuk

great thanks

POSTED BY: Nikita Tokarev
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract