Набрать самые лучшие (ценные) в некий Рюкзак, с ограничением по полному весу

@Willi2001 · 03.10.2015, 13:53. **Показов** 3626. **Ответов** 31

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

Здравствуйте!
Прошу помощи. Встретил интересную задачу с решением. К сожалению, она на Excel (VBA)— мне нравится меньше, чем VB6.

Суть задачи. Есть перечень предметов, имеющих два параметра: вес и стоимость. Надо набрать самые лучшие (ценные) в некий Рюкзак, с ограничением по полному весу не более 10000 грамм (10 кг).

Возникло много вопросов и мороки. Как избежать канцелярской работы в виде рутины? Например, можно ли ввести все исходные данные как-нибудь готовым списком?
Как быть с Формой, тоже много мороки?

Пока всё поделил на три этапа:
1) исходные данные задачи;

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

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Наименование    Вес  Стоимость
Предмет 1        300 25800,20
Предмет 2        250 625,30
Предмет 3        156 4568,60
Предмет 4        168 9514,20
Предмет 5        314 15654,80
Предмет 6        215 92100,10
Предмет 7        841 654,20
Предмет 8        369 7520,50
Предмет 9        852 6352,40
Предмет 10       147 19558,77
Предмет 11       365 74580,50
Предмет 12       145 72806,00
Предмет 13       254 71031,50
Предмет 14       741 69257,00
Предмет 15       257 67482,50
Предмет 16       259 65708,00
Предмет 17       851 63933,50
Предмет 18       853 62159,00
Предмет 19       459 60384,50
Предмет 20       453 58610,00
Предмет 21       358 56835,50
Предмет 22       657 55061,00
Предмет 23       651 53286,50
Предмет 24       954 51512,00
Предмет 25       952 49737,50
Предмет 26       158 47963,00
Предмет 27       156 46188,50
Предмет 28       354 44414,00
Предмет 29       358 42639,50
Предмет 30       756 40865,00
Предмет 31       752 39090,50
Предмет 32       215 37316,00
Предмет 33       841 35541,50
Предмет 34       369 33767,00
Предмет 35       852 31992,50
Предмет 36       147 30218,00
Предмет 37       523 28443,50
Предмет 38       258 26669,00
Предмет 39       962 24894,50
Предмет 40       159 23120,00
Предмет 41       357 21345,50
Предмет 42       456 19571,00
Предмет 43       358 17796,50
Предмет 44       951 16022,00
Предмет 45       744 14247,50
Предмет 46       888 12473,00
Предмет 47       999 10698,50
Предмет 48       358 8924,00
Предмет 49       962 7149,50
Предмет 50       147 5375,00
Предмет 51       365 3600,50
Предмет 52       145 1826,00
Предмет 53       856 51,50
Предмет 54       965 35951,50
Предмет 55       854 1000,00
Предмет 56       745 1126,70
Предмет 57       856 1253,40
Предмет 58       963 1380,10
Предмет 59       256 1506,80
Предмет 60       365 1633,50
Предмет 61       145 1760,20
Предмет 62       254 1886,90
Предмет 63       741 2013,60
Предмет 64       257 2140,30
Предмет 65       259 2267,00
Предмет 66       851 2393,70
Предмет 67       853 2520,40
Предмет 68       459 2647,10
Предмет 69       453 2773,80
Предмет 70       358 2900,50
Предмет 71       657 3027,20
Предмет 72       651 3153,90
Предмет 73       954 3280,60
Предмет 74       952 3407,30
Предмет 75       158 3534,00
Предмет 76       156 3660,70
Предмет 77       354 3787,40
Предмет 78       358 3914,10
Предмет 79       756 4040,80
Предмет 80       752 4167,50
Предмет 81       300 4294,20
Предмет 82       250 4420,90
Предмет 83       156 4547,60
Предмет 84       168 4674,30
Предмет 85       314 4801,00
Предмет 86       215 4927,70
Предмет 87       841 5054,40
Предмет 88       369 5181,10
Предмет 89       852 5307,80
Предмет 90       147 5434,50
Предмет 91       523 5561,20
Предмет 92       258 5687,90
Предмет 93       962 5814,60
Предмет 94       159 5941,30
Предмет 95       357 6068,00
Предмет 96       456 6194,70
Предмет 97       358 6321,40
Предмет 98       951 6448,10
Предмет 99       744 6574,80

2) код для решения задачи; — требуется внести изменения под код VB6

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

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
Option Explicit
 
Sub main()
    Dim a(), i&, j&, n&
    Dim n1&, n2&, s1&, s2&, dn&, ds&
    Dim out
    
    a = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 3) 'считываем с листа исходные данные
    n = UBound(a) 'кол-во предметов
    n1 = Val([f2]): n2 = Val([g2]) 'искомый вес
    s1 = Val([f3]): s2 = Val([g3]) 'искомая стоимость
    dn = Val([h2]): ds = Val([h3]) 'допустимая погрешность
    If dn = 0 Then dn = 1
    If ds = 0 Then ds = 1
    
    ReDim arr&(1 To n, 1 To 2)
    For i = 1 To n 'формируем массив для решения
        arr(i, 1) = Round(a(i, 2) / dn, 0) 'сокращаем значения на делители
        arr(i, 2) = Round(a(i, 3) / ds, 0)
    Next i
    
    With Range("L2")
        .Resize(1000, 4).ClearContents
        out = Rucksack(arr, Round(n1 / dn, 0), Round(n2 / dn, 0), Round(s1 / ds, 0), Round(s2 / ds, 0))
        If IsArray(out) Then 'если результат получен в виде масива, то выводим его на лист
            For i = UBound(out) To 1 Step -1
                .Offset(j, 0) = out(i)
                .Offset(j, 1) = a(out(i), 1)
                .Offset(j, 2) = a(out(i), 2)
                .Offset(j, 3) = a(out(i), 3)
                j = j + 1
            Next i
        End If
    End With
