.MCAD 303010000 1 0 19499 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 a57.000000,71.250000,295
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Fetch and display sounding data.\par 
Sounding data must be pre-edited at 2 kPa
 interval.\par Sounding data can be obtained
 either from Codiac or from\par the University
 of Wyoming Web Sites. \par File name convention
 for data:\par Three letter station identifier
 followed by date in \par YYMMDDHH.prn format.\par 
}}
}
.TXT 18 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:t10c0_2}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_
.TXT 27 -20 19493 0
Cg b83.000000,83.000000,131
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {The following  section is provided
 to permit modifying the sounding temperature
 and relative humidity for sensitivity analysis.}}
}
.TXT 5 0 19499 0
Cg a49.875000,62.125000,61
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Ending }{\f1 b}{ denotes property
 of the modified sounding}}
}
.EQN 4 2 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 7 0 19442 0
{0:k1}NAME:6
.EQN 0 15 19443 0
{0:k2}NAME:44
.EQN 3 -15 19313 0
{0:kk}NAME:{0:k1}NAME;{0:k2}NAME
.EQN 0 30 19381 0
({0:P\b}NAME)[({0:k1}NAME)={0}?_n_u_l_l_
.EQN 0 16 19434 0
({0:P\b}NAME)[({0:k2}NAME)={0}?_n_u_l_l_
.TXT 6 -48 19494 0
Cg a82.000000,83.000000,102
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Vary the constant in the next to
 equations to see the effect of sounding
 humidity and humidity}{. }}
}
.EQN 8 2 19315 0
({0:U\b}NAME)[({0:kk}NAME):({0:U\b}NAME)[({0:kk}NAME)+0
.EQN 3 0 19316 0
({0:T\b}NAME)[({0:kk}NAME):({0:T\b}NAME)[({0:kk}NAME)-0
.TXT 6 -2 19495 0
Cg a38.000000,83.000000,41
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate modified sounding properties}}
}
.EQN 7 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 Elevation
.TXT 67 -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 }}
}
.TXT 22 0 19497 0
Cg a64.000000,83.000000,109
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Courier;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Modify the constanta in the following
 equations to investigate \par sensitivity
 to initial parcel properties.}}
}
.EQN 5 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\m}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:H\m}NAME)[(1)-{0:G}NAME*(({0:Z\b}NAME)[({0:i}NAME)-({0:Z\b}NAME)[(1))*(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 32 1 14 42 42}?_n_u_l_l_
.EQN 0 19 19359 0
{0:WT}NAME={0 0 32 1 14 42 42}?_n_u_l_l_
.EQN 31 -64 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 51 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 53 -5 17302 0
Cg a64.000000,84.625000,726
{\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.05 B=0   C=0      D=0
        E=0\par                   or    
A=0    B=0.5 C=0      D=0        E=0.05\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 Rev-2000        A=0.05 B=0.5 C=0.005
  D=0.001    E=0}}
}
.EQN 24 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.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 3 -69 17321 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17322 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17323 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17324 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -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 5 -57 19445 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 1 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 4 -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 4 -59 17588 0
C x1,1,0,0
.TXT 6 1 17345 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 1 17555 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17556 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17557 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17558 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17559 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17560 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17561 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17562 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 17563 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17564 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 17565 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17566 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17567 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17568 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 17569 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19446 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17571 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17572 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17573 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17574 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 17575 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17576 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 17577 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17578 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 17579 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17580 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 17581 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 1 57 19279 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17582 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 17583 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17584 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 17585 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17586 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 17587 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -59 17589 0
C x1,1,0,0
.TXT 6 3 17590 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 1 17591 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17592 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17593 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17594 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17595 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17596 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17597 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17598 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 17599 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17600 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 17601 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17602 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17603 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17604 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 17605 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19447 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17607 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17608 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17609 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17610 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 17611 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17612 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 17613 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17614 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 17615 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17616 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 17617 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 19280 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17618 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 17619 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17620 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 17621 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17622 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 17623 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 4 -61 17624 0
C x1,1,0,0
.TXT 6 2 17625 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 1 17626 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17627 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17628 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17629 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17630 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17631 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17632 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17633 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 17634 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17635 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 17636 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17637 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17638 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17639 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 17640 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19448 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17642 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17643 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17644 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17645 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 17646 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17647 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 17648 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17649 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 17650 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17651 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 17652 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 19281 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17653 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 17654 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17655 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 17656 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17657 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 17658 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17659 0
C x1,1,0,0
.TXT 6 2 17660 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 1 17661 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17662 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17663 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17664 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17665 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17666 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17667 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17668 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 17669 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17670 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 17671 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17672 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17673 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17674 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 17675 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19449 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17677 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17678 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17679 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17680 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 17681 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17682 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 17683 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17684 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 17685 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17686 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 17687 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 19282 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17688 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 17689 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17690 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 17691 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17692 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 17693 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17694 0
C x1,1,0,0
.TXT 6 2 17695 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 1 17696 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17697 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17698 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17699 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17700 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17701 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17702 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17703 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 17704 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17705 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 17706 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17707 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17708 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17709 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 17710 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19450 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17712 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17713 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17714 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17715 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 17716 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17717 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 17718 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17719 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 17720 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17721 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 17722 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 19283 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17723 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 17724 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17725 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 17726 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17727 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 17728 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17729 0
C x1,1,0,0
.TXT 6 2 17730 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 1 17731 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17732 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17733 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17734 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17735 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17736 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17737 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17738 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 17739 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17740 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 17741 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17742 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17743 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17744 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 17745 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19451 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17747 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17748 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17749 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17750 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 17751 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17752 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 17753 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17754 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 17755 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17756 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 17757 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 19284 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17758 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 17759 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17760 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 17761 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17762 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 17763 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17764 0
C x1,1,0,0
.TXT 6 2 17765 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 1 17766 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17767 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17768 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17769 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17770 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17771 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17772 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17773 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 17774 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17775 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 17776 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17777 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17778 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17779 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 17780 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19452 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17782 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17783 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17784 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17785 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 17786 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17787 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 17788 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17789 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 17790 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17791 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 17792 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 1 57 19285 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17793 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 17794 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17795 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 17796 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17797 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 17798 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17799 0
C x1,1,0,0
.TXT 6 2 17800 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 1 17801 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17802 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17803 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17804 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17805 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17806 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17807 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17808 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 17809 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17810 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 17811 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17812 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17813 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17814 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 17815 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19453 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17817 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17818 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17819 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17820 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 17821 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17822 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 17823 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17824 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 17825 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17826 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 17827 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 19286 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17828 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 17829 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17830 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 17831 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17832 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 17833 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17834 0
C x1,1,0,0
.TXT 6 2 17835 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 1 17836 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17837 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17838 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17839 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17840 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17841 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17842 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17843 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 17844 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17845 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 17846 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17847 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17848 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17849 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 17850 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19454 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17852 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17853 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17854 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17855 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 17856 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17857 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 17858 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17859 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 17860 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17861 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 17862 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 1 57 19287 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17863 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 17864 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17865 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 17866 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17867 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 17868 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 4 -60 17869 0
C x1,1,0,0
.TXT 6 2 17870 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 1 17871 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17872 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17873 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17874 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17875 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17876 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17877 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17878 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 17879 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17880 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 17881 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17882 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17883 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17884 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 17885 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19455 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17887 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17888 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17889 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17890 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 17891 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17892 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 17893 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17894 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 17895 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17896 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 17897 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 1 57 18919 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17898 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 17899 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17900 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 17901 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17902 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 17903 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17904 0
C x1,1,0,0
.TXT 6 4 17905 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 1 17906 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17907 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17908 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17909 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17910 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17911 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17912 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17913 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 17914 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17915 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 17916 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17917 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17918 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17919 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 17920 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19456 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17922 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17923 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17924 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17925 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 17926 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17927 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 17928 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17929 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 17930 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17931 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 17932 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 19275 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17933 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 17934 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17935 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 17936 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17937 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 17938 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 17939 0
C x1,1,0,0
.TXT 6 2 17940 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 1 17941 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17942 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17943 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17944 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17945 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17946 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17947 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17948 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 17949 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17950 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 17951 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17952 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17953 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17954 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 17955 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19457 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17957 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17958 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17959 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17960 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 17961 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17962 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 17963 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17964 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 17965 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 17966 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 17967 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 19276 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 17968 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 17969 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 17970 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 17971 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17972 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 17973 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 17974 0
C x1,1,0,0
.TXT 6 3 17975 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 1 17976 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 17977 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 17978 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 17979 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17980 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17981 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 17982 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17983 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 17984 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17985 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 17986 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17987 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 17988 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 17989 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 17990 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19458 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 17992 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 17993 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 17994 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 17995 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 17996 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 17997 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 17998 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 17999 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 18000 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18001 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 18002 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 1 57 19277 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18003 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 18004 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18005 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 18006 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18007 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 18008 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18009 0
C x1,1,0,0
.TXT 6 4 18010 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 1 18011 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18012 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18013 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18014 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18015 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18016 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18017 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18018 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 18019 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18020 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 18021 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18022 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18023 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18024 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 18025 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19459 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18027 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18028 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18029 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18030 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 18031 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18032 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 18033 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18034 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 18035 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18036 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 18037 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 19288 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18038 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 18039 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18040 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 18041 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18042 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 18043 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 18044 0
C x1,1,0,0
.TXT 6 4 18045 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 1 18046 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18047 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18048 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18049 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18050 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18051 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18052 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18053 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 18054 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18055 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 18056 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18057 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18058 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18059 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 18060 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19460 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18062 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18063 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18064 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18065 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 18066 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18067 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 18068 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18069 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 18070 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18071 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 18072 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 19289 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18073 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 18074 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18075 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 18076 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18077 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 18078 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 18079 0
C x1,1,0,0
.TXT 6 3 18080 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 1 18081 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18082 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18083 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18084 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18085 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18086 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18087 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18088 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 18089 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18090 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 18091 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18092 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18093 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18094 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 18095 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19461 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18097 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18098 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18099 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18100 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 18101 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18102 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 18103 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18104 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 18105 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18106 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 18107 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 1 57 19290 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18108 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 18109 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18110 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 18111 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18112 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 18113 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18114 0
C x1,1,0,0
.TXT 6 3 18115 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 1 18116 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18117 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18118 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18119 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18120 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18121 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18122 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18123 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 18124 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18125 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 18126 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18127 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18128 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18129 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 18130 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19462 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18132 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18133 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18134 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18135 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 18136 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18137 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 18138 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18139 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 18140 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18141 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 18142 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 19291 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18143 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 18144 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18145 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 18146 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18147 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 18148 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18149 0
C x1,1,0,0
.TXT 6 3 18150 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 1 18151 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18152 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18153 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18154 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18155 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18156 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18157 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18158 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 18159 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18160 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 18161 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18162 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18163 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18164 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 18165 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19463 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18167 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18168 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18169 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18170 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 18171 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18172 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 18173 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18174 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 18175 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18176 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 18177 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 19292 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18178 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 18179 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18180 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 18181 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18182 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 18183 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18184 0
C x1,1,0,0
.TXT 6 3 18185 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 1 18186 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18187 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18188 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18189 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18190 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18191 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18192 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18193 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 18194 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18195 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 18196 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18197 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18198 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18199 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 18200 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19464 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18202 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18203 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18204 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18205 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 18206 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18207 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 18208 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18209 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 18210 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18211 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 18212 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 1 57 19293 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18213 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 18214 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18215 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 18216 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18217 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 18218 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18219 0
C x1,1,0,0
.TXT 6 3 18220 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 1 18221 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18222 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18223 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18224 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18225 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18226 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18227 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18228 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 18229 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18230 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 18231 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18232 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18233 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18234 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 18235 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19465 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18237 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18238 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18239 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18240 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 18241 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18242 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 18243 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18244 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 18245 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18246 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 18247 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 19294 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18248 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 18249 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18250 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 18251 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18252 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 18253 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18254 0
C x1,1,0,0
.TXT 6 4 18255 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 1 18256 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18257 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18258 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18259 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18260 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18261 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18262 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18263 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 18264 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18265 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 18266 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18267 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18268 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18269 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 18270 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19466 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18272 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18273 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18274 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18275 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 18276 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18277 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 18278 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18279 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 18280 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18281 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 18282 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 19295 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18283 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 18284 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18285 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 18286 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18287 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 18288 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 18289 0
C x1,1,0,0
.TXT 6 3 18290 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 1 18291 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18292 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18293 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18294 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18295 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18296 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18297 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18298 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 18299 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18300 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 18301 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18302 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18303 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18304 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 18305 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19467 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18307 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18308 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18309 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18310 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 18311 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18312 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 18313 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18314 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 18315 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18316 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 18317 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 1 57 19296 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18318 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 18319 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18320 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 18321 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18322 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 18323 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18324 0
C x1,1,0,0
.TXT 6 2 18325 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 1 18326 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18327 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18328 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18329 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18330 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18331 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18332 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18333 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 18334 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18335 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 18336 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18337 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18338 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18339 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 18340 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19468 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18342 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18343 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18344 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18345 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 18346 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18347 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 18348 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18349 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 18350 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18351 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 18352 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 19297 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18353 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 18354 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18355 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 18356 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18357 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 18358 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 18359 0
C x1,1,0,0
.TXT 6 4 18360 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 1 18361 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18362 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18363 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18364 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18365 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18366 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18367 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18368 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 18369 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18370 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 18371 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18372 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18373 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18374 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 18375 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19469 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18377 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18378 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18379 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18380 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 18381 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18382 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 18383 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18384 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 18385 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18386 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 18387 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 19298 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18388 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 18389 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18390 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 18391 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18392 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 18393 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 18394 0
C x1,1,0,0
.TXT 6 5 18395 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 1 18396 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18397 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18398 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18399 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18400 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18401 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18402 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18403 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 18404 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18405 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 18406 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18407 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18408 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18409 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 18410 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19470 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18412 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18413 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18414 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18415 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 18416 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18417 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 18418 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18419 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 18420 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18421 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 18422 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 19299 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18423 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 18424 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18425 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 18426 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18427 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 18428 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -63 18429 0
C x1,1,0,0
.TXT 6 3 18430 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 1 18431 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18432 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18433 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18434 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18435 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18436 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18437 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18438 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 18439 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18440 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 18441 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18442 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18443 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18444 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 18445 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19471 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18447 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18448 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18449 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18450 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 18451 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18452 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 18453 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18454 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 18455 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18456 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 18457 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 1 57 19300 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18458 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 18459 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18460 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 18461 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18462 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 18463 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18464 0
C x1,1,0,0
.TXT 6 2 18465 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 1 18466 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18467 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18468 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18469 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18470 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18471 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18472 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18473 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 18474 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18475 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 18476 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18477 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18478 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18479 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 18480 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19472 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18482 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18483 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18484 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18485 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 18486 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18487 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 18488 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18489 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 18490 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18491 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 18492 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 19301 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18493 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 18494 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18495 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 18496 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18497 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 18498 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 18499 0
C x1,1,0,0
.TXT 6 3 18500 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 1 18501 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18502 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18503 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18504 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18505 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18506 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18507 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18508 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 18509 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18510 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 18511 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18512 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18513 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18514 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 18515 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19473 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18517 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18518 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18519 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18520 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 18521 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18522 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 18523 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18524 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 18525 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18526 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 18527 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 19302 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18528 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 18529 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18530 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 18531 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18532 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 18533 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18534 0
C x1,1,0,0
.TXT 6 3 18535 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 1 18536 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18537 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18538 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18539 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18540 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18541 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18542 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18543 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 18544 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18545 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 18546 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18547 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18548 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18549 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 18550 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19474 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18552 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18553 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18554 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18555 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 18556 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18557 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 18558 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18559 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 18560 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18561 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 18562 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 1 57 19303 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18563 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 18564 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18565 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 18566 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18567 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 18568 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18569 0
C x1,1,0,0
.TXT 6 3 18570 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 1 18571 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18572 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18573 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18574 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18575 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18576 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18577 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18578 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 18579 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18580 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 18581 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18582 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18583 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18584 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 18585 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19475 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18587 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18588 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18589 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18590 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 18591 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18592 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 18593 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18594 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 18595 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18596 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 18597 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 1 57 19304 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18598 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 18599 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18600 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 18601 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18602 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 18603 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18604 0
C x1,1,0,0
.TXT 6 3 18605 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 1 18606 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18607 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18608 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18609 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18610 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18611 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18612 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18613 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 18614 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18615 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 18616 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18617 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18618 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18619 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 18620 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19476 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18622 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18623 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18624 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18625 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 18626 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18627 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 18628 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18629 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 18630 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18631 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 18632 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 19305 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18633 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 18634 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18635 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 18636 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18637 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 18638 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18639 0
C x1,1,0,0
.TXT 6 3 18640 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 1 18641 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18642 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18643 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18644 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18645 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18646 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18647 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18648 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 18649 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18650 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 18651 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18652 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18653 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18654 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 18655 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19477 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18657 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18658 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18659 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18660 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 18661 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18662 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 18663 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18664 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 18665 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18666 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 18667 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 19306 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18668 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 18669 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18670 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 18671 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18672 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 18673 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18674 0
C x1,1,0,0
.TXT 6 3 18675 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 1 18676 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18677 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18678 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18679 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18680 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18681 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18682 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18683 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 18684 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18685 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 18686 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18687 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18688 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18689 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 18690 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19478 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18692 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18693 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18694 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18695 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 18696 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18697 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 18698 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18699 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 18700 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18701 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 18702 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 1 57 19307 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18703 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 18704 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18705 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 18706 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18707 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 18708 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 4 -61 18709 0
C x1,1,0,0
.TXT 6 3 18710 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 1 18711 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18712 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18713 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18714 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18715 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18716 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18717 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18718 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 18719 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18720 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 18721 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18722 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18723 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18724 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 18725 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19479 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18727 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18728 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18729 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18730 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 18731 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18732 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 18733 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18734 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 18735 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18736 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 18737 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 1 57 19308 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18738 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 18739 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18740 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 18741 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18742 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 18743 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18744 0
C x1,1,0,0
.TXT 6 3 18745 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 1 18746 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18747 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18748 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18749 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18750 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18751 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18752 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18753 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 18754 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18755 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 18756 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18757 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18758 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18759 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 18760 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19480 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18762 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18763 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18764 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18765 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 18766 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18767 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 18768 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18769 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 18770 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18771 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 18772 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 1 57 19309 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18773 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 18774 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18775 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 18776 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18777 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 18778 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 18779 0
C x1,1,0,0
.TXT 6 3 18780 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 1 18781 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18782 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18783 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18784 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18785 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18786 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18787 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18788 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 18789 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18790 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 18791 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18792 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18793 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18794 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 18795 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19481 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18797 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18798 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18799 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18800 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 18801 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18802 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 18803 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18804 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 18805 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18806 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 18807 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 1 57 19310 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18808 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 18809 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18810 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 18811 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18812 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 18813 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -61 18814 0
C x1,1,0,0
.TXT 6 2 18815 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 1 18816 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18817 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18818 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18819 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18820 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18821 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18822 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18823 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 18824 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18825 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 18826 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18827 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18828 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18829 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 18830 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19482 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18832 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18833 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18834 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18835 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 18836 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18837 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 18838 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18839 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 18840 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18841 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 18842 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 19311 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18843 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 18844 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18845 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 18846 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18847 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 18848 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -60 18849 0
C x1,1,0,0
.TXT 6 2 18850 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 1 18851 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18852 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18853 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18854 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18855 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18856 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18857 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18858 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 18859 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18860 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 18861 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18862 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18863 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18864 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 18865 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19483 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18867 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18868 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18869 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18870 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 18871 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18872 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 18873 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18874 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 18875 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18876 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 18877 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 19312 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18878 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 18879 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18880 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 18881 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18882 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 18883 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -60 18884 0
C x1,1,0,0
.TXT 6 2 18885 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 1 18886 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18887 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18888 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18889 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18890 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18891 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18892 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18893 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 18894 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18895 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 18896 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18897 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18898 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18899 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 18900 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19484 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18902 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18903 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18904 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18905 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 18906 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18907 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 18908 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18909 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 18910 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18911 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 18912 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 18922 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18913 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 18914 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18915 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 18916 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18917 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 18918 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 4 -60 18923 0
C x1,1,0,0
.TXT 6 4 18924 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 1 18925 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18926 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18927 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18928 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18929 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18930 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18931 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18932 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 18933 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18934 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 18935 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18936 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18937 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18938 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 18939 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19485 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18941 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18942 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18943 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18944 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 18945 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18946 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 18947 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18948 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 18949 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18950 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 18951 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 18952 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18953 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 18954 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18955 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 18956 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18957 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 18958 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -62 18959 0
C x1,1,0,0
.TXT 6 4 18960 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 1 18961 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18962 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18963 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 18964 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18965 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18966 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 18967 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18968 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 18969 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18970 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 18971 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18972 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 18973 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18974 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 18975 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19486 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 18977 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 18978 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 18979 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 18980 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 18981 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 18982 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 18983 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 18984 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 18985 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 18986 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 18987 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 18988 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 18989 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 18990 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 18991 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 18992 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 18993 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 18994 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 18995 0
C x1,1,0,0
.TXT 6 4 18996 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 1 18997 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 18998 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 18999 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 19000 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19001 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19002 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19003 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19004 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 19005 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19006 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 19007 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19008 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19009 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19010 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 19011 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19487 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 19013 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19014 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19015 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19016 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 19017 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19018 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 19019 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19020 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 19021 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19022 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 19023 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 19024 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19025 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 19026 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19027 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 19028 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19029 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 19030 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 19031 0
C x1,1,0,0
.TXT 6 4 19032 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 1 19033 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19034 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19035 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 19036 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19037 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19038 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19039 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19040 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 19041 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19042 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 19043 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19044 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19045 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19046 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 19047 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19488 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 19049 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19050 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19051 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19052 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 19053 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19054 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 19055 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19056 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 19057 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19058 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 19059 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 19060 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19061 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 19062 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19063 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 19064 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19065 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 19066 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -62 19067 0
C x1,1,0,0
.TXT 6 3 19068 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 1 19069 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19070 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19071 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 19072 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19073 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19074 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19075 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19076 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 19077 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19078 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 19079 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19080 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19081 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19082 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 19083 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19489 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 19085 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19086 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19087 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19088 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 19089 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19090 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 19091 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19092 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 19093 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19094 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 19095 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 19096 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19097 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 19098 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19099 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 19100 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19101 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 19102 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -61 19103 0
C x1,1,0,0
.TXT 6 4 19104 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 1 19105 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19106 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19107 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 19108 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19109 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19110 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19111 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19112 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 19113 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19114 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 19115 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19116 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19117 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19118 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 19119 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19490 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 19121 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19122 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19123 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19124 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 19125 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19126 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 19127 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19128 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 19129 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19130 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 19131 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 19132 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19133 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 19134 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19135 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 19136 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19137 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 19138 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -62 19139 0
C x1,1,0,0
.TXT 6 4 19140 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 1 19141 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19142 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19143 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 19144 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19145 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19146 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19147 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19148 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 19149 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19150 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 19151 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19152 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19153 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19154 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 19155 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19491 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 19157 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19158 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19159 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19160 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 19161 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19162 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 19163 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19164 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 19165 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19166 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 19167 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 19168 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19169 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 19170 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19171 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 19172 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19173 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 19174 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 5 -62 19175 0
C x1,1,0,0
.TXT 6 5 19176 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 1 19177 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 57 19178 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 12 19179 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -69 19180 0
({0:T\m}NAME)[({0:n}NAME):{0:fTSOL}NAME(({0:S\e}NAME)[(({0:n}NAME-1)),({0:P\b}NAME)[({0:n}NAME),({0:M\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19181 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19182 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\e}NAME)[(({0:n}NAME-1)))
.EQN 0 57 19183 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19184 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 19185 0
({0:U}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19186 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 19187 0
({0:TV\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19188 0
({0:dTV}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)
.EQN 0 57 19189 0
({0:dTV}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19190 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 19191 0
({0:dTVP}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 19492 0
({0:e}NAME)[({0:n}NAME):{0:pdel}NAME*({0:A}NAME*((({0:dTVP}NAME)[({0:n}NAME)))^({0:B}NAME)+{0:E}NAME)
.EQN 0 57 19193 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 5 -57 19194 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 57 19195 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -57 19196 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 19197 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 19198 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 19199 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 19200 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 19201 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 6 -57 19202 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 19203 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 19204 0
({0:MC\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 5 -57 19205 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 19206 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 3 -57 19207 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 19208 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 19209 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 19210 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 9 -63 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 6 3 19213 0
{0:n}NAME={0}?_n_u_l_l_
.EQN 0 18 19444 0
{0:im}NAME={0}?_n_u_l_l_
.EQN 3 -18 19215 0
{0:q}NAME:1;{0:im}NAME
.EQN 4 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 6 2 19218 0
({0:M\m}NAME)[(({0:q}NAME+1)):({0:M\e}NAME)[({0:q}NAME)
.EQN 3 0 19219 0
({0:S\m}NAME)[(({0:q}NAME+1)):({0:S\e}NAME)[({0:q}NAME)
.EQN 6 -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 8 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))
.EQN 6 -1 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 21 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 5 20 42 42}?_n_u_l_l_
.EQN 0 24 19228 0
{0:T\m}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 24 19229 0
{0:M\m}NAME*1000={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 48 -46 19230 0
{0:S\m}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 23 19231 0
{0:H\m}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 18 19232 0
{0:TV\mdel}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 20 19233 0
{0:MC\m}NAME*1000={0 0 0 5 20 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 5 20 42 42}?_n_u_l_l_
.EQN 0 26 19236 0
{0:T\e}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 25 19237 0
{0:M\e}NAME*1000={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 46 -48 19238 0
{0:S\e}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 18 19239 0
{0:H\e}NAME={0 0 0 5 20 42 42}?_n_u_l_l_
.EQN 0 21 19240 0
{0:TV\edel}NAME={0 0 33 5 20 42 42}?_n_u_l_l_
.EQN 0 17 19241 0
{0:MC\e}NAME*1000={0 0 0 5 20 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),({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:dTV\w}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 0 1 14 42 42}?_n_u_l_l_
.EQN 0 20 19257 0
{0:\g\g}NAME*100={19044 0 0 1 14 42 42}?_n_u_l_l_
.EQN 32 -49 19260 0
{0:m}NAME:2;{0:im}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