Description Usage Arguments Value References Examples
Soddy
finds inner and outer Soddy circles of three given mutually tangent circles
1 |
A |
Vector containing the xy-coordinates of the center of circumference 1 |
r1 |
Radius for circumference 1 |
B |
Vector containing the xy-coordinates of the center of circumference 2 |
r2 |
Radius for circumference 2 |
C |
Vector containing the xy-coordinates of the center of circumference 3 |
r3 |
Radius for circumference 3 |
A list which contains the Soddy center and the radiuses of Soddy inner and outer circle of three mutually tangent circles
http://mathworld.wolfram.com/SoddyCircles.html
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | x_min <- -3
x_max <- 3
y_min <- -2.5
y_max <- 3.5
CoordinatePlane(x_min, x_max, y_min, y_max)
A <- c(-1,0)
B <- c(1,0)
C <- c(0,sqrt(3))
r1 <- 1
r2 <- 1
r3 <- 1
Draw(CreateArcAngles(A, r1, 0, 360), "black")
Draw(CreateArcAngles(B, r2, 0, 360), "black")
Draw(CreateArcAngles(C, r3, 0, 360), "black")
result <- Soddy(A, r1, B, r2, C, r3)
soddy_point <- result[[1]]
inner_radius <- result[[2]]
outer_radius <- result[[3]]
Draw(soddy_point,"red")
Draw(CreateArcAngles(soddy_point,inner_radius,0,360),"red")
Draw(CreateArcAngles(soddy_point,outer_radius,0,360),"red")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.