End Sub
 
Sub mainDynamic()
    Dim a(), i&, j&, n&
    Dim v&
    Dim out
    
    a = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 3) 'считываем с листа исходные данные
    n = UBound(a) 'кол-во предметов
    v = Val([f2]) 'искомый вес
    
    ReDim arr(1 To n, 1 To 2)
    For i = 1 To n 'формируем массив для решения
        arr(i, 1) = Round(a(i, 2), 0)
        arr(i, 2) = a(i, 3)
    Next i
    
    With Range("L2")
        .Resize(1000, 4).ClearContents
        out = RucksackDynamic(arr, v)
        If IsArray(out) Then 'если результат получен в виде масива, то выводим его на лист
            For i = 1 To UBound(out)
                .Offset(j, 0) = out(i)
                .Offset(j, 1) = a(out(i), 1)
                .Offset(j, 2) = a(out(i), 2)
                .Offset(j, 3) = a(out(i), 3)
                j = j + 1
            Next i
        End If
    End With
End Sub
 
Sub mainGreedy()
    Dim a(), i&, j&, n&
    Dim v&
    Dim out
    
    a = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 3) 'считываем с листа исходные данные
    n = UBound(a) 'кол-во предметов
    v = CDbl([f2]) 'искомый вес
    
    ReDim arr(1 To n, 1 To 2)
    For i = 1 To n 'формируем массив для решения
        arr(i, 1) = CDbl(a(i, 2))
        arr(i, 2) = CDbl(a(i, 3))
    Next i
    
    With Range("L2")
        .Resize(1000, 4).ClearContents
        out = RucksackGreedy(arr, v)
        If IsArray(out) Then 'если результат получен в виде масива, то выводим его на лист
            For i = 1 To UBound(out)
                .Offset(j, 0) = out(i)
                .Offset(j, 1) = a(out(i), 1)
                .Offset(j, 2) = a(out(i), 2)
                .Offset(j, 3) = a(out(i), 3)
                j = j + 1
            Next i
        End If
    End With
End Sub
 
Function Rucksack(arr&(), n1&, n2&, s1&, s2&)
'Функция решения "задачи о рюкзаке" с подбором по двум параметрам: веса и стоимости
'на входе:
'   arr() - двумерный массив, вес предметов и их стоимость
'   n1, n2 - необходимый вес предметов от n1 до n2
'   s1, s2 - необходимая стоимость предметов от s1 до s2
'на выходе одномерный массив индексов подобранных предметов
'Автор: Михаил Ч. (MCH), Август 2015
 
    Dim i&, j&, k&, k1&, k2&, n&, m&, x, out&()
    n = UBound(arr) 'кол-во исходных предметов
    
    ReDim oD(n2), a&(n2) 'массивы для динамического программирования
    For i = 0 To n2 'создаем массив словарей размерностью n2
        Set oD(i) = CreateObject("Scripting.Dictionary")
    Next i
    oD(0).Item(0) = 0& 'начальный элемент равен нулю
    a(0) = 1
    
    For i = 1 To n 'перебираем все предметы
        For j = n2 - arr(i, 1) To 0 Step -1 'проходим массив с конца до начала
            If a(j) Then 'если в текущее положение (вес рюкзака - j) уже попадали
                For Each x In oD(j).Keys 'для каждого состояния (стоимости) данного веса добавляем предмет
                    k1 = j + arr(i, 1) 'новый вес рюкзака
                    k2 = Val(x) + arr(i, 2) 'новая стоимость
                    If k2 <= s2 Then 'если стоимость не превышает искомую
                        If Not oD(k1).Exists(k2) Then 'если данная стоимость для рюкзака веслм k1 еще не было
                            a(k1) = a(k1) + 1 'увеличиваем кол-во различных стомостей для рукзака весом k1
                            oD(k1).Item(k2) = i 'добавляем в словарь стоимость рюкзака и номер предмета из которого мы в него попали
                            
                            If k1 >= n1 And k2 >= s1 Then 'проверяем, попали ли в нужный допуск
                                While k1 'пока путь не закончится нулевым элементом
                                    m = oD(k1).Item(k2) 'теущий предмет
                                    k = k + 1 'прядковый номер в выходном массиве
                                    ReDim Preserve out&(1 To k) 'переопределяем выходной массив
                                    out(k) = m 'сохраняем элемент
                                    k1 = k1 - arr(m, 1) 'переходим в положение из какого веса сюда попали
                                    k2 = k2 - arr(m, 2) 'и какова предыдущая стоимость
                                Wend
                                Rucksack = out 'возвращаем полученный результат (набор индексов предметов)
                                Exit Function
                            End If
                        End If
                    End If
                Next x
            End If
    Next j, i
