Вход

Эффект автодинного детектирования

Дипломная работа по технологиям
Дата добавления: 23 января 2002
Язык диплома: Русский
Word, rtf, 614 кб (архив zip, 85 кб)
Диплом можно скачать бесплатно
Скачать
Не подходит данная работа?
Вы можете заказать написание любой учебной работы на любую тему.
Заказать новую работу




ИССЛЕДОВАНИЕ ЭФФЕКТА АВТОДИННОГО ДЕТЕКТИРОВАНИЯ В МНОГОКОНТУРНОМ ГЕНЕРАТОРЕ НА ДИОДЕ ГАННА


Введение.

В связи с развитием современных технологий, требующих непрерывного контроля за многими параметрами технологического процесса, состоянием оборудования и параметрами материалов и сред становится всё более актуальной задача создания неразрушающих бесконтактных методов измерения и контроля параметров материалов и сред. Измерения на СВЧ позволяют определить электропроводность, толщину, диэлектрическую проницаемость и другие параметры материалов и сред без разрушения поверхности образца, дают возможность автоматизировать контроль параметров материалов. Для этого в настоящее время широко используются методы, основанные на использовании эффекта автодинного детектирования в полупроводниковых приборах.

Применение эффекта автодинного детектирования в полупроводниковых СВЧ-генераторах для контроля параметров материалов и структур основано на установлении зависимости величины продетектированного СВЧ-сигнала от параметров контролируемых величин: толщины, диэлектрической проницаемости, проводимости [1-6].

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

При изменении уровня мощности СВЧ-излучения, воздействующего на полупроводниковые элементы с отрицательным сопротивлением, наблюдается изменение режима их работы по постоянному току, что можно понимать как проявление эффекта детектирования. В случае, если прибор с отрицательным сопротивлением является активным элементом СВЧ-генератора наблюдается эффект автодинного детектирования.

Одним из методов, позволяющих провести расчёт величины эффекта автодинного детектирования при реальных параметрах активного элемента и нагрузки, определить области значений контролируемых параметров материалов, в которых чувствительность автодина к их изменению максимальна, наметить пути оптимизации конструкции генератора, является метод, основанный на рассмотрении эквивалентной схемы СВЧ-генератора, в которой комплексная проводимость нагрузки определяется параметрами исследуемого материала и характеристиками электродинамической системы [7,9].

Целью дипломной работы являлось исследование эффекта автодинного детектирования в многоконтурных СВЧ-генераторах на диоде Ганна для создания измерителей параметров материалов, вибрации и выявления особенностей их работы.


Анализ возможности использования автодинов на полупроводниковых активных СВЧ-элементах для контроля параметров материалов и сред.


При изменении уровня СВЧ-излучения, воздействующего на полупроводниковые элементы с отрицательным сопротивлением, наблюдается изменение постоянного тока, протекающего через них, что можно понимать как проявление эффекта детектирования [2,7]. Если прибор с отрицательным сопротивлением является активным элементом СВЧ-генератора, этот эффект называют эффектом автодинного детектирования.

Исследование эффекта автодинного детектирования в полупроводниковых СВЧ-генераторах позволило создать устройства, совмещающие несколько радиотехнических функций в одном элементе (например, излучение и приём электромагнитных колебаний). Автодины на полупроводниковых генераторах, получившие к настоящему времени достаточно широкое применение, используются в основном для обнаружения движущихся объектов.

Важной областью применения автодинов является контроль параметров материалов и сред. Применение эффекта автодинного детектирования в полупроводниковых СВЧ-генераторах для контроля параметров материалов и сред основано на установлении зависимостей величины продетектированного СВЧ-сигнала от параметров контролируемых величин: диэлектрической проницаемости и проводимости. Измерения с помощью приборов основаны на сравнение с эталонами, а точность измерения в основном определяется точностью эталонирования.

Теоретическое обоснование возможности использования эффекта автодинного детектирования в диодных СВЧ-генераторах для контроля параметров материалов и сред проведено на основе численного анализа. Описание отклика диодного СВЧ-автодина может быть сделано на основе рассмотрения эквивалентной схемы генератора (Рис. 1.1), в которой комплексная проводимость Yn определяется параметрами исследуемого материала и характеристиками электродинамической системы, а Yd - средняя проводимость полупроводникового прибора.


Рис. 1. Эквивалентная схема автодина на полупроводниковом диоде.


Эта эквивалентная схема может быть описана соотношением (1.1), согласно первому закону Кирхгофа.

