Расчет теплового режима блока РЭС в перфорированном корпусе

Размещено на http://www.allbest.ru/

Министерство образования и науки Российской Федерации

ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)

Кафедра конструирования и производства радиоэлектронной аппаратуры (КИПР)

Курсовая работа

на тему: Расчет теплового режима блока РЭС в перфорированном корпусе

по дисциплине: «Информатика»

Студент: Вахидов Ж.Т.

Руководитель: Ю.П. Кобрин

Томск 2016

Реферат

Курсовая работа, 27 с., 6 рис., 1 таблица, 9 источников, 1 приложение

РАСЧЕТ ТЕПЛОВОГО РЕЖИМА БЛОКА РЭС В ПЕРФОРИРОВАННОМ КОРПУСЕ, Lazarus 1.6 (Free Pascal).

Целью курсовой работы является создание программы для расчёта теплового режима блока РЭС в перфорированном корпусе из анализа основных геометрических характеристик, суммарной мощности тепловыделения и условий эксплуатации по ГОСТ Р 7.0.5-2008.

В процессе работы была составлена программа в среде разработки Lazarus 1.6 (Free Pascal), с использованием диалогового окна. Программа очень удобна в использовании (рис 2.3).

Листинг программы приведен в Приложении.

Курсовая работа выполнена в текстовом редакторе Microsoft Word 2016.

тепловой электрический сеть мощность

СОДЕРЖАНИЕ

• ВВЕДЕНИЕ
• 1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
• 1.1 ВЛИЯНИЕ ТЕПЛОВОГО РЕЖИМА РЭС НА НАДЕЖНОСТЬ
• 1.2 МЕХАНИЗМЫ ТЕПЛООБМЕНА В РЭС
• 1.3 ВЫБОР СПОСОБА ОХЛАЖДЕНИЯ РЭС НА РАННЕЙ СТАДИИ КОНСТРУИРОВАНИЯ
• 1.4 ДЕМОНСТРАЦИЯ ПРОГРАММЫ
• 2. БЛОК-СХЕМА АЛГОРИТМА
• 3. ТЕСТОВЫЙ ПРИМЕР
• ЗАКЛЮЧЕНИЕ
• СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
• ПРИЛОЖЕНИЕ (ЛИСТИНГ ПРОГРАММЫ)

ВВЕДЕНИЕ

Целью курсовой работы является создание программы для расчёта теплового режима блока РЭС в перфорированном корпусе из анализа основных геометрических характеристик, суммарной мощности тепловыделения и условий эксплуатации по ГОСТ Р 7.0.5-2008.

Большинство радиотехнических устройств, потребляя от источников питания мощность, измеряемую десятками, а иногда и сотнями ватт, отдают полезной нагрузке от десятых долей до единиц ватт. Остальная электрическая энергия, подводимая к аппарату, превращаясь в тепловую, выделяется внутри аппарата. Температура нагрева аппарата оказывается выше температуры окружающей среды, в результате чего происходит процесс отдачи теплоты в окружающее пространство. Этот процесс идет тем интенсивнее, чем больше разность температур аппарата и окружающей среды. Специалисты в области создания новых радиоэлектронных аппаратов знают, что расчеты теплового режима аппаратов столь же необходимы, как и расчеты, связанные с функциональным назначением их. Интуитивные методы проектирования РЭС и в частности реализация нормального теплового режима складывались годами. Такой подход в настоящее время оказывается не в состоянии обеспечить выбор в исключительно сжатые сроки безошибочных, близких к оптимальным решений. Известно, что надежность элементов радиоэлектронной аппаратуры сильно зависит от температуры окружающей среды. Для каждого типа элемента в технических условиях указывается предельная температура, при превышении которой элемент нельзя эксплуатировать. Поэтому одна из важнейших задач конструктора радиоэлектронной аппаратуры состоит в том, чтобы обеспечить правильные тепловые режимы для каждого элемента. Целью данной курсовой работы является получение навыков теплового расчета на примере аппарата с перфорированным корпусом.

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

