авторефераты диссертаций БЕСПЛАТНАЯ БИБЛИОТЕКА РОССИИ

КОНФЕРЕНЦИИ, КНИГИ, ПОСОБИЯ, НАУЧНЫЕ ИЗДАНИЯ

<< ГЛАВНАЯ
АГРОИНЖЕНЕРИЯ
АСТРОНОМИЯ
БЕЗОПАСНОСТЬ
БИОЛОГИЯ
ЗЕМЛЯ
ИНФОРМАТИКА
ИСКУССТВОВЕДЕНИЕ
ИСТОРИЯ
КУЛЬТУРОЛОГИЯ
МАШИНОСТРОЕНИЕ
МЕДИЦИНА
МЕТАЛЛУРГИЯ
МЕХАНИКА
ПЕДАГОГИКА
ПОЛИТИКА
ПРИБОРОСТРОЕНИЕ
ПРОДОВОЛЬСТВИЕ
ПСИХОЛОГИЯ
РАДИОТЕХНИКА
СЕЛЬСКОЕ ХОЗЯЙСТВО
СОЦИОЛОГИЯ
СТРОИТЕЛЬСТВО
ТЕХНИЧЕСКИЕ НАУКИ
ТРАНСПОРТ
ФАРМАЦЕВТИКА
ФИЗИКА
ФИЗИОЛОГИЯ
ФИЛОЛОГИЯ
ФИЛОСОФИЯ
ХИМИЯ
ЭКОНОМИКА
ЭЛЕКТРОТЕХНИКА
ЭНЕРГЕТИКА
ЮРИСПРУДЕНЦИЯ
ЯЗЫКОЗНАНИЕ
РАЗНОЕ
КОНТАКТЫ


Pages:     | 1 | 2 ||

«Сурков, Денис Михайлович.    Помехоустойчивые методы идентификации информационно­измерительных и управляющих систем ...»

-- [ Страница 3 ] --

Практическая и научная нолезность результатов диссертационной работы Результаты, полученные в диссертационной работе позволяют повысить эффективность проведения НИР и ОКР при создании новых устройств и модернизации известных в КБ предприятий отрасли, повысить качественные результаты разработок.

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

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

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

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

Разработанная инженерная методика активной идентификации при высоком уровне помех может быть использована в других областях науки и техники для обработки зашумлённых сигналов.

Разработанный способ идентификации параметров излучающих и отражающих объектов с помощью испытательных сигналов, защищенный патентом РФ № 2254588, может быть использован в эхо- и радиолокации для прецизионного определения навигационных параметров объектов.

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

с п и с о к ЛИТЕРАТУРЫ 1. Андрианова Л. П, Моделирование испытательных сигналов в задачах активной идентификации объектов автоматизации / Л.П. Андрианова, Д.М.

Сурков // Материалы докладов второй Всероссийской научно - технической конференции «Теоретические и прикладные вопросы современных информационных технологий. Восточно - сибирский государственный технологический университет, Улан-Удэ, 2001г,, ее. 116-121 / ISBN 5-89230 112-5.

2. Электронный журнал «Исследовано в России» / МФТИ;

ред. Кудрявцев Н.Н., веб-мастер: Легеров Е.;

Испытательные сигналы специальной формы в задачах активной идентификации / Андрианова Л. П., Сурков Д. М. / режим доступа http://zhumal.gpi.ru/articles/2001/110r.html, свободный ;

- Заглавие с экрана. - Яз. рус.

3. Александровский Н. М., Дейч А. М. Методы определения динамических характеристик нелинейных объектов (обзор) // Автоматика и телемеханика, №1, 1968, с. 167-188.

4. Аналоговые коммутаторы. Схемотехника №6, 2001. с. 16 - 5. Андрианова Л. П., Шаймарданов Ф. А. Идентификация коэффициентов передаточных функций динамических объектов. Уфа: УГАТУ.-1997.

6. Андриевский Б. Р., Фрадков А. Л. Избранные главы теории автоматического управления с примерами в системе MatLab. СПб.: Наука, 1999.

7. Барабаш Ю. Л. Коллективные статистические решения при распознавании.-М.: Радио и связь, 1983.-224 с.

8. Бессонов А. А., Загашвили Ю. В., Маркелов А. С. Методы и средства идентификации динамических объектов. Л.: Энергоатомиздат, 1989, 280с.

