## Squares

General FreeBASIC programming questions.
Richard
Posts: 3013
Joined: Jan 15, 2007 20:44
Location: Australia
@ Albert.
Consider zero = 0.
Then replace it with zero = (1 – 1), which remains true.
Next move the ones apart so (+1) is near and (–1) is far away, do this by inserting nothing between them.
We get zero = (+1 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 –1), again true.
This is an uneven distribution but still with a sum of zero.
Although the sum is still zero, locally it can be +1 or –1 during evaluation.

Now imagine replacing 1 throughout the previous process with E (for energy).
We then have +E for energy and –E for anti-energy. It remains true.
Now we can have mass +M and –M for matter and antimatter.
Other things like charge can appear in the same way.

Albert wrote:We have to assume that in the beginning; only space-time existed
No we don't. You should reason instead with “I assume that ...”, “Let us assume that...” or “If we assume that...”. By insisting on space-time being more fundamental, than say energy, you are restricting your reasoning to only a subset of all the possible models. It may well be that your subset does not include models consistent with our universe.

That might explain why you are perpetually going round in squares.
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
@Richard

Einstien found particles in an accelerator dissappeared into energy..

That would mean that the particle expanded back to;

"Space-Time at rest"

The expansion is seen to be a "release of energy" , like an frozen CO2 returning instantly to gasous CO2..

I would think that a complete vacum, is space-time at rest..
===============================================

===============================================

I'm thinking and thinking on how to depict space-time and matter on the screen with a program.
But everything i come up with has never been answered by math or theory.. Fermi-Lab , Cern , Lawerence Livermoor, All dissmissed my theories but none of thier theories answer the question either...

Until the theory can be proven by experiment its worthless...
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
Heres A bird of paradise, sort of???

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=175dim as double deg1,deg2xctr=xres/2yctr=yres/4for deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step 1                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*s2*(c1+s2)        x2=radius*c2*s2*(c2+s2)                y1=radius*s1*s2'*(s1+s2)        y2=radius*s2*s2'*(s1*s2)                pset(xctr+x1+x2,yctr+y1+y2),9            next    sleep 5    nextsleep`

Heres some sort of sex thing ???

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=175dim as double deg1,deg2xctr=xres/2yctr=yres/1.75for deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step 1                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*log(deg2*rad+(s2*c2))        x2=radius*c2*c1                y1=radius*s1*s1        y2=radius*s2*log(deg2*rad+(s2*c2))                pset(xctr+x1+x2,yctr+y1+y2),9            next    sleep 5    nextsleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
Heres an symetrical abstract called "abstract334.bas"

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=175dim as double deg1,deg2xctr=xres/2yctr=yres/1.75for deg1 = 0 to 360 step 2        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step .5                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*sin(log(deg2*rad+(s2*c2))*s1*s1/c2+s2+c2)        x2=radius*c2*c1*s2*s2*cos(cos(deg2*rad*s2*s2)*c1*c2/3)                y1=radius*s1*s1*c2*c2*cos(cos(deg2*rad*s2*s2)*c1*c2/3)        y2=radius*s2*sin(log(deg2*rad+(s2*c2))*s1*s1/c2+s2+c2)                pset(xctr+x1+x2,yctr+y1+y2),9            next    sleep 5    nextsleep`

