personal/nunosempere.github.io
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/NunoSempere/nunosempere.github.io

Browse Source
This commit is contained in:
Nuno 2019-12-12 19:33:22 +01:00
commit c2ac891e7f
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
maths-prog/geocentric.R
View File

@ -1,24 +1,22 @@
install.packages("ggplot2") install.packages("ggplot2")
library(ggplot2) library(ggplot2)
sun = function(t){ circle = function(t){
x = sin(t) x = sin(t)
y = cos(t) y = cos(t)
return(c(x,y)) return(c(x,y))
} }
sun(t)
d = list() d = list()
d$x = c() d$x = c()
d$y = c() d$y = c()
for(t in c(1:2000)){ for(t in c(1:2000)){
p_sun = sun(t) p_circle = circle(t)
d$x=c(d$x,p_sun[1]) d$x=c(d$x,p_circle[1])
d$y=c(d$y, p_sun[2]) d$y=c(d$y, p_circle[2])
} }
d= as.data.frame(d) d= as.data.frame(d)
blank = theme_void() + theme(legend.position="none") blank = theme_void() + theme(legend.position="none")
ggplot(data = d)+ ggplot(data = d)+
geom_point(aes(x=x, y=y), size = 0.0001)+ geom_point(aes(x=x, y=y), size = 0.0001)+