End Function
 
Function RucksackDynamic(arr(), v&)
'Функция решения "задачи о рюкзаке" с подбором наибольшей стоимости предметов для рюкзака весом не болле v
'метод решения - динамическое программирование
'на входе:
'   arr() - двумерный массив, вес предметов и их стоимость
'   v - наибольший вес предметов, который может умещатся в рюкзак
'на выходе одномерный массив индексов подобранных предметов
'Автор: Михаил Ч. (MCH), Август 2015
    
    Dim i&, j&, k&, n&, s#, maxs#, m&, out&(), x
    n = UBound(arr) 'кол-во исходных предметов
    
    ReDim b#(v), p$(v)  'массивы для динамического программирования
 
    For i = 1 To n 'перебираем все предметы
        For j = v - arr(i, 1) To 0 Step -1 'проходим массив с конца до начала
            If Len(p(j)) Or j = 0 Then  'если в текущее положение (вес рюкзака - j) уже попадали, либо находимся в начальной точке
                k = j + arr(i, 1) 'новый вес рюкзака
                s = b(j) + arr(i, 2) 'новая стоимость
                If b(k) < s Then  'если получаемая стоимость больше чем есть
                    b(k) = s 'запоминаем лучшую стоимость
                    p(k) = p(j) & " " & i 'запоминаем путь
                    If s > maxs Then maxs = s: m = k 'запоминаем максимум
                End If
            End If
    Next j, i
    'формируем путь
    k = 0
    For Each x In Split(Trim(p(m)))
        k = k + 1 'прядковый номер в выходном массиве
        ReDim Preserve out&(1 To k) 'переопределяем выходной массив
        out(k) = Val(x) 'сохраняем элемент
    Next x
    If k > 0 Then RucksackDynamic = out
End Function
 
Function RucksackGreedy(arr(), ByVal v)
'Функция решения "задачи о рюкзаке" с подбором наибольшей стоимости предметов для рюкзака весом не болле v
'метод решения - "жадный" алгоритм
'на входе:
'   arr() - двумерный массив, вес предметов и их стоимость
'   v - наибольший вес предметов, который может умещатся в рюкзак
'на выходе одномерный массив индексов подобранных предметов
'Автор: Михаил Ч. (MCH), Август 2015
    
    Dim i&, j&, k&, t&, n&, out&()
    n = UBound(arr) 'кол-во исходных предметов
    
    ReDim a&(1 To n), c#(1 To n) 'массивы для "жадного" алгоритма
    
    For i = 1 To n
        a(i) = i
        c(i) = arr(i, 2) / arr(i, 1) 'вычисляем удельную стоимость каждого предмета
        For j = 1 To i - 1 'сортируем индексы предметов
            If c(a(i)) > c(a(j)) Then t = a(j): a(j) = a(i): a(i) = t
    Next j, i
    
    For i = 1 To n
        If arr(a(i), 1) < v Then 'если предмет помещается в рюкзак, то берем его
            k = k + 1
            ReDim Preserve out&(1 To k)
            out(k) = a(i)
            v = v - arr(a(i), 1)
            For j = 1 To k - 1 'сортируем выходной массив
                If out(k) < out(j) Then t = out(j): out(j) = out(k): out(k) = t
            Next j
        End If
    Next i
    If k > 0 Then RucksackGreedy = out
End Function

3) результат по задаче.

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

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
28
29
№ Наименование    Вес  Стоимость
1   Предмет 1        300 25800,2
4   Предмет 4        168 9514,2
5   Предмет 5        314 15654,8
6   Предмет 6        215 92100,1
10  Предмет 10       147 19558,76944
11  Предмет 11       365 74580,5
12  Предмет 12       145 72806
13  Предмет 13       254 71031,5
14  Предмет 14       741 69257
15  Предмет 15       257 67482,5
16  Предмет 16       259 65708
17  Предмет 17       851 63933,5
18  Предмет 18       853 62159
19  Предмет 19       459 60384,5
20  Предмет 20       453 58610
21  Предмет 21       358 56835,5
22  Предмет 22       657 55061
23  Предмет 23       651 53286,5
26  Предмет 26       158 47963
27  Предмет 27       156 46188,5
28  Предмет 28       354 44414
29  Предмет 29       358 42639,5
32  Предмет 32       215 37316
34  Предмет 34       369 33767
36  Предмет 36       147 30218
38  Предмет 38       258 26669
40  Предмет 40       159 23120
41  Предмет 41       357 21345,5

@Willi2001 · 25.10.2015, 09:25 **[ТС]**

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

2) Автосумма по весу всех предметов: ∑ = 54,67 < 86. Пренебрегаем ограничениями.

Это описка, правильно: Автосумма по объёму всех предметов...

Почему все молчат? Может что-то непотребное спрашиваю? Меня интересует: как методами программирования Visual Basic 6.0 (VBA) ускорить и рационализировать процесс подсчёта?

Ниже — новые условия для загрузки фуры. Кто сможет решить? Какой товар будет самым выгодным при загрузке?