Heres "abstract335.bas"

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=175dim as double deg1,deg2xctr=xres/2yctr=yres/2for deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step 1                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*c2*c2*c2        x2=radius*c2*(c1+s1)*c1                y1=radius*s1*s2*s2*s2        y2=radius*s2*(c1+s1)*s1                pset(xctr+x1+x2*.95,yctr+y1+y2*.95),9            next    sleep 5    nextsleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
This one i call "galctic-chicken.bas"

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double deg1,deg2 , rad1=atn(1)/45 , rad2=atn(1)/22.5dim as double c1,c2,s1,s2 ,x1,x2,y1,y2dim as double xctr=xres/2 , yctr=yres/2 , radiusradius=125for deg1=0 to 360         c1=cos(deg1*rad1)    s1=sin(deg1*rad1)        x1=radius*c1    y1=radius*s1        for deg2=0 to 360 step 1                c2=cos(deg2*rad2)        s2=sin(deg2*rad2)                        x2=radius*s2*log(deg2*rad1*s2)*atn(deg2*rad1*s2/s1)*atn(deg2*rad2*c1*s1*c2)*sin(deg2/(s1*c1*s1*c1)*rad1*rad1)        y2=radius*c2*log(deg2*rad1*c2)*atn(deg2*rad1*c2/c1)*atn(deg2*rad2*c1*s1*c2)*sin(deg2/(s1*c1*s1*c1)*rad1*rad1)                pset(xctr+y1+y2,yctr+x1+x2),9                    next        sleep 1    nextsleep`

and "abstract335.bas"

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double deg1,deg2 , rad1=atn(1)/45 , rad2=atn(1)/22.5dim as double c1,c2,s1,s2 ,x1,x2,y1,y2dim as double xctr=xres/2 , yctr=yres/2 , radiusradius=125for deg1=0 to 360         c1=cos(deg1*rad1)    s1=sin(deg1*rad1)        x1=radius*c1    y1=radius*s1        for deg2=0 to 360 step 1                c2=cos(deg2*rad2)        s2=sin(deg2*rad2)                        x2=radius*s2*log(deg2*rad1*s2)*atn(deg2*rad1*s2/s1)*sin(deg2/(s1*c1*s1*c1)*rad1*rad1)        y2=radius*c2*log(deg2*rad1*c2)*atn(deg2*rad1*c2/c1)*sin(deg2/(s1*c1*s1*c1)*rad1*rad1)                pset(xctr+y1+y2,yctr+x1+x2),9                    next        sleep 1    nextsleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
This one i call "Sombrero.bas"

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spanxctr=xres/2yctr=yres/2for deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step .25                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*(tan((deg1*s2)*s2*c1*c2/5)/4)/20        x2=radius*c2*(log((deg1*c2)*c2*s1*s2/5)/8)*log(deg2)                y1=radius*s1        y2=radius*s2                pset(xctr+x1+x2,yctr+y1+y2),9            nextnextsleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
Heres a super "data-encryption" algorithim..

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spanxctr=xres/2yctr=yres/2for deg1 = 0 to 360 step .5        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step .5                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*cos(log((deg1*deg2*rad*rad*s2)*deg2)*5)        x2=radius*c2*cos(log((deg1*deg2*rad*rad*c2)*deg2)*5)                y1=radius*s1*sin(log(deg2*rad*s2*c2*deg1*c2)*5)        y2=radius*s2*sin(log(deg2*rad*s2*c2*deg1*c2)*5)                pset(xctr+x1+x2,yctr+y1+y2),9            next        sleep 10next  sleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
Heres a cool one! "Abstract339.bas"

These are all sort of accidental, fumbled into..

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spanxctr=xres/2yctr=yres/2for deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0 to 360 step 1                c2 = cos(deg2*rad)        s2 = sin(deg2*rad)                x1=radius*c1*c1*c1        x2=radius*c2*c2*c2*c1*s1                y1=radius*s1*s1*s1        y2=radius*s2*s2*s2*c1*s1                pset(xctr+(x1+x2)*1.75,yctr+(y1+y2)*1.75),9            next        sleep 10    nextsleep`

Heres a simple one 360 degree run.

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spanxctr=xres/2yctr=yres/2span=0for deg1 = 0 to 360*6 step .1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        x1=radius*c1*sin(span)            y1=radius*s1*sin(span)        pset(xctr+x1,yctr+y1),9            span+=tan((c1*s1)+(s1*c1)-(deg1*rad))/2000        sleep 1        nextsleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
A straw hat

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spanxctr=xres/2yctr=yres/2span=0for deg1 = 0 to 360*8 step .5        c1=cos(deg1*rad)    s1=sin(deg1*rad)        x1=radius*c1*cos(span*c1)            y1=-(radius*s1*sin(span*s1))        pset(xctr+x1,yctr+y1),9            span+=tan(2-((c1*c1)+(s1*s1)) )/4000        sleep 1        nextsleep`
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
Heres some cool desktop wallpapers I made with the Linux GIMP..

http://www.mediafire.com/i/?vnb2m9uobhakdi6

http://www.mediafire.com/?bel0kgidya4dq0g

http://www.mediafire.com/?4zco3l5krrtdce5

the top one needs to be tiled the others stretched..
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spanxctr=xres/2yctr=yres/2span=0for deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0  to 360 step 1 ' makes closer loops if smaller then 1                c2=cos(deg2*rad)        s2=sin(deg2*rad)            x1=radius*c2*s2*c2*c2*8        x2=radius*c1*asin(deg2*rad)*tan(deg2*rad)                y1=radius*s1*asin(deg2*rad)*tan(deg2*rad)        y2=radius*s2/c2*2*tan(deg2*rad)                pset(xctr+(x1+x2)/2,yctr*2-(y1-y2)/4-y2 ),9 'upright tornado        pset(xctr*1.5+(y1-y2)/2,yctr-(x1+x2)/2),9 'phonograph horn            next        sleep 5        nextsleep`

