View source: R/validate_Librino.R
validate_Librino | R Documentation |
Checks if the sum of the areas of intersection of each circle adds to the total area of the circle, as it should.
validate_Librino(librino, radii)
librino |
A named numeric vector with the from resulting from [Librino_N()] |
radii |
Numeric vectors of length N with the radius of each circle. |
TRUE if all the partitions of the circles add to their total area, else a numeric vector with the number of the circles that failed this test.
Hugo Salinas hugosal@comunidad.unam.mx.
# Example of intersection areas including a Reuleaux triangle x <- c(0, 1, 0.5) y <-c(0, 0, sqrt(1-0.5**2)) radii <- c(1, 1, 1) intersections <- Librino_N(centers_x = x, centers_y = y, radii = radii) validate_Librino(librino = unlist(intersections, use.names = TRUE), radii = radii)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.