ВІКІСТОРІНКА
Навигация:
Інформатика
Історія
Автоматизація
Адміністрування
Антропологія
Архітектура
Біологія
Будівництво
Бухгалтерія
Військова наука
Виробництво
Географія
Геологія
Господарство
Демографія
Екологія
Економіка
Електроніка
Енергетика
Журналістика
Кінематографія
Комп'ютеризація
Креслення
Кулінарія
Культура
Культура
Лінгвістика
Література
Лексикологія
Логіка
Маркетинг
Математика
Медицина
Менеджмент
Металургія
Метрологія
Мистецтво
Музика
Наукознавство
Освіта
Охорона Праці
Підприємництво
Педагогіка
Поліграфія
Право
Приладобудування
Програмування
Психологія
Радіозв'язок
Релігія
Риторика
Соціологія
Спорт
Стандартизація
Статистика
Технології
Торгівля
Транспорт
Фізіологія
Фізика
Філософія
Фінанси
Фармакологія


Информатика. MS Excel. Часть 2

МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ТЕХНОЛОГИЙ И УПРАВЛЕНИЯ

Имени К.Г.Разумовского

Кафедра информатики

Лабораторный практикум

по дисциплине

 

 

Информатика. MS Excel. Часть 2

Направление подготовки бакалавров:

Все направления

профиль: все профили

Москва – 2012

 

УДК 62 – 50

 

Составители: Никифорова Л.Н., Яснова Л.Н.

Алгоритмизация и программирование: Лабораторный практикум/ М.: МГУТУ, 2012. 18с.

 

 

Лабораторные работы посвящены основам программирования и алгоритмизации. В концепции непрерывной подготовки в области вычислительной техники темы данной работы являются базовыми, и изучение обязательно для бакалавров направления 220700.

 

 

Рецензенты:

Сапронов М.И., доктор технических наук, профессор, заведующий кафедры

«Электротехника и промышленные автоматизированные установки»

 

©Московский государственный университет

технологий и управления, 2012.

109004, Москва, Земляной вал, 73

 

© Никифорова Л.Н.

Яснова Л.Н.

 

 


СОДЕРЖАНИЕ

Введение……………………………………………………………………………………………… 4

Лабораторная работа №1……………………………………………………………………………. 5

Лабораторная работа №2……………………………………………………………………………. 9

Лабораторная работа №3……………………………………………………………………………. 12

Список литературы…………………………………………………………………………………... 18

 


Введение

Представлена постановка практических инженерных задач с примерами программ на алгоритмическом языке VBA (визуальный Бейсик), результатами решения по представленным программам и представлением результатов в графическом виде с помощью Мастера диаграмм электронных таблиц Excel. Приводится постановка нескольких прикладных задач, определение математических методов для их решения, краткие сведения из математики по выбранным математическим методам. На конкретном примере подробно рассмотрен порядок действий при решении задач на алгоритмическом языке VBA.

В качестве примера задачи, который подробно поясняет последовательность действий при решении задач на алгоритмическом языке VBA как встроенной функции Microsoft Excel, приведена задача 1 - определение диапазона ростов изделий по результатам статистических данных региона.

Лабораторная работа №1

Задача 1. Определение диапазона роста

Постановка задачи. Определить диапазон ростов, при котором измеренные роста попадают в этот диапазон с вероятностью 95%.

Дан массив измеренных (для данного региона) ростов – P(10) (в реальных расчетах размерность массива измеренных ростов существенно больше):

175,177,158,190, 185,165, 160, 170, 168, 159

Диапазон ростов (от Рmin до Pmax) с вероятностью 95% определяется как:

Pmin = Pcp – 2*sp ; Pmax = Pcp + 2*sp ;

где: Pcp = ; sp = .

Порядок действий при решении задачи:

1) На листе таблицы Excel задаем массив Р(i) – например, в столбце В, начиная с ячейки под номером 3 (рис.1 – левая верхняя часть листа):

Рис. 1. Задание в таблице Excel массива Р(i)

2) После набора команд:

Сервис Макрос Редактор Visual Basic Tools Macros

появится поле (рис.2):

Рис. 2.

2) В строке Macro Name задаем имя программы в VBA: rost(рис. 3):

 

Рис. 3.

3) После появления имени rostпрограммы в Macro name (рис. 3) нажать клавишу Create(создать).

4) Вполе команд появятся команды:

Sub rost()

 

End Sub

Между строками Sub rost()иEnd Subнабираем программу.

5) После набора программы запускаем программу на счет (нажать кнопку F5). Результат в области Immediate - после нажатия кнопки View:

 
 


Рис. 4.

а затем- Immediate Window (в русской версии – Окно отладки) – см. рис.5.

 

