Post by bluatigro on Nov 28, 2018 10:12:21 GMT
error :
the carier's shoot grow to a big part of the population
that is what happening in real live
the carier's shoot grow to a big part of the population
that is what happening in real live
'' bluatigro 28 nov 2018
'' banana blod
'' why gen manupulation is risky :
'' in some part's of africa there is the diseese 'banana' blod
'' it goes from parernt to child
'' if you have it you die
'' so it seem a badidea to let it be
'' i did not tel everything jet
'' if you are carier you have a bigger chance of beating malaria
'' this program is a sim on what happens in a population
'' in whitch this disseese is present
'' the chances are not the real ones
'' i do not know the good name for this dissese in english
'' so i called it 'banana' blod
'' because the bold cel's resemble banana's
dim human( 1000 )
global clear , carier
clear = 0
carier = 1
for i = 0 to 1000
if rnd(0) < .1 then
human( i ) = carier
end if
next i
for e = 0 to 1000
cleartel = 0
cariertel = 0
for i = 0 to 1000
dice = irange( 0 , 1000 )
if i <> dice then
if human( i ) then
if human( dice ) then
if rnd(0) < 2 / 3 then
human( i ) = carier
else
human( i ) = clear
end if
else
if rnd(0) < .5 then
human( i ) = carier
else
human( i ) = clear
end if
end if
end if
end if
''malaria
if human( i ) then
if rnd(0) < .1 then
if rnd(0) < .1 then
human( i ) = carier
else
human( i ) = clear
end if
end if
else
if rnd(0) < .8 then
if rnd(0) < .1 then
human( i ) = carier
else
human( i ) = clear
end if
end if
end if
next i
for i = 0 to 1000
if human( i ) then
cariertel = cariertel + 1
else
cleartel = cleartel + 1
end if
next i
if e mod 100 = 0 then
print e , cleartel , cariertel
end if
next e
print "[ end sim ]"
end
function irange( l , h )
irange = int( rnd(0) * ( h - l + 1 ) + l )
end function
