F305_BATAN

Arkustangens-Funktion mit BCD-codierten Werten

Die Funktion berechnet den Arkustangens 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 90° (16#0 bis 16#90) oder von 270° bis 360° (16#270 bis 16#360) am Ausgang d zurückgegeben.

Parameter

Eingang

s ARRAY [0..2] of (WORD): Bereich, in dem Winkelwerte in 3 Wörtern gespeichert werden

Ausgang

d (WORD): Ergebnis

Anmerkungen

BCD-Werte für den Eingang s liegen im Bereich von -9999,9999 bis 9999,9999. Sie werden wie folgt eingegeben:

ARRAY[0]: Vorzeichen des Eingangswertes (0 bei positivem Vorzeichen, 1 bei negativem Vorzeichen).
ARRAY[1]: Vorkommawert als ganze Zahl (0 oder 1).
ARRAY[2]: Nachkommastellen als BCD-codierter Wert auf 4 Stellen gerundet (16#0 bis 16#9999).

Fehleralarmmerker

sys_bIsOperationErrorHold (wird auf TRUE gesetzt und bleibt TRUE): wenn s kein BCD-codierter Wert ist.
sys_bIsOperationErrorNonHold (wird für einen Zyklus auf TRUE gesetzt): wenn s kein BCD-codierter Wert ist.
sys_bIsEqual (wird auf TRUE gesetzt und bleibt TRUE): wenn das Funktionsergebnis 0 ist.
sys_bIsCarry (wird für einen Zyklus auf TRUE gesetzt): wenn das Ergebnis einen Speicherüberlauf verursacht.

Verwandte Themen

Beispiel

POE-Kopf

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

KOP-Rumpf

Dem ersten Element des ARRAY input_value wird der Wert 0 (positives Vorzeichen) übergeben. Dem zweiten Element wird der Vorkommawert 0 und dem dritten Element die Nachkommastellen 3639 zugeordnet. Wenn die Variable start auf TRUE gesetzt wird, wird die Funktion ausgeführt. Das Funktionsergebnis für output_value = 16#20 (20°).

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,,0,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#3639,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,8,1,10,3,);
B(B_VARIN,,input_value,8,2,10,4,);
B(B_VAROUT,,output_value,19,2,21,4,);
B(B_F,F305_BATAN,,10,0,19,4,,?DEN?D@'s'?AENO?Cd);
L(1,0,1,5);
        END_NETWORK_BODY
    END_NET_WORK
END_BODY

ST-Rumpf

input_value[0]:=0;
input_value[1]:=0;
input_value[2]:=16#3639;
IF start THEN         
    F305_BATAN(input_value, output_value);
END_IF;