Цифровой фильтр высокой частоты

Цифровой фильтр высокой частоты


РГРТУ

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

К  КУРСОВОМУ  ПРОЕКТУ

ПО  ДИСЦИПЛИНЕ:

ОСНОВЫ  ПРОЕКТИРОВАНИЯ ЦИФРОВЫХ  УСТРОЙСТВ  НА  ПЛИС

Студент Горюнов Д.Ю

Группа 5110  Специальность 210402

2008

 

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

РЯЗАНСКИЙ ГОСУДАРСТВЕННЫЙ РАДИОТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КАФЕДРА РАДИОТЕХНИЧЕСКИХ СИСТЕМ

УТВЕРЖДАЮ

Зав. кафедрой радио-

технических   систем

____________ В.И.Кошелев

"___"__________ 2008 г.

 
ПОЯСНИТЕЛЬНАЯ  ЗАПИСКА

к курсовой работе по дисциплине:

Основы  проектирования  цифровых  устройств  на  ПЛИС

на тему:  Цифровой фильтр высокой частоты

Рязань 2008 г.

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

РЯЗАНСКИЙ ГОСУДАРСТВЕННЫЙ РАДИОТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

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

ЗАДАНИЕ  НА  КУРСОВУЮ  РАБОТУ

по дисциплине «Основы проектирования цифровых устройств на ПЛИС»

Студент      Горюнов Д.Ю.                       код      Ie0H3-04-06-30-1-11             группа   5110

1. Тема                       Цифровой фильтр высокой частоты                                                     

2. Срок представления проекта к защите              12        ноября            2008 г.                       

3. Исходные данные для проектирования:                                                                                 

3.1.   Линейное разностное уравнение фильтра:                                                               

3.2.   Порядок фильтра:          M = 3                                                                                   

3.3.   Коэффициенты фильтра:                                                                                          

b1

b2

b3

b4

 0.126464868216455

-0.211575649599258

 0.211575649599257

-0.126464868216455

a1

a2

a3

a4

1.000000000000000

0.927241545063816

0.888040485768699

0.284717905073458

3.4.   Разрядность коэффициентов:              выбрать (см.п.3.5 и 3.6. ТЗ)                       

3.5.   Отклонение АЧХ в полосе пропускания:          не более  ± 0,6 дБ                             

3.6.   Затухание АЧХ в полосе непропускания:        не менее  29 дБ                                

3.7.   Входные данные:             8-разрядный параллельный прямой код                            

3.8.   Выходные данные:          16-разрядный параллельный дополнительный код         

3.9.   Частота дискретизации:                                 2,8 МГц                                            

3.10.  Тактовая частота синхронизации:    25,175 МГц                                                   

3.11.  ПЛИС:     EPF10K20RC240-4   (семейство FLEX10K фирмы Altera)                   

4. Содержание пояснительной записки курсового проекта

4.1.  Титульный лист

4.2.  Задание на курсовую работу

4.3.  Содержание

4.4.  Введение

4.5.  Анализ, формализация и декомпозиция задачи

4.6.  Разработка и обоснование структурной схемы устройства

4.7.  Составление и описание принципиальной схемы устройства

4.8.  Разработка и отладка программы на языке AHDL

4.9.  Определение быстродействия, импульсной и переходной характеристик фильтра

4.10. Заключение

4.11. Список использованных источников

4.12. Приложение

5. Перечень графического материала:  схема принципиальная электрическая                       

подпись

 
Руководитель проекта                                              08.09.2008 г.              Соколов Ю.П.

фамилия,  инициалы

 

дата

 

подпись

 
Задание принял к исполнению                                «              2008г.»                              

Содержание:


                   

1.  Введение                                                                                                                            5

2.  Анализ, формализация и декомпозиция задачи                                                             6

3.  Разработка и обоснование структурной схемы устройства                                          12

4.  Составление и описание принципиальной схемы устройства                                   13

5.  Разработка и отладка программы на языке AHDL                                                         14

6.  Определение быстродействия, импульсной и переходной характеристик фильтра 16

7. Заключение                                                                                                                        18

8 Список использованных источников                                                                               19

9 Приложение                                                                                                                        20


Введение

