Автор: Пользователь скрыл имя, 24 Декабря 2012 в 04:43, курсовая работа
Хроматическая аберрация заключаются в паразитной дисперсии света, проходящего через оптическую систему (фотографический объектив, бинокль, микроскоп, телескоп и т.д.). При этом белый свет разлагается на составляющие его цветные лучи, в результате чего изображения предмета в разных цветах не совпадают в пространстве изображений.
Целью работы является разработка программы для проведения и визуализации вычислительных экспериментов по теме «Хроматическая аберрация».
ВВЕДЕНИЕ 3
ГЛАВА 1. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ АБЕРРАЦИЙ ОПТИЧЕСКИХ СИСТЕМ 5
1.1. Предметная область 5
1.2. Хроматическая аберрация 8
1.3. Хроматизм положения 10
1.5. Хроматизм увеличения 12
1.6. Принципы ахроматизации оптических систем 15
1.7. Уменьшение и исправление эффекта хроматической аберрации 19
ГЛАВА 2. РАЗРАБОТКА ПРОГРАММЫ «ХРОМАТИЧЕСКАЯ
АБЕРРАЦИЯ» 22
2.1. Назначение и функциональные возможности программы 22
2.2. Интерфейс программы 22
2.3. Вычислительный эксперимент 25
ЗАКЛЮЧЕНИЕ 28
СПИСОК ЛИТЕРАТУРЫ 30
ПРИЛОЖЕНИЕ 31
Picture1.BackColor = RGB(0, 0, 0)
Picture1.Line (0, 8)-(0, -8), RGB(255, 255, 255)
Picture1.Line (0, 0)-(30, 0), RGB(255, 255, 255)
r = HScroll1.Value
t = r - Sqr(r ^ 2 - (d / 2) ^ 2)
k = t
For x = 0 To t Step 0.01
y = Sqr(r ^ 2 - (r - x) ^ 2)
Picture1.Line (x, y)-(x, -y), RGB(160, 160, 250)
Picture1.Line (x + k + t, y)-(x + k + t, -y), RGB(160, 160, 250)
k = k - 0.02
Next x
End Sub
Private Sub HScroll1_Change()
Label2.Caption = HScroll1.Value
r = HScroll1.Value
Form_Activate
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
Информация о работе Моделирование физических процессов. Хроматическая аберрация