F303_BASIN

BCD形実数逆正弦

3つの要素を持つ配列 ARRAY s で指定したBCD値の逆正弦を演算します。演算結果は、0 ～ 360度 (16#0～16#360) のBCD形式の角度データとして、dに格納されます。

パラメータ

入力

s ARRAY [0..2] of (WORD): 角度データが格納されているエリア

出力

d (WORD): 結果を3ワードで格納

解説

入力sは、-1.0000 ～ 1.0000のBCDデータで、以下のように指定します。

ARRAY[0]: 符号(正のとき0、負のとき1)
ARRAY[1]: 整数部(0または1)
ARRAY[2]: 小数点以下の値を4桁のBCD値として入力 (16#0000～16#9999)

エラーフラグ

sys_bIsOperationErrorHold (TRUEになり、TRUEを保持)

s の入力値がBCDデータでないときON
s の入力値が-1.0000～1.0000の範囲内でないときON

sys_bIsOperationErrorNonHold (1回のスキャンに対してTRUE)

s の入力値がBCDデータでないときON
s の入力値が-1.0000～1.0000の範囲内でないときON

sys_bIsEqual (TRUEになり、TRUEを保持)

結果が“0”のときON

sys_bIsCarry (1回のスキャンに対してTRUE)

結果がオーバーフローしたときON

例

POUヘッダ

POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。

	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

LDボディ

input_valueの最初の要素には、1 (負の符号)が入力されています。2番目の要素には0 (整数部)、3番目の要素には16#4500 (小数部)が入力されています。変数startがON (TRUE)のとき、このファンクションが実行されます。演算結果は、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

STボディ

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