The Intermediate Forces That Started The Universe? Part I

Some intermediate forces may have been locked by quick four way passages between cells in a sort of matrix where positive (in) and negative (out) flow kept the energy in balance (at total sum of zero). Other intermediate forces on top of these intermediate forces must somehow have made two layers of matrix outside this one (the illustration over) and ripped it appart at the same time when the Big Bang happend, I think. Inspired by professor Matti Pitkänen.

The programme I used to illustrate the first matrix (I hope to complete the two others later):

rem
rem Written in yabasic (from wwww.yabasic.de)
rem Free of use (or no use)
rem Depending on the size of your screen...
open window 1400,700
clear screen
q=0
for i=0 to 700
p1=0:p2=0:r=1
for j=0 to 1400
r=-r
if r<0 then
a=cos((j+i)*pi/180):b=sin((j+i)*pi/180)
f=sin((j-i)*pi/180):g=cos((j-i)*pi/180)
endif
if r>0 then
a=cos((-j-i)*pi/180):b=sin((-j-i)*pi/180)
f=sin((i-j)*pi/180):g=cos((i-j)*pi/180)
endif
x=a*a*b+f*f*g*g:y=g*g*f+b*b*a*a
c=sqr(x*x+y*y)*16.0
d=c
while (c>16.0)
c=c-8.0
wend
rem Feel free to choose other colors
if (c>0.000 and c<0.025) then
coa=64:cob=127:coc=32
endif
if (c>0.025 and c<0.050) then
coa=32:cob=64:coc=127
endif
if (c>0.050 and c<0.075) then
coa=127:cob=32:coc=64
endif
if (c>0.075 and c<0.100) then
coa=32:cob=127:coc=64
endif
if (c>0.100 and c<0.125) then
coa=64:cob=32:coc=127
endif
if (c>0.125 and c<0.150) then
coa=127:cob=64:coc=32
endif
if (c>0.150 and c<0.200) then
coa=255:cob=127:coc=64
endif
if (c>0.200 and c<0.250) then
coa=255:cob=64:coc=127
endif
if (c>0.250 and c<0.300) then
coa=127:cob=64:coc=255
endif
if (c>0.300 and c<0.350) then
coa=127:cob=255:coc=64
endif
if (c>0.350 and c<0.400) then
coa=64:cob=255:coc=127
endif
if (c>0.400 and c<0.450) then
coa=64:cob=127:coc=255
endif
if (c>0.450 and c<0.500) then
coa=32:cob=64:coc=255
endif
if (c>0.500 and c<1.000) then
coa=255:cob=255:coc=255
endif
if (c>1.0 and c<2.0) then
coa=0:cob=0:coc=0
endif
if (c>2.0 and c<4.0) then
coa=255:cob=255:coc=127
endif
if (c>4.0 and c<6.0) then
coa=255:cob=127:coc=255
endif
if (c>6.0 and c<8.0) then
coa=127:cob=255:coc=255
endif
if (c>8.0 and c<10.0) then
coa=255:cob=127:coc=127
endif
if (c>10.0 and c<11.0) then
coa=127:cob=127:coc=64
endif
if (c>11.0 and c<12.0) then
coa=127:cob=64:coc=127
endif
if (c>12.0 and c<13.0) then
coa=64:cob=127:coc=127
endif
if (c>13.0 and c<14.0) then
coa=64:cob=255:coc=64
endif
if (c>14.0 and c<15.0) then
coa=64:cob=64:coc=255
endif
if (c>15.0 and c<16.0) then
coa=255:cob=64:coc=64
endif
rem colour choice
colour coa,cob,coc
rem color to draw with
p2=p2+1
line p1,q+d to p2,q+d
p1=p2
next j
q=q+1
next
rem now you use "save as" to save it to a " ".yab file
rem run then the " ".yab file
rem if you have Hoversnap active you can get a saved picture by pressing Alt + PRTSC (beside F12)
rem get Hoversnap for free safe download, see here
rem http://www.optimizingpc.com/software/printscreen_print_to_pdf.html
rem at use you get a file called "capture" in jpeg that you may rename and cut, etc.