F305_BATAN

BCD形実数逆正接

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

パラメータ

入力

s ARRAY [0..2] of (WORD): 角度データを3ワードで格納するエリア

出力

d (WORD): 演算結果

解説

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

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

エラーフラグ

sys_bIsOperationErrorHold (TRUEになり、TRUEを保持): s の入力値がBCDデータでないときON
sys_bIsOperationErrorNonHold (1回のスキャンに対してTRUE): s の入力値がBCDデータでないときON
sys_bIsEqual (TRUEになり、TRUEを保持): 結果が“0”のときON
sys_bIsCarry (1回のスキャンに対してTRUE): 結果がオーバーフローしたときON

例

POUヘッダ

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

	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

LDボディ

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

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