BCD 형식 아크탄젠트 연산
이 펑션은 입력 s에서 입력된 BCD 값의 아크탄젠트를 세 개 요소가 있는 ARRAY로 계산합니다. 결과는 출력 BCD에서 0° ∼ 90°(16#0 ∼ 16#90) 또는 270° ∼ 360°(16#270 ∼ 16#360) 범위의 d 각도 데이터로 반환됩니다.
입력
각도 데이터가 워드 3개에 저장되는 영역
출력
결과
입력 s의 BCD 값은 -9999,9999 ∼ 9999,9999 영역에 존재합니다. 이 값은 다음과 같이 입력됩니다.
선행 부호(입력이 +인 경우는 0, 입력이 -인 경우는 1)
소수점 앞 정수(0 또는 1)
4개 유효 숫자가 BCD 값인 소수점 뒤 수(16#0000 ∼16#9999).
s가 BCD 값이 아닌 경우
s가 BCD 값이 아닌 경우
결과가 0인 경우.
결과가 더 큰 경우.
이 펑션 프로그램 시 사용한 모든 입력과 출력 변수는 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
ARRAY의 input_value의 첫 번째 요소에는 값 0(+ 부호)이 부여됩니다. 0은 두 번째 요소의 정수 값이며 세 번째 요소는 소수점 뒤에서 값 3639를 갖습니다. 변수 start가 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
input_value[0]:=0;
input_value[1]:=0;
input_value[2]:=16#3639;
IF start THEN
F305_BATAN(input_value, output_value);
END_IF;