I had an interesting idea the other day that chapter one of Genesis didn't make much sense physically, but could as computer code. I wrote an R script that does accomplish this to some extent. The end result I got was impressive visually, but my code was not that faithful to the instructions. Here is how I interpreted the first two verses:
###In the beginning God created the heavens and the earth.
#install.packages("sphereplot")
require(sphereplot)
##Create Heavens
rgl.sphgrid(radius = 5, col.long="", col.lat="",
deggap = 15, longtype = "D", add = T, radaxis=F)
http://postimg.org/image/3wvx1cvpd/
##Create Earth
rgl.sphgrid(radius = 1, col.long='', col.lat='',
deggap = 15, longtype = "D",add = T, radaxis=F)
http://postimg.org/image/he6w4kx19/
[ED NOTE: These links go to the images output by his code, which is neat, but the image host has some ads that, while not pornographic, may not be safe for work in all settings. Use your judgement. -LaminatorX]
##Now the earth was formless and empty,
##darkness was over the surface of the deep,
bg3d(color=c("darkslategray3","Black"),
fogtype="exp2", sphere=TRUE, back="fill")
http://postimg.org/image/j3wikf68f/
##and the Spirit of God was hovering over the waters.
view3d(phi=90, theta=180, zoom=.55)
http://postimg.org/image/9aazwxjkd/
Does Soylent have any other ideas on how to interpret these two verses? More verses to come if there is any interest.
(Score: 3, Funny) by Ethanol-fueled on Friday August 14 2015, @04:47PM
(* Ezekiel 23:20 *)
(* There she lusted after her lovers, whose genitals were like those of donkeys and whose emission was like that of horses. *)
Plot[[Abs[Sin[x]]] + 5*Exp[-x^100]*Cos[x], {x, -3, 3}]
(Score: 1, Informative) by Anonymous Coward on Friday August 14 2015, @09:22PM
Plot[[Abs[Sin[x]]] + 5*Exp[-x^100]*Cos[x], {x, -3, 3}]
This plots nicely when pasted into WolframAlpha...good one!
(Score: 0) by Anonymous Coward on Saturday August 15 2015, @01:36AM
require(tuneR)
x=seq(-3,3,length=44100)
y=abs(sin(x)) + 5*exp(-x^100)*cos(x)
q=normalize(Wave(left=rep(y,10), pcm=F, samp.rate=44100, bit=32))
plot(q)
play(q)
It sounds like a heartbeat.