Получить все возможные комбинации чисел

@СЧатланин · Регистрация: 02.01.2013

Студворк — интернет-сервис помощи студентам

Доброго дня!
Подскажите, как реализовать макрос?
есть такие числа:
"1" - 46 раз
"2" - 64 раза
"3" - 12 раз
"4" - 18 раз
"5" - 12 раз
То есть итого 152 числа (или просто массив чисел mas(151) as integer), некоторые из которых повторяются. Как получить все возможные комбинации - несколько тысяч неповторяющихся 152-х значных чисел (или строки длиной в 152 символа - это лучше)? В массив их записывать не нужно, просто присваивать переменной, которая потом будет обрабатываться

shanemac51 · 22.05.2015, 09:50

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

@СЧатланин · 22.05.2015, 09:52 **[ТС]**

возможно, но если отбросить миллиарды повторяющихся таких 1111..... и 1111... (вторая и треться поменяны местами, то думаю остануться тысячи тысяч

@KoGG · 22.05.2015, 10:39

Задача на определение количества перестановок с повторениями.
Количество перестановок в данном случае равно
(46 + 64 + 12 + 18 + 12 ) ! / (46! * 64! * 12 ! * 18! * 12!) = 1,27853E+87
А объем памяти для результата нужен 1,93059E+89 байт

@СЧатланин · 22.05.2015, 10:41 **[ТС]**

ключевое слово

с повторениями

, мне бы желательно без них, ибо чувствую что

1,27853E+87

будут перебираться около месяца)

@KoGG · 22.05.2015, 10:56

Это именно наша задача - с повторениями в исходных элементах.
Когда все исходные 151 символы разные - это перестановка без повторений. Тогда количество просто факториал 151 = 8,6272E+264.

Добавлено через 1 минуту
1,27853E+87 - будут перебираться почти вечность.

@СЧатланин · 22.05.2015, 10:56 **[ТС]**

понял.
возможно ли это организовать программно (перебор)?

@KoGG · 22.05.2015, 10:59

http://mathematics.ru/courses/... heory.html
Возможно, но программа будет работать дольше Вашей жизни.

@СЧатланин · 22.05.2015, 11:01 **[ТС]**

это формулы для определения кол-ва перетсановок. мне нужен каждый вариант в качестве переменной, что выбрать только один, удовлетворяющий моим условиям

@KoGG · 22.05.2015, 11:03

Возможно на квантовых компьютерах задача будет решаться быстрее, но VBA Вам там не поможет.

@KoGG · 22.05.2015, 11:05

Слово "Каждый" подразумевает получение всех - то есть тысячи лет на перебор.

@СЧатланин · 22.05.2015, 11:05 **[ТС]**

я понял, что в течении ближайших 50 лет ее на обычном компе не решить

SoftIce · 22.05.2015, 11:13

Вот Вам комбинации без повторов
Но куда девать такую гору информации. В программе пишется в текстовый файл. Но за несколько минут набирается несколько гигабайт.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
Dim ff As Integer
 
Private Sub CommandButton1_Click()
    Dim A(1 To 152) As String, i As Integer
    For i = 1 To 152
        A(i) = CStr(Int(Rnd * 5 + 1))
    Next i
    TextBox1.Text = Join(A, "; ")
    ff = FreeFile
    Open ThisWorkbook.Path & "\Комбинации.txt" For Output As #ff
     СЧатланин Trim(Join(A, ""))
    Close #ff
End Sub
 
Public Sub СЧатланин(S As String, Optional SS As String = "")
Dim i As Integer: Static n As Long
  If Len(S) = 1 Then
    n = n + 1
    If n Mod 1000 = 0 Then Label3.Caption = n: DoEvents  'ListBox1.AddItem SS & S & vbLf
    Print #ff, SS & S
  Else
    For i = 1 To Len(S)
      СЧатланин Left$(S, i - 1) & Mid$(S, i + 1), SS & Mid$(S, i, 1)
    Next
  End If
End Sub

@СЧатланин · 22.05.2015, 11:20 **[ТС]**

For i = 1 To 152
A(i) = CStr(Int(Rnd * 5 + 1))
Next i

это понятно, но мне нужно что б в итоге получилось число (строка) содержащая не меньше, не больше чем

"1" - 46 раз
"2" - 64 раза
"3" - 12 раз
"4" - 18 раз
"5" - 12 раз

SoftIce · 22.05.2015, 11:28

Сообщение от СЧатланин

это понятно, но мне нужно что б в итоге получилось число (строка) содержащая не меньше, не больше чем

В чем проблема?
Р.S.
Насчет отсутствия повторов наврал

@СЧатланин · 22.05.2015, 11:29 **[ТС]**

для Вас элементарно, не для меня.

Сообщение от KoGG

1,27853E+87

разных комбинаций, каждая из которых содержит

"1" - 46 раз
"2" - 64 раза
"3" - 12 раз
"4" - 18 раз
"5" - 12 раз

SoftIce · 22.05.2015, 11:33

Visual Basic
1
2
 Dim s As String
    s = String(46, "1") & String(64, "2") & String(12, "3") & String(18, "4") & String(12, "5")

@СЧатланин · 22.05.2015, 12:03 **[ТС]**

это первая комбинация, осталось еще 1,27853E+87 всяких разных

