- •В.П.Обоскалов
- •Предисловие
- •Excel. Теоретические аспекты
- •Основные понятия
- •Основные термины
- •Работа с объектами
- •Функциональные клавиши
- •Указатель мыши
- •Формулы. Имена ячеек. Функции
- •Диаграммы
- •Функции списка
- •Формы данных
- •Фильтры
- •Автофильтр
- •Расширенный фильтр
- •Промежуточные итоги
- •Сводные таблицы
- •Консолидация данных
- •Нелинейные уравнения. Оптимизационные задачи
- •Поиск решения
- •Подбор параметра
- •Проектирование вычислений с помощью таблицы подстановки
- •Внешняя среда
- •Экспорт и импорт данных
- •Связь с базами данных
- •Вызов программы ms Query
- •Мастер запросов
- •Макросы
- •Запись макроса
- •Относительные ссылки
- •Выполнение макроса
- •Подключение макроса к объектам Назначение сочетания клавиш для запуска записанного ранее макроса
- •Назначение макроса кнопке или графическому объекту
- •Текст макроса
- •Excel. Лабораторный практикум
- •Начальное знакомство
- •Выделение блоков
- •Прозрачность ячеек. Перемещение данных. Копирование
- •Относительная и абсолютная адресация
- •Заполнение таблицы. Формулы. Относительная адресация. Суммирование
- •Абсолютная адресация. Имена ячеек
- •Форматирование таблицы
- •Вставка и удаление строк и столбцов
- •Форматирование ячеек
- •Форматирование столбцов и строк
- •Сетка. Показ формул
- •Автозаполнение. Списки
- •Автозаполнение
- •Диаграммы
- •Диаграмма. Общий случай
- •Гистограмма и круговая диаграмма
- •Графики функций
- •Работа с массивами данных
- •Подбор параметра. Поиск решения
- •Подбор параметра
- •Поиск Решения
- •Транспортная задача
- •Функции списка
- •Сортировка
- •Формы данных
- •Вычисление итогов
- •Консолидация данных
- •Сводная таблица
- •Внешняя среда
- •Экспорт и импорт данных. Связь документов
- •Процедуры пользователя
- •Диалоговые окна
- •UserForm
- •Решение инженерных задач наExcel
- •Проектирование эт
- •Основные функции
- •Суммирование
- •Примеры
- •Функции даты
- •Формульные расчеты
- •Тип оборудования
- •Самостоятельная работа
- •Самостоятельная работа
- •Коэффициенты, характеризующие график нагрузки
- •Проектирование таблицы.
- •Проектирование таблицы
- •Самостоятельная работа
- •Температурный режим трансформатора
- •Математический метод
- •Самостоятельная работа
- •Ремонтная ведомость Самостоятельная работа
- •Работа с матрицами
- •Расчет сети постоянного тока
- •Самостоятельная работа
- •Расчет токов трехфазного короткого замыкания
- •Метод z-матрицы
- •Эквивалентирование сети
- •Расчет токов кз по модели сети постоянного тока
- •Оптимизационные задачи
- •Решение систем нелинейных уравнений
- •Самостоятельная работа
- •Оптимальное распределение мощности нагрузки между параллельно работающими агрегатами
- •Линейное программирование
- •Самостоятельная работа
- •Двойственная задача линейного программирования
- •Самостоятельная работа
- •Работа с комплексными числами
- •Самостоятельная работа
- •Прогнозирование нагрузок
- •Метод наименьших квадратов
- •Самостоятельная работа
- •Метод скользящего среднего
- •Линейный тренд
- •Самостоятельная работа
- •Вероятность и статистика
- •Функции расчета вероятностных параметров
- •Математическое ожидание
- •Дисперсия
- •Корреляционный момент
- •Коэффициент корреляции
- •Гистограммы
- •Нормальное распределение
- •Расчет вероятностного режима электрической сети
- •Самостоятельная работа
- •Самостоятельная работа
- •Гистограмма случайной величины
- •Самостоятельная работа
- •Регрессия
- •Дополнительная регрессионая статистика
- •Простая линейная регрессия
- •Самостоятельная работа
- •Использование f-статистики
- •Вычисление t-статистики
- •Объектное программирование. Visual Basic
- •Основные понятия
- •Основные методы
- •МетодыRange, Cells, Offset
- •Самостоятельная работа
- •Методы и свойства активности объекта
- •Методы активности
- •Свойства, характеризующие активность
- •Макрорекордер
- •Самостоятельная работа
- •Свойства, характеризующие содержимое
- •Самостоятельная работа
- •Основные элементы языка
- •Общие сведения и структура программных модулей
- •Самостоятельная работа
- •Типы данных и переменные
- •Оператор Dim
- •Массивы
- •Пользовательские типы данных. Структуры
- •Динамическое перераспределение памяти
- •Константы
- •Видимость переменных и констант
- •Операторы присваивания
- •Математические и строковые операции
- •Процедуры
- •Вызов процедуры
- •Самостоятельная работа
- •Использование необязательных аргументов
- •Самостоятельная работа
- •Функции
- •Передача массива
- •Ссылки на внешние библиотеки
- •1. Скалярное произведение векторов (столбцы Excel) разной размерности
- •2. Поэлементное произведение массивов
- •Функции Application
- •Операторы принятия решения
- •ОператорIf
- •Блочная структура if
- •Многоблочная структура if
- •Select Case
- •Безусловный переход
- •Циклы объектного типа
- •Пример двойного цикла
- •Передача массива данных в таблицу
- •Коррекция блока ячеек таблицы
- •Ввод и вывод данных
- •Чтение и запись последовательных файлов
- •Диалоговые функции
- •MsgBox()
- •Самостоятельная работа
- •Функция InputBox()
- •Ввод названия файла
- •Самостоятельная работа
- •Диалоговые окна Excel
- •Самостоятельная работа
- •Диалоговые окна пользователя
- •Элементы управления
- •Командная кнопка (CommandButton)
- •Самостоятельная работа
- •Надпись (Label)
- •Самостоятельная работа
- •Окно редактирования (TextBox)
- •Окно списка (ListBox)
- •Самостоятельная работа
- •Выпадающее окно (ComboBox)
- •Групповое окно (Frame)
- •Контрольный индикатор (CheckBox)
- •Кнопка выбора (OptionButton)
- •Заполнение массива случайными числами
- •Линейная интерполяция
- •Самостоятельная работа
- •Оптимальное распределение нагрузки
- •Самостоятельная работа
- •Функции комплексных чисел
- •Самостоятельная работа
- •Обращение комплексной матрицы
- •Самостоятельная работа
- •Решение систем дифференциальных уравнений
- •' Модуль "Ввод исходных данных из таблицы Excel"
- •Перенумерация узлов
- •Самостоятельная работа
- •Матрица инциденций по узлам
- •Индивидуальные задания
- •Библиографический список
- •620002, Екатеринбург, ул. Мира,19
- •620002, Екатеринбург, ул. Мира,19 в.П.Обоскалов
Заполнение массива случайными числами
Формирование случайных данных, подчиняющихся равномерному или какому-либо иному закону распределения, наиболее часто встречается в задачах надежности и статистического моделирования.
Работа предлагаемого программного модуля, составленного для заполнения блока ячеек случайными числами, не требует особых комментариев:
Операторы |
Примечание |
Sub Random() |
|
Dim numRow As Integer, numcol As Integer |
|
Dim Row As Integer, col As Integer |
|
numRow = Selection.Rows.Count |
Число строк в блоке |
numcol = Selection.Columns.Count |
Число столбцов в блоке |
Randomize |
Начальный запуск генератора случайных чисел |
For Row = 1 To numRow |
Цикл по строкам |
For col = 1 To numcol |
Цикл по столбцам |
Selection.Cells(Row, col).Value = Rnd |
Выбор ячейки в блоке и ее заполнение случайным числом |
Next col |
|
Next Row |
|
End Sub |
|
Линейная интерполяция
Часто функции задаются двумя (аргумент и функция) соответствующими друг другу рядами чисел. Работа с такими функциями связана с интерполяцией функции в интервалах между точками. К сожалению, Excel не располагает подходящей стандартной функцией, ее необходимо создать самостоятельно. Ниже приводится один из возможных вариантов программы. Программа выполняет как интерполяцию, так и экстраполяцию (при выходе аргумента за левую или правую границы заданного интервала) функции.
В программе следует обратить внимание на необходимость проверки соразмерности исходных массивов. Для этого определяется и сопоставляется число строк массивов.
Другой важный момент - динамическое выделение памяти для рабочих массивов, реализуемое с помощью оператора Redim, выполняемого после уточнения действительной размерности массива.
Характерным в данной программе является использование цикла Do While…Loop для определения интервала интерполяции.
' Линейная интерполяция. Массивы blx (параметров) и bly (функций) задаются столбцами.
' Первый массив (blx) упорядочен по возрастанию. x – текущий параметр.
Public Function lin_interpolation(blx, bly, x As Single) As Single
Dim n As Integer, i As Integer, y As Single
n = blx.Rows.Count: i = bly.Rows.Count 'Для проверки соразмерности массивов
n = Application.Min(n, i)
If (n < 2) Then ' Необходимая проверка
Application.Msbox ("Интерполяция не возможна, Массивы не соразмерны ")
Exit Function ‘Выход из программы по условию
End If
If (x <= blx(1)) Then
y = bly(1) + (bly(2) - bly(1)) / (blx(2) - blx(1)) * (x - blx(1)) ' Нижняя экстраполяция
ElseIf (x > blx(n)) Then ' Верхняя экстраполяция
y = bly(n - 1) + (bly(n) - bly(n - 1)) / (blx(n) - blx(n - 1)) * (x - blx(n - 1))
Else
i = 1
Do While (x > blx(i)) ' Поиск интервала. Цикл Do While
i = i + 1
Loop
y = bly(i - 1) + (bly(i) - bly(i - 1)) / (blx(i) - blx(i - 1)) * (x - blx(i - 1))
End If
lin_interpolation = y
End Function