Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Заблокирован
1

Рациональная замена оборудования (парк автомашин)

17.01.2016, 20:18. Показов 931. Ответов 7
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Добрый вечер!
Пожалуйста, помогите изменить код в задаче с Piton на Visual Basic 6.0.
У меня нет IDE Piton, зато есть VB6. Очень удобно.

Сама задача отсюда, смотрите страницы 68-69: Визгунов Н.П.
Динамическое программирование в экономических задачах

Задача 7. К началу текущей пятилетки на предприятии установлено но вое оборудование. Производительность этого оборудования и затраты на содержание и ремонт зависят от времени. В таблице 34 показаны эти зависимости. Затраты на приобретение и установку нового оборудования составляют 40 тысяч рублей, старое оборудование списывается. Составить план замены оборудования на пять лет, максимизирующий общую прибыль.

Python
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

// программа ZamenaPe.sce
// ========================
// Замена оборудования - полный перебор. 10.6.2. Полный перебор,стр 68-69
// Визгунов Н.П. 25 марта 2011 года
clc, clear, mode(0), lines(0)
// s: 1 2 3 4 5
r1 = [80 75 65 60 60]; // Доход от авто возраста s - 1 лет
c1 = [20 25 30 35 45]; // Затраты на него
Cn = 40; // Цена нового авто
y1 = 0; // В начале 1971 года авто - новый
n = 5; // Кол-во месЯцев в плановом периоде
if y1 + length(c1) > n
    error('не хватает данных')
end
// Rnew = r1(1) - c1(1) - Cn;// Прибыль от нового автомобилЯ
 
f_opt = -%inf;
x_opt = zeros(1, n + 1);
 
x_max = ones(1, n);
x_min = zeros(1, n);
 
x = zeros(1, n);
j = n;
while %t
    if x(j) <= x_max(j)
    
        for j = 1 : n
            if x(j) == 1
                y(j) = 0;
            elseif x(j) == 0 & j >= 2
                y(j) = y(j - 1) + 1;
            elseif x(1) == 0
                y(1) = y1;
            end
        end // j
       
        f = Cn;
        for j = 1 : n
            if x(j) == 0 & y(j) >= 1
                f = f + r1(y(j) + 1) - c1(y(j) + 1);
            elseif x(j) == 1
                f = f + r1(1) - c1(1) - Cn;
            end
        end
       
        if f_opt < f
           f_opt = f;
           write(6, f_opt, '( ""<<<<<< f_opt = "", i6 )' )
           x_opt = x
        elseif f_opt == f
            write(6, f_opt, '( ""====== f_opt = "", i6 )' )
            x_opt = [x_opt; x]
       
        end // elseif
       
        j = n;
    else     // x(j) > x_max(j)
        x(j) = x_min(j);
        j = j - 1;
    if j <= 0.00001
            break
        end // if
    end // if
    x(j) = x(j) + 1;
end // while %t
 
disp('ответ')
x_opt, f_opt
Миниатюры
Рациональная замена оборудования (парк автомашин)  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.01.2016, 20:18
Ответы с готовыми решениями:

Напечатать список автомашин с указанием nz, f, pr, у которых среднегодовой пробег больше средней для всех автомашин величины
Даны массивы NZ1,..NZ15 - номерные знаки . F1,...,F15- фамилии водителей , pr1,..., pr15-...

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

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

Автобусный парк
Информация о каждом автобусе в автобусном парке: номер автобуса фамилия и инициалы водителя...

7
Заблокирован
20.01.2016, 18:49  [ТС] 2
Всем, добрый вечер!

Пожалуйста, помогите — кто чем может.

На стр. 47, смотрите:

9. Замена оборудования.
Задача 7. К началу текущей пятилетки на предприятии установлено новое оборудование. Производительность этого оборудования и затраты на содержание и ремонт зависят от времени. В таблице 34 показаны эти зависимости. Затраты на приобретение и установку нового оборудования составляют 40 тысяч рублей, старое оборудование списывается. Составить план замены оборудования на пять лет, максимизирующий общую прибыль.

Схематическая таблица 34
Период времени — yt ______0______1______2______3______4

Выручка за год — R(yt)______80_____75_____65_____60_____60

Затраты на экспл. — C(yt)_____20____25_____30_____35______40

