#PCDU A EOC 22.000 V Set

VAR_p1 := NPWD5012.eng;
VAR_p2 := NPWD5013.eng;
VAR_p3 := NPWD5014.eng;
VAR_min := 21.9;
VAR_max := 22.1; 

if (((VAR_p1 > VAR_min) land (VAR_p1 < VAR_max)) land  ((VAR_p2 > VAR_min) land (VAR_p2 < VAR_max))) lor (((VAR_p1 > VAR_min) land (VAR_p1 < VAR_max)) land  ((VAR_p3 > VAR_min) land (VAR_p3 < VAR_max))) lor (((VAR_p3 > VAR_min) land (VAR_p3 < VAR_max)) land  ((VAR_p2 > VAR_min) land (VAR_p2 < VAR_max))) then          
return(1);
else
return(0);