It took me a while to morph it to an upright shape..
just comment out one or the other pset()

===============================================

So Richard and Dodicat and Rolliebollocks, What are you guysd working on.. SORRY I POSTED SO MUCH AT ONE TIME...
hope your not upset!! , just skip over it, i just wanted a record in case my hard drive crashes..

I animated the tornado so it goes up and down..

Code: Select all

`dim as integer xres,yresscreen 19screeninfo xres,yresscreenres xres,yresdim as double c1,c2,s1,s2dim as double x1,x2,y1,y2dim as double rad=atn(1)/45dim as double xctr,yctr,radius=150dim as double deg1,deg2,spandim as integer togglexctr=xres/2yctr=yres/2span=0do    clsfor deg1 = 0 to 360 step 1        c1=cos(deg1*rad)    s1=sin(deg1*rad)        for deg2 = 0  to 360 step 1 ' makes lines closre together if smaller than 1                c2=cos(deg2*rad)        s2=sin(deg2*rad)            x1=radius*c2*s2*c2*c2*8        x2=radius*c1*asin(deg2*rad)*tan(deg2*rad)                y1=radius*s1*asin(deg2*rad)*tan(deg2*rad)        y2=radius*s2/c2*2*tan(deg2*rad)                pset( xctr+(x1+x2)/2+span , (yctr*2-(y1-y2)/4-y2)*span ),9 'upright tornado        'pset(xctr*1.5+(y1-y2)/2,yctr-(x1+x2)/2),9 'phonograph horn            next        nextif toggle = 0 then span+=.05 : if span>= 1 then toggle = 1if toggle = 1 then span-=.05 : if span<= 0 then toggle = 0sleep 3loop until inkey<>""`
Last edited by albert on Aug 05, 2011 4:14, edited 1 time in total.
kiyotewolf
Posts: 1009
Joined: Oct 11, 2008 7:42
Location: ABQ, NM
Contact:
"i just wanted a record in case my hard drive crashes.."

My shiny new cherry red ferrari hard drive just crashed 2 days ago.

~Kiyote! [also now known as Tal The Data Ferret]

I've upgraded to cloud storage now, as well as my old computer haunts still have a few ghosts of what I was working on, so no big loss.
kiyotewolf
Posts: 1009
Joined: Oct 11, 2008 7:42
Location: ABQ, NM
Contact:
Got my rainbow done, It'll blend with any background if fbgfx alpha primitives is envoked.
Gave it a test run on my binary adder but I'll more than likely give it a more scenic and serene setting.
I havn't paid much attention to the aspect of the rainbow, and just did it from memory and a quick look at some pictures on the net.

Just got onto the eMachine my parents own, after 8 days of no sleep and barely any food or drink, moving out, my last shove as a bird, from the nest.

I feel as if I've just visited the

"Once upon a time, or maybe twice, there was an unearthly paradise, called, PepperLand."

~Kiyote [or Tal]
albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA
Yeah!! Kiyotewolf

Dodicats got that open GL stuff to the master level.. I don't think i could compete..

Him and Richard are the masters here sort of..

Richard wrote the base1E9 code i put into my "BigCalc Version 14"
And
Dodicat wrote the 3D Rotate that i'm still trying to understand/work with..and the plus,minus routines in the SquaresOver squareing program.And several animation programs..
kiyotewolf
Posts: 1009
Joined: Oct 11, 2008 7:42
Location: ABQ, NM
Contact:
"Dodicats got that open GL stuff to the master level.. I don't think i could compete.. "

My typewriter implementation is going to let me write little mini scripts, that spawn OOP type actions, letting me to sparkles, fireworks, even little critters that move, react, then evaporate.

I will document what I figured out, about C and OOP, finally, after, what, 20 years of waiting to understand it, and try to share the pudding.

~Kiyote or Tal