В данном курсовой работе я(?!) буду разрабатывать и моделировать цифровой фильтр высокой частоты (БИХ). Характеристики этого фильтра указаны в выданном преподавателем задании.

 Фильтр будет выполнен на основе программируемой логической интегральной схемы EPF10K20RC240-4 из семейства FLEX10K фирмы Altera с помощью специальных программ MAX+plus II 10.2 BASELINE и MATLAB 6.5.

ПЛИС семейств FLEX10K - самая популярная элементная база для реализации алгоритмов ЦОС. Их часто используют так, как они имеют большую логическую емкость, удобную архитектуру с встроенными блоками памяти(EAB, Embedded Array Block), высокую надежность и приемлемую цену, относительно других ПЛИС. Этого  достаточно для решения проблем, возникающих у разработчиков.



Анализ, формализация и декомпозиция задачи


В данной работе я(?!) буду проектировать цифрой фильтр с бесконечной импульсной характеристикой третьего порядка.

Запишем линейное разностное уравнение для БИХ-фильтра:

 


Преобразуем данное уравнение и получаем три формы реализации БИХ-фильтра:

       Рис.1 Прямая форма 1                           Рис.2 Прямая форма 2                     Рис.3 Транспонированная

                                                                                                                                                прямая форма 2   


1)Прямая форма 1








2)Прямая форма 2


 






3)Транспонированная прямая форма 2

 







Для фильтра порядка М=3 получим:




Проанализировав формы реализаций фильтров, прихожу к выводу, что нужно использовать транспонированную прямую форму 2,так как имеет встроенный конвейер и наименьшее количество сумматоров(?!). Данную форму можно представить в виде трех блоков, которые мы в последствии и будем использовать при программировании:




   



      Рис.4 Блок Mult_a


                                                 Рис.5 Блок Mult_b                                      Рис.6 Блок Mult_c


Программировать будем ПЛИС фирмы Altera FLEX10K20RC240-4.Укажем характеристики этой схемы:


Логическая емкость

20000

Число логических элементов

1152

Число логических блоков

144

Память (бит)

12288

Используемые выводы

189

Число строк

6

Каналов в строке

144

Число столбцов

24

Каналов в столбце

24

                       

                                                                               









                                                                                                                  Таблица 1

В задании были получены коэффициенты фильтра. Но они дробные и поэтому MAX+plus с ними работать не может. Необходимо их перевести в целые числа. Это производится с помощью масштабирования. Масштабирование коэффициентов производится путем умножения заданных коэффициентов ai на 2m и bi  на 2n. Выбираем n и m так, чтобы выполнялись условия технического задания(отклонение АЧХ в полосе пропускания и затухание АЧХ в полосе непропускания). С учетом этого выберем m=n=6.

    Используем MATLAB и получаем характеристики фильтра при различных округлениях:

-без округления

-с отбрасыванием дробной части (fix);

-с округлением до ближайшего целого (round);

-с округлением до ближайшего меньшего целого (floor);

-с округлением до ближайшего большего целого (ceil);

Рисю7 АЧХ при различных способах округления



 

                Рис.8 АЧХ в полосе непропускания                                Рис.9 АЧХ в полосе пропускания


Выбираем округление до ближайшего целого, так как это единственное округление, которое удовлетворяет техническому заданию. Оно соответствует красному графику.

(Отклонение АЧХ в полосе пропускания:      не более  ± 0,6 дБ                             

        Затухание АЧХ в полосе непропускания:     не менее  29 дБ)

(Определите реальные величины отклонений!!)       

                          Рис.10 Импульсная характеристика фильтра

                          Рис.11 Переходная характеристика фильтра

                                              Рис.12 ФЧХ фильтра

 

Рис.13 Карта нулей и полюсов фильтра


Данный фильтр является устойчивый, так как все полюса находятся внутри единичной окружности.

Выпишем округленные и отмасштабированные коэффициенты:

Заданные коэффициенты

             (DEC)

Округлённые коэффициенты

(DEC)

Округлённые коэффициенты в

дополнительном коде

(BIN)

b1

0.126464868216455

       8

1000

b2

-0.211575649599258

      -14

10010

b3

0.211575649599257

       14

1110

b4

-0.126464868216455

       -8

11000

a1

1.000000000000000

       -64

1000000

a2

0.927241545063816

       -59

1000101

a3

0.888040485768699

       -57

1000111

a4

0.284717905073458

       -18

1101110

Таблица 2(??)

(Все коэффициенты отрицательные??)

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


g(t)

h(t)

0

0,125

0.125

1

-0,334

-0,209

2