Методы разработки программы: аналитический расчет, программные средства Lazarus 1.6.

Курсовая работа выполнена с помощью программы: Lazarus 1.6.

Lazarus - открытая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal (часто используется сокращение FPC - Free Pascal Compiler, бесплатно распространяемый компилятор языка программирования Pascal).

- высокая производительность разработанного приложения;

- низкие требования разработанного приложения к ресурсам компьютера;

- наращиваемость за счет встраивания новых компонент и инструментов в среду Lazarus;

- возможность разработки новых компонентов и инструментов собственными средствами Lazarus (существующие компоненты и инструменты доступны в исходных кодах); - удачная проработка иерархии объектов.

1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ

1.1 ВЛИЯНИЕ ТЕПЛОВОГО РЕЖИМА РЭС НА НАДЕЖНОСТЬ

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

Расчет показателей надежности РЭС в рамках этой модели проводится по формулам:

, (2.1)

, (2.2)

где - интенсивность отказов i-го элемента;

n - число элементов в РЭС;

- интенсивность отказов i - го элемента в нормальных условиях эксплуатации; - коэффициенты, учитывающие влияние j - го фактора (температуры, давления, напряжения, силы тока и д.р.) на i - тый элемент; m - количество факторов.

Если учитывать влияние только температуры, то соотношение (2.2) можно записать в виде:

, (2.3)

где - коэффициент нагрузки;

- температура окружающей элемент среды, К;

b, c, d - некоторые коэффициенты.

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

Рис. 2.1 - Основные понятия теории теплообмена

Экспериментально полученные коэффициенты b, c, d для наиболее распространенных элементов в РЭС представлены в таблицеТаблица 2.1



Размещено на http://www.allbest.ru/

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

, (2.4)

где - интенсивность отказов

РЭС при нормальной температуре;

- средняя температура

воздуха в корпусе РЭС, К;

b - экспериментальный коэффициент



Размещено на http://www.allbest.ru/

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

1.2 МЕХАНИЗМЫ ТЕПЛООБМЕНА В РЭС

Перенос тепла внутри блока РЭС может происходить посредством трех различных механизмов: теплопроводности, конвекции и излучения.

Теплопроводность- передача тепла в твердых телах, вызванная разностью температур отдельных участков тела и осуществляющаяся с помощью электронов проводимости (в металлах) или за счет колебаний кристаллической решетки (в диэлектриках).

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

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

В конструкциях РЭС при нормальных климатических условиях и естественном охлаждении около 70 % тепла отводится за счет конвекции, приблизительно 20 % - за счет излучения и около 10 % - за счет теплопроводности.

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

При конвективном отводе тепла от РЭС используются теплоносители в различных фазовых состояниях, перемещение которых осуществляется естественным или принудительным образом. По этим признакам способы охлаждения РЭС можно разделить на следующие основные классы: газовое (воздушное), жидкостное, испарительное естественное или принудительное охлаждение.

Естественное воздушное охлаждение является наиболее простым, надежным и дешевым способом охлаждения РЭС, не требующим затрат дополнительной энергии. Однако интенсивность такого охлаждения невелика, поэтому он используется при небольших удельных мощностях рассеивания тепла q (). При естественном воздушном охлаждении конвективный обмен осуществляется между элементами РЭС и воздухом, причем воздух перемещается за счет тепловой энергии.

Принудительное воздушное охлаждение получило наибольшее распространение, так как при невысокой стоимости и относительной простоте обеспечивает нормальный тепловой режим при высоких удельных мощностях рассеивания. По некоторым данным до 95% выпускаемой аппаратуры используют этот способ охлаждения.

Различают три основные схемы принудительного воздушного охлаждения: внутреннее перемешивание (вентилятор установлен внутри герметичного кожуха), наружный обдув (обдувается герметичный кожух) и продувка (воздух из окружающей среды или предварительно охлажденный пропускается через специальные каналы и охлаждает непосредственно элементы РЭС).

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