9. Бор Н. Атомная физика и человеческое познание. /Пер. с англ. -М.: Мир, 1961.-151 с.

10. Васильев В. И. Распознающие системы: Справочник.-К.: Наукова думка, 1983.-230 с.

11. Витюк К. Т., Гриценко П. И. и др. Судовые электроустановки и их автоматизация. М., «Транспорт», 1977. 496 с.

12. Второе амплуа звуковой карты. Компьютерра, JNel 8-19, 1999г., с. 22-26.

13. Горелик А. Л., Скрипкин В. А. Методы распознавания. Изд. 2.-М.:

Высшая школа, 1984.-219 с.

14. Горошков Б. И. Элементы радио — электронных устройств. М.: «Радио и связь».-1988. с. 129-130.

15. Гроп Д. Методы идентификации систем. - М.: Мир, 1979. - 294 с.

16. Дейч А. М. Методы идентификации динамических объектов. М.:

Энергия, 1979.

17. Денисов A.M. Введение в теорию обратных задач. М.: Изд-во МГУ, 1994.

207 с.

18. Дмитриев А. Н., Егупов П. Д., Шершеналиев Ж. Ш. Спектральные методы анализа, синтеза и идентификации систем управления. -Фрунзе, Илим, 1986.

19. Дуда Р., Харт П. Распознавание образов и анализ сцен. /Пер. с англ.-М.:

Мир, 1978.-510 с.

20. Дьяконов В. П. Справочник по алгоритмам и программам на языке бейсик для персональных ЭВМ. М: «Паука», 1987. с. 137 - 138.

21. Дюк В. А. Компьютерпая психодиагностика.-СПб: Братство, 1994.-365 с.

22. Заездный А. М. Основы расчётов по статистической радиотехнике. М:

Связь 1969.

23. Иванов В. А., Чемоданов Б. К., Медведев В. С. Математические основы теории автоматического регулирования. М: «Высшая школа», 1971.

24. Келехсаев Б. Г. Нелинейные преобразователи и их применение. М.:

«Солон-Р». - 1999. с. 95 - 98.

25. Кузин Л. Т. Основы кибернетики: Основы кибернетических моделей.

Т.2.-М.: Энергия, 1979.-584 с.

26. Кузовков Н. Т., Карабанов В. А., Салычев О. С. Непрерывные и дискретные системы управления и методы идентификации. М.:

Машиностроение, 1978.

27. Лихачёв В. Д. Практические схемы на операционных усилителях. - М.:

ДОСААФ, 1981.-80с.,с.65.

28. Мирошник И. В., Никифоров В. О., Фрадков А. Л. Нелинейное и адаптивное управление сложными динамическими системами. СПб.: Наука, 2000.-548 с.

29. Музыкин С. Н., Родионова Ю. М. Моделирование динамических систем.

Ярославль: Верхне-Волж. книж. изд., 1984.

30. Музыкин С. Н., Родионова Ю. М. Моделирование нелинейных систем с использованием белошумовой идентификации. М.: Можайский полиграф, комбинат, 1999.-200 с.

31. Никитин О. Ю., Сорокин А. Ф., Томилин Ю. Г., Цюх А. М. «О возможности определения ориентационных характеристик космических объектов». Сборник трудов 5 - й Международной конференции «Системный анализ и управление космическими комплексами. Исследование и освоение космоса в наступающем веке». Евпатория, 2000, с. 32.

32. Нудельман П. Я. Полиномные синтезаторы частотных и временных характеристик. - М. : Связь, 1975. 128 с.

33. Опадчий Ю. Ф., Глудкин О. П., Гуров А. И. Аналоговая и цифровая электроника. М: «Радио и связь», 1996 г.

34. Острейховский В. А. Моделирование систем. - М.: Наука, 1997.

35. П. Хоровиц, У. Хилл. Искусство схемотехники. М.: «Мир».-1993. 1том. с.

146-149.

36. Перегудов Ф. И., Тарасенко Ф. П. Введение в системный анализ: Учебное пособие.-М.: Высшая щкола, 1997.-389 с.

37. Поспелов Г. С. Искусственный интеллект-основа новой информационной технологии. -М.: Наука, 1988. -280 с.