I1, U1 - комплексные амплитуды тока и напряжения первой гармоники на полупроводниковом элементе. Т.к. к обеим проводимостям приложено одно и то же напряжение U1, можно записать баланс мощностей:

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

Возникновение СВЧ-колебаний в электрической схеме с нелинейным элементом вследствие его детектирующего действия приводит к появлению дополнительной составляющей постоянного тока , то есть возникает так называемый эффект автодинного детектирования [18]. Величина определяется из выражения

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


Таблица 1.

Диод

Мощность

КПД

Смещение

Шумы

ЛПД

десятки ватт

до 15%

десятки Вольт

25 дБ

ИПД

десятки милливатт

единицы %

сотни милливольт

около 5 дБ

ДГ

десятки милливатт - единицы Ватт

зависит от режима работы

4.5-11 Вольт

10-12 дБ

ТД

единицы и десятки микроватт

единицы %

сотни милливольт

около 5 дБ


Процессы в полупроводниковых приборах описываются тремя основными уравнениями в частных производных [10]: уравнением плотности тока, характеризующим образование направленных потоков заряда; уравнением непрерывности, отражающим накопление и рассасывание подвижных носителей заряда, и уравнением Пуассона, описывающим электрические поля в полупроводнике.

Точное решение этих уравнений с учетом граничных условий в общем виде затруднительно даже на ЭВМ. Чтобы упростить анализ вводят эквивалентные схемы полупроводниковых приборов.

ТД представляют собой приборы, наиболее удобные для анализа, т.к. их эквивалентная схема более проста и точна, чем схемы других полупроводниковых приборов. С практической точки зрения ТД представляет собой интерес при создании маломощных автодинов в коротковолновой части сантиметрового диапазона.

ИПД (BARITT) обладает малой генерируемой мощностью [11], но из-за низкого уровня шумов и малого напряжения питания являются перспективными для допплеровских автодинов.

В работе [12] исследована возможность измерения диэлектрической проницаемости материалов по величине продетектированного работающем в режиме генерации ЛПД сигнала. Использовался генератор волноводной конструкции (канал волновода 23*10 мм.) с ЛПД типа АА707, установленным в разрыве стержневого держателя. Измерения продетектированного сигнала проводилось компенсационным методом. Исследуемые диэлектрики, с предварительно определёнными значениями диэлектрической проницаемости на СВЧ, прикладывались к отверстию на выходном фланце генератора.

Результаты проведённых исследований показали, что ход зависимости величины продетектированного сигнала от диэлектрической проницаемости зависит от конструкции измерительного генератора, в частности, от расстояния от плоскости расположения ЛПД до открытого конца волновода, к которому прикладывается исследуемых диэлектрик.

ЛПД обеспечивает наибольшие КПД и мощность колебаний. Однако,, в качестве недостатка можно отметить относительно высокий уровень шумов, обусловленный, в первую очередь, шумами лавинообразования.

В ряде работ [2,3,17,18] рассматривается возможность применения СВЧ-генераторов на диоде Ганна для измерения параметров материалов и сред. Отмечается преимущество данного способа измерения: исследуемый образец находится под воздействием СВЧ-мощности, а регистрация измерений производится на низкочастотной аппаратуре, имеющей высокую точность и отличающейся простой в эксплуатации.

В настоящее время разработаны и изготовлены устройства для неразрушающего контроля, принцип действия которых основан на эффекте автодинного детектирования: измерители толщины металлодиэлектрических структур и диэлектрической проницаемости [19,20]. Наибольшее практическое применение из разработанных приборов нашёл СВЧ толщиномер типа СИТ-40. На рисунке 1.2 приведена его блок-схема.


Рис. 2. Блок-схема СВЧ измерителя толщины.


В состав СВЧ толщиномера СИТ-40, предназначенного для измерения тонких плёнок из любого металла на изолирующей подложке и непроводящих покрытиях, в том числе разнообразных лакокрасочных, нанесённых на металлические поверхности, входит: 1 - СВЧ-датчик, представляющий собой СВЧ-генератор в микрополосковом исполнении и использующий в качестве активного элемента диод Ганна или СВЧ биполярный транзистор; 2 - предварительный усилитель; 3 - блок питания; 4 - система корректировки нуля; 5 - блок индикации.

Для уменьшения влияния дрейфа нуля на результат измерений предложены схемные решения, основанные на компенсации дрейфа его параметров в промежутках между измерениями и использовании напряжения в момент, предшествующий измерению, в качестве опорного в момент измерения [21].

