Проектирование и расчет систем автоматики

Автор работы: Пользователь скрыл имя, 07 Октября 2013 в 13:05, курсовая работа

Краткое описание

Существенное повышение эффективности производства достигается путём создания автоматизированных систем управления технологическими процессами (АСУ ТП) с использованием вычислительных машин (ЭВМ).
Автоматизированные системы управления агрегатами и технологическими процессами строятся на основе управляющих логических устройств и выполняют логические функции. Применяется реализация программного управления последовательностью операций по заданному алгоритму.
Автоматизированные системы управления технологическими процессами и сложными агрегатами характеризуются большим объёмом перерабатываемой информации, сложными алгоритмами управления и высокой скоростью обработки информации.

Скачать полностью (195.94 Кб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

автоматизация произ процессов (Маларев).doc

— 4.09 Мб (Скачать документ)

     Write(LU); Write(HT); Write(HT); Write(HT); Write(CrossT);

     for i:=0 to 13 do

     begin

     Write(HT); Write(HT); Write(VD);

     end;

     Write(HT); Write(HT); Write(VLT);

     gotoxy(X1,WhereY); Write(VT);

     begin

     for k:=Y1+3 to Y2-3 do if k<>Y2-3 then

     begin

     k:=k+1;

        begin gotoxy(X1,k); Write(VR); end;

     k:=k+1;

        begin gotoxy(X1,k); Write(VT); end;

     k:=k-1;

     end;

     gotoxy(X1,whereY+1); Write(LD);

     end;

     gotoxy(X2-X1+1,Y1+3); Write(VT);

     begin for k:=Y1+3 to Y2-3 do

           if k<>Y2-3 then

           begin k:=k+1;

           begin gotoxy(X2-X1+1,k); Write(VL); end;

                 k:=k+1;

           begin gotoxy(X2-X1+1,k); Write(VT); end;

                 k:=k-1;

           end; gotoxy(X2-X1+1,whereY); Write(RD);

     end; gotoxy(X1+4,Y1+3); Write(VT);

     begin for k:=Y1+3 to Y2-3 do

           if k<>Y2-3 then

           begin k:=k+1;

           begin gotoxy(X1+4,k); Write(CrossTT); end;

                 k:=k+1;

           begin gotoxy(X1+4,k); Write(VT); end;

                 k:=k-1;

           end; gotoxy(X1+4,whereY+1); Write(VUT);

     end; for c:=X1+5 to X2-X1-2 do

           begin c:=c+2; gotoxy(c,Y1+3); Write(V);

 

           begin for k:=Y1+3 to Y2-3 do

                 if k<>Y2-3 then

           begin

                 k:=k+1;

           begin gotoxy(c,k); Write(Cross); end;

                 k:=k+1;

           begin gotoxy(c,k); Write(V); end;

                 k:=k-1;

           end; gotoxy(c,whereY+1); Write(VU);

           end;

           end;

     for c:=X1+3 to X2-X1-1 do begin c:=c+2;

     for k:=Y1+3 to Y2-Y1-3 do begin k:=k+1;

     gotoxy(c,k); Write(H); c:=c+1; Write(H);

     c:=c-1; end; end;

 

     gotoxy(X1,Y2-2); for c:=X1 to X2-X1-1 do begin

     c:=c+2; gotoxy(c,Y2-2); Write(HT); c:=c+1;

     Write(HT); c:=c-1; end;

     for k:=Y1+3 to Y2-Y1-3 do begin k:=k+1;

     gotoxy(X1+1,k); Write(H); gotoxy(X1+2,k);

     Write(H); gotoxy(X1+3,k); Write(H); end;

     gotoxy(X1+1,Y2-2); Write(HT);

     begin for k:=0 to 9 do for c:=Y1+3 to Y2-3 do

     begin c:=c+2; k:=k+1; gotoxy(X1+2,c);

     TextColor(3); Write(a1[k]); c:=c-1;

     if k=9 then goto U; end; end;

U:   begin

     gotoxy(X1+2,Y1+3); Write(a2[0]);

     for k:=0 to 15 do for c:=X1+3 to X2-X1-1 do

     begin c:=c+2; k:=k+1; begin

     if k<10 then begin gotoxy(c,Y1+3);

     TextColor(3); Write(' ',a2[k]); end

     else begin gotoxy(c,Y1+3); TextColor(3);

     Write(a2[k]); end; end;

     if k=15 then goto U1; end; end;

U1:  begin window(X3,Y3,X4,Y4);

     gotoxy((X4-X3) div 2 -length(Txt1) div 2,Y3+1);

     TextColor(3); Write(Txt1); end; end;

begin X12[0]:=false;

     {------------------------------------------------------------}

     Mass5[7,1]:=true; Mass5[7,2]:=true; Mass5[7,3]:=true;

     Mass5[7,4]:=true; Mass5[7,5]:=true; Mass5[7,6]:=true;

     Mass5[7,7]:=true; Mass5[7,8]:=true; Mass5[7,9]:=false;

     Mass5[7,10]:=false; Mass5[7,11]:=true; Mass5[7,12]:=true;

     Mass5[7,13]:=false; Mass5[7,14]:=false; Mass5[7,15]:=false;

     {------------------------------------------------------------}

     Mass5[8,1]:=false; Mass5[8,2]:=true; Mass5[8,3]:=true;

     Mass5[8,4]:=true; Mass5[8,5]:=true; Mass5[8,6]:=true;

     Mass5[8,7]:=true; Mass5[8,8]:=true; Mass5[8,9]:=true;

     Mass5[8,10]:=true; Mass5[8,11]:=true; Mass5[8,12]:=true;

     Mass5[8,13]:=true; Mass5[8,14]:=true; Mass5[8,15]:=true;

     {------------------------------------------------------------}

     Mass5[9,1]:=true; Mass5[9,2]:=true; Mass5[9,3]:=true;

     Mass5[9,4]:=true; Mass5[9,5]:=true; Mass5[9,6]:=true;

     Mass5[9,7]:=true; Mass5[9,8]:=true; Mass5[9,9]:=true;

     Mass5[9,10]:=true; Mass5[9,11]:=true; Mass5[9,12]:=true;

     Mass5[9,13]:=true; Mass5[9,14]:=true; Mass5[9,15]:=true;

     {------------------------------------------------------------}

     for Sch1:=22 to 69 do for Sch12:=4 to 20 do

     for i:=0 to 16 do for j:=0 to 6 do

     begin

Lab11: Sch1:=Sch1+3; Sch12:=4; i:=i+1; j:=0;

Lab12: Sch12:=Sch12+2;j:=j+1;

     if Sch1=67 then if Sch12=16 then goto Lab13;

     window(Sch1,Sch12,Sch1+2,Sch12+1); gotoxy(Sch1+2,Sch12+1);

     begin read(symbol); if symbol=1 then Mass5[j,i]:=true

     else Mass5[j,i]:=false; end;

     if Sch12=16 then goto Lab11; goto Lab12; end;

Lab13: window(Sch1,Sch12,Sch1+2,Sch12+1); gotoxy(Sch1+2,Sch12+1);

     begin read(symbol);if symbol=1 then Mass5[6,15]:=true

     else Mass5[6,15]:=false; end; goto Lab14;

Lab14: begin for i:=0 to 15 do

Lab15: begin i:=i+1;

     X12[i]:=Mass5[7,i] and (Mass5[3,i] and Mass5[5,i] or X12[i-1] and

     (not Mass5[8,i] or Mass5[2,i] and Mass5[3,i])) or not Mass5[7,i] and

     Mass5[3,i] and Mass5[5,i] and Mass5[6,i] and ( not Mass5[8,i] or

     not Mass5[1,i] and not Mass5[2,i] and not Mass5[4,i]);

     Y12[i]:=Mass5[1,i] and Mass5[4,i] and ( Mass5[6,i] or Mass5[2,i] and Mass5[3,i]);

     Z12[i]:=Mass5[5,i] and ( not Mass5[9,i] or not Mass5[6,i] and not Mass5[1,i]) or

     Mass5[6,i] and Mass5[5,i] and Mass5[3,i] and ( not Mass5[9,i] or

     not Mass5[1,i] and not Mass5[2,i] and not Mass5[4,i]);

     if i=15 then goto Lab16; goto Lab15; end; end;

Lab16:begin for Sch1:=22 to 69 do

     for i:=0 to 15 do begin Lab18: i:=i+1; Sch1:=Sch1+3;

     if Y12[i]=true then begin window(Sch1,20,Sch1+2,20); gotoxy(Sch1+2,20); write('1'); end

     else  begin window(Sch1,20,Sch1+2,20); gotoxy(Sch1+2,20); write('0'); end;

     if X12[i]=true then begin window(Sch1,18,Sch1+2,18); gotoxy(Sch1+2,18); write('1'); end

     else  begin window(Sch1,18,Sch1+2,18); gotoxy(Sch1+2,18); write('0'); end;

     if Z12[i]=true then begin window(Sch1,22,Sch1+2,22); gotoxy(Sch1+2,22); write('1'); end

     else  begin window(Sch1,22,Sch1+2,22); gotoxy(Sch1+2,22); write('0'); end;

     if i=15 then goto Lab17; goto Lab18; end; end;

Lab17: end; readkey; End1(Sch6); End2(Sch9); Tochka(Sch5);

readkey; end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

 

Основными результатами работы являются следующие:

  1. По предложенной таблице включений построена циклограмма работы управляющего логического устройства (УЛУ) системы автоматики;
  2. Используя полученную циклограмму, с учётом проверок реализации циклограммы, найдены функциональные выражения для выходных параметров УЛУ;
  3. Полученные зависимости минимизированы;
  4. Разработана функциональная схема УЛУ на бесконтактных логических элементах и проверена её работоспособность (аппаратная реализация) с использованием системы компьютерного моделирования электронных устройств, построена таблица включений;
  5. Проектируемое УЛУ реализовано программным способом, разработан алгоритм работы УЛУ, составлена блок-схема, написана и отлажена программа реализации УЛУ с использованием языка программирования высокого уровня QBASIC, получена таблица включений.

 

CLS

DIM a%(16), b%(16), c%(16), d%(16), e%(16), f%(16), p%(16), s%(16)

DIM X%(16), Y%(16), Z%(16)

LOCATE 1, 1

PRINT "a"

LOCATE 1, 3

FOR k = 1 TO 16

INPUT ; "", a%(k)

NEXT

LOCATE 2, 1

PRINT "b"

LOCATE 2, 3

FOR k = 1 TO 16

INPUT ; " ", b%(k)

NEXT

LOCATE 3, 1

PRINT "c"

LOCATE 3, 3

FOR k = 1 TO 16

INPUT ; " ", c%(k)

NEXT

LOCATE 4, 1

PRINT "d"

LOCATE 4, 3

FOR k = 1 TO 16

INPUT ; " ", d%(k)

NEXT

LOCATE 5, 1

PRINT "e"

LOCATE 5, 3

FOR k = 1 TO 16

INPUT ; " ", e%(k)

NEXT

LOCATE 6, 1

PRINT "f"

LOCATE 6, 3

FOR k = 1 TO 16

INPUT ; " ", f%(k)

NEXT

LOCATE 7, 1

PRINT "p"

LOCATE 7, 3

FOR k = 1 TO 16

INPUT ; " ", p%(k)

NEXT

LOCATE 8, 1

PRINT "s"

LOCATE 8, 3

FOR k = 1 TO 16

INPUT ; " ", s%(k)

NEXT

X(1) = 0

Y(1) = 0

Z(1) = 0

FOR k = 2 TO 16

   X%(k) = p%(k - 1) AND (a%(k - 1) AND c%(k - 1) AND e%(k - 1) OR (X%(k - 1) AND

     f%(k - 1))) OR NOT p%(k - 1) AND (a%(k - 1) AND NOT b%(k - 1) AND NOT c%(k - 1) AND

     NOT d%(k - 1) AND e%(k - 1) AND f%(k - 1) OR X%(k - 1) AND d%(k - 1)) OR (X%(k - 1) AND

     NOT s%(k - 1))

   Y%(k) = d%(k - 1) AND (p%(k - 1) OR Y%(k - 1) OR (NOT a%(k - 1) AND b%(k - 1) AND

     c%(k - 1)))

   Z%(k) = p%(k - 1) AND (b%(k - 1) AND NOT a%(k - 1) AND (p%(k - 1) OR (c%(k - 1) AND

     d%(k - 1) AND NOT e%(k - 1) AND NOT f%(k - 1)))) OR NOT p%(k - 1) AND

     (NOT a%(k - 1) AND b%(k - 1) AND c%(k - 1) AND d%(k - 1) AND (NOT p%(k - 1) OR

     NOT e%(k - 1) AND f%(k - 1)))

NEXT

LOCATE 9, 1

PRINT "X"

PRINT "Y"

PRINT "Z"

LOCATE 9, 3

FOR k = 1 TO 16

PRINT X%(k)

LOCATE 9, 3 + k + k

NEXT

LOCATE 10, 3

FOR k = 1 TO 16

PRINT Y%(k)

LOCATE 10, 3 + k + k

NEXT

LOCATE 11, 3

FOR k = 1 TO 16

PRINT Z%(k)

LOCATE 11, 3 + k + k

NEXT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список программного обеспечения.

 

  1. Система: Microsoft Windows 98 Второе издание.  Пользователь:  355596-OEM-0017596-73206.
  2. Microsoft Ò Internet Explorer 5. Версия 5.00.2614.3500  Ó Корпорация Microsoft, 1995-1999.
  3. Microsoft Ò Paint Windows 98 Ó Корпорация Microsoft, 1981-1998.
  4. Microsoft Ò Word 2000 (9.0.2812) Корпорация Microsoft, 1983-1999.
  5. Electronics Workbench Version 3.0E. Copyright  Ó 1989-1993 Interactive Image Technologies.
  6. CorelDraw 8. Copyright  Ó 1988-1997 Corel Corporation.
  7. Borland International Borland Pascal with Objects 7.0 Technical Support, Dept 26.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Библиографический список

 

  1. Пухальский Г.И., Новосельцева Т.Я. Цифровые устройства. – СПб.: ИЗД. Политехника, 1996. – 885 с.:ил.
  2. Грейнер Г.Р., Ильяшенко В.П. Проектирование беcконтактных управляющих логических устройств промышленной автоматики. – М.: Изд. Энергия, 1977. – 384 с., ил.
  3. Маларёв В.И. Проектирование и расчет систем автоматики. – Л.: Изд. ЛГИ, 1999. – 19 с.
  4. Маларёв В.И. Курс лекций по проектированию и расчету систем технологической автоматики.
  5. Фигурнов В.Э. IBM PC для пользователя. – М.: ИНФРА – М, 1997. – 640 с., ил.     
  6. Фарофонов В.В. TurboPascal. Начальный курс. – М.: Изд. Нолидж, 1997. – 616 с., ил.

 

 

 

 

 

 

 


Информация о работе Проектирование и расчет систем автоматики