А какое максимальное значение числа?

Конечно.
От этого будет зависеть время работы алгоритма и что-нибудь исчо . : )
+
В каком виде нужен "выхлоп"?
Для каких целей, если не секрет?

Ты забыл дописать 1+2+2
Кот, ты приобрел суперкомпьютер? На не очень больших числах обычный комп уйдет в аут.

1 1 1 1 1 1 1 1 2 0 1 1 3 0 0 1 4 0 0 0 2 1 1 1 0 2 2 1 0 0 2 3 0 0 0 3 1 1 0 0 3 2 0 0 0 4 1 0 0 0

Это дублирование. И причем не единственное в данном алгоритме

в каком смысле дублирование? дублирование ЧЕГО ИМЕННО?

3+1+1 и 1+1+3 - это одно и тоже. Складываются одни и те же цифры.

SELECT A.Enumerate, B.Enumerate, C.Enumerate, D.Enumerate, E.Enumerate, [A].[Enumerate]+[B].[Enumerate]+[C].[Enumerate]+[D].[Enumerate]+[E].[Enumerate] AS amt
FROM (SELECT 0 AS Enumerate FROM MSysObjects
UNION SELECT 1 FROM MSysObjects
UNION SELECT 2 FROM MSysObjects
UNION SELECT 3 FROM MSysObjects
UNION SELECT 4 FROM MSysObjects
UNION SELECT 5 FROM MSysObjects
UNION SELECT 6 FROM MSysObjects
UNION SELECT 7 FROM MSysObjects
UNION SELECT 8 FROM MSysObjects
UNION SELECT 9 FROM MSysObjects) AS A,
(SELECT 0 AS Enumerate FROM MSysObjects
UNION SELECT 1 FROM MSysObjects
UNION SELECT 2 FROM MSysObjects
UNION SELECT 3 FROM MSysObjects
UNION SELECT 4 FROM MSysObjects
UNION SELECT 5 FROM MSysObjects
UNION SELECT 6 FROM MSysObjects
UNION SELECT 7 FROM MSysObjects
UNION SELECT 8 FROM MSysObjects
UNION SELECT 9 FROM MSysObjects) AS B,
(SELECT 0 AS Enumerate FROM MSysObjects
UNION SELECT 1 FROM MSysObjects
UNION SELECT 2 FROM MSysObjects
UNION SELECT 3 FROM MSysObjects
UNION SELECT 4 FROM MSysObjects
UNION SELECT 5 FROM MSysObjects
UNION SELECT 6 FROM MSysObjects
UNION SELECT 7 FROM MSysObjects
UNION SELECT 8 FROM MSysObjects
UNION SELECT 9 FROM MSysObjects) AS C,
(SELECT 0 AS Enumerate FROM MSysObjects
UNION SELECT 1 FROM MSysObjects
UNION SELECT 2 FROM MSysObjects
UNION SELECT 3 FROM MSysObjects
UNION SELECT 4 FROM MSysObjects
UNION SELECT 5 FROM MSysObjects
UNION SELECT 6 FROM MSysObjects
UNION SELECT 7 FROM MSysObjects
UNION SELECT 8 FROM MSysObjects
UNION SELECT 9 FROM MSysObjects) AS D,
(SELECT 0 AS Enumerate FROM MSysObjects
UNION SELECT 1 FROM MSysObjects
UNION SELECT 2 FROM MSysObjects
UNION SELECT 3 FROM MSysObjects
UNION SELECT 4 FROM MSysObjects
UNION SELECT 5 FROM MSysObjects
UNION SELECT 6 FROM MSysObjects
UNION SELECT 7 FROM MSysObjects
UNION SELECT 8 FROM MSysObjects
UNION SELECT 9 FROM MSysObjects) AS E
WHERE ([A].[Enumerate]+[B].[Enumerate]+[C].[Enumerate]+[D].[Enumerate]+[E].[Enumerate])=5;

А спец табличку завести лень было?

ога

http://www.gmmcc.com.ua/gmmcc/index.php?option=com_content&task=view&id=130&Itemid=76
При реализации процедуры декорреляции Грамма-Шмидта желательно осуществить нормировку дисперсии, дополнительно улучшающую обусловленность матрицы декоррелирующих преобразований cond(D-1).

Ха, биты.
Тут гораздо веселее:
(Число+1)^Число

То что алгоритм времяемкий догадывался.
Возникла мысль находить оптимальное время выполнения процесса, состоящего из нескольких работ, со своими задержками друг относительно друга.

Типа нужно на одном станке:
Работа_1 - 20 ед., время 2
Работа_2 - 10 ед. время 1,7 (задержка 0,5 от Работы_1)
Работа_3 - 7 ед. время 3 (задержка 0,5 от Работы_2)
Работа_4 - 1 ед. время 2,5 - станок другой

Такую последовательность работ нужно сделать 100 раз.
Задача найти наименьшее время выполенния.
Ежу понятно что минимальные задержки если делать весь объем Работа_1, потом всё Работа_2 и затем Работа_3, но каждая порция запускает дальше работы (работа_4) - так что в таком случае Работа_4 начнется фиг знает когда.
Если делать строго по одной порции - максимальное время задержки (простой).

Где-то должно быть так -

работа_1 - по 20 ед. в объеме 30 исполнений
работа_2 - по 10 ед. в объеме 30 исполнений (задержка 0,5 от Работы_1)
работа_3 - по 7 ед. в объеме 30 исполнений (задержка 0,5 от Работы_2)

