+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Double slit experiment (/showthread.php?tid=2871)
Double slit experiment - vince - 07-17-2024
not one of Steve's titles, rather a mod
Code: (Select All)
randomize timer
screen _newimage(640, 480, 32)
n = 100000
dim x(n)
dim y(n)
dim vx(n)
dim vy(n)
dim nn(n)
for i=0 to n
x(i) = rnd*100
y(i) = rnd*480
vx(i) = rnd*4 - 2
if rnd>0.5 then
vy(i) = 0.2
else
vy(i) = -0.2
end if
nn(i) = 0
next
y01 = 215 + 35
y02 = 220 + 35 + 30
y11 = 260 - 35 - 30
y12 = 265 - 35
x0 = 600
do
cls
line (0,0)-(100,480),_rgb(255,255,255),b
line (100,y01)-(100,y02),_rgb(0,0,0)
line (100,y11)-(100,y12),_rgb(0,0,0)
'line (x0 - 10, 0)-(x0 + 10, 480),_rgba(0,0,0,255),bf
for i=0 to n
circle (x(i), y(i)), 1, _rgba(255,0,0,10)
if x(i) < 0 then vx(i) = -vx(i)
if (x(i) > 100) then
if (y(i)>y01) and (y(i)<y02) or (y(i)>y11) and (y(i)<y12) then
nn(i) = 1
else
if nn(i) = 0 then
vx(i) = -vx(i)
end if
end if
end if
if nn(i) = 1 and x(i) > x0 then
vx(i) = 0
vy(i) = 0
end if
if ((y(i) < 0) or (y(i) > 480)) and nn(i)=0 then vy(i) = -vy(i)
x(i) = x(i) + vx(i)
y(i) = y(i) + vy(i)
next
_display
_limit 100
loop until _keyhit = 27
![[Image: 8iACaoa.png]](https://i.imgur.com/8iACaoa.png)
RE: Double slit experiment - euklides - 07-17-2024
Nice ! A litle like a solar eruption
RE: Double slit experiment - FellippeHeitor - 07-17-2024
Does the outcome change whether you observe or not?
RE: Double slit experiment - vince - 07-17-2024
the following lines bias the particles to a kind of coherent resonant cavity which gives the wavefront effect, like giving them a frequency
Code: (Select All)
if rnd>0.5 then
vy(i) = 0.2
else
vy(i) = -0.2
end if
unfortunately i don't have a theoretical degree in physics to do it right, the following mod exposes the effect
Code: (Select All)
randomize timer
screen _newimage(640, 480, 32)
n = 10000
dim x(n)
dim y(n)
dim vx(n)
dim vy(n)
dim nn(n)
for i=0 to n
x(i) = rnd*100
y(i) = rnd*480
vx(i) = 2'rnd*4 - 2
if rnd>0.5 then
vy(i) = 0.2
else
vy(i) = -0.2
end if
'vy(i) = rnd*2 - 1
'
nn(i) = 0
next
y01 = 215 + 30
y02 = 220 + 30 + 10
y11 = 260 - 30 - 10
y12 = 265 - 30
x0 = 600
do
cls
line (0,0)-(100,480),_rgb(255,255,255),b
line (100,y01)-(100,y02),_rgb(0,0,0)
line (100,y11)-(100,y12),_rgb(0,0,0)
'line (x0 - 10, 0)-(x0 + 10, 480),_rgba(0,0,0,255),bf
for i=0 to n
circle (x(i), y(i)), 1, _rgba(255,0,0,255)
'boundary
if x(i) < 0 then vx(i) = -vx(i)
if (x(i) > 100) then
if (y(i)>y01) and (y(i)<y02) or (y(i)>y11) and (y(i)<y12) then
nn(i) = 1
else
if nn(i) = 0 then
vx(i) = -vx(i)
end if
end if
end if
if nn(i) = 1 and x(i) > x0 then
vx(i) = 0
vy(i) = 0
end if
if ((y(i) < 0) or (y(i) > 480)) and nn(i)=0 then vy(i) = -vy(i)
x(i) = x(i) + vx(i)
y(i) = y(i) + vy(i)
next
_display
_limit 100
loop until _keyhit = 27
maybe you could theorize some kind of laser anaolgy. though all you need is a 5G radiator directed at two wires acting as parasitic reradiators half a wavelength apart to reproduce the effect with just SINs and COSs never leaving the wave domain or invoking any quantum magic
RE: Double slit experiment - Pete - 07-17-2024
I tried surfing the internet for help, but my waves kept collapsing!
> "unfortunately i don't have a theoretical degree in physics to do it right, the following mod exposes the effect..."
Yeah, Bill used to hate it when I stated it that way. +1 for bringing back good memories of quantum times past.
Oh, and neat effects, by the way, even without the wave part.
Pete
- Waves become particles when they stop for a selfie.
Edit: Here is a post in an entangled thread: https://qb64phoenix.com/forum/showthread.php?tid=2052&action=lastpost
RE: Double slit experiment - Pete - 07-18-2024
My theory is we are all in an electric universe, so everything is happening at once and the act of observation is merely the identification of a single outcome, which creates the illusion of time. I am 100% positive my theory is correct, I'm just not sure of the universe it is correct in!
Pete
- Einstein and I have a lot in common. We both refuse to use hair gel.
RE: Double slit experiment - vince - 07-18-2024
(07-18-2024, 08:56 PM)Pete Wrote: My theory is we are all in an electric universe, so everything is happening at once and the act of observation is merely the identification of a single outcome, which creates the illusion of time.you might enjoy this read https://writings.stephenwolfram.com/2021/11/the-concept-of-the-ruliad/
it was actually Bill that got me onto these writings. it's nice to be on the programmer/engineering side of things, just steal the concepts/equations that work and use the rest for troll fodder
RE: Double slit experiment - Pete - 07-18-2024
Yeah, that leads to the 'we are always part of it' part I was pointing out. I also figured Turing would come into play somewhere in that article, and sure enough he did. It's like the God is A.I. model, where existence is created from one gigantic touring machine. Note I said God instead of Satan, because if it were the other way around, this post would be interrupted by a Windows f'update.
Edit: Oh, this part was cool. Not directly from the article, but my take on a part of it I liked: As an observer, watching from outer space, if you could watch a light ray travel from the moon to the earth, it would take about 1.3 seconds to get there. Because of the great distance you perceive, that would seem incredibly fast. Now imagine you went on the Stacy Abrams diet, and bulked up to the size of the solar system. Well watching that event now would be similar to watching a fast spider travel the distance of a 9-inch tile on a bathroom floor. That would seem pretty slow, in comparison. Mow if you will excuse me, I have 10^406 pounds to take off. I'm heading to the beach this weekend.
Thanks for the link.
Pete
-It's pretty easy to understand quantum entanglement when strings are involved.