.MCAD 303010000 1 0 21491 0
.CMD PLOTFORMAT
0 0 1 0 8 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 
.CMD FORMAT  rd=d ct=10 im=i et=6 zt=5 pr=2 mass length time charge temperature tr=0 vm=0
.CMD SET ORIGIN 1
.CMD SET TOL 0.001000000000000
.CMD SET PRNCOLWIDTH 8
.CMD SET PRNPRECISION 4
.CMD PRINT_SETUP 1.200000 0.000000 0.000000 0.000000 0
.CMD HEADER_FOOTER 1 1 *empty* *empty* *empty* 0 1 *empty* *empty* *empty*
.CMD HEADER_FOOTER_FONT fontID=14 family=Arial points=10 bold=0 italic=0 underline=0
.CMD HEADER_FOOTER_FONT fontID=15 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
.CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
.CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
.CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
.CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
.CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
.CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
.CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
.CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
.CMD DEFINE_FONTSTYLE_NAME fontID=10 name=User^7
.CMD DEFINE_FONTSTYLE fontID=0 family=Courier points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=1 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=2 family=Courier points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=4 family=Courier points=15 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=5 family=Courier^New points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=8 family=Roman points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=10 family=Times^New^Roman points=10 bold=0 italic=0 underline=0
.CMD UNITS U=1
.CMD DIMENSIONS_ANALYSIS 0 0
.TXT 4 1 16139 0
Cg a35.000000,85.375000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ATMOSPHERIC THERMODYNAMIC FUNCTIONS}}
}
.TXT 3 0 16140 0
Cg b85.375000,85.375000,163
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {This section contains the standard
 thermodynamic functions\par that can be
 used with a specific procedure.\par Go 
to page 5 for the start of any specific 
calculations}}
}
.TXT 8 0 16141 0
Cg a44.000000,85.375000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Enter Freezing temperature and 
freezing band}}
}
.EQN 4 0 16142 0
{0:TFC}NAME~0
.EQN 0 14 16143 0
{0:FB}NAME~10
.TXT 5 -14 16144 0
Cg a20.000000,20.250000,23
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {1.0 Define constants}}
}
.EQN 2 40 16145 0
{0:KA}NAME~(2)/(7)
.EQN 2 -40 16146 0
{0:CPA}NAME~1004.675
.EQN 0 19 16147 0
{0:RA}NAME~{0:CPA}NAME*{0:KA}NAME
.EQN 6 21 16148 0
{0:KV}NAME~(1)/(4)
.EQN 2 -40 16149 0
{0:CPV}NAME~1846.04
.EQN 0 19 16150 0
{0:RV}NAME~{0:CPV}NAME*{0:KV}NAME
.EQN 3 21 16151 0
{0:\e}NAME~({0:RA}NAME)/({0:RV}NAME)
.EQN 3 -40 16152 0
{0:P0}NAME~100
.EQN 0 19 16153 0
{0:PV0}NAME~0.61068
.EQN 3 -19 16154 0
{0:T0}NAME~273.15
.EQN 0 19 16155 0
{0:TF}NAME~{0:T0}NAME+{0:TFC}NAME
.EQN 0 20 16156 0
{0:G}NAME~9.8
.EQN 4 -39 16157 0
{0:PG}NAME~70
.EQN 0 19 16158 0
{0:TG}NAME~270
.EQN 0 18 16159 0
{0:MG}NAME~0.01
.EQN 4 -37 16160 0
{0:LV0}NAME~2500840
.EQN 0 19 16161 0
{0:LF0}NAME~333660
.EQN 4 -19 16162 0
{0:CW}NAME~4190
.EQN 0 19 16163 0
{0:CI}NAME~2090
.EQN 4 -19 16164 0
{0:\aL}NAME~52.91688
.EQN 0 19 16165 0
{0:\aI}NAME~25.48597
.EQN 3 -19 16166 0
{0:\bL}NAME~6806.171
.EQN 0 19 16167 0
{0:\bI}NAME~6286.1912
.EQN 3 -19 16168 0
{0:\GL}NAME~5.078893
.EQN 0 19 16169 0
{0:\GI}NAME~0.528613
.TXT 4 -19 16170 0
Cg a65.000000,65.250000,68
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {2.0  FUNCTIONS: Vapor pressure,
 mixing ratio, virtual temperature}}
}
.EQN 5 0 16171 0
{0:fPVL}NAME({0:T}NAME)~{0:exp}NAME({0:\aL}NAME-({0:\bL}NAME)/({0:T}NAME)-{0:\GL}NAME*{0:ln}NAME({0:T}NAME))
.EQN 7 0 16172 0
{0:fPVI}NAME({0:T}NAME)~{0:exp}NAME({0:\aI}NAME-({0:\bI}NAME)/({0:T}NAME)-{0:\GI}NAME*{0:ln}NAME({0:T}NAME))
.EQN 7 0 16173 0
{0:fPV}NAME({0:T}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME,{0:fPVL}NAME({0:T}NAME),{0:fPVI}NAME({0:T}NAME))
.EQN 6 0 16174 0
{0:fMVS}NAME({0:P}NAME,{0:T}NAME)~{0:\e}NAME*(({0:fPV}NAME({0:T}NAME))/({0:P}NAME-{0:fPV}NAME({0:T}NAME)))
.EQN 7 0 16175 0
{0:fMVL}NAME({0:P}NAME,{0:T}NAME)~{0:\e}NAME*(({0:fPVL}NAME({0:T}NAME))/({0:P}NAME-{0:fPVL}NAME({0:T}NAME)))
.EQN 9 0 16176 0
{0:fPV2}NAME({0:P}NAME,{0:M}NAME)~{0:M}NAME*({0:P}NAME)/({0:M}NAME+{0:\e}NAME)
.EQN 6 0 16177 0
{0:fMS3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMVS}NAME({0:P}NAME,{0:T}NAME)
.EQN 3 0 16178 0
{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:fMVS}NAME({0:P}NAME,{0:T}NAME)>{0:M}NAME,{0:M}NAME,{0:fMVS}NAME({0:P}NAME,{0:T}NAME))
.EQN 4 0 16179 0
{0:fU3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):100*(({0:fPV2}NAME({0:P}NAME,{0:M}NAME))/({0:fPVL}NAME({0:T}NAME)))
.TXT 3 0 16180 0
C x1,1,0,0
.EQN 5 0 16181 0
{0:fPV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*({0:P}NAME)/({0:\e}NAME+{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))
.EQN 8 0 16182 0
{0:fPA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:P}NAME-{0:fPV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)
.EQN 4 0 16183 0
{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:fMVS}NAME({0:P}NAME,{0:T}NAME)<{0:M}NAME,{0:M}NAME-{0:fMVS}NAME({0:P}NAME,{0:T}NAME),0)
.EQN 4 0 16184 0
{0:fMLB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME-{0:FB}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*({0:T}NAME-{0:TF}NAME+{0:FB}NAME)/({0:FB}NAME),0)
.EQN 8 0 16185 0
{0:fML3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAMEň{0:TF}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:fMLB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))
.EQN 6 0 16186 0
{0:fMIB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAME<{0:TF}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*({0:TF}NAME-{0:T}NAME)/({0:FB}NAME),0)
.EQN 6 0 16187 0
{0:fMI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAME<{0:TF}NAME-{0:FB}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:fMIB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))
.TXT 6 0 16188 0
Cg a11.000000,11.250000,14
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {3.0 ENTROPY}}
}
.EQN 4 0 16189 0
{0:fSA}NAME({0:P}NAME,{0:T}NAME)~{0:CPA}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))-{0:RA}NAME*{0:ln}NAME(({0:P}NAME)/({0:P0}NAME))
.EQN 8 0 16190 0
{0:fSV}NAME({0:P}NAME,{0:T}NAME)~{0:CPV}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))-{0:RV}NAME*{0:ln}NAME(({0:P}NAME)/({0:PV0}NAME))+({0:LV0}NAME)/({0:T0}NAME)
.EQN 8 0 16191 0
{0:fSL}NAME({0:T}NAME)~{0:CW}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))
.EQN 8 0 16192 0
{0:fSI}NAME({0:T}NAME)~{0:CI}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))-({0:LF0}NAME)/({0:T0}NAME)
.EQN 8 0 16193 0
{0:fSA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fSA}NAME({0:fPA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:T}NAME)
.EQN 3 0 16194 0
{0:fSV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fSV}NAME({0:fPV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:T}NAME)
.EQN 3 0 16195 0
{0:fSL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fML3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fSL}NAME({0:T}NAME)
.EQN 3 0 16196 0
{0:fSI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fSI}NAME({0:T}NAME)
.EQN 3 0 16197 0
{0:fST3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fSA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fSV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fSL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fSI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)
.EQN 5 0 16198 0
{0:fSM3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):({0:fST3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))/((1+{0:M}NAME))
.EQN 4 0 16199 0
{0:fSC}NAME({0:T}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME,{0:fSL}NAME({0:T}NAME),{0:fSI}NAME({0:T}NAME))
.EQN 4 0 16200 0
{0:fAA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fSA}NAME({0:P}NAME,{0:T}NAME)+{0:M}NAME*{0:fSC}NAME({0:T}NAME)
.EQN 7 0 16201 0
{0:f\qM4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:PC}NAME)~{0:T}NAME*((({0:PC}NAME)/({0:P}NAME)))^(({0:RA}NAME+{0:M}NAME*{0:RV}NAME)/({0:CPA}NAME+{0:M}NAME*{0:CPV}NAME))
.TXT 9 0 16202 0
C x1,1,0,0
.TXT 5 0 16203 0
Cg a12.000000,12.250000,15
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {4.0 ENTHALPY}}
}
.EQN 4 0 16204 0
{0:fHA}NAME({0:T}NAME)~{0:CPA}NAME*({0:T}NAME-{0:T0}NAME)
.EQN 3 0 16205 0
{0:fHV}NAME({0:T}NAME)~({0:CPV}NAME*({0:T}NAME-{0:T0}NAME)+{0:LV0}NAME)
.EQN 3 0 16206 0
{0:fHL}NAME({0:T}NAME)~({0:CW}NAME*({0:T}NAME-{0:T0}NAME))
.EQN 3 0 16207 0
{0:fHI}NAME({0:T}NAME)~({0:CI}NAME*({0:T}NAME-{0:T0}NAME)-{0:LF0}NAME)
.EQN 4 0 16208 0
{0:fHA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA}NAME({0:T}NAME)
.EQN 3 0 16209 0
{0:fHV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fHV}NAME({0:T}NAME)
.EQN 3 0 16210 0
{0:fHL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fML3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fHL}NAME({0:T}NAME)
.EQN 3 0 16211 0
{0:fHI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fHI}NAME({0:T}NAME)
.EQN 4 0 16212 0
{0:fHT3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fHV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fHL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fHI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)
.EQN 4 0 16213 0
{0:fHC}NAME({0:T}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME,{0:fHL}NAME({0:T}NAME),{0:fHI}NAME({0:T}NAME))
.EQN 3 0 16214 0
{0:fEE3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA}NAME({0:T}NAME)+{0:M}NAME*{0:fHC}NAME({0:T}NAME)
.EQN 4 0 16215 0
{0:fHW4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:W}NAME)~{0:fHA}NAME({0:T}NAME)+{0:M}NAME*{0:fHV}NAME({0:T}NAME)+{0:if}NAME({0:W}NAME>{0:TF}NAME,{0:fHL}NAME({0:W}NAME),{0:fHI}NAME({0:W}NAME))*({0:fMVS}NAME({0:P}NAME,{0:W}NAME)-{0:M}NAME)
.EQN 4 0 16216 0
{0:f\m4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:Z}NAME)~{0:fHT3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:G}NAME*(1+{0:M}NAME)*{0:Z}NAME
.TXT 6 0 16217 0
Cg a34.000000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {5.0 VIRTUAL TEMPERATURE AND HEIGHT}}
}
.EQN 6 0 16218 0
{0:fTV}NAME({0:T}NAME,{0:M}NAME)~{0:T}NAME*((1+({0:M}NAME)/({0:\e}NAME))/(1+{0:M}NAME))
.EQN 9 0 16219 0
{0:fTV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:M}NAME<{0:fMVS}NAME({0:P}NAME,{0:T}NAME),{0:fTV}NAME({0:T}NAME,{0:M}NAME),{0:fTV}NAME({0:T}NAME,{0:fMVS}NAME({0:P}NAME,{0:T}NAME))*((1+{0:fMVS}NAME({0:P}NAME,{0:T}NAME))/(1+{0:M}NAME)))
.EQN 10 0 16220 0
{0:f\a}NAME({0:P1}NAME,{0:P2}NAME,{0:TV1}NAME,{0:TV2}NAME)~({0:G}NAME)/({0:RA}NAME)*(({0:ln}NAME(({0:TV2}NAME)/({0:TV1}NAME)))/({0:ln}NAME(({0:P2}NAME)/({0:P1}NAME))))
.EQN 12 0 16221 0
{0:fZ}NAME({0:P1}NAME,{0:P2}NAME,{0:TV1}NAME,{0:TV2}NAME)~({0:TV2}NAME-{0:TV1}NAME)/({0:f\a}NAME({0:P1}NAME,{0:P2}NAME,{0:TV1}NAME,{0:TV2}NAME))
.TXT 5 0 16222 0
C x1,1,0,0
.TXT 8 0 16223 0
Cg a13.000000,85.375000,16
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {SOLVER BLOCKS}}
}
.TXT 3 0 16224 0
Cg a32.000000,32.250000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTROPIC EXPANSION TEMPERATURE}}
}
.EQN 4 0 16225 0
{0:GIVEN}NAME
.EQN 3 0 16226 0
{0:fST3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16227 0
{0:fTSOL}NAME({0:S}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16228 0
Cg a29.000000,29.250000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTROPIC EXPANSION PRESSURE}}
}
.EQN 4 0 16229 0
{0:GIVEN}NAME
.EQN 3 0 16230 0
{0:fST3}NAME({0:PG}NAME,{0:T}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16231 0
{0:fPSOL}NAME({0:S}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:PG}NAME)
.TXT 4 0 16257 0
Cg a55.000000,55.250000,58
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Solve block for ISO-STATIC-ENERGY
 expansion temperature}}
}
.EQN 4 0 16258 0
{0:GIVEN}NAME
.EQN 3 0 16259 0
{0:fHT3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:H}NAME
.EQN 3 0 16260 0
{0:fTHOL}NAME({0:H}NAME,{0:P}NAME,{0:M}NAME):{0:MINERR}NAME({0:TG}NAME)
.TXT 4 0 16232 0
Cg a34.000000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTROPIC DESSICATION TEMPERATURE}}
}
.EQN 4 0 16233 0
{0:GIVEN}NAME
.EQN 3 0 16234 0
{0:fAA3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16235 0
{0:fASOL}NAME({0:S}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16236 0
Cg a59.000000,59.250000,62
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTHALPIC DESSICATION TEMPERATURE,
 EQUIVALENT TEMPERATURE}}
}
.EQN 4 0 16237 0
{0:GIVEN}NAME
.EQN 3 0 16238 0
{0:fEE3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:H}NAME
.EQN 3 0 16239 0
{0:fESOL}NAME({0:H}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16240 0
Cg a26.000000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {MIXING RATIO FROM WET BULB}}
}
.EQN 4 0 16241 0
{0:GIVEN}NAME
.EQN 3 0 16242 0
{0:fHT3}NAME({0:P}NAME,{0:W}NAME,{0:fMVS}NAME({0:P}NAME,{0:W}NAME))÷{0:fHW4}NAME({0:P}NAME,{0:T}NAME,{0:MG}NAME,{0:W}NAME)
.EQN 3 0 16243 0
{0:fMSOL}NAME({0:P}NAME,{0:T}NAME,{0:W}NAME):{0:FIND}NAME({0:MG}NAME)
.TXT 4 0 16244 0
Cg a26.000000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {WET BULB FROM MIXING RATIO}}
}
.EQN 4 0 16245 0
{0:GIVEN}NAME
.EQN 3 0 16246 0
{0:fHT3}NAME({0:P}NAME,{0:TG}NAME,{0:fMVS}NAME({0:P}NAME,{0:TG}NAME))÷{0:fHW4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:TG}NAME)
.EQN 3 0 16247 0
{0:fWSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16248 0
Cg a26.000000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {LIFTING CONDENSATION LEVEL}}
}
.EQN 4 0 16249 0
{0:GIVEN}NAME
.EQN 3 0 16250 0
{0:fU3}NAME({0:PG}NAME,{0:f\qM4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:PG}NAME),{0:M}NAME)-100÷0
.EQN 3 0 16251 0
{0:fCSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:PG}NAME)
.TXT 4 0 16252 0
Cg a9.000000,9.250000,12
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {DEW POINT}}
}
.EQN 4 0 16253 0
{0:GIVEN}NAME
.EQN 3 0 16254 0
{0:fPV2}NAME({0:P}NAME,{0:M}NAME)÷{0:fPV}NAME({0:TG}NAME)
.EQN 3 0 16255 0
{0:fDSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 3 1 16371 0
Cg a51.000000,64.250000,56
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Sounding analysis with entrainment
 and detrainment}{ }}
}
.TXT 2 0 16372 0
Cg a25.000000,26.250000,28
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {by: L.Michaud,  Aug 2000.}}
}
.TXT 4 0 16373 0
Cg a70.000000,71.250000,73
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Fetch and display sounding data,
 use edited University of Wyoming Data}}
}
.TXT 3 0 16374 0
Cg a41.000000,41.250000,52
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Ending }{\f1 a}{ denotes property
 of the sounding}}
}
.EQN 4 0 16375 0
{0:KDAT}NAME:{0:READPRN}NAME({0:kav121800}NAME)
.EQN 8 0 16376 0
{0:P\a}NAME:(({0:KDAT}NAME){52}(1))/(10)
.EQN 0 25 16377 0
{0:TC\a}NAME:({0:KDAT}NAME){52}(2)
.EQN 0 24 16378 0
{0:TD\a}NAME:({0:KDAT}NAME){52}(3)
.EQN 5 -49 17276 0
{0:U\a}NAME:({0:KDAT}NAME){52}(4)
.EQN 0 25 17278 0
{0:Z\a}NAME:({0:KDAT}NAME){52}(5)
.EQN 7 -25 16984 0
{0:T\a}NAME:{0:TC\a}NAME+{0:T0}NAME
.EQN 4 0 19324 0
{0:im}NAME:{0:last}NAME({0:P\a}NAME)
.EQN 0 25 19325 0
{0:im}NAME={0}?_n_u_l_l_
.EQN 3 -24 19326 0
{0:i}NAME:1;{0:im}NAME
.EQN 3 -1 19414 0
{0:jm}NAME:{0:im}NAME-1
.EQN 3 0 19415 0
{0:j}NAME:1;{0:jm}NAME
.EQN 0 20 19416 0
{0:jm}NAME={0}?_n_u_l_l_
.EQN 25 -20 16379 0
{0:P\a}NAME={18994 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 18 16380 0
{0:TC\a}NAME={18994 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 24 16985 0
{0:T\a}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 22 17277 0
{0:TD\a}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 46 -23 19386 0
{0:Z\a}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 1 -41 17282 0
{0:P\a}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 19 16381 0
{0:U\a}NAME={18998 0 0 1 14 42 42}?_n_u_l_l_
.EQN 33 -18 19387 0
{0:P\b}NAME:{0:P\a}NAME
.EQN 6 0 19391 0
{0:U\b}NAME:{0:U\a}NAME
.EQN 3 0 19392 0
{0:T\b}NAME:{0:T\a}NAME
.EQN 10 0 19313 0
{0:kk}NAME:8;49
.EQN 0 30 19381 0
({0:P\b}NAME)[(7)={0}?_n_u_l_l_
.EQN 0 16 19434 0
({0:P\b}NAME)[(2)={0}?_n_u_l_l_
.EQN 3 -46 19315 0
({0:U\b}NAME)[({0:kk}NAME):95
.EQN 3 0 19316 0
({0:T\b}NAME)[({0:kk}NAME):({0:T\b}NAME)[({0:kk}NAME)-0
.EQN 13 -1 16458 0
{0:MS\b}NAME:({0:fMVS}NAME({0:P\b}NAME,{0:T\b}NAME)){49}
.EQN 8 0 16459 0
{0:M\b}NAME:(({0:MS\b}NAME*(({0:U\b}NAME)/(100)))){49}
.EQN 8 0 16390 0
{0:TV\b}NAME:({0:fTV}NAME({0:T\b}NAME,{0:M\b}NAME)){49}
.TXT 6 0 19417 0
Cg a32.000000,32.250000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate lapse rate and heights}}
}
.EQN 4 0 19418 0
({0:\a}NAME)[(1):0
.EQN 4 0 19419 0
({0:\a}NAME)[({0:j}NAME+1):{0:f\a}NAME(({0:P\b}NAME)[({0:j}NAME),({0:P\b}NAME)[({0:j}NAME+1),({0:TV\b}NAME)[({0:j}NAME),({0:TV\b}NAME)[({0:j}NAME+1))
.EQN 5 -1 19420 0
({0:ZD}NAME)[({0:j}NAME+1):-{0:fZ}NAME(({0:P\b}NAME)[({0:j}NAME),({0:P\b}NAME)[({0:j}NAME+1),({0:TV\b}NAME)[({0:j}NAME),({0:TV\b}NAME)[({0:j}NAME+1))
.EQN 5 0 19427 0
({0:Z\b}NAME)[(1):({0:Z\a}NAME)[(1)
.EQN 4 0 19422 0
({0:Z\b}NAME)[({0:j}NAME+1):({0:ZD}NAME)[({0:j}NAME+1)+({0:Z\b}NAME)[({0:j}NAME)
.EQN 21 1 19423 0
{0:\a}NAME*({0}1000)={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 22 19424 0
{0:ZD}NAME={19008 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 16 19425 0
{0:Z\b}NAME={19024 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 19428 0
{0:Z\a}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 31 -125 69 0
{0:delTV}NAME:(({0:TV\w}NAME-{0:TV\a}NAME)){49}
.EQN 2 66 16388 0
{0:S\b}NAME:(({0:fST3}NAME({0:P\b}NAME,{0:T\b}NAME,{0:M\b}NAME))){49}
.EQN 6 0 16389 0
{0:H\b}NAME:(({0:fHT3}NAME({0:P\b}NAME,{0:T\b}NAME,{0:M\b}NAME))){49}
.EQN 11 1 19320 0
{0:\m\b}NAME:({0:f\m4}NAME({0:P\b}NAME,{0:T\b}NAME,{0:M\b}NAME,{0:Z\b}NAME)){49}
.EQN 26 -2 16462 0
{0:P\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 16 16460 0
{0:MS\b}NAME*1000={19042 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 16461 0
{0:M\b}NAME*1000={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 25 16465 0
{0:TV\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 48 -62 19319 0
{0:P\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 16463 0
{0:S\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 19 16464 0
{0:H\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19322 0
{0:\m\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 29 -52 19323 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@100&0&(_n_u_l_l_&_n_u_l_l_)&({0:U\a}NAME)[({0:i}NAME),({0:U\b}NAME)[({0:i}NAME)
0 0 1 0 5 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Sounding Relative Humidity
.EQN 52 -2 19327 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@310&180&(_n_u_l_l_&_n_u_l_l_)&({0:T\a}NAME)[({0:i}NAME),({0:T\b}NAME)[({0:i}NAME)
0 0 1 0 5 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Sounding Temperature
.EQN 51 -1 19429 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@20&0&(_n_u_l_l_&_n_u_l_l_)&(({0:Z\a}NAME)[({0:i}NAME))/(1000),(({0:Z\b}NAME)[({0:i}NAME))/(1000)
0 0 1 0 5 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Sounding Temperature
.TXT 66 -5 19331 0
Cg a73.750000,84.625000,475
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Set initial Updraft properties\par 
I}{ndex n designates sounding level starting
 from the sounding base.}{\par \par Suffix
 }{\f1 w}{ designate properties of parcel
 rising isentropically without\par entrainment
 or seperation.\par }{Suffix }{\f1 t}{ designate
 properties of parcel rising at constant
 static-energy \par without entrainment 
or seperation}{.\par \par }{Suffix }{\f1 
m}{ designates updraft property before entrainment.}{\par 
Suffix }{\f1 e}{ designates updraft property
 after entrainment\par }}
}
.EQN 26 0 19332 0
{0:n}NAME:1
.EQN 3 2 19333 0
({0:T\m}NAME)[({0:n}NAME):({0:T\b}NAME)[({0:n}NAME)+1
.EQN 0 18 19334 0
({0:M\m}NAME)[({0:n}NAME):({0:M\b}NAME)[({0:n}NAME)+0.000
.EQN 6 -18 19335 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\m}NAME)[({0:n}NAME))
.EQN 0 57 19336 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19337 0
({0:S\e}NAME)[({0:n}NAME):({0:S\m}NAME)[({0:n}NAME)
.EQN 0 12 19338 0
({0:T\e}NAME)[({0:n}NAME):({0:T\m}NAME)[({0:n}NAME)
.EQN 0 17 19339 0
({0:M\e}NAME)[({0:n}NAME):({0:M\m}NAME)[({0:n}NAME)
.EQN 1 28 19340 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19341 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV}NAME(({0:T\m}NAME)[({0:n}NAME),({0:M\m}NAME)[({0:n}NAME))
.EQN 0 28 19342 0
({0:TV\e}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)
.EQN 0 29 19343 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19344 0
({0:H\m}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\b}NAME)[({0:n}NAME))
.EQN 0 29 19345 0
({0:H\e}NAME)[({0:n}NAME):({0:H\m}NAME)[({0:n}NAME)
.EQN 1 28 19346 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19347 0
({0:\m\m}NAME)[({0:n}NAME):{0:f\m4}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\m}NAME)[({0:n}NAME),({0:Z\b}NAME)[({0:n}NAME))
.EQN 1 57 19348 0
({0:\m\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 8 -59 19408 0
Cg a77.000000,83.000000,92
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate Properties of parcel 
rising isentropically without entrainment
 or \par separation.}}
}
.EQN 8 2 19349 0
({0:T\w}NAME)[({0:i}NAME):({0:fTSOL}NAME(({0:S\m}NAME)[(1),({0:P\b}NAME)[({0:i}NAME),({0:M\m}NAME)[(1))){49}
.EQN 5 0 19368 0
({0:TV\w}NAME)[({0:i}NAME):({0:fTV3}NAME(({0:P\b}NAME)[({0:i}NAME),({0:T\w}NAME)[({0:i}NAME),({0:M\m}NAME)[(1))){49}
.EQN 4 0 19378 0
{0:dTV\w}NAME:{0:TV\w}NAME-{0:TV\b}NAME
.EQN 5 1 19352 0
({0:\m\w}NAME)[({0:i}NAME):({0:f\m4}NAME(({0:P\b}NAME)[({0:i}NAME),({0:T\w}NAME)[({0:i}NAME),({0:M\m}NAME)[(1),({0:Z\b}NAME)[({0:i}NAME))){49}
.TXT 6 -3 19411 0
Cg a65.000000,83.000000,84
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate work of buoyancy, potential
 energy of condensed water,\par and total
 work.}}
}
.EQN 6 3 19354 0
({0:WK}NAME)[({0:i}NAME):((({0:\m\m}NAME)[(1)-({0:\m\w}NAME)[({0:i}NAME))){49}
.EQN 4 0 19356 0
({0:WP}NAME)[({0:i}NAME):(({0:fMC3}NAME(({0:P\b}NAME)[({0:i}NAME),({0:T\w}NAME)[({0:i}NAME),({0:M\m}NAME)[(1))*{0:G}NAME*({0:Z\b}NAME)[({0:i}NAME))){49}
.EQN 5 0 19358 0
{0:WT}NAME:{0:WK}NAME+{0:WP}NAME
.TXT 4 -3 19410 0
Cg a72.000000,83.000000,102
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate Properties of parcel 
rising at constant static-energy without
 entrainment or separation.}}
}
.EQN 8 3 19396 0
({0:H\t}NAME)[({0:i}NAME):({0:\m\m}NAME)[(1)-{0:G}NAME*({0:Z\b}NAME)[({0:i}NAME)*(1+({0:M\b}NAME)[(1))
.EQN 5 0 19397 0
({0:T\t}NAME)[({0:i}NAME):({0:fTHOL}NAME(({0:H\t}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME),({0:M\m}NAME)[(1))){49}
.EQN 5 0 19403 0
({0:S\t}NAME)[({0:i}NAME):({0:fST3}NAME(({0:P\b}NAME)[({0:i}NAME),({0:T\t}NAME)[({0:i}NAME),({0:M\m}NAME)[(1))){49}
.EQN 5 0 19401 0
({0:TV\t}NAME)[({0:i}NAME):({0:fTV3}NAME(({0:P\b}NAME)[({0:i}NAME),({0:T\t}NAME)[({0:i}NAME),({0:M\m}NAME)[(1))){49}
.EQN 4 0 19402 0
{0:dTV\t}NAME:{0:TV\t}NAME-{0:TV\b}NAME
.TXT 6 -3 19413 0
Cg a14.000000,83.000000,17
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate CAPE}}
}
.EQN 18 3 19375 0
({0:CAPE}NAME)[({0:j}NAME):(({0:RA}NAME*((1,{0:j}NAME,{0:j}NAME,(({0:TV\w}NAME)[({0:j}NAME)-({0:TV\b}NAME)[({0:j}NAME))*({0:ln}NAME(({0:P\b}NAME)[({0:j}NAME))-{0:ln}NAME(({0:P\b}NAME)[(({0:j}NAME+1))))){64}))){49}
.EQN 30 43 19400 0
{0:H\t}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 1 -43 19351 0
{0:T\w}NAME={0 0 35 1 14 42 42}?_n_u_l_l_
.EQN 0 18 19353 0
{0:\m\w}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 49 19399 0
{0:T\t}NAME={0 0 33 1 14 42 42}?_n_u_l_l_
.EQN 44 -70 19355 0
{0:WK}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19376 0
{0:CAPE}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 25 19357 0
{0:WP}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 19 19359 0
{0:WT}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 45 -62 21490 0
{0:dTV\w}NAME={0 0 35 1 14 42 42}?_n_u_l_l_
.EQN 0 22 21491 0
{0:dTV\t}NAME={0 0 35 1 14 42 42}?_n_u_l_l_
.EQN 31 -24 19395 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@350&150&(_n_u_l_l_&_n_u_l_l_)&({0:S\b}NAME)[({0:i}NAME),({0:S\t}NAME)[({0:i}NAME),({0:S\m}NAME)[(1)
0 0 1 0 8 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Entropy Sounding and Irev. Updraft
.EQN 50 1 19404 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME)@100&-100&(_n_u_l_l_&_n_u_l_l_)&(({0:H\b}NAME)[({0:i}NAME))/(1000)
0 0 1 0 8 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Enthalpy of Sounding
.EQN 61 3 19394 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@100&50&(_n_u_l_l_&_n_u_l_l_)&(({0:\m\b}NAME)[({0:i}NAME))/(1000),(({0:\m\w}NAME)[({0:i}NAME))/(1000),(({0:\m\m}NAME)[(1))/(1000)
0 0 1 0 5 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Static-Energy Sounding and Rev. Updraft
.EQN 59 -4 19379 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@18&-2&(_n_u_l_l_&_n_u_l_l_)&({0:dTV\w}NAME)[({0:i}NAME),({0:dTV\t}NAME)[({0:i}NAME),0
0 0 1 0 10 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Virtual Temp. Delta - Rev and Irr. UpD.
.EQN 58 1 19371 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:i}NAME)@11000&-1000&(_n_u_l_l_&_n_u_l_l_)&({0:WK}NAME)[({0:i}NAME),({0:WP}NAME)[({0:i}NAME),({0:WT}NAME)[({0:i}NAME),0
0 0 1 0 8 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Work - Buoyancy, PE, Total
.EQN 52 4 19372 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:j}NAME),({0:P\b}NAME)[({0:i}NAME)@7000&-1000&(_n_u_l_l_&_n_u_l_l_)&({0:WK}NAME)[({0:i}NAME),({0:CAPE}NAME)[({0:j}NAME),0
0 0 1 0 8 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3 Work of Buoyancy and CAPE
.TXT 58 -5 17302 0
Cg a60.000000,84.625000,706
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ENTRAINMENT CALCULATIONS\par Set
 the model constants: A entrainment coefficient\par 
                         B entrainment exponent\par 
                         C detrainment coefficient\par 
                         D maximum liquid
 content}{\par                          
E constant entrainment rate\par True Adiabatic:
         A=0,  B=0.5 C=0,   D=0.05,    E=0\par 
Pseudo Adiabatic:       A=0,  B=0.5 C=0 
   D=0        E=0\par Constant Entrainment
    A=0.1 B=0   C=0    D=0        E=0\par 
                  or    A=0   B=0.5 C=0 
   D=0        E=0.1\par Michaud 1999    
        A=0.1 B=0.5 C=0.01 D=0.05     E=0\par 
Mapes 2000              A=0   B=0.5 C=0 
   D=0.003    E=0.1\par }{Michaud 2000  
         A=0.05 B=0.5 C=0.005 D=0.001   
E=0}}
}
.EQN 30 0 17303 0
{0:A}NAME:0.05
.EQN 0 18 17304 0
{0:B}NAME:0.5
.EQN 0 21 17305 0
{0:C}NAME:0.005
.EQN 0 18 17306 0
{0:D}NAME:0.001
.EQN 3 -57 17511 0
{0:E}NAME:0
.EQN 4 0 19369 0
{0:pdel}NAME:2
.TXT 5 0 17512 0
C x1,1,0,0
.EQN 5 2 17320 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17513 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17441 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19438 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19447 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19439 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19445 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19446 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19448 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17518 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 17519 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17325 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17520 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17514 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17517 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17515 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 17516 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 17327 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 17328 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17329 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17330 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17331 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 17332 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17333 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 17334 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17335 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 17336 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17337 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 17338 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19278 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17339 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 17340 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17341 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 17342 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19441 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19442 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17343 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 17344 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 17588 0
C x1,1,0,0
.TXT 4 0 19450 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19451 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19452 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19453 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19454 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19455 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19456 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19457 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19458 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19459 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19460 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19461 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19462 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19463 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19464 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19465 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19466 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19467 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19468 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19469 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19470 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19471 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19472 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19473 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19474 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19475 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19476 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19477 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19478 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19479 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19480 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19481 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19482 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19483 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19484 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19485 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19486 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19487 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19488 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 19489 0
C x1,1,0,0
.TXT 3 0 19490 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19491 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19492 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19493 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19494 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19495 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19496 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19497 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19498 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19499 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19500 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19501 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19502 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19503 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19504 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19505 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19506 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19507 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19508 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19509 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19510 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19511 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19512 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19513 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19514 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19515 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19516 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19517 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19518 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19519 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19520 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19521 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19522 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19523 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19524 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19525 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19526 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19527 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19528 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 2 -57 19529 0
C x1,1,0,0
.TXT 4 0 19530 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19531 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19532 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19533 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19534 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19535 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19536 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19537 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19538 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19539 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19540 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19541 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19542 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19543 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19544 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19545 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19546 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19547 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19548 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19549 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19550 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19551 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19552 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19553 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19554 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19555 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19556 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19557 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19558 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19559 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19560 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19561 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19562 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19563 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19564 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19565 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19566 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19567 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19568 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 19569 0
C x1,1,0,0
.TXT 3 1 19570 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19571 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19572 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19573 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19574 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19575 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19576 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19577 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19578 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19579 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19580 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19581 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19582 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19583 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19584 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19585 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19586 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19587 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19588 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19589 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19590 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19591 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19592 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19593 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19594 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19595 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19596 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19597 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19598 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19599 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19600 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19601 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19602 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19603 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19604 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19605 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19606 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19607 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19608 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 19609 0
C x1,1,0,0
.TXT 3 0 19610 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19611 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19612 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19613 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19614 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19615 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19616 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19617 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19618 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19619 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19620 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19621 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19622 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19623 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19624 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19625 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19626 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19627 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19628 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19629 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19630 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19631 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19632 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19633 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19634 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19635 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19636 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19637 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19638 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19639 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19640 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19641 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19642 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19643 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19644 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19645 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19646 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19647 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19648 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 19649 0
C x1,1,0,0
.TXT 3 1 19650 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19651 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19652 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19653 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19654 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19655 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19656 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19657 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19658 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19659 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19660 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19661 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19662 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19663 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19664 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19665 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19666 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19667 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19668 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19669 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19670 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19671 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19672 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19673 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19674 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19675 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19676 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19677 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19678 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19679 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19680 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19681 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19682 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19683 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19684 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19685 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19686 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19687 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19688 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 19689 0
C x1,1,0,0
.TXT 3 1 19690 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19691 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19692 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19693 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19694 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19695 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19696 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19697 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19698 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19699 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19700 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19701 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19702 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19703 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19704 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19705 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19706 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19707 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19708 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19709 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19710 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19711 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19712 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19713 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19714 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19715 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19716 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19717 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19718 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19719 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19720 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19721 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19722 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19723 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19724 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19725 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19726 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19727 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19728 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 2 -58 19729 0
C x1,1,0,0
.TXT 4 1 19730 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19731 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19732 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19733 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19734 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19735 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19736 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19737 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19738 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19739 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19740 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19741 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19742 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19743 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19744 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19745 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19746 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19747 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19748 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19749 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19750 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19751 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19752 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19753 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19754 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19755 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19756 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19757 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19758 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19759 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19760 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19761 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19762 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19763 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19764 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19765 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19766 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19767 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19768 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 19769 0
C x1,1,0,0
.TXT 3 2 19770 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19771 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19772 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19773 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19774 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19775 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19776 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19777 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19778 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19779 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19780 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19781 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19782 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19783 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19784 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19785 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19786 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19787 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19788 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19789 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19790 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19791 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19792 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19793 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19794 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19795 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19796 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19797 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19798 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19799 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19800 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19801 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19802 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19803 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19804 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19805 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19806 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19807 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19808 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 19809 0
C x1,1,0,0
.TXT 3 1 19810 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19811 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19812 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19813 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19814 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19815 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19816 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19817 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19818 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19819 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19820 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19821 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19822 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19823 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19824 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19825 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19826 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19827 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19828 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19829 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19830 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19831 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19832 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19833 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19834 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19835 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19836 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19837 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19838 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19839 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19840 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19841 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19842 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19843 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19844 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19845 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19846 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19847 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19848 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 19849 0
C x1,1,0,0
.TXT 4 1 19850 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19851 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19852 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19853 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19854 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19855 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19856 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19857 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19858 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19859 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19860 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19861 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19862 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19863 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19864 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19865 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19866 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19867 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19868 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19869 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19870 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19871 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19872 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19873 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19874 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19875 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19876 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19877 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19878 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19879 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19880 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19881 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19882 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19883 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19884 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19885 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19886 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19887 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19888 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 19889 0
C x1,1,0,0
.TXT 3 1 19890 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19891 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19892 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19893 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19894 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19895 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19896 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19897 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19898 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19899 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19900 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19901 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19902 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19903 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19904 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19905 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19906 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19907 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19908 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19909 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19910 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19911 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19912 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19913 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19914 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19915 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19916 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19917 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19918 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19919 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19920 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19921 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19922 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19923 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19924 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19925 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19926 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19927 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19928 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 2 -58 19929 0
C x1,1,0,0
.TXT 4 1 19930 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19931 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19932 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19933 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19934 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19935 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19936 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19937 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19938 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19939 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19940 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19941 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19942 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19943 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19944 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19945 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19946 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19947 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19948 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19949 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19950 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19951 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19952 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19953 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19954 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19955 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19956 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19957 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19958 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19959 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19960 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19961 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19962 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19963 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19964 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19965 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19966 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19967 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19968 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 19969 0
C x1,1,0,0
.TXT 3 2 19970 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 19971 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19972 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19973 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 19974 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19975 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19976 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 19977 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 19978 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19979 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19980 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 19981 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19982 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19983 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19984 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19985 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19986 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 19987 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19988 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 19989 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19990 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19991 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19992 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 19993 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19994 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 19995 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19996 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 19997 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19998 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 19999 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20000 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20001 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20002 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20003 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20004 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20005 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20006 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20007 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20008 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 20009 0
C x1,1,0,0
.TXT 3 1 20010 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20011 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20012 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20013 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20014 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20015 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20016 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20017 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20018 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20019 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20020 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20021 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20022 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20023 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20024 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20025 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20026 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20027 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20028 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20029 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20030 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20031 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20032 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20033 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20034 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20035 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20036 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20037 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20038 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20039 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20040 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20041 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20042 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20043 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20044 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20045 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20046 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20047 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20048 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20049 0
C x1,1,0,0
.TXT 3 1 20050 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20051 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20052 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20053 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20054 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20055 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20056 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20057 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20058 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20059 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20060 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20061 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20062 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20063 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20064 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20065 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20066 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20067 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20068 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20069 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20070 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20071 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20072 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20073 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20074 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20075 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20076 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20077 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20078 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20079 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20080 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20081 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20082 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20083 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20084 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20085 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20086 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20087 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20088 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20089 0
C x1,1,0,0
.TXT 3 1 20090 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20091 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20092 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20093 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20094 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20095 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20096 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20097 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20098 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20099 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20100 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20101 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20102 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20103 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20104 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20105 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20106 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20107 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20108 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20109 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20110 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20111 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20112 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20113 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20114 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20115 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20116 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20117 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20118 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20119 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20120 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20121 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20122 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20123 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20124 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20125 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20126 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20127 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20128 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 2 -58 20129 0
C x1,1,0,0
.TXT 4 1 20130 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20131 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20132 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20133 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20134 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20135 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20136 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20137 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20138 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20139 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20140 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20141 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20142 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20143 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20144 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20145 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20146 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20147 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20148 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20149 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20150 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20151 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20152 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20153 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20154 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20155 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20156 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20157 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20158 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20159 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20160 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20161 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20162 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20163 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20164 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20165 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20166 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20167 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20168 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20169 0
C x1,1,0,0
.TXT 3 2 20170 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20171 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20172 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20173 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20174 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20175 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20176 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20177 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20178 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20179 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20180 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20181 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20182 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20183 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20184 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20185 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20186 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20187 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20188 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20189 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20190 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20191 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20192 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20193 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20194 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20195 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20196 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20197 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20198 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20199 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20200 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20201 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20202 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20203 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20204 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20205 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20206 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20207 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20208 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 20209 0
C x1,1,0,0
.TXT 3 1 20210 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20211 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20212 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20213 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20214 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20215 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20216 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20217 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20218 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20219 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20220 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20221 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20222 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20223 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20224 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20225 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20226 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20227 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20228 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20229 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20230 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20231 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20232 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20233 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20234 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20235 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20236 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20237 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20238 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20239 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20240 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20241 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20242 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20243 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20244 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20245 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20246 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20247 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20248 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20249 0
C x1,1,0,0
.TXT 3 0 20250 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20251 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20252 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20253 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20254 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20255 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20256 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20257 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20258 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20259 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20260 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20261 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20262 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20263 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20264 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20265 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20266 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20267 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20268 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20269 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20270 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20271 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20272 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20273 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20274 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20275 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20276 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20277 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20278 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20279 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20280 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20281 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20282 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20283 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20284 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20285 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20286 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20287 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20288 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 20289 0
C x1,1,0,0
.TXT 4 0 20450 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20451 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20452 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20453 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20454 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20455 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20456 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20457 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20458 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20459 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20460 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20461 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20462 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20463 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20464 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20465 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20466 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20467 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20468 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20469 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20470 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20471 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20472 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20473 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20474 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20475 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20476 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20477 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20478 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20479 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20480 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20481 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20482 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20483 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20484 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20485 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20486 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20487 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20488 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 20489 0
C x1,1,0,0
.TXT 3 1 20490 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20491 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20492 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20493 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20494 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20495 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20496 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20497 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20498 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20499 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20500 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20501 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20502 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20503 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20504 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20505 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20506 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20507 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20508 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20509 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20510 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20511 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20512 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20513 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20514 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20515 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20516 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20517 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20518 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20519 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20520 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20521 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20522 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20523 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20524 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20525 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20526 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20527 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20528 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20529 0
C x1,1,0,0
.TXT 3 0 20530 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20531 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20532 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20533 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20534 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20535 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20536 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20537 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20538 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20539 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20540 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20541 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20542 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20543 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20544 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20545 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20546 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20547 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20548 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20549 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20550 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20551 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20552 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20553 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20554 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20555 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20556 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20557 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20558 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20559 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20560 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20561 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20562 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20563 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20564 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20565 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20566 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20567 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20568 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 20569 0
C x1,1,0,0
.TXT 3 -1 20570 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20571 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20572 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20573 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20574 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20575 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20576 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20577 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20578 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20579 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20580 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20581 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20582 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20583 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20584 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20585 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20586 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20587 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20588 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20589 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20590 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20591 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20592 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20593 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20594 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20595 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20596 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20597 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20598 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20599 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20600 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20601 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20602 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20603 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20604 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20605 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20606 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20607 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20608 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -56 20609 0
C x1,1,0,0
.TXT 3 0 20610 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20611 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20612 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20613 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20614 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20615 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20616 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20617 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20618 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20619 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20620 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20621 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20622 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20623 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20624 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20625 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20626 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20627 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20628 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20629 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20630 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20631 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20632 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20633 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20634 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20635 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20636 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20637 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20638 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20639 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20640 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20641 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20642 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20643 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20644 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20645 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20646 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20647 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20648 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 20649 0
C x1,1,0,0
.TXT 3 1 20650 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20651 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20652 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20653 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20654 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20655 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20656 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20657 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20658 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20659 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20660 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20661 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20662 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20663 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20664 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20665 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20666 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20667 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20668 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20669 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20670 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20671 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20672 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20673 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20674 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20675 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20676 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20677 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20678 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20679 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20680 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20681 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20682 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20683 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20684 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20685 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20686 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20687 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20688 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20689 0
C x1,1,0,0
.TXT 3 0 20690 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20691 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20692 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20693 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20694 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20695 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20696 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20697 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20698 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20699 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20700 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20701 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20702 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20703 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20704 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20705 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20706 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20707 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20708 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20709 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20710 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20711 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20712 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20713 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20714 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20715 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20716 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20717 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20718 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20719 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20720 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20721 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20722 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20723 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20724 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20725 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20726 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20727 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20728 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 20729 0
C x1,1,0,0
.TXT 3 -1 20730 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20731 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20732 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20733 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20734 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20735 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20736 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20737 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20738 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20739 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20740 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20741 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20742 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20743 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20744 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20745 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20746 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20747 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20748 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20749 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20750 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20751 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20752 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20753 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20754 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20755 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20756 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20757 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20758 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20759 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20760 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20761 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20762 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20763 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20764 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20765 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20766 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20767 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20768 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -56 20769 0
C x1,1,0,0
.TXT 3 1 20770 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20771 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20772 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20773 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20774 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20775 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20776 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20777 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20778 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20779 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20780 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20781 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20782 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20783 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20784 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20785 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20786 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20787 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20788 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20789 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20790 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20791 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20792 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20793 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20794 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20795 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20796 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20797 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20798 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20799 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20800 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20801 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20802 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20803 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20804 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20805 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20806 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20807 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20808 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20809 0
C x1,1,0,0
.TXT 3 2 20810 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20811 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20812 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20813 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20814 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20815 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20816 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20817 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20818 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20819 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20820 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20821 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20822 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20823 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20824 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20825 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20826 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20827 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20828 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20829 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20830 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20831 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20832 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20833 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20834 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20835 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20836 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20837 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20838 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20839 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20840 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20841 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20842 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20843 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20844 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20845 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20846 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20847 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20848 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 20849 0
C x1,1,0,0
.TXT 3 1 20850 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20851 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20852 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20853 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20854 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20855 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20856 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20857 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20858 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20859 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20860 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20861 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20862 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20863 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20864 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20865 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20866 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20867 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20868 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20869 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20870 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20871 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20872 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20873 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20874 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20875 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20876 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20877 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20878 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20879 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20880 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20881 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20882 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20883 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20884 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20885 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20886 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20887 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20888 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20889 0
C x1,1,0,0
.TXT 3 0 20890 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20891 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20892 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20893 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20894 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20895 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20896 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20897 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20898 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20899 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20900 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20901 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20902 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20903 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20904 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20905 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20906 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20907 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20908 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20909 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20910 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20911 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20912 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20913 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20914 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20915 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20916 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20917 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20918 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20919 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20920 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20921 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20922 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20923 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20924 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20925 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20926 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20927 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20928 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 20929 0
C x1,1,0,0
.TXT 3 1 20930 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20931 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20932 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20933 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20934 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20935 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20936 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20937 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20938 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20939 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20940 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20941 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20942 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20943 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20944 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20945 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20946 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20947 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20948 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20949 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20950 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20951 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20952 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20953 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20954 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20955 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20956 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20957 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20958 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20959 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20960 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 20961 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20962 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 20963 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20964 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20965 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20966 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20967 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20968 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 20969 0
C x1,1,0,0
.TXT 3 2 20970 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 20971 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 20972 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 20973 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 20974 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20975 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20976 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 20977 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 20978 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20979 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20980 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 20981 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20982 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 20983 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20984 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 20985 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 20986 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 20987 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 20988 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 20989 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 20990 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 20991 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 20992 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 20993 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 20994 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 20995 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 20996 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 20997 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 20998 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 20999 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21000 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21001 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21002 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21003 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21004 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21005 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21006 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21007 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21008 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 21009 0
C x1,1,0,0
.TXT 3 1 21010 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21011 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21012 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21013 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21014 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21015 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21016 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21017 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21018 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21019 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21020 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21021 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21022 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21023 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21024 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21025 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21026 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21027 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21028 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21029 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21030 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21031 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21032 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21033 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21034 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21035 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21036 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21037 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21038 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21039 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21040 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21041 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21042 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21043 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21044 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21045 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21046 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21047 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21048 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 21049 0
C x1,1,0,0
.TXT 3 0 21050 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21051 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21052 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21053 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21054 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21055 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21056 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21057 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21058 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21059 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21060 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21061 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21062 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21063 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21064 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21065 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21066 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21067 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21068 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21069 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21070 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21071 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21072 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21073 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21074 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21075 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21076 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21077 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21078 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21079 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21080 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21081 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21082 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21083 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21084 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21085 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21086 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21087 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21088 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 21089 0
C x1,1,0,0
.TXT 3 1 21090 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21091 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21092 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21093 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21094 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21095 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21096 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21097 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21098 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21099 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21100 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21101 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21102 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21103 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21104 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21105 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21106 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21107 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21108 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21109 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21110 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21111 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21112 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21113 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21114 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21115 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21116 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21117 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21118 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21119 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21120 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21121 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21122 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21123 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21124 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21125 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21126 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21127 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21128 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 21129 0
C x1,1,0,0
.TXT 3 2 21130 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21131 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21132 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21133 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21134 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21135 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21136 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21137 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21138 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21139 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21140 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21141 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21142 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21143 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21144 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21145 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21146 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21147 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21148 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21149 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21150 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21151 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21152 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21153 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21154 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21155 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21156 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21157 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21158 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21159 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21160 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21161 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21162 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21163 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21164 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21165 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21166 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21167 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21168 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 21169 0
C x1,1,0,0
.TXT 3 1 21170 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21171 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21172 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21173 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21174 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21175 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21176 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21177 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21178 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21179 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21180 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21181 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21182 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21183 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21184 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21185 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21186 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21187 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21188 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21189 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21190 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21191 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21192 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21193 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21194 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21195 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21196 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21197 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21198 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21199 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21200 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21201 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21202 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21203 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21204 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21205 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21206 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21207 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21208 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 21209 0
C x1,1,0,0
.TXT 3 0 21210 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21211 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21212 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21213 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21214 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21215 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21216 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21217 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21218 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21219 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21220 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21221 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21222 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21223 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21224 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21225 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21226 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21227 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21228 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21229 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21230 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21231 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21232 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21233 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21234 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21235 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21236 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21237 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21238 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21239 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21240 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21241 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21242 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21243 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21244 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21245 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21246 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21247 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21248 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 21249 0
C x1,1,0,0
.TXT 3 1 21250 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21251 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21252 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21253 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21254 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21255 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21256 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21257 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21258 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21259 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21260 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21261 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21262 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21263 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21264 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21265 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21266 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21267 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21268 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21269 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21270 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21271 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21272 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21273 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21274 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21275 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21276 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21277 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21278 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21279 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21280 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21281 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21282 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21283 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21284 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21285 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21286 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21287 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21288 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 21289 0
C x1,1,0,0
.TXT 3 2 21290 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21291 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21292 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21293 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21294 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21295 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21296 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21297 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21298 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21299 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21300 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21301 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21302 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21303 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21304 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21305 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21306 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21307 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21308 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21309 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21310 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21311 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21312 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21313 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21314 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21315 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21316 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21317 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21318 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21319 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21320 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21321 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21322 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21323 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21324 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21325 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21326 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21327 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21328 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -59 21329 0
C x1,1,0,0
.TXT 3 1 21330 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21331 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21332 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21333 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21334 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21335 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21336 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21337 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21338 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21339 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21340 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21341 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21342 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21343 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21344 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21345 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21346 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21347 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21348 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21349 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21350 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21351 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21352 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21353 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21354 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21355 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21356 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21357 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21358 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21359 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21360 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21361 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21362 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21363 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21364 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21365 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21366 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21367 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21368 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 21369 0
C x1,1,0,0
.TXT 3 0 21370 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21371 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21372 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21373 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21374 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21375 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21376 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21377 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21378 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21379 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21380 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21381 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21382 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21383 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21384 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21385 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21386 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21387 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21388 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21389 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21390 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21391 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21392 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21393 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21394 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21395 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21396 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21397 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21398 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21399 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21400 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21401 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21402 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21403 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21404 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21405 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21406 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21407 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21408 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 21409 0
C x1,1,0,0
.TXT 3 1 21410 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21411 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21412 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21413 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21414 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21415 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21416 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21417 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21418 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21419 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21420 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21421 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21422 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21423 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21424 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21425 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21426 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21427 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21428 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21429 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 21430 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 21431 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 21432 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 1 57 21433 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 21434 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 0 57 21435 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21436 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21437 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 21438 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 5 0 21439 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21440 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21441 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21442 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 21443 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21444 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21445 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21446 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21447 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21448 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -58 21449 0
C x1,1,0,0
.TXT 3 0 21450 0
Cg a48.000000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 0 21451 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 21452 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 21453 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -69 21454 0
({0:H\m}NAME)[({0:n}NAME):({0:H\e}NAME)[(({0:n}NAME-1))-{0:G}NAME*(({0:Z\b}NAME)[({0:n}NAME)-({0:Z\b}NAME)[(({0:n}NAME-1)))*(1+({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21455 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21456 0
({0:T\m}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\m}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 2 57 21457 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -57 21458 0
({0:S\m}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21459 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21460 0
({0:U}NAME)[({0:n}NAME):{0:fU3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 1 57 21461 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21462 0
({0:TV\m}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 21463 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21464 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 21465 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 21466 0
({0:dTVP}NAME)[({0:n}NAME):{0:if}NAME(({0:dTV}NAME)[({0:n}NAME)>0,({0:dTV}NAME)[({0:n}NAME),0)
.EQN 0 57 21467 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21468 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 21469 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 0 21471 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 1 -57 21470 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 6 0 21472 0
({0:M\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:M\e}NAME)[(({0:n}NAME-1))+({0:f}NAME)[({0:n}NAME)*({0:M\b}NAME)[({0:n}NAME)
.EQN 0 57 21473 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 21474 0
({0:H\e}NAME)[({0:n}NAME):(1-({0:f}NAME)[({0:n}NAME))*({0:H\m}NAME)[({0:n}NAME)+({0:f}NAME)[({0:n}NAME)*({0:H\b}NAME)[({0:n}NAME)
.EQN 1 57 21475 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 21476 0
({0:T\e}NAME)[({0:n}NAME):{0:fTHOL}NAME(({0:H\e}NAME)[({0:n}NAME),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21477 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 4 -57 21478 0
Cg a50.000000,83.625000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Remove condensed water in excess
 of maximum amount}}
}
.EQN 4 0 21479 0
({0:MC\e}NAME)[({0:n}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21480 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 6 -57 21481 0
({0:M\e}NAME)[({0:n}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:n}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:n}NAME)+{0:D}NAME-({0:MC\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21482 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 7 -57 21483 0
({0:S\e}NAME)[({0:n}NAME):{0:fST3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21484 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 21485 0
({0:H\e}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21486 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 7 -57 21487 0
({0:TV\e}NAME)[({0:n}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\e}NAME)[({0:n}NAME),({0:M\e}NAME)[({0:n}NAME))
.EQN 0 57 21488 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 19211 0
C x1,1,0,0
.TXT 4 0 19212 0
Cg b84.625000,84.625000,67
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {END OF ENTRAINMENT CALCULATION\par 
Tabulation of updraft properties}}
}
.EQN 8 3 19213 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 16 19214 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -16 19215 0
{0:q}NAME:1;{0:n}NAME
.EQN 6 0 19216 0
({0:TV\mdel}NAME)[({0:q}NAME):((({0:TV\m}NAME)[({0:q}NAME)-({0:TV\b}NAME)[({0:q}NAME))){49}
.EQN 6 0 19217 0
({0:TV\edel}NAME)[({0:q}NAME):((({0:TV\e}NAME)[({0:q}NAME)-({0:TV\b}NAME)[({0:q}NAME))){49}
.EQN 8 2 19218 0
({0:M\m}NAME)[(({0:q}NAME+1)):({0:M\e}NAME)[({0:q}NAME)
.EQN 5 0 19219 0
({0:S\m}NAME)[(({0:q}NAME+1)):({0:S\e}NAME)[({0:q}NAME)
.EQN 7 -3 19220 0
({0:M\r}NAME)[({0:q}NAME):{0:if}NAME(({0:MC\e}NAME)[({0:q}NAME)>{0:D}NAME,({0:M\e}NAME)[({0:q}NAME)-{0:D}NAME+({0:MC\e}NAME)[({0:q}NAME),({0:M\e}NAME)[({0:q}NAME))
.EQN 6 1 19221 0
({0:TV\r}NAME)[({0:q}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:q}NAME),({0:T\e}NAME)[({0:q}NAME),({0:M\r}NAME)[({0:q}NAME))
.TXT 6 -3 21489 0
C x1,1,0,0
.EQN 1 2 19222 0
({0:TV\rdel}NAME)[({0:q}NAME):((({0:TV\r}NAME)[({0:q}NAME)-({0:TV\b}NAME)[({0:q}NAME))){49}
.TXT 8 0 19223 0
Cg a38.000000,84.625000,41
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Condensed water content of the 
updraft}}
}
.EQN 5 3 19224 0
({0:MC\m}NAME)[({0:q}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:q}NAME),({0:T\m}NAME)[({0:q}NAME),({0:M\m}NAME)[({0:q}NAME))
.EQN 4 0 19225 0
({0:MC\e}NAME)[({0:q}NAME):{0:fMC3}NAME(({0:P\b}NAME)[({0:q}NAME),({0:T\e}NAME)[({0:q}NAME),({0:M\e}NAME)[({0:q}NAME))
.TXT 5 -3 19226 0
Cg a44.000000,84.625000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Properties of the updraft before
 entrainment}}
}
.EQN 23 0 19227 0
{0:P\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 24 19228 0
{0:T\m}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 24 19229 0
{0:M\m}NAME*1000={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 48 -46 19230 0
{0:S\m}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 23 19231 0
{0:H\m}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 18 19232 0
{0:TV\mdel}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19233 0
{0:MC\m}NAME*1000={0 0 0 1 14 42 42}?_n_u_l_l_
.TXT 29 -65 19234 0
Cg b84.625000,84.625000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Properties of  the updraft after
 entrainment}}
}
.EQN 23 2 19235 0
{0:P\b}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 26 19236 0
{0:T\e}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 25 19237 0
{0:M\e}NAME*1000={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 46 -48 19238 0
{0:S\e}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 18 19239 0
{0:H\e}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 19240 0
{0:TV\edel}NAME={0 0 34 1 14 42 42}?_n_u_l_l_
.EQN 0 17 19241 0
{0:MC\e}NAME*1000={0 0 0 1 14 42 42}?_n_u_l_l_
.TXT 33 -33 19242 0
Cg a38.000000,65.625000,41
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {VIRTUAL TEMPERATURE EXCESS OF UPDRAFT
 }}
}
.EQN 1 -20 19243 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:q}NAME),({0:P\b}NAME)[({0:q}NAME),({0:P\b}NAME)[({0:q}NAME)@4&-2&(_n_u_l_l_&_n_u_l_l_)&({0:TV\mdel}NAME)[({0:q}NAME),({0:TV\edel}NAME)[({0:q}NAME),({0:TV\rdel}NAME)[({0:q}NAME)
0 1 1 0 6 0 1 
0 1 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 61 33 0 3 
.TXT 49 -8 19244 0
C x1,1,0,0
.TXT 16 0 19245 0
Cg b84.625000,84.625000,224
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {DETRAINMENT CALCULATION\par Calculate
 effect of 1% entrainment on updraft properties\par 
Calculate detrainment\par Suffix }{\f1 l}{
 designates property of mixed updraft with
 1% additional entrainment\par }{\f1 l}{
 is the detrainment }}
}
.EQN 18 9 19246 0
({0:M\l}NAME)[({0:q}NAME):(((0.95)*({0:M\e}NAME)[({0:q}NAME)+0.05*({0:M\b}NAME)[({0:q}NAME))){49}
.EQN 4 0 19247 0
({0:H\l}NAME)[({0:q}NAME):((((0.95*{0:H\e}NAME))[({0:q}NAME)+0.05*({0:H\b}NAME)[({0:q}NAME))){49}
.EQN 4 0 19248 0
({0:T\l}NAME)[({0:q}NAME):({0:fTHOL}NAME(({0:H\l}NAME)[({0:q}NAME),({0:P\b}NAME)[({0:q}NAME),({0:M\l}NAME)[({0:q}NAME))){49}
.EQN 4 0 19249 0
({0:TV\l}NAME)[({0:q}NAME):{0:fTV3}NAME(({0:P\b}NAME)[({0:q}NAME),({0:T\l}NAME)[({0:q}NAME),({0:M\l}NAME)[({0:q}NAME))
.EQN 2 48 19436 0
{0:C}NAME={0}?_n_u_l_l_
.EQN 2 -48 19250 0
{0:TV\ldd}NAME:{0:TV\e}NAME-{0:TV\l}NAME
.EQN 6 0 19251 0
{0:\g}NAME:(((-20*({0:TV\ldd}NAME)/({0:TV\edel}NAME)+1.0)*{0:C}NAME*{0:pdel}NAME)){49}
.TXT 11 -9 19252 0
Cg b84.625000,84.625000,111
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {If the above equation yields positive
 detrainment or detrainment greater than
 20% set detrainment at -100%.}}
}
.EQN 9 7 19253 0
({0:\g\g}NAME)[({0:q}NAME):{0:if}NAME(({0:\g}NAME)[({0:q}NAME)<-0.2,-0.2,({0:\g}NAME)[({0:q}NAME))
.EQN 4 0 19433 0
({0:\g\g}NAME)[({0:q}NAME):{0:if}NAME(({0:TV\edel}NAME)[({0:q}NAME)<0,-1,({0:\g\g}NAME)[({0:q}NAME))
.EQN 4 0 19254 0
({0:\g\g}NAME)[({0:q}NAME):{0:if}NAME(({0:\g\g}NAME)[({0:q}NAME)>0.0,0,({0:\g\g}NAME)[({0:q}NAME))
.EQN 22 3 19258 0
{0:TV\e}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 13 19259 0
{0:TV\l}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 46 -22 19435 0
{0:TV\edel}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19255 0
{0:TV\ldd}NAME={19044 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19256 0
{0:\g}NAME*100={19044 0 33 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19257 0
{0:\g\g}NAME*100={19044 0 33 1 14 42 42}?_n_u_l_l_
.EQN 31 -49 19260 0
{0:m}NAME:2;{0:n}NAME
.EQN 4 0 19261 0
{0:fac}NAME:(({0:e}NAME+1)){49}
.EQN 3 0 19262 0
({0:fcum}NAME)[(1):1
.EQN 5 0 19263 0
({0:fcum}NAME)[(({0:m}NAME)):({0:fcum}NAME)[(({0:m}NAME-1))*({0:fac}NAME)[(({0:m}NAME))
.EQN 5 0 19264 0
{0:\g\gac}NAME:(1+{0:\g\g}NAME)
.EQN 3 0 19265 0
({0:cumd}NAME)[(1):1
.EQN 3 0 19266 0
({0:cumd}NAME)[({0:m}NAME):({0:cumd}NAME)[(({0:m}NAME-1))*({0:fac}NAME)[({0:m}NAME)*({0:\g\gac}NAME)[({0:m}NAME)
.TXT 8 15 19267 0
Cg a36.000000,60.625000,39
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {PERCENT ENTRAINMENT AND DETRAINMENT
 }}
}
.EQN 2 -21 19268 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:q}NAME),({0:P\b}NAME)[({0:q}NAME)@50&0&(_n_u_l_l_&_n_u_l_l_)&({0:e}NAME)[({0:q}NAME)*100,((-{0:\g\g}NAME))[({0:q}NAME)*100
0 1 1 0 5 0 1 
0 1 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 62 35 0 3 
.TXT 53 23 19269 0
Cg a25.000000,59.625000,28
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {CUMMULATIVE UPDRAFT MASS }}
}
.EQN 1 -24 19270 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:q}NAME),({0:P\b}NAME)[({0:q}NAME),({0:P\b}NAME)[({0:q}NAME)@40&0&(_n_u_l_l_&_n_u_l_l_)&({0:fcum}NAME)[({0:q}NAME),({0:cumd}NAME)[({0:q}NAME),1
0 1 1 0 5 0 1 
0 1 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 62 35 0 3 
.EQN 77 -1 19271 0
{0:fac}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 13 19272 0
{0:fcum}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 15 19273 0
{0:cumd}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 15 19274 0
{0:\g\gac}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 30 -43 19382 0
({0:ECAPE}NAME)[({0:j}NAME):(({0:RA}NAME*((1,{0:j}NAME,{0:j}NAME,(({0:TV\edel}NAME)[({0:j}NAME))*({0:ln}NAME(({0:P\b}NAME)[({0:j}NAME))-{0:ln}NAME(({0:P\b}NAME)[(({0:j}NAME+1))))){64}))){49}
.EQN 26 -2 19383 0
{0:ECAPE}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 32 0 19384 0
0&120&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:i}NAME),({0:P\b}NAME)[({0:j}NAME),({0:P\b}NAME)[({0:j}NAME),({0:P\b}NAME)[({0:i}NAME)@7000&-1000&(_n_u_l_l_&_n_u_l_l_)&({0:WK}NAME)[({0:i}NAME),({0:CAPE}NAME)[({0:j}NAME),({0:ECAPE}NAME)[({0:j}NAME),0
0 0 1 0 8 0 1 
0 0 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 0 59 34 0 3