Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Автоматизація експерименту Полярометр.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
695.3 Кб
Скачать

Завдання

Лабораторна робота складається з двох частин: зняття, обробка та наступний графічний вивод інформації; керування дослідною установкою.

  1. Зняти сигнали з обох каналів плати спряження

  2. Вивести записані сигнали на екран

  3. За допомогою каналу синхронізації отримати та вивести період сигналу

  4. Провести Фурє обробку сигналу, отримати значення амплітуд гармонік

  5. Керувати кроковим рушієм у зондуючому каналі (повернути кроковий рушій на 10 кроків)

  6. Керувати переривачем інтенсивності. Перервати інтенсивність випромінювання 5 раз.

Додаток Вирази для дискретного перетворення Фур‘є:

Нехай зроблено виборок t=0,1,…,k-1; виборки позначимо як yt

гармоніки можна розрахувати за формулами

Деякі процедури роботи з портами та з графікою мови Pascal:

InitGraph(graphdriver,graphmode,Where_graph);

Даний синтаксис ініціює виклик процедури, що переводить відображення у графічний режим. Третій параметр, це строка , що містить у собі шлях до графічного модуля. Можна взяти його 'c:\language\pascal6\bgi'. Також необхідно зазначити те, що вісь ординат направлена згори донизу, а вісь абсцис напрямлена зліва направо, тому початок координат знаходиться в лівому верхньому куті екрану. Якщо відображення відбувається за межами екрану, то ніякої помилки не відбувається - частину зображення не буде видно.

CloseGraph()

Дана команда коректно закриває графічний режим. Повинна бути в кінці програми для переводу системи в текстовий режим. Можна не ставити в кінці програми.

c := Port[$0231]

Зчитування даних з порту 231 до змінної с.

Port[$0231]:=c

Запис даних до порту 231 з змінної с

A and B

Операція логічного множення змінної А на В

A shl n (A shr n)

Операція зсуву розрядів в двійковому представленні у змінної А на n позицій ліворуч (праворуч).

Line(x1,y1,x2,y2)

Малювання лінії з кінцями у точках (x1,y1) та (x2,y2)

PutPixel(x, y, color)

Зображення точки на екрані з координатами (x, y) кольором color.

Список рекомендованої літератури:

  1. АЦП та НЛП, Дж. Брендор и Ричард Грендон, Питер, 1998

  2. Программирование для процессора 8086, Л.Дао, Ленинград, 1988

  3. Периферийные устройства ZX Spectrum, Антонов А.А., Москва, 1986

  4. Триггеры, А. Вальдшмидт, Москва, 1982

  5. Программирование на языке Паскаль 5.5 , Москва, 1989

9