получить все комбинации по парам x y, чтобы получились следующие массивы

@CRIDEL · Регистрация: 03.05.2013

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

Столкнулся с алгоритмической задачей, с первого взгляда казалось простой, но никак не могу решить как закодить. Есть массив значений:
1)Dx
2)Dy
3)Fx
4)Fy
5)Nx
6)Ny

Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы:
1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fy, 3)Nx
4 - 1)Dx, 2)Fy, 3)Ny
5 - 1)Dy, 2)Fx, 3)Nx
6 - 1)Dy, 2)Fx, 3)Ny
7 - 1)Dy, 2)Fy, 3)Nx
8 - 1)Dy, 2)Fy, 3)Ny

Гуру выручайте, а то уже мозг из ушей течет

Добавлено через 2 минуты
Еще количество заглавных(D,F,N) и строчных(x,y) не фиксировано.

Добавлено через 5 минут
, то есть здесь описан частный случай, может быть например D,F,N,J и x,y,g или любая другая комбинация.

SoftIce · 25.11.2016, 20:25

Было уже что-то подобное несколько раз, поищите по разделу

@CRIDEL · 25.11.2016, 22:36 **[ТС]**

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

Было уже что-то подобное несколько раз, поищите по разделу

Если бы было, я не создал бы новую тему.

@gaw · 25.11.2016, 23:56

на разборку

Visual Basic

Dim n%
Dim a()
 
Private Sub Command1_Click()
 
a = Array("", "F", "D", "N", "x", "y")
n = UBound(a)
List1.Clear
per (0)
 
End Sub
Sub per(t)
If t = n Then
 k = k + 1
    f = True
    For i = 1 To 2 * (n \ 2) Step 2
       If a(i) Like "[a-z]" Or a(i + 1) Like "[A-Z]" Then
          f = False: Exit For
       End If
    Next i
 
If f = True Then
st = ""
    For i = 1 To n
        st = st + a(i)
    Next i
     List1.AddItem st
 End If
Else
    For i = t + 1 To n
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
         Call per(t + 1)
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
    Next i
End If
End Sub

@m-ch · 26.11.2016, 10:40

Алгоритм генерации массива

Visual Basic

Sub www()
    Dim i As Long, j As Long, k As Long, arr1, arr2, n As Long, m As Long
    arr1 = Array("D", "N", "F", "J")
    arr2 = Array("x", "y", "g")
    n = UBound(arr1) + 1
    m = UBound(arr2) + 1
    For i = 0 To m ^ n - 1
        Debug.Print i + 1,
        k = i
        For j = 0 To n - 1
            Debug.Print arr1(j) & arr2(k Mod m),
            k = k \ m
        Next j
        Debug.Print
    Next i
End Sub

@CRIDEL · 26.11.2016, 15:03 **[ТС]**

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

на разборку

Dx,Dy ... - нераздельны, считайте их string.

@gaw · 26.11.2016, 15:11

Visual Basic

Dim n%
Dim a()
 
Private Sub Command1_Click()
 
a = Array("", "Fx", "Dy", "Nz", "Gj")
n = UBound(a)
List1.Clear
per 0, 0
 
End Sub
Sub per(t, k)
If t = n Then
st = "": k = k + 1
    For i = 1 To n
        st = st + a(i) & vbTab
    Next i
    
     List1.AddItem k & vbTab & st
 End If
 
   For i = t + 1 To n
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
         Call per(t + 1, k)
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
    Next i
 
End Sub

@CRIDEL · 26.11.2016, 15:20 **[ТС]**

gaw, это перебор всего со всем, посмотрите внимательнее в задачу, Dy и Dx не могут быть в одном массиве, как и Fx и Fy и т. п. поэтому у меня и получается 8 результатов, а не 24 как у вас.

@gaw · 26.11.2016, 15:23

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

Есть массив значений:
1)Dx
2)Dy
3)Fx
4)Fy
5)Nx
6)Ny

и теперь

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

Dy и Dx не могут быть в одном массиве, как и Fx и Fy

@CRIDEL · 26.11.2016, 15:26 **[ТС]**

Мозг легко решает эту задачу, а как заставить копьютер

Добавлено через 39 секунд
gaw,

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

Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы:
1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fy, 3)Nx
4 - 1)Dx, 2)Fy, 3)Ny
5 - 1)Dy, 2)Fx, 3)Nx
6 - 1)Dy, 2)Fx, 3)Ny
7 - 1)Dy, 2)Fy, 3)Nx
8 - 1)Dy, 2)Fy, 3)Ny

@m-ch · 26.11.2016, 16:37

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

Мозг легко решает эту задачу, а как заставить копьютер

код из 5го сообщения не подходит?

@CRIDEL · 26.11.2016, 17:45 **[ТС]**

