cm: Fix formula for q HEAD main

This fix was done with a pen when my work was returned, so I could get
an immediate excellent grade, on 28.05.25

1 files changed, 3 insertions, 3 deletions

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())