акеті В«
MathCAD В». За аналогічних вихідних даних В«MathCADВ» видав такі результати:
В
Малюнок 5.5 - графік дисперсійної характеристики, отриманий за допомогою пакету В«MathCADВ».
В
В
Малюнок 5.6 - графік з профілями ТЕ-мод, отриманий за допомогою пакету В«MathCADВ»
В
Повний лістинг вирішення поставленого завдання в пакеті В«MathCADВ» наведено в додатку С.
5.3. Інтерпретація результатів і висновки за виконану роботу.
Провівши порівняльний аналіз результатів, отриманих за допомогою написаної в В«DelphiВ» програми та пакету В«MathCADВ», ми бачимо їх повний збіг в межах заданої похибки. Крім того, кінцеві результати, а саме профілі ТІ-мод, збігаються з довідковими:
В
Малюнок 5.7 - три нижчі ТЕ-моди асиметричного планарного хвилеводу і відповідні їм зигзагоподібні промені.
З цього можна зробити висновок, що поставлена ​​задача була вирішена мною вірно і в повному обсязі. Я не тільки створив кінцевий програмний продукт, обмежено придатний для практичного використання, а й отримав практичні навички програмування в об'єктно орієнтованої середовищі В«DelphiВ».
6. Список використаної літератури :
1. В«Чисельні методи для ПЕОМ на мовах Бейсік, Фортран і Паскаль В». А.Е.Мудров - МП В«РаскоВ», Томськ, 1992р, 270с. p> 2. В«Оптичні хвилі в кристалах В». А. Ярів, П. Юх - видавництво В«СвітВ», Москва, 1987р, 616с. p> Додаток А.
В
Блок-схема тіла основний програми.
В
Малюнок А.1 - блок-схема тіла основної програми. /Td>
nn1, nn2, nn3 - показники заломлення, вихідні дані, що вводяться користувачем;
dd - товщина хвилеводу, вводиться користувачем;
wll - довжина хвилі використовуваного світла, вводиться користувачем.
В
Блок-схема Процедури В«OnChangingВ».
В
В
Малюнок А.2 - блок-схема процедури В«OnChangingВ». /Td>
AllowChange - властивість об'єкта TPageControl, що відповідає за здатність/невирішення зміни закладки;
mtInformation - інформаційне вікно, уведомляющее користувача про те, що він ввів не всі вихідні дані.
Блок-схема Процедури В«OnChangeВ».
В
Малюнок А.3 - блок-схема процедури В«OnChangeВ». /Td>
i - змінна типу boolean, яка відповідає за те, чи буде при зміні закладки здійснено перерахунок;
chart1 - графік, що відображає дисперсійну характеристику хвилеводу;
chart2 - графік, що відображає профілі ТІ-мод;
stringgrid1 - таблиця, яка по ходу виконання програми заповнюється значеннями напрямних кутів;
n - змінна типу byte, відповідна порядку моди;
a, b - змінні, що задають діапазон, на якому проводиться уточнення напрямних кутів;
dwl - функція, що задає дисперсійну характеристику хвилеводу (чисельно дорівнює правій частині рівняння (3.1));
dix - процедура, що здійснює одну ітерацію методу дихотомії;
k - допоміжна переменнная типу integer, використовувана для побудови графіка;
f (k), g (k) - функції від k, що виступають в ролі аргументу для інших функцій;
e1, e2, e3 - функції, що визначають профіль моди в різних середовищах.
Блок-схема процедури В«dixВ».
В
Малюнок А.4 - блок схема процедури В«dixВ». /Td>
х1, х2, хm - крайні і середню значення інтервалу, на якому виробляється уточнення кореня;
y1, y2 ym - значення уточнюється функції від x1, x2 і xm відповідно;
xx1, xx2, xxm - нові крайні і середню значення інтервалу, отримані після його зменшення вдвічі.
Додаток В.
Модуль форми Form1.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, TeEngine, Series, TeeProcs,
Chart, math, Grids, Menus;
type
TForm1 = class (TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Image1: TImage...