Прибыль годовая — P(yt)_____60_____50_____35_____25_____20
*—строки прибыль в книге нет, сам добавил для простоты восприятия.

Моё решение:
Пытаемся вручную подсчитать среднегодовую прибыль:
Первый год: (80 – 20)/1 = 60/1 = 60
Второй год: ((80 – 20) + (75 – 25))/2 = 110/2 = 55
Третий год: ((80 – 20) + (75 – 25) + (65 – 30))/3 = 145/3 = 48,33
Четвёртый год: ((80 – 20) + (75 – 25) + (65 – 30) + (60 – 35))/4 = 170/4 = 42,5
Пятый год: ((80 – 20) + (75 – 25) + (65 – 30) + (60 – 35) + (60 – 40))/5 = 190/5 = 38

Делаем замену оборудования один раз в пять лет:
После первого года: ((80 – 20) – 40 +(80 – 20) + (75 – 25) + (65 – 30) + (60 – 35))/5 = 190/5 = 38 — толку нет
После второго года: ((80 – 20) + (75 – 25) – 40 +(80 – 20) + (75 – 25) + (65 – 30))/2 = 215/5 = 43 — толк есть
После третьего года: ((80 – 20) + (75 – 25) + (65 – 30) – 40 +(80 – 20) + (75 – 25))/5 = 215/5 = 43 — толк есть
После четвёртого года: ((80 – 20) + (75 – 25) + (65 – 30) + (60 – 35) – 40 +(80 – 20))/4 = 190/5 = 38 — толку нет
После пятого года: ((80 – 20) + (75 – 25) + (65 – 30) + (60 – 35) + (60 – 40))/5 = 190/5 = 38 — будет тот же цикл

Пробуем делать замену оборудования два раза в пять лет:
После первого и третьего года: ((80 – 20) – 40 +(80 – 20) + (75 – 25) – 40 +(80 – 20) + (75 – 25))/5 = 200/5 = 40 — хорошо
После второго и четвёртого года: ((80 – 20) + (75 – 25) – 40 +(80 – 20) + (75 – 25) – 40 +(80 – 20))/2 = 200/5 = 40 — тоже хорошо

Пробуем делать замену оборудования три раза в пять лет:
После первого, второго и третьего года: ((80 – 20) – 40 +(80 – 20) – 40 + (80 – 20) – 40 + (80 – 20) + (75 – 25))/5 = 170/5 = 34 — совсем плохо
После второго, третьего и четвёртого года: ((80 – 20) + (75 – 25) – 40 + (80 – 20) – 40 + (80 – 20) – 40 + (80 – 20))/2 = 170/5 = 34 — совсем плохо

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

Прошу помочь с кодом оптимизации Visual Basic 6.0 для всех переборов, приведённых выше.

Специально скачал Scilab 5.5.0, чтобы проверить расчёты автора книги Визгунова. Почти совпадают с моими вручную — привожу ниже.
HTML5
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

->e x e c ( ’ ZamenaPe . s c e ’ , 0 )
<<<<<< f _ o p t = 165
x _ o p t =
0 . 0 . 0 . 0 . 0 .
<<<<<< f _ o p t = 170
x _ o p t =
0 . 0 . 0 . 0 . 1 .
<<<<<< f _ o p t = 195
x _ o p t =
0 . 0 . 0 . 1 . 0 .
====== f _ o p t = 195
x _ o p t =
0 . 0 . 0 . 1 . 0 .
0 . 0 . 1 . 0 . 0 .
<<<<<< f _ o p t = 215
x _ o p t =
1 . 0 . 0 . 1 . 0 .
====== f _ o p t = 215
x _ o p t =
1 . 0 . 0 . 1 . 0 .
1 . 0 . 1 . 0 . 0 .
ответ
x _ o p t =
1 . 0 . 0 . 1 . 0 .
1 . 0 . 1 . 0 . 0 .
f _ o p t =
2 1 5 .
->d i a r y ( 0 )
Не понравилась описка Визгунова, будто бы он пишет программу на языке Python.
Там Python и близко не было.
Миниатюры
Рациональная замена оборудования (парк автомашин)  
0
Заблокирован
20.01.2016, 20:48  [ТС] 3
Пояснение.
Удивился, почему всё-таки разнятся результаты? Не полностью совпадают. Сейчас проверил, картинка ниже.
Оказывается в книге на стр. 47, где затраты: у него стоит — 40, а в самой программе — уже 45.
Миниатюры
Рациональная замена оборудования (парк автомашин)  
0
6804 / 2831 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.01.2016, 22:17 4
Цитата Сообщение от Kravtsov_18 Посмотреть сообщение
помочь с кодом оптимизации Visual Basic 6.0
В принципе наверно можно код перевести на VB6, но мне совершенно не понятен синтаксис MatLab в этой части:
Matlab M
1
2

