BCD类型正弦运算
此函数计算BCD代码角度数据(输入s)的正弦值,并将结果(输出d)存储为一个三元素数组的BCD值。
输入
存储角度数据的16位区域
输出
以3个字存储的结果
输入s的BCD值位于0°至360°(16#0至16#360)的区域内,步长为1°。由此,输出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。但是,可以直接在函数的输入触点处写入常量(例如,16#45表示45°)。
在本体中,值90°分配到变量input_value。当变量start设置为TRUE时,执行函数F300_BSIN。将结果存储在变量output_value中。如果input_value在181°到359°之间,则output_value带有负号。函数WORD_TO_BOOL将变量input_181_to_359设置为TRUE。使用90°或270°的input_value时,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]);