Общие сведения об датчиках температуры
Исходный код программы: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;
type TForm1 = class(TForm) GroupBox1: TGroupBox; ComboBox1: TComboBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; GroupBox2: TGroupBox; Label6: TLabel; Label7: TLabel; Label8: TLabel; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Label9: TLabel; Edit7: TEdit; Edit8: TEdit; Label10: TLabel; Edit9: TEdit; Label5: TLabel; Edit10: TEdit; Label11: TLabel; Image1: TImage; BitBtn1: TBitBtn; procedure Inicialization; procedure BitBtn1Click(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var Form1: TForm1; Dy,Dz,R0,Rmax:integer;
implementation {$R *.dfm}
procedure TForm1.Inicialization; begin Dy:=StrToInt(Edit1.Text); Dz:=StrToInt(Edit2.Text); R0:=StrToInt(Edit3.Text); Rmax:=StrToInt(ComboBox1.Text); end;
function Pow(chislo, stepen:real):real; var per:real; b:integer; a:string; begin Per:= Abs(chislo); a:=FloatToStr(stepen); b:=length(a); a:=a[length(a)]; b:=StrToInt(a); b:=b mod 2; if (chislo=0) and (stepen<>0) then Pow:=0 else if (chislo<0) and (b=1) then Pow:=(-1)*Exp((stepen)*Ln(per)) else Pow:=Exp((stepen)*Ln(per)); end;
function gamma(z:real):real; var i,fact:integer; tmp1,tmp2:real; begin if Frac(z)=0 then begin fact:= 1; for i:=2 to round(z) do fact:= fact * i; gamma:=fact; end else begin tmp1:= sqrt(2*PI/z); tmp2:= z + 1.0/(12 * z - 1.0/(10*z)); tmp2:= pow(tmp2/Exp(1),z); gamma:= tmp1*tmp2; end; end;
function f(t,k:real):real; var i,n:integer; h,r,rez:real; x,y,l:real; begin i:=0; h:=Frac(k); if k > int(k) then n:=Round(int(k))+1 else n:=Round(int(k)); rez:=1; for i:=1 to n do begin r:=i-1+h; rez:=rez+pow(-1,int(r)+1)*((pow(t/2,2*r))/pow(gamma(r),2)); end; f:=Exp(-t)*rez; end;
function Simpson(t1,t2,k: real): real; var h,s0,s,eps: real; n,i:integer; begin eps:=0.00001; n:=100; s:=0; repeat h:=(t2-t1)/n; s0:=s; s:=f(t1,k)+f(t2,k); for i:=1 to n-1 do s:=s+2*(1+i mod 2)*f(t1+i*h,k); s:=s*h/3; until abs(s-s0) <= eps; Simpson:=s; end;
procedure TForm1.BitBtn1Click(Sender: TObject); var a1,a2,k,T0,T,Integ,P1_0:real; begin Inicialization; a1:=Dy/Dz; a2:=Dy/R0; k:=abs((1-a1*a1)/(1+a1*a1+2*a2*a2)); T0:=StrToFloat(Edit8.Text); T:=(1+a1*a1+2*a2*a2)/(4*Dy*Dy)*Rmax*Rmax; Integ:=Simpson(T0,T,k); P1_0:=(4*Dy*Dz*R0*R0)/((Dy*Dy+Dz*Dz)*R0*R0+2*Dy*Dy*Dz*Dz); P1_0:=P1_0*Integ;
Edit4.Text:=FloatToStr(a1); Edit5.Text:=FloatToStr(a2); Edit6.Text:=FloatToStr(k); Edit7.Text:=FloatToStr(T); Edit9.Text:=FloatToStr(Integ); Edit10.Text:=FloatToStr(P1_0); end; end. function gamma(z:real):real; var i,fact:integer; tmp1,tmp2:real; begin if Frac(z)=0 then begin fact:= 1; for i:=2 to round(z) do fact:= fact * i; gamma:=fact; end else begin tmp1:= sqrt(2*PI/z); tmp2:= z + 1.0/(12 * z - 1.0/(10*z)); tmp2:= pow(tmp2/Exp(1),z); gamma:= tmp1*tmp2; end; end; Приложение 2 function Simpson(t1,t2,k: real): real; var h,s0,s,eps: real; n,i:integer; begin eps:=0.00001; n:=100; s:=0; repeat h:=(t2-t1)/n; s0:=s; s:=f(t1,k)+f(t2,k); for i:=1 to n-1 do s:=s+2*(1+i mod 2)*f(t1+i*h,k); s:=s*h/3; until abs(s-s0) <= eps; Simpson:=s; end;
Министерство науки и образования Российской Федерации Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования Пензенский государственный университет
Кафедра: «Информационно-измерительная техника»
ОТЧЕТ по УИРС
Выполнил: ______________Кочетков И.П. Проверил: ______________Цыпин Б.В.
Пенза, 2014
Содержание
Введение……………………………………………………….……………….. 1 Общие сведения об датчиках температуры ………..…….……….. 2 Классификация датчиков температуры….……………………… 3 Терморезестивные датчики температуры………….……………… 4 Устройство и работа преобразователя ….…………………… 5 Методика проверки тока потребления и амплитуды напряжения собственных шумов преобразователя…………...…………………… Заключение …………………………………...…………………………… Литература……………………………………………………….……….
Большинство технологических процессов идет сейчас по пути автоматизации. Кроме того, управление многочисленными механизмами и агрегатами, а зачастую и машинами просто немыслимо без точных измерений всевозможных физических величин. Не маловажными являются измерение давления, измерение угловой скорости, а также линейной и многие-многие другие. Но самыми распространенными (около 50%) являются температурные измерения. К примеру, средняя по величине атомная станция располагает приблизительно 1500-ю контрольных (измерительных) точек, а крупное химпроизводство, насчитывает таких уже около 20 тыс.
Так как диапазон измерений и их условия могут сильно отличатся друг от друга, разработаны разные по точности, помехоустойчивости и быстродействию типы датчиков (и первичных преобразователей). Какого бы типа не был температурный датчик, общим для всех является принцип преобразования. А именно: измеряемая температура преобразуется в электрическую величину (как раз за это и отвечает первичный преобразователь). Это обусловлено тем, что электрический сигнал просто передавать на большие расстояния (высокая скорость приема-передачи), легко обрабатывать (высокая точность измерений) и, наконец, быстродействие
Общие сведения об датчиках температуры
Автоматизация различных технологических процессов, эффективное управление различными агрегатами, машинами, механизмами требуют многочисленных измерений разнообразных физических величин. В настоящее время существует приблизительно следующее распределение доли измерений различных физических величин в промышленности: температура – 50%, расход (массовый и объемный) – 15%, давление – 10%, уровень – 5%, количество (масса, объем) – 5%, время – 4%, электрические и магнитные величины – менее 4%. Из этого распределения наглядно видно, что в современном промышленном производстве наиболее распространенными являются измерения температуры (так, на атомной электростанции среднего размера имеется около 1500 точек, в которых производится такое измерение, а на крупном предприятии химической промышленности подобных точек присутствует свыше 20 тыс.). Широкий диапазон измеряемых температур, разнообразие условий использования средств измерений и требований к ним определяют, с одной стороны, многообразие применяемых средств измерения температуры, а с другой стороны, необходимость разработки новых типов первичных преобразователей и датчиков, удовлетворяющих возрастающим требованиям к точности, быстродействию, помехоустойчивостью. В основе работы любых температурных датчиков, использующихся в системах автоматического управления, лежит принцип преобразования измеряемой температуры в электрическую величину. Это обусловлено следующими достоинствами электрических измерений: электрические величины удобно передавать на расстояние, причем передача осуществляется с высокой скоростью; электрические величины универсальны в том смысле, что любые другие величины могут быть преобразованы в электрические и наоборот; они точно преобразуются в цифровой код и позволяют достигнуть высокой точности, чувствительности и быстродействия средств измерений
|
3
.