38. Пугачёв В. С, Козаков И. Е., Евланов Л. Г. Основы статистической теории автоматических систем. - М. : Мащиностроение, 1974.

39. Пупков К. А., Егупов Н. Д., Трофимов А. И. Статистические методы анализа, синтеза и идентификации систем автоматического управления. - М.

МГТУ им. Н. Э. Баумана, 1998.

40. Р. Стил. «Принципы дельта - модуляции», М., Связь, 1979.

41. Романов В.Г. Обратные задачи математической физики. М.: Наука, 1984.

261 с.

42. Ротач В. Я. Об адаптивных системах с текущей идентификацией объекта.

Автоматизация в промышленности. № 6, 2004 г.

43. Рязанов Ю. А. Проектирование систем автоматического регулирования. - е изд. М: «Машиностроение», 1967.

44. Самарский А. А., Михайлов А. П. Математическое моделирование: Идеи.

Методы. Примеры. М.: Физматлит, 1997.

45. Слуцкий В.З., Фогельсон Б.И., Левичев В.Г., Ягодин О.Г. Основы радиотехники и радиолокации. М., Воениздат, 1961, 356 с.

46. Смирнов Н. В, Дунин-Барковский И. В. Курс теории вероятностей и математической статистики для технических нриложений. М: Наука 1969.

47. Современные методы идентификации систем. / Под ред. П. Эйхскоффа. М.: Мир, 1983.

48. Современные методы нроектирования систем автоматического управления. П/р Петрова Б. Н., Солодовникова В. В., Тонгеева Ю. Н.;

М:

«Машиностроение», 1967.

49. Солодовников В. В. Статистическая динамика линейных систем автоматического управления. М.: Физматлит., 1960.

50. Справочник по радиолокации. Под. ред. М. Скольник. М., Советское радио. 1977. стр. 337-362.

51. Справочник по теории автоматического управления. / Под ред. А. А.

Красовского. М.: Физматлит, 1987.

52. Сурков Д. М. Идентификация объектов автоматизации / Д.М. Сурков // «Паука: Поиск 2003». Сб. науч. статей: Вып. 1, Астрахань 2003 г., ее. 334-336 / ISBN 5-89388-057-9.

53. Сю Д., Мейер А. Современная теория автоматического управления и её приложения. М.: Машиностроение, 1972.

54. Темников Ф. Е., Афонин В. А., Дмитриев В. И. Теоретические основы информационной техники.-М.: Энергия, 1979.-511 с.

55. Технические средства диагностирования. Снравочник: Клюев В. В., Пархоменко П. П. и др. - М.: Машиностроение, 1989.-672 с.

56. Тихонов А. Н., Арсенин В. Я. Методы решения некорректных задач.-М.:

Наука, 1986.-287 с.

57. Ту Дж., Гонсалес Р. Принцины раснознавания образов. /Пер. с англ.-М.:

Мир, 1978.-410 с.

58. Уинстон П. Искусственный интеллект. /Пер. с англ.-М.: Мир, 1980.-520 с.

59. Фу К. Структурные методы в раснознавании образов. /Пер. с англ. -М.:

Мир, 1977.-320С.

60. Хофман Д. Техника измерений и обеснечение качества. М:

Энергоатомиздат, 1983.470 с.

61. Цернер В., Андреа К. Задачи диагностики паровых турбин и система диагностики «Сименс». // Теплоэнергетика, 1993, J f 5, с. 65 - 73.

So 62. Цынкин Я. 3. Основы информационной теории идентификации. -М.:

Паука, 1984.-520 с.

63. Штыкин М. Д. Разработка программно - математического комплекса белошумовой идентификации динамических объектов в системах автоматизации технологических процессов. Дисс. канд. техн. наук. М.: МИП, 1992.

64. Эйксхофф П. Основы идентификации систем унравления. М.: Мир, 1979.

65. Эйксхофф П. Основы идентификации систем управления: оценивание параметров и состояния. М.: Мир, 1975.

64. Abry, Р., Ondelettes et turbulence. Multiresolution, algorithms de decomposition, invariance d'echelles. Diderot Editeur, Paris, 1997.

65. Berkner К,, Wells Jr., R. 0., A correlation-dependent model for denoising via nonorthogonal вэйвлет transforms, CML TR 98-07, Rice University, 1998.