Пояснения к задаче:
1) Обеспечить точность вычислений для относительной погрешности: δ = ±0,01%.
2) Параметры фуры: 20000 кг и 86 кубометров.
3) Весь товар единичный, т. е. партию однородных предметов брать нельзя.
4) Доходность считать как норму прибыли единицы товара.
5) Долю брака учитывать в норме прибыли, как возможный возврат товара потребителем. Недополученная прибыль.

Как смотрится русская речь? Все ли понятно? Надеюсь, ясно излагаю мысли. Опять подсказываю, задача лёгкая.
Новые условия

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Новые условия для загрузки транспортной фуры со склада                   
                    
Наименование    Вес в кг  Цена в руб  Объём в куб.м Доходность в %   Доля брака
Предмет 1    300 25 800,20   0,27    33,73   0,036
Предмет 2    250 625,30  4,86    66,47   0,043
Предмет 3    156 4 568,60    0,16    44,10   0,006
Предмет 4    168 9 514,20    1,81    70,56   0,091
Предмет 5    314 15 654,80   1,25    39,19   0,032
Предмет 6    215 92 100,10   0,89    26,13   0,039
Предмет 7    841 654,20  2,44    59,66   0,065
Предмет 8    369 7 520,50    2,96    73,20   0,062
Предмет 9    852 6 352,40    4,12    43,76   0,096
Предмет 10   147 19 558,77   2,91    43,50   0,047
Предмет 11   365 74 580,50   3,35    43,51   0,089
Предмет 12   145 72 806,00   1,07    29,70   0,030
Предмет 13   254 71 031,50   4,66    49,89   0,017
Предмет 14   741 69 257,00   4,45    50,58   0,056
Предмет 15   257 67 482,50   4,71    16,96   0,083
Предмет 16   259 65 708,00   3,48    45,02   0,004
Предмет 17   851 63 933,50   0,04    38,38   0,049
Предмет 18   853 62 159,00   4,38    74,09   0,088
Предмет 19   459 60 384,50   2,17    28,81   0,085
Предмет 20   453 58 610,00   3,12    58,75   0,048
Предмет 21   358 56 835,50   4,44    12,32   0,016
Предмет 22   657 55 061,00   3,79    41,12   0,028
Предмет 23   651 53 286,50   3,70    70,39   0,019
Предмет 24   954 51 512,00   2,53    53,08   0,009
Предмет 25   952 49 737,50   2,63    30,58   0,074
Предмет 26   158 47 963,00   2,53    66,98   0,062
Предмет 27   156 46 188,50   2,20    61,31   0,073
Предмет 28   354 44 414,00   2,17    37,43   0,094
Предмет 29   358 42 639,50   3,13    49,68   0,084
Предмет 30   756 40 865,00   1,75    32,47   0,007
Предмет 31   752 39 090,50   4,14    5,62    0,012
Предмет 32   215 37 316,00   3,68    43,45   0,024
Предмет 33   841 35 541,50   3,76    65,58   0,083
Предмет 34   369 33 767,00   4,83    69,27   0,048
Предмет 35   852 31 992,50   2,01    74,44   0,012
Предмет 36   147 30 218,00   0,31    44,27   0,002
Предмет 37   523 28 443,50   3,42    49,27   0,035
Предмет 38   258 26 669,00   4,38    42,80   0,068
Предмет 39   962 24 894,50   1,86    23,67   0,043
Предмет 40   159 23 120,00   0,93    16,65   0,096
Предмет 41   357 21 345,50   0,53    20,71   0,077
Предмет 42   456 19 571,00   4,47    49,89   0,025
Предмет 43   358 17 796,50   1,65    47,66   0,062
Предмет 44   951 16 022,00   4,34    15,48   0,034
Предмет 45   744 14 247,50   3,63    22,19   0,023
Предмет 46   888 12 473,00   1,27    40,04   0,051
Предмет 47   999 10 698,50   4,61    30,26   0,092
Предмет 48   358 8 924,00    1,72    64,12   0,029
Предмет 49   962 7 149,50    2,42    38,55   0,043
Предмет 50   147 5 375,00    2,49    40,29   0,085
Предмет 51   365 3 600,50    1,63    43,75   0,051
Предмет 52   145 1 826,00    0,16    51,47   0,055
Предмет 53   856 51,50   1,87    37,48   0,049
Предмет 54   965 35 951,50   0,73    4,26    0,063
Предмет 55   854 1 000,00    4,90    67,24   0,029
Предмет 56   745 1 126,70    0,51    32,10   0,076
Предмет 57   856 1 253,40    0,53    8,13    0,042
Предмет 58   963 1 380,10    4,30    69,86   0,053
Предмет 59   256 1 506,80    4,28    48,39   0,001
Предмет 60   365 1 633,50    4,34    70,14   0,055
Предмет 61   145 1 760,20    0,88    14,95   0,060
Предмет 62   254 1 886,90    4,77    37,91   0,031
Предмет 63   741 2 013,60    4,66    51,60   0,026
Предмет 64   257 2 140,30    1,14    64,53   0,076
Предмет 65   259 2 267,00    2,86    29,04   0,011
Предмет 66   851 2 393,70    2,27    38,90   0,086
Предмет 67   853 2 520,40    2,53    69,21   0,071
Предмет 68   459 2 647,10    1,33    30,93   0,085
Предмет 69   453 2 773,80    4,15    48,63   0,054
Предмет 70   358 2 900,50    2,42    19,99   0,005
Предмет 71   657 3 027,20    4,96    35,30   0,047
Предмет 72   651 3 153,90    4,90    41,10   0,088
Предмет 73   954 3 280,60    3,34    70,97   0,038
Предмет 74   952 3 407,30    1,86    28,10   0,010
Предмет 75   158 3 534,00    4,83    17,92   0,092
Предмет 76   156 3 660,70    2,87    0,93    0,006
Предмет 77   354 3 787,40    4,21    12,82   0,019
Предмет 78   358 3 914,10    1,73    31,76   0,000
Предмет 79   756 4 040,80    0,64    67,26   0,027
Предмет 80   752 4 167,50    3,91    59,63   0,037
Предмет 81   300 4 294,20    4,52    14,09   0,042
Предмет 82   250 4 420,90    2,36    3,22    0,066
Предмет 83   156 4 547,60    2,80    16,53   0,051
Предмет 84   168 4 674,30    3,89    16,76   0,077
Предмет 85   314 4 801,00    4,12    3,95    0,086
Предмет 86   215 4 927,70    1,20    17,85   0,039
Предмет 87   841 5 054,40    2,97    19,41   0,046
Предмет 88   369 5 181,10    1,79    33,89   0,095
Предмет 89   852 5 307,80    0,40    21,25   0,097
Предмет 90   147 5 434,50    3,61    20,02   0,046
Предмет 91   523 5 561,20    3,86    46,99   0,080
Предмет 92   258 5 687,90    2,42    45,23   0,079
Предмет 93   962 5 814,60    3,64    76,91   0,045
Предмет 94   159 5 941,30    2,06    11,00   0,017
Предмет 95   357 6 068,00    1,79    28,03   0,004
Предмет 96   456 6 194,70    0,65    5,56    0,077
Предмет 97   358 6 321,40    1,64    0,98    0,082
Предмет 98   951 6 448,10    4,96    6,55    0,084
Предмет 99   744 6 574,80    2,75    72,80   0,077