С целью повышения чувствительности и существенного уменьшения веса и потребляемой мощности измерителей исследовалась возможность применения туннельных диодов в качестве активных элементов СВЧ-автодинов [22]. Исследования проводились в экспериментальных измерительных СВЧ-устройствах на серийных диодах типа ГИ 103Б, работавших на частоте 1.3 Ггц. В качестве детекторных диодов использовались диоды типа Д405. Конструктивно датчики измерительных устройств представляли собой отрезки полосковых линий передачи, выполненных на основе фольгированного фторопласта, в которых размещались генераторные и детекторные диоды, фильтры, НЧ и подстроечные элементы.

Разработаны устройства измерения толщины и электропроводности проводящих покрытий, а также толщины и диэлектрической проницаемости для изолирующих материалов. Принцип действия автодинного генератора на полупроводниковом СВЧ-элементе был использован при разработке нового способа контроля толщины плёнок в процессе вакуумного напыления. Для повышения точности измерения в датчике применён СВЧ-выключатель, обеспечивающий кратковременное отклонение генератора от измеряемого объекта [23].

Разработан новый способ радиоволнового контроля вибраций, основанный на использовании двух полупроводниковых СВЧ-генераторов, работающих в режиме автодинного детектирования и обеспечивающих возможность определения не только амплитуды, но и частоты вибраций [24]. Источники зондирующего СВЧ-излучения и одновременно приёмники провзаимодействующего с вибрирующим объектом сигналов представляют собой отрезки стандартных прямоугольных волноводов, которые с одного конца закорочены и имеют регулируемые подстроечные поршни, а другие концы соединены с камерами, изготовленными из металлической ленты, свёрнутой в кольцо. Связь по СВЧ-полю отрезков волновода с каждой камерой осуществляется через прямоугольное волноводное окно. В камерах помещается цилиндрический металлический стержень, перемещение которого внутри этих камер вызывает изменение продетектированного автодинами зондирующего СВЧ-сигнала.

Применение в автодинных генераторах диодов Ганна по сравнению с генераторами, использующими другие полупроводниковые активные элементы, позволяет обеспечить преимущества по совокупности таких параметров, как максимальная рабочая частота, выходная мощность, стабильность частоты, потребляемая мощность питания [13].


Экспериментальные исследования эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна.


Использование эффекта автодинного детектирования в полупроводниковых СВЧ-генераторах позволяет создавать простые в эксплуатации малогабаритные измерители толщины и диэлектрической проницаемости [17,18]. Для их нахождения используют результаты измерений на нескольких частотах. Осуществление многопараметрового контроля упрощается, если удаётся проводить измерения в условиях, когда на результаты измерений определяющим образом влияет только один из искомых параметров. Такая ситуация, в частности реализуется, если для измерения толщины и диэлектрической проницаемости диэлектриков в этом случае применяются измерители, работающие на различных частотных диапазонах, например СВЧ и НЧ. При проведении измерений на СВЧ результат зависит как от толщины, так и от диэлектрической проницаемости диэлектрика. Если измерения на НЧ проводить используя схему, в которой диэлектрик помещается в зазор между излучателем и металлическим основанием, то результат измерений будет определяться только толщиной диэлектрика и не будет зависеть от его диэлектрической проницаемости. Определив таким образом толщину диэлектрика, по её значению и показателям преобразователя на СВЧ можно определить диэлектрическую проницаемость.

Было проведено экспериментальное исследование зависимости величины продетектированного сигнала в автодинном генераторе на диоде Ганна, работающем в различных частотных диапазонах от положения СВЧ короткозамыкающего поршня. Использовался генератор волноводной конструкции с диодом типа АА703, помещённым в разрыв металлического стержневого держателя. К цепи питания диода Ганна через разделительный конденсатор параллельно диоду был подключен низкочастотный контур. Частота СВЧ-колебаний составляла ~10 ГГц, частота низкочастотных колебаний ~10 МГц. Для детектирования низкочастотных колебаний использовался диод типа КД503А. Для контроля СВЧ-колебаний использовался измеритель мощности типа Я2М-66. Кроме того, в ходе экспериментальных исследований регистрировался постоянный ток, протекающий через диод Ганна, по падению напряжения на резисторе с сопротивлением порядка 1 Ом, включённом в цепь питания диода Ганна.


Схема экспериментальной установки приведена на рисунке 3.1. Она включает в себя источник питания СВЧ-выключателя 1 для раздельного воздействия сигналами СВЧ и НЧ, источник питания диода Ганна 2, схему обработки информации и индикации 3, детекторный диод 4, разделительный конденсатор 5, СВЧ-выключатель 6, диод Ганна 7, конденсатор низкочастотного колебательного контура 8 и катушку индуктивности 9, располагающейся на поверхности выходного фланца волновода.

