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

Страницы работы

Уважаемые коллеги! Предлагаем вам разработку программного обеспечения под ключ.

Опытные программисты сделают для вас мобильное приложение, нейронную сеть, систему искусственного интеллекта, SaaS-сервис, производственную систему, внедрят или разработают ERP/CRM, запустят стартап.

Сферы - промышленность, ритейл, производственные компании, стартапы, финансы и другие направления.

Языки программирования: Java, PHP, Ruby, C++, .NET, Python, Go, Kotlin, Swift, React Native, Flutter и многие другие.

Всегда на связи. Соблюдаем сроки. Предложим адекватную конкурентную цену.

Заходите к нам на сайт и пишите, с удовольствием вам во всем поможем.

Фрагмент текста работы

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

Похожие материалы

Информация о работе

Уважаемые коллеги! Предлагаем вам разработку программного обеспечения под ключ.

Опытные программисты сделают для вас мобильное приложение, нейронную сеть, систему искусственного интеллекта, SaaS-сервис, производственную систему, внедрят или разработают ERP/CRM, запустят стартап.

Сферы - промышленность, ритейл, производственные компании, стартапы, финансы и другие направления.

Языки программирования: Java, PHP, Ruby, C++, .NET, Python, Go, Kotlin, Swift, React Native, Flutter и многие другие.

Всегда на связи. Соблюдаем сроки. Предложим адекватную конкурентную цену.

Заходите к нам на сайт и пишите, с удовольствием вам во всем поможем.