write(6, f_opt, '( ""====== f_opt = "", i6 )' )
            x_opt = [x_opt; x]
Откуда берется для печати 0 . 0 . 0 . 0 . 0 ., что значит i6
Что тут присваивается массиву x_opt =[x_opt; x] в правой части?
0
Заблокирован
20.01.2016, 23:59  [ТС] 5
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Откуда берется для печати 0 . 0 . 0 . 0 . 0 ., что значит i6
Что тут присваивается массиву x_opt =[x_opt; x] в правой части?
Pro_grammer, не знаю, как пояснить. Только вчера скачал SciLab.
Миниатюры
Рациональная замена оборудования (парк автомашин)  
0
Заблокирован
21.01.2016, 00:36  [ТС] 6
Цитата Сообщение от Pro_grammer Посмотреть сообщение
В принципе наверно можно код перевести на VB6
Pro_grammer, пожалуйста, напишите свой код перебора, который знаете. Важно, чтобы он работал — мог найти минимальный и максимальный варианты.
0
oh my god
1454 / 793 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
21.01.2016, 06:54 7
Цитата Сообщение от Kravtsov_18 Посмотреть сообщение
На стр. 47, смотрите:
А где эта страница, покажите её

Добавлено через 5 минут
И задание какоето непонятное, может вы разделом ошиблись, здесь обычно VB6-кодеры
общаются (чатяться)

Излагайте свою проблему подробнее, и может ктонибудь ответит, я бы ответил но я еще сомневаюсь
для какого раздела был послан ваш вопрос
0
Заблокирован
21.01.2016, 08:26  [ТС] 8
Цитата Сообщение от fever brain Посмотреть сообщение
А где эта страница, покажите её
Пожалуйста, посмотрите пост #1 темы, в самом низу.

Pro_grammer, решил проверить качество подсчётов Scilab (читается Сайлэб). Потом вручную перепроверю. Условия на 10 лет.

Задача 1 — модернизированная. К началу 2005 года на предприятии установлено новое оборудование. Производительность этого оборудования и затраты на содержание и ремонт зависят от времени. В таблице 1 показаны эти зависимости. Затраты на приобретение и установку нового оборудования составляют 55 тысяч рублей, старое оборудование списывается. Составить план замены оборудования на десять лет, для максимальной общей прибыли.
Схематическая таблица 1
Период времени:
— yt ______0______1______2______3______4______5______6______7______8______9
Выручка за год:
— R(yt)____145____140____135____130____125____120____115____110____105____100
Затраты на экспл.:
— C(yt)_____60_____65_____70_____75_____80_____85_____90_____95_____100____105
Прибыль годовая:
— P(yt)_____85_____75_____65_____55______45_____35_____25_____15______5_____-5
*—строки прибыль в книге нет, сам добавил для простоты восприятия.

Ввожу программу
Matlab M
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

// Замена оборудования - полный перебор.
// Визгунов Н.П. 25 марта 2011 года - модернизирована 21 января 2016 года
 
clc, clear, mode(0), lines(0)
 
// s: 1 2 3 4 5 6 7 8 9 10
r1 = [145 140 135 130 125 120 115 110 105 100]; // Доход от авто возраста s - 1 лет
c1 = [60 65 70 75 80 85 90 95 100 105]; // Затраты на него
Cn = 55;               // Цена нового авто
y1 = 0;                       // В начале 1971 года авто - новый
 
n = 10;                        // Кол-во месЯцев в плановом периоде
if y1 + length(c1) > n
    error('не хватает данных')
end
// Rnew = r1(1) - c1(1) - Cn;// Прибыль от нового автомобилЯ
 
