#PCDU A BCC 15 A Set

VAR_p1 := NPWD5015.eng;
VAR_p2 := NPWD5016.eng;
VAR_p3 := NPWD5017.eng;
VAR_min := 14.9;
VAR_max := 15.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);