Разработка методов и устройств контроля характеристик и параметров функциональных элементов систем цифрового телевидения
Диссертация
Проведен анализ особенностей передачи сигналов цифрового телевидения по стандарту DVB-C и специфики передачи данных в цифровом телевидении. В результате анализа выявлено, что поскольку спецификой цифровых систем телевидения является применение методов передачи цифровых сигналов, основанных на квадратурной амплитудной модуляции (КAM), когда текущий цифровой поток модулирует несущую и по амплитуде… Читать ещё >
Список литературы
- М. И. Кривошеев, Основы телевизионных измерений. — М.: Связь, 1979.
- А.с. 1 149 439 СССР, Способ измерения амплитудно-частотной характеристики и характеристики относительного времени распространения фазы в телевизионной системе и устройство для его реализации, Безруков В. Н., Опубл. 1985, Бюл. № 13.
- А.с. 1 150 776 СССР, Способ измерения амплитудно-частотных характеристик и характеристик относительного времени распространения фазы сигнала в телевизионной системе и устройство для его осуществления, Безруков В. Н., Опубл. 1985, Бюл. № 14.
- Проектирование и техническая эксплуатация телевизионной аппаратуры / В. Н. Безруков, В. С. Беляев, Г. Т. Дерибас и др.- Под ред. С. В. Новаковского. М.: Радио и связь, 1994.
- И. С. Гоноровский, М. П. Демин, Радиотехнические цепи и сигналы, М.:Радио и связь, 1994.
- С. И. Баскаков, Радиотехнические цепи и сигналы, М.: Высшая школа, 1983.
- Рекомендация 500−5, Методика субъективной оценки качества телевизионных изображений.
- Безруков В. Н., Разработка и применение методов анализа характеристик и параметров элементов формирования сигналов изображения в системах телевидения, Диссертация на соискание ученой степени доктора технических наук, Москва 1994.
- Межгосударственный стандарт. Сети распределительные кабельные систем телевизионного и звукового вещания. Межгосударственный Совет по стандартизации, метрологии и сертификации. 2001 г.
- Б. А. Локшин, Цифровое вещание: от студий к телезрителю, Syrus systems, Москва 2001.
- ETSI TECHNICAL REPORT ETR 290, Digital Video Broadcasting (DVB) — Measurement guidelines for DVB systems, 1997.
- Technical Report TR 101 291 VI. 1.1 (1998−06), Digital Video Broadcasting (DVB) — Usage of the DVB test and measurement signalling channel (PID 0×00ID) embedded in an MPEG-2 Transport Stream (TS), ETSI.
- К Гласман, Методы передачи данных в цифровом телевидении. Часть 1., Журнал «625», 1999, № 5.
- К Гласман, Методы передачи данных в цифровом телевидении. Часть 2., Журнал «625», 1999, № 7.
- К Гласман, Методы передачи данных в цифровом телевидении. Часть 3., Журнал «625», 1999, № 9.
- Фокин Н.В. «Методы измерения характеристик в системах телевидения с информационным сжатием». Метрология и измерительная техника в связи, № 3, 2000 г.
- Прэтт У. Цифровая обработка изображений. М.: Мир, 1982.- 1−2том.
- Кривошеев М. И. Цифровое Телевидение. М.: ВЗЭИС, 1985.
- Кривошеев М. И., Виленчик Л. С., Красносельский И. Н. и др. Цифровое телевидение. Под ред. М. И. Кривошеева. М.: Связь, 1980.
- Птачек М. Цифровое телевидение. Теория и техника. М.: Радио и связь, 1990.
- Телевидение. Под. редакцией В. Е. Джакони. М.: Радио и связь, 1997.
- В. Ф. Самойлов, Б. П. Хромой. Телевидение. М.: Связь, 1975.
- Метрология, стандартизация и измерения в технике связи, Учеьное пособие для высших учебных заведений. Под ред. Б. П. Хромого. М.: Радио и связь, 1986.
- Кривошеев М. И., Дворкович В. П. Измерения в цветном телевидении М.: Связь, 1971.
- Качество изображения и измерения в цифровом телевидении М. Кривошеев, А. Мкртумов, В. Федунин. Internet.
- Г. В. Добровольский. Передача импульсов по каналам связи. М.: Связьиздат, 1960.
- Tektronix. A Guide to Picture Quality Measurements for Modern Television Systems. Internet, http:// www. tek .com. 1999.
- Tektronix. A Guide to Maintaining Quality of Service for Digital Television Programs. Internet, http:// www. tek .com. 1999.
- Internet, http// www.mpeg.org
- Дворкович А. В., Дворкович В. П., Зубарев Ю. Б., Мохин Г. Н. и др, под ред. Зубарева Ю. Б. и Дворковича В. П. «Цифровая обработка телевизионных и компьютерных изображений». М.: 1997 г.
- Recommendation of international organization for standardization, Coding of moving pictures and associated audio, ISO/IEC JTC1/SC29/WG11 N0701, ISO/IEC 13 818−1, MPEG94/, March 1994.
- MPEG-2. Стандарты ISO/IC 13 818 разделы 1, 2 и 3. Coding of moving pictures and associated audio. Разделы 1 — systems, 2 — Video, 3 — Audio.
- J. Wiseman «An Introduction to MPEG Video Compression», Internet.
- W. Lee «MPEG Compression Algorithm», Internet.
- L. Chiariglione «A guided tour to MPEG-1 and MPEG-2», Internet.
- L. Joan «MPEG Video Compression Standard», Mitchell, Didier Le Gall and Chad Fogg, Chapman & Hall, 1996.
- Т. Sikora, «MPEG-1 and MPEG-2 Digital Video Coding Standards», Internet.
- T. Sikora, «MPEG Moving Picture Experts Group «, Internet.
- Measurement Method of the Digital Video Signal, Approved copy from journal «INTERFACE», January, 2000.
- Measuring End-to-End Delay Times in Digital Video Systems, Henk ter Harmsel, Fluke Industrial Electronics, Test & Measurement Europe, 1999.
- A Guide to Standard and High-Definition Digital Video Measurements, Tektronix, 2000.
- A Guide to Digital Television Systems and Measurements, David K. Fibush, Designing Digital Systems, 2000.
- Equipment and Strategies for Signal Quality Monitoring for Digital Television Transmission Networks, J. Banna and p. Goudezeune, SMPTI% Journal, 2001. f»
- Video Quality Research, Stephen Wolf, Institute for Telecommunication Sciences 2000 Technical Progress Report.
- Безруков В. H., Салтыков К. Е. Дискретно-групповое периодическое кодирование сигналов изображений. «Кино-Телевидение-Видео», 1995 г., № 1, с. 43−48.
- Безруков В. Н., Королев А. В., Ляпунов В. Н., Новаковская О. С. Выбор параметров систем телевидения высокой визуальной четкости и качества. «Техника кино и телевидения», 1985 г., № 10, с. 3−9.
- Б. П. Хромой, В. Н. Безруков, В. Г. Балобанов. К расчету фазовых и временных характеристик линейных телевизионных устройств минимальной фазы. «Радиотехника», Том 25, 1970 г., № 2, с. 11−17.
- В. Н. Безруков, В. Г. Балобанов. Б. П. Хромой. К расчету фазовых и амплитудно-частотных характеристик апертурных корректоров и видеоусилителей. «Электоросвязь», 1971 г., № 3, с. 67−70.
- Цифровое представление телевизионного сигнала, К. Гласман, Санкт-Петербургский институт кино и телевидения, Internet.
- Л.А.Севальнев. Международный стандарт кодирования с информационным сжатием MPEG-2. Журнал «625», N1, 1997 г., с. 58 62.
- J1.A. Севальнев. Многопрограммное цифровое телевизионное вещание по наземным и спутниковым линиям связи. Журнал «625», 1995 г., N5, с. 35 -40.
- Л.А. Севальнев. Интерфейсы в системах ТВ вещания с информационным сжатием данных. «Телеспутник», 2000 г., № 2, с. 70−74.
- Л.А. Севальнев. Передача цифровых телевизионных программ с информационным сжатием по спутниковым каналам связи. «Телеспутник», 1997 г., № 7, с. 64−69.
- Л.А. Севальнев. Передача сигналов цифрового телевидения с информационным сжатием данных по кабельным линиям связи. «Телеспутник», 1998 г., № 1, с. 72.76.
- Л.А. Севальнев. Эфирное вещание цифровых ТВ-программ со сжатием данных. «Телеспутник», 1998 г., № 10.
- DVB-S. Стандарт ETS 300 421. Digital broadcasting systems for television, sound and data services. Framing structure, channel coding and modulatin for 11/12 Ghz satellite services.
- DVB-C. Стандарт ETS 300 429. Digital broadcasting systems for television, sound and data services. Framing structure, channel coding and modulatin for cable systems.
- DVB-T. Проект стандарта. PR ETS 300 744. Digital broadcasting systems for television, sound and data services. Framing structure, channel coding and modulatin for digital terrestrial television.
- Objective picture quality measurement new understandings. A. M. Rohaly, B. Janko, K. Patel, L. Durant. Tektronix INC., USA.
- Picture appraisal rating (PAR) a single-ended picture quality measure for MPEG-2. M. Knee. SNELL & WILCOX, UK. преподавательского, научного и инженерно-технического состава. ЗАО «Информсвязьиздат» М. МТУСИ, 2000 г.
- Кар донская И. Л. Субъективная оценка качества телевизионных изображений. Депонировано в ЦНТИ «Информсвязь» Сб. № 2190 св. 2001 от 22.05.2001 г.
- Кардонская И. Л. Измерения характеристики относительного времени распространения фазы. Депонировано в ЦНТИ «Информсвязь» Сб. № 2190 св. 2001 от 22.05.2001 г.
- Безруков В. Н., Кардонская И. Л. Контроль амплитудно-частотных характеристик видеотрактов систем телевидения. Журнал «Метрология и измерительная техника в связи» № 3 2001 г.
- Безруков В. Н., Кардонская И. Л. Определение характеристики относительного времени распространения фазы. Журнал «Метрология и измерительная техника в связи» № 5 2001 г.
- Безруков В. Н., Ульянкин С. В., Кардонская И. Л. Относительная субъективная оценка качества телевизионных изображений. Тезисы доклада. Пятый международный конгресс HAT «Прогресс технологий телерадиовещания», Москва, 2001 г.
- Безруков В. Н., Ульянкин С. В., Кардонская И. Л. Специфика субъективного контроля качества телевизионных изображений. Журнал «Метрология и измерительная техника в связи» № 6 2001 г. unit UnModelGaus-interfaceuses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Math,
- Buttons, Menus, Comobj- type
- Private declarations } function AFH (w:Single):Single-function
- Spectr (Ampl:Single-w:Single-m:Integer-a:Single-OTR:Single-x:Single-у:S ingle):Single- function
- Measure (Ampl:Single-w:Single-m:Integer-a:Single-OTR:Single-x:Single-у: Single):Single- function
- Signal (Ampl:Single-tt:Single-a:Single-x:Single-у:Single-ay:Single):Sin gle-function Sign (z:Single):Integer- function Fi (ul:Single-u:Single):Single- function
- SSFuncR (Ampl:Single-n:Integer-a:Single-OTR:Single-x:Single-у:Single-LL :Integer-ay:Single-t:Single):Single- function
- SFuncR (Ampl:Single-n:Integer-a:Single-OTR:Single-x:Single-у:Single-LL: Integer-ay:Single-t:Single):Single- function
- SFuncRl (Ampl:Single-n:Integer-a:Single-OTR:Single-x:Single-у:Single-LL :Integer-ay:Single-t:Single):Single- public
- Public declarations } end-var1. Gaus: TGaus- const
- C:Single=l- D: Single=0.01-
- WB:Single=45 000- // Ширина полосы АЧХ
- WS:Integer=5- // Ширина сигнала и спектра, измеряется, а количесве аimplementation uses
- UnModelPr, UnModelSinus, UnPrint- {$R *.dfm}procedure TGaus. ButtonlClick (Sender: TObject) — vark, n, l, m, RS, KTI, LL, Nac, Nacy: Integer-
- OtchetRe, OtchetGausRe, OtchetReKorr: array of Single- DifErrorRe, DifErrorGausRe, DifErrorReKorr: array of Single- SSOtchetRe, SSOtchetGausRe, SOtchetRe, SOtchetGausRe: array of array of Single-
- Установка размеров массивов
- SetLength (DifErrorRe, KTI+1) — SetLength (DifErrorGausRe, KTI+1) — SetLength (DifErrorReKorr, KTI+1) — SetLength (OtchetReKorr, KTI+1) — SetLength (FreqMeas, KTI+1) —
- SetLength (mtOl, KTI+1) — SetLength (mt02,KTI+1) — SetLength (OtchetRe, KTI+1) —
- SetLength (SOtchetRe, KTI+1) — SetLength (SOtchetRel, KTI+1) — SetLength (SSOtchetRe, KTI+1) — SetLength (OtchetGausRe, KTI+1) —
- SetLength (SOtchetGausRe, KTI+1) — SetLength (SOtchetGausRel, KTI+1) — SetLength (SSOtchetGausRe, KTI+1) — for n:=Nac to KTI do begin
- SetLength (SOtchetRen., LL+1) — SetLength (SOtchetRel[n], LL+1) — SetLength (SSOtchetRe[n], LL+1) —
- SetLength (SOtchetGausRen., LL+1) — SetLength (SOtchetGausRel[n], LL+1) —
- SetLength (SSOtchetGausRen., LL+1)-end-
- Нахождение начальной точки измерений NacV:=int (2*WS/(a*OTR))+1- Nac:=NacV-
- NacyV:=int (2*WS/(a*y*OTR))+1- Nacy:=NacyV- if Nacy>Nac then Nac:=Nacy else Nac:=Nac-if y
- OtchetRen.:=0- for m:=0 to LL-1 do begint:=-WS*ay+(ш+0.5)*2*WS*ay/LL-
- OtchetGausRen.:=0- for m:=0 to LL-1 do begint: =-WS*ay+(m+0.5)*2*WS*ay/LL-
- SSOtchetGausRen, m.:=SSFuncR (Ampl, n, a, OTR, 0, y, LL, by, t) — SOtchetGausRe[n, m]: =SFuncR (Ampl, n, a, OTR, 0, y, LL, by, t) — SOtchetGausRel[n, m]: =SFuncRl (Ampl, n, a, OTR, 0, y, LL, by, t) —
- SSOtchetGausRen, m.:=sqrt (sqr (SOtchetGausRe[n, m])+sqr (SOtchetGausRel [n, m])) —
- OtchetGausRen.: =OtchetGausRe[n]+SSOtchetGausRe[n, m]*2*WS*ay/LL- end- end-
- FreqMeasn.:=(abs (Fi (SFuncRl (Ampl, n, a, OTR, x, y, LL, by, mtOl[n]), SFuncR (Am pi, n, a, OTR, x, y, LL, by, mt01[n])))+abs (Fi (SFuncRl (Ampl, n, a, OTR, x, y, LL, by, mt02[n]), SFuncR (Ampl, n, a, OTR, x, у, LL, by, mt02[n]))))/(mtOl[n]-mt02[n])-end-
- Нормировка полученных отсчетов АЧХfor n:=Nac to KTI do beginif (Spectr (Ampl, FreqMeasn., n, a, OTR, x, y)<>0) then OtchetReKorr[n]
- OtchetRen./Spectr (Ampl, FreqMeas[n], n, a, OTR, x, y) —
- OtchetRen.:=OtchetRe[n]/Ampl-
- OtchetGausRen.:=OtchetGausRe[n]/Ampl-end-
- Вычисление дифференциальной ошибки измерений АЧХfor n:=Nac to KTI do begin1. Freq:=n*OTR-
- DifErrorRen.:=abs (AFH (Freq)-OtchetRe[n]) — DifErrorGausRe[n]: =abs (AFH (Freq)-OtchetGausRe[n]) — DifErrorReKorr[n]: =abs (AFH (FreqMeas[n])-OtchetReKorr[n]) end-
- RSV:=int (KT1/80*61.0) — RS:=RSV-mmOutput.Lines.Add ('Частота = '+FloatToStr (RS*OTR))-mmOutput.Lines.Add ('Частота измерений = 1+FloatToStr (FreqMeasRS.)) — for k:=0 to 45 000 do
- ChAFH.SeriesList0.AddXY (k, AFH (k*WB/45 000),'', clRed) — //for k:=0 to 8000 do
- ChAFH.SeriesList1.AddXY (k, Spectr (Ampl, k*WB/8000,RS, a, OTR, x, y),'', clG reen)-for k:=0 to 8000 do
- ChAFH.SeriesList2.AddXY (k, Measure (Ampl, k*WB/800 0, RS, a, OTR, x, y),'', cl Yellow)-for m:=0 to LL do
- ChSignal.SeriesList0.AddXY (m, SSOtchetRe[RS, m], ' ', clRed) — for m:=0 to LL do ChSignal. SeriesList1.AddXY (m, Signal (Ampl,-WS*ay+(m+0.5)*2*WS*ay/LL, a, x, y, ay),'', clGreen)-for k:=Nac to KTI do
- ChAFHmeasuredl.SeriesList0.AddXY (k*0TR, OtchetRe[k], '', clRed) — for k:=Nac to KTI do
- ChAFHmeasured2.SeriesList0.AddXY (k*OTR, OtchetGausRe[k],'', clRed) — for k:=Nac to KTI do
- ChAFHmeasured3.SeriesList0.AddXY (FreqMeas[k], OtchetReKorr[k],'', clR ed) -for k:=Nac to KTI do
- ChError.SeriesList0.AddXY (k*OTR, DifErrorRe[k],'', clRed) — for k:=Nac to KTI do
- ChError.SeriesList1.AddXY (k*OTR, DifErrorGausRek.,'', clGreen) — for k:=Nac to KTI do
- ChError.SeriesList2.AddXY (FreqMeas[k], DifErrorReKorr[k],'', clYellow)
- DeleteFile ('D:GraficsFilel.bmp') —
- DeleteFile ('D:GraficsFile2.bmp') —
- DeleteFile ('D:GraficsFile3.bmp') —
- DeleteFile ('D:GraficsFile4.bmp') —
- DeleteFile ('D:GraficsFile5.bmp') —
- ChAFH.SaveToBitmapFile ('D:GraficsFilel.bmp') —
- ChAFHmeasuredl.SaveToBitmapFile ('D:GraficsFile2.bmp') —
- ChAFHmeasured2.SaveToBitmapFile ('D:GraficsFile3.bmp') —
- ChAFHmeasured3.SaveToBitmapFile ('D:GraficsFile4.bmp') —
- ChError.SaveToBitmapFile ('D:GraficsFile5.bmp') —
- DeleteFile ('D:GraficsFileName.txt') — AssignFile (FileName,'D:GraficsFileName.txt') — Rewrite (FileName) —
- WriteLn (FileName,'Измерение АЧХ гауссовским импульсом') —
- WriteLn (FileName,'Амплитуда сигнала = ', Ampl:3:l) —
- WriteLn (FileName,'Параметр x = ', x:3:2) —
- WriteLn (FileName,'Параметр у = ', у:3:2) —
- WriteLn (FileName,'Количество точек измерения = ', KTI) —
- WriteLn (FileName,'Количество точек разбиения для интегрирования =1.) —
- WriteLn (FileName,'Начальная точка измерений = ', Nac,' * ', OTR:3:3,' кГц ') —
- WriteLn (FileName,'Ширина полосы АЧХ = ', WB:3:3,' кГц ') — WriteLn (FileName,'Ширина импульса, а = ', а:3:3) — WriteLn (FileName,'Частота = ', RS*OTR:3:3) —
- TGaus.Spectr (Ampl:Single-w:Single-m:Integer-a:Single-OTR:Single-x:Single-y:Single):Single-begin
- Result:=Ampl*(exp (-(w-m*OTR)*(w-m*OTR)*a*a/2)-x*exp (-(w-m*OTR)*(wm*0TR)*a*y*a*y/2))/(1-х)-end-function
- TGaus.Measure (Ampl:Single-w:Single-m:Integer-a:Single-OTR:Single-x:Single-y:Single):Single-begin
- Result:=AFH (w)*Spectr (Ampl, w, m, a, OTR, x, y) — end-function
- TGaus.SSFuncR (Ampl:Single-n:Integer-a:Single-OTR:Single-x:Single-у:Sin gle-LL:Integer-ay:Single-t:Single):Single- var1: Integer- Otchet: Single- Freq: Single-begin1. Otchet:=0-for 1:=0 to LL-1 dobegin
- Freq:=n*0TR-WS/ay+(1+0.5)*2*WS/ay/LL-
- Otchet:=Otchet+Measure (Ampl, Freq, n, a, OTR, x, y)*cos ((Freqn*0TR)*t)*2*WS/ay/LL/(2*pi)-end-1. Result:= Otchet- end-function
- TGaus.SFuncR (Ampl:Single-n:Integer-a:Single-OTR:Single-x:Single-у:Sing le-LL:Integer-ay:Single-t:Single):Single- var1: Integer- Otchet: Single- Freq: Single- begin Otchet:=0- for 1:=0 to LL-1 do begin
- Freq:=n*0TR-WS/ay+(1+0.5)*2*WS/ay/LL-
- Otchet:=Otchet+Measure (Ampl, Freq, n, a, OTR, x, y)*cos (Freq*t)*2*WS/ay/LL/(2*pi) — end-1. Result:= Otchet- end-function
- TGaus.SFuncRl (Ampl:Single-n:Integer-a:Single-OTR:Single-x:Single-у:Sin gle-LL:Integer-ay:Single-t:Single):Single- var1: Integer- Otchet: Single- Freq: Single- begin Otchet:=0- for 1:=0 to LL-1 do begin
- Freq:=n*0TR-WS/ay+(1+0.5)*2*WS/ay/LL-
- Otchet:=Otchet+Measure (Ampl, Freq, n, a, OTR, x, y)*sin (Freq*t)*2*WS/ay/LL/(2*pi) — end-1. Result:= Otchet- end-function
- QRMemol.Lines.Assign (mmOutput.Lines) —
- WordApp:=CreateOleObject ('Word.Application') — WordApp.Documents.Add-
- WordApp.Selection.InsertFile ('D:GraficsFileName.txt','', False, False, False) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture (1D:GraficsFilel.bmp', False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture ('D:GraficsFile2.bmp', False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture ('D:GraficsFile3.bmp1,False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture ('D:GraficsFile4.bmp', False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp .Selection.InlineShapes.AddPicture ('D:GraficsFile5.bmp', False, True) —
- WordApp.Visible:=True- WordApp.Selection.WholeStory-
- WordApp.Selection.Font.Name:='Times New Roman'-
- WordApp.Selection.Font.Size:=12-end-end.unit UnModelSinus- interface uses
- Windows, Messages, SysUtils, Variants, Forms,
- Dialogs, Buttons, StdCtrls, TeEngine, Chart, 1. Math, Comobj-type
- RadioButtonl: TRadioButton- RadioButton2: TRadioButton- RadioButton3: TRadioButton- EdT2: TEdit-
- Private declarations } function AFH (w:Single):Single-function Spectr (w:Single -m:Integer-T:Single-OTR:S ingle) :S ingle- function Measure (w:Single-m:Integer-T:Single-OTR:Single):Single- function Signal (tt:Single-T:Single):Single- public
- Classes, Graphics, Controls, Series, ExtCtrls, TeeProcs,
- Public declarations } end-var1. Sinus: TSinus-const
- C:Single=l- D: Single=0.01-
- WB:Single=4 5000- // Ширина полосы АЧХimplementation uses
- UnModelGaus, UnModelPr, UnPrint- {$R *.dfm}procedure TSinus. ButtonlClick (Sender: TObject) — vark, n, l, m, RS, KTI, minKTI, Nac, Nacl, Nac2, LL, WIH: Integer-
- DifErrorl, DifError2: array of Single-
- Otchetl, Otchet2: array of Single-
- SOtchetl, SOtchet2: array of array of Single-x, Pll, P12, T1, T2,OTR, t, Freq: Single-
- NacVl, NacV2, RSV, KTIV: Variant-
- T1: =StrToFloat (EdTl.Text) — // Tay, Длительность синусквадратичного измерительного импульсаminKTI:=StrToInt (EdKTI.Text) — // Минимальное количество точек измерения
- Т2 :=StrToFloat (EdT2.Text)-1.:=StrToInt (EdLL.Text) — // Количество точек разбиения для интегрирования результата умножения
- KTIV:=int (WB*T2/(2*pi)) — KTI:=KTIV- OTR:=WB/KTIV-mmOutput.Lines.Add ('Количество точек измерения= '+IntToStr (KTI)) — end-if RadioButton3. Checked then begin
- KTI:=minKTI- OTR:=WB/KTI- end-1. Nac:=0-
- SetLength (DifErrorl, KTI+1) — SetLength (DifError2,KTI+1)-1. SetLength (Otchetl, KTI+1)-1. SetLength (Otchet2,KTI+1) —
- SetLength (SOtchetl, KTI+1) —
- SetLength (SOtchet2,KTI+1)-for n:=Nac to KTI dobegin
- SetLength (SOtchetln., LL+1) — SetLength (SOtchet2[n], LL+1) — end-1. RSV:=int (KTI/2) — RS:=RSV-1. Вычисление отсчетов АЧХfor n:=Nac to KTI do begin
- Otchetln.:=0- for m:=0 to LL dobegin
- SOtchetln, m.:=0- t:=-Tl/2+(m+0.5)*T1/LL- SOtchetRl:=0- SOtchetll:=0- for 1:=0 to LL do beginx:=n*OTR-WIH*pi/Tl+(1+0.5)*WIH*2*pi/Tl/LL-
- SOtchetRl:=SOtchetRl+Measure (x, n, Tl, OTR)*(cos (x*t))*WIH*2*pi/Tl/LL/(2* pi) —
- SOtchetll:=SOtchetIl+Measure (x, n, Tl, OTR)*(sin (x*t))*WIH*2*pi/Tl/LL/(2* pi) — end-
- SOtchetln, m.:=Sqrt (Sqr (SOtchetRl)+Sqr (SOtchetll)) — Otchetl[n] :=Otchetl[n]+SOtchetl[n, m] *T1/LL- end- end-for n:=Nac to KTI do begin
- Otchet2n.:=0- for m:=0 to LL do begin
- S0tchet2n, m.:=0- t:=-T2/2+(m+0.5)*T2/LL- SOtchetR2:=0- SOtchetI2:=0- for 1:=0 to LL do beginx:=n*0TR-WIH*pi/T2+(1+0.5)*WIH*2*pi/T2/LL-
- SOtchetR2:=SOtchetR2+Measure (x, n, T2,OTR)*(cos (x*t))*WIH*2*pi/T2/LL/(2* pi) —
- S0tchetI2:=SOtchetl2+Measure (x, n, T2,OTR)*(sin (x*t))*WIH*2*pi/T2/LL/(2* pi) — end-
- S0tchet2n, m.:=Sqrt (Sqr (S0tchetR2)+Sqr (S0tchetI2)) — 0tchet2[n]: =0tchet2[n]+S0tchet2[n, m]*T2/LL- end- end-for n:=Nac to KTI do 0tchet2n.:=(Otchetl[n]-0.2*Otchet2[n])/0.8-
- Вычисление дифференциальной ошибки измерений АЧХfor n:=Nac to KTI do begin1. Freq:=n*OTR-
- DifErrorln.:=abs (AFH (Freq)-Otchetl[n]) — DifError2[n]: =abs (AFH (Freq)-0tchet2[n]) — end-
- Вывод результатов for k:=0 to 45 000 do
- ChAFH.SeriesList0.AddXY (k, AFH (k*WB/45 000),'', clRed)-for к:=0 to 45 000 do
- ChAFH.SeriesList1.AddXY (k, Spectr (k*WB/45 000,RS, T1, OTR),'1,clGreen)-for m:=0 to LL do ChPr. SeriesList0.AddXY (m, SOtchetl[RS, m],'1,clRed) — for m:=0 to LL do ChPr. SeriesList1.AddXY (m, Signal (-T½+(m+0.5)*T1/LL, T1),'', clGreen)-for к:=Nac to KTI do
- ChAFHmeasuredl.SeriesList0.AddXY (k*OTR, Otchetl[k], 11, clRed) — for к:=Nac to KTI do
- ChAFHmeasured2.SeriesList0.AddXY (k*OTR, Otchet2[k], 11, clRed) — for к:=Nac to KTI do
- ChError.SeriesList0.AddXY (k*OTR, DifErrorl[k],'', clRed) — for к:=Nac to KTI do
- ChError.SeriesList1. .AddXY (k*OTR, DifError2k., ' ', clGreen) —
- DeleteFile ('D:GraficsFilel.bmp1) —
- DeleteFile (1D:GraficsFile2.bmp1) —
- DeleteFile ('D:GraficsFile3.bmp') —
- DeleteFile (1D:GraficsFile4.bmp1) —
- DeleteFile ('D:GraficsFile5.bmp1) —
- ChAFH.SaveToBitmapFile ('D:GraficsFilel.bmp1) —
- ChAFHmeasuredl.SaveToBitmapFile ('D:GraficsFile2.bmp') —
- ChAFHmeasured2.SaveToBitmapFile ('D:GraficsFile3.bmp') —
- ChError.SaveToBitmapFile ('D:GraficsFile5.bmp1) —
- DeleteFile ('D:GraficsFileName.txt1) — AssignFile (FileName, 1D: GraficsFileName. txt1) — Rewrite (FileName) —
- WriteLn (FileName, 1 Измерение АЧХ синусквадратичным импульсом') — WriteLn (FileName,'Длительность синусквадратичного измерительного импульса 1 = ', Т1:3:2,' мс ') —
- WriteLn (FileName,'Длительность синусквадратичного измерительного импульса 2 = ', Т2:3:2,' мс ') —
- WriteLn (FileName,'Количество точек измерения = ', minKTI) — WriteLn (FileName,'Количество точек разбиения для интегрирования: ' ! LL) —
- TSinus.Measure (w:Single-m:Integer-T:Single-OTR:Single):Single- begin
- Result:=AFH (w)*Spectr (w, m, T, OTR) — end-function TSinus. Signal (tt:Single-T:Single):Single- beginif (tt>-T/2) and (tt
- QRMemol.Lines.Assign (mmOutput.Lines) —
- WordApp:=Create01e0bject ('Word.Application 1) — WordApp.Documents.Add-
- WordApp.Selection.InsertFile ('D:GraficsFileName.txt', 1', False, False, False) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture ('D:GraficsFilel.bmp1,False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture (' D: GraficsFile2. bmp', False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture (1D:GraficsFile3.bmp1,False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture ('D:GraficsFile5.bmp', False, True) —
- WordApp.Visible:=True- WordApp.Selection.WholeStory-
- WordApp.Selection.Font.Name: =1 Times New Roman1-
- WordApp.Selection.Font.Size:=12-end-end.unit UnModelPr-interfaceuses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fo rms,
- Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Math, 1. Buttons, Comobj-type
- Private declarations } function AFH (w:Single):Single-function Spectr (w:Single-m:Integer-T:Single-OTR:Single):Single- function Measure (w:Single-m:Integer-T:Single-OTR:Single):Single- function Signal (tt:Single-T:Single):Single- public
- Public declarations } end-var1. Priam: TPriam- const
- С:Single=l- D: Single=0.01-
- WB:Single=45 000- // Ширина полосы АЧХimplementation uses
- UnModelGaus, UnModelSinus, UnPrint- {$R *.dfm}procedure TPriam. ButtonlClick (Sender: TObject) — varк, n,1,m, RS, KTI, minKTI, Nac, Nacl, Nac2, LL, WIH: Integer-
- DifErrorl, DifError2: array of Single-
- Otchetl, Otchet2: array of Single-
- SOtchetl, SOtchet2: array of array of Single-x, Pll, P12, Tl, T2, OTR, t, Freq: Single-
- NacVl, NacV2, RSV, KTIV: Variant-
- Tl:=StrToFloat (EdTl.Text) — // Tay, Длительность прямоугольного измерительного импульсаminKTI:=StrToInt (EdKTI.Text) — // Минимальное количество точек измерения
- Т2:=StrToFloat (EdT2.Text)-1.:=StrToInt (EdLL.Text) — // Количество точек разбиения для интегрирования результата умножения
- KTIV:=int (WB*T2/(2*pi)) — KTI:=KTIV- OTR:=WB/KTIV-mmOutput.Lines.Add ('Количество точек измерения= '+IntToStr (KTI)) — end-if RadioButton3. Checked then begin
- KTI:=minKTI- OTR:=WB/KTI- end-
- SetLength (DifErrorl, KTI+1) — SetLength (DifError2,KTI+1)-1. SetLength (Otchetl, KTI+1)-1. SetLength (Otchet2,KTI+1) —
- SetLength (SOtchetl, KTI+1) —
- SetLength (SOtchet2,KTI+1)-for n:=Nac to KTI dobegin
- SetLength (SOtchetln., LL+1) — SetLength (SOtchet2[n], LL+1) — end-1. RSV:=int (KTI/2) — RS:=RSV-1. Вычисление отсчетов АЧХfor n:=Nac to KTI do begin
- Otchetln.:=0- for m:=0 to LL do begin
- SOtchetln, m.:=0- t:=-Tl/2+(m+0.5)*T1/LL- SOtchetRl:=0- SOtchetll:=0- for 1:=0 to LL do beginx:=n*OTR-WIH*pi/Т1+(1+0.5)*WIH*2*pi/Tl/LL-
- SOtchetRl:=SOtchetRl+Measure (x, n, Tl, OTR)*(cos (x*t))*WIH*2*pi/Tl/LL/(2* pi) —
- SOtchetll:=SOtchetIl+Measure (x, n, Tl, OTR)*(sin (x*t))*WIH*2*pi/Tl/LL/(2* pi) — end-
- SOtchetln, m. :=Sqrt (Sqr (SOtchetRl)+Sqr (SOtchetll)) — Otchetl[n]: =Otchetl[n]+SOtchetl[n, m]*T1/LL- end- end-for n:=Nac to KTI do begin
- Otchet2n.:=0- for m:=0 to LL do begin
- SOtchet2n, m.:=0- t:=-T2/2+(m+0.5)*T2/LL- SOtchetR2:=0- SOtchetI2:=0- for 1:=0 to LL do beginx:=n*OTR-WIH*pi/T2+(1+0.5)*WIH*2*pi/T2/LL-
- SOtchetR2:=SOtchetR2+Measure (x, n, T2, OTR)*(cos (x*t))*WIH*2*pi/T2/LL/ (2* pi) —
- SOtchetl2:=SOtchetI2+Measure (x, n, T2,OTR)*(sin (x*t))*WIH*2*pi/T2/LL/(2* pi) — end-
- SOtchet2n, m.:=Sqrt (Sqr (SOtchetR2)+Sqr (S0tchetl2)) — Otchet2[n]: =Otchet2[n]+SOtchet2[n, m]*T2/LL- end- end-for n:=Nac to KTI do Otchet2n.:=(Otchetl[n]-0.2*Otchet2[n])/0.8-
- Вычисление дифференциальной ошибки измерений АЧХfor n:=Nac to KTI do begin1. Freq:=n*OTR-
- DifErrorln.:=abs (AFH (Freq)-Otchetl[n]) — DifError2[n]: =abs (AFH (Freq)-Otchet2[n]) — end-
- Вывод результатов for к:=0 to 45 000 do
- ChAFH.SeriesList0.AddXY (k, AFH (k*WB/45 000),'', clRed) — for к:=0 to 45 000 do
- ChAFH.SeriesList1. .AddXY (k, Spectr (k*WB/4 5000,RS, Tl, OTR), ' ', clGreen)-for m:=0 to LL do ChPr. SeriesList0.AddXY (m, SOtchetl[RS, m],'', clRed) — for m:=0 to LL do ChPr. SeriesList1.AddXY (m, Signal (-T½+(m+0.5)*T1/LL, T1),'', clGreen)-for k:=Nac to KTI do
- ChAFHmeasuredl.SeriesList0.AddXY (k*OTR, Otchetl[k], ' ', clRed) — for к:=Nac to KTI do
- ChAFHmeasured2.SeriesList0.AddXY (k*OTR, Otchet2[k], 1', clRed) — for k:=Nac to KTI do
- ChError.SeriesList0.AddXY (k*OTR, DifErrorl[k],'', clRed) — for к:=Nac to KTI do
- ChError.SeriesList1.AddXY (k*OTR, DifError2k., 1', clGreen) —
- DeleteFile ('D:GraficsFilel.bmp') —
- DeleteFile ('D:GraficsFile2.bmp1) —
- DeleteFile ('D:GraficsFile3.bmp') —
- DeleteFile (1D:GraficsFile4.bmp') —
- DeleteFile ('D:GraficsFile5.bmp') —
- ChAFH.SaveToBitmapFile ('D:GraficsFilel.bmp') —
- ChAFHmeasuredl.SaveToBitmapFile ('D:GraficsFile2.bmp') —
- ChAFHmeasured2.SaveToBitmapFile ('D:GraficsFile3.bmp') —
- ChError.SaveToBitmapFile ('D:GraficsFile5.bmp') —
- DeleteFile ('D:GraficsFileName.txt') — AssignFile (FileName,'D:GraficsFileName.txt') — Rewrite (FileName) —
- WriteLn (FileName,'Измерение АЧХ прямоугольным импульсом') —
- WriteLn (FileName,'Длительность прямоугольного измерительного импульса1 = ', Т1:3:2,' мс ') —
- WriteLn (FileName,'Длительность прямоугольного измерительного импульса2 = ', Т2:3:2,' мс ') —
- WriteLn (FileName,'Количество точек измерения = ', minKTI) — WriteLn (FileName,'Количество точек разбиения для интегрирования = '/LL) —
- Result:=(1/T)*T*sin ((w-m*OTR+0.1)*T/2)/((w-m*OTR+0.1)*T/2) else Result:~(l/T)*T*sin ((w-m*OTR)*T/2)/((w-m*OTR)*T/2) — //mmOutput.Lines.Add ('w: 1+FloatToStr (w)+' m: '+IntToStr (m)+' Result: 1+FloatToStr (Result)) — end-function
- TPriam.Measure (w:Single-m:Integer-T:Single-OTR:Single):Single- begin
- QRMemol.Lines.Assign (mmOutput.Lines) —
- WordApp:=Create01e0bject ('Word.Application1) — WordApp.Documents.Add-
- WordApp.Selection.InsertFile (1D:GraficsFileName.txt','', False, False, False) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture ('D:GraficsFilel.bmp', False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture (1D:GraficsFile2.bmp', False, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selecti on.InlineShapes.AddPicture ('D:GraficsFile3.bmp', Fa1se, True) —
- WordApp.Selection.TypeParagraph-
- WordApp.Selection.InlineShapes.AddPicture (1D:GraficsFile5.bmp', False, True) —
- WordApp.Visible:=True- WordApp.Selection.WholeStory-
- WordApp.Selection.Font.Name: = 1 Times New Roman'-
- WordApp.Selection.Font.Size:=12-end-end.unit UnPrint-interfaceuses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, QRCtrls, TeeProcs, TeEngine, Chart, DbChart, QRTEE, QuickRpt, 1. ExtCtrls, Series-type
- Private declarations } public
- Public declarations } end-var
- Forml: TForml- implementation {$R *.dfm} end.
- Измерение АЧХ гауссовским импульсом1. Амплитуда сигнала = 1.01. Параметр х = 0.601. Параметр у 1.20
- Количество точек измерения = 450
- Количество точек разбиения для интегрирования = 40
- Начальная точка измерений = 1 * 100.000 кГц
- Ширина полосы АЧХ = 45 000.000 кГц1. Ширина импульса, а = 0.3771. Частота = 34 300.000
- Частота измерений = 34 300.0001. Амплитуда сигнала =1.01. Параметр х = 0.701. Параметр у = 1.15
- Количество точек измерения = 450
- Количество точек разбиения для интегрирования = 40
- Начальная точка измерений = 1 * 100.000 кГц
- Ширина полосы АЧХ = 45 000.000 кГц1. Ширина импульса, а = 0.3981. Частота = 34 300.000
- Частота измерений = 34 300.000к.:-?-fг^:=д^"ifbi^i--'n^ntti. i -«» I. i
- Измерение АЧХ синусквадратичным импульсом
- Длительность синусквадратичного измерительного импульса 1 = 50.00 мс
- Длительность синусквадратичного измерительного импульса 2 = 25.00 мс
- Количество точек измерения = 450 .
- Количество точек разбиения для интегрирования = 40
- Ширина импульсной характеристики =20
- Ширина полосы АЧХ = 45 000.000 кГц1.--------------------:-------1 Г53 234 853 532 353 239 585 914 880
- Измерение АЧХ прямоугольным импульсом
- Измерение АЧХ прямоугольным импульсом
- Длительность прямоугольного измерительного импульса 1 = 50.00 мс
- Длительность прямоугольного измерительного импульса 2 = 25.00 мс
- Количество точек измерения = 45 0
- Количество точек разбиения для интегрирования = 40
- Ширина импульсной характеристики = 20
- Ширина полосы АЧХ = 45 000.000 кГцг «г. -=5 :с: ' Г -рD 1 f v-g uj3 2s IJJ ="П гс Й50-г4С -ГО/tjij — i