Science Project (the first question used for homework)

Author

Message

Avalanche_ Akshay

19

Years of Service

User Offline

Joined: 27th Jun 2005

Location:

Posted: 29th Sep 2005 00:57

Link

Well this is how it is. In my science project of the atom i have to move the electron around the nuclus in a circular path. how do i do this without 540 lines of code.
and also how do u make a save file in a game?

Back to top

Profile PM

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 29th Sep 2005 01:28 Edited at: 29th Sep 2005 01:52

Link

540 lines of code? Just create your atom object, then create a limb onto that atom object using the mesh of your electron object, and then rotate the atom by x amount of degrees each loop.

-OR-

Sorry been a while since ive been programming, you could use the newx and newz value commands to get the next position for the electron and position it there.

Similar thread about this a few posts down btw.

Back to top

Profile PM Email Website

Avalanche_ Akshay

19

Years of Service

User Offline

Joined: 27th Jun 2005

Location:

Posted: 29th Sep 2005 02:01

Link

???
i am still pretty new to this type of software the only way which i can think of doing this would be manually move the electron around the nuclus.
i need somebody to give me a code snippet.

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 29th Sep 2005 03:08

Link

try this

set display mode 800,600,32
autocam off
sync on
sync rate 60

Global _nucleus = 1
Global _ELECTRON_COUNT = 0

type electron
   obj as integer
   ang as integer
   dist as integer
endtype

dim electrons(0) as electron

make object sphere _nucleus, 40
position object _nucleus, 0,0,0

position camera 0,0,-500

makeElectron()

repeat

if returnkey() = 1 and flag = 0
      flag = 1
      makeElectron()
   endif
   if returnkey() = 0 then flag = 0

rem rotate electrons
   for t = 1 to array count(electrons())
      inc electrons(t).ang, 2
      x = cos(electrons(t).ang)*electrons(t).dist
      y = sin(electrons(t).ang)*electrons(t).dist
      position object electrons(t).obj, x, y, 0
   next t

sync
until spacekey()

function makeElectron()
   array insert at bottom electrons()
   index = array count(electrons())
   obj = getFreeObject()
   electrons(index).obj = obj
   electrons(index).ang = rnd(360)
   electrons(index).dist = rnd(50)+50
   make object sphere obj, 10
   color object obj, rgb(rnd(100)+155,0,0)
endfunction

function getFreeObject()
   local obj = 1

while object exist(obj)
      inc obj
   endwhile

endfunction obj

+ Code Snippet

set display mode 800,600,32
autocam off
sync on
sync rate 60

Global _nucleus = 1
Global _ELECTRON_COUNT = 0

type electron
   obj as integer
   ang as integer
   dist as integer
endtype

dim electrons(0) as electron



make object sphere _nucleus, 40
position object _nucleus, 0,0,0

position camera 0,0,-500

makeElectron()

repeat


   if returnkey() = 1 and flag = 0
      flag = 1
      makeElectron()
   endif
   if returnkey() = 0 then flag = 0

   rem rotate electrons
   for t = 1 to array count(electrons())
      inc electrons(t).ang, 2
      x = cos(electrons(t).ang)*electrons(t).dist
      y = sin(electrons(t).ang)*electrons(t).dist
      position object electrons(t).obj, x, y, 0
   next t


   sync
until spacekey()



function makeElectron()
   array insert at bottom electrons()
   index = array count(electrons())
   obj = getFreeObject()
   electrons(index).obj = obj
   electrons(index).ang = rnd(360)
   electrons(index).dist = rnd(50)+50
   make object sphere obj, 10
   color object obj, rgb(rnd(100)+155,0,0)
endfunction


function getFreeObject()
   local obj = 1

   while object exist(obj)
      inc obj
   endwhile

endfunction obj

Deadly Night Assassins

Back to top

Profile PM Email Website

Avalanche_ Akshay

19

Years of Service

User Offline

Joined: 27th Jun 2005

Location:

Posted: 29th Sep 2005 03:38

Link

i have no idea what u are saying but i shall go with it...thanks!

Back to top

Profile PM

Me!

19

Years of Service

User Offline

Joined: 26th Jul 2005

Location:

