Operazione arcoseno di tipo BCD
La funzione calcola l'arcoseno di un valore BCD inserito all'ingresso s sotto forma di ARRAY con tre elementi. Il risultato viene restituito come dato angolare BCD nell'intervallo da 0° a 360° (da 16#0 a 16#360) all'uscita d.
Ingresso
Area in cui viene memorizzato il dato dell'angolo
Uscita
Risultato memorizzato in 3 word
I valori BCD per l'ingresso s si attestano nell'area da -1,0000 a 1,0000. Vengono inseriti come segue:
segno precedente (0 quando l'ingresso è +, 1 quando l'ingresso è -)
numero intero prima del punto decimale (0 o 1)
numeri dopo il punto decimale con 4 cifre significative come valore BCD (da 16#0000 a 16#9999).
se s non è un valore BCD
se s non è compreso tra -1,0000 e 1,0000.
se s non è un valore BCD
se s non è compreso tra -1,0000 e 1,0000.
se il risultato è 0.
se il risultato è in overflow.
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*)
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#60
corresponds to 60°*)
END_VAR
Al primo elemento di input_value dell'ARRAY viene attribuito il valore 1 (segno -). Il secondo elemento presenta 0 come valore a numero intero e nel terzo elemento viene scritto 16#4500 come valore dopo il punto decimale. Quando la variabile start è impostata su TRUE, la funzione viene eseguita. Il risultato per output_value = 16#333 (333°).
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 3 ;
NETWORK_BODY
B(B_VARIN,,1,8,0,10,2,);
B(B_VAROUT,,input_value[0],10,0,12,2,);
L(1,0,1,3);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 3 ;
NETWORK_BODY
B(B_VARIN,,0,8,0,10,2,);
B(B_VAROUT,,input_value[1],10,0,12,2,);
L(1,0,1,3);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 3 ;
NETWORK_BODY
B(B_VARIN,,16#4500,8,0,10,2,);
B(B_VAROUT,,input_value[2],10,0,12,2,);
L(1,0,1,3);
END_NETWORK_BODY
END_NET_WORK
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,F303_BASIN,,9,0,18,4,,?DEN?D@'s'?AENO?Cd);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
input_value[0]:=1;
input_value[1]:=0;
input_value[2]:=16#4500;
IF start THEN
F303_BASIN(input_value, output_value);
END_IF;