Ricerca del valore minimo nella tabella dati numero reale (dati a virgola mobile)
La funzione cerca il valore minimo e la relativa posizione nella tabella dati a virgola mobile.
Ingresso
Inizio della tabella dati
Fine della tabella dati
Uscita
valore minimo
posizione del valore minimo
L'ingresso s1_Start specifica l'area iniziale della tabella dati, mentre s2_:End specifica la fine. Il valore minimo viene restituito all'uscita Min e la relativa posizione all'uscita Pos.
Nel caso in cui venga trovato più di un valore minimo, il primo trovato a partire dall'indirizzo iniziale specificato in s1_Start viene memorizzato in Min.
L'indirizzo del valore minimo all'uscita Pos è relativo all'indirizzo iniziale nella tabella dati specificato all'ingresso s1_Start.
se l'indirizzo della variabile all'ingresso s1_Start > s2_End.
se le aree indirizzi di s1_Start e s2_End sono diverse.
se i valori a virgola mobile eccedono l'intervallo di elaborazione di programma.
se l'indirizzo della variabile all'ingresso s1_Start > s2_End.
se le aree indirizzi di s1_Start e s2_End sono diverse.
se i valori a virgola mobile eccedono l'intervallo di elaborazione di programma.
Tutte le variabili di ingresso e uscita utilizzate per programmare questa funzione sono state dichiarate nell'intestazione del POU. La stessa intestazione del POU è utilizzata per tutti i linguaggi di programmazione.
VAR
start: BOOL:=FALSE;
(*activates the function*)
data_array: ARRAY [0..4] OF REAL:=[4.0,7.0,-32.0,13.0,5.0];
sum: REAL:=0.0;
(*the sum of all elements of
data_array; here: -3.0*)
mean: REAL:=0.0;
(*the arithmetic mean of all
elements of data_array;
here: -0.6*)
END_VAR
Quando la variabile start è impostata su TRUE, la funzione viene eseguita.
Cerca quindi un valore minimum e la relativa posizione in data_field. result qui è: min_value = 6,91 e position = 2.BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_VARIN,,output,7,1,9,3,);
B(B_VARIN,,data field[0],7,2,9,4,);
B(B_VARIN,,data field[4],7,3,9,5,);
B(B_VAROUT,,min_value,18,2,20,4,);
B(B_F,F351_FMIN,,9,0,18,5,,?DEN?D@'s1'?Ds2?AENO?Cmin?Cpos);
B(B_VAROUT,,position,18,3,20,5,);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start then
F351_FMIN( s1_Start:= data_field[0],
s2_End:= data_field[4],
Min=> min_value ,
Pos=> position );
END_IF;