0,415

0,206

3

-0,244

-0,0401

4

-0,0488

-0,0882

5

0,148

0.0588

6

-0,0236

0,0354

7

-0,0957

-0,0595

8

0,0678

0,00865

9

0,0302

0,0354

10

-0,0607

-0,0235

                                   Таблица 3

Разработка и обоснование структурной схемы устройства

 

     Фильтр-это основной блок для реализации технического задания.

     Для работы фильтр использует дополнительный код. По техническому заданию на входе имеем 8-разрядный параллельный прямой код. Поэтому перед фильтром целесообразно поставить  преобразователь прямого кода в дополнительный код.

     Так как данные на вход фильтра поступают с различными задержками, для безошибочной работы требуется поставить 8-разрядный параллельный регистр. Также регистры нужны для снижения логической нагрузки на логические элементы, вследствие чего освобождаются ресурсы ПЛИС для выполнения других функций. Так как фильтр тоже задерживает сигнал, то на выходе так же поставим параллельный регистр (разрядность определяется техническим заданием, т.е выходной параллельный регистр будет 16-разрядным).

      Семисегментные индикаторы(их два) позволяют контролировать работу ПЛИС. Они указывают младшие разряды выходного сигнала в удобной для пользователя форме.  Антидребезговая система убирает дребезг в кнопке управления ПЛИС.



Краткое описание блоков структурной схемы :

        1. btn – антидребезговая схема и преобразователь асинхронного сигнала в                        синхронный.

              2. reg_in и reg_out –параллельные параметризированные регистры

3. preobr_cod – преобразователь кода , предназначен для преобразования входного прямого кода в дополнительный код;

4. filter_gor – основной блок преобразования

5. tffe-триггер

              6. l7segment  и h7segment – семисегментные индикаторы(?!), необходимы для проверки работы устройства.


Рис.14 Структурная схема устройства


Составление и описание принципиальной схемы устройства.


(Содержание раздела не соответствует названию.)


Рис.15 Принципиальная схема устройства

Разработка и отладка программы на языке AHDL


Для конфигурирования ПЛИС семейства FLEX10K существуют следующие способы:

1)                    Пассивная последовательная (последовательное ПЗУ, ByteBlaster, BiteBlaster, JTAG, микроконтроллер);

2)                    Пассивная параллельная синхронная (микроконтроллер);

3)                    Пассивная параллельная синхронная (микроконтроллер);

В проекте будет использовано JTAG конфигурирование. Для конфигурирования посредством JTAG  выводы MSEL0, MSEL1 необходимо подключить к земле.

 JTAG (Joint Test Action Group) - объединенная группа по вопросам тестирования – разработала спецификации для периферийного сканирования (BST – Boundary Scan Test). BST-технология позволяет выполнить эффективное тестирование компонентов на прецизионных печатных платах. BST-технология может тестировать выводы без использования щупов и пробников и выполняет сбор необходимых функциональных  данных в нормальном режиме функционирования микросхемы. Для работы в JTAG-режиме используются четыре выделенных вывода: TDI, TDO, TMS, и TCK, и вспомогательный вывод TRST. Все остальные выводы во время JTAG-конфигурирования находятся в третьем состоянии. JTAG-конфигурирование нельзя начинать до завершения других режимов конфигурирования. Во время JTAG-конфигурирования конфигурационные данные загружаются в микросхему на печатной плате через разъемы кабелей MasterBlaster или ByteBlasterMV.


 1)TDI – Вход тестовых данных.( Вход последовательной загрузки инструкций, программирующих и тестовых данных. Данные синхронизируются фронтом импульсов на выводе TCK.)

 2)TDO – Выход тестовых данных.( Последовательный выход инструкций, программирующих и тестовых данных. Данные синхронизируются спадом импульсов на выводе TCK. Если данные из микросхемы не поступают - вывод находится в третьем состоянии)

 3)TMS – Выбор режима тестирования (режим контроллера BST)( Вход управления режимом конечного автомата (контроллера) TAP. Конечный автомат синхронизируется фронтом сигнала на входе TCK. Поэтому состояние вывода TMS должно быть установлено перед фронтом сигнала TCK.)

 4)TCK – Тактовый вход контроллера BST(Тактовый синхровход схемы BST. Некоторые операции синхронизируются фронтом, а некоторые спадом сигнала на TCK.)