Рис. 5.

 

 

Ниже представлена распечатка программы и результат расчета.

Программа определения диапазона ростов на VBA

Sub rost ()

DIM P(10)

N=10

For I = 1 TO N

P(I) = CELLS (I+2, 2)

NEXT I

S=0

For I = 1 TO N

S = S + P(I)

PCP = S / N

S = 0

For I = 1 TO N

S = S + (P(I) - PCP) ^ 2

NEXT I

SIG = SQR ( S / N )

PMIN = PCP – 2 * SIG

PMAX = PCP + 2 * SIG

DEBUG. PRINT “PCP=”; PCP; “SIG=”; SIG

DEBUG. PRINT “PMIN=”; PMIN; “PMAX=; PMAX

End Sub

 

Результат расчета

PCP=170.7 SIG= 10.4312

PMIN=149.8375 PMAX=191.5824

 

 

Задача 2. Определение площади под кривой Y=SIN(X) при различных значениях шага интегрирования.

Постановка задачи. Определить значение интеграла под кривой Y=SIN(X) в диапазоне аргумента Х = 0….1 методом прямоугольников. Шаг интегрирования меняем через число отрезков N: DX=(XK-X0)/N с шагом в диапазоне 10….100 и 10……. 210.

Программа определения площади под кривой

Sub INTEGR()

X0 = 0

XK = 1

DN = 10

For N=10 To 100 Step DN

DX = (XK-X0) / N

S=0

For X=X0 To XK Step DX

Y = SIN(X)

S = S + Y*DX

Next X

I = N / DN

Cells (I+2, 2) = S

Next N

End Sub

 

По полученным результатам и по Мастеру диаграмм (в Excel) построена зависимость величины интеграла от шага интегрирования – рис. 6. По оси ОХ графика отложена величина, равная десяти значениям числа шагов интегрирования I= N/10 (величина I от 1 до 21). Видно, что влияние шага существенно до I < 7 (N< 70), при I ³ 7 (N> 70) влияние шага на величину интеграла несущественно.

Рис.6.

Лабораторная работа № 2

Sub square ()

Dim F1(11), F2(11)

N=11

For I = 1 To N

F1(I) = Cells (I+3, 2)

F2(I ) = Cells (I+3, 3)

Next I

DX = 1

S1 = 0

S2 = 0

For I = 1 To N

S1 = S1 + F1(I) * DX

S2 = S2 + F2(I)*DX

Next I

SSUM=S1-S2

Debug. Print “S1=”; S1; ”S2=”; S2; “SSUM=”; SSUM

End Sub

Результат вычисления

S1=112.2 S2= 60.4 SSUM= 51.8

Рис. 7.

 

Задача 4. Расчет факториала N! при N= 1….. 10.

Постановка задачи

Определить величину факториала при N= 1….. 10, т.е. произведение последовательных чисел от 1 до N, т.е.: N! =1*2*3………* N.

Ниже представлена программа и результат вычисления факториалов

 

Sub FACT ()

NF = 10

For N=1 To NF

F=1

F=F*I

Next I

Debug. Print “N=”; N; “F=”; F

Next N

End Sub

Рис. 8. Вычисление величины факториала N! при различных значениях N.

 

Лабораторная работа №3

Постановка задачи

По материалам экспериментального замера зависимости Y(X) (заданной таблично) определить линейную функцию зависимости Y=f(X) методом наименьших квадратов.

Задана таблица значений Y от аргумента X:

X
Y

 

Метод наименьших квадратов позволяет определить уравнение прямой линии с наименьшей суммой отклонений точек измерения от этой прямой:

 

Y Y= Bo + B1*X

Yi о о о

о

Bo +B1*Xi о о

о

о

Х

X 1 X2 Xi. . . . . . . Xn

 

Рис. 9.

 

 

® min

В результате применения метода наименьших квадратов получаем:

- N*Xcp*Ycp

B1= ------------------------------------ ; Bo= Yср - B1* Xср.

2 - N*Xcp2

Ниже представлена программа расчета.

Sub MinKV ()

Dim Y(16), YR(16)

N = 16

For I = 1 To N

Y(I) = Cells (I+3, 2)

Next I

SX = 0

SY = 0

SXY = 0

SX2 = 0

For I = 1 To N

X = I

SX = SX + X

SY = SY + Y(I)

SXY = SXY + X * Y(I)

SX2 = SX2 + X *X

Next I

XCP = SX / N

YCP = SY / N

B1 = (SXY – N * XCP * YCP) / (SX2 – N * XCP *XCP)

B0 = YCP - B1 * XCP

Debug. Print “B1=”; B1; “b0=”; B0

For I = 1 To N

X = I

