BCD 형식 사인 연산
이 펑션은 BCD 코드 각도 데이터의 사인(입력 s)을 계산하고 그 결과(출력 d)를 세 개 요소가 있는 ARRAY에 BCD 값으로 저장합니다.
입력
각도 데이터가 저장되는 16비트 영역
출력
워드 3개에 저장된 결과
입력 s의 BCD 값은 1° 단계의 0° ∼ 360°(16#0 ∼ 16#360) 영역에 존재합니다. 이 경우 출력 d는 -1,0000 ∼ 1,0000 범위 내에서 결과를 생성할 수 있습니다. 결과는 다음을 반환합니다.
선행 부호(입력이 +인 경우는 0, 입력이 -인 경우는 1)
소수점 앞 정수(0 또는 1)
4개 유효 숫자가 BCD 값인 소수점 뒤 수(16#0000 ∼16#9999).
s가 BCD 값이 아닌 경우
s가 0°와 360° 사이가 아닌 경우.
s가 BCD 값이 아닌 경우
s가 0°와 360° 사이가 아닌 경우.
결과가 0인 경우.
결과가 더 큰 경우.
이 펑션 프로그램 시 사용한 모든 입력과 출력 변수는 POU 헤더에서 선언되었습니다. 모든 프로그래밍 언어에 같은 POU 헤더를 사용합니다.
VAR
start: BOOL:=FALSE;
(*activates the function*)
input_value: WORD:=16#30;
(*corresponds to 30°*)
output_value: ARRAY [0..2] OF WORD:=[3(0)];
(*result after a 0->1 leading
edge from start:
[0,0,5000]*)
input_181_to_359: BOOL:=FALSE;
input_90_or_270: BOOL:=FALSE;
END_VAR
이 예에서는 입력 변수 input_value가 선언됩니다. 그러나 펑션의 입력 접점에 직접 상수(예: 45°의 경우 16#45)를 쓸 수 있습니다.
본문에서 변수 input_value에 값 90°가 할당됩니다. 변수 start가 TRUE로 설정되면 F300_BSIN 펑션이 실행됩니다. 결과는 변수 output_value에 저장합니다. input_value가 181°와 359° 사이에 있으면 output_value는 - 부호를 갖습니다. 펑션 WORD_TO_BOOL은 변수 input_181_to_359를 TRUE로 설정합니다. input_value가 90° 또는 270°이면 output_value는 1이며 이는 소수점 앞의 값을 나타냅니다. 이러한 경우 WORD_TO_BOOL은 변수 input_90_or_270의 값을 TRUE로 설정합니다.
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#90,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 := 4 ;
NETWORK_BODY
B(B_F,F300_BSIN,,10,0,19,4,,?DEN?D@'s'?AENO?Cd);
B(B_VARIN,,input_value,8,2,10,4,);
B(B_VAROUT,,output_value,19,2,21,4,);
B(B_VARIN,,output,8,1,10,3,);
L(1,0,1,4);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 3 ;
NETWORK_BODY
B(B_VARIN,,output_value[0],8,1,10,3,);
B(B_F,WORD_TO_BOOL,,10,0,21,3,,?Da_Word?C);
B(B_VAROUT,,input_181_to_359,21,1,23,3,);
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,,output_value[1],8,1,10,3,);
B(B_F,WORD_TO_BOOL,,10,0,21,3,,?Da_Word?C);
B(B_VAROUT,,input_90_or_270,21,1,23,3,);
L(1,0,1,3);
END_NETWORK_BODY
END_NET_WORK
END_BODY
input_value:=16#90;
IF start THEN
F300_BSIN( input_value, output_value );
END_IF;
input_181_to_359:=WORD_TO_BOOL(output_value[0]);
input_90_or_270:=WORD_TO_BOOL(output_value[1]);