5) TRST– Вход прекращения тестирования (дополнительный)( Вход асинхронного сброса  схемы периферийного сканирования."0" на выводе – сбрасывает BST-схему периферийного сканирования. Вывод TRST является дополнительным в соответствии со стандартом IEEE STD. 1149.1.)[2]

(Какое отношение имеет выделенный материал к разделу??)

При разработке программы потребовалось написать  на языке AHDL следующие модули:

1)Преобразователь кода из прямого в дополнительный(Имя?):

Если старший бит входных данных равен нулю, то код не изменяется, если равен  единице,то все разряды кроме старшего инвертируются, а затем к младшему  прибавляется единица.

2)Антидребезговая схема(Имя?):

 На выходе триггера схемы (Где он? Привести схему! Неясно, как утраняется дребезг) по тактовому сигналу появляется единица, при появлении следующего тактового импульса на выходе сигнал устанавливается в ноль.В итоге на выходе получаем импульс длительностью в один такт, который поступает на входы СЕ блоков фильтра и который разрешает срабатывание тактового импульса. Кнопка антидребезга нужна для отладки на макете.

       3) основной блок схемы-фильтр(Имя?):

Входная 8-ми разрядная последовательность умножается на заданные коэффициенты числителя и складывается с произведением коэффициентов знаменателя, взятых с противоположным знаком, и последовательности 16-ти разрядных переменных. (Как формируется 16-разрядный код?? Как разрабатывался фильтр?)

 Составление фильтра состоит в соединении отдельных модулей, в данной работе используются 3 модуля. Они соединены один за другим.


                







               Рис.16 Структура mult_а           Рис.17 Структура mult_b                  Рис.18 Структура mult_c 

(На рисунки 16..18 нет ссылок, нет объяснений, что и зачем на них изображено и зачем они представлены?)

       

          4)Параллельные параметризированные регистры(Имя?) предназначенны для хранения    информации в течение периода частоты дискретизации

        5)Семисегментный индикатор(?!) (Имя?) отображает четырехразрядные данные.



(Содержание раздела не соответствует названию.)     

Определить, каким образом (как) реализовать операции (действия, блоки, модули), представленные на структурной схеме. Это можно сделать в виде:

·         Алгоритмов работы  и их описания . Привести описание алгоритма на языке AHDL с пояснениями;

·         Структурных схем и их описания. Привести описание структурной схемы на языке AHDL с пояснениями;

·         Фрагментов программ на языке AHDL и их описание.

При описании работы желательно привести временные диаграммы работы блока (модуля, операции, действия)

Определение быстродействия, импульсной и переходной характеристик  устройства

Проанализировав быстродействие(Каким образом??), получены следующие  данные:

-период тактовых импульсов-115.8 нс

-частота дискретизации-8.63 МГц

По заданию:

Частота дискретизации:                 2,8 МГц

Соответственно, получаем большой запас по частоте:

8.63-2.8=5.83 МГц.


Сравним значения отсчетов импульсной и переходной характеристик,полученных с помощью MAX+PLUS II, MATLAB и отладочного модуля. Это необходимо для проверки правильности работы всего устройства.


(Что представлено на рис.19?)      



Рис.19 Временные диаграммы


Matlab 6.5

MAX+plus II

(DEC)

MAX+plus II

(HEX)

MAX+plus II

(переведенные)

Отладочный

модуль

1

0,125

800

0320

0.125

20

2

-0,334

63398

F7A6

-0.334

A6

3

0,415

2658

0A62

0.4153

62

4

-0,244

63964

F9DC

-0.246

DC

5

-0,0488

65219

FEC3

-0.0491

C3

6

0,148

994

03B0

0.1553

B0

7

-0,0236

65390

FF6E

-0.024

6E

8

-0,0957

64919

FD97

-0.0965

97

9

0,0678

433

01B1

0.0676

B1

10

0,0302

191

00BF

0.0298

BF

11

-0,0607

65147

FE7B

-0.0615

7B

12

0,00998

66

0042

0.01

42

13

0,0362

231

00E7

0.0361

E7

14

-0,0242

65373

FF5D

-0.0254

5D

15

-0,0108

65461

FFB5

-0.011

B5

Таблица 4 Отсчеты импульсной характеристики


Matlab 6.5

MAX+plus II

(DEC)

MAX+plus II

(HEX)

MAX+plus II

(переведенные)

Отладочный

модуль

1

0,125

800

0320

