Somme et moyenne arithmétique d’un tableau de données à virgule flottante
Cette fonction calcule la somme et la moyenne arithmétique (avec signes +/-) de valeurs à virgule flottante dans le tableau de données 32 bits indiqué.
Entrée
Zone de départ du tableau de données
Zone finale du tableau de données
Sortie
Somme de tous les éléments du tableau de données indiqué
Moyenne de tous les éléments du tableau de données indiqué
L’entrée s1_Start désigne la zone de départ du tableau de données et s2_End indique la fin. La somme de tous les éléments du tableau de données est renvoyée en sortie Sum et la moyenne arithmétique de tous les éléments du tableau de données est renvoyée en sortie Mean.
Au lieu d’utiliser cette instruction F, nous recommandons d’utiliser l’instruction FP7 correspondante :
Si l’adresse de la variable en entrée s1_Start > s2_End.
Si les zones d’adresses sont différentes.
Si les valeurs à virgule flottante sont en dehors de l’intervalle de traitement.
Si l’adresse de la variable en entrée s1_Start > s2_End.
Si les zones d’adresses sont différentes.
Si les valeurs à virgule flottante sont en dehors de l’intervalle de traitement.
Si le résultat est en dehors de l’intervalle autorisé.
Toutes les variables d’entrée et de sortie utilisées pour programmer cette fonction ont été déclarées dans l’en-tête du POU. Le même en-tête de POU est utilisé pour tous les langages de programmation.
VAR
start: BOOL:=FALSE;
(*activates the function*)
data_array: ARRAY [0..4] OF REAL:=[4.0,7.0,-32.0,13.0,5.0];
(*result after a 0->1 leading
edge from start:
[-32.0,4.0,5.0,7.0,13.0]*)
asc_order: INT:=0;
(*which way to sort:
0 means ascending order
1 means descending order*)
END_VAR
La fonction est exécutée lorsque la variable start est sur TRUE.
Elle calcule la somme sum = 2.0 + 3.45 + (-6.91) + 5.44 + 1.3 = 5.28
et la moyenne mean = Sum/5 = 5.28/5 = 1.056
des éléments de la zone de données data_field.
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,,sum,19,2,21,4,);
B(B_F,F352_FMEAN,,10,0,19,5,,?DEN?D@'s1'?Ds2?AENO?Csum?Cmean);
B(B_VAROUT,,mean,19,3,21,5,);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start then
F352_FMEAN( s1_Start:= data_field[0] ,
s2_End:= data_field[4] ,
Sum=> sum ,
Mean=> mean );
END_IF;