Ricerca del valore massimo nella tabella dati numero reale (dati a virgola mobile)
La funzione cerca il valore massimo e la relativa posizione in una tabella dati a virgola mobile.
Ingresso
Inizio della tabella dati
Fine della tabella dati
Uscita
valore massimo
posizione del valore massimo
L'ingresso s1_Start specifica l'area iniziale della tabella dati, mentre s2_End specifica la fine. Il valore massimo viene restituito all'uscita Max e la relativa posizione all'uscita Pos.
La posizione Pos è relativa alla posizione all'inizio della tabella dati della prima occorrenza del valore massimo.
Nel caso in cui venga trovato più di un valore massimo, il primo trovato a partire dall'indirizzo iniziale specificato in s1_Start viene memorizzato in Max.
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];
output_max: REAL:=0.0;
(*the maximum value of
data_array; here: -32.0*)
output_pos: INT:=0;
(*the position of the
maximum value; here: 2*)
END_VAR
Quando la variabile start è impostata su TRUE, la funzione viene eseguita.
Cerca quindi un valore massimo e la relativa posizione in data_field. result qui è: max_value = 5,44 e position = 3.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,8,1,10,3,);
B(B_VARIN,,data field[0],8,2,10,4,);
B(B_VARIN,,data field[4],8,3,10,5,);
B(B_VAROUT,,max_value,19,2,21,4,);
B(B_F,F350_FMAX,,10,0,19,5,,?DEN?D@'s1'?Ds2?AENO?Cmax?Cpos);
B(B_VAROUT,,position,19,3,21,5,);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start then
F350_FMAX( s1_Start:= data_field[0],
s2_End:= data_field[4],
Max=> max_value,
Pos=> position);
END_IF;