0.125

20

2

-0,209

64198

FAC6

-0.20906

C6

3

0,206

1320

0528

0.20625

28

4

-0,0401

65285

FF05

-0.0397

05

5

-0,0882

64968

FDC8

-00875

C8

6

0,0588

375

0177

0.05859

77

7

0,0354

230

00E6

0.0359

E6

8

-0,0595

65149

FE7D

-0.0592

7D

9

0,00865

46

002E

0.0718

2E

10

0,0354

237

00ED

0.037

ED

11

-0,0235

65385

FF69

-0.02375

69

12

-0,0133

65451

FFAB

-0.0135

AB

13

0,0226

146

0092

0.0228

92

14

-0,00278

65519

FFEF

-0.00285

EF

15

-0,0141

65445

FFA5

-0.01425

A5

Таблица 5 Отсчеты переходной характеристики


Переведенные отсчеты получаем путем деления прямых десятичных значений(??), полученных из дополнительного кода) на 6400(так как масштабирующий коэффициент   26 =64 и амплитуда входного воздействия принята равной 100).

(Как получены отрицательные значения?) 

Заключение


В данной работе был спроектирован цифровой фильтр высокой частоты, удовлетворяющий всем требованиям технического задания. Проект занял на интегральной схеме 60% ресурсов или 694 логических ячеек. Были получены навыки программирования ПЛИС. Погрешность характеристик фильтра связана с округлением его коэффициентов. (??)

(Как выполнены требования ТЗ?)        


Список использованных источников.

  1. Угрюмов Е.П. Цифровая схемотехника: Учебное пособие. Санкт-Петербург(?Издательство?) 2000 г.
  2. Конфигурирование ПЛИС Altera со статической памятью конфигурации. Р.А. Мяльк.           Санкт-Петербург (?Издательство?) 2003 г.
  3. Стешенко В.Б. Плис фирмы ALTERA: элементная база, система проектирования и    языки описания аппаратуры. М., ДОДЭКА-XXI, 2007 (2002).

4.      Антонов А.П.  Язык описания цифровых устройств Altera AHDL. :Практический курс. М., Радио Софт, 2001 г.


Приложение

%

   Курсовая работа по дисциплине:

   "Основы проектирования цифровых устройств на ПЛИС"

   На тему: "Цифровой фильтр высокой частоты"

   Выполнил: студент группы 5110

   Горюнов Д.Ю.

   Проверил: Соколов Ю.П.

%

include "filter.inc";

include "button.inc";

include "ppreg.inc";

include "pk_dk.inc";

include "7segment.inc";

 constant razx = 8;--Что означают приведенные константы?

 constant razy = 16;--Откуда они появились?

 constant razb = 4;

 constant raza = 8;

 

subdesign final

(

     data[razx-1..0],clk,knopka : input;

     reset : input = gnd;

     out[razy-1..0] : output;

     synhr,h : output;

     la,lb,lc,ld,le,lf,lg : output;

     ha,hb,hc,hd,he,hf,hg : output;

     )

variable

     preobr_cod : pk_dk with (width = razx);

     h7seg,l7seg : 7segment;

     reg_in : ppreg with (width = razx);

     reg_out : ppreg with (width = razy);

     btn : button with ( delay = 1, clock = 3175); --8000 25175

     filtr_gor : filter with

         (

         wx = 8, --разрядность шины xn

     wy = 16, --разрядность шины yn—Откуда появились параметры??

     wc1 = 5, -- разрядность коэффициентов b

     wc2 = 7, -- разрядность коэффициентов a

     rs = 6, --расширение коэффициента b

     ws = 23, --разрядность шины sum

     wp = 23, --разрядность шины result

    b1 = 8, --коэффициент b1

     b2 = B"10010", --коэффициент b2

     b3 = 14, --коэффициент b3

     b4 = B"11000", --коэффициент b4

     a2 = B"1000101", --коэффициент a2

     a3 = B"1000111", --коэффициент a3

     a4 = B"1101110", --коэффициент a4

     wm = 6 –сдвиг—Что значит параметр?

         );--Значения параметров НЕ ПРИВЕДЕНО в пояснительной записке!!

     ce : node;

