Arcocoseno BCD
La función calcula el arcocoseno de un valor BCD introducido en la entrada s como un ARRAY con tres elementos. El resultado es un ángulo BCD entre 0° y 360° (de 16#0 a 16#360) que se almacena en la salida d.
Entrada
Área de 3 palabras para almacenar el ángulo
Salida
Resultado
Los valores BCD de la entrada s tienen que estar dentro del rango de -1,0000 a 1,0000. Se introducen 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 -1,0000 y 1,0000
si s no es un dato BCD
si s no está entre -1,0000 y 1,0000
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
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
Cuando la variable start está ajustada a TRUE, se ejecuta la función.
input_value = 0 (signo + ) en el primer elemento del ARRAY. 0 representa el valor entero en el segundo elemento, y el valor después de la coma es 8660. La función, por lo tanto, devuelve el valor almacenado en 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;