В результате экспериментальных исследований было обнаружено, что в режиме многочастотной генерации изменение нагрузки в СВЧ-цепи (т.е. изменение положения короткозамыкающего поршня) приводит к изменению сигнала, продетектированному в НЧ-цепи, а изменение нагрузки в НЧ-цепи (т.е. изменение индуктивности или ёмкости) приводит к изменению сигнала в СВЧ-цепи. При этом изменения продетектированных в этих цепях сигналов могут быть как одинакового, так и противоположного знаков. Как следует из результатов, приведённых на Pис. 3.2, зависимости величины продетектированных в НЧ- и СВЧ-цепях сигналов DUнч и DIсвч от перемещения короткозамыкающего поршня периодичны и имеют локальные максимумы и минимумы. На этом же рисунке приведена зависимость мощности выходного сигнала РCВЧ СВЧ- генератора на диоде Ганна от перемещения короткозамыкающего поршня.

Зависимости величины продетектированных в НЧ (1) и СВЧ (2) цепях сигналов и зависимость мощности выходного сигнала (3) от положения короткозамыкающего поршня.


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

Эквивалентная схема автодина на диоде Ганна.

Вольт-амперная характеристика диода Ганна.

Теоретические зависимости величин продетектированных сигналов в СВЧ DUfg (1) и НЧ DUkg (2) цепях.


Приложение2. Текст программы для моделирования процессов в многоконтурном генераторе на диоде Ганна.


{$A+,B-,D-,E-,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+}


program gist_f3;


uses crt,graph,AN;

label 1,2;

const

n=15;

q1=1.6e-19;

n123=1e21; c2=0.03e-12;

s123=1e-8; c3=0.3e-12;

mm1=0.6; c4=0.8e-12;

Lg=1e-5; c5=10e-12; { отсечение НЧ цепи }

Eb=4e5; c6=1e-6;

T10=300.0; c7=15e-12;

r1=0.01; l2=0.2e-9;

r3=1; l3=0.6e-9;

r4=0.0005; l4=0.01e-9; { крутим }

r5=100; l5=100e-9;

Eds=3.8; l6=35e-9;

l7=0.12e-9;

ll0=0.03; {sm}

llk=0.046; maxpoint=1000000000;

z0=39.43e3;

TypeFL=EXTENDED;

Type ry=array[1..1100]of FL;

Type tt=array[1..N]of FL;

var sign,g1,sign1,sign2,sign3:ry;

oldy1,oldy:array[1..10] of integer;

K1,y,f,w:tt;

delta_i,frequency,old_f,old_cur,di,oldc1,oldc2,c1,l1, sign0,d_visir,bn,iv1,iv11,iv12,x,h,vp1,smax,f0,s0,Vs,Vs1, y1,s1,ppp:FL;

mark,count,fcount,point,deltax,fsign,gd,oldx,oldx1,dh,dj,

visir_1,visir_2,visir_3,visir_4,k,aaa,i,ii,iii,phas_x, phas_y:integer;

round,fpoint,iii1,loop:longint;

visir_f,visir_f1,visir_s,power,size_x,size_y:real;

c:char;

P: Pointer;

Size: Word;

s:string;

Procedure current;

var U:real; { BAX }

begin

Vs:=eds/(Eb*Lg);

Vs1:=Vs*Vs*Vs;

Vs:=(1+0.265*Vs1/(1-T10*5.3E-4))/(1+Vs1*Vs);

Vs:=1.3E7*Eds*Vs/T10;

if y[3]<3>

if y[3]>3.6 then u:=y[3]+2

else begin

if f[3]>0 then u:=y[3]

else u:=y[3]+2;

end;

iv12:=sqr(sqr(u/eb/Lg));

iv11:=mm1*u/Lg+vs*iv12;

iv1:=q1*n123*s123*iv11/(1+iv12);

end;

procedure kzp; { КЗП }

var ll2:FL;

begin

l1:=0.2e-9;

c1:=0.1e-12;

llv:=ll0/sqrt(1-sqr(ll0/llk));

z:=z0*Sin(6.28*lll/llv)/Cos(6.28*lll/llv);

if z<0>

ll2:=abs(z)/6.28e10;

l1:=l1*ll2/(l1+ll2);

end

else c1:=c1+1/(z*6.28e10);

}

end;

Procedure anna(y:tt; var f1:tt);

begin

current;

f[1]:=(y[6]-y[7]-y[12])/c5; { Uag }

f[2]:=(y[7]-y[8]-y[9])/c4; { Ubg }

