Average calculation without bad signals

FUNCTION_BLOCK FB98

VAR_INPUT

SIG1:REAL:=10.0;

SIG2:REAL:=20.0;

SIG3:REAL:=30.0;

SIG4:REAL:=40.0;

SIG5:REAL:=50.0;

QBAD1:BOOL:=FALSE;  // FALSE NORMAL READING

QBAD2:BOOL:=FALSE;  // FALSE NORMAL READING

QBAD3:BOOL:=FALSE;  // FALSE NORMAL READING

QBAD4:BOOL:=FALSE;  // FALSE NORMAL READING

QBAD5:BOOL:=FALSE;  // FALSE NORMAL READING

END_VAR

VAR_OUTPUT

AV:REAL:=0.0; // AV OF VALID DATA

N:REAL:=0.0; // NUMBER OF VALID DATA

END_VAR

VAR

ZSUM:REAL:=0.0; // SUM OF VALID DATA

ZN:REAL:=0.0; // NUMBER OF VALID DATA

END_VAR

N:=0.0;ZN:=0.0;ZSUM:=0.0;

IF (QBAD1= FALSE) THEN  ZN:=ZN+1.0; ZSUM:=ZSUM+SIG1    ;     END_IF;

IF (QBAD2= FALSE) THEN  ZN:=ZN+1.0; ZSUM:=ZSUM+SIG2    ;     END_IF;

IF (QBAD3= FALSE) THEN  ZN:=ZN+1.0; ZSUM:=ZSUM+SIG3    ;     END_IF;

IF (QBAD4= FALSE) THEN  ZN:=ZN+1.0; ZSUM:=ZSUM+SIG4    ;     END_IF;

IF (QBAD5= FALSE) THEN  ZN:=ZN+1.0; ZSUM:=ZSUM+SIG5    ;     END_IF;

IF (ZN=0.0) THEN AV:=0.0; ELSE  AV:=(ZSUM/ZN); END_IF;

N:=ZN;

;

END_FUNCTION_BLOCK