diff options
1 files changed, 3 insertions, 3 deletions
| -rw-r--r-- | Year 4/Celestial mechanics/Exercise2.R | 6 |
diff --git a/Year 4/Celestial mechanics/Exercise2.R b/Year 4/Celestial mechanics/Exercise2.R index 7646b28..7d5af5e 100644 --- a/Year 4/Celestial mechanics/Exercise2.R +++ b/Year 4/Celestial mechanics/Exercise2.R @@ -102,8 +102,8 @@ poincare2 <- function() { result <- rbind( result, - c(L, sqrt(2*(L-G)) * cos(g + theta), sqrt(2*(G-Theta)) * cos(theta), - l + g + theta, -sqrt(2*(L-G)) * sin(g + theta), sqrt(2*(G-Theta)) * sin(theta)) + c(L, sqrt(2*(L-G)) * cos(g + theta), sqrt(2*(G-Theta)) * cos(theta), + l + g + theta, -sqrt(2*(L-G)) * sin(g + theta), -sqrt(2*(G-Theta)) * sin(theta)) ) } @@ -112,4 +112,4 @@ poincare2 <- function() { p(delaunayAtBirth()) p(poincare1()) -p(poincare2())
\ No newline at end of file +p(poincare2()) |