работа_1 - по 20 ед. в объеме 70 исполнений (задержка 0,5 от Работы_3)
работа_2 - по 10 ед. в объеме 70 исполнений (задержка 0,5 от Работы_1)
работа_3 - по 7 ед. в объеме 70 исполнений (задержка 0,5 от Работы_2)

или какими-то другими порциями
вот для этого и хотел получить все возможные варианты т.е. слагаемые числа 100.

думаю алгоритм должен быть.

п.с. цифры брал с головы.

п.с.с. вот красиво назвал - оптимальное запараллеливание заготовительных работ и конвейера сборки для минимизации временных затрат.

вообще-то это целое направление исследований :)

т.н. исследование операций - вот в этой книжке много и хорошо написано

http://www.williamspublishing.com/Books/5-8459-0740-3.html

еще можно погуглить "теория расписаний"

Public Sub xvariant(num&, k&, l&) Dim n&, i& Static c$ If num = 0 Then     Debug.Print c     c = "" Else     For i = 1 To k        If num - i >= 0 Then            c = c & " " & i            xvariant num - i, i, l + 1        End If     Next i End If End Sub

xvariant 5,5,1  1 1 1 1 1  2 1 1 1  2 1  3 1 1  2  4 1  5

теперь понелЪ

1+2+2 тоже нет

у мну вот так

: )

а вот нормалёк
готова алгоритма для кота
конечно код не блещет, но вроде всё как он просил.....
Жаль я слаб в рекурсии - я б ему эстетичное решение подал бы, ну да он сам поправит, если чё.
более 39 уже ему в лом разложить список не вмещает.......
а в Debug - 100 штук запросто.......

спасибо, за соучатие всем!!!!!

час он доходит до предпоследненего уровня 10=8+1+1 а 10=8+2 не хочет, все равно спасибочки буду разбираться.

Лукас - за ссылку спасибо, но тут нужно просто минимизировать процес, без отвлечения на то что крановщица беремена, а мастер с утра в запое.

С Тяпницей всех -

Вот - работат - 100 разложил на 4950 вариантов

осталось фигня - умножить, сложить и найти минимум

чиста поржать

Public Sub xvariant(num&, k&, l&, Optional c$ = "") Dim i&, a& If num = 0 Then     c = IIf(l - Eval(c) > 0, c & "+" & (l - Eval(c)), c)     Debug.Print Replace(c, "+", " ")     c = "" Else     For i = 1 To k         a = num - i         If a >= 0 Then             c = c & "+" & i             xvariant a, i, l, c         End If     Next i End If End Sub

но есть повторы

xvariant 7,7,7  1 1 1 1 1 1 1  2 1 1 1 1 1  2 1 1 1 2  2 1 4  3 1 1 1 1  2 1 1 3  2 5  3 1 3  4 1 1 1  2 1 4  3 4  5 1 1  2 5  6 1  7

ну и дальше 10ти не тестировал

зю! на 100 нельзя

наткнулся на опу - при большом числе типа 150 - выдает

Dim B, C, D, E, F As Long
Dim Strr As String

If Eval(Strr) > C Then

- выдает Run-time erroe 10025 - Вданной операции будут проверены условия на значения записей и полей таблицы, а тажк свойства "Обязательное поле" (Required) и "Пустые строки" (AllowZeroLength) для всех данных таблицы.

, где Strr=' 1+ 1+ 1+ 1+ 1+ 1+ 1+ 1+ 1+ 1+ 1+ 1.....'
Len (Strr)=302

Хотя имеем дело с переменными и к табле отношения не имеем,
где проблема и может как-то по другому описать переменные

п.с. пример сброшен мной ранее - переделанный Часа.

работает "не правильно" с числа 101

да :) только наверное там лучше(?) с коллекцией или массивчегом поиграться :)
но это так, именно поиграться...

все алгоритм более сложен - потом.
нужно сравнить всремя цикла с временем последующей операцией, ее объемом, и найти минимум исходя из этих данных.
типа время цикла в 2 раза меньше времени операции - за время операции Цикл производит объем на 2 последующие операции. и т.д. но как оптимизировать чтобы сказать после запуска 15 циклов (объем на 30 операций) можно запускать циклы с объемом 20х или вообще делать объем первой операции, потом для второй, потом для третьей операции и заготовительные работы могут начинаться на что-то еще.

короче - шо тут думать - прыгать надо!!!

на массивчеге, но выводит результат в строку

Public Sub xvar(num&, k&, l&, Optional c = Null) Dim i&, a&, s$ Static j& If num = 0 Then     a = 0: For i = 0 To l: a = a + Nz(c(i), 0): Next i     c(j) = IIf(l - a > 0, l - a, c(j))     s = ""     For i = 0 To l: s = s & " " & c(i): Next i     Debug.Print s     j = 0: ReDim c(0 To l) Else     If j = 0 Then ReDim c(0 To l)     For i = 1 To k         a = num - i         If a >= 0 Then             c(j) = i: j = j + 1             xvar a, i, l, c         End If     Next i End If End Sub

по одной из ссылок напоролся вот на что

http://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D0%B1%D0%BB%D0%B5%D0%BC%D1%8B_%D0%93%D0%B8%D0%BB%D1%8C%D0%B1%D0%B5%D1%80%D1%82%D0%B0

мозк закипает по тихоньку

Даааааа
Я свои шары - уже давно упаковал...
И особо не заморачивался про 3D пространство.... само собой всё получилось.
и про многочлен тоже не заморачивался - нафига оно мне я же не многожёнец.