<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE exportData>
<exportData ApplicationVersion="2.3.264-b11" ApplicationName="zWorkbench">
  <LibraryRefs/>
  <PrjItem InstanceFactoryInfo="ztools.FactoryTag.StPou" ID="13" Name="кусочно линейный график">
    <Property text="PROGRAM lin_grap &#10;&#10;VAR_INPUT&#10;X1 : REAL; X2 : REAL; X3 : REAL; X4 : REAL; X5 : REAL; X6 : REAL; X7 : REAL; X8 : REAL;&#10;Y1 : REAL; Y2 : REAL; Y3 : REAL; Y4 : REAL; Y5 : REAL; Y6 : REAL; Y7 : REAL; Y8 : REAL;&#10;Tnar : REAL;&#10;END_VAR&#10;&#10;VAR_OUTPUT&#10;  out : REAL;&#10;END_VAR&#10;&#10;VAR&#10;a: REAL; b: REAL;&#10;i: INT; i1: INT; i2: INT;&#10;Xarray: ARRAY [0..7] OF REAL;&#10;Yarray: ARRAY [0..7] OF REAL;&#10;END_VAR&#10;&#10;Xarray[0]:=X1; Yarray[0]:=Y1;&#10;Xarray[1]:=X2; Yarray[1]:=Y2;&#10;Xarray[2]:=X3; Yarray[2]:=Y3;&#10;Xarray[3]:=X4; Yarray[3]:=Y4;&#10;Xarray[4]:=X5; Yarray[4]:=Y5;&#10;Xarray[5]:=X6; Yarray[5]:=Y6;&#10;Xarray[6]:=X7; Yarray[6]:=Y7;&#10;Xarray[7]:=X8; Yarray[7]:=Y8;&#10;&#10;FOR i:= 0 TO 7 DO&#10;IF X1 &lt; X8 THEN&#10;IF Tnar &gt;= Xarray[i] AND Tnar &lt;= Xarray[i+1] THEN&#10;i1:=i;&#10;i2:= i1+1;&#10;END_IF&#10;ELSE&#10;IF Tnar &lt;= Xarray[i] AND Tnar &gt;= Xarray[i+1] THEN&#10;i1:=i;&#10;i2:= i1+1;&#10;END_IF&#10;END_IF&#10;END_FOR&#10;&#10;a:= (Yarray[i2]-Yarray[i1])/(Xarray[i2]-Xarray[i1]);&#10;b:= -a*Xarray[i1]+Yarray[i1];&#10;out:=a*Tnar+b;&#10;&#10;END_PROGRAM&#10;"/>
  </PrjItem>
</exportData>
