07-17-2024, 01:55 PM
the following lines bias the particles to a kind of coherent resonant cavity which gives the wavefront effect, like giving them a frequency
unfortunately i don't have a theoretical degree in physics to do it right, the following mod exposes the effect
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
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