@Genn55 · 25.10.2015, 11:42

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

Как смотрится русская речь? Все ли понятно? Надеюсь, ясно излагаю мысли. Опять подсказываю, задача лёгкая.

Это приказ?

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

задача лёгкая.

Ну и карты в руки.

@Willi2001 · 25.10.2015, 13:42 **[ТС]**

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

Почему все молчат? Может что-то непотребное спрашиваю?

Вряд ли кто будет оспаривать мысль: любой программист, несведущий в вопросах бизнеса, будь хоть трижды талантливым — так в бедности и помрёт? Дело вкуса. Не у всех богатые родители.

У меня просьба. Подскажите, пожалуйста, как сделать следующее?
Вывести в TextBox, с двумя прокрутками, Visual Basic 6.0 данные из "Новые условия для фуры" Excel, в таком виде:

Visual Basic
1
2
3
4
1)  Предмет 1   m=300; c=25 800,20;  v=0,27;    p=33,73;   q=0,036  ‘ячейки: A4;B4;C4;D4;E4;F4
2)  Предмет 2   m=250; c=625,30;  v=4,86;    p=66,47;   q=0,043
3)  …
99) Предмет 2   m=744; c= 6 574,80;  v=2.75;    p=72.80;   q= 0,077

Потом надо попросить VB6 сделать вычисления по формуле для каждого Предмета:
f =m*c/v*p/100*(1-q)
Затем просим VB6 сделать сортировку по убыванию для f.
Далее, уже последняя просьба к VB6, надо ориентируясь на f (качественный доминирующий показатель) подобрать массу груза с допустимой погрешностью по столбцу "Вес".

@Willi2001 · 26.10.2015, 00:47 **[ТС]**

Пока сделал беглое, хотя и сомнительное — решение. Вложение внизу.

Пришлось изменить формулу для "Доминанты" (качественный доминирующий показатель):
f =c/(v*m)*p/100*(1-q). Например, для ячейки: =C4/(B4*D4)*E4/100*(1-F4)
Тогда прибыль по каждому Предмету:
s =c*p/100*(1-q). Например, для ячейки: =C4*E4/100*(1-F4)

Не смог, даже близко, уложиться в допустимую погрешность! Результаты: вес —13722 кг и объём — 84,15 куб.м. Прибыль составила: 637143,17 рублей.
Показатели

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
28
29
30
31
32
33
34
35
36
37
38
39
Сомнительное решение по новым условиям для загрузки фуры со склада                         
                            
