Функция поиска слагаемых под нужную сумму

[xaron]

Подскажите пожалуйста как загнать в ПЛК150 макрос подбора суммы по слагаемым ?

Option Explicit

Function LongSumEl(arr(), sm As Long, Optional ds As Long = 0)
'Функция поиска слагаемых под нужную сумму используя динамическое программирование
'Автор MCH (Михаил Ч.) - июнь 2013

'сумма ищется по целочисленным слагаемым
'в основу взят алгоритм описанный здесь
'http://forum.sources.ru/index.php?showtopic=204375
'Если сумма существует, то она будет найдена

'на входе:
'arr() - одномерный массив с исходными данными
'sm - искомая сумма
'ds - погрешность поиска

'на выходе одномерный массив с результатом, либо значение достигнутой точности

Dim out&(), i&, j&, k&, n&, l&, sm1&

n = sm + ds '
sm1 = sm - ds

If n > 80000000 Or n < 0 Then Exit Function
ReDim a&(n)

For i = 1 To n: a(i) = -1: Next i
For i = 1 To UBound(arr)
For j = n - arr(i) To 0 Step -1
If a(j) >= 0 Then
k = j + arr(i)
If a(k) = -1 Then a(k) = j
If k >= sm1 Then
Do
l = l + 1
ReDim Preserve out&(1 To l)
out(l) = k - a(k)
k = a(k)
Loop While k
LongSumEl = out
Exit Function
End If
End If
Next j, i
For i = sm To 1 Step -1
If a(i) >= 0 Then Exit For
Next i
LongSumEl = sm - i
End Function

И вообще это реально или нет ?

[Вольд]

Оформи свои дела в виде функционального блока (FB), программу пиши на ST.

[Валенок]

.. и беги, лола, беги от своры злых сторожевых собак )))

[xaron]

В ST к сожалению не силён......
Думаю сделать передачу массива из 20 элементов в Скаду. Там можно в скрипте всё общитать и вернуть результат в контроллер. Но что то очень громоздко с компьютером получается. Подскажите в какую сторону думать !!!

[xaron]

.. и беги, лола, беги от своры злых сторожевых собак )))

А причём тут вачдог ? Вроде бы обычная математика.....контроллер должен успеть обработать.

[Валенок]

....контроллер должен успеть обработать.

..(..sm:=79999998,ds:=1..);
Ключевые слова должен успеть


PS
Но как перевозчика в вечность - видимо это не беспокоит..

[xaron]

..(..sm:=79999998,ds:=1..);
Ключевые слова должен успеть


PS
Но как перевозчика в вечность - видимо это не беспокоит..

У Вас есть какое то рациональное предложение ?

[Вольд]

У Вас есть какое то рациональное предложение ?

ПЛК - это не ПК. В программах для ПЛК длинные циклы не приветствуются. Зачем вообще решать эту задачу на ПЛК ?

[xaron]

ПЛК - это не ПК. В программах для ПЛК длинные циклы не приветствуются. Зачем вообще решать эту задачу на ПЛК ?

Потому что на ПЛК сделан весовой сортировщик. Теперь хочется подбор до нужного веса реализовать (с закольцованным конвейером).
Придётся на ПК прокладку из скады городить (((( Красоты в этом не усматриваю.

[Валенок]

А Вы можете сами оценить для вызова функции кол-во выполняемых строк (с учетом циклов) для диапазона Ваших задач ?