nunosempere.github.io/maths-prog/geocentric.R

29 lines
439 B
R
Raw Normal View History

2019-12-12 10:14:40 +00:00
install.packages("ggplot2")
library(ggplot2)
sun = function(t){
x = sin(t)
y = cos(t)
return(c(x,y))
}
sun(t)
d = list()
d$x = c()
d$y = c()
for(t in c(1:2000)){
p_sun = sun(t)
d$x=c(d$x,p_sun[1])
d$y=c(d$y, p_sun[2])
}
d= as.data.frame(d)
blank = theme_void() + theme(legend.position="none")
ggplot(data = d)+
geom_point(aes(x=x, y=y), size = 0.0001)+
blank
ggsave("temp.png", width = 30, height = 30, units = "cm")