diff --git a/ea/PovertyTrap1.png b/ea/PovertyTrap1.png
new file mode 100644
index 0000000..fa313df
Binary files /dev/null and b/ea/PovertyTrap1.png differ
diff --git a/ea/PovertyTrap2.png b/ea/PovertyTrap2.png
new file mode 100644
index 0000000..2418fdf
Binary files /dev/null and b/ea/PovertyTrap2.png differ
diff --git a/maths-prog/geocentric.R b/maths-prog/geocentric.R
index ebc466e..eac391b 100644
--- a/maths-prog/geocentric.R
+++ b/maths-prog/geocentric.R
@@ -24,5 +24,9 @@ ggplot(data = d)+
   geom_point(aes(x=x, y=y), size = 0.0001)+
   blank
 
+p <- ggplot(data = data.frame(x = 0), mapping = aes(x = x))
+
+p + stat_function(fun = sun) + xlim(-5,5)
+
 ggsave("temp.png", width = 30, height = 30, units = "cm")