f_opt = -%inf;
x_opt = zeros(1, n + 1);
 
x_max = ones(1, n);
x_min = zeros(1, n);
 
 
x = zeros(1, n);
j = n;
while %t
    if x(j) <= x_max(j)
 
 
          for j = 1 : n
               if x(j) == 1
                     y(j) = 0;
                 elseif x(j) == 0 & j >= 2
                     y(j) = y(j - 1) + 1;
                 elseif x(1) == 0
                       y(1) = y1;
                 end
           end    // j
 
           f = Cn;
           for j = 1 : n
               if x(j) == 0 & y(j) >= 1
                     f = f + r1(y(j) + 1) - c1(y(j) + 1);
                 elseif x(j) == 1
                       f = f + r1(1) - c1(1) - Cn;
                 end
           end
 
           if    f_opt < f
                 f_opt = f;
                 write(11, f_opt, '( ""<<<<<< f_opt = "", i11 )' )
                 x_opt = x
           elseif f_opt == f
               write(11, f_opt, '( ""====== f_opt = "", i11 )' )
                 x_opt = [x_opt; x]
 
           end    // elseif
 
        j = n;
    else     // x(j) > x_max(j)
           x(j) = x_min(j);
           j = j - 1;
 
          if j <= 0.00001
                break
          end    // if
      end // if
      x(j) = x(j) + 1;
end    // while %t
 
disp('ответ')
x_opt, f_opt
Получаю ответ тут же, мигом. Ва-аще многа-а ненаших букафф…
Matlab M
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
216
217
218
219
220
221
222
223
224
225

x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    0.  
 
         column  7 to 10
 
    0.    0.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    0.  
 
         column  7 to 10
 
    0.    0.    0.    1.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    0.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    0.  
 
         column  7 to 10
 
    1.    0.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    1.  
 
         column  7 to 10
 
    0.    0.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    1.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    0.    1.  
    0.    0.    0.    0.    0.    1.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    1.    0.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    1.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    1.    0.  
    0.    0.    0.    1.    0.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    0.    0.    0.    0.    1.    0.  
    0.    0.    0.    1.    0.    0.  
    0.    0.    0.    1.    0.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
    0.    1.    0.    0.  
    1.    0.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    0.    1.  
 
         column  7 to 10
 
    0.    0.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    0.    1.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    0.    1.  
    1.    0.    0.    0.    0.    1.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    1.    0.  
 
         column  7 to 10
 
    0.    0.    1.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    1.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    1.    0.  
    1.    0.    0.    1.    0.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
    0.    1.    0.    0.  
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    1.    0.  
    1.    0.    0.    1.    0.    0.  
    1.    0.    0.    1.    0.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
    0.    1.    0.    0.  
    1.    0.    0.    0.  
 
 ответ   
 x_opt  =
 
 
         column 1 to 6
 
    1.    0.    0.    0.    1.    0.  
    1.    0.    0.    1.    0.    0.  
    1.    0.    0.    1.    0.    0.  
 
         column  7 to 10
 
    0.    1.    0.    0.  
    0.    1.    0.    0.  
    1.    0.    0.    0.  
 f_opt  =
 
    620.
Миниатюры
Рациональная замена оборудования (парк автомашин)  
0
21.01.2016, 08:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 21.01.2016, 08:26
Помогаю со студенческими работами здесь

Разработать структуру БД Парк
Есть задание (по jbbc и dao), для выполнения которого нужно релизовать бд. Задание: &quot;Система...

Создать приложение «Парк аттракционов»
Пожалуйста помогите) Создать приложение «Парк аттракционов». Приложение должно открываться по...

Нужна помощь по проведению wifi в парк
Как сделать wifi на улице, например в парке, сквере и т.д с зоной покрытия примерно 150х500 метров,...

в Киеве открылся парк ледовых скульптур
В среду, 23 декабря, в сквере возле Национального дворца &quot;Украина&quot; состоялась презентация...

Создать класс автомашин
Задание Создать класс автомашин. Свойства класса- цвет машины, марка, номер Методы- машина...

Число грузовых автомашин
Число грузовых автомашин , проезжающих по шоссе, на котором стоит бензоколонка, относится к числу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru