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

Update geocentric.R

Browse Source
This commit is contained in:
Nuño Sempere 2019-12-12 11:19:45 +01:00 committed by GitHub
parent d4b671695f
commit ee4ba42fc8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
maths-prog/geocentric.R
View File

@ -7,18 +7,16 @@ sun = function(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_sun = sun(t)
d$x=c(d$x,p_sun[1]) d$x=c(d$x,p_sun[1])
d$y=c(d$y, p_sun[2]) d$y=c(d$y, p_sun[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)+