REAL型データテーブル合計値/平均値計算
このFP命令は、s1_Startとs2_Endで指定されるデータテーブル内の正と負のREAL型データの合計値と平均値を求めます。データテーブル内のすべての要素の合計値は出力d1_Sumに、平均値は出力d2_Meanにそれぞれ格納されます。平均値は小数点以下が切り捨てられます。
入力
データテーブルの先頭
データテーブルの最後
出力
指定したデータテーブルエリアのすべての要素の合計
指定したデータテーブルエリアのすべての要素の平均
インデックス修飾時にエリアを超えたとき
s1_Start>s2_Endのとき
s1_Startとs2_Endが別々のデータエリアに存在するとき。
インデックス修飾時にエリアを超えたとき
s1_Start>s2_Endのとき
s1_Startとs2_Endが別々のデータエリアに存在するとき。
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。
VAR
bStart: BOOL:=FALSE;
(*activates the function*)
arDataField: ARRAY [0..4] OF REAL:=[2.102,3.33,6.61,2.02,-4.14];
rSum: REAL:=0;
(*the sum of all elements of
data_array; here: 9,922*)
rMean: REAL:=0;
(*the arithmetic mean of all
elements of data_array;
here: 1,984*)
END_VAR
変数bStartがTRUEにセットされると、このファンクションが実行されます。
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_CONTACT,,bStart,6,2,8,4,);
B(B_VARIN,,arDataField[0],9,3,11,5,);
B(B_VARIN,,arDataField[4],9,4,11,6,);
B(B_VAROUT,,rSum,25,3,27,5,);
B(B_VAROUT,,rMean,25,4,27,6,);
B(B_F,FP_DATA_MEAN_SUM_REAL!,,11,1,25,6,,?DEN?Ds1_Start?Ds2_End?AENO?Cd1_Sum?Cd2_Mean);
L(1,3,6,3);
L(8,3,11,3);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF bStart then
FP_DATA_MEAN_SUM_REAL(s1_Start := arDataField[0],
s2_End := arDataField[4],
d1_Sum => rSum,
d2_Mean => rMean);
END_IF;