Принудительное жидкостное охлаждение применяется при высоких удельных мощностях рассеивания. Наибольшее распространение этот способ получил при охлаждении больших элементов, когда однофазная жидкость прокачивается насосом через специальные каналы в охлаждаемых узлах приборов (электроды мощных ламп, трансформаторы). При отводе тепла от блоков жидкость прокачивается через каналы, выполненные в платах или кожухе аппарата.

Испарительное охлаждение (естественное или принудительное) позволяют отводить еще большие потоки тепла (). Охлаждаемый элемент или погружается в жидкость или жидкость прокачивается через специальные каналы, но, в отличие от жидкостного охлаждения, происходит интенсивный процесс преобразования.

1.3 ВЫБОР СПОСОБА ОХЛАЖДЕНИЯ РЭС НА РАННЕЙ СТАДИИ КОНСТРУИРОВАНИЯ

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

К числу необходимых сведений для проведения оценок относятся:

- суммарная мощность P, рассеиваемая в блоке;

- диапазон изменения температур окружающей среды;

- пределы изменения давления окружающей среды;

- время непрерывной работы;

- допустимые температуры элементов.

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

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

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

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

Нижняя часть диаграммы относится к блокам, а верхняя часть к отдельным элементам.

За основной показатель принимается величина плотности теплового потока q, проходящего через поверхность теплообмена ниже

, (2.5)

где - коэффициент заполнения внутреннего объема блока

электро-радиоэлементами, несущими конструкциями и элементами монтажа;

, - горизонтальные размеры блока, м;

- высота блока, м.

Коэффициент заполнения зависит от вида устройства, его назначения, объекта установки и т.д.

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

, (2.6)

где - суммарная тепловая мощность РЭС;

- коэффициент, учитывающий давление воздуха (при нормальном давлении =1)

Вторым показателем для выбора способов охлаждения служит минимально допустимый перегрев элементов РЭС

, (2.7)

где - допустимая температура корпуса наименее теплостойкого элемента конструкции;

- температура окружающей среды.

1.4 ДЕМОНСТРАЦИЯ ПРОГРАММЫ

На рисунке Рис. 2.4 представлена программа, как видно в программе есть поля для ввода исходных данных и отдельно записываются результаты со своими единицами измерения.

Размещено на http://www.allbest.ru/

Рис. 2.4 - Окно программы и основные её составляющие



Размещено на http://www.allbest.ru/

Рис. 2.5 - Окно программы `значение для элементов



Размещено на http://www.allbest.ru/

Рис. 2.6 - Окно Программы `Результаты Вычисления'

2. БЛОК-СХЕМА АЛГОРИТМА

3. ТЕСТОВЫЙ ПРИМЕР

Для проверки, расчеты были выполнены отдельно в среде Mathcad 3.1.

Так, как для РЭС выбран перфорированный корпус с расположением перфорации на задней части крышки корпуса, то все расчеты произведем для этого типа.

Исходные данные для расчета:

1. Габаритные размеры корпуса:

L=0.35 м, B=0.4 м, H=0.25 м.

2. Мощность, рассеиваемая в блоке: P=250 Вт

3. Мощность, рассеиваемая тремя теплонагруженными элементами:

P1=2 Bт. P2=1 Bт. P3=5 Bт.

4. Площади поверхности элементов:

S1=2.7•10^-3 м², S1:=7.7•10^-3 м², S1:=2.7•10^-3 м².

5. Коэффициент заполнения блока: Kz=0.4

6. Количество перфорационных отверстий: n=500

7. Диаметр перфорационного отверстия: d=0.008 м

8. Температуры окружающей среды: T=293 K

1) Определяем поверхность корпуса блока по формуле (3.1)

(3.1)

м²

2) Определяем условную поверхность нагретой зоны (3.2)

(3.2)

м²

3) Определяем удельную мощность корпуса блока (3.3) радиатор теплоотдача перегрев мощность

(3.3)

Вт.

4) Определяем удельную мощность нагретой зоны (3.4)

(3.4)

Вт.

5) Рассчитывается площадь перфорационных отверстий (3.5)