Наименование    Вес в кг  Цена в руб  Объём в куб.м Доходность в %   Доля брака Доминанта  Прибыль в руб
Предмет 17   851 63 933,50   0,04    38,38   0,049   692,60  23347,54
Предмет 36   147 30 218,00   0,31    44,27   0,002   293,34  13349,42
Предмет 12   145 72 806,00   1,07    29,70   0,030   134,93  20982,58
Предмет 6    215 92 100,10   0,89    26,13   0,039   120,97  23138,53
Предмет 1    300 25 800,20   0,27    33,73   0,036   105,04  8388,51
Предмет 3    156 4 568,60    0,16    44,10   0,006   82,63   2001,75
Предмет 27   156 46 188,50   2,20    61,31   0,073   76,50   26247,92
Предмет 26   158 47 963,00   2,53    66,98   0,062   75,35   30149,29
Предмет 52   145 1 826,00    0,16    51,47   0,055   39,14   888,53
Предмет 16   259 65 708,00   3,48    45,02   0,004   32,71   29458,82
Предмет 13   254 71 031,50   4,66    49,89   0,017   29,42   34841,85
Предмет 11   365 74 580,50   3,35    43,51   0,089   24,17   29574,43
Предмет 40   159 23 120,00   0,93    16,65   0,096   23,49   3478,59
Предмет 20   453 58 610,00   3,12    58,75   0,048   23,18   32762,07
Предмет 41   357 21 345,50   0,53    20,71   0,077   21,47   4081,52
Предмет 4    168 9 514,20    1,81    70,56   0,091   20,02   6099,38
Предмет 32   215 37 316,00   3,68    43,45   0,024   19,99   15833,70
Предмет 28   354 44 414,00   2,17    37,43   0,094   19,56   15061,84
Предмет 10   147 19 558,77   2,91    43,50   0,047   18,93   8110,13
Предмет 29   358 42 639,50   3,13    49,68   0,084   17,29   19398,75
Предмет 19   459 60 384,50   2,17    28,81   0,085   15,96   15916,33
Предмет 23   651 53 286,50   3,70    70,39   0,019   15,26   36789,44
Предмет 5    314 15 654,80   1,25    39,19   0,032   15,10   5936,46
Предмет 35   852 31 992,50   2,01    74,44   0,012   13,76   23526,13
Предмет 43   358 17 796,50   1,65    47,66   0,062   13,49   7954,55
Предмет 34   369 33 767,00   4,83    69,27   0,048   12,49   22269,56
Предмет 18   853 62 159,00   4,38    74,09   0,088   11,25   42001,19
Предмет 24   954 51 512,00   2,53    53,08   0,009   11,22   27091,70
Предмет 14   741 69 257,00   4,45    50,58   0,056   10,04   33070,03
Предмет 30   756 40 865,00   1,75    32,47   0,007   9,94    13182,05
Предмет 38   258 26 669,00   4,38    42,80   0,068   9,42    10632,05
Предмет 48   358 8 924,00    1,72    64,12   0,029   9,05    5557,55
Предмет 22   657 55 061,00   3,79    41,12   0,028   8,84    21999,40
Предмет 15   257 67 482,50   4,71    16,96   0,083   8,68    10498,69
Предмет 37   523 28 443,50   3,42    49,27   0,035   7,55    13522,93
Итого           13722                 84,15                637143,17

Полное фиаско! Зачем ломать себе голову? Если кто-то проявит интерес к теме, то внесу улучшения.
В одиночку тяжко тащить бегемота из болота! Всё-таки необходимо использовать алгоритмы Михаила Ч., которые тоже надо доработать.

@Pro_grammer · 26.10.2015, 08:07

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

В одиночку тяжко тащить бегемота из болота!

Кому охота решать несуществующие проблемы?

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

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

Самый главный вопрос, КОМУ будет выгодно?
При учете всех этих факторов одновременно, а именно:

Весь товар единичный, т. е. партию однородных предметов брать нельзя. Вес, Цена, Объём, Доходность, Доля брака, Доминанта, Прибыль

Я не нахожу единого заинтересованного лица. А при нескольких собственниках неизбежно возникает конфликт интересов - у каждого своя выгода.

@Willi2001 · 26.10.2015, 11:40 **[ТС]**

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

Кому охота решать несуществующие проблемы?

Pro_grammer, спасибо за отклик.
Сделаем так, три месяца (квартал) не будем возвращаться к этой теме. Если не найдутся предприниматели, желающие финансировать нашу работу, то будем считать — проект "мертворожденным". Значит, пустая тема.

Здравый смысл подсказывает у семи нянек дитя без глазу. Верю только в единоначалие, где есть "Хозяин", он же владелец магазина.
Если Вас обескураживает "единичность товара", то, пожалуйста, попробуйте рассчитать "оптимальные партии по товарам" с учетом оборачиваемости. Это по-взрослому.

Предполагаем, склада у магазина нет — каждый день фура привозит заказанный товар.
Например, при 9-часовом рабочем дне магазина:
Предмет_1 0,26 * 9 = 2,34 единицы
Оптимальность: 2 единицы
"Замороженность денег": 3 единицы, т.к. третью не успеют продать за день. Вот таким образом лежат без движения миллионы рублей.
Добавил графу "Оборотов за час", смотрите вложение. Эту графу надо присоединить к прочим по "Новым условиям", изложенным выше.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Дополнение к загрузке фуры по среднечасовой оборачиваемости единицы товара в магазине            
            