66. Daubechies, I., Ten lectures on вэйвлeтs: CBMS-NFS Ser. Appl. Math., 1992.

67. Donoho D. L. De-noising by soft-thresholding, IEEE Trans. On Inform.

Theory, vol. 41(3): pp. 613-627, 1995.

68. Goldner, K.: Mathematische Grundlagen fur Regelungstechniker. 3. Aufl.

Leipzig: VEB Fachbuchverlag 1970.

69. Grigoriev R. O. Identification and Control of Symmetric System // Phys. Rev.

E57, 1550,1998.

70. Kntipfer, A.:Technic digitaler Rechenanlagen. Berlin: VEB Verlag Technik 1969.).

71. Lang, M., Guo, H., Odegard J. E., Burrus C. S., Wells Jr, R. O., Noise reduction using an undecimated discrete вэйвлет transform. IEEE Signal Processing Letters, 3: 10-12,1996.

72. Lange, F. H.: Signale und Systeme, Bd. L Spectrale Darstellung. 2. Aufl.

Berlin: VEB Verlang Technik 1975.

73. Lange, F. H.: Signale und Systeme, Bd. 3. Regellose Vorgange. 2. Aufl. Berlin:

VEB Verlang Technik 1973.

74. Ljung L. and T. Glad. Modeling of Dynamic Systems, Prentice Hall, Englewood Cliffs, N.J. 1994.

75. Ljung L. System Identification - Theory for the User. Prentice Hall, Upper Saddle River, N.J. 2nd edition, 1999.

76. Ljung L. System Identification Toolbox Usefs Guide. Computation.

Visualization. Programming. Version 5. The Math Works, Inc. 2000.

77. Mallat, S,, A theory for multiresolution signal decomposition: The вэйвлет representation: IEEE Trans. Patt. Anal. Machine Intel!., 11, 674-693,1989.

78. Oppenheim J. and A. S. Willsky. Signals and Systems, Prentice Hall, Englewood Cliffs, N. J. 1985.

79. Shensa, M. J., The discrete вэйвлет transform: wedding the a trous and Mallat algorithms. IEEE Trans. Sig. Proc, 40(10), 2464-2482,1992.

80. Soderstrom Т., Stoica P. System Identification. Prentice Hall International, London. 1989.

81. Пат. 98116599. Способ и устройство для определения траектории кабельной линии в кабелепроводной системе технической установки, а также используемый при этом детектор / Сименс Акциенгезелльшафт (DE). Опубл.

27.06.2000.

82. Нат. 2124711. Способ идентификации аэродинамических характеристик автоматически унравляемых летательных аппаратов по результатам лётных испытаний / Летно-исследовательский институт им. М. М. Громова. Опубл.

10.01.1999.

83. Пат. 97111851. Способ и система для тестирования цифрового канала связи с переменными или фиксированными скоростями передачи данных / Квэлкомм Инкорпорейтед (US). Опубл. 20.06.1999.

85. Пат. 2068576. Устройство для определения частотных характеристик звеньев динамических систем / Институт надежности машин АН Беларуси (BY). Опубл. 27.10.1996.

86. Пат. 94032213. Способ последовательной активной идентификации аэродинамических характеристик автоматически управляемых летательных аппаратов по результатам испытаний / Летно-исследовательский институт им.

М. М. Громова. Опубл. 27.06.1996.

87. Пат. 94006456. Способ определения метрологических характеристик АЦП с использованием аналогового тестового сигнала / Басий В.Т., Березовская Л.Б., Гофайзен О.В. Опубл. 20.08.1996.

88. Пат. 94006398. Способ определения характеристики ЦАП с использованием тестового сигнала / Басий В.Т., Березовская Л.Б., Гофайзен О.В. Опубл. 27.01.1996.

89. Пат. 2169940. Способ измерения передаточной функции / Пензенский технологический институт. Опубл. 27.06.2001.

90. Пат. 97107306. Способ определения коэффициентов передаточных функций линейных динамических объектов / Уфимский государственный авиационный технический университет. Опубл. 27.03. 1999.

91. Пат. 93028385. Идентификатор параметров объекта регулирования регулятором с известными параметрами / Куртис И. В. Опубл. 10.03.1997.

92. Пат. 2166789. Способ определения коэффициентов передаточных функций линейных динамических объектов / Гаринов Ф.Г., Юлдашбаев Ш.А.