Posted: 29th Sep 2005 10:46 Edited at: 29th Sep 2005 10:46

Link

blimey, if theres a hard way and an easy way

, that looks like too much work for me, try this easier approach, position your electron inside the nucleus, turn it left 1 degree, then move it out to the orbit radius, rinse and repeat, eg:-

make object sphere 1,2
make object sphere 2,1
position object 1,0,0,0
move camera -10
do
position object 2,0,0,0
turn object left 2,1
move object 2,5
loop

we know where area 51 is, but where are areas 1 to 50?, and what do they do there?.

Back to top

Profile PM

Silent Knight

19

Years of Service

User Offline

Joined: 25th Jan 2005

Location: In Your Mind

Posted: 30th Sep 2005 02:50

Link

tsk tsk using something you found on the internet to make a program to impress your teacher.... my my.

Quote: "
and also how do u make a save file in a game?
"

by this i think you mean something you click on and it loads up.
when in the compiler (or the programming software if you dont know about compilers) simply press F5. Or you can go up and click build .exe. If i were doing this, i would maybe color the spheres as well.

but i also have 2 questions
1-What element atom are you using? (like hydrogen, helium, zirconium, iron, etc) because as you may know, most elements have different numbers of electrons orbiting them, as well as electron paths.

2-Does your science teacher want the nucleous as a nucleous or does she want the model to have every individual proton and neutron put together (which can be more than 200 each)

Version--DB Classic
900 mhz AMD Athlon, 128 MB RAM,
16 MB NVidia Vanta gfx card, Windows ME System software

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 30th Sep 2005 03:23

Link

Quote: "tsk tsk using something you found on the internet to make a program to impress your teacher.... my my."

That's what I was thinking too. When I was a kid I impressed the teacher with my own code... not the code of others!

(I made my own version of Alfredo from Big Blue for a final project)

Back to top

Profile PM Email

Avalanche_ Akshay

19

Years of Service

User Offline

Joined: 27th Jun 2005

Location:

Posted: 1st Oct 2005 02:57

Link

scencerely i am finding all of these codes way to compelcated. i think i willdo it my way with trial and error. u guys help but i am still a noob. Even though i have made a horrible 5 seconds 2d shooting video game. i am still unexperianced in the 3d area. i just need some help. secondly i most likely wont be copying your code. i was thinking of using the newxyz value comand and changing the value depending on were it goes...dont know if it will work. if this wont then i will have to copy one of your code. this is how it is so far.

REM Project: Science
REM Created: 9/27/05 4:44:53 PM
REM
REM ***** Main Source File *****
REM
sync rate 0
position camera 250,250,2000
point camera 250,250,0
hide mouse
autocam off
make object sphere 1,1000
make object sphere 2,1000
make object sphere 3,0.5
make object sphere 4,100
color object 1, rgb(250,0,0)
color object 2, rgb(0,250,0)
color object 3, rgb(0,0,250)
position object 1,100,450,0
position object 2,290,250,0
position object 3,250,1300,0
wait key
position camera 250,1300,100
point camera 250,1300,0
wait key
position camera 250,250,2000
point camera 250,250,0
wait key
position object 4,250,1300,0
color object 4,rgb(0,0,250)
wait key
sync on
do
position object 4,x#,y#,z#
position object 3,x#,y#,z#
position object 1,100,450,0
position object 2,290,250,0
if spacekey()=1 then goto _next_one
x#=rnd(1500-rand#)
y#=rnd(1500-rand2#)
z#=rnd(1500-rand3#)
rand#=rnd(2500)
rand2#=rnd(2500)
rand3#=rnd(2500)
if x<-1500 then x=-1500
if y<-1500 then y=-1500
sync
loop
_next_one:
sync off
delete object 1
delete object 2
delete object 3
delete object 4
make object sphere 5,1000
position object 5,250,250,0
position camera 250,250,2000
point camera 250,250,0
color object 5,rgb(54,152,25)
wait key

+ Code Snippet