Сообщение от m-ch

код из 5го сообщения не подходит?

нет, даже близко не то, gaw, понял идею, тут нужна какого-то рода рекурсия рекурсии, но не дается что-то никак

@m-ch · 26.11.2016, 17:50

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

может быть например D,F,N,J и x,y,g

Сколько должно быть вариантов для указанных исходных данных?
У меня получилось - 81 вариант:

Кликните здесь для просмотра всего текста

1 Dx Nx Fx Jx
2 Dy Nx Fx Jx
3 Dg Nx Fx Jx
4 Dx Ny Fx Jx
5 Dy Ny Fx Jx
6 Dg Ny Fx Jx
7 Dx Ng Fx Jx
8 Dy Ng Fx Jx
9 Dg Ng Fx Jx
10 Dx Nx Fy Jx
11 Dy Nx Fy Jx
12 Dg Nx Fy Jx
13 Dx Ny Fy Jx
14 Dy Ny Fy Jx
15 Dg Ny Fy Jx
16 Dx Ng Fy Jx
17 Dy Ng Fy Jx
18 Dg Ng Fy Jx
19 Dx Nx Fg Jx
20 Dy Nx Fg Jx
21 Dg Nx Fg Jx
22 Dx Ny Fg Jx
23 Dy Ny Fg Jx
24 Dg Ny Fg Jx
25 Dx Ng Fg Jx
26 Dy Ng Fg Jx
27 Dg Ng Fg Jx
28 Dx Nx Fx Jy
29 Dy Nx Fx Jy
30 Dg Nx Fx Jy
31 Dx Ny Fx Jy
32 Dy Ny Fx Jy
33 Dg Ny Fx Jy
34 Dx Ng Fx Jy
35 Dy Ng Fx Jy
36 Dg Ng Fx Jy
37 Dx Nx Fy Jy
38 Dy Nx Fy Jy
39 Dg Nx Fy Jy
40 Dx Ny Fy Jy
41 Dy Ny Fy Jy
42 Dg Ny Fy Jy
43 Dx Ng Fy Jy
44 Dy Ng Fy Jy
45 Dg Ng Fy Jy
46 Dx Nx Fg Jy
47 Dy Nx Fg Jy
48 Dg Nx Fg Jy
49 Dx Ny Fg Jy
50 Dy Ny Fg Jy
51 Dg Ny Fg Jy
52 Dx Ng Fg Jy
53 Dy Ng Fg Jy
54 Dg Ng Fg Jy
55 Dx Nx Fx Jg
56 Dy Nx Fx Jg
57 Dg Nx Fx Jg
58 Dx Ny Fx Jg
59 Dy Ny Fx Jg
60 Dg Ny Fx Jg
61 Dx Ng Fx Jg
62 Dy Ng Fx Jg
63 Dg Ng Fx Jg
64 Dx Nx Fy Jg
65 Dy Nx Fy Jg
66 Dg Nx Fy Jg
67 Dx Ny Fy Jg
68 Dy Ny Fy Jg
69 Dg Ny Fy Jg
70 Dx Ng Fy Jg
71 Dy Ng Fy Jg
72 Dg Ng Fy Jg
73 Dx Nx Fg Jg
74 Dy Nx Fg Jg
75 Dg Nx Fg Jg
76 Dx Ny Fg Jg
77 Dy Ny Fg Jg
78 Dg Ny Fg Jg
79 Dx Ng Fg Jg
80 Dy Ng Fg Jg
81 Dg Ng Fg Jg

Если не правильно, то объясните задачу.

@CRIDEL · 26.11.2016, 18:06 **[ТС]**

Сообщение от m-ch

Если не правильно, то объясните задачу.

должно получиться восемь массивов по три элемента(по числу пар x,y) как в заглавии:

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

1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fy, 3)Nx
4 - 1)Dx, 2)Fy, 3)Ny
5 - 1)Dy, 2)Fx, 3)Nx
6 - 1)Dy, 2)Fx, 3)Ny
7 - 1)Dy, 2)Fy, 3)Nx
8 - 1)Dy, 2)Fy, 3)Ny

то есть на каждый D приходится два F и два N, но может приходится больше если будет, например Nx Ny Nz
тогда получится 12 массивов
1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fx, 3)Nz
4 - 1)Dx, 2)Fy, 3)Nx
5 - 1)Dx, 2)Fy, 3)Ny
6 - 1)Dx, 2)Fy, 3)Nz
7 - 1)Dy, 2)Fx, 3)Nx
8 - 1)Dy, 2)Fx, 3)Ny
9 - 1)Dy, 2)Fx, 3)Nz
10- 1)Dy, 2)Fy, 3)Nx
11- 1)Dy, 2)Fy, 3)Ny
12- 1)Dy, 2)Fy, 3)Nz

