Stories
Slash Boxes
Comments

SoylentNews is people

posted by LaminatorX on Friday August 14 2015, @01:17PM   Printer-friendly
from the Deus-ex-Machina dept.

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.


Original Submission

 
This discussion has been archived. No new comments can be posted.
Display Options Threshold/Breakthrough Mark All as Read Mark All as Unread
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
  • (Score: 2) by Snotnose on Friday August 14 2015, @02:10PM

    by Snotnose (1623) Subscriber Badge on Friday August 14 2015, @02:10PM (#222824)

    I hit a few NSFW sites daily, but I do it from home. IMHO, Soylent should be a site I can hit from work without worrying about Possibly NSFW images.

    --
    Trump has decided to rename California's San Andreas fault. He's calling it Biden's fault.
    Starting Score:    1  point
    Karma-Bonus Modifier   +1  

    Total Score:   2  
  • (Score: 2) by Nerdfest on Friday August 14 2015, @02:55PM

    by Nerdfest (80) on Friday August 14 2015, @02:55PM (#222848)

    Unfortunately with third party hosted ads, you never know what will be displayed. Use an ad blocker if you can.

  • (Score: 0) by Anonymous Coward on Friday August 14 2015, @03:38PM

    by Anonymous Coward on Friday August 14 2015, @03:38PM (#222867)

    I am submitter AC. Sorry, I had no idea because I block most of what tries to load from most webpages. Is there a preferred image host?

    • (Score: 2) by toygeek on Friday August 14 2015, @06:19PM

      by toygeek (28) on Friday August 14 2015, @06:19PM (#222936) Homepage

      I would suggest imgur. You can link the images directly without any adverts.

      --
      There is no Sig. Okay, maybe a short one. http://miscdotgeek.com
  • (Score: 3, Funny) by Ethanol-fueled on Friday August 14 2015, @04:47PM

    by Ethanol-fueled (2792) on Friday August 14 2015, @04:47PM (#222894) Homepage

    (* 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

      by Anonymous Coward on Friday August 14 2015, @09:22PM (#223013)

      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

      by Anonymous Coward on Saturday August 15 2015, @01:36AM (#223098)


      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.

  • (Score: 2) by captain normal on Friday August 14 2015, @06:45PM

    by captain normal (2205) on Friday August 14 2015, @06:45PM (#222946)

    I was thinking that Laminator was messing with us by pulling a trick to get us to look. Turns out ABP was blocking the images. Still after turning off ABP, none of the images were as risque as what I see on the beach on a sunny day.

    --
    The Musk/Trump interview appears to have been hacked, but not a DDOS hack...more like A Distributed Denial of Reality.