【正文】 0)ET 3700 $LOC10 = $ARG3 * $LOC10 / 100ET 3800 $ARG1 = ( + * LOG($LOC10) + * LOG($LOC10) * LOG ($LOC10) * LOG($LOC10) ) / ET 3900 RETURNET 4000 RELEAS(@OPER,AHU33RTX,AHU33RHX,AHU33RTSET,AHU33RHSET)ET 4100 GOTO 100PPCL program PAHU32Field panel name 4State Line StatementET 100 C PAHU32 ET 200 ON(PAHU32SYS)ET 300 PAHU32ON = PAHU32SYS * COM(PAHU32ALM)ET 400 C PAHU32 T ET 500 IF( .EQ. ON) THEN GOTO 600 ELSE GOTO 800ET 600 LOOP(128,PAHU32ST,PAHU32TCVX,PAHU32STSET,PAHU32TCVPG,PAHU 32TCVIG,0,1,0)ET 700 GOTO 900ET 800 LOOP(0,PAHU32ST,PAHU32TCVX,PAHU32STSET,PAHU32TCVPG,PAHU32 TCVIG,0,1,0)ET 900 PAHU32CV = PAHU32TCVX * PAHU32SET 1000 C PAHU32 ALARM ET 1100 IF(PAHU32SD .EQ. ON) THEN ON(PAHU32ALM)ET 1200 IF(PAHU32OL .EQ. ON) THEN ON(PAHU32ALM)ET 1300 IF(PAHU32SYS .EQ. OFF) THEN OFF(PAHU32ALM,PAHU32DPALM)ET 1400 SAMPLE(1) IF(PAHU32S .EQ. ON) THEN PAHU32TM = PAHU32TM + 1 E LSE PAHU32TM = 0ET 1500 IF(PAHU32TM .GE. 45) THEN PAHU32TM = 45ET 1600 IF(PAHU32TM .GE. 45 .AND. PAHU32DP .EQ. OFF) THEN ON(PAHU32DP ALM)ET 1700 C PAHU32 P/I ET 1800 PAHU32TCVIG = PAHU32TCVPG * ET 1900 GOTO 100PPCL program EFRF6Field panel name 5State Line StatementET 100 C EFRF6ET 200 WAIT(0,EFRF6SYS,EFRF6DMEN,11)ET 300 WAIT(90,EFRF6SYS,EFRF6ONEN,11)ET 400 WAIT(0,EFRF6SYS,EFRF6ONEN,0)ET 500 WAIT(15,EFRF6SYS,EFRF6DMEN,0)ET 600 EFRF6DM = 100 * EFRF6DMENET 700 IF(EFRF6OL .EQ. ON) THEN ON(EFRF6ALM)ET 800 EFRF6ON = EFRF6ONEN * COM(EFRF6ALM)ET 810 IF(EFRF6OL .EQ. OFF .AND. EFRF6SYS .EQ. OFF) THEN OFF(EFRF6AL M)ET 900 GOTO 100PPCL program EFRF7Field panel name 5State Line StatementET 100 C EFRF7ET 200 WAIT(0,EFRF7SYS,EFRF7DMEN,11)ET 300 WAIT(90,EFRF7SYS,EFRF7ONEN,11)ET 400 WAIT(0,EFRF7SYS,EFRF7ONEN,0)ET 500 WAIT(15,EFRF7SYS,EFRF7DMEN,0)ET 600 EFRF7DM = 100 * EFRF7DMENET 700 IF(EFRF7OL .EQ. ON) THEN ON(EFRF7ALM)ET 800 EFRF7ON = EFRF7ONEN * COM(EFRF7ALM)ET 810 IF(EFRF7OL .EQ. OFF .AND. EFRF7SYS .EQ. OFF) THEN OFF(EFRF7AL M)ET 900 GOTO 100PPCL program HPBYCVCONTROLField panel name 5State Line StatementET 100 LOOP(0,HPBYDPT,HPBYCVX,HPBYDPTSET,HPBYCVPG,HPBYCVIG,0,1, ,0)ET 200 HPBYCV = HPBYCVXET 300 GOTO 100PPCL program TMMODIFYEField panel name 5State Line StatementET 100 HPSTX = HPST + HPSTYET 200 HPRTX = HPRT + HPRTYET 300 HP4STX = HP4ST + HP4STYET 400 HP4RTX = HP4RT + HP4RTYET 500 HP3STX = HP3ST + HP3STYET 600 HP3RTX = HP3RT + HP3RTYET 610 RELEAS(@OPER,HPSTX,HPRTX,HP4STX,HP4RTX,HP3STX,HP3RTX)ET 700 GOTO 100PPCL program AHU31Field panel name 6State Line StatementET 100 C AHU31 ET 200 ON(AHU31SYS)ET 300 AHU31ON = AHU31SYS * COM(AHU31ALM)ET 400 C AHU31 T/H ET 500 LOOP(0,AHU31RTX,AHU31CVX2,AHU31RTSET,AHU31TCVXPG,AHU31TCV XIG,0,1,0)ET 600 LOOP(128,AHU31RTX,AHU31HVX,AHU31RTSET,AHU31THVPG,AHU31THV IG,0,1,0)ET 700 LOOP(128,AHU31RHX,AHU31HMDX,AHU31RHSET,AHU31HMDPG,AHU31HM DIG,0,1,0)ET 1000 LOOP(0,AHU31RHX,AHU31CVX1,AHU31RHSET,AHU31HCVPG,AHU31HCVI G,0,1,0)ET 1300 MAX(AHU31CVX,AHU31CVX1,AHU31CVX2)ET 1400 AHU31CV = AHU31CVX * AHU31SET 1500 AHU31HV = AHU31HVX * AHU31SET 1600 AHU31HMD1 = AHU31HMDX * AHU31SET 1700 AHU31HMD2 = AHU31HMDX * AHU31SET 1800 C AHU31 ALARM ET 1900 SAMPLE(1) IF(AHU31S .EQ. ON) THEN AHU31TM = AHU31TM + 1 ELSE AHU31TM = 0ET 2000 IF(AHU31TM .GE. 45) THEN AHU31TM = 45ET 2100 IF(AHU31TM .GE. 45 .AND. AHU31DP .EQ. OFF) THEN ON(AHU31ALM)ET 2200 IF(AHU31SD .EQ. ON) THEN ON(AHU31ALM)ET 2300 IF(AHU31OL .EQ. ON) THEN ON(AHU31ALM)ET 2400 IF(AHU31SYS .EQ. OFF) THEN OFF(AHU31ALM)ET 2500 C AHU31 P/I ET 2600 AHU31HCVIG = AHU31HCVPG * ET 2700 AHU31THVIG = AHU31THVPG * ET 2800 AHU31HMDIG = AHU31HMDPG * ET 2900 AHU31TCVXIG = AHU31TCVXPG * ET 3000 C T/H MOD ET 3100 AHU31RTX = AHU31RT + AHU31RTYET 3200 AHU31RHX = AHU31RH + AHU31RHYET 3300 GOSUB 3600 AHU31DTSET,AHU31RTSET,AHU31RHSETET 3400 GOSUB 3600 AHU31RTDT,AHU31RTX,AHU31RHXET 3500 GOTO 4200ET 3600 $LOC10 = / ($ARG2 + )ET 3700 $LOC10 = () * ( $LOC10) * LOG($LOC10) + 5ET 3800 $LOC10 = * / EXP( * $LOC10)ET 3900 $LOC10 = $ARG3 * $LOC10 / 100ET 4000 $ARG1 = ( + * LOG($LOC10) + * LOG($LOC10) * LOG ($LOC10) * LOG($LOC10) ) / ET 4100 RETURNET 4200 RELEAS(@OPER,AHU31RTX,AHU31RHX,AHU31RTSET,AHU31RHSET)ET 4300 GOTO 100 冷凍機(jī)組控制以下程序主要為冷凍機(jī)組的啟停、狀態(tài)、手自動(dòng)的程序調(diào)用控制，以及冷凍機(jī)組運(yùn)行狀態(tài)下的邏輯控制。 =================================== CHILLER OPTIMIZE CONTROL ===================================IF (CHMT .EQ. ON) THEN GOTO 5000MAX($LOC1,CH1RT,CH2RT,CH3RT)IF($LOC1 .GT. 32000) THEN INITTO(CCM1S,CCM2S,CCM3S)SAMPLE(300) CH1RT = TOTAL(CCM1S)SAMPLE(300) CH2RT = TOTAL(CCM2S)SAMPLE(300)