Элементы программирования на VBA для Microsoft Excel использованные в решении данной задачи
Краткая история языка VBA
Несмотря на новизну языка Visual Basic for Applications, история его проявления почти так же стара, как и вся компьютерная промышленность. Про язык VBA можно сказать, что он является диалектом языка BASIC, который появился в начале 60-х.
Хотя по сегодняшним понятиям язык BASIC был довольно ограниченным и, как теперь говорят, варварским, он был прост для изучения и очень скоро получил широкое распространение. Версии BASIC выпускался для всех типов компьютеров. Язык GWBASIC производство компании Microsoft был одним из первых языков программирования для современных персональных компьютеров. Он поставлялся со всеми операционными системами MS DOS до 5-й версии. Ранние персональные компьютеры производства компании IBM даже имели версию BASIC, встроенную в ПЗУ.
С годами первоначальная версия BASIC была существенно доработана. Менялась технология программирования, и вместе с ней под влиянием разработчиков программного обеспечения менялся сам BASIC. Современный его диалект включает многие черты и свойства, характерные для более поздних и совершенных языков, таких как Pascal, C и C++.
В конце 80-х Microsoft выпускает существенно улучшенную версию BASIC, названную QuickBASIC во все версии MS DOS, начиная с 6-й (но не Windows 95).
После нескольких версий QuickBasic в 1992 году Microsoft выпускает Visual Basic for Windows.
Язык VBA в основном совпадает с Visual Basic for Windows, но имеет и существенное отличие. В частности, макросы VBA хранятся в файле документа того приложения, в котором вы создаете этот макрос.
Внедрив один язык макросов во все свои приложения, Microsoft гарантирует, что большая часть того, что вы выучите о VBA применительно к одному приложению, будет справедлива и для остальных.
3.3.2 Зачем изучать язык VBA.
На первый взгляд может показаться, что если вы можете записать макрос средствами программы Excel и потом воспроизвести его, то вам совсем не нужно учить язык VBA. Однако это не так. Записанный макрос не универсален, поскольку он может только повторить однажды выполненную последовательность команд, и только в том же самом порядке, в котором вы ее записали. С помощью VBA можно создать макрос, который будет проверять некоторые заданные вами условия и в зависимости от них менять последовательность или состав выполняемых команд.
Например, вы пытаетесь выполнить в программе Excel макрос, который должен открыть лист с названием Продажи. Если такого листа в текущей книге нет, макрос будет остановлен и Excel выдаст сообщение об ошибке. Но если вы отредактируете свой макрос с помощью VBA, он может сначала проверить наличие нужного листа, а в случае его отсутствия может даже его создать.
Если вам нужно циклически повторить несколько раз некоторую последовательность команд, записанный макрос - плохой помощник. Ведь при выполнении он повторит эту последовательность ровно столько раз, сколько раз вы повторили ее при записи - по крайней мере, до тех пор, пока вы не отредактируете его или не перезапишите.
Другое дело VBA - макрос, который может проверить заданное вами условие или просто перед выполнением запросить информацию о количестве повторений и о том, нужно ли вообще выполнять то или иное действие.
Представьте себе, что вы записали макрос, который меняет ширину столбцов в листе Excel. Если вам требуется, чтобы он менял ширину всех трех столбцов вручную. Записанный макрос всегда будет менять ширину столбцов со второго по четвертый. Отредактировав записанный макрос с помощью VBA, вы добьетесь того, чтобы он спрашивал вас, сколько столбцов нужно обработать и какие именно. Вы даже сможете задать новую ширину.
Это только самый простой пример того, что вы можете делать с макросом с помощью VBA. На самом деле существует очень много обстоятельств, требующих проверки условия для принятия решения или выполнения циклических операций. И единственный способ сделать это - включить в записанный макрос операторы VBA.
Помимо редактирования записанных макросов, вы можете применять VBA для согласованного управления несколькими простыми макросами, каждый из которых выполняет некоторую часть большого задания.
Например, вы можете регулярно импортировать данные из базы данных в лист Excel, формировать, эти данные, строить на их основании диаграмму, а затем посылать и диаграмму, и отформатированный отчет на печать.
Для того чтобы собрать все эти, вполне независимые задания, в одно, и оформить их в виде макроса, вам понадобится записать по макросу для каждого задания - макроса для импорта данных, макрос для форматирования, макрос для построения диаграммы и для вывода на печать. Потом вы сможете запускать эти макросы на выполнение с помощью VBA в нужной последовательности.
Кроме того, с помощью VBA вы можете управлять выполнением других программ, воспользовавшись таким средством, как автоматизация, и сможете организовать обмен данными с помощью OLE.
3.3.3. Описание подпрограмм и функций, использованных в документе.
Описывая полностью язык VBA можно затратить немало времени – этому посвящены объемные тома насчитывающие не одну сотню страниц. Поэтому поступим следующим образом: ограничимся описанием подпрограмм и функций которые были написаны для реализации поставленной задачи (идеи, алгоритма программ, описания операторов использованных в процессе написания этих подпрограмм и функций. Использование стандартных средств Excel (функций включенных в стандартный набор) оказалось недостаточно для решения задачи. Было необходимо сделать, например, так чтобы был автоматизирован поиск параметров по справочным таблицам, подстановка наименований электроприемников из каталога. Это возможно было организовать с помощью программирования, определения функций которые реализовывали бы подобные задачи.
Загружая файл Метод упорядоченных диаграмм.xls, и затем загружая редактор VBA, мы увидим следующую структуру проекта VBA: два модуля в которых содержатся основные процедуры и функции. Перечислим их и укажем их назначение:
Modul1
1) ПоискNэzv поиск промежуточного значения nэ* по значениям Р1* и n1
2) ПОИСКPном1 поиск промежуточного значения Рном1 используя диапазон C7:C16 (номинальные мощности электроприемников группы А)
3) КОЭФМАКС функция поиска значения коэффициента максимума по значениям средневзвешенного коэффициента использования (ячейка Е17) и приведенного числа электроприемников (K7)
Это три функции определенные пользователем которые используются в документе.
Modul2
1) ПОИСКN1 – функция поиска промежуточного значения n1
2) Подст – процедура служащая для подстановки наименований электроприемников из каталога в расчетную таблицу
Также открывая значки объектов Лист1, Лист2, Лист3 мы увидим одинаковые процедуры вызываемые нажатием кнопки «Просчитать».
Опишем эти функции.
1) Функция ПоискNэzv поиск промежуточного значения nэ* по значениям Р1* и n1*
Идея состоит в том чтобы реализовать поиск nэ* по справочной таблице приведенной в Приложении 2.
Это можно реализовать следующим образом. Разбить таблицу на равные интервалы по Р1* и по n1*. Т. е. например (см. Приложение 2) будем считать что на интервалах 0.975<Р1* =<1 и 0<n1*.<0.0075 nэ* = 0.005, затем при 0.925<Р1* =<0.975 и 0<n1*.<0.0075 nэ* = 0.005 b и т.д. Это в принципе удовлетворяет условиям округления.
Приведем текст программы с комментариями
Public Function ПоискNэzv(Pzv As Double, n1zv As Double) ‘заголовок
Dim znach As Double ‘описание переменной
If Pzv <= 1 And Pzv > 0.975 Then ‘проверка условия
Select Case n1zv ‘работка вариантов выбора
Case 0 To 0.0075
znach = 0.005
Case 0.0075 To 0.0175
znach = 0.009
Case 0.0175 To 0.0275
znach = 0.02
Case 0.0275 To 0.0375
znach = 0.03
Case 0.0375 To 0.0475
znach = 0.04
Case 0.0475 To 0.055
znach = 0.05
Case 0.055 To 0.065
znach = 0.06
Case 0.07 To 0.09
znach = 0.08
Case 0.09 To 0.125
znach = 0.09
Case 0.125 To 0.175
znach = 0.14
Case 0.175 To 0.225
znach = 0.19
Case 0.225 To 0.275
znach = 0.24
Case 0.275 To 0.325
znach = 0.29
Case 0.325 To 0.375
znach = 0.33
Case 0.375 To 0.425
znach = 0.38
Case 0.425 To 0.475
znach = 0.43
Case 0.475 To 0.525
znach = 0.48
Case 0.525 To 0.575
znach = 0.52
Case 0.575 To 0.625
znach = 0.57
Case 0.625 To 0.675
znach = 0.62
Case 0.675 To 0.725
znach = 0.66
Case 0.725 To 0.775
znach = 0.71
Case 0.775 To 0.825
znach = 0.76
Case 0.825 To 0.875
znach = 0.8
Case 0.875 To 0.99
znach = 0.85
Case Is > 0.99
znach = 0.95
End Select
End If
If Pzv <= 0.975 And Pzv > 0.925 Then
Select Case n1zv
Case 0 To 0.0075
znach = 0.005
Case 0.0075 To 0.0175
znach = 0.011
Case 0.0175 To 0.0275
znach = 0.02
Case 0.0275 To 0.0375
znach = 0.03
Case 0.0375 To 0.0475
znach = 0.04
Case 0.0475 To 0.055
znach = 0.05
Case 0.055 To 0.065
znach = 0.06
Case 0.07 To 0.09
znach = 0.08
Case 0.09 To 0.125
znach = 0.1
Case 0.125 To 0.175
znach = 0.16
Case 0.175 To 0.225
znach = 0.21
Case 0.225 To 0.275
znach = 0.26
Case 0.275 To 0.325
znach = 0.32
Case 0.325 To 0.375
znach = 0.37
Case 0.375 To 0.425
znach = 0.42
Case 0.425 To 0.475
znach = 0.47
Case 0.475 To 0.525
znach = 0.53
Case 0.525 To 0.575
znach = 0.57
Case 0.575 To 0.625
znach = 0.63
Case 0.625 To 0.675
znach = 0.68
Case 0.675 To 0.725
znach = 0.73
Case 0.725 To 0.775
znach = 0.78
Case 0.775 To 0.825
znach = 0.83
Case 0.825 To 0.875
znach = 0.88
Case 0.875 To 0.99
znach = 0.92
Case Is > 0.99
znach = 1
End Select
End If
………………………
программа далее состоит из нескольких блоков которые похожи друг на друга поэтому опустим несколько таких блоков
………………………
If Pzv <= 0.1 And Pzv > 0.175 Then
Select Case n1zv
Case 0 To 0.0075
znach = 0.34
Case 0.0075 To 0.0175
znach = 0.52
Case 0.0175 To 0.0275
znach = 0.71
Case 0.0275 To 0.0375
znach = 0.81
Case 0.0375 To 0.0475
znach = 0.86
Case 0.0475 To 0.055
znach = 0.9
Case 0.055 To 0.065
znach = 0.92
Case 0.07 To 0.09
znach = 0.94
Case 0.09 To 0.125
znach = 0.95
Case 0.125 To 0.175
znach = 1
Case 0.175 To 0.225
znach = 1
Case 0.225 To 0.275
znach = 1
Case 0.275 To 0.325
znach = 1
Case 0.325 To 0.375
znach = 1
Case 0.375 To 0.425
znach = 1
Case 0.425 To 0.475
znach = 1
Case 0.475 To 0.525
znach = 1
Case 0.525 To 0.575
znach = 1
Case 0.575 To 0.625
znach = 1
Case 0.625 To 0.675
znach = 1
Case 0.675 To 0.725
znach = 1
Case 0.725 To 0.775
znach = 1
Case 0.775 To 0.825
znach = 1
Case 0.825 To 0.875
znach = 1
Case 0.875 To 0.99
znach = 1
Case Is > 0.99
znach = 1
End Select
End If
ПоискNэzv = znach ‘присвоение функции значения перемнной
End Function ‘конец функции
В программе использовались следующие операторы:
Условный оператор
If условие Then оператор
Например, If N>=0 and N<=9 Then Print “Ok”
Описание переменных
Dim имя переменной As тип переменной
Оператор Select Case
Позволяет обрабатывать несколько вариантов выбора.
Select Case переменная или выражение
Case оператор проверки условия
действие 1
.
.
.
Case . . . . . .
действие n-1
End Select
Использовался тип переменных :
DoublePrecision “#”. Числа с точностью до 16 цифр и длиной до 300 символов. Вычисления приблизительны, а скорость небольшая. Используется для научных расчетов.
2) КОЭФМАКС функция поиска значения коэффициента максимума по значениям средневзвешенного коэффициента использования (ячейка Е17) и приведенного числа электроприемников (K7)
Реализуется по тому же принципу что и предыдущая, идея та же самая, отличие лишь в том что справочная таблица другая.
Текст программы:
Public Function КОЭФМАКС(КОЭФИСП As Double, Nэ As Double)
Dim km As Double
If КОЭФИСП >= 0.1 And КОЭФИСП < 0.125 Then
Select Case Nэ
Case 4
km = 3
Case 5
km = 3.23
Case 6
km = 3.04
Case 7
km = 2.88
Case 8
km = 2.72
Case 9
km = 2.56
Case 10 To 11
km = 2.42
Case 11 To 14
km = 2.24
Case 14 To 18
km = 1.99
Case 18 To 23
km = 1.84
Case 23 To 28
km = 1.71
Case 28 To 35
km = 1.62
Case 35 To 45
km = 1.5
Case 45 To 55
km = 1.4
Case 55 To 80
km = 1.32
Case 80 To 120
km = 1.21
Case 120 To 180
km = 1.17
Case 180 To 200
km = 1.15
Case Is > 200
km = 1
End Select
End If
………………………..
………………………..
If КОЭФИСП >= 0.75 And КОЭФИСП < 0.85 Then
Select Case Nэ
Case 4
km = 1.14
Case 5
km = 1.12
Case 6
km = 1.1
Case 7
km = 1.09
Case 8
km = 1.08
Case 9
km = 1.08
Case 10 To 11
km = 1.07
Case 11 To 14
km = 1.07
Case 14 To 18
km = 1.07
Case 18 To 23
km = 1.06
Case 23 To 28
km = 1.06
Case 28 To 35
km = 1.05
Case 35 To 45
km = 1.05
Case 45 To 55
km = 1.04
Case 55 To 80
km = 1.03
Case 80 To 120
km = 1.02
Case 120 To 180
km = 1.02
Case 180 To 200
km = 1.01
Case Is > 200
km = 1
End Select
End If
If КОЭФИСП >= 0.85 And КОЭФИСП <= 0.9 Then
km = 1
End If
КОЭФМАКС = km
End Function
Используются те же операторы и типы переменных.
3) ПОИСКPном1 поиск промежуточного значения Рном1 используя диапазон C7:C16 (номинальные мощности электроприемников группы А)
Идея здесь состоит в реализации алгоритма нахождения Pном1 описанного в разделе 2
Мощности находятся в диапазоне C7:C16, нужно сначала найти максимальное значение, а затем сумму значений больше либо равных половине максимального
Текст программы
Public Function ПОИСКPном1(Диапазон As Range) ‘заголовок
Dim Cell As Object ‘описание переменных
Dim m As Double, N As Double
m = 0
N = 0
For Each Cell In Диапазон
If Cell.Value > m Then m = Cell.Value
Next Cell
For Each Cell In Диапазон
If Cell.Value >= m / 2 Then N = N + Cell.Value
Next Cell
ПОИСКPном1 = N
End Function
Операторы использованные в программе.
Для создания циклов объектного типа используется структура For Each (для каждого элемента…), которая применяется к массивам и наборам объектов. В VB такие циклы встречаются очень часто.
For Each элемент In набор
..........................................
Exit For
..........................................
Next элемент
Пременная Cell задается как объект.
4) ПОИСКN1 – функция поиска промежуточного значения n1
Эта функция реализует поиск значения n1 (см. раздел 2). Поиск этого значения вытекает из реализации предыдущей функции. Разница в том что необходимо найти сумму не мощностей больше или равных половине максимальной а сумму числа однотипных электроприемников мощности которых больше или равны половине максимальной среди номинальных мощностей. Это можно осуществить используя метод Offset.
Текст программы
Public Function ПОИСКN1(Диапазон1 As Range)
Dim Cell1 As Object, w As Double, q As Double
w = 0
q = 0
For Each Cell1 In Диапазон1
If Cell1.Value > w Then w = Cell1.Value
Next Cell1
For Each Cell1 In Диапазон1
If Cell1.Value >= w / 2 Then q = q + Cell1.Offset(0, -1).Value
Next Cell1
ПОИСКN1 = q
End Function
Используемые операторы
Метод Offset работает аналогично Cells, с тем отличием, что возвращаемый объект всегда задается относительно верхнего левого угла текущего объекта. Числа здесь на 1 меньше, чем в методе Cells. Метод Offset чаще всего используется для создания объекта относительно текущей активной ячейки в рабочей таблице.
4) Подст – процедура служащая для подстановки наименований электроприемников из каталога в расчетную таблицу
Наименования электроприемников заносятся в расчетную таблицу из списка находящегося на этом же листе, но подстановка параметров соответствующих наименованиям осуществляет данная процедура.
Текст процедуры.
Public Sub подст() ‘заголовок
Dim Cell1 As Object, Cell2 As Object ‘описание переменных
Dim Cell3 As Object, Cell4 As Object
For Each Cell1 In Range("A7:A16")
For Each Cell2 In Range("A30:A89")
If Cell1.Value = Cell2.Value Then ‘проверка равенства наименований в расчетной таблице и в списке
 |
