Operazione seno di tipo BCD
La funzione calcola il seno del dato angolare in codice BCD (ingresso s) e memorizza il risultato (uscita d) sotto forma di valore BCD in un array con tre elementi.
Ingresso
area a 16 bit 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 0° a 360° (da 16#0 a 16#360) a passi di 1°. Con ciò, l'uscita d può restituire un risultato nell'intervallo da -1,0000 a 1,0000. Il risultato viene restituito 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 0° e 360°.
se s non è un valore BCD
se s non è compreso tra 0° e 360°.
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: WORD:=16#30;
(*corresponds to 30°*)
output_value: ARRAY [0..2] OF WORD:=[3(0)];
(*result after a 0->1 leading
edge from start:
[0,0,5000]*)
input_181_to_359: BOOL:=FALSE;
input_90_or_270: BOOL:=FALSE;
END_VAR
In questo esempio viene dichiarata la variabile di ingresso input_value. Potete tuttavia scrivere una costante (p.es. 16#45 per 45°) direttamente nel contatto di ingresso della funzione.
Nel corpo, il valore 90° viene allocato alla variabile input_value. Quando la variabile start è impostata su TRUE, la funzioneF300_BSIN viene eseguita. Il risultato viene memorizzato nella variabile output_value. Se input_value è compreso tra 181° e 359°, output_value presenta un segno meno. La funzione WORD_TO_BOOL imposta la variabile input_181_to_359 su TRUE. Con input_value pari a 90° o 270°, output_value è 1, il quale rappresenta il valore prima del punto decimale. In questo caso WORD_TO_BOOL imposta il valore della variabile input_90_or_270 su TRUE.
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,,16#90,8,0,10,2,);
B(B_VAROUT,,input_value,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 := 4 ;
NETWORK_BODY
B(B_F,F300_BSIN,,10,0,19,4,,?DEN?D@'s'?AENO?Cd);
B(B_VARIN,,input_value,8,2,10,4,);
B(B_VAROUT,,output_value,19,2,21,4,);
B(B_VARIN,,output,8,1,10,3,);
L(1,0,1,4);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 3 ;
NETWORK_BODY
B(B_VARIN,,output_value[0],8,1,10,3,);
B(B_F,WORD_TO_BOOL,,10,0,21,3,,?Da_Word?C);
B(B_VAROUT,,input_181_to_359,21,1,23,3,);
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,,output_value[1],8,1,10,3,);
B(B_F,WORD_TO_BOOL,,10,0,21,3,,?Da_Word?C);
B(B_VAROUT,,input_90_or_270,21,1,23,3,);
L(1,0,1,3);
END_NETWORK_BODY
END_NET_WORK
END_BODY
input_value:=16#90;
IF start THEN
F300_BSIN( input_value, output_value );
END_IF;
input_181_to_359:=WORD_TO_BOOL(output_value[0]);
input_90_or_270:=WORD_TO_BOOL(output_value[1]);