Для круглых отверстий

(3.5)

м²

6) Рассчитывается коэффициент перфораций (3.6)

(3.6)



7) Находится коэффициент в зависимости от перфораций (3.6)

(3.6)

8) Определяется перегрев корпуса блока (3.7)

(3.7)

K

9) Определяется перегрев нагретой зоны (3.8)

(3.8)

K

10) Определяется средний перегрев воздуха в блоке (3.9)

(3.9)

K

Рассчитывается удельная мощность элемента, перегрев поверхности элемента по (3.10), (3.11):

(3.10)

(3.11)

K

K

K

12) Находятся температуры корпуса блока, нагретой зоны, поверхности элемента, воздуха в блоке, окружающей элемент среды по (3.13), (3.14), (3.15), (3.16).

(3.13)

K

(3.14)

K

(3.15)

K

K

K

(3.16)

K

Таким образом, по результатам проведенных расчетов можно сделать вывод, что дополнительный отвод тепла от элементов, то есть применение радиатора, требуется. Так как максимальный перегрев элемента составляет 90 °С при температуре окружающей среды 47 °С. Это говорит о том, что все транзисторы работают в нормальном тепловом режиме. В то же время учитывая условия технического задания проведем расчет радиатора.

ЗАКЛЮЧЕНИЕ

В данной курсовой работе было написано программное обеспечение для теплового расчёта блока РЭС в перфорированном корпусе на языке программирования Lazarus 1.6. В ходе выполнения работы получены навыки работы с графической библиотекой. Программа имеет достаточно простой интерфейс и интуитивно понятна.

Расчетные данные полностью совпадают с данными в программе, написанной на Borland Delphi, что свидетельствует о работоспособности программы и выдаче оптимального решения.

Данная программа готова к использованию в соответствии с техническим заданием.

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. (15.12.13) Бесплатная библиотека стандартов и нормативы - ГОСТы: http://www.docload.ru/Basesdoc/40/40508/index.htm

2. Муромцев Ю.Л., Белоусов О.А., Кольтюков Н.А., Яшин Е. Н. Конструирование блоков РЭС. Ч. I. Тепловой расчёт блока РЭС :

лабораторная работа - Тамбов: Тамб. гос. техн. ун-та, 2009 - 28 с.

3. Бородин С. М. Общие вопросы проектирования радиоэлектронных средств, учебное пособие - Ульяновск УлГТУ, 2007. - 103 с.

4. Лопаткин А.В. Обеспечение тепловых режимов РЭС: Методические указания к лабораторной работе №4 - Н. Новгород: НГТУ, каф. КиТР, 1996.-22 с.

5. Роткоп Л.Л., Спокойный Ю.Е. Обеспечение тепловых режимов при конструировании РЭА. - М: «Сов. радио», 1976.- 232 с.

6. Понамарев В. Базы данных в Delphi7. Самоучитель- СПб: Питер, 2003.-224с.

7. Культин Н.Б. Основы программирования в Delphi 7.- СПб.: БХВ-Петербург, 2007.-608 с.

8. Пестриков В.М., Маслобоев А.Н. Delphi на примерах.- СПб.: БХВ-Петербург, 2005.-496 с.

9. Парижский С.М. Delphi. Учимся на примерах/ Под ред. Ю.А. Шпака- К.: «МК-Пресс», 2005.- 216 с.

ПРИЛОЖЕНИЕ (ЛИСТИНГ ПРОГРАММЫ)

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,

ExtCtrls, ColorBox, Menus;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

ColorDialog1: TColorDialog;

Edit1: TEdit;

Edit10: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Image1: TImage;

Label1: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label2: TLabel;

Label20: TLabel;

Label22: TLabel;

Label3: TLabel;

Label31: TLabel;

Label32: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItem10: TMenuItem;

MenuItem11: TMenuItem;

MenuItem12: TMenuItem;

MenuItem13: TMenuItem;

MenuItem14: TMenuItem;

MenuItem15: TMenuItem;

MenuItem16: TMenuItem;

