Squares

General FreeBASIC programming questions.
Richard
Posts: 3013
Joined: Jan 15, 2007 20:44
Location: Australia

Postby Richard » Aug 03, 2011 21:04

@ 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.
See also: http://www.astrosociety.org/pubs/mercur ... thing.html

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

Postby albert » Aug 03, 2011 22:10

@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..
===============================================

Nice link article though..Interesting.

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

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

Postby albert » Aug 03, 2011 22:49

Heres A bird of paradise, sort of???

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=175
dim as double deg1,deg2

xctr=xres/2
yctr=yres/4

for 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
   
next

sleep




Heres some sort of sex thing ???

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=175
dim as double deg1,deg2

xctr=xres/2
yctr=yres/1.75

for 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
   
next

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 03, 2011 23:11

Heres an symetrical abstract called "abstract334.bas"

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=175
dim as double deg1,deg2

xctr=xres/2
yctr=yres/1.75

for 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
   
next

sleep



Heres "abstract335.bas"

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=175
dim as double deg1,deg2

xctr=xres/2
yctr=yres/2

for 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
   
next

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 03, 2011 23:42

This one i call "galctic-chicken.bas"

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres



dim as double deg1,deg2 , rad1=atn(1)/45 , rad2=atn(1)/22.5
dim as double c1,c2,s1,s2 ,x1,x2,y1,y2
dim as double xctr=xres/2 , yctr=yres/2 , radius

radius=125

for 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
   
next

sleep



and "abstract335.bas"

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres



dim as double deg1,deg2 , rad1=atn(1)/45 , rad2=atn(1)/22.5
dim as double c1,c2,s1,s2 ,x1,x2,y1,y2
dim as double xctr=xres/2 , yctr=yres/2 , radius

radius=125

for 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
   
next

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 04, 2011 0:41

This one i call "Sombrero.bas"

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span

xctr=xres/2
yctr=yres/2

for 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
       
    next
next

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 04, 2011 1:07

Heres a super "data-encryption" algorithim..

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span

xctr=xres/2
yctr=yres/2

for 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 10

next 

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 04, 2011 1:43

Heres a cool one! "Abstract339.bas"

These are all sort of accidental, fumbled into..

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span

xctr=xres/2
yctr=yres/2

for 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
   
next

sleep



Heres a simple one 360 degree run.

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span

xctr=xres/2
yctr=yres/2
span=0
for 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
       
next

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 04, 2011 2:37

A straw hat

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span

xctr=xres/2
yctr=yres/2
span=0
for 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
       
next

sleep

albert
Posts: 5676
Joined: Sep 28, 2006 2:41
Location: California, USA

Postby albert » Aug 04, 2011 2:46

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

TORNADO

Postby albert » Aug 05, 2011 3:34

Heres a tornado!!

Code: Select all

dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span

xctr=xres/2
yctr=yres/2
span=0
for 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
       
next

sleep



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,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double c1,c2,s1,s2
dim as double x1,x2,y1,y2
dim as double rad=atn(1)/45
dim as double xctr,yctr,radius=150
dim as double deg1,deg2,span
dim as integer toggle

xctr=xres/2
yctr=yres/2
span=0

do
   
cls

for 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
       
next

if toggle = 0 then span+=.05 : if span>= 1 then toggle = 1
if toggle = 1 then span-=.05 : if span<= 0 then toggle = 0

sleep 3

loop 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:

Postby kiyotewolf » Aug 05, 2011 4:06

"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:

Postby kiyotewolf » Aug 05, 2011 4:11

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."

looking at your work Dodicat.



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

Postby albert » Aug 05, 2011 4:20

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:

Postby kiyotewolf » Aug 05, 2011 4:39

"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

Return to “General”

Who is online

Users browsing this forum: No registered users and 4 guests