8.6 Контрольные вопросы

1. По каким признакам классифицируют природу воды?

2. По каким показателям определяют количество воды?

3. Как определяют жесткость воды?

4. Какие методы применяют для уменьшения жесткости воды?

Литература

1. Общая химическая технология: учебник для студентов химико-технологических специальностей вузов / под ред. проф. И.П. Мухленова. – М.: Высшая школа, 1984. – 263 с., ил.

2. Основы химической технологии: учебник для студентов химико-технологических специальностей / под ред. проф. И.П. Мухленова. – 4-е изд., перераб и доп. – М.: Высшая школа, 1991. – 463 с., ил.

3. Кутепов, А.М. Общая химическая технология / А.М. Кутепов, Т.И. Бондарева, М.Г. Боренгартен. – 2-е изд., перераб. и доп. – М.: Высшая школа, 1990. – 519 с., ил.

4. Общая химическая технология / под ред. проф. А.Г. Амелина. – М.: Химия, 1977. – 400 с., ил.

5. Белоусов, А.М. Общая химическая технология: конспект лекций для студентов специальностей 251100, 251200, 070100 / А.М. Белоусов, Г.В. Багров, Г.В. Давиденко. – Барнаул: Изд-во Алт. гос. техн. ун-та, 2001. – 140 с., ил.

6. Расчеты химико-технологических процессов / под ред. проф. И.П. Мухленова. – 2-е изд., перераб. и доп. – Л.: Химия, 1982. – 248 с., ил.

7. Вэйлас, С. Химическая кинетика и расчёты промышленных ре­акторов / С. Вэйлас. – М: Химия, 1967.

8. Авербух, А.Я. Практикум по общей хими­ческой технологии / А.Я. Авербух, Е.С. Тумаркина. – М: Высш. шк., 1967.

9. Кафаров, В.В. Математическое моделирование основных химико-технологических процессов / В.В. Кафаров, М.В. Глебов. – М.: Высшая школа, 1991. – 440 с., ил.

10. Левеншпиль, О. Инженерное оформление химических процессов / О. Левеншпиль. – М.: Химия, 1989. – 624 с., ил.

11. Смирнов, Н.Н. Химические реакторы в примерах и задачах / Н.Н. Смирнов, А.И. Волжинский; под ред. чл.-корр. АН СССР П.Г. Романкова. – Л.: Химия, 1977. – 264 с., ил.

ПРИЛОЖЕНИЕ А

Пакет программ на алгоритмическом языке Turbo Pascal

к лабораторным работам

А1 Программа № 1

program lab_1;

uses printer;

label 1;

var k,p,ca0,cb0,kr,t,xp,xp1,h,s,x,xx,r:real;

var i,j:integer;

function f(x:real):real;

var a,b,d,q:real;

begin

a:=k*p/ca0;b:=(cb0-0.5*ca0*x)/(l-0,5*ca0*x);

d:=(l-x)/(l-0.2*x);q:=(1-1/p*sqr(x/(kr*(l-x))))/b;

f:=l/(a*b*d*q);

end;

begin

p:=1.; t:=893;ca0:=0.0;

writeln (1st,'t=',t);

for i:=1 to 5 do begin

{t:=t+40;}

ca0:=ca0+0.05;writeln(1st, 'ca0=',ca0);

x:=0.1;

cb0:=0,21*(l-ca0);

kr:=exp((4905.5/t-4.6455)*ln(10));.

if t<673 then k:=exp(2.3*(21.9-14850/t));

if (t>673) and (t<806) then k:=exp(2.3*(1.66-1230/t));

if t>806 then k:=1.361;

xp:=x; {method simple iteration}

1:xp1:=kr/(kr+sqrt((l-0,5*ca0*xp)/(p*(cb0-0.5*ca0*xp))));

if abs(xp-xp1)>0.0001 then begin

xp:=xpl; goto 1;

end;

{writeln (1st,'t=',t,'kr=',kr, 'xp=',xp, 'k=',k);}

writeln (1st, 'kr=',kr,'xp=',xp, 'k=',k);

x:=0;

while (x<xp) do begin

x:=x+0.1;

h:=0.01*x;{integral}

s:=f(0)+f(x); r:=l/f(x);

xx:=0;

for j:=l to 99 do

begin

xx:=xx + h;

s:=s+2*f(xx);

end;

s:=h/2*s;

writeln (1st,'x=',x, 'tau=',s,'r',r);

end;

end;

end.