Sorting Arrays

[mchough1]

I am hoping that someone has used the sorting array function in PCDMIS and can tell me why it is not working properly when I try to sort a simple array?

the array values are .0006, .0002, .0003, -.0002, -.0006, .0002, .0002, .0004
The SORTUP(ARRAY) returns -.0002, -.0006, .0006, .0002, .0003, .0002, .0002, .0004

the array is obviously not sorted in asending order. Any help would be greatly appreciated.

I have tried to contact Hexagon support but ????

Thanks,
Mike

[JamesMannes]

I haven't used the sortup array before but, I took a look at your profile and I notice that you are using 4.0. It could be a glitch in that version? Can you load 4.1? I have been using 4.1 for more than a month now and it has worked pretty darn well for me so far. I had to abort 4.0 immediately because of the glitches that I found while doing some very simple stuff. I downloaded 4.1 during its' "release candidate" status and have been up and running since then. Just a suggestion.

[Cumofo]

I am hoping that someone has used the sorting array function in PCDMIS and can tell me why it is not working properly when I try to sort a simple array?

the array values are .0006, .0002, .0003, -.0002, -.0006, .0002, .0002, .0004
The SORTUP(ARRAY) returns -.0002, -.0006, .0006, .0002, .0003, .0002, .0002, .0004

the array is obviously not sorted in asending order. Any help would be greatly appreciated.

I have tried to contact Hexagon support but ????

Thanks,
Mike

I feel your pain, but I have no answer....SRY!

Gabriel

[mchough1]

I actually talked with Doug at Hexagon this morning and he's looking into it. In the interim I was able to use the MIN/MAX Array commands and it works fine for my application I'm working on.

Oh, by the way, I have updated to V4.1 and it has the same result. Hopefully we'll be able to use the funtions in the future they'll be great for sorting variables in sub-routines.

Thanks guys

Mike

[craiger_ny]

Gotta love work-arounds

OK I have a solution, it took me long enough didn't it (good thing Hoedemon isn't here)? I was going to write you a .bas but while playing with PCDMIS's array functions I found MAXINDEX and MININDEX both work. Just like you my SORTUP and SORTDOWN got funky. So I wrote a loop.

If you want to sort descending, try this code:

            ASSIGN/AR_ORIGINAL = ARRAY(.0006, .0002, .0003, -.0002, -.0006, -.0002, .0002, .0004)
            ASSIGN/AR_SORTED = 0
            ASSIGN/AR_LENGTH = LEN(AR_ORIGINAL)
            ASSIGN/AR_MIN = MIN(AR_ORIGINAL)
            ASSIGN/LOOPCOUNT = 1
            WHILE/AR_LENGTH > 0
            ASSIGN/AR_MAXINDX = MAXINDEX(AR_ORIGINAL)
            ASSIGN/AR_SORTED[LOOPCOUNT] = AR_ORIGINAL[AR_MAXINDX]
            ASSIGN/AR_ORIGINAL[AR_MAXINDX] = AR_MIN - 1
            ASSIGN/AR_LENGTH = AR_LENGTH - 1
            ASSIGN/LOOPCOUNT = LOOPCOUNT + 1
            END_WHILE/
            COMMENT/OPER,NO,AR_SORTED

The operator comment above returns:
0.0006 0.0004 0.0003 0.0002 0.0002 -0.0002 -0.0002 -0.0006

If you want to sort ascending, try this code:

            ASSIGN/AR_ORIGINAL = ARRAY(.0006, .0002, .0003, -.0002, -.0006, -.0002, .0002, .0004)
            ASSIGN/AR_SORTED = 0
            ASSIGN/AR_LENGTH = LEN(AR_ORIGINAL)
            ASSIGN/AR_MAX = MAX(AR_ORIGINAL)
            ASSIGN/LOOPCOUNT = 1
            WHILE/AR_LENGTH > 0
            ASSIGN/AR_MININDX = MININDEX(AR_ORIGINAL)
            ASSIGN/AR_SORTED[LOOPCOUNT] = AR_ORIGINAL[AR_MININDX]
            ASSIGN/AR_ORIGINAL[AR_MININDX] = AR_MAX + 1
            ASSIGN/AR_LENGTH = AR_LENGTH - 1
            ASSIGN/LOOPCOUNT = LOOPCOUNT + 1
            END_WHILE/
            COMMENT/OPER,NO,AR_SORTED

The operator comment above returns:
-0.0006 -0.0002 -0.0002 0.0002 0.0002 0.0003 0.0004 0.0006

If anyone needs this post explained just ask and I'll break it down. I can explain my code, can Wilcox explain the behavior of SORTUP, SORTDOWN? I'm wondering if it has issues with negative numbers. I did not try SORTUP or SORTDOWN with positive numbers only. Obviously this is more code intensive than SORTUP or SORTDOWN but sometime you gotta do what you gotta do. And if you gotta sort your arrays this will work.

This will only work on one dimensional arrays though, if you are using multiple dimension arrays you will need to bastardize this into something that will handle multiple dimensions.

Craig