Arc cosinus de données BCD
La fonction calcule l’arc cosinus d’une valeur BCD définie en entrée s dans un tableau (ARRAY) à trois éléments. Le résultat est renvoyé en valeur d’angle BCD, située entre 0° et 360° (16#0 à 16#360), en sortie d.
Entrée
Zone dans laquelle la valeur d’angle est sauvegardée dans trois mots
Sortie
Résultat
Les valeurs BCD pour l’entrée s sont situées entre -1,0000 et 1,0000. Ces valeurs sont entrées de la façon suivante :
Signe positif ou négatif (0 lorsque l’entrée est positive, 1 lorsque l’entrée est négative)
Nombre entier avant le point décimal (0 ou 1)
Nombres après le point décimal arrondis à 4 chiffres comme valeur BCD (16#0000 à 16#9999).
Si s n’est pas une valeur BCD
Si s n’est pas entre -1,0000 et 1,0000.
Si s n’est pas une valeur BCD
Si s n’est pas entre -1,0000 et 1,0000.
Si le résultat est 0.
Si le résultat provoque un dépassement positif.
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
output: BOOL:=FALSE;
(*activates the function*)
input_value: ARRAY [0..2] OF WORD:=[3(0)];
(*number between -9999.9999 and 9999.9999
input_value[0] = +/- sign
input_value[1] = pre-decimal point values
input_value[2] = post-decimal point values*)
output_value: WORD:=0;
(*BCD value between
16#0 and 16#360 (0° and 360°)
result: here 16#20*)
END_VAR
VAR
output: BOOL:=FALSE;
(*activates the function*)
input_value: ARRAY [0..2] OF WORD:=[3(0)];
(*number between -9999.9999 and 9999.9999
input_value[0] = +/- sign
input_value[1] = pre-decimal point values
input_value[2] = post-decimal point values*)
output_value: WORD:=0;
(*BCD value between
16#0 and 16#360 (0° and 360°)
result: here 16#20*)
END_VAR
La fonction est exécutée lorsque la variable start est sur TRUE.
La valeur d’entrée input_value = 0 (signe +) dans le premier élément du tableau (array). 0 représente le nombre avant le point décimal, dans le second élément, et dans le troisième élément, la valeur après le point décimal est 8660. La fonction calcule ainsi la valeur de sortie output_value = 16#30 (30°).BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 5 ;
NETWORK_BODY
B(B_VARIN,,output,7,1,9,3,);
B(B_VARIN,,input_value,7,2,9,4,);
B(B_VAROUT,,output_value,18,2,20,4,);
B(B_F,F304_BACOS,,9,0,18,4,,?DEN?D@'s'?AENO?Cd);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start THEN
F304_BACOS(input_value, output_value);
END_IF;