например: 1234512345123451234512345...

Добавлено через 26 минут
SoftIce,
Извиняюсь, это практически то, что нужно
Спасибо!

@m-ch · 22.05.2015, 12:04

Какова конечная задача, что нужно в итоге получить?
Возможно ее можно решить не полным перебором, а динамическим программированием, либо другими методами

@СЧатланин · 22.05.2015, 12:10 **[ТС]**

что нужно в итоге получить...
с чего все началось - построили фундамент из монолита, в нем арматура

"длиной 4000мм" - 46 шт
"длиной 4400мм" - 64 шт
"длиной 4800мм" - 12 шт
"длиной 6600мм" - 18 шт
"длиной 2500мм" - 12 шт

Итого: 672 метра

Прораб принес акт на списание на 959 метров - обрезков много

И вот тут нашли к.о. в моем лице, который должен подсчитать сколько минимум могло уйти арматуры (1шт = 11.7 метра)

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@СЧатланин 2 / 2 / 0 Регистрация: 02.01.2013 Сообщений: 37

	Получить все возможные комбинации чисел 22.05.2015, 09:28. Показов 6548. Ответов 27 Метки нет (Все метки) Доброго дня! Подскажите, как реализовать макрос? есть такие числа: "1" - 46 раз "2" - 64 раза "3" - 12 раз "4" - 18 раз "5" - 12 раз То есть итого 152 числа (или просто массив чисел mas(151) as integer), некоторые из которых повторяются. Как получить все возможные комбинации - несколько тысяч неповторяющихся 152-х значных чисел (или строки длиной в 152 символа - это лучше)? В массив их записывать не нужно, просто присваивать переменной, которая потом будет обрабатываться 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,937 Записей в блоге: 4
	22.05.2015, 09:50
	а вы уверены, что это несколько тысяч, а не очень многие миллиарды и более 1

@СЧатланин 2 / 2 / 0 Регистрация: 02.01.2013 Сообщений: 37
	22.05.2015, 09:52 [ТС]
	возможно, но если отбросить миллиарды повторяющихся таких 1111..... и 1111... (вторая и треться поменяны местами, то думаю остануться тысячи тысяч 0

@KoGG 5641 / 1623 / 418 Регистрация: 23.12.2010 Сообщений: 2,433 Записей в блоге: 1
	22.05.2015, 10:39
	Задача на определение количества перестановок с повторениями. Количество перестановок в данном случае равно (46 + 64 + 12 + 18 + 12 ) ! / (46! * 64! * 12 ! * 18! * 12!) = 1,27853E+87 А объем памяти для результата нужен 1,93059E+89 байт 0

@KoGG 5641 / 1623 / 418 Регистрация: 23.12.2010 Сообщений: 2,433 Записей в блоге: 1
	22.05.2015, 10:56
	Это именно наша задача - с повторениями в исходных элементах. Когда все исходные 151 символы разные - это перестановка без повторений. Тогда количество просто факториал 151 = 8,6272E+264. Добавлено через 1 минуту 1,27853E+87 - будут перебираться почти вечность. 0

@СЧатланин 2 / 2 / 0 Регистрация: 02.01.2013 Сообщений: 37
	22.05.2015, 10:56 [ТС]
	понял. возможно ли это организовать программно (перебор)? 0

@KoGG 5641 / 1623 / 418 Регистрация: 23.12.2010 Сообщений: 2,433 Записей в блоге: 1
	22.05.2015, 10:59
	http://mathematics.ru/courses/... heory.html Возможно, но программа будет работать дольше Вашей жизни. 0

@СЧатланин 2 / 2 / 0 Регистрация: 02.01.2013 Сообщений: 37
	22.05.2015, 11:01 [ТС]
	это формулы для определения кол-ва перетсановок. мне нужен каждый вариант в качестве переменной, что выбрать только один, удовлетворяющий моим условиям 0

@KoGG 5641 / 1623 / 418 Регистрация: 23.12.2010 Сообщений: 2,433 Записей в блоге: 1
	22.05.2015, 11:03
	Возможно на квантовых компьютерах задача будет решаться быстрее, но VBA Вам там не поможет. 0

@KoGG 5641 / 1623 / 418 Регистрация: 23.12.2010 Сообщений: 2,433 Записей в блоге: 1
	22.05.2015, 11:05
	Слово "Каждый" подразумевает получение всех - то есть тысячи лет на перебор. 0

@СЧатланин 2 / 2 / 0 Регистрация: 02.01.2013 Сообщений: 37
	22.05.2015, 11:05 [ТС]
	я понял, что в течении ближайших 50 лет ее на обычном компе не решить 0

@СЧатланин 2 / 2 / 0 Регистрация: 02.01.2013 Сообщений: 37
	22.05.2015, 12:03 [ТС]
	это первая комбинация, осталось еще 1,27853E+87 всяких разных например: 1234512345123451234512345... Добавлено через 26 минут SoftIce, Извиняюсь, это практически то, что нужно Спасибо! 1

@m-ch 6180 / 945 / 313 Регистрация: 25.02.2011 Сообщений: 1,381 Записей в блоге: 1
	22.05.2015, 12:04
	Какова конечная задача, что нужно в итоге получить? Возможно ее можно решить не полным перебором, а динамическим программированием, либо другими методами 0