Cell1.Offset(0, 2).Value = Cell2.Offset(0, 1).Value
Cell1.Offset(0, 4).Value = Cell2.Offset(0, 2).Value
Cell1.Offset(0, 5).Value = Cell2.Offset(0, 3).Value
End If
Next Cell2
Next Cell1
 |
For Each Cell3 In Range("A19:A23")
For Each Cell4 In Range("A30:A89")
If Cell3.Value = Cell4.Value Then
Cell3.Offset(0, 2).Value = Cell4.Offset(0, 1).Value
Cell3.Offset(0, 4).Value = Cell4.Offset(0, 2).Value
Cell3.Offset(0, 5).Value = Cell4.Offset(0, 3).Value
End If
Next Cell4
Next Cell3
End Sub
ЗАКЛЮЧЕНИЕ
В процессе работы над проектом были рассмотрены вопросы применения электронных таблиц Excel в инженерных расчетах. ЭТ помогают значительно упростить эти расчеты или же полностью их автоматизировать. Это позволяет значительно упростить работу студента или инженера, освободить его от решения рутинных, многократно повторяющихся задач, а это в свою очередь освобождает его время для решения более важных вопросов.
ПРИЛОЖЕНИЯ
Приложение 1
Список электроприемников
| Наименование приемника | Номинальная мощность | Коэффицимент использования | Коэффициент мощности |
| Автоматы для сварки | 0,65 | 0,35 | 0,5 |
| Вентилятор | 0,65 | 0,8 | |
| Вентилятор | 4,5 | 0,65 | 0,8 |
| Вертикально-фрезерный станок | 4,5 | 0,17 | 0,65 |
| Вертикально-фрезерный станок | 0,17 | 0,65 | |
| Горизотально-фрезерный станок | 0,17 | 0,65 | |
| Горизотально-фрезерный станок | 0,17 | 0,65 | |
| Дробометная очистная камера | 0,17 | 0,65 | |
| Дуговая печь | 0,7 | 0,75 | |
| Дымосос | 0,65 | 0,8 | |
| Закалочный станок | 0,7 | 0,95 | |
| Камерная печь Н-60 | 0,7 | 0,95 | |
| Камерная печь Н-75 | 0,7 | 0,95 | |
| Копировально-фрезерный станок | 0,17 | 0,65 | |
| Кран-балка | 5,3 | 0,1 | 0,5 |
| Машина для кислородной резки | 0,6 | 0,12 | 0,14 |
| Машина точечной сварки | 0,35 | 0,6 | |
| Механическая ножовка | 2,8 | 0,12 | 0,14 |
| Молот пневматический ковочный | 0,2 | 0,65 | |
| Молот пневматический ковочный | 0,2 | 0,65 | |
| Мостовой кран 30 т. | 0,1 | 0,5 | |
| Мостовой кран 5 т. | 0,1 | 0,5 | |
| Ножницы гибочные | 0,18 | 0,5 | |
| Ножницы гильотинные | 0,18 | 0,5 | |
| Ножницы листовые | 0,18 | 0,5 | |
| Отрезной станок | 12,9 | 0,18 | 0,5 |
| Отрезной станок с дисковой пилой | 10,5 | 0,17 | 0,65 |
| Печь лудильная | 2,8 | 0,7 | 0,95 |
| Покрасочно-сушильная установка | 0,7 | 0,95 | |
| Поперечно-строгальный станок | 4,5 | 0,18 | 0,5 |
| Пресс гидравлический | 2,6 | 0,17 | 0,65 |
| Пресс винтовой фрикционный | 0,17 | 0,65 | |
| Пресс гидравлический | 4,5 | 0,17 | 0,65 |
| Пресс двухкривошипный | 0,17 | 0,65 | |
| Пресс однокривошипный | 0,17 | 0,65 | |
| Пресс фрикционный | 0,17 | 0,65 | |
| Пресс эксцентриковый | 0,17 | 0,65 | |
| Пресс-ножницы | 2,2 | 0,17 | 0,65 |
| Продолно-строгальный станок | 0,18 | 0,5 | |
| Радиально-сверелильный станок | 4,5 | 0,12 | 0,14 |
| Сварочно-дуговой автомат | 0,35 | 0,5 | |
| Сварочный трансформатор | 0,3 | 0,35 | |
| Сварочный трансформатор | 10,5 | 0,3 | 0,35 |
| Сварочный трансформатор | 24,5 | 0,3 | 0,35 |
| Таль электрическая | 3,2 | 0,06 | 0,5 |
| Тоакарно-сверлильный станок | 0,18 | 0,5 | |
| Токарно-винторезный станок | 11,5 | 0,18 | 0,5 |
| Токарно-револьверный станок | 15,7 | 0,17 | 0,65 |
| Трубоотрезной станок | 2,8 | 0,18 | 0,5 |
| Универсально-шлифовочный станок | 5,6 | 0,18 | 0,5 |
| Шахтная отпускная печь | 0,7 | 0,95 | |
| Шкаф электрический сушильный | 1,1 | 0,7 | 0,95 |
| Штанговый полуавтомат | 0,2 | 0,35 | 0,5 |
| Электровибрационные механизмы | 0,12 | 0,14 | |
| Электронагреватель | 0,6 | ||
| Электропечь сопротивления камерная | 0,7 | 0,95 | |
| Электропечь сопротивления протяжная | 0,7 | 0,95 | |
| Электропечь сопротивления шахтная | 0,7 | 0,95 | |
| Электропечь цементации | 0,7 | 0,95 | |
| Электропечь-ванна | 0,7 | 0,95 |
Приложение 2.
| P*=åPнорм1/åРнорм. | |||||||||||||||||||
| n1*=n1/n | 1,0 | 0,95 | 0,9 | 0,85 | 0,8 | 0,75 | 0,7 | 0,65 | 0,6 | 0,55 | 0,5 | 0,45 | 0,4 | 0,35 | 0,3 | 0,25 | 0,2 | 0,15 | 0,1 |
| 0,005 | 0,005 | 0,005 | 0,006 | 0,007 | 0,007 | 0,009 | 0,010 | 0,011 | 0,013 | 0,016 | 0,019 | 0,024 | 0,030 | 0,039 | 0,051 | 0,073 | 0,11 | 0,18 | 0,34 |
| 0,01 | 0,009 | 0,011 | 0,012 | 0,015 | 0,017 | 0,017 | 0,019 | 0,023 | 0,026 | 0,031 | 0,037 | 0,047 | 0,59 | 0,760 | 0,1 | 0,14 | 0,2 | 0,32 | 0,52 |
| 0,02 | 0,02 | 0,02 | 0,02 | 0,03 | 0,03 | 0,03 | 0,04 | 0,04 | 0,05 | 0,06 | 0,07 | 0,09 | 0,011 | 0,14 | 0,019 | 0,026 | 0,36 | 0,51 | 0,71 |
| 0,03 | 0,03 | 0,03 | 0,04 | 0,04 | 0,04 | 0,05 | 0,06 | 0,07 | 0,08 | 0,09 | 0,11 | 0,13 | 0,16 | 0,21 | 0,27 | 0,36 | 0,48 | 0,64 | 0,81 |
| 0,04 | 0,04 | 0,04 | 0,05 | 0,05 | 0,07 | 0,08 | 0,09 | 0,09 | 0,10 | 0,12 | 0,15 | 0,18 | 0,22 | 0,27 | 0,34 | 0,44 | 0,57 | 0,72 | 0,86 |
| 0,05 | 0,05 | 0,05 | 0,06 | 0,07 | 0,07 | 0,08 | 0,10 | 0,11 | 0,13 | 0,15 | 0,18 | 0,22 | 0,26 | 0,33 | 0,41 | 0,51 | 0,64 | 0,79 | 0,9 |
| 0,06 | 0,06 | 0,06 | 0,07 | 0,08 | 0,09 | 0,10 | 0,12 | 0,13 | 0,15 | 0,18 | 0,21 | 0,26 | 0,31 | 0,38 | 0,47 | 0,58 | 0,70 | 0,83 | 0,92 |
| 0,08 | 0,08 | 0,08 | 0,08 | 0,11 | 0,12 | 0,13 | 0,15 | 0,17 | 0,20 | 0,24 | 0,28 | 0,33 | 0,40 | 0,48 | 0,57 | 0,68 | 0,79 | 0,89 | 0,94 |
| 0,10 | 0,09 | 0,10 | 0,11 | 0,13 | 0,15 | 0,17 | 0,19 | 0,22 | 0,25 | 0,29 | 0,34 | 0,40 | 0,47 | 0,56 | 0,66 | 0,76 | 0,85 | 0,92 | 0,95 |
| 0,15 | 0,14 | 0,16 | 0,13 | 0,20 | 0,23 | 0,25 | 0,28 | 0,32 | 0,37 | 0,42 | 0,48 | 0,56 | 0,67 | 0,72 | 0,80 | 0,88 | 0,93 | 0,95 | |
| 0,20 | 0,19 | 0,21 | 0,23 | 0,26 | 0,29 | 0,33 | 0,37 | 0,42 | 0,47 | 0,54 | 0,64 | 0,69 | 0,76 | 0,83 | 0,89 | 0,93 | 0,95 | ||
| 0,25 | 0,24 | 0,26 | 0,29 | 0,32 | 0,41 | 0,45 | 0,51 | 0,57 | 0,64 | 0,71 | 0,78 | 0,85 | 0,85 | 0,90 | 0,93 | 0,95 | |||
| 0,30 | 0,29 | 0,32 | 0,35 | 0,39 | 0,43 | 0,48 | 0,53 | 0,60 | 0,66 | 0,73 | 0,80 | 0,86 | 0,90 | 0,94 | 0,95 | ||||
| 0,35 | 0,33 | 0,37 | 0,41 | 0,45 | 0,50 | 0,56 | 0,62 | 0,68 | 0,74 | 0,81 | 0,86 | 0,91 | 0,94 | 0,95 | |||||
| 0,40 | 0,38 | 0,42 | 0,47 | 0,52 | 0,57 | 0,63 | 0,69 | 0,75 | 0,81 | 0,86 | 0,91 | 0,93 | 0,95 | ||||||
| 0,45 | 0,43 | 0,47 | 0,52 | 0,58 | 0,64 | 0,70 | 0,76 | 0,81 | 0,87 | 0,91 | 0,93 | 0,95 | |||||||
| 0,50 | 0,48 | 0,53 | 0,58 | 0,64 | 0,70 | 0,76 | 0,82 | 0,89 | 0,91 | 0,94 | 0,95 | ||||||||
| 0,55 | 0,52 | 0,57 | 0,63 | 0,69 | 0,75 | 0,82 | 0,87 | 0,91 | 0,94 | 0,95 | |||||||||
| 0,60 | 0,57 | 0,63 | 0,69 | 0,75 | 0,81 | 0,87 | 0,91 | 0,94 | 0,95 | ||||||||||
| 0,65 | 0,62 | 0,68 | 0,75 | 0,81 | 0,86 | 0,91 | 0,94 | 0,95 | |||||||||||
| 0,70 | 0,66 | 0,73 | 0,80 | 0,86 | 0,90 | 0,94 | 0,95 | ||||||||||||
| 0,75 | 0,71 | 0,78 | 0,85 | 0,90 | 0,93 | 0,95 | |||||||||||||
| 0,80 | 0,76 | 0,83 | 0,89 | 0,94 | 0,95 | ||||||||||||||
| 0,85 | 0,80 | 0,88 | 0,94 | 0,95 | |||||||||||||||
| 0,90 | 0,85 | 0,92 | 0,95 | ||||||||||||||||
| 1,0 | 0,95 |
Приложение 3
| Эффективное число электроприемников Ne | Коэффициент максимума Кмакс при Ки | |||||||||
| 0,1 | 0,15 | 0,2 | 0,3 | 0,4 | 0,5 | 0,6 | 0,7 | 0,8 | 0,9 | |
| 3,43 | 3,11 | 2,64 | 2,14 | 1,87 | 1,65 | 1,46 | 1,29 | 1,14 | 1,0 | |
| 3,23 | 2,87 | 2,42 | 2,0 | 1,76 | 1,57 | 1,41 | 1,26 | 1,12 | 1,0 | |
| 3,04 | 2,64 | 2,24 | 1,88 | 1,66 | 1,51 | 1,37 | 1,23 | 1,1 | 1,0 | |
| 2,88 | 2,48 | 2,1 | 1,8 | 1,58 | 1,45 | 1,33 | 1,21 | 1,09 | 1,0 | |
| 2,72 | 2,31 | 1,99 | 1,72 | 1,52 | 1,4 | 1,3 | 1,2 | 1,08 | 1,0 | |
| 2,56 | 2,2 | 1,9 | 1,65 | 1,47 | 1,37 | 1,28 | 1,18 | 1,08 | 1,0 | |
| 2,42 | 2,1 | 1,84 | 1,6 | 1,43 | 1,34 | 1,26 | 1,16 | 1,07 | 1,0 | |
| 2,24 | 1,96 | 1,75 | 1,52 | 1,36 | 1,28 | 1,23 | 1,15 | 1,07 | 1,0 | |
| 1,99 | 1,77 | 1,61 | 1,41 | 1,28 | 1,23 | 1,18 | 1,12 | 1,07 | 1,0 | |
| 1,84 | 1,65 | 1,5 | 1,34 | 1,24 | 1,2 | 1,15 | 1,11 | 1,06 | 1,0 | |
| 1,71 | 1,55 | 1,4 | 1,28 | 1,21 | 1,17 | 1,14 | 1,1 | 1,06 | 1,0 | |
| 1,62 | 1,46 | 1,34 | 1,24 | 1,19 | 1,16 | 1,13 | 1,1 | 1,05 | 1,0 | |
| 1,5 | 1,37 | 1,27 | 1,19 | 1,15 | 1,13 | 1,12 | 1,09 | 1,05 | 1,0 | |
| 1,4 | 1,3 | 1,23 | 1,16 | 1,14 | 1,11 | 1,1 | 1,08 | 1,04 | 1,0 | |
| 1,32 | 1,25 | 1,19 | 1,14 | 1,12 | 1,11 | 1,09 | 1,07 | 1,03 | 1,0 | |
| 1,21 | 1,17 | 1,12 | 1,1 | 1,08 | 1,08 | 1,07 | 1,05 | 1,02 | 1,0 | |
| 1,17 | 1,15 | 1,11 | 1,08 | 1,06 | 1,06 | 1,06 | 1,05 | 1,02 | 1,0 | |
| 1,15 | 1,12 | 1,09 | 1,07 | 1,05 | 1,05 | 1,05 | 1,04 | 1,01 | 1,0 | |
| 1,14 | 1,11 | 1,08 | 1,07 | 1,05 | 1,05 | 1,05 | 1,03 | 1,01 | 1,0 | |
| 1,12 | 1,1 | 1,07 | 1,06 | 1,04 | 1,04 | 1,04 | 1,03 | 1,01 | 1,0 |
| Таблица1. Метод упорядоченных иаграмм | ||||||||||||||
| Наименование характерной группы электроприемников | Кол-во электроприемников | Установлен-ная мощность электропр. приведенная к ПВ=100% | Коэф-фициент использо-вания | cos | tg | m | Средняя нагрузка за наиболее загруженную смену | Приведенное число электроприемников | Коэффициент максимума | Максимальная расчетная мощность | ||||
| Рном одного, кВт | Рном общ. кВт | Ки | Рсм., кВт | Qсм., квар | РP., кВт | QP., квар | SP., кВА | |||||||
| Наименование отделения | ||||||||||||||
| Приемники группы А | ||||||||||||||
| Тоакарно-сверлильный станок | 0,18 | 0,5 | 1,73 | 11,52 | 19,95 | 1,37 | 15,78 | 19,95 | 25,44 | |||||
| Электровибрационные механизмы | 0,12 | 0,14 | 7,07 | 40,32 | 285,16 | 1,37 | 55,24 | 285,16 | 290,46 | |||||
| Токарно-винторезный станок | 11,5 | 0,18 | 0,5 | 1,73 | 45,54 | 78,88 | 1,37 | 62,39 | 78,88 | 100,57 | ||||
| Трубоотрезной станок | 2,8 | 22,4 | 0,18 | 0,5 | 1,73 | 4,03 | 6,98 | 1,37 | 5,52 | 6,98 | 8,90 | |||
| Штанговый полуавтомат | 0,2 | 0,8 | 0,35 | 0,5 | 1,73 | 0,28 | 0,48 | 1,37 | 0,38 | 0,48 | 0,62 | |||
| Автоматы для сварки | 0,65 | 7,8 | 0,35 | 0,5 | 1,73 | 2,73 | 4,73 | 1,37 | 3,74 | 4,73 | 6,03 | |||
| Электровибрационные механизмы | 0,12 | 0,14 | 7,07 | 23,04 | 162,95 | 1,37 | 31,56 | 162,95 | 165,98 | |||||
| Тоакарно-сверлильный станок | 0,18 | 0,5 | 1,73 | 11,52 | 19,95 | 1,37 | 15,78 | 19,95 | 25,44 | |||||
| Пресс-ножницы | 2,2 | 35,2 | 0,17 | 0,65 | 1,17 | 5,98 | 7,00 | 1,37 | 8,20 | 7,00 | 10,78 | |||
| Пресс гидравлический | 4,5 | 0,17 | 0,65 | 1,17 | 4,59 | 5,37 | 1,37 | 6,29 | 5,37 | 8,27 | ||||
| Итого по группе А | 0,15 | 149,56 | 591,46 | 1,37 | 204,89 | 591,46 | 625,94 | |||||||
| Приемники группы Б | ||||||||||||||
| Дымосос | 0,65 | 0,8 | 0,75 | 14,30 | 10,73 | 14,30 | 10,73 | 17,88 | ||||||
| Вентилятор 7 кВт | 0,65 | 0,8 | 0,75 | 14,30 | 10,73 | 14,30 | 10,73 | 17,88 | ||||||
| Покрасочно-сушильная установка | 0,7 | 0,95 | 0,33 | 23,80 | 7,82 | 23,80 | 7,82 | 25,05 | ||||||
| Камерная печь Н-60 | 0,7 | 0,95 | 0,33 | 52,50 | 17,26 | 52,50 | 17,26 | 55,26 | ||||||
| Камерная печь Н-75 | 0,7 | 0,95 | 0,33 | 63,00 | 20,71 | 63,00 | 20,71 | 66,32 | ||||||
| Итого по группе Б | 0,690947 | 167,90 | 67,24 | 167,90 | 67,24 | 180,86 | ||||||||
| Итого по отделению | 0,25 | 317,46 | 658,69 | 372,79 | 658,69 | 756,87 |
Приложение 4