@m-ch · 26.11.2016, 18:31

Я просил привести пример для вашего варианта:

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

может быть например D,F,N,J и x,y,g

Произвел генерацию всех сочетаний:
Dx, Dy, Dg
Fx, Fy, Fg
Nx, Ny, Ng
Jx, Jy, Jg

Добавлено через 1 минуту
Возможно Вам нужно что то подобное: Генерация всех возможных словосочетаний из столбцов

@m-ch · 26.11.2016, 18:41

Применительно для Ваших данных решение в Excel на VBA (ничего в коде не менял, только вставил данные)

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
		1
	получить все комбинации по парам x y, чтобы получились следующие массивы 25.11.2016, 20:05. Показов 961. Ответов 15 Метки нет (Все метки) Столкнулся с алгоритмической задачей, с первого взгляда казалось простой, но никак не могу решить как закодить. Есть массив значений: 1)Dx 2)Dy 3)Fx 4)Fy 5)Nx 6)Ny Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы: 1 - 1)Dx, 2)Fx, 3)Nx 2 - 1)Dx, 2)Fx, 3)Ny 3 - 1)Dx, 2)Fy, 3)Nx 4 - 1)Dx, 2)Fy, 3)Ny 5 - 1)Dy, 2)Fx, 3)Nx 6 - 1)Dy, 2)Fx, 3)Ny 7 - 1)Dy, 2)Fy, 3)Nx 8 - 1)Dy, 2)Fy, 3)Ny Гуру выручайте, а то уже мозг из ушей течет Добавлено через 2 минуты Еще количество заглавных(D,F,N) и строчных(x,y) не фиксировано. Добавлено через 5 минут , то есть здесь описан частный случай, может быть например D,F,N,J и x,y,g или любая другая комбинация. 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	25.11.2016, 20:25	2
	Было уже что-то подобное несколько раз, поищите по разделу 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
	25.11.2016, 22:36 [ТС]	3
	Сообщение от SoftIce Было уже что-то подобное несколько раз, поищите по разделу Если бы было, я не создал бы новую тему. 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
	26.11.2016, 15:03 [ТС]	6
	Сообщение от gaw на разборку Dx,Dy ... - нераздельны, считайте их string. 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
	26.11.2016, 15:20 [ТС]	8
	gaw, это перебор всего со всем, посмотрите внимательнее в задачу, Dy и Dx не могут быть в одном массиве, как и Fx и Fy и т. п. поэтому у меня и получается 8 результатов, а не 24 как у вас. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	26.11.2016, 15:23	9
	Сообщение от CRIDEL Есть массив значений: 1)Dx 2)Dy 3)Fx 4)Fy 5)Nx 6)Ny и теперь Сообщение от CRIDEL Dy и Dx не могут быть в одном массиве, как и Fx и Fy 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
	26.11.2016, 15:26 [ТС]	10
	Мозг легко решает эту задачу, а как заставить копьютер Добавлено через 39 секунд gaw, Сообщение от CRIDEL Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы: 1 - 1)Dx, 2)Fx, 3)Nx 2 - 1)Dx, 2)Fx, 3)Ny 3 - 1)Dx, 2)Fy, 3)Nx 4 - 1)Dx, 2)Fy, 3)Ny 5 - 1)Dy, 2)Fx, 3)Nx 6 - 1)Dy, 2)Fx, 3)Ny 7 - 1)Dy, 2)Fy, 3)Nx 8 - 1)Dy, 2)Fy, 3)Ny 0

@m-ch 6172 / 937 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	26.11.2016, 16:37	11
	Сообщение от CRIDEL Мозг легко решает эту задачу, а как заставить копьютер код из 5го сообщения не подходит? 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
	26.11.2016, 17:45 [ТС]	12
	Сообщение от m-ch код из 5го сообщения не подходит? нет, даже близко не то, gaw, понял идею, тут нужна какого-то рода рекурсия рекурсии, но не дается что-то никак 0

