国产一区一区-色丁香在线-在线天堂视频-亚洲综合久久久久久888-丁香六月婷婷激情-欧美人与动牲交app视频-www.亚洲免费-91九色视频在线-国产视频福利一区-免费视频亚洲-亚洲男女激情-无码中文av波多野吉衣迅雷下载-亚洲电影区图片区小说区-国产精品一区二区在线-又黄又爽又猛的视频免费

(* 初始化*)
IF bstart THEN
    IF NOT bstartOld THEN
        DataMax:=0.0;
        DataMin:=0.0;
        DataSun:=0.0;
        bstartFlg:=TRUE;
    END_IF;
ELSIF bstartOld THEN
    bstartFlg:=FALSE;
        DataMax:=0.0;
        DataMin:=0.0;
        DataSun:=0.0;
END_IF;

(* 計算*)
IF bstartFlg AND NOT bstartFlgOld THEN
    FOR     index:=0 TO 19 DO
         IF DataMax<Data[index]THEN  (*求最大值*)
             DataMax:=Data[index];
         END_IF;
        
         IF DataMin>Data[index]THEN  (*求最小值*)
             DataMin:=Data[index];
         END_IF;
        
          DataSun:=Data[index]+DataSun;(*求和*)
          DataAverage:=(DataSun-DataMax-DataMin)/18.0;(*求平均值*)
     END_FOR;    
END_IF;

bstartOld:=    bstart ;
bstartFlgOld:=bstartFlg;