MenuItem17: TMenuItem;

MenuItem18: TMenuItem;

MenuItem19: TMenuItem;

MenuItem2: TMenuItem;

MenuItem20: TMenuItem;

MenuItem21: TMenuItem;

MenuItem22: TMenuItem;

MenuItem23: TMenuItem;

MenuItem24: TMenuItem;

MenuItem25: TMenuItem;

MenuItem26: TMenuItem;

MenuItem27: TMenuItem;

MenuItem28: TMenuItem;

MenuItem6: TMenuItem;

MenuItem7: TMenuItem;

MenuItem8: TMenuItem;

MenuItem9: TMenuItem;

Panel1: TPanel;

SelectDirectoryDialog1: TSelectDirectoryDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure MenuItem13Click(Sender: TObject);

procedure MenuItem15Click(Sender: TObject);

procedure MenuItem25Click(Sender: TObject);

procedure MenuItem26Click(Sender: TObject);

procedure MenuItem28Click(Sender: TObject);

procedure MenuItem7Click(Sender: TObject);

procedure MenuItem9Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

uses

u_Primer,u_Literatura, u_Avtor,u_Nastoyka,u_Otvet,u_Element;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.text:='';

edit2.text:='';

edit3.text:='';

edit4.text:='';

edit5.text:='';

edit6.text:='';

edit7.text:='';

edit14.text:='';

edit15.text:='';

Form6.edit7.text:='';

Form6.edit8.text:='';

Form6.edit11.text:='';

Form6.edit12.text:='';

Form6.edit17.text:='';

end;

procedure TForm1.Button5Click(Sender: TObject);

var

n:real;

begin

if (edit7.text='0') then ShowMessage ('Введите количество элемента от 1 до 10') ;

if (edit7.text='') then ShowMessage ('Введите количество элемента от 1 до 10') ;

If (n<1) and (n>0) Then ShowMessage ('Введите количество элемента от 1 до 10') ;

n:=StrToFloat(Edit7.Text);

if (n>10) Then ShowMessage('Колтчество элемента не должен быт выше 10') ;

if (n>=1) and (n<11) Then

Form7.Show;

end;

procedure TForm1.MenuItem13Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm1.MenuItem15Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.MenuItem25Click(Sender: TObject);

begin

ColorDIALOG1.Execute;

end;

procedure TForm1.MenuItem26Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.MenuItem28Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.MenuItem7Click(Sender: TObject);

begin

SelectDirectoryDialog1.Execute;

end;

procedure TForm1.MenuItem9Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.Button1Click(Sender: TObject);

var Sk,{Поверхность корпуса блока }

L1,{Ширина корпуса} Qk,{Удельная мощность корпуса блока}

L2,{Длина корпуса} Sz,{Поверхность теплообмена(Поверхность нагретой зоны) Sz}

L3,{Высота корпуса} Qz,{Удельная мощность нагретой зоны}

Pz,{Рассеиваемая мощность блока} dtk,{Температура перегрева корпуса}

Kz,{Коэффицент заполнения корпуса блока} dtsr,{Определяется средний перегрев воздуха в блоке}

Kqz,{ коэффициент перегрева нагретой зоны} dtz,{Величина перегрева нагретой зоны}

Ts, {Температура окружающией среды} Kqk,{коэффициент перегрева корпуса}

Qel,{удельная мощность элементов } Tv,{Температура поверхности элемента}

Vel,{перегрев поверхности элементов }

Pk,{ коэффициент перфорации}

D,{Диаметр перфорационного отверстия} Tk,{Температура корпуса блока}

N1,{Количество перфорайионной отверстий} Tz,{Температура нагретой зоны}

Tel,{Средная температура воздуха в блоке} ed7,ed8,ed17,ed18,

Tes,{Температура окружающего элеметна воздуха}

Kp,{Коэффициент K п , зависящий от степени перфорации корпуса}

P1, S1, Q1, dt1, t1, {мощность элемента,площадь,Удельная мощность,температура поверхности}