f[3]:=(y[8]-iv1)/c3; { Ucc'}

f[4]:=(y[9]-y[4]*r1-y[10])/c1; { Udg }

f[5]:=0; { Ueg }

f[6]:=(eds-y[1]-y[6]*r4)/l1; { i1 }

f[7]:=(y[1]-y[2])/l4; { i2 }

f[8]:=(y[2]-y[3]-y[8]*r3)/l3; { i7 }

f[9]:=(y[2]-y[11]-y[4])/l2; { i6 }

f[10]:=y[4]/l1; { iL1 }

f[11]:=y[9]/c2; { Uc2 }

f[12]:=(y[1]-y[13]-y[14])/L7; { i3' }

f[13]:=y[12]/c6; { Uc6 }

f[14]:=(y[12]-y[15]-y[14]/r5)/c7; { Ukg }

f[15]:=y[14]/L6; { iL6 }

end;

procedure an2; { spector }

begin

XMIN:=0;XMAX:=40;YMIN:=0;YMAX:=100;

YGMIN:=25;YGMAX:=200;XGMIN:=350;XGMAX:=630;

nx:=4;ny:=5;

setcolor(7);

OutTextxy(XGMIN,YGMIN-10,'Спектр тока на диоде');

OutTextxy(XGMAX-50,YGMAX+20,'f,GHz.');

setcolor(15);

moveto(xgmin,ygmax);

end;

procedure an3; { u,i }

begin

XMIN:=0;XMAX:=4;YMIN:=-4;YMAX:=10;

YGMIN:=240;YGMAX:=420;XGMIN:=50;XGMAX:=630;

nx:=8;ny:=7;

setcolor(7);

OutTextxy(XGMIN,YGMIN-10,'i7-green, Uag-magenta');

OutTextxy(XGMAX-50,YGMAX+20,'t, ns.');

setcolor(15);

end;

procedure an4; { phasa i7 }

begin

XMIN:=-4;XMAX:=8;YMIN:=-15;YMAX:=5;

YGMIN:=25;YGMAX:=200;XGMIN:=50;XGMAX:=320;

nx:=1;ny:=1;

setcolor(7);

OutTextxy(XGMIN,YGMIN-10,'di7/dt Фаз.портрет тока на диоде');

OutTextxy(XGMAX-50,YGMAX+20,'i7');

setcolor(15);

end;

procedure Result; { вычисление и вывод отношения частот }

begin

if (visir_f>=visir_f1) then

begin

if (visir_f1<>0) then

begin

setcolor(0);

outtextxy(540,75,'___________');

setcolor(13);

line(540,70,620,70);

str((visir_f/visir_f1):5:3,s);

outtextxy(540,75,s);

end;

end

else begin

if (visir_f<>0) then

begin

setcolor(0);

outtextxy(540,75,'___________');

setcolor(13);

str((visir_f1/visir_f):5:3,s);

outtextxy(540,75,s);

end;

end;

end;

procedure v12; { вывод информации физиров 1 и 2 }

begin

d_visir:=1e-9*abs(visir_2-visir_1)*(xmax-xmin)/(xgmax-xgmin);

setcolor(0);

outtextxy(540,255,'___________');

outtextxy(540,35,'___________');

setcolor(15);

if(d_visir<>0) then begin

an2;

line(trunc(visir_s),ygmin,trunc(visir_s),ygmax);

visir_s:=xgmax-trunc((xmax-1/(d_visir*1e9))*(xgmax-xgmin)/(xmax-xmin));

line(trunc(visir_s),ygmin,trunc(visir_s),ygmax);

str((1e-9/d_visir):5:3,s);

outtextxy(540,35,s+' GHz');

end;

str(d_visir*1e9:5:4,s);

outtextxy(540,255,s+' ns');

end;

BEGIN

oldc1:=0;

oldc2:=0;

gd:=0;

InitGraph(gd,gm,'E:\tp-7\bgi');

an2; scal;

an4; scal;

an3; scal;

setcolor(11);

current;

kzp;

{ Начальные условия }

dh:=4;

dj:=2;

x:=0;

h:=8e-13;

y[1]:=eds;

w[1]:=eds;

y[3]:=eds; y[6]:=iv1;

w[3]:=eds; w[6]:=iv1;

y[2]:=eds; y[7]:=iv1;

w[2]:=eds; w[7]:=iv1;

y[5]:=eds; y[8]:=iv1;

w[5]:=eds; w[8]:=iv1;

y[4]:=eds; y[6]:=iv1;

w[4]:=eds; w[6]:=iv1;

y[11]:=eds; y[10]:=0;

y[9]:=iv1; w[9]:=iv1;

w[11]:=eds; w[10]:=0;

y[12]:=0; w[12]:=y[12];

y[13]:=eds; w[13]:=y[13];

y[14]:=0; w[14]:=y[14];

y[15]:=0; w[15]:=y[15];

loop:=1; { номеp pазвеpтки тока }

phas_x:=0; phas_y:=0; { сдвиг фазового поpтpета }

size_x:=1;size_y:=1; { масштаб фазового портрета }

an2;

visir_s:=800;

visir_3:=xgmin;

visir_f:=0;

visir_4:=xgmin;

visir_f1:=0;

an3;

visir_1:=xgmin;

visir_2:=xgmin; { визиры }

count:=1;

mark:=0;

round:=0;

old_cur:=iv1;

fcount:=0;

fsign:=1;

fpoint:=1;

frequency:=1e10;

old_f:=1e10;


Smax:=0;

power:=0;


oldx:=xgmax-trunc((xmax-0)*(xgmax-xgmin)/(xmax-xmin));

for aaa:=1 to 10 do

oldy[aaa]:=ygmin-trunc((ymax-y[8]*10)*(ygmin-ygmax)/(ymax-ymin));


{ Рунге-Кутт }


for iii1:=-249 to maxpoint do begin

for iii:=0 to 4 do begin

anna(y,f);

for k:=1 to n do begin

K1[k]:=f[k]*h;

y[k]:=w[k]+h*f[k]/2;

end;

x:=x+h/2;

anna(y,f);

for k:=1 to n do begin

K1[k]:=K1[k]+2*f[k]*h;

y[k]:=w[k]+f[k]*h/2;

end;

anna(y,f);

for k:=1 to n do begin

K1[k]:=K1[k]+2*f[k]*h;

y[k]:=w[k]+f[k]*h;

end;

x:=x+h/2;

anna(y,f);

for k:=1 to n do begin

y[k]:=w[k]+(K1[k]+f[k]*h)/6;

w[k]:=y[k];

end;

end;


{ вычисление мощности }


power:=power+y[8]*y[2];


{ вычисление частоты по изменению знака производной }


if fsign > 0 then begin

if y[8]-old_cur <= 0 then begin

if fcount = 0 then fpoint:=iii1;

fcount:=fcount+1;

fsign:=-1;

end;

end

else begin

if y[8]-old_cur >= 0 then begin

if fcount = 0 then fpoint:=iii1;

fcount:=fcount+1;

fsign:=1;

end;

end;

old_cur:=y[8];


if fcount = 15 then begin { Частота сигнала }

fcount:=1;

mark:=1;

old_f:=frequency;

frequency:=(iii1-fpoint)/(h*4.2e3 * 5);

fpoint:=iii1;


power:=power *h*frequency/5;

str(power:5:4,s);

power:=0;


setcolor(0); outtextxy(250,460,' ');


setcolor(11);

outtextxy(250,460,'Puhf = '+s+' W');

end;



{ вывод графиков токов и напряжений }

if(iii1>0) then begin

an3;

if(iii1=loop*1000) then begin

loop:=loop+1;

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

scal;


setwritemode(XORput);

setcolor(15);

line(visir_1,ygmin,visir_1,ygmax);

line(visir_2,ygmin,visir_2,ygmax);

setwritemode(COPYput);

str(d_visir*1e9:5:4,s);

outtextxy(540,255,s+' ns');


round:=round+1;

setcolor(0);

outtextxy(50,460,' ');

str(round*4:6,s);

setcolor(11);

outtextxy(50,460,'time = '+s+' ns+');


oldx:=xgmax-trunc((xmax-0)*(xgmax-xgmin)/(xmax-xmin));

for aaa:=1 to 10 do

oldy[aaa]:=ygmin-trunc((ymax-y[8]*10)*(ygmin-ygmax)/(ymax-ymin));

end;


bn:=x*1e9;

y1:=y[1]-1;

xg:=xgmax-trunc((xmax-bn)*(xgmax-xgmin)/(xmax-xmin));

xg:=xg-145-580*(loop-1);

yg:=ygmin-trunc((ymax-y[8]*10)*(ygmin-ygmax)/(ymax-ymin));

setcolor(10);

line(oldx,oldy[1],xg,yg);

oldy[1]:=ygmin-trunc((ymax-y[8]*10)*(ygmin-ygmax)/(ymax-ymin));


{ yg:=ygmin-trunc((ymax-frequency/1e10)*(ygmin-ygmax)/(ymax-ymin));

setcolor(14);

line(oldx,oldy[2],xg,yg);

oldy[2]:=ygmin-trunc((ymax-frequency/1e10)*(ygmin-ygmax)/(ymax-ymin));

}

yg:=ygmin-trunc((ymax-y1)*(ygmin-ygmax)/(ymax-ymin));

setcolor(13);

line(oldx,oldy[3],xg,yg);

oldy[3]:=ygmin-trunc((ymax-y1)*(ygmin-ygmax)/(ymax-ymin));

oldx:=xg;

end;


{ phas. portret }

if(iii1>0) then begin

an4;

di:=(y[8]-oldc1)*50*size_y;

yg:=ygmax-trunc((ymax-di)*(ygmax-ygmin)/(ymax-ymin));

xg:=xgmin-trunc((xmax-y[8]*15*size_x)*(xgmin-xgmax)/(xmax-xmin));

putpixel(xg+phas_x,yg+phas_y,10);

oldc1:=y[8];



if(iii1<=500) then begin

Smax:=Smax+y[8];

sign[iii1]:=y[8];

end

else begin

Smax:=Smax-sign[1]+y[8];

for i:=1 to 499 do begin

sign[i]:=sign[i+1];

end;

sign[500]:=y[8];

end;

end;


if(iii1>249) then begin

{ control circle }

if (mark=1) then begin

mark:=0;

setcolor(14);

circle(xg+phas_x,yg+phas_y,3);

setcolor(10);

end;

end;



{ управление экраном }


if keypressed=true then begin

c:=readkey;

case c of

{ пеpемещение фаз. поpepета }

'1': begin

an4;

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

end;


'4': begin

phas_x:=phas_x-10;

an4;

Size := ImageSize(xgmin+1, ygmin+1, xgmax-1, ygmax-1);

GetMem(P, Size);

GetImage(xgmin+1, ygmin+1, xgmax-1, ygmax-1, P^);

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

PutImage(xgmin+1-10, ygmin+1, P^, NormalPut);

FreeMem(P, Size);

scal;

end;

'6': begin

phas_x:=phas_x+10;

an4;

Size := ImageSize(xgmin+1, ygmin+1, xgmax-1, ygmax-1);

GetMem(P, Size);

GetImage(xgmin+1, ygmin+1, xgmax-1, ygmax-1, P^);

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

PutImage(xgmin+1+10, ygmin+1, P^, NormalPut);

FreeMem(P, Size);

scal;

end;

'2': begin

phas_y:=phas_y+10;

an4;

Size := ImageSize(xgmin+1, ygmin+1, xgmax-1, ygmax-1);

GetMem(P, Size);

GetImage(xgmin+1, ygmin+1, xgmax-1, ygmax-1, P^);

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

PutImage(xgmin+1, ygmin+1+10, P^, NormalPut);

FreeMem(P, Size);

scal;

end;

'8': begin

phas_y:=phas_y-10;

an4;

Size := ImageSize(xgmin+1, ygmin+1, xgmax-1, ygmax-1);

GetMem(P, Size);

GetImage(xgmin+1, ygmin+1, xgmax-1, ygmax-1, P^);

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

PutImage(xgmin+1, ygmin+1-10, P^, NormalPut);

FreeMem(P, Size);

scal;

end;

{ пеpеход на вычисление спектpа }

's': begin

goto 1;

end;

{ масштаб фаз. поpтpета }

'+': begin

an4;

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

size_x:=size_x+0.1;

size_y:=size_y+0.1;

end;

'-': begin

an4;

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

size_x:=size_x-0.1;

size_y:=size_y-0.1;

end;


end;

2: end;

end;



{ спектр }


1:SETCOLOR(15);

an2;

f0:=0;

Smax:=0;

sign0:=0;

setcolor(15);

for k:=1 to 200 do begin

s0:=0;s1:=0;

FOR i:=1 to 500 do begin

s0:=s0+(sign[i]-sign0)*cos(f0*i*6.28e-9/250);

s1:=s1+(sign[i]-sign0)*sin(f0*i*6.28e-9/250);

end;

if k=1 then begin sign0:=s0/500; s0:=0; end;

f0:=f0+2e8;

g1[k]:=s0*s0+s1*s1;

if g1[k]>Smax then Smax:=g1[k];

end;

ppp:=s0*s0+s1*s1;

f0:=0;


{ очистка поля и перерисовка визиров и цифр }


setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

scal;


setwritemode(XORput);

if(d_visir<>0) then begin

line(trunc(visir_s),ygmin,trunc(visir_s),ygmax);

str((1e-9/d_visir):5:3,s);

outtextxy(540,35,s+' GHz');

end;

line(visir_3,ygmin,visir_3,ygmax);

setcolor(14);

line(visir_4,ygmin,visir_4,ygmax);

setwritemode(COPYput);

setcolor(11);

str(visir_f:5:3,s);

outtextxy(540,50,s+' GHz');

setcolor(14);

str(visir_f1:5:3,s);

outtextxy(540,60,s+' GHz');


Result;

{ рисование спектра }

moveto(xgmin,ygmax);setcolor(10);

for k:=1 to 200 do begin

xg:=xgmax-trunc((xmax-f0/1e9)*(xgmax-xgmin)/(xmax-xmin));

yg:=ygmin-trunc((ymax-100*g1[k]/SMAX)*(ygmin-ygmax)/(ymax-ymin));

lineto(xg,yg);

f0:=f0+2e8;

end;


{ конец спектра }


repeat

c:=readkey;

case c of

{ перемещение визиров }

'9': begin

an3;

setwritemode(XORput);

setcolor(15);

line(visir_1,ygmin,visir_1,ygmax);

visir_1:=visir_1+1;

line(visir_1,ygmin,visir_1,ygmax);


v12;

setwritemode(COPYput);

end;

'7': begin

an3;

setwritemode(XORput);

setcolor(15);

line(visir_1,ygmin,visir_1,ygmax);

visir_1:=visir_1-1;

line(visir_1,ygmin,visir_1,ygmax);


v12;

setwritemode(COPYput);

end;

'6': begin

an3;

setwritemode(XORput);

setcolor(15);

line(visir_2,ygmin,visir_2,ygmax);

visir_2:=visir_2+1;

line(visir_2,ygmin,visir_2,ygmax);


v12;

setwritemode(COPYput);

end;

'4': begin

an3;

setwritemode(XORput);

setcolor(15);

line(visir_2,ygmin,visir_2,ygmax);

visir_2:=visir_2-1;

line(visir_2,ygmin,visir_2,ygmax);


v12;

setwritemode(COPYput);

end;

'3': begin

an2;

setwritemode(XORput);

setcolor(11);

line(visir_3,ygmin,visir_3,ygmax);

visir_3:=visir_3+1;

line(visir_3,ygmin,visir_3,ygmax);

visir_f:=(visir_3-xgmin)*(xmax-xmin)/(xgmax-xgmin);


setcolor(0);

outtextxy(540,50,'___________');


setcolor(11);

str(visir_f:5:3,s);

outtextxy(540,50,s+' GHz');


setwritemode(COPYput);

Result;

end;

'1': begin

an2;

setwritemode(XORput);

setcolor(11);

line(visir_3,ygmin,visir_3,ygmax);

visir_3:=visir_3-1;

line(visir_3,ygmin,visir_3,ygmax);

visir_f:=(visir_3-xgmin)*(xmax-xmin)/(xgmax-xgmin);


setcolor(0);

outtextxy(540,50,'___________');


setcolor(11);

str(visir_f:5:3,s);

outtextxy(540,50,s+' GHz');


setwritemode(COPYput);

Result;


end;

'.': begin

an2;

setwritemode(XORput);

setcolor(14);

line(visir_4,ygmin,visir_4,ygmax);

visir_4:=visir_4+1;

line(visir_4,ygmin,visir_4,ygmax);

visir_f1:=(visir_4-xgmin)*(xmax-xmin)/(xgmax-xgmin);


setcolor(0);

outtextxy(540,60,'___________');


setcolor(14);

str(visir_f1:5:3,s);

outtextxy(540,60,s+' GHz');


setwritemode(COPYput);

Result;


end;

'0': begin

an2;

setwritemode(XORput);

setcolor(14);

line(visir_4,ygmin,visir_4,ygmax);

visir_4:=visir_4-1;

line(visir_4,ygmin,visir_4,ygmax);

visir_f1:=(visir_4-xgmin)*(xmax-xmin)/(xgmax-xgmin);


setcolor(0);

outtextxy(540,60,'___________');


setcolor(14);

str(visir_f1:5:3,s);

outtextxy(540,60,s+' GHz');


setwritemode(COPYput);

Result;


end;

' ':begin

goto 2;

end;

end;

until (c='q');

end. { -= EOF =- }







В заключении хочу выразить благодарность доценту кафедры физики твёрдого тела Саратовского госуниверситета Скрипалю Александру Владимировичу и аспиранту той же кафедры Бабаяну Андрею Владимировичу за оказанную помощь и внимательное отношение к выполнению дипломной работы.


© Рефератбанк, 2002 - 2017