F301_BCOSKosinus-Funktion mit BCD-codierten Werten
Die Funktion berechnet den Kosinus eines BCD-Winkelwertes (Eingang s) und speichert das Ergebnis (Ausgang d) als BCD-Wert in einem ARRAY mit drei Elementen.

Eingang
16-Bit-Bereich zur Speicherung des Winkelwertes
Ausgang
Ergebnis wird in 3 Wörtern gespeichert
BCD-Werte für den Eingang s liegen im Bereich von 0° bis 360° (16#0 bis 16#360) in 1° Schritten. Damit kann das am Ausgang d anliegende Ergebnis Werte im Bereich von -1,0000 bis 1,0000 annehmen. Das Funktionsergebnis wird wie folgt zurückgegeben:
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 0° und 360° liegt.
wenn s kein BCD-codierter Wert ist.
wenn s nicht zwischen 0° und 360° 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
		start: BOOL:=FALSE;
			(*activates the function*)
		input_value: WORD:=16#60;
			(*corresponds to 60°*)
		output_value: ARRAY [0..2] OF WORD:=[3(0)];
			(*result after a 0->1 leading
edge from start:
[0,1,7321]*)
	END_VARIn diesem Beispiel wird die Eingangsvariable input_value deklariert. Statt dessen können Sie im Rumpf auch eine Konstante (z.B. 16#45 für 45°) direkt an den Eingang der Funktion schreiben.

Im Rumpf wird der Variablen input_value der Wert 16#45° zugewiesen. Wenn die Variable start auf TRUE gesetzt wird, wird die Funktion ausgeführt.Das Ergebnis lautet am Ausgang d: output_value[0] = 0, output_value[1] = 0, output_value[2] = 7071.

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#45,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 := 6 ;
        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,F301_BCOS,,9,0,18,4,,?DEN?D@'s'?AENO?Cd);
B(B_COMMENT,,output_value[0] = 1ø^if input_valueø^between 91° and 269°,26,0,38,3,);
B(B_COMMENT,,output_value[1] = 1ø^if input_valueø^0° or 180°,26,3,38,6,);
L(1,0,1,6);
        END_NETWORK_BODY
    END_NET_WORK
END_BODY
input_value:=16#45;
IF start THEN         
    F301_BCOS( input_value, output_value );
END_IF;