Система управления аппаратом производства фотографической эмульсии (стр. 9 из 9)
Для измерения и контроля температуры в тепловой рубашке аппарата используются: термопреобразователь сопротивления типа ТСП-0879-01 со статической характеристикой 50П и автоматический самопишущий мост типа КСМ-4.
Рассчитаем надежность контура регулирования величины pBr в аппарате. Под надежностью будем понимать вероятность безотказной работы всех звеньев контура в течение 1000 часов. В качестве характеристики надежности для каждого звена примем интенсивность отказов λ. Данные для расчета: λДПг = 73·10-6 1/ч; λП-201 = 35·10-6 1/ч; λР17 = 54·10-6 1/ч. Вероятность безотказной работы в течение t часов контура, состоящего из n элементов, вычисляется по формуле:
. (6.1)Выполнив вычисления по этой формуле, получим P(1000,3) = 0.85.
Найдем среднее время безотказной работы комплекта. Среднее время безотказной работы вычисляется по формуле:
. (6.2) 
Выполнив вычисления по этой формуле, получим T = 6172 ч.Поскольку по требованиям стандартов вероятность безотказной работы допускается в пределах 0.85…0.99, то наш комплект удовлетворяет требованиям к надежности средств измерений.
ЗАКЛЮЧЕНИЕ
В данном курсовом проекте был исследован промышленный процесс получения фотографической эмульсии по двухструйной технологии. Была подробно исследована и смоделирована первая стадия этого процесса – приготовление и первое созревание эмульсии. На основе этого была разработана система автоматического управления процессом. Были обоснованы структура и параметры системы, а также оценено качество регулирования. В состав системы входят типовые элементы промышленной автоматики, выпускаемые отечественной промышленностью.
Следует отметить, что полученные результаты не являются абсолютно точными и адекватными. В ходе моделирования было сделано достаточно много упрощающих предположений, в особенности, на этапе линеаризации разгонных кривых. Строго говоря, объект является нелинейным (это показано в соответствующих разделах) и, как следствие, динамические процессы в нем зависят от предшествующего состояния системы. Проверка адекватности принятых нами упрощений может являться темой отдельной работы. Поэтому полученные нами результаты касательно настроек системы могут носить лишь рекомендательный характер.
С точки зрения структуры и состава входящих в нее средств автоматизации наша схема имеет промышленные аналоги (подобная система была применена в начале 90-х годов на Шосткинском ПО “Свема”). Система хорошо зарекомендовала себя и может считаться удачной.
СПИСОК ЛИТЕРАТУРЫ1 Основы технологии светочувствительных материалов. Под ред. проф. Шеберстова. – М.: Химия, 1977. – 504 с.
2 Крамерс Х., Вестертерп К. Химические реакторы. – М.: Химия, 1967. – 264 с.
3 Теплотехника: Учебник / И.Т. Швец, В.И. Толубинский и др. – Киев: Вища школа, 1976. – 520 с.
4 Наладка автоматических систем и устройств управления технологическими процессами: Справочное пособие / А.С. Клюев и др. – М.: Энергоатомиздат, 1983. – 376 с.
ПРИЛОЖЕНИЕ А
Текст программы аппроксимации
Program approximation;
uses crt;const n=5;l=15; {n=числу полиномиальных коэффициентов}
{l=числу исходных точек неизвестной функции y}
type tarr1=array[1..n] of real;
tarr2=array[1..n,1..n] of real;
tarrl=array[1..l] of real;
tarr=array[0..n-1] of real;
var a:tarr2;
b:tarr1;
p:tarr;
f,x,y:tarrl;
i,j,k,d:integer;
v:tarr1;
xv,z:real;
h:string[1];
fil:text;
function g(t:tarr;x1:real):real;
var i2:integer;
w1:real;
begin
w1:=0;
for i2:=0 to n-1 do begin
w1:=w1+t[i2]*exp(i2*ln(x1));
end;
g:=w1;
end;
function max(t1:tarrl):real;
var i3:integer;
w:real;
begin
w:=t1[1];
for i3:=2 to l do
if t1[i3] > w then w:=t1[i3];
max:=w;
end;
procedure writing(c1:tarr2;c2:tarr1);
var i4,j4:integer;
begin
for i4:=1 to n do begin
for j4:=1 to n do
write(' ',c1[i4,j4]:10:3,' ');
write(' | ',c2[i4]:4:4);
writeln;
end;
end;
{=======Основной блок=========}
Begin
{абсциссы точек}
x[1]:=0.1;x[2]:=1;x[3]:=3;x[4]:=5;x[5]:=10;x[6]:=15;x[7]:=20;x[8]:=25;
x[9]:=30;x[10]:=35;x[11]:=40;x[12]:=50;x[13]:=60;x[14]:=80;x[15]:=100;
{ординаты - табличные значения}
y[1]:=0;y[2]:=0.2;y[3]:=1;y[4]:=2;y[5]:=5.5;y[6]:=9;y[7]:=12;y[8]:=14.3;
y[9]:=16;y[10]:=17.2;y[11]:=18.1;y[12]:=19;y[13]:=19.5;y[14]:=19.8;y[15]:=20;
z:=0;
{заполняем матрицы коэффициентов для системы}
for i:=1 to n do begin
for j:=1 to n do begin
for d:=1 to l do
z:=z+exp((i+j-2)*ln(x[d]));
a[i,j]:=z;z:=0;
end;
for d:=1 to l do
z:=z+y[d]*exp((i-1)*ln(x[d]));
b[i]:=z;z:=0;
end;
clrscr;
writeln('расширенная матрица системы :');
writing(a,b);
i:=1;
{решаем систему методом Гаусса. v - вектор неизвестных}
repeat
b[i]:=b[i]/a[i,i];
for j:=n downto i do
a[i,j]:=a[i,j]/a[i,i];
for k:=i+1 to n do begin
b[k]:=b[k]-b[i]*a[k,i];
for j:=n downto i do
a[k,j]:=a[k,j]-(a[i,j]*a[k,i]);
end;
i:=i+1;
until i=n+1;
v[n]:=b[n];
for i:=n-1 downto 1 do begin
v[i]:=b[i];
for j:=i+1 to n do
v[i]:=v[i]-(v[j]*a[i,j]);
end;
for i:=1 to n do p[i-1]:=v[i];
writeln;
writeln('эквивалентная ступенчатая матрица системы:');
writing(a,b);
writeln(' РЕШЕНИЕ : ');
for d:=0 to n-1 do writeln(p[d]:12:10);
writeln('значения аппроксимирующего полинома в узловых точках равны: ');
for d:=1 to l do begin
f[d]:=abs((g(p,x[d])-y[d])/{y[d]}6);
write(' ',g(p,x[d]):4:2,' ');
end;
writeln;
writeln('приведенная ошибка аппроксимации в % равна:');
writeln(max(f)*100:4:0,'%');
{=====запись в файл=====}
assign(fil,'result.txt');
rewrite(fil);
for d:=0 to n-1 do
writeln (fil,p[d]);
End.