Update geocentric.R
This commit is contained in:
parent
d4b671695f
commit
ee4ba42fc8
|
@ -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)+
|
||||||
|
|
Loading…
Reference in New Issue
Block a user