Опубл. 10.05.2001.

93. Пат. 2125287. Способ определения коэффициентов передаточных функций линейных динамических объектов / Шаймарданов Ф.А., Андрианова Л.П., Гарипов Ф.Г. Опубл. 20.01.1999.

94. Пат. 99114636. Способ определения коэффициентов передаточных функций линейных динамических объектов / Гарипов Ф. Г. Юлдашбаев Ш. А.

Опубл. 20.05.2001.

95. Пат. J f 97105434. Снособ определения коэффициентов передаточных N u функций линейных динамических объектов и задатчик пробных сигналов для его осуществления / Шаймарданов Ф.А., Андрианова Л.П., Гарипов Ф.Г.

Опубл. 20.04.1999.

96. Пат. № 93026925. Идентификатор колебательности замкнутой системы / Куртнс И. В. (UA). Опубл. 10.03.1997.

97. Пат. 2002117591. Адаптивная система управления нестационарными объектами со связанными параметрами / Воронежская государственная технологическая академия. Опубл. 20.02.2004.

98. Пат. 2189622. Способ идентификации линейного объекта / Кемеровский государственный университет, Карташов В. Я. Опубл. 20.09.2002.

99. Пат. 2189621. Способ идентификации линейного объекта / Кемеровский государственный университет, Карташов В. Я. Опубл. 20.09.2002.

100. Пат. 2254588 Российская Федерация, МПК^ G 01 S 1/14. Способ прецизионного измерения навигационных параметров излучающих и отражающих объектов / Власенко В. П., Сорокин А. Ф., Сурков Д. М., заявитель и патентообладатель Астраханский гос. тех. ун-т. - №2003114850/09, заявл. 19.05.03, опубл. 20.06.05, Бюл. № 17.

101. Заявка 2006106473/22 МПК' G 05 В 23/00. Задатчик время-степенных пробных сигналов / Сурков Д. М., заявитель Астраханский гос. тех. ун-т.;

№ 2006106473/22/007009;

приоритет 01.03.06.

Приложение Характеристики платы аиалогового вывода ЛА-2ЦАПн15 для IBM PC AT/EISA Шина интерфейса с ПЭВМ ISA- Потребляемая мощность +5В - 700мА +12В-400мА -12В-450мА Каналы DMA 5,6, Линии прерывания 10,11,12, Цифро-аиалоговый канал Количество бит в вых. регистре ЦАП Время установления (0.025%) 25 не Выходное сопротивление (не более) 0.1 Ом Ток короткого замыкания в нагрузке О мА Время установления (0.025%) 100 не Скорость нарастания усилителей 300 В/мкс 2 независимых однополюсных канала:

Выходные диапазоны напряжений (-5,+5)В Суммарный ток нагрузки по двум каналам (не более) 50 мА Сигнал/шум 78 дБ Программно-управляемые фильтры нижних частот до 50 кГц ФНЧ для фиксированных частот 1 и 10 МГц Передача данных по ПДП, по прерыванию, программный Запуск ЦАП по таймеру, программный, внешний Счётчики/таймеры Количество каналов Разрядность счётчиков/таймеров Разрядность внешнего интерфейса Количество режимов Тип кода двоичный или двоично-десятичный Уровни и пороговые значения ТТЛ Задающая частота 8.25 МГц Приложение Приложение 2. Характеристики кодеков LM Кодек AD1819A CS4297-KQ TLC320AD90 TLC320AD Фирма Analog Devices Crystal National Texas Instruments Texas Instruments Semiconductor Semiconductor Параметр Min. Тур. Max. Min. Тур. Max. Min. Тур. Max. Min. Тур. Max. Min. Тур. Max.

16 18 16 Число разрядов Верхняя 0.4 0.4 0.4 0. (1) граничная частота/частота дискретизации Неравномерность -0.1 0. ±0.09 ±0.5 (2) (2) АЧХ, дБ АЦП: DR, дБ 84 87 85 90 75 80 85 А -взвешенный АЦП: THD, % 0.02 0. (2) АЦП: THD+N, - - ДБ АЦП: THD+N, % 0.004 0. ЦАП: DR, дБ 90 85 85 90 85 90 87 85 А-взвешенный ЦАП: THD, % 0.02 0.01 0.03 0.01 0.02 0. ЦАП: THD+N, - - дБ ПРР1МЕЧАПИЯ 1. Для LM4545 верхняя граничная частота по каналу АЦП составляет 20 кГц, а по каналу ЦАП — 21 кГц на уровне — 1дБ.

