流量水位公式

过热蒸汽流量补偿

公式：

A4:=A1+0.09806;

IF D.Bit0=1 THEN A3:=1-0.00065*A0/A4;

ELSE A3:=1-0.00035*A0/A4;

END_IF;

A3:=A3*(I0*(1+I1*(A2-20)/100000000)/100)**2;

A3:=0.0001261749*I2*A3*SQRT(A0)/1000000;

A5:=0.000034819+(0.00000013479+(-0.00000000094999+0.0000000000010631*A2) *A2)*A2;

A5:=A5*A4-0.00096404+(-0.0000041917+(0.000000026949-0.000000000029142*A2) *A2)*A2;

A5:=A5*A4-0.013448+(0.000048602+(-0.00000007948+0.000000000049897*A2)*A2) *A2;

A5:=A5*A4+0.112714+(0.00053126+(-0.00000012051+0.000000000068694*A2)*A2) *A2;

IF D.Bit1 THEN A6:=1963+(1435.8+465.4*A5)*A5;

END_IF;

A5:=A4/A5;

IF A5<0.0001 THEN A5:=0.0001;

END_IF;

A7:=A3*SQRT(A5);

汽包水位补偿

(双室)

公式:

A6:=A1+0.09806;

if A6<0.5 then A2:=974.46+(132.17*A6-188.70)*A6;

else if A6<3 then A2:=943.10+(7.2506*A6-66.643)*A6;

else if A6<12 then A2:=887.26+(0.240249*A6-27.902)*A6;

else if A6<18 then A2:=751.73-(4.075+0.81958*A6)*A6;

end_if;

end_if;

end_if;

end_if;

if A6<0.5 then A3:=0.047198+(5.5138-0.54988*A6)*A6;

else if A6<2.5 then A3:=0.2155+(4.9288-0.0059406*A6)*A6;

else if A6<12 then A3:=1.0431+(4.3345+0.105589*A6)*A6;

else if A6<18 then A3:=-20.788+(10.922-(0.57244-0.024438*A6)*A6)*A6;

end_if;

end_if;

end_if;

end_if;

A7:=(I0*(I2/10000-A3)/100-A0*1000)/A2-I1/100;