REM Project: Science
REM Created: 9/27/05 4:44:53 PM
REM
REM ***** Main Source File *****
REM
sync rate 0
position camera 250,250,2000
point camera 250,250,0
hide mouse
autocam off
make object sphere 1,1000
make object sphere 2,1000
make object sphere 3,0.5
make object sphere 4,100
color object 1, rgb(250,0,0)
color object 2, rgb(0,250,0)
color object 3, rgb(0,0,250)
position object 1,100,450,0
position object 2,290,250,0
position object 3,250,1300,0
wait key
position camera 250,1300,100
point camera 250,1300,0
wait key
position camera 250,250,2000
point camera 250,250,0
wait key
position object 4,250,1300,0
color object 4,rgb(0,0,250)
wait key
sync on
do
position object 4,x#,y#,z#
position object 3,x#,y#,z#
position object 1,100,450,0
position object 2,290,250,0
if spacekey()=1 then goto _next_one
x#=rnd(1500-rand#)
y#=rnd(1500-rand2#)
z#=rnd(1500-rand3#)
rand#=rnd(2500)
rand2#=rnd(2500)
rand3#=rnd(2500)
if x<-1500 then x=-1500
if y<-1500 then y=-1500
sync
loop
_next_one:
sync off
delete object 1
delete object 2
delete object 3
delete object 4
make object sphere 5,1000
position object 5,250,250,0
position camera 250,250,2000
point camera 250,250,0
color object 5,rgb(54,152,25)
wait key

you could play this on your comp (and comment on how bad it is) since it has no media. my first animation is the electron cloud model.

Back to top

Profile PM

Silent Knight

19

Years of Service

User Offline

Joined: 25th Jan 2005

Location: In Your Mind

Posted: 1st Oct 2005 21:05

Link

but what element atom are you using?

Version--DB Classic
900 mhz AMD Athlon, 128 MB RAM,
16 MB NVidia Vanta gfx card, Windows ME System software

Back to top

Profile PM

Louiz ofRohr

19

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 1st Oct 2005 22:47 Edited at: 1st Oct 2005 23:08

Link

+ Code Snippet

sync on : sync rate 0
make camera 1
backdrop on 1 : color backdrop 1, 0

rem Make atom
for i=1 to 3
   make object sphere i, 5
   color object i, RGB(200,0,0)
next i

position object 1, 0,0,0
position object 2, 4,4,4
position object 3, -4,4,8

for i=4 to 6
   make object sphere i, 5
   color object i, RGB(250,250,250)
next i

position object 4, -4,-1,2
position object 5, 4,2,1
position object 6, 0,4,4

for i=7 to 9
   make object sphere i, 3
   color object i, RGB(0,250,250)
next i

offset limb 7,0, 100,0,0
offset limb 8,0, 0,150,0
offset limb 9,0, -200,-200,0
rem make atom


position camera 1, 100,200,-400
point camera 1, 0,0,0


DO
   yrotate object 7, wrapValue(object angle y(7)+5)
   xrotate object 8, wrapValue(object angle x(8)+5)
   zrotate object 9, wrapValue(object angle z(9)+5)

   sync
LOOP

hehe.. bad code.. but this is funny

.edit.
wrong sizes and distances.. electrons should be much more far away from nucleus..

.edit.

This is a more realistic size:

+ Code Snippet

sync on : sync rate 0
make camera 1
backdrop on 1 : color backdrop 1, 0

rem Make atom
for i=1 to 3
   make object sphere i, 5
   color object i, RGB(200,0,0)
next i

position object 1, 0,0,0
position object 2, 4,4,4
position object 3, -4,4,8

for i=4 to 6
   make object sphere i, 5
   color object i, RGB(250,250,250)
next i

position object 4, -4,-1,2
position object 5, 4,2,1
position object 6, 0,4,4

for i=7 to 9
   make object sphere i, 100
   color object i, RGB(0,250,250)
next i

offset limb 7,0, 10000,0,0
offset limb 8,0, 0,15000,0
offset limb 9,0, -20000,-20000,0
rem make atom

set camera range 1, 1,50000
position camera 1, 1000,2000,-4000
point camera 1, 0,0,0


DO
   yrotate object 7, wrapValue(object angle y(7)+5)
   xrotate object 8, wrapValue(object angle x(8)+5)
   zrotate object 9, wrapValue(object angle z(9)+5)

   sync
LOOP

Note that I resized the electrons to 100 so you can see them..

It is still far from realistic..