YR(I) = B0 + B1 * X

Cells(I+3, 3) = YR(I)

Next I

End Sub

На рис. 10 показан график прямой линии, полученный в результате расчета, и исходные точки табличного задания.

 

 

Рис. 10.

 

 

Sub KORR ()

Dim X(16),Y1(16),Y2(16)

N=16

For I=1 To N

X(I)=Cells(I+10, 1)

Y1(I)=Cells(I+10,2)

Y2(I)=Cells(I+10,3)

Next I

S1=0

S2=0

S3=0

For I=1 To N

S1=S1+X(I)

S2=S2+Y1(I)

S3=S3+Y2(I)

Next I

XCP=S1/N

Y1CP=S2/N

Y2CP=S3/N

S1=0

S2=0

S3-0

For I=1 To N

S1=S1+(X(I)-XCP)^2

S2=S2+(Y1(I)-Y1CP)^2

S3=S3+(X(I)=XCP)*(Y2(I)-Y2CP)

Next I

SIGX=SQR(S1/N)

SIGY2=SQR(S2/N)

RXY2=S1/(N*SIGX*SIGY2)

Cells(3,3)=XCP

Cells(4,3)=SIGX

Cells(3,4)=Y1CP

Cells(4,4)=SIGY1

Cells(5,4)=RXY1

Cells(3,5)=Y2CP

Cells(4,5)=SIGY2

Cells(5,5)=RXY2

Debug. Print “SIGX=”; SIGX; “SIGY2=”; SIGY2; “RXY2=”;RXY2

End Sub

 

 

Рис. 11.

 

Список литературы

 

1. Рональд У. Ларсен. Инженерные задачи в EXCEL. Издательский дом «Вильямс», М.:2002540 с.

2. Волков Е.А. Численные методы. М.: Наука, 1987, 248 с.

3. Microsoft Excel 97. Шаг за шагом. Русская версия. Практ. пособ./ Пер. с анг.- М.: Издательство ЭКОМ, 1997, 448 с.

4. Никифорова Л.Н. Сборник инженерных задач с примерами программ

на алгоритмическом языке Бейсик. Учебное пособие РосЗИТЛП,

2003г, 38с.

5. Гутман Г. Изучаем BASIC. С.-П-г. Из-во ПИТЕР, 2002, 307 с.

6. Светозарова Г.И., Мельников А.А., Козловский А.В. Практикум по программированию на языке БЕЙСИК. М.: Наука, 1988, 368с.

МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ТЕХНОЛОГИЙ И УПРАВЛЕНИЯ

Имени К.Г.Разумовского

Кафедра информатики

Лабораторный практикум

по дисциплине

 

 

Информатика. MS Excel. Часть 2

Направление подготовки бакалавров:

Все направления

профиль: все профили

Москва – 2012

 

УДК 62 – 50

 

Составители: Никифорова Л.Н., Яснова Л.Н.

Алгоритмизация и программирование: Лабораторный практикум/ М.: МГУТУ, 2012. 18с.

 

 

Лабораторные работы посвящены основам программирования и алгоритмизации. В концепции непрерывной подготовки в области вычислительной техники темы данной работы являются базовыми, и изучение обязательно для бакалавров направления 220700.

 

 

Рецензенты:

Сапронов М.И., доктор технических наук, профессор, заведующий кафедры

«Электротехника и промышленные автоматизированные установки»

 

©Московский государственный университет

технологий и управления, 2012.

109004, Москва, Земляной вал, 73

 

© Никифорова Л.Н.

Яснова Л.Н.

 

 


СОДЕРЖАНИЕ

Введение……………………………………………………………………………………………… 4

Лабораторная работа №1……………………………………………………………………………. 5

Лабораторная работа №2……………………………………………………………………………. 9

Лабораторная работа №3……………………………………………………………………………. 12

Список литературы…………………………………………………………………………………... 18

 


Введение

Представлена постановка практических инженерных задач с примерами программ на алгоритмическом языке VBA (визуальный Бейсик), результатами решения по представленным программам и представлением результатов в графическом виде с помощью Мастера диаграмм электронных таблиц Excel. Приводится постановка нескольких прикладных задач, определение математических методов для их решения, краткие сведения из математики по выбранным математическим методам. На конкретном примере подробно рассмотрен порядок действий при решении задач на алгоритмическом языке VBA.

В качестве примера задачи, который подробно поясняет последовательность действий при решении задач на алгоритмическом языке VBA как встроенной функции Microsoft Excel, приведена задача 1 - определение диапазона ростов изделий по результатам статистических данных региона.

Лабораторная работа №1

© 2013 wikipage.com.ua - Дякуємо за посилання на wikipage.com.ua | Контакти