begin

     reg_in.(clk,reset)=(clk,!reset);

     reg_out.(clk,reset)=(clk,!reset);

     btn.clk = clk;

     filtr_gor.(clk,reset)=(clk,!reset);

     preobr_cod.in[] = data[];

     reg_in.data[] = preobr_cod.out[];

     filtr_gor.vxod[]=reg_in.out[];

     reg_out.data[]=filtr_gor.vixod[];

     out[]=reg_out.out[];

     l7seg.i[]=out[3..0];

     h7seg.i[]=out[7..4];

     (la,lb,lc,ld,le,lf,lg) = l7seg.(a,b,c,d,e,f,g);

     (ha,hb,hc,hd,he,hf,hg) = h7seg.(a,b,c,d,e,f,g);

     btn.btn = knopka;

     ce = btn.out;

     filtr_gor.ce = ce;

     reg_in.ce = ce;

     reg_out.ce = ce;

     synhr = ce;

     h = tffe(VCC,clk, , ,ce);

end;



%

     Фильтр

     Выполнил ст.гр.№ 5110                                                                

     Горюнов Д.Ю. 

%

include "mult_a1.inc";

include "mult_b.inc";

include "mult_c.inc";

PARAMETERS

(

     wx = 8, --разрядность шины xn

     wy = 16, --разрядность шины yn

     wc1 = 5, -- разрядность коэффициентов b

     wc2 = 7, -- разрядность коэффициентов a

     rs = 6, --расширение коэффициента b

     ws = 23, --разрядность шины sum

     wp = 23, --разрядность шины result

    b1 = 8, --коэффициент b1

     b2 = B"10010", --коэффициент b2

     b3 = 14, --коэффициент b3

     b4 = B"11000", --коэффициент b4

     a2 = B"1000101", --коэффициент a2

     a3 = B"1000111", --коэффициент a3

     a4 = B"1101110", --коэффициент a4

     wm = 6 --сдвиг

);

subdesign filter

(

 vxod[wx-1..0], clk : input;

 ce : input=vcc;

 reset : input=gnd;

 vixod[wy-1..0] : output;

)

variable

sec_up : mult_a1 with (widthx = wx, widthc = wc1+rs, widths = ws, widthp = wp, bn= b1*(2^rs));

sec_mid1 : mult_b with (widthx = wx, widthy = wy, widthc1 = wc1+rs, widthc2=wc2, widthp = wp, an = a2, bn = b2*(2^rs));

sec_mid2 : mult_b with (widthx = wx, widthy = wy, widthc1 = wc1+rs, widthc2=wc2, widthp = wp, an = a3, bn = b3*(2^rs));

sec_down : mult_c with (widthx = wx, widthy = wy, widthc1 = wc1+rs, widthc2=wc2, widthp = wp, an = a4, bn = b4*(2^rs));

V[wy-1..0] : node;

begin

 sec_mid1.(clock,clken,aclr) = (clk,ce,reset);

 sec_mid2.(clock,clken,aclr) = (clk,ce,reset);

 sec_down.(clock,clken,aclr) = (clk,ce,reset);


 sec_up.xn[]=vxod[];

 sec_mid1.xn[]=vxod[];

 sec_mid2.xn[]=vxod[];

 sec_down.xn[]=vxod[];


 V[] = sec_up.result[wm+wy-1..wm];


 sec_mid1.yn[]=V[];

 sec_mid2.yn[]=V[];

 sec_down.yn[]=V[];


 sec_up.sum[]=sec_mid1.result[];

 sec_mid1.sum[]=sec_mid2.result[];

 sec_mid2.sum[]=sec_down.result[];


 vixod[]=V[];

end;



%

     Преобразователь кода из прямого в дополнительный

     Выполнил ст.гр.№ 5110                                                                

     Горюнов Д.Ю. 

%

parameters

(

     width=8

);

subdesign pk_dk

(

     in[width-1..0] : input;

     out[width-1..0] : output;

)

variable

     sign : node;

begin

     sign = in[width-1] ;

     if sign then out[] = (sign,!in[width-2..0])+1;

     else out[] = in[];

     end if;

end;



%

     Параллельный параметризированный регистр

     Выполнил ст.гр.№ 5110                                                               

     Горюнов Д.Ю. 

%

PARAMETERS

(

     width=8

);

SUBDESIGN ppreg

(

     data[width-1..0],clk : input;

     ce : input = vcc;

     reset : input = gnd;

     out[width-1..0] : output;

)

variable

 out[width-1..0] : dffe;

begin

 out[].(clk,clrn,ena)=(clk,!reset,ce);

 out[] = data[];