@m-ch 6172 / 937 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	26.11.2016, 17:50	13
	Сообщение от CRIDEL может быть например D,F,N,J и x,y,g Сколько должно быть вариантов для указанных исходных данных? У меня получилось - 81 вариант: Кликните здесь для просмотра всего текста 1 Dx Nx Fx Jx 2 Dy Nx Fx Jx 3 Dg Nx Fx Jx 4 Dx Ny Fx Jx 5 Dy Ny Fx Jx 6 Dg Ny Fx Jx 7 Dx Ng Fx Jx 8 Dy Ng Fx Jx 9 Dg Ng Fx Jx 10 Dx Nx Fy Jx 11 Dy Nx Fy Jx 12 Dg Nx Fy Jx 13 Dx Ny Fy Jx 14 Dy Ny Fy Jx 15 Dg Ny Fy Jx 16 Dx Ng Fy Jx 17 Dy Ng Fy Jx 18 Dg Ng Fy Jx 19 Dx Nx Fg Jx 20 Dy Nx Fg Jx 21 Dg Nx Fg Jx 22 Dx Ny Fg Jx 23 Dy Ny Fg Jx 24 Dg Ny Fg Jx 25 Dx Ng Fg Jx 26 Dy Ng Fg Jx 27 Dg Ng Fg Jx 28 Dx Nx Fx Jy 29 Dy Nx Fx Jy 30 Dg Nx Fx Jy 31 Dx Ny Fx Jy 32 Dy Ny Fx Jy 33 Dg Ny Fx Jy 34 Dx Ng Fx Jy 35 Dy Ng Fx Jy 36 Dg Ng Fx Jy 37 Dx Nx Fy Jy 38 Dy Nx Fy Jy 39 Dg Nx Fy Jy 40 Dx Ny Fy Jy 41 Dy Ny Fy Jy 42 Dg Ny Fy Jy 43 Dx Ng Fy Jy 44 Dy Ng Fy Jy 45 Dg Ng Fy Jy 46 Dx Nx Fg Jy 47 Dy Nx Fg Jy 48 Dg Nx Fg Jy 49 Dx Ny Fg Jy 50 Dy Ny Fg Jy 51 Dg Ny Fg Jy 52 Dx Ng Fg Jy 53 Dy Ng Fg Jy 54 Dg Ng Fg Jy 55 Dx Nx Fx Jg 56 Dy Nx Fx Jg 57 Dg Nx Fx Jg 58 Dx Ny Fx Jg 59 Dy Ny Fx Jg 60 Dg Ny Fx Jg 61 Dx Ng Fx Jg 62 Dy Ng Fx Jg 63 Dg Ng Fx Jg 64 Dx Nx Fy Jg 65 Dy Nx Fy Jg 66 Dg Nx Fy Jg 67 Dx Ny Fy Jg 68 Dy Ny Fy Jg 69 Dg Ny Fy Jg 70 Dx Ng Fy Jg 71 Dy Ng Fy Jg 72 Dg Ng Fy Jg 73 Dx Nx Fg Jg 74 Dy Nx Fg Jg 75 Dg Nx Fg Jg 76 Dx Ny Fg Jg 77 Dy Ny Fg Jg 78 Dg Ny Fg Jg 79 Dx Ng Fg Jg 80 Dy Ng Fg Jg 81 Dg Ng Fg Jg Если не правильно, то объясните задачу. 0

	26.11.2016, 18:41

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 395
	26.11.2016, 18:06 [ТС]	14
	Сообщение от m-ch Если не правильно, то объясните задачу. должно получиться восемь массивов по три элемента(по числу пар x,y) как в заглавии: Сообщение от CRIDEL 1 - 1)Dx, 2)Fx, 3)Nx 2 - 1)Dx, 2)Fx, 3)Ny 3 - 1)Dx, 2)Fy, 3)Nx 4 - 1)Dx, 2)Fy, 3)Ny 5 - 1)Dy, 2)Fx, 3)Nx 6 - 1)Dy, 2)Fx, 3)Ny 7 - 1)Dy, 2)Fy, 3)Nx 8 - 1)Dy, 2)Fy, 3)Ny то есть на каждый D приходится два F и два N, но может приходится больше если будет, например Nx Ny Nz тогда получится 12 массивов 1 - 1)Dx, 2)Fx, 3)Nx 2 - 1)Dx, 2)Fx, 3)Ny 3 - 1)Dx, 2)Fx, 3)Nz 4 - 1)Dx, 2)Fy, 3)Nx 5 - 1)Dx, 2)Fy, 3)Ny 6 - 1)Dx, 2)Fy, 3)Nz 7 - 1)Dy, 2)Fx, 3)Nx 8 - 1)Dy, 2)Fx, 3)Ny 9 - 1)Dy, 2)Fx, 3)Nz 10- 1)Dy, 2)Fy, 3)Nx 11- 1)Dy, 2)Fy, 3)Ny 12- 1)Dy, 2)Fy, 3)Nz 0

@m-ch 6172 / 937 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	26.11.2016, 18:31	15
	Я просил привести пример для вашего варианта: Сообщение от CRIDEL может быть например D,F,N,J и x,y,g Произвел генерацию всех сочетаний: Dx, Dy, Dg Fx, Fy, Fg Nx, Ny, Ng Jx, Jy, Jg Добавлено через 1 минуту Возможно Вам нужно что то подобное: Генерация всех возможных словосочетаний из столбцов 0