Отчет по лабораторным работам «информатика» (2 семестр) icon

Отчет по лабораторным работам «информатика» (2 семестр)



НазваниеОтчет по лабораторным работам «информатика» (2 семестр)
страница1/5
Дата конвертации20.05.2012
Размер277.71 Kb.
ТипОтчет
  1   2   3   4   5
1. /otchet.docОтчет по лабораторным работам «информатика» (2 семестр)


Министерство образования Российской Федерации


Томский политехнический университет

__________________________________________________________


УТВЕРЖДАЮ


Директор ИГНД А.К.Мазуров


«30»мая 2006г.


Отчет по лабораторным работам

«ИНФОРМАТИКА» (2 семестр)


Разработал: ст. гр. 2Б52 Займуков Егор Александрович

Принял: доцент. Хамухин А.А..


Томск - 2006


Оглавление


Лабораторная работа № 1. . . . . .. . . . . . .. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . стр.3


Лабораторная работа №2. . . . . . . . . . . . .. . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . стр.6


Лабораторная работа №3. . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . стр.8


Лабораторная работа №4. . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . . стр.10


Лабораторная работа №5. . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . . . . стр.13


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




Тема: «ИНТЕРПОЛЯЦИЯ»


Цель работы:

научиться применять формулы полиномиальной и сплайн-интерполяции для восстановления отсутствующих (дефектных) значений в массивах экспериментальных данных.


Порядок работы:

  1. Подготовить исходный (точный) ряд данных на листе Excel в виде 2-х столбцов (А3:В13) для X и Y. Где X – аргумент, изменяющийся с некоторым шагом, Y – некоторая функция от Х, например, Y=SIN(X) и представить этот массив на графике, например, - один период синусоиды.

  2. Подготовить заголовки для дефектного ряда данных, восстановленного ряда (по формуле Лагранжа), восстановленного ряда (по формуле сплайн-интерполяции) с соответствующими графиками. Разместить на листе 4 командные кнопки.

  3. В правом верхнем углу поместить таблицу для задания номера дефектной точки, порядка сплайна и вывода результатов восстановления дефектной точки и ее погрешности. В 3, 4 столбце создать дефектный ряд данных путем копирования 1, 2 столбца и «порчи» заданной дефектной точки (в примере это точка 4, для ее Y ввести произвольное значение, например, -1).

  4. По кнопке «Расчет точки по формуле Лагранжа» составить программу, состоящую из трех частей. 1 часть – считывание исходных данных с листа Excel: номер дефектной точки (Nz из ячейки L2), массивы X(i) и Y(i) из 3 и 4 столбцов, а также точное значение Yt из второго столбца для расчета погрешности восстановления.
    2 часть – расчет дефектной точки по формуле Лагранжа (см. фрагмент программы ниже). 3 часть – расчет погрешности и запись результатов на лист: в 5, 6 столбцы, в ячейки L3, L4, M4

  5. По кнопке «Очистка» набрать программу стирания содержимого 5, 6 столбцов, ячейки L3, L4, M4. Отладить обе программы с помощью выполнения по шагам, чтобы для 4-ой дефектной точки результат получался как в приведенном ниже примере

  6. Отлаженную программу скопировать и разместить по кнопкам «Расчет по формуле сплайн-интерполяции» и «Очистка». При этом необходимо изменить номера столбцов в очистке (на 7, 8) и заголовки циклов во фрагменте расчета по формуле Лагранжа (см. лекции). А в 1 часть добавить считывание порядка сплайна (Nspline) из ячейки L6. Отладить эту программу по шагам, чтобы для 1 порядка сплайна результат получался как в приведенном ниже примере

  7. Взять у преподавателя номер индивидуального задания и выполнить расчеты, по результатам составить отчет и сделать вывод. Порядок сплайна увеличивать с 1 до максимально возможного, при этом добиться, чтобы результат совпал с формулой Лагранжа.



Фрагмент программы расчета по формуле Лагранжа


S = 0

For i = 1 To N

p = 1

For j = 1 To N

If j <> i And j <> Nz Then p = p * ((X(Nz) - X(j)) / (X(i) - X(j)))

Next j

If i <> Nz Then S = S + Y(i) * p

Next i

Y(Nz) = S

Где N – это общее количество точек в ряде, Nz – номер дефектной точки

Я делал индивидуальное задание №4

Уровень А

варианта

1

2

3

4

5

6

7

8

9

10

Количество точек в исходном ряде данных

12

13

14

15

16

17

18

19

20

21

Номер дефектной точки

9

8

7

6

5

4

3

12

13

14

Пример программы:



Так выглядит моя программа:

Const N = 15

Dim x(N), y(N) As Double

Private Sub CommandButton1_Click()

For i = 1 To N

x(i) = Worksheets(1).Cells(i + 2, 1).Value

y(i) = Worksheets(1).Cells(i + 2, 4).Value

Worksheets(1).Cells(i + 2, 5).Value = x(i)

Next i

Nz = Worksheets(1).Cells(2, 12).Value