2. Отсутствие значения параметра в справочных данных предположительно означает его соответствие спецификации АС'97.

В соответствии со спецификацией АС'97 кодек должен обладать следующими характеристиками:

1. минимальная разрешающая способность АЦП и ЦАП — 16 разрядов, допустимы 18 и 20 разрядов;

2. динамический диапазон (отношение сигнал/шум SNR) с А - взвешиванием не менее 85 дБ;

3. верхняя граничная частота по уровню- ЗдБ не менее 17.64 кГц (0.4x44.1 кГц);

4. гармонические искажения + шум (THD+N) не хуже —65дБ;

5. неравномерность АЧХ не более +0.5 дБ.

Приложение unit Unitl;

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IntToWav, StdCtrls, Math, ExtCtrls, Spin;

type TForml = class(TForm) Buttonl: TButton;

Button2: TButton;

Button3: TButton;

Editl: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SaveDialogl: TSaveDialog;

Image1: TImage;

ComboBoxl: TComboBox;


Label4: TLabel;

SpinEditl: TSpinEdit;

Button4: TButton;

procedure ButtonlClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private { Private declarations } public { Public declarations ) end;

var Forml: TForml;

implementation uses Unit2;

{$R *.dfm) procedure TForml.ButtonlClick(Sender: TObject);

begin PlayWave('');

end;

procedure TForml.Button2Click(Sender: TObject);

var f:textfile;

i:integer;

A:Double;

T,n:integer;

begin savedialogl.Execute;

assignfile(f,savedialogl.FileName) ;

rewrite(f);

T:=strtoint(editl.Text)*strtoint(ComboBoxl.text);

A:=strtofloat(spineditl.Text) / 100;

n:=strtoint(edit3.Text);

writeln(f,ComboBoxl.text);

for i:=0 to T do begin writeln(f,FloatToStr(((A/Intpower(T,n)*intpower((T-i),n)))));

end;

closefile(f);

end;

procedure TForml.Button3Click(Sender: TObject);

begin MakeWaveC ' ) ;

end;

procedure TForml.Button4Click(Sender: TObject);

begin form2,show;

end;

end.

unit Unit2;

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;

type TForm2 = class(TForm) RichEditl: TRichEdit;

procedure FormRasize(Sender: TObject);

private { Private declarations } public { Public declarations } end;

var Form2: TForm2;

implementation {$R *.dfm} procedure TForm2.FormResize(Sender: TObject);

begin richeditl.Height:=form2,Height-28;

richeditl.Width:=form2.Width-9;

end;

end.

unit IntToWav;

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MMSystem, MPlayer;

type TIntToWavForm = class(TForm) ComboBoxl: TComboBox;

Labell: TLabel;

Editl: TEdit;

Label3: TLabel;

Button3: TButton;

SaveDialogl: TSaveDialog;

OpenDialogl: TOpenDialog;

Label2: TLabel;

MediaPlayerl: TMediaPlayer;

procedure Button3Click(Sender: TObject);

private public end;

procedure MakeWave(InFileName:String);

procedure PlayWave(WaveFileName:String);

procedure DoMakeWave(InFileName:String;

OutFileName:String;

FPS:LongInt);

var IntToWavForm: TIntToWavForm;

WaveFile: String;

implementation {$R *.dfm} procedure DoMakeWave(InFileName:String;

OutFileName:String;

FPS:LongInt);

var DataltemsN :LongInt;

TheRIFFSize :LongInt;

TheDataSize :LongInt;

InFile :TextFile;

OutFile :File;

TheBytesPerSecond :LongInt;

TheBlockAlign :Word;

i :LongInt;

StrSample :String;

TheSample :SmallInt;

//* зависит от BisPerSample !

TheSamplePerSecond:Longint;

const ThefmtSi2e:LongInt=16;

//* длина описания формата !

TheFormatTAG:Word=l;

//* тип: обычный PCM (=3 - IEEE Float) !

TheChannels:Word=l;

//количество каналов TheBitsPerSample:Word=16;