Наименование    Вес в кг  Стоимость в руб    Оборотов за час
Предмет 1    300 25800,20    0,26
Предмет 2    250 625,30  0,49
Предмет 3    156 4568,60 0,83
Предмет 4    168 9514,20 0,99
Предмет 5    314 15654,80    0,52
Предмет 6    215 92100,10    0,32
Предмет 7    841 654,20  0,96
Предмет 8    369 7520,50 0,32
Предмет 9    852 6352,40 0,40
Предмет 10   147 19558,77    0,21
Предмет 11   365 74580,50    0,38
Предмет 12   145 72806,00    0,86
Предмет 13   254 71031,50    0,65
Предмет 14   741 69257,00    0,63
Предмет 15   257 67482,50    0,77
Предмет 16   259 65708,00    0,28
Предмет 17   851 63933,50    0,39
Предмет 18   853 62159,00    0,59
Предмет 19   459 60384,50    0,82
Предмет 20   453 58610,00    0,68
Предмет 21   358 56835,50    0,98
Предмет 22   657 55061,00    0,58
Предмет 23   651 53286,50    0,94
Предмет 24   954 51512,00    0,91
Предмет 25   952 49737,50    0,08
Предмет 26   158 47963,00    0,97
Предмет 27   156 46188,50    0,67
Предмет 28   354 44414,00    0,43
Предмет 29   358 42639,50    0,36
Предмет 30   756 40865,00    0,87
Предмет 31   752 39090,50    0,46
Предмет 32   215 37316,00    0,39
Предмет 33   841 35541,50    0,34
Предмет 34   369 33767,00    0,49
Предмет 35   852 31992,50    0,71
Предмет 36   147 30218,00    0,81
Предмет 37   523 28443,50    0,31
Предмет 38   258 26669,00    0,55
Предмет 39   962 24894,50    0,29
Предмет 40   159 23120,00    0,27
Предмет 41   357 21345,50    0,90
Предмет 42   456 19571,00    0,27
Предмет 43   358 17796,50    0,61
Предмет 44   951 16022,00    0,51
Предмет 45   744 14247,50    0,16
Предмет 46   888 12473,00    0,68
Предмет 47   999 10698,50    0,72
Предмет 48   358 8924,00 0,29
Предмет 49   962 7149,50 0,75
Предмет 50   147 5375,00 0,75
Предмет 51   365 3600,50 0,44
Предмет 52   145 1826,00 0,76
Предмет 53   856 51,50   0,39
Предмет 54   965 35951,50    0,38
Предмет 55   854 1000,00 0,35
Предмет 56   745 1126,70 0,03
Предмет 57   856 1253,40 0,88
Предмет 58   963 1380,10 0,99
Предмет 59   256 1506,80 0,11
Предмет 60   365 1633,50 0,26
Предмет 61   145 1760,20 0,60
Предмет 62   254 1886,90 0,69
Предмет 63   741 2013,60 0,18
Предмет 64   257 2140,30 0,71
Предмет 65   259 2267,00 0,14
Предмет 66   851 2393,70 0,10
Предмет 67   853 2520,40 0,89
Предмет 68   459 2647,10 0,41
Предмет 69   453 2773,80 0,34
Предмет 70   358 2900,50 0,56
Предмет 71   657 3027,20 0,12
Предмет 72   651 3153,90 0,13
Предмет 73   954 3280,60 0,86
Предмет 74   952 3407,30 0,23
Предмет 75   158 3534,00 0,18
Предмет 76   156 3660,70 0,87
Предмет 77   354 3787,40 0,22
Предмет 78   358 3914,10 0,20
Предмет 79   756 4040,80 0,71
Предмет 80   752 4167,50 0,18
Предмет 81   300 4294,20 0,13
Предмет 82   250 4420,90 0,27
Предмет 83   156 4547,60 0,55
Предмет 84   168 4674,30 0,53
Предмет 85   314 4801,00 0,46
Предмет 86   215 4927,70 0,93
Предмет 87   841 5054,40 0,17
Предмет 88   369 5181,10 0,04
Предмет 89   852 5307,80 0,74
Предмет 90   147 5434,50 0,94
Предмет 91   523 5561,20 0,22
Предмет 92   258 5687,90 0,57
Предмет 93   962 5814,60 0,14
Предмет 94   159 5941,30 1,00
Предмет 95   357 6068,00 0,21
Предмет 96   456 6194,70 0,18
Предмет 97   358 6321,40 0,72
Предмет 98   951 6448,10 0,24
Предмет 99   744 6574,80 0,98

@Alex77755 · 26.10.2015, 11:57

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

это нарушением запретов правил форума:

Запрещено .... рекламировать свои услуги или просить/требовать оплату за помощь, кроме разделов для платных услуг.

@Pro_grammer · 26.10.2015, 14:22

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

Предполагаем, склада у магазина нет — каждый день фура привозит заказанный товар.

- Ни один магазин не торгует фурами товара, тем более ежедневно
- Фуры есть только у крупной сети магазинов.
- Товар уже разложен в стандартные контейнеры для каждого магазина, места для контейнеров определены заранее.
- Одна фура везёт сразу в несколько магазинов, оптимизация загрузки контейнеров по закону стека.
- Магазин заказывает товар в соответствии с потребностями и обязательным ассортиментом, а не по
оптимальности товара.

Идея, которая подходила для рюкзака, ну ни как напрямую не перекладывается в идею для загрузки фуры.

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

