wmw186
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 55 個
工控威望: 314 點
下載積分: 131 分
在線時間: 55(小時)
注冊時間: 2021-11-09
最后登錄: 2024-11-02
查看wmw186的 主題 / 回貼
樓主  發(fā)表于: 2022-11-21 09:40
各位大神,小弟求助關(guān)于三菱work2 用ST語言求20位數(shù)組中值平均數(shù),要求去掉最大值和最小值。數(shù)組單精度實數(shù)類型,求各位大聲不吝賜教!。。。。。。。。。。。。。。。。!
yzdz66
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 60 個
工控威望: 162 點
下載積分: 640 分
在線時間: 51(小時)
注冊時間: 2016-09-23
最后登錄: 2024-12-03
查看yzdz66的 主題 / 回貼
1樓  發(fā)表于: 2022-11-22 23:17
(*三菱work2 用ST語言求20位數(shù)組中值平均數(shù),
要求去掉最大值和最小值 數(shù)組單精度實數(shù)類型 *)

(* 初始化*)
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;
本帖最近評分記錄:
  • 下載積分:+1(wmw186)