wickedly easy sorting challenge

[Psycho_NZ]

hello, my brain is mush this mornin, and ive forgotten everything i know about sorting, so maybe you guys can help

i have an array of things, lets say x, each x has an O2 and a thickness. I want to sort the x's in order of their O2 and.......... uh nevermind the rest, hehe. i'll get onto that later.

the array of x can vary in length from 1 to 20, yes, that's right it must sort a max of 20

and ideas?
thanks for your time
Ang

[Psycho_NZ]

dont worry bout that, i found on on google

thanks all the same
Ang

[wossname]

I sincerely hope you are not planning to use a variant of the dreadful bubble sort!

PS, whats an O2?

[wossname]

This has been bugging me for a few days now...Just what algorithm are you using?

I heartily recommend the Counting sort algorithm, for such a small number of items.

[Devioux]

:P

[Psycho_NZ]

here is my sorting procedure, its a bit hairy, hope u can follow it


For i = 0 To (FinalBagCount - 1)
Biggest = i

For j = (i + 1) To FinalBagCount - 1
If (BagArray(Biggest).GetO2 < BagArray(j).GetO2) Then Biggest = j
Next j

tempb.CopyBag Bag:=BagArray(i)
tempf.CopyFilm Film:=FilmArray(i)
BagArray(i).CopyBag Bag:=BagArray(Biggest)
FilmArray(i).CopyFilm Film:=FilmArray(Biggest)
BagArray(Biggest).CopyBag Bag:=tempb
FilmArray(Biggest).CopyFilm Film:=tempf
Next i

puts them in descending order........... what i really want to do is sort it by closest to Produce.Optimums, what i had was:

For i = 0 To (FinalBagCount - 1)
Biggest = i

For j = (i + 1) To FinalBagCount - 1
BagDiff1 = Absolute(BagArray(Biggest).GetO2 - Produce.GetOptO2)
BagDiff2 = Absolute(BagArray(j).GetO2 - Produce.GetOptO2)
If (BagDiff1 > BagDiff2) Then Biggest = j
Next j

tempb.CopyBag Bag:=BagArray(i)
tempf.CopyFilm Film:=FilmArray(i)
BagArray(i).CopyBag Bag:=BagArray(Biggest)
FilmArray(i).CopyFilm Film:=FilmArray(Biggest)
BagArray(Biggest).CopyBag Bag:=tempb
FilmArray(Biggest).CopyFilm Film:=tempf
Next i

only this didnt sort them correctly. can anyone tell me why?

[Psycho_NZ]

oh i figured out why it didnt work. I was using integers when it should have been singles. haha