Значит, пустая тема.

@Willi2001 · 26.10.2015, 21:07 **[ТС]**

Pro_grammer!
В русскоязычном Интернете нет решений подобных задач. Только околонаучная болтовня.

Хорошему специалисту потребуется 2-3 дня, чтобы написать программу VBA для "моих новых условий по загрузке фуры (грузовика) ". Бизнесу безразлично как называется абстрактное средство перевозки: "газель" или "студебеккер".
Далее этот толковый программист пусть публично покажет результаты на Киберфоруме — по решению "новых условий", сам код может держать в секрете. Мы либо посмеёмся, либо признаем: программа стоит не дешевле, чем 3000 рублей. Уже будет конкретный предмет разговора, как товар.

Мои попытки поиска — ниже, результаты плачевные.
Google: Многофакторная оптимизация — Результатов: ничего толкового, одна болтовня.
Google: Многокритериальная оптимизация — Результатов: ничего толкового, одна трескотня.
Google: Многомерная оптимизация в торговле — Результатов: ничего толкового
Google: Многомерная оптимизация matlab https://www.cyberforum.ru/orde... 11203.html
Google: Многомерная оптимизация mathcad Решите задачу многомерной оптимизации

Добавлено через 4 минуты

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

это нарушением запретов

Alex77755! Просто делим шкуру ещё неубитого медведя. Вы сами ничего путного не предлагаете, поэтому Вам и отказывают в доле.

@Pro_grammer · 26.10.2015, 23:05

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

В русскоязычном Интернете нет решений подобных задач.

Изучайте

@Willi2001 · 27.10.2015, 00:55 **[ТС]**

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

Изучайте

Pro_grammer!
Что изучать? Там одна словесная теория для говорунов, в просторечье — лабуда. Нет ничего полезного.
Картинка внизу, для любопытных.
Willi2001 всегда легко входит в доверие к людям, поскольку выражается ясно. Всем нравится такая манера.

@Willi2001 · 27.10.2015, 14:46 **[ТС]**

Pro_grammer!
Ниже результаты правильного решения для "новых условий по загрузке фуры (грузовика)", без учёта оборачиваемости. Пусть дети учатся.
Вряд ли у кого получится лучшая оптимизация.
Через полгода открою тайну алгоритма, как секрета мастерства.
Результаты

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
28
29
30
31
32
33
34
35
36
37
Правильное решение для новых условий загрузки фуры, без учёта оборачиваемости                        
                        
Наименование    Вес в кг  Цена в руб  Объём в куб.м Доходность в %    Доля брака    Прибыль
Предмет 18   853 62159,00    4,38    74,09   0,088   42001,19
Предмет 23   651 53286,50    3,70    70,39   0,019   36789,44
Предмет 13   254 71031,50    4,66    49,89   0,017   34841,85
Предмет 14   741 69257,00    4,45    50,58   0,056   33070,03
Предмет 20   453 58610,00    3,12    58,75   0,048   32762,07
Предмет 26   158 47963,00    2,53    66,98   0,062   30149,29
Предмет 11   365 74580,50    3,35    43,51   0,089   29574,43
Предмет 16   259 65708,00    3,48    45,02   0,004   29458,82
Предмет 24   954 51512,00    2,53    53,08   0,009   27091,70
Предмет 27   156 46188,50    2,20    61,31   0,073   26247,92
Предмет 35   852 31992,50    2,01    74,44   0,012   23526,13
Предмет 17   851 63933,50    0,04    38,38   0,049   23347,54
Предмет 6    215 92100,10    0,89    26,13   0,039   23138,53
Предмет 34   369 33767,00    4,83    69,27   0,048   22269,56
Предмет 22   657 55061,00    3,79    41,12   0,028   21999,40
Предмет 33   841 35541,50    3,76    65,58   0,083   21363,84
Предмет 12   145 72806,00    1,07    29,70   0,030   20982,58
Предмет 29   358 42639,50    3,13    49,68   0,084   19398,75
Предмет 19   459 60384,50    2,17    28,81   0,085   15916,33
Предмет 32   215 37316,00    3,68    43,45   0,024   15833,70
Предмет 28   354 44414,00    2,17    37,43   0,094   15061,84
Предмет 25   952 49737,50    2,63    30,58   0,074   14085,99
Предмет 37   523 28443,50    3,42    49,27   0,035   13522,93
Предмет 36   147 30218,00    0,31    44,27   0,002   13349,42
Предмет 30   756 40865,00    1,75    32,47   0,007   13182,05
Предмет 38   258 26669,00    4,38    42,80   0,068   10632,05
Предмет 1    300 25800,20    0,27    33,73   0,036   8388,51
Предмет 10   147 19558,77    2,91    43,50   0,047   8110,13
Предмет 43   358 17796,50    1,65    47,66   0,062   7954,55
Предмет 4    168 9514,20             1,81    70,56   0,091   6099,38
Предмет 5    314 15654,80    1,25    39,19   0,032   5936,46
Предмет 39   962 24894,50    1,86    23,67   0,043   5636,12
Предмет 48   358 8924,00            1,72  64,12  0,029   5557,55
             15403      1468327,57             85,92        657280,05

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .