Проектирование и расчёт систем автоматики. Синтез управляющих логических устройств на основе циклограмм. Определение функциональных выражений для выходных параметров УЛУ

E15:Extended;

F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15:Extended;

P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15:Extended;

PP1,PP2,PP3,PP4,PP5,PP6,PP7,PP8,PP9,PP10,PP11,PP12,PP13,PP14,PP15:Extended;

A,B,C,D,E,F,P,PP,X,Y,Z:Extended;

X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15:Extended;

Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10,Y11,Y12,Y13,Y14,Y15:Extended;

Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9,Z10,Z11,Z12,Z13,Z14,Z15:Extended;

implementation

uses About;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

X1:=0; X2:=0; X3:=0; X4:=0; X5:=0; X6:=0; X7:=0; X8:=0;

X9:=0;  X10:=0; X11:=0; X12:=0; X13:=0; X14:=0; X15:=0;

Y1:=0; Y2:=0; Y3:=0; Y4:=0; Y5:=0; Y6:=0; Y7:=0; Y8:=0;

Y9:=0; Y10:=0; Y11:=0; Y12:=0; Y13:=0; Y14:=0; Y15:=0;

Z1:=0; Z2:=0; Z3:=0; Z4:=0; Z5:=0; Z6:=0; Z7:=0; Z8:=0;

Z9:=0; Z10:=0; Z11:=0; Z12:=0; Z13:=0; Z14:=0; Z15:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

A1:=StrToFloat(Edit1.Text); A2:=StrToFloat(Edit2.Text);

A3:=StrToFloat(Edit3.Text); A4:=StrToFloat(Edit4.Text);

A5:=StrToFloat(Edit5.Text); A6:=StrToFloat(Edit6.Text);

A7:=StrToFloat(Edit7.Text); A8:=StrToFloat(Edit8.Text);

A9:=StrToFloat(Edit9.Text); A10:=StrToFloat(Edit10.Text);

A11:=StrToFloat(Edit11.Text); A12:=StrToFloat(Edit12.Text);

A13:=StrToFloat(Edit13.Text); A14:=StrToFloat(Edit14.Text);

A15:=StrToFloat(Edit15.Text);

B1:=StrToFloat(Edit16.Text); B2:=StrToFloat(Edit17.Text);

B3:=StrToFloat(Edit18.Text); B4:=StrToFloat(Edit19.Text);

B5:=StrToFloat(Edit20.Text); B6:=StrToFloat(Edit21.Text);

B7:=StrToFloat(Edit22.Text); B8:=StrToFloat(Edit23.Text);

B9:=StrToFloat(Edit24.Text); B10:=StrToFloat(Edit25.Text);

B11:=StrToFloat(Edit26.Text); B12:=StrToFloat(Edit27.Text);

B13:=StrToFloat(Edit28.Text); B14:=StrToFloat(Edit29.Text);

B15:=StrToFloat(Edit30.Text);

C1:=StrToFloat(Edit31.Text); C2:=StrToFloat(Edit32.Text);

C3:=StrToFloat(Edit33.Text); C4:=StrToFloat(Edit34.Text);

C5:=StrToFloat(Edit35.Text); C6:=StrToFloat(Edit36.Text);

C7:=StrToFloat(Edit37.Text); C8:=StrToFloat(Edit38.Text);

C9:=StrToFloat(Edit39.Text); C10:=StrToFloat(Edit40.Text);

C11:=StrToFloat(Edit41.Text); C12:=StrToFloat(Edit42.Text);

C13:=StrToFloat(Edit43.Text); C14:=StrToFloat(Edit44.Text);

C15:=StrToFloat(Edit45.Text);

D1:=StrToFloat(Edit46.Text); D2:=StrToFloat(Edit47.Text);

D3:=StrToFloat(Edit48.Text); D4:=StrToFloat(Edit49.Text);

D5:=StrToFloat(Edit50.Text); D6:=StrToFloat(Edit51.Text);

D7:=StrToFloat(Edit52.Text); D8:=StrToFloat(Edit53.Text);

D9:=StrToFloat(Edit54.Text); D10:=StrToFloat(Edit55.Text);

D11:=StrToFloat(Edit56.Text); D12:=StrToFloat(Edit57.Text);

D13:=StrToFloat(Edit58.Text); D14:=StrToFloat(Edit59.Text);

D15:=StrToFloat(Edit60.Text);

E1:=StrToFloat(Edit61.Text); E2:=StrToFloat(Edit62.Text);

E3:=StrToFloat(Edit63.Text); E4:=StrToFloat(Edit64.Text);

E5:=StrToFloat(Edit65.Text); E6:=StrToFloat(Edit66.Text);

E7:=StrToFloat(Edit67.Text); E8:=StrToFloat(Edit68.Text);

E9:=StrToFloat(Edit69.Text); E10:=StrToFloat(Edit70.Text);

E11:=StrToFloat(Edit71.Text); E12:=StrToFloat(Edit72.Text);

E13:=StrToFloat(Edit73.Text); E14:=StrToFloat(Edit74.Text);

E15:=StrToFloat(Edit75.Text);

F1:=StrToFloat(Edit76.Text); F2:=StrToFloat(Edit77.Text);

F3:=StrToFloat(Edit78.Text); F4:=StrToFloat(Edit79.Text);

F5:=StrToFloat(Edit80.Text); F6:=StrToFloat(Edit81.Text);

F7:=StrToFloat(Edit82.Text); F8:=StrToFloat(Edit83.Text);

F9:=StrToFloat(Edit84.Text); F10:=StrToFloat(Edit85.Text);

F11:=StrToFloat(Edit86.Text); F12:=StrToFloat(Edit87.Text);

F13:=StrToFloat(Edit88.Text); F14:=StrToFloat(Edit89.Text);

F15:=StrToFloat(Edit90.Text);

P1:=StrToFloat(Edit91.Text); P2:=StrToFloat(Edit92.Text);

P3:=StrToFloat(Edit93.Text); P4:=StrToFloat(Edit94.Text);

P5:=StrToFloat(Edit95.Text); P6:=StrToFloat(Edit96.Text);

P7:=StrToFloat(Edit97.Text); P8:=StrToFloat(Edit98.Text);

P9:=StrToFloat(Edit99.Text); P10:=StrToFloat(Edit100.Text);

P11:=StrToFloat(Edit101.Text); P12:=StrToFloat(Edit102.Text);

P13:=StrToFloat(Edit103.Text); P14:=StrToFloat(Edit104.Text);

P15:=StrToFloat(Edit105.Text);

PP1:=StrToFloat(Edit106.Text); PP2:=StrToFloat(Edit107.Text);

PP3:=StrToFloat(Edit108.Text); PP4:=StrToFloat(Edit109.Text);

PP5:=StrToFloat(Edit110.Text); PP6:=StrToFloat(Edit111.Text);

PP7:=StrToFloat(Edit112.Text); PP8:=StrToFloat(Edit113.Text);

PP9:=StrToFloat(Edit114.Text); PP10:=StrToFloat(Edit115.Text);

PP11:=StrToFloat(Edit116.Text); PP12:=StrToFloat(Edit117.Text);

PP13:=StrToFloat(Edit118.Text); PP14:=StrToFloat(Edit119.Text);

PP15:=StrToFloat(Edit120.Text);

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

BEGIN

X1:=B1*C1*PP1+0*((P1-1)*(P1-1)+F1*E1)+(C1-1)*(C1-1)*A1*PP1+0*((P1-1)*(P1-1)+(E1-1)*(E1-1));

IF X1>1 THEN X1:=1 else

X2:=B2*C2*PP2+X1*((P2-1)*(P2-1)+F2*E2)+(C2-1)*(C2-1)*A2*PP2+X1*((P2-1)*(P2-1)+(E2-1)*(E2-1));

IF X2>1 THEN X2:=1;

X3:=B3*C3*PP3+X2*((P3-1)*(P3-1)+F3*E3)+(C3-1)*(C3-1)*A3*PP3+X2*((P3-1)*(P3-1)+(E3-1)*(E3-1));

IF X3>1 THEN X3:=1;

X4:=B4*C4*PP4+X3*((P4-1)*(P4-1)+F4*E4)+(C4-1)*(C4-1)*A4*PP4+X3*((P4-1)*(P4-1)+(E4-1)*(E4-1));

IF X4>1 THEN X4:=1;

X5:=B5*C5*PP5+X4*((P5-1)*(P5-1)+F5*E5)+(C5-1)*(C5-1)*A5*PP5+X4*((P5-1)*(P5-1)+(E5-1)*(E5-1));

IF X5>1 THEN X5:=1;

X6:=B6*C6*PP6+X5*((P6-1)*(P6-1)+F6*E6)+(C6-1)*(C6-1)*A6*PP6+X5*((P6-1)*(P6-1)+(E6-1)*(E6-1));

IF X6>1 THEN X6:=1;

X7:=B7*C7*PP7+X6*((P7-1)*(P7-1)+F7*E7)+(C7-1)*(C7-1)*A7*PP7+X6*((P7-1)*(P7-1)+(E7-1)*(E7-1));

IF X7>1 THEN X7:=1;

X7:=B7*C7*PP7+X6*((P7-1)*(P7-1)+F7*E7)+(C7-1)*(C7-1)*A7*PP7+X6*((P7-1)*(P7-1)+(E7-1)*(E7-1));

IF X7>1 THEN X7:=1;

X8:=B8*C8*PP8+X7*((P8-1)*(P8-1)+F8*E8)+(C8-1)*(C8-1)*A8*PP8+X7*((P8-1)*(P8-1)+(E8-1)*(E8-1));

IF X8>1 THEN X8:=1;

X9:=B9*C9*PP9+X8*((P9-1)*(P9-1)+F9*E9)+(C9-1)*(C9-1)*A9*PP9+X8*((P9-1)*(P9-1)+(E9-1)*(E9-1));

IF X9>1 THEN X9:=1;

X10:=B10*C10*PP10+X9*((P10-1)*(P10-1)+F10*E10)+(C10-1)*(C10-1)*A10*PP10+X9*((P10-1)*(P10-1)+(E10-1)*(E10-1));

IF X10>1 THEN X10:=1;

X11:=B11*C11*PP11+X10*((P11-1)*(P11-1)+F11*E11)+(C11-1)*(C11-1)*A11*PP11+X10*((P11-1)*(P11-1)+(E11-1)*(E11-1));

IF X11>1 THEN X11:=1;

X12:=B12*C12*PP12+X11*((P12-1)*(P12-1)+F12*E12)+(C12-1)*(C12-1)*A12*PP12+X11*((P12-1)*(P12-1)+(E12-1)*(E12-1));

IF X12>1 THEN X12:=1;

X13:=B13*C13*PP13+X12*((P13-1)*(P13-1)+F13*E13)+(C13-1)*(C13-1)*A13*PP13+X12*((P13-1)*(P13-1)+(E13-1)*(E13-1));

IF X13>1 THEN X13:=1;

X14:=B14*C14*PP14+X13*((P14-1)*(P14-1)+F14*E14)+(C14-1)*(C14-1)*A14*PP14+X13*((P14-1)*(P14-1)+(E14-1)*(E14-1));

IF X14>1 THEN X14:=1;

X15:=B15*C15*PP15+X14*((P15-1)*(P15-1)+F15*E15)+(C15-1)*(C15-1)*A15*PP15+X14*((P15-1)*(P15-1)+(E15-1)*(E15-1));

IF X15>1 THEN X15:=1;

X15:=B15*C15*PP15+X14*((P15-1)*(P15-1)+F15*E15)+(C15-1)*(C15-1)*A15*PP15+X14*((P15-1)*(P15-1)+(E15-1)*(E15-1));

IF X15>1 THEN X15:=1;

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

Y1:=A1*F1*((B1-1)*(B1-1)+0)+B1*C1*((P1-1)*(P1-1)+B1*A1*(F1-1)*(F1-1));

IF Y1>1 THEN Y1:=1;

Y2:=A2*F2*((B2-1)*(B2-1)+Y1)+B2*C2*((P2-1)*(P2-1)+B2*A2*(F2-1)*(F2-1));

IF Y2>1 THEN Y2:=1;

Y3:=A3*F3*((B3-1)*(B3-1)+Y2)+B3*C3*((P3-1)*(P3-1)+B3*A3*(F3-1)*(F3-1));

IF Y3>1 THEN Y3:=1;

Y4:=A4*F4*((B4-1)*(B4-1)+Y3)+B4*C4*((P4-1)*(P4-1)+B4*A4*(F4-1)*(F4-1));

IF Y4>1 THEN Y4:=1;

Y5:=A5*F5*((B5-1)*(B5-1)+Y4)+B5*C5*((P5-1)*(P5-1)+B5*A5*(F5-1)*(F5-1));

IF Y5>1 THEN Y5:=1;

Y6:=A6*F6*((B6-1)*(B6-1)+Y5)+B6*C6*((P6-1)*(P6-1)+B6*A6*(F6-1)*(F6-1));

IF Y6>1 THEN Y6:=1;

Y7:=A7*F7*((B7-1)*(B7-1)+Y6)+B7*C7*((P7-1)*(P7-1)+B7*A7*(F7-1)*(F7-1));

IF Y7>1 THEN Y7:=1;

Y8:=A8*F8*((B8-1)*(B8-1)+Y7)+B8*C8*((P8-1)*(P8-1)+B8*A8*(F8-1)*(F8-1));

IF Y8>1 THEN Y8:=1;

Y9:=A9*F9*((B9-1)*(B9-1)+Y8)+B9*C9*((P9-1)*(P9-1)+B9*A9*(F9-1)*(F9-1));

IF Y9>1 THEN Y9:=1;

Y10:=A10*F10*((B10-1)*(B10-1)+Y9)+B10*C10*((P10-1)*(P10-1)+B10*A10*(F10-1)*(F10-1));

IF Y10>1 THEN Y10:=1;

Y11:=A11*F11*((B11-1)*(B11-1)+Y10)+B11*C11*((P11-1)*(P11-1)+B11*A11*(F11-1)*(F11-1));

IF Y11>1 THEN Y11:=1;

Y12:=A12*F12*((B12-1)*(B12-1)+Y11)+B12*C12*((P12-1)*(P12-1)+B12*A12*(F12-1)*(F12-1));

IF Y12>1 THEN Y12:=1;Label16.Caption:=FloatToStr(Y1);

Y13:=A13*F13*((B13-1)*(B13-1)+Y12)+B13*C13*((P13-1)*(P13-1)+B13*A13*(F13-1)*(F13-1));

IF Y13>1 THEN Y13:=1;

Y14:=A14*F14*((B14-1)*(B14-1)+Y13)+B14*C14*((P14-1)*(P14-1)+B14*A14*(F14-1)*(F14-1));

IF Y14>1 THEN Y14:=1;

Y15:=A15*F15*((B15-1)*(B15-1)+Y14)+B15*C15*((P15-1)*(P15-1)+B15