Find closest value in several values in SCL...

userxyz · Oct 24, 2018

Hi,

Anyone had to program something to find the nearest ?

I have a list of the folowing X position values:

0
133
213
293
373
453
533
1093
1653

The middle of a tube needs to find best X position to pick.
So Middle Tube = Length / 2.

And this value has to find the closest value in that list...

Can I do this with... hmm substract the Middle of the Tube form each value and see wich one has the smallest value... or how would you guys write this >

Thanks,
Kind regards,
Combo

JesperMP · Oct 24, 2018

pseudocode:

Code:

Set smallest_difference := 9999 ;
loop through all value[x]
  calculate difference := ABS(middle_value - value[x])
  if difference < smallest_difference THEN
    smallest_difference := difference 
    no_found := x

userxyz · Oct 24, 2018

Thanks

Thanks JesperMP !!!!!!!!!

JesperMP said:

pseudocode:

Code:

Set smallest_difference := 9999 ;
loop through all value[x]
  calculate difference := ABS(middle_value - value[x])
  if difference < smallest_difference THEN
    smallest_difference := difference 
    no_found := x

userxyz · Oct 24, 2018

For next

I made this from the Pseudo, still need to test it:

Code:

    REGION X      
        #"Tube Middle Position" := "DB130 UNIT SPECIFIC"."PART READY FOR PICKUP".Length / 2.0;
        #"Found Nearest" := FALSE;
        FOR #i := 1 TO 8 DO
            #"Difference with Positions" := ABS(#"Tube Middle Position" - "DB220 CALC".OPNAME."UNIT 100 POSITIONS"[#i]);
            IF #"Difference with Positions" < #"Smallest Difference" THEN
                #"Smallest Difference" := #"Difference with Positions";
                #"Found Nearest" := TRUE;
            END_IF;
        END_FOR;
    END_REGION

Combo said:
Thanks JesperMP !!!!!!!!!

L D[AR2P#0.0] · Oct 24, 2018

You have not initialised Smallest_Difference

userxyz · Oct 24, 2018

Tested

TESTED, this one works:

Code:

    REGION X      
        #"Tube Middle Position" := "DB130 UNIT SPECIFIC"."PART READY FOR PICKUP".Length / 2.0;
        #"Smallest Difference" := 9999.9;
        FOR #i := 1 TO 8 DO
            #"Difference with Positions" := ABS(#"Tube Middle Position" - "DB220 CALC".OPNAME."UNIT 100 POSITIONS"[#i]);
            IF #"Difference with Positions" < #"Smallest Difference" THEN
                #"Smallest Difference" := #"Difference with Positions";
                "DB220 CALC".OPNAME.X := "DB220 CALC".OPNAME."UNIT 100 POSITIONS"[#i];
            END_IF;
        END_FOR;
    END_REGION

Another thanks JesperMP

userxyz · Oct 24, 2018

Correct

Correct,
thanks

L D[AR2 said:
You have not initialised Smallest_Difference

JesperMP · Oct 24, 2018

Just an unsolicited comment.

I find that variables with spaces in the names makes the code much less readable.

Sergei Troizky · Oct 24, 2018

JesperMP said:
Just an unsolicited comment.
I find that variables with spaces in the names makes the code much less readable.

Still better to have such option, imo, than be unconditionally forced to use underscores.

userxyz · Oct 25, 2018

I agree

I agree, I don't like underscores so I want to have the choice to use spaces indeed

Sergei Troizky said:
Still better to have such option, imo, than be unconditionally forced to use underscores.

Find closest value in several values in SCL...

userxyz

Member

JesperMP

Lifetime Supporting Member + Moderator

userxyz

Member

userxyz

Member

L D[AR2P#0.0]

Lifetime Supporting Member

userxyz

Member

userxyz

Member

JesperMP

Lifetime Supporting Member + Moderator

Sergei Troizky

Member

userxyz

Member

Similar Topics