Mit meiner Simulation will ich beweisen, daß ein Isotop nicht zufällig zerfällt, ...

27/10/2012 - 17:11 von Black Rioter | Report spam
... sondern durch die geheime Taktfrequenz des Universums gesteuert wird.


' 15.09.2005 21:47:16

ayP0:r0:ax€0:window 0,0,ax,ay
px1:py0:ppx3:ppy 0
dx=1:dy=1:ddx=1:ddy=-1
for t=0 to 1000000
for ddd=0 to 40000:next
if (px<r or px>ax-r) then
dx=-dx:px=r+(px>(ax-r))*(ax-2*r)
fi
if (ppx<r or ppx>ax-r) then
ddx=-ddx:ppx=r+(ppx>(ax-r))*(ax-2*r)
fi
if (py<r or py>ay-r)then
dy=-dy:py=r+(py>(ay-r))*(ay-2*r)
fi
if (ppy<r or ppy>ay-r) then
ddy=-ddy:ppy=r+(ppy>(ay-r))*(ay-2*r)
fi
abx=abs(px-ppx):aby=abs(py-ppy)
dxy=sqr(abx*abx+aby*aby)
if dxy<r*2 then
dx=dx:ddx=-ddx:dy=-dy:ddy=ddy
fi
ddd=(px-ppx)*(px-ppx)+(py-ppy)*(py-ppy)
if ddd>0 then
ddd=1/ddd*100000
fi
goto 10
circle px,py,r color 6 filled
circle ppx,ppy,r color 11 filled
10
xxx=ppx:yyy=ppy:xx=px:yy=py
ppx=ppx+ddx
ppy=ppy+ddy*(1+ddd)
px=px+dx
py=py+dy*(1+ddd*2)
circle xx,yy,r color 15 filled
circle xxx,yyy,r color 15 filled
circle px,py,r color 5 filled
circle ppx,ppy,r color 12 filled
 

Lesen sie die antworten

#1 Hirnstein
27/10/2012 - 20:17 | Warnen spam
Black Rioter schrieb:

... sondern durch die geheime Taktfrequenz des Universums gesteuert wird.



jaja, soso, die Taktfrequenz

Wie wàrs denn mal mit einem Hirnschrittmacher?


Hirnstein

Ähnliche fragen