P2, S2, Q2, dt2, t2, {мощность элемента,площадь,Удельная мощность,температура поверхности

P3, S3, Q3, dt3, t3, {мощность элемента,площадь,Удельная мощность,температура поверхности

P4, S4, Q4, dt4, t4, {мощность элемента,площадь,Удельная мощность,температура поверхности

P5, S5, Q5, dt5, t5, {мощность элемента,площадь,Удельная мощность,температура поверхности

P6, S6, Q6, dt6, t6, {мощность элемента,площадь,Удельная мощность,температура поверхности

P7, S7, Q7, dt7, t7, {мощность элемента,площадь,Удельная мощность,температура поверхности

P8, S8, Q8, dt8, t8, {мощность элемента,площадь,Удельная мощность,температура поверхности

P9, S9, Q9, dt9, t9, {мощность элемента,площадь,Удельная мощность,температура поверхности

P10, S10, Q10, dt10, t10,{мощность элемента,площадь,Удельная мощность,температура поверхности

n: real; ///Описание переменных (все переменные вещественного типа):

begin

n:=StrToFloat(Edit7.Text);

if (edit7.text='0') then ShowMessage ('Введите количество элемента от 1 до 10') ;

L1:=StrToFloat(Edit1.Text); // Ширина корпуса

L2:=StrToFloat(Edit2.Text); // Длина корпуса

L3:=StrToFloat(Edit3.Text); // Длина корпуса

Pz:=StrToFloat(Edit4.Text); // Рассеиваемая мощность блока

Kz:=StrToFloat(Edit5.Text); // Коэффициент заполнения корпуса блока

Ts:=StrToFloat(Edit6.Text); // Температура окружающей среды

D:=StrToFloat(Edit15.text); // Диаметр перфорационного отверстия

N1:=StrToFloat(Edit14.text); // Количество перфорайионной отверстий

Sz:=2*(L1*L2+(L1+L2)*L3*Kz); // Поверхность теплообмена(Поверхность нагретой зоны) Sz

Sk:=2*(L1*L2+(L1+L2)*L3); // Поверхность корпуса блока

Qk:=Pz/Sk; // Удельная мощность корпуса блока

Qz:=Pz/Sz; // Удельная мощность нагретой зоны

Kqk:=0.147*Qk-0.0002962*Qk*Qk+0.0000003127*Qk*Qk*Qk; // коэффициент перегрева корпуса

Kqz:=0.139*Qz-0.0001223*Qz*Qz+0.0000000698*Qz*Qz*Qz; // коэффициент перегрева нагретой зоны

Pk:=((pi/4)*(D*D)*N1)/(2*L1*L2); // коэффициент перфорации

Kp:=0.29+1/(1.2+4.95*Pk); // Коэффициент Kп

dtk:=0.93*Kqk*Kp; // Температура перегрева корпуса

dtz:=0.93*Kqz*Kp; // Величина перегрева нагретой зоны

dtsr:=0.6*dtz; // Определяется средний перегрев воздуха в блоке

Tk:=dtk+Ts; // температура корпуса блока

Tz:=dtz+Ts; // температура нагретой зоны

Tel:=dtsr+Ts; // средняя температура воздуха в блоке

Form6.Edit12.text:=FloatToStrf(Tk,ffFixed,5,2); // температура корпуса блока

Form6.Edit10.text:=FloatToStrF(Tz,ffFixed,5,2); // температура нагретой зоны

Form6.Edit11.text:=FloatToStrF(Tel,ffFixed,5,2); // средняя температура воздуха в блоке

Form6.Show;

if Form6.CheckBox1.Checked Then

Begin

ed7:=Tz-273;

Form6.Edit7.Text:=FloatToStrF(ed7,ffFixed,5,2);

ed8:=Tel-273;

Form6.Edit8.Text:=FloatToStrF(Ed8,ffFixed,5,2);

ed17:=Tk-273;

Form6.Edit17.Text:=FloatToStrF(ed17,ffFixed,5,2);

end

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.Show;

end;

end.

Размещено на Allbest.ru