46383 (607831), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Tc – длительность сигнала;

- идеальные значения x(t).

Возможно и следующее представление

,

где - средняя мощность сигнала

- относительная площадь отсекаемого участка энергетического спектра x(t).

По заданной величине и известных , , можно определить .

а) Используются и следующие критерии оценивания:

.

б) Максимальная абсолютная и относительная ошибки:

,

.

в) Эффективная относительная ошибка

.

г) Средняя относительная ошибка

.

д) Среднеквадратическая ошибка

4. Руководство пользователя

4.1 Интерфейс пользователя

На рисунке 3 показан внешний вид программы при запуске.

Рисунок 3. Внешний вид рабочего окна программы

Рабочее окно программы, как видно из рисунка, состоит из нескольких полей. В нижней части окна пользователю предоставляется возможность изменить входные данные, которые установлены по умолчанию. Там же расположена кнопка «Сгенерировать сообщение» при нажатии на эту кнопку программа генерирует случайный сигнал (рисунок 4).

Рисунок 4 – Вывод на экран случайной функции

После этого мы можем выбрать необходимый шаг квантования и нажать на кнопку «Дискретизировать по времени» и получим отображение отчетов (рисунок 5).

Рисунок 5 – Отображение отчетов, соответственно шагу квантования.

В результате, после нажатии на кнопку «Восстановить непрерывную функцию» получаем восстановленный сигнал (рисунок 6).

Рисунок 6 – Отображение восстановленного сигнала по отчетам.

Листинг программы

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Series, StdCtrls, Spin, TeEngine, ExtCtrls, TeeProcs, Chart,

ComCtrls, Menus, Buttons;

type

TForm1 = class(TForm)

CSpinEdit2: TSpinEdit;

CSpinEdit1: TSpinEdit;

Chart1: TChart;

Series1: TFastLineSeries;

Series2: TFastLineSeries;

Series3: TBarSeries;

Label2: TLabel;

Label1: TLabel;

MainMenu1: TMainMenu;

Fgfg1: TMenuItem;

dfd1: TMenuItem;

sf1: TMenuItem;

sdf1: TMenuItem;

dsf1: TMenuItem;

N1: TMenuItem;

sdf2: TMenuItem;

sd1: TMenuItem;

sdf3: TMenuItem;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure sdf2Click(Sender: TObject);

procedure sf1Click(Sender: TObject);

procedure dsf1Click(Sender: TObject);

procedure sd1Click(Sender: TObject);

procedure sdf1Click(Sender: TObject);

procedure sdf3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

end;

var

Form1: TForm1;

massiv:array[1..50] of real;

j:integer;

implementation

{$R *.dfm}

{ TFormLR6 }

var

count: Integer = 0;

count2: Integer = 0;

maxi: double = 0.0;

maxy: double = -200.0;

miny: double = 200.0;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

i: double;

begin

Series1.Clear();

Series2.Clear();

Series3.Clear();

SpeedButton3.Enabled:=false;

Sd1.Enabled:=false;

SpeedButton3.Flat:=true;

SpeedButton2.Enabled:=true;

dsf1.Enabled:=true;

count:=0;

i:=0;

while (i<=CSpinEdit1.Value) do

begin

Series1.AddXY(i,(random(5)+1)*0.05*cos(i+random(5)*0.01),'',clTeeColor);

i:=i+0.5 ;

Inc(count);

end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

x,k: Integer;

z: double;

begin

Series3.Clear();

SpeedButton3.Enabled:=true;

sd1.Enabled:=true;

SpeedButton3.Flat:=false;

x:=0;

for k:=0 to count-1 do

begin

if (Series1.XValues.Value[k]=x) then

begin

z:=Series1.YValues.Value[k];

massiv[k]:=z;

Series3.AddXY(x,z,'',clTeeColor);

if (abs(Series1.YValues.Value[k]) > maxi) then

maxi:=abs(Series1.YValues.Value[k]);

x:=x+CSpinEdit2.Value;

end;

end

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var

k,x: Integer;

z: double;

begin

chart1.Series[1].Clear;

x:=0;

for k:=0 to count-1 do

begin

if (Series1.XValues.Value[k]=x) then

begin

z:=Series1.YValues.Value[k];

massiv[k]:=z;

Series2.AddXY(x,z,'',clTeeColor);

if (abs(Series1.YValues.Value[k]) > maxi) then

maxi:=abs(Series1.YValues.Value[k]);

x:=x+CSpinEdit2.Value;

end;

end

end;

function fmod(x,y: Real): Real;

begin

Result := x - (x / y) * y;

end;

procedure TForm1.sdf2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.sf1Click(Sender: TObject);

begin

SpeedButton1.Click;

end;

procedure TForm1.dsf1Click(Sender: TObject);

begin

SpeedButton2.Click;

end;

procedure TForm1.sd1Click(Sender: TObject);

begin

SpeedButton3.Click;

end;

procedure TForm1.sdf1Click(Sender: TObject);

begin

Application.MessageBox('Тема: Квантование сигналов по времени','О программе',0);

end;

procedure TForm1.sdf3Click(Sender: TObject);

begin

Application.MessageBox('Выполнила студентка 3 курса группы 03-КТ-11, А. Л.','Об авторе',0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

dsf1.Enabled:=false;

Sd1.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton3.Enabled:=false;

end;

initialization

Randomize();

end.

Заключение

В данной работе был реализован алгоритм квантования сигала по времени. Из проделанной работы можно сделать вывод, что при реальной передачи сигналов восстановленный сигнал, при большом (редком) шаге квантованья, сильно отличается от исходного. Следовательно, для того, чтобы сигнал передать как можно более точно необходимо часто передавать отчеты. Т.е чем меньше шаг квантования, тем больше соответствие восстановленного сигнала с исходным

Разработанная программа реализует восстановление исходного сигнала по отчетам, а также предоставляет гибкий характер работы пользователя с программным приложением по изменению параметров.

Разработанное приложение может быть незаменимой частью более сложных программных пакетов для передачи данных.

Список литературы

А.В.Власенко, В.И.Ключко - Теория информации и сигналов. Учебное пособие / Краснодар: Изд-во КубГТУ, 2003.- 97 с.

Теория передачи сигналов: Учебник для вузов / А.Г.Зюко, Д.Д.Кловский,

Цифровая обработка сигналов: Учебник для вузов / А.Б. Сергиенко – СПб.: Питер, 2003. – 604 с.: ил.

Delphi 6.0. Практика программирования. Учебное пособие / Фаронов В.В. Издание 7-е, переработанное. – М.: «Нолидж», 2001. – 672с.: ил.

Для подготовки данной работы были использованы материалы с сайта http://www.referat.ru/

Характеристики

Список файлов курсовой работы