end;





%

     Антидребезг

     Выполнил ст.гр.№ 5110                                                               

     Горюнов Д.Ю.                                                                         

%


PARAMETERS

(

     delay = 1 --величина задежки в микросекундах 

     , clock = 5175 -- тактовая частота в килогерцах

);

CONSTANT modul = (delay*clock) DIV 1000;-- модуль счета

ASSERT (modul>2)  

     REPORT        "Произведение delay*clock должно быть больше 2000"

     SEVERITY ERROR;

CONSTANT width = LOG2(modul);   

CONSTANT end_state = modul-1;   


SUBDESIGN button

(

     btn      : INPUT;

     clk      : INPUT;

     out : OUTPUT;

)

VARIABLE

div_out : NODE; 

astart : NODE;

tr[width-1..0]     : dffe;


BEGIN


tr[].(clk, ena) = (clk, astart);

astart = dff(VCC, !btn, div_out,  );

IF tr[].q < end_state  THEN

     tr[].d = tr[].q + 1;   

ELSE

     tr[].d = 0;       

END IF;

div_out = !dff((tr[].q == end_state),clk,,);   --формирование импульса сброса триггера

out = dff(dff(VCC, astart,!out,), clk, ,); --формирование импульса


END;




%

     Модуль преобразования данных для представления на                    семисегментном индикаторе

     Взят из раздаточного материала

%

%   -a-                                   %

% f|   |b                                 %

%   -g-                                   %

% e|   |c                                 %

%   -d-                                   %

%                                              %

% 0 1 2 3 4 5 6 7 8 9 A b C d E F     %

%                                              %


SUBDESIGN 7segment

(

     i[3..0]                 : INPUT;

     a, b, c, d, e, f, g     : OUTPUT;

)

BEGIN

     TABLE

         i[3..0]       =>   a, b, c, d, e, f, g;


         H"0"     =>   1, 1, 1, 1, 1, 1, 0;

         H"1"     =>   0, 1, 1, 0, 0, 0, 0;

         H"2"     =>   1, 1, 0, 1, 1, 0, 1;

         H"3"     =>   1, 1, 1, 1, 0, 0, 1;

         H"4"     =>   0, 1, 1, 0, 0, 1, 1;

         H"5"     =>   1, 0, 1, 1, 0, 1, 1;

         H"6"     =>   1, 0, 1, 1, 1, 1, 1;

         H"7"     =>   1, 1, 1, 0, 0, 0, 0;

         H"8"     =>   1, 1, 1, 1, 1, 1, 1;

         H"9"     =>   1, 1, 1, 1, 0, 1, 1;

         H"A"     =>   1, 1, 1, 0, 1, 1, 1;

         H"B"     =>   0, 0, 1, 1, 1, 1, 1;

         H"C"     =>   1, 0, 0, 1, 1, 1, 0;

         H"D"     =>   0, 1, 1, 1, 1, 0, 1;

         H"E"     =>   1, 0, 0, 1, 1, 1, 1;

         H"F"     =>   1, 0, 0, 0, 1, 1, 1;

     END TABLE;

END;




%

     модуль mult_a1

     Взят из раздаточного материала

%

INCLUDE "lpm_mult.inc";

PARAMETERS

(    widthx = 8,  --число разрядов шины xn[]

     widthc = 10, --число разрядов коэффициентов

     widths = 18, --число разрядов шины sum[]

     widthp = 18, --число разрядов шины result[]

     bn = 100       --коэффициент bn числителя

);

SUBDESIGN mult_a1

(    xn[widthx-1..0]        : INPUT;

     sum[widths-1..0]     : INPUT;

     result[widthp-1..0]   : OUTPUT;

)

VARIABLE     

mult_x : lpm_mult WITH (

     LPM_WIDTHA = widthx,

     LPM_WIDTHB = widthc,

     LPM_WIDTHP = widthp,

     LPM_WIDTHS = widths,

     INPUT_B_IS_CONSTANT = "YES",

     LPM_REPRESENTATION = "SIGNED",

     USE_EAB = "OFF",

     --LPM_PIPELINE = 1,

     MAXIMIZE_SPEED = 6 );

BEGIN   

     mult_x.dataa[] = xn[];

     mult_x.datab[] = bn;

     mult_x.sum[] = sum[];  

     result[] = mult_x.result[];

END;




%

     Модуль mult_b

     Взят из раздаточного материала

