Реферат Автоматизація насосних агрегатів на нафтоперекачувальної НПС &Травники&

ічному обґрунтуванню дипломних проектів Під редакцією Бірюкової В.В.- Уфа .: ННІ, 2008. - 30 с.

ДОДАТОК А

Лістинг програми управління МНА на мові ST

state_process of

: Ued:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;=FALSE;:=FALSE ;: =FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE; PUSK AND Pnorm then state_process:=1; end_if;

: Uzvib:=TRUE; PZo THEN state_process:=2; end_if; PZz THEN state_process:=9 end_if;

: zz:=TRUE;:=t # 0s; (Time1); _ process:=91;

: IF (Time1 gt; t # 7s AND PZo) then state_process:=2; end_if;

: Upzo:=TRUE;:=FALSE;:=TRUE; (Time1);:=t # 0s; (T1); _ process:=21;

: IF VZz then state_process:=3; end_if; (T1 gt; t # 7s AND NOT VZz) then state_process:=22; end_if;

: Uvzz:=TRUE; (T1);:=t # 0s; (Time2); _ process:=221;

: IF Time2 gt; t # 7s AND VZz then state_process:=3; end_if;

: Umasn:=TRUE;:=TRUE;:=TRUE;:=TRUE;:=TRUE; (Time2); Xstator then state_process:=4; end_if;

: Uvzo:=true;:=FALSE; VZo then state_process:=5; end_if;

: ZZVZ:=TRUE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE; STOPm_op then state_process:=6; end_if; Tpedn_kn_mas then state_process:=51; end_if; P_PrVuk_masn then state_process:=52; end_if; Vibr gt; 7 then state_process:=53; end_if; Ez then state_process:=54; end_if; ut then state_process:=55; end_if;

: UTemp:=TRUE;:=t # 0s; (Time3); _ process:=511;

: IF (NOT Tpedn_kn_mas) then state_process:=5; end_if; Time3 gt; t # 6s then TSTOP (Time3);:=FALSE; _process:=6; end_if;

: Udavl:=TRUE;:=t # 0s; (Time4); _ process:=521;

: IF (NOT P_PrVuk_masn) then state_process:=5; end_if; Time4 gt; t # 6s then TSTOP (Time4);:=FALSE; _process:=6; end_if;

: Uvibr:=TRUE;:=t # 0s; (Time5); _ process:=531;

: IF Vibr lt; 7 then state_process:=5; end_if; Time5 gt; t # 6s then TSTOP (Time5);:=FALSE; _process:=6; end_if;

: Uez:=TRUE;:=t # 0s; (Time6); _ process:=541;

: IF (NOT Ez) then state_process:=5; end_if; Time6 gt; t # 6s then TSTOP (Time6);:=FALSE; _process:=6; end_if;

: Uut:=TRUE;:=t # 0s; (Time7); _ process:=551;

: IF (NOT ut) then state_process:=5; end_if; Time7 gt; t # 6s then TSTOP (Time7);:=FALSE; _process:=6; end_if;

: Ued:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE;:=FALSE; (Time3); (Time4); (Time5); (Time6); (Time7); _ process:=7;

: Upzz:=TRUE;:=TRUE;:=TRUE;:=FALSE;:=FALSE; _process:=71;

: IF VZz AND PZz then STOP:=FALSE;:=FALSE;:=FALSE; _process:=8; end_if;

: if Yst then state_process:=0; end_if;

end_case;