<?xml version="1.0" encoding="UTF-8"?>
|
<hdevelop file_version="1.1" halcon_version="12.0">
|
<procedure name="M071_Max_Min2">
|
<interface>
|
<ic>
|
<par name="INPUT_Params" base_type="ctrl" dimension="0"/>
|
</ic>
|
<oc>
|
<par name="OUTPUT_Result" base_type="ctrl" dimension="0"/>
|
</oc>
|
</interface>
|
<body>
|
<l>tempTuple := []</l>
|
<l>for Index := 0 to |INPUT_Params| - 1 by 2</l>
|
<l> tempTuple[Index] := abs(INPUT_Params[Index] - INPUT_Params[Index + 1])</l>
|
<l>endfor</l>
|
<l>tuple_max (tempTuple, Max)</l>
|
<l>tuple_min (tempTuple, Min)</l>
|
<l>OUTPUT_Result := Max - Min</l>
|
<l>return ()</l>
|
</body>
|
<docu id="M071_Max_Min2">
|
<parameters>
|
<parameter id="INPUT_Params"/>
|
<parameter id="OUTPUT_Result"/>
|
</parameters>
|
</docu>
|
</procedure>
|
</hdevelop>
|