//bit Null:Char='x';

begin TheSamplePerSecond:=4 4100;

if FPS 0 then TheSamplePerSecond:=FPS;

TheBlockAlign:=TheBitsPerSample div 8;

TheBytesPerSecond:=TheSamplePerSecond*TheBlockAlign;

IntToWavForm.MediaPlayerl.Close;

AssignFile(InFile, InFileName);

Reset(InFile);

AssignFile(OutFile, OutFileName);

Rewrite(OutFile, 1 ) ;

DataItemsN:=O;

for i:=0 to 44 do BlockWrite(OutFile,Null, 1 ) ;

Seek(OutFile,44) ;

while not Eof(InFile) do begin Readln(InFile,StrSample);

if Trunc(StrToFloat(StrSample)) 2 then begin TheSample:=Trunc(32767*(StrToFloat(StrSample)));

BlockWrite(OutFile,TheSample,TheBlockAlign);

DataItemsN:=DataItemsN+l;

end;

end;

TheDataSize:=DataItemsN*TheBlockAlign;

TheRIFFsize:=TheDataSize+36;

Seek(OutFile,0);

BlockWrite(OutFile,'RIFF',4);

BlockWrite(OutFile,TheRIFFSize,4);

BlockWrite(OutFile,'WAVE',4);

BlockWrite(OutFile,'fmt ', 4 ) ;

BlockWrite(OutFile,ThefmtSize,4);

BlockWrite(OutFile,TheformatTAG,2);

BlockWrite(OutFile,TheChannels,2);

BlockWrite(OutFile,TheSamplePerSecond,4);

BlockWrite(OutFile,TheBytesPerSecond,4);

BlockWrite(OutFile,TheBlockAlign,2);

BlockWrite(OutFile,TheBitsPerSample,2);

BlockWrite(OutFile,'data',4);

BlockWrite(OutFile,TheDataSize,4);

CloseFile(OutFile);

CloseFile(InFile);

WaveFile:=OutFileName;

end;

procedure MakeWave(InFileName:String);

var OutFileName :String;

f :TextFile;

FrPSec :Integer;

FrPSecSt :String;

begin IntToWavForm.ComboBoxl.Visible:=True;

IntToWavForm.Button3.Visible:=True;

IntToWavForm.Label1.Visible:=True,• IntToWavForm.MediaPlayerl.Close;

IntToWavForm.Show;

if InFileName='' then begin IntToWavForm.OpenDialogl.Execute;

InFileName:=IntToWavForm.OpenDialogl.FileName;

end;

IntToWavForm.Label2.Caption:=InFileName;

OutFileName:=InFileName + '.wav';

IntToWavForm.Edit1.Text:=OutFileName;

IntToWavForm.SaveDialogl.Execute;

if IntToWavForm.SaveDialogl.FileName '' then IntToWavForm.Edit1.Text:=IntToWavForm.SaveDialogl.FileName;

AssignFile(f,InFileName);

Reset(f);

try ReadLn{f,FrPSecSt);

FrPSec:=StrToInt(FrPSecSt);

if FrPSec 1 then begin DoMakeWave(InFileName,OutFileName,FrPSec);

IntToWavForm.Hide;

end;

finally CloseFile{f);

end;

end;

procedure PlayWave(WaveFileName:String);

begin IntToWavForm.ComboBoxl.Visible:=False;

IntToWavForm.Button3.Visible:=False;

IntToWavForm.Label1.Visible:=False;

IntToWavForm.Show;

if WaveFileName='' then begin IntToWavForm.OpenDialogl.Execute;

WaveFileName:=IntToWavForm.OpenDialogl.FileName;

end;

IntToWavForm.MediaPlayerl.FileName:=WaveFileName;

IntToWavForm.MediaPlayerl.Open;

IntToWavForm.MediaPlayerl.Play;

IntToWavForm.hide;

end;

procedure TIntToWavForm.Button3Click(Sender: TObject);

begin DoMakeWave(IntToWavForm.Label2.Caption, IntToWavForm.Edit1.Text,StrToInt (IntToWav Form.ComboBoxl.Text));

IntToWavForm.hide;

end;

end.



Pages:     | 1 | 2 ||
 





 
© 2013 www.libed.ru - «Бесплатная библиотека научно-практических конференций»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.