Smallest number problem - GameCreators Forum

Author

Message

Enclosed

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location: Colorado

Posted: 7th Sep 2004 04:01 Edited at: 7th Sep 2004 04:04

Link

I have recently been assembling a 3d game engine with collision with 3d models and gravity when I encountered an evil problem. I am making a collision priority subroutine but in order to do this I need to be able to sort out numbers by value. For example if I had variables that equal:4,2,6,and 3 I would need them sorted from least to greatest like this:2,3,4,6. Is there a command for this or an easy snippet, or must I do lotsa if commands? All help is apreciated. Thx.

Edit: Actually I need it mostly to just return the smallest value, I dont need a list

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 7th Sep 2004 04:37

Link

You could use an array instead of variables to make testing easier. Also do you want to return the variable/array index if it is 0 or greater than 0. Also what if 2 or more have the same low value?

Something like this might help.

+ Code Snippet

dim testarray(20)
testarray(1) = 67
testarray(2) = 75
testarray(3) = 1
testarray(4) = 8
testarray(5) = 43
testarray(6) = 97
testarray(7) = 100
testarray(8) = 4
testarray(9) = 56
testarray(10) = 45
testarray(11) = 34
testarray(12) = 23
testarray(13) = 12
testarray(14) = 0
testarray(15) = 0
testarray(16) = 0
testarray(17) = 0
testarray(18) = 0
testarray(19) = 0
testarray(20) = 0

for i = 1 to 20
	if i = 1
		test = testarray(i)
	endif
	test2 = testarray(i)
	`if test2 > 0
		if test2 < test
			test = test2
			varnum = i
		endif
	`endif
next i


set cursor 5,5
print test,"  ","testarray("+str$(varnum)+")"," was the lowest"
wait key

Just remove the comments and it will ignore values of 0.
There may be a better way but this is the first thing I thought of.

Back to top

Profile PM Email

Emperor Baal

20

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 7th Sep 2004 04:56 Edited at: 7th Sep 2004 04:58

Link

Here's a fast version of the bubblesort method:

+ Code Snippet

function quicksort(lo,hi)
sorted = 0

while sorted = 0
   sorted = 1
   for a=lo to hi-1
      if test(a) > test(a+1)
         h = test(a) : test(a)=test(a+1) : test(a+1)=h : sorted = 0
      endif
   next a
endwhile

endfunction

replace test() with your array name. Parameters are:
Lo = lowest index number : hi = highest index number

This way you can sort different areas of your array

here's the example code:

+ Code Snippet

sync on
sync rate 0

dim test(5000)

for a=1 to 5000
   test(a) = rnd(5000)
   print test(a)
   sync
next a

print "Press a key to sort"
suspend for key

quicksort(1,5000)

for a=1 to 5000
   print test(a)
   sync
next a

wait 1000
end


function quicksort(lo,hi)
sorted = 0

while sorted = 0
   sorted = 1
   for a=lo to hi-1
      if test(a) > test(a+1)
         h = test(a) : test(a)=test(a+1) : test(a+1)=h : sorted = 0
      endif
   next a
endwhile

endfunction

it sorts a 5000 array in 230ms here

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Smallest number problem