yt = Worksheets(1).Cells(Nz + 2, 2).Value

z = x(Nz)

Worksheets(1).Cells(3, 12).Value = yt

S = 0

For i = 1 To N

p = 1

For j = 1 To N

If j <> i And j <> Nz Then p = p * ((z - x(j)) / (x(i) - x(j)))

Next j

If i <> Nz Then S = S + y(i) * p

Next i

y(Nz) = S

For i = 1 To N

Worksheets(1).Cells(i + 2, 6).Value = y(i) Next i

Worksheets(1).Cells(4, 12).Value = y(Nz) Pogr = Abs((yt - y(Nz)) / yt)

Worksheets(1).Cells(4, 13).Value = Pogr End Sub

Private Sub CommandButton2_Click()For i = 1 To N

x(i) = Worksheets(1).Cells(i + 2, 1).Value y(i) = Worksheets(1).Cells(i + 2, 4).Value

Worksheets(1).Cells(i + 2, 7).Value = x(i)

Next i

Nz = Worksheets(1).Cells(2, 12).Value

yt = Worksheets(1).Cells(Nz + 2, 2).Value

Nspline = Worksheets(1).Cells(6, 12).Value

z = x(Nz) Worksheets(1).Cells(3, 12).Value = yt

S = 0

For i = Nz - Nspline To Nz + Nspline

p = 1

For j = Nz - Nspline To Nz + Nspline

If j <> i And j <> Nz Then p = p * ((z - x(j)) / (x(i) - x(j)))

Next j

If i <> Nz Then S = S + y(i) * p

Next i

y(Nz) = S

For i = 1 To N

Worksheets(1).Cells(i + 2, 8).Value = y(i)

Next i

Worksheets(1).Cells(5, 12).Value = y(Nz)

Worksheets(1).Cells(5, 13).Value = Pogr

End Sub

Private Sub CommandButton3_Click()

For i = 1 To N

Worksheets(1).Cells(i + 2, 5).Value = ""

Worksheets(1).Cells(i + 2, 6).Value = ""

Worksheets(1).Cells(4, 12).Value = ""

Worksheets(1).Cells(4, 13).Value = ""

Next i

End Sub

Private Sub CommandButton4_Click()

For i = 1 To N

Worksheets(1).Cells(i + 2, 7).Value = ""

Worksheets(1).Cells(i + 2, 8).Value = ""

Worksheets(1).Cells(5, 12).Value = ""

Worksheets(1).Cells(5, 13).Value = ""

Next i

End Sub

Вывод: Погрешность по формуле Лагранжа намного меньше, чем погрешность при использовании формулы сплайн-интерполяции. Поэтому для восстановления дефектных точек лучше пользоваться формулой Лагранжа.

Чем больше точек используется при расчете значения дефектной точки, тем меньше погрешность.


  1   2   3   4   5




Похожие:

Отчет по лабораторным работам «информатика» (2 семестр) iconДокументы
1. /Вопросы к зачету по лабораторным работам.doc
Отчет по лабораторным работам «информатика» (2 семестр) iconДокументы
1. /Протокол к лабораторным работам по физике.doc
Отчет по лабораторным работам «информатика» (2 семестр) iconМетодические указания к лабораторным работам по курсу «Электроника» пенза 2006
В лабораторных работах исследуются основные характеристики и параметры полупроводниковых диодов
Отчет по лабораторным работам «информатика» (2 семестр) iconДокументы
1. /Метрология лабораторные/Листы для отчётов включающие таблицы измерений и все необходимое/LABORAT1.DOC
Отчет по лабораторным работам «информатика» (2 семестр) iconМетодические указания к лабораторным работам по курсу «Электроника» пенза 2006
...
Отчет по лабораторным работам «информатика» (2 семестр) iconМетодические указания к лабораторным работам для студентов всех специальностей и всех форм обучения
Студенты разных специальностей выполняют различные лабораторные работы, включенные в настоящее издание
Отчет по лабораторным работам «информатика» (2 семестр) iconМетодические указания к лабораторным работам для студентов всех форм обучения
К выполнению лабораторных работ допускаются студенты прошедшие инструктаж по технике безопасности. Прежде чем приступить к выполнению...
Отчет по лабораторным работам «информатика» (2 семестр) iconВ отчете следует отразить следующие вопросы: а поставленные задачи
Нииаа отчет о выполнении всех заданий в печатной форме. Получив у руководителя от нииаа заключение по обучению за каждый семестр,...
Отчет по лабораторным работам «информатика» (2 семестр) iconДокументы
1. /Лекции по фармакологии/1-й семестр/Адренергические вещества-1.doc
2. /Лекции...

Отчет по лабораторным работам «информатика» (2 семестр) iconДокументы
1. /Лекции по фармакологии/1-й семестр/Адренергические вещества-1.doc
2. /Лекции...

Отчет по лабораторным работам «информатика» (2 семестр) iconДокументы
1. /OS - Коликова/06/input.txt
2. /OS -...

Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов