Arkuskosinus-Funktion mit BCD-codierten Werten
Die Funktion berechnet den Arkuskosinus eines BCD-codierten Wertes, der in einem ARRAY mit drei Elementen dem Eingang s übergeben wird. Das Ergebnis wird als BCD-Wert im Bereich von 0° bis 360° (16#0 bis 16#360) am Ausgang d zurückgegeben.
Eingang
Bereich, in dem Winkelwerte in 3 Wörtern gespeichert werden
Ausgang
Ergebnis
BCD-Werte für den Eingang s liegen im Bereich von -1,0000 bis 1,0000. Sie werden wie folgt eingegeben:
Vorzeichen des Eingangswertes (0 bei positivem Vorzeichen, 1 bei negativem Vorzeichen).
Vorkommawert als ganze Zahl (0 oder 1).
Nachkommastellen als BCD-codierter Wert auf 4 Stellen gerundet (16#0 bis 16#9999).
wenn s kein BCD-codierter Wert ist.
wenn s nicht zwischen -1,0000 und 1,0000 liegt.
wenn s kein BCD-codierter Wert ist.
wenn s nicht zwischen -1,0000 und 1,0000 liegt.
wenn das Funktionsergebnis 0 ist.
wenn das Ergebnis einen Speicherüberlauf verursacht.
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden. Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
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
Wenn die Variable start auf TRUE gesetzt wird, wird die Funktion ausgeführt.
Im ersten Element des ARRAY input_value steht 0 (positives Vorzeichen). Im zweiten Element steht 0 als Vorkommawert und im dritten Element die Nachkommastellen 8660. Die Funktion berechnet daraus 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;