Tangente BCD
La función calcula el tangente del dato angular en código BCD (entrada s) y almacena el resultado (salida d) como un dato BCD en un array con tres elementos.
Entrada
Área donde se almacena el valor del ángulo
Salida
El resultado se almacena en un array de 3 palabras
Los valores BCD para la entrada s tienen que estar entre 0° y 360° (de 16#0 a 16#360) en pasos de 1°. Por ello, el resultado en la salida d se encuentra en el rango de -57,2900 a 57,2900. El resultado se devuelve de la siguiente forma:
signo (0 si es +, 1 si es -)
parte entera antes de la coma (0 ó 1)
parte decimal después de la coma con 4 cifras como valor BCD (de 16#0000 a 16#9999).
si s no es un dato BCD
si s no está entre 0° y 360°.
si s no es un dato BCD
si s no está entre 0° y 360°.
si el resultado es 0.
en caso de desbordamiento del resultado.
Todas las variables de entrada y de salida utilizadas para la programación de esta función han sido declaradas en la Cabecera de la POU. Se utiliza la misma cabecera de la POU para todos los lenguajes de programación.
VAR
start: BOOL:=FALSE;
(*activates the function*)
input_value: ARRAY [0..2] OF WORD:=[2(0),16#5000];
(*corresponds to 0.5*)
output_value: WORD:=0;
(*result after a 0->1 leading
edge from start: 16#30
corresponds to 30°*)
END_VAR
En este ejemplo se ha declarado la variable de entrada input_value. Sin embargo, se puede introducir una constante (por ejemplo 16#89 para 89°) directamente en la entrada de la función.
Cuando la variable start está ajustada a TRUE, se ejecuta la función. El valor de input_value se inicializa con el valor 16#89 (89°) en la cabecera de la POU. El resultado se escribe en el ARRAY output_value. En el primer elemento del ARRAY, el valor de output_value = 16# (+ signo). En el segundo elemento, 16#57 representa la parte entera, y 16#2899 la parte decimal que se almacena en el tercer elemento.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 14 ;
NETWORK_BODY
B(B_VARIN,,output,6,1,8,3,);
B(B_VARIN,,input_value,6,2,8,4,);
B(B_VAROUT,,output_value,17,2,19,4,);
B(B_F,F302_BTAN,,8,0,17,4,,?DEN?D@'s'?AENO?Cd);
B(B_COMMENT,,output_value undefinedø^if input_valueø^90° or 270°,25,0,37,3,);
B(B_COMMENT,,output_value[0] = 1ø^if input_valueø^between 91° and 179° orø^between 271° and 359°,25,3,37,7,);
L(1,0,1,14);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start THEN
F302_BTAN(input_value, output_value);
END_IF;