perjantai 4. huhtikuuta 2014

Maailmankaikkeuden asuttaminen

Tehtävä: Eräässä Maailmankaikkeudessa on 500 miljardia galaksia, joissa jokaisessa on 200 miljardia tähteä, joista joka kymmenenennessä on planeetta joka melko helposti on muokattavissa ihmiselle kelpoiseksi paikaksi elää ja planeettaan mahtuu keskimäärin 10 miljardia ihmistä. Tällä hetkellä siinä Maailmankaikkeudessa on vain yhdellä Maapallo nimisellä planeetalla elämää. Sen väkiluluku on kasvanut eksponentiaalisesti 1700-luvulta lähtien ylläolevan kuvan mustan käyrän mukaisesti. Punainen käyrä esittää käyrää, jossa väkiluku on tasaisesti 1.0076 kertaistunut vuodessa vuodesta 1700 lähtien, jolloin se oli 640035774. Punainen käyrä näyttää napsahtavan melko hyvin tähänastisen lisääntymisen kanssa, joten tuota 1.0076 kertaistumista voidaan pitää hyvänä ekstrapolointi arvona.

Kysymys: Minä vuonna ihminen on asuttanut Maailmakaikkeuden, jonka jälkeen tuo 1.0076 kertaistuminen vuodessa täytyy säätää 1.0000 kertaistumiseksi? Tehtävässä oletetaan tietysti, että avaruusmatkailu on hallinnassa.

Ajamalla allaoleva ohjelma:

rebol[]
g: 5E+11 ;galaksien lukumäärä
g: (g * 2E+11) / 10 ; asuttavien planeettojen lukumäärä
g: g * 1E+10 ; maailmankaikkeuteen mahtuvien ihmisten lukumäärä
väkiluku: 640035774
vuosi: 1700
until [
print [vuosi " " väkiluku]
väkiluku: väkiluku * 1.0076
vuosi: vuosi + 1
väkiluku >= g
]
halt


Saadaan vastaukseksi vuosi 8753.

Ei kommentteja:

Lähetä kommentti