西門子1500寬溫型CPU模塊6AG15131AL027AB0

西門子1500寬溫型CPU模塊6AG15131AL027AB0

6AG1513-1AL02-7AB0 SIPLUS S7-1500 CPU 1513-1 PN -40...+70°C， 帶防腐蝕涂層 根據(jù) 6ES7513-1AL02-0AB0 . 中央處理器，帶 主存儲器 300 KB 用于 程序及 1.5MB 用于數(shù)據(jù)， 第 1 個(gè)接口：PROFINET IRT 帶雙端口交換機(jī)， 40 ns 比特性能表現(xiàn)， 需要 SIMATIC 存儲卡

SIEMENS西門子

*，質(zhì)量保證，保修一年

專業(yè)銷售及維修西門子各類工控自動化配件;

：S7-200CN、S7-200SMART、S7-300、S7-400、 S7-1200、S7-1500、ET200、LOGO邏西門子可編程控制器輯控制模塊

西門子HMI人機(jī)界面：觸摸屏

西門子變頻器：MM420、MM430、MM440、G110、G120、6SE70

西門子工業(yè)以太網(wǎng)：通訊網(wǎng)卡、通訊電纜、通訊接頭、總線連接器 工控機(jī)、交換機(jī)、自動化軟件等系型號齊全，快速報(bào)價(jià)，買我們的產(chǎn)品無憂所值，我們的產(chǎn)品都承諾質(zhì)保一年，讓您買的省心舒心，用的放心！

之前發(fā)布過一個(gè)濕球溫度計(jì)算的SCL代碼，主要是翻譯網(wǎng)上的一個(gè)C語言的，但是PLC跑不動，實(shí)際關(guān)鍵問題在于迭代算法的優(yōu)化。本程序是優(yōu)化了迭代算法。采用了二分法迭代，PLC正常計(jì)算。以下供大家參考學(xué)習(xí) 難算的莫過于是濕球溫度，因?yàn)樾枰\(yùn)算。這個(gè)程序?qū)τ谧鰳强仨?xiàng)目的工程師非常有用的哦。

本程序可計(jì)算 露點(diǎn)、濕球溫度、含濕量、比焓、飽和空氣壓力、水蒸氣分壓

//####################################################
//露點(diǎn)焓值等公式法   采用二分法迭代計(jì)算的濕球溫度
//飽和空氣分壓采用簡便算法
//本程序可計(jì)算 露點(diǎn)、濕球溫度、含濕量、比焓、飽和空氣壓力、水蒸氣分壓
//EBC LW 20181006

//####################################################
FUNCTION_BLOCK FB14
TITLE =   'DP&H'
AUTHOR:   EBC_LW
NAME:     DPH
VERSION:      '0.01'
FAMILY:   EBC
KNOW_HOW_PROTECT

VAR_INPUT
 Tdb:REAL:=23.0;  //干球溫度℃
 RH:REAL:=55.0;//相對濕度%
 ATM:REAL:=101.325; //大氣壓力KPa(千帕)
END_VAR
VAR_OUTPUT
 Pws:REAL;//飽和空氣壓力KPa(千帕)
 Pw:REAL;//空氣的水蒸氣分壓力KPa(千帕)
 Tdp:REAL;//露點(diǎn)溫度℃
 Twb:REAL;//濕球溫度℃
 d:REAL;//空氣的含濕量g/KgDA
 H:REAL;//空氣焓值Kj/KgDA
END_VAR
VAR_TEMP
 LogEW:REAL;
 TEMP_twb:REAL;//濕球溫度猜測值
 TEMP_pws:REAL;//猜測的濕球溫度的飽和空氣壓力KPa(千帕)
 TEMP_d:REAL; //猜測的濕球溫度的空氣含濕量g/Kg干空氣
 TEMP_dt:REAL;//用于迭代的差值
 TEMP_hmid:REAL;//濕球溫度猜測的焓值
 TEMP_tlow:REAL;//用于迭代的下限
 TEMP_thigh:REAL;//用于迭代的上限

 I:INT; //迭代循環(huán)變量
END_VAR
VAR
    // Static Variables

END_VAR
//=====================================================================
//露點(diǎn)溫度計(jì)算            
LogEW:= 0.66077 + 7.5 * Tdb / (237.3 + Tdb) +  (LOG(RH)- 2)  ;
Tdp:=((0.66077- logEW)*237.3)/(logEW - 8.16077) ;
//=====================================================================
//焓值的計(jì)算
  Pws:=0.6112*EXP((18.678-Tdb/234.5)*Tdb/(Tdb+257.14));//簡化算法
  Pw:=RH/100*Pws;//求出空氣的水蒸汽分壓力KPa
  //d:=621.9*(0.01*RH*Pws/(ATM-0.01*RH*Pws));
  d:=621.9*(Pw/(ATM-Pw));
  H:=1.01*Tdb+0.001*d*(2500+1.84*Tdb);
//=====================================================================
//濕球溫度的計(jì)算
 TEMP_tlow := Tdp; //露點(diǎn)值賦給低限
 TEMP_thigh := Tdb;//干球溫度賦給高限
    FOR I:= 1 TO 100 BY 1 DO  //迭代100次 
     TEMP_dt:=(TEMP_thigh-TEMP_tlow)*0.5;//二分法
       TEMP_twb:=TEMP_tlow+TEMP_dt;
       //----------------------------------------------------------------------- Kpa
       //計(jì)算該濕球溫度下的飽和空氣壓力KPa(千帕)
       TEMP_pws := 0.6112*EXP((18.678-TEMP_twb/234.5)*TEMP_twb/(TEMP_twb+257.14));
      //-----------------------------------------------------------------------g/kg（a）
      //計(jì)算該濕球溫度下的含濕量
      TEMP_d:=621.9 * (TEMP_pws/(ATM - TEMP_pws)); 
      //-----------------------計(jì)算焓值-------------------------------------------------kJ/kg
      //計(jì)算該濕球溫度下的焓值
      
      TEMP_hmid:= 1.01 * TEMP_twb + 0.001*TEMP_d* (2501 + 1.84 * TEMP_twb);
      //--------------------------------------------------------------------
      IF (H-TEMP_hmid)>=0.0 THEN
        TEMP_tlow:=TEMP_twb; 
         ELSE
        TEMP_thigh:=TEMP_twb; 
      END_IF;
         IF ABS(TEMP_dt)<0.0001 THEN//設(shè)置迭代精度
            EXIT;
         END_IF;
    END_FOR;
 Twb:=TEMP_twb;//返回迭代猜測正確的濕球溫度

西門子1500寬溫型CPU模塊6AG15131AL027AB0