%

INCLUDE "lpm_mult.inc";

PARAMETERS

(

     widthx = 8,  --число разрядов шины xn[]

     widthy = 8,  --число разрядов шины yn[]

     widthc1 = 10, --число разрядов коэффициентов b

     widthc2 = 10, --число разрядов коэффициентов а

     widthp = 18, --число разрядов шины result[]

     an = 100, --коэффициент -an знаменателя (отрицательный - hex)

     bn = 100 --коэффициент bn числителя

);


CONSTANT widths= widthp;


SUBDESIGN mult_b

(

     xn[widthx-1..0]    : INPUT;

     yn[widthy-1..0]    : INPUT;

     sum[widths-1..0] : INPUT;

     clock              : INPUT;

     clken              : INPUT = VCC;

     aclr          : INPUT = GND;

     result[widthp-1..0]     : OUTPUT;

)


VARIABLE


         mult_x : lpm_mult WITH (

              LPM_WIDTHA = widthx,

              LPM_WIDTHB = widthc1,

              LPM_WIDTHP = widthp,

              LPM_WIDTHS = widths,

              INPUT_B_IS_CONSTANT = "YES",

              LPM_REPRESENTATION = "SIGNED",

              USE_EAB = "OFF",

              LPM_PIPELINE = 1,

              MAXIMIZE_SPEED = 6

              );

         mult_y : lpm_mult WITH (

              LPM_WIDTHA = widthy,

              LPM_WIDTHB = widthc2,

              LPM_WIDTHP = widthp,

              LPM_WIDTHS = widths,

              INPUT_B_IS_CONSTANT = "YES",

              LPM_REPRESENTATION = "SIGNED",

              USE_EAB = "OFF",

              --LPM_PIPELINE = 1,

              MAXIMIZE_SPEED = 6

              );

BEGIN

     mult_x.(clock, clken, aclr) = (clock, clken, aclr);

     mult_x.dataa[] = xn[];

     mult_x.datab[] = bn;

     mult_x.sum[] = mult_y.result[];

     result[] = mult_x.result[];


     mult_y.dataa[] = yn[];

     mult_y.datab[] = an; 

     mult_y.sum[] = sum[];


END;





%

     Модуль mult_c

     Взят из раздаточного материала

%

INCLUDE "lpm_mult.inc";

PARAMETERS

(

     widthx = 8,  --число разрядов шины xn[]

     widthy = 8,  --число разрядов шины yn[]

     widthc1 = 10, --число разрядов коэффициентов b

    widthc2 = 10, --число разрядов коэффициентов a

     widthp = 18, --число разрядов шины result[]

     an = 100, --коэффициент an знаменателя

     bn = 100 --коэффициент bn числителя

);


CONSTANT widths= widthp;


SUBDESIGN mult_c

(

     xn[widthx-1..0]    : INPUT;

     yn[widthy-1..0]    : INPUT;

     --sum[widths-1..0] : INPUT;

     result[widthp-1..0]     : OUTPUT;

     clock    : INPUT;

     clken    : INPUT = VCC;

     aclr : INPUT = GND;


)


VARIABLE


         mult_x : lpm_mult WITH (

              LPM_WIDTHA = widthx,

              LPM_WIDTHB = widthc1,

              LPM_WIDTHP = widthp,

              LPM_WIDTHS = widths,

              INPUT_B_IS_CONSTANT = "YES",

              LPM_REPRESENTATION = "SIGNED",

              USE_EAB = "OFF",

              LPM_PIPELINE = 1,

              MAXIMIZE_SPEED = 6

              );

         mult_y : lpm_mult WITH (

              LPM_WIDTHA = widthy,

              LPM_WIDTHB = widthc2,

              LPM_WIDTHP = widthp,

              LPM_WIDTHS = widths,

              INPUT_B_IS_CONSTANT = "YES",

              LPM_REPRESENTATION = "SIGNED",

              USE_EAB = "OFF",

              --LPM_PIPELINE = 1,

              MAXIMIZE_SPEED = 6

              );

BEGIN

     mult_x.(clock, clken, aclr) = (clock, clken, aclr);

     mult_x.dataa[] = xn[];

     mult_x.datab[] = bn;

     mult_x.sum[] = mult_y.result[];

     result[] = mult_x.result[];


     mult_y.dataa[] = yn[];

     mult_y.datab[] = an;


END;