.MCAD 303010000 1 82 16801 0
.CMD PLOTFORMAT
0 0 1 0 2 0 1 
0 0 1 0 2 0 1 
1 1 0 0 NO-TRACE-STRING
2 2 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 21 15 0 3 
.CMD FORMAT  rd=d ct=10 im=i et=6 zt=5 pr=2 mass length time charge temperature tr=0 vm=1
.CMD SET ORIGIN 1
.CMD SET TOL 0.001000000000000
.CMD SET PRNCOLWIDTH 8
.CMD SET PRNPRECISION 4
.CMD PRINT_SETUP 1.000000 0.500000 0.500000 0.500000 0
.CMD HEADER_FOOTER 1 0 *empty* *empty* *empty* 0 0 *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=Times^New^Roman points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=1 family=Times^New^Roman points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=2 family=Times^New^Roman 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 16737 0
Cg b84.000000,84.000000,213
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Updraft Properties Calculations
 for article submitted to Tellus entitled:\par 
"Entrainment and Detrainment Required to
 Explain Updraft Properties and Work Dissipation."\par 
by: L. Michaud\par Documented June 14, 1997.\par 
}}
}
.TXT 11 0 16139 0
Cg a34.750000,85.375000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ATMOSPHERIC THERMODYNAMIC FUNCTIONS}}
}
.TXT 3 0 16140 0
Cg b84.000000,84.000000,267
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {This section contains the standard
 thermodynamic functions\par which can be
 used with any program.  \par The program
 does not use all these functions.\par Go
 to page 6 for the start of the specific
 calculations \par and come back here to
 check the function used if necessary. }}
}
.TXT 13 0 16141 0
Cg a30.000000,85.375000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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 a13.625000,20.250000,23
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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~280
.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 3 -19 16793 0
C x1,1,0,0
.TXT 5 0 16170 0
Cg a43.875000,65.250000,68
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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 7 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:M}NAME)/({0:fMVS}NAME({0:P}NAME,{0:T}NAME)))
.EQN 6 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 5 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 3 0 16791 0
C x1,1,0,0
.TXT 3 0 16188 0
Cg a9.250000,11.250000,14
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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 a10.375000,12.250000,15
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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\s4}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 a30.625000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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 4 0 16223 0
Cg a12.125000,85.375000,16
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {SOLVER BLOCKS}}
}
.TXT 3 0 16224 0
Cg a29.875000,32.250000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTROPIC EXPANSION TEMPERATURE}}
}
.EQN 3 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 a26.000000,29.250000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTROPIC EXPANSION PRESSURE}}
}
.EQN 3 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 a40.750000,55.250000,58
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Solve block for ISO-STATIC-ENERGY
 expansion temperature}}
}
.EQN 3 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:Find}NAME({0:TG}NAME)
.TXT 4 0 16232 0
Cg a31.250000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTROPIC DESSICATION TEMPERATURE}}
}
.EQN 3 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 a54.625000,59.250000,62
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {ISENTHALPIC DESSICATION TEMPERATURE,
 EQUIVALENT TEMPERATURE}}
}
.EQN 3 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 a24.125000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {MIXING RATIO FROM WET BULB}}
}
.EQN 3 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 a24.125000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {WET BULB FROM MIXING RATIO}}
}
.EQN 3 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 2 0 16794 0
C x1,1,0,0
.TXT 2 0 16248 0
Cg a23.375000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {LIFTING CONDENSATION LEVEL}}
}
.EQN 3 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 a8.625000,9.250000,12
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {DEW POINT}}
}
.EQN 3 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 0 16792 0
C x1,1,0,0
.TXT 4 0 16739 0
Cg b84.000000,84.000000,173
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {START OF SPECIFIC CALCULATIONS\par 
\par Fetch the sounding data contained in
 file LUCAS1.PRN\par The sounding data was
 read from \par Lucas et al. (1994) Fig.
 8.  JAS 51-3183-3193 \par }}
}
.TXT 12 1 16374 0
Cg a39.375000,41.250000,70
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Ending }{\f1 a}{ denotes property
 of the original 4 level sounding }}
}
.EQN 4 0 16375 0
{0:KDAT}NAME:{0:READPRN}NAME({0:lucas1}NAME)
.EQN 6 0 16376 0
{0:P\a}NAME:({0:KDAT}NAME){52}(1)
.EQN 0 25 16377 0
{0:TC\a}NAME:({0:KDAT}NAME){52}(2)
.EQN 0 24 16378 0
{0:U\a}NAME:({0:KDAT}NAME){52}(3)
.EQN 9 -49 16379 0
{0:P\a}NAME={150066}?_n_u_l_l_
.EQN 0 25 16380 0
{0:TC\a}NAME={150066}?_n_u_l_l_
.EQN 0 24 16381 0
{0:U\a}NAME={150070}?_n_u_l_l_
.EQN 12 -49 16417 0
{0:T\a}NAME:{0:TC\a}NAME+{0:T0}NAME
.EQN 10 0 16418 0
{0:T\a}NAME={0}?_n_u_l_l_
.TXT 9 -1 16740 0
Cg b84.000000,84.000000,232
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Interpolate the 4 levels sounding
 to produce a sounding with regular 2 kPa
 intervals.\par Use linear interpellation
 for relative humidity and constant lapse
 rate for temperature.\par First determine
 the interval to interpolate within. }}
}
.TXT 8 0 16744 0
Cg a47.625000,84.625000,84
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Suffix }{\f1 b}{ designate properties
 of the interpolated 2 kPa interval sounding}}
}
.EQN 6 1 16383 0
{0:im}NAME:{0:last}NAME({0:P\a}NAME)
.EQN 0 29 16384 0
{0:i}NAME:1;{0:im}NAME
.EQN 0 15 16405 0
{0:im}NAME={0}?_n_u_l_l_
.EQN 3 -44 16385 0
{0:jm}NAME:{0:last}NAME({0:P\a}NAME)-1
.EQN 0 29 16386 0
{0:j}NAME:1;{0:jm}NAME
.EQN 3 -29 16439 0
{0:km}NAME:14
.EQN 3 0 16411 0
{0:k}NAME:1;{0:km}NAME
.EQN 3 0 16412 0
{0:pdel}NAME:2
.EQN 3 -1 16426 0
({0:P\b}NAME)[({0:k}NAME):({0:P\a}NAME)[(1)-{0:pdel}NAME*({0:k}NAME-1)
.EQN 3 1 16428 0
({0:ha}NAME)[({0:k}NAME):{0:im}NAME
.EQN 4 0 16424 0
({0:hb}NAME)[({0:k}NAME):{0:if}NAME(({0:P\b}NAME)[({0:k}NAME)>({0:P\a}NAME)[(2),1,0)
.EQN 4 0 16430 0
({0:hc}NAME)[({0:k}NAME):{0:if}NAME(({0:P\b}NAME)[({0:k}NAME)>({0:P\a}NAME)[(3),1,0)
.EQN 4 0 16431 0
({0:hd}NAME)[({0:k}NAME):{0:if}NAME(({0:P\b}NAME)[({0:k}NAME)>({0:P\a}NAME)[(4),1,0)
.TXT 7 0 16741 0
Cg a56.500000,83.625000,90
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {"he" is the number of the interval
 in the original sounding within which to
 interpolate}}
}
.EQN 3 0 16433 0
{0:he}NAME:{0:ha}NAME-{0:hb}NAME-{0:hc}NAME-{0:hd}NAME
.TXT 6 -1 16742 0
Cg a38.250000,84.625000,63
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Interpolate the realtive humidity
 using linear interpolation}}
}
.EQN 9 1 16446 0
({0:U\b}NAME)[({0:k}NAME):({0:U\a}NAME)[(({0:he}NAME)[({0:k}NAME))-(({0:U\a}NAME)[((({0:he}NAME)[({0:k}NAME)))-({0:U\a}NAME)[((({0:he}NAME)[({0:k}NAME)+1)))*(({0:P\a}NAME)[((({0:he}NAME)[({0:k}NAME)))-({0:P\b}NAME)[({0:k}NAME))/((({0:P\a}NAME)[(((
{0:he}NAME)[({0:k}NAME)))-({0:P\a}NAME)[((({0:he}NAME)[({0:k}NAME)+1))))
.TXT 11 0 16743 0
Cg a43.375000,83.625000,68
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Interpolate the temperature using
 constant lapse rate or exponent}}
}
.EQN 12 0 16448 0
({0:\a}NAME)[({0:j}NAME):({0:ln}NAME((({0:T\a}NAME)[({0:j}NAME+1))/(({0:T\a}NAME)[({0:j}NAME))))/({0:ln}NAME((({0:P\a}NAME)[(({0:j}NAME+1)))/(({0:P\a}NAME)[({0:j}NAME))))
.EQN 13 1 16450 0
({0:T\b}NAME)[({0:k}NAME):({0:T\a}NAME)[((({0:he}NAME)[({0:k}NAME)))*(((({0:P\b}NAME)[(({0:k}NAME)))/(({0:P\a}NAME)[((({0:he}NAME)[({0:k}NAME))))))^(({0:\a}NAME)[((({0:he}NAME)[({0:k}NAME))))
.EQN 22 0 16447 0
{0:P\b}NAME={150114}?_n_u_l_l_
.EQN 0 18 16434 0
{0:he}NAME={150114}?_n_u_l_l_
.EQN 0 17 16436 0
{0:U\b}NAME={150114}?_n_u_l_l_
.EQN 0 19 16451 0
{0:T\b}NAME={150114}?_n_u_l_l_
.TXT 27 -56 16795 0
C x1,1,0,0
.TXT 2 1 16745 0
Cg a25.125000,83.625000,48
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate other }{\f1 b}{ sounding
 properties}}
}
.EQN 5 0 16458 0
{0:MS\b}NAME:({0:fMVS}NAME({0:P\b}NAME,{0:T\b}NAME)){49}
.EQN 5 0 16459 0
{0:M\b}NAME:(({0:MS\b}NAME*(({0:U\b}NAME)/(100)))){49}
.EQN 3 -66 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 4 0 16389 0
{0:H\b}NAME:(({0:fHT3}NAME({0:P\b}NAME,{0:T\b}NAME,{0:M\b}NAME))){49}
.EQN 4 0 16390 0
{0:TV\b}NAME:({0:fTV}NAME({0:T\b}NAME,{0:M\b}NAME)){49}
.EQN 19 -1 16462 0
{0:P\b}NAME={150114}?_n_u_l_l_
.EQN 0 15 16746 0
{0:T\b}NAME={0}?_n_u_l_l_
.EQN 0 17 16747 0
{0:U\b}NAME={0}?_n_u_l_l_
.EQN 0 18 16460 0
{0:MS\b}NAME*1000={150114}?_n_u_l_l_
.EQN 0 17 16461 0
{0:M\b}NAME*1000={0}?_n_u_l_l_
.EQN 42 -65 16463 0
{0:S\b}NAME={0}?_n_u_l_l_
.EQN 0 21 16464 0
{0:H\b}NAME={0}?_n_u_l_l_
.EQN 0 33 16465 0
{0:TV\b}NAME={0}?_n_u_l_l_
.TXT 26 -56 16796 0
C x1,1,0,0
.TXT 3 0 16748 0
Cg a34.875000,84.625000,220
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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}}
}
.EQN 11 0 16484 0
{0:A}NAME:0.1
.EQN 0 18 16485 0
{0:B}NAME:0.5
.EQN 0 21 16486 0
{0:C}NAME:0.01
.TXT 5 -39 16750 0
Cg a40.750000,84.625000,226
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Set initial Updraft properties\par 
Suffix }{\f1 m}{ designates updraft property
 before entrainment\par Suffix }{\f1 e}{
 designates updraft property after entrainment\par 
index n designates sounding level starting
 from 100 kPa level.}}
}
.EQN 10 0 16473 0
{0:n}NAME:1
.EQN 3 2 16466 0
({0:T\m}NAME)[({0:n}NAME):({0:T\b}NAME)[({0:n}NAME)+1
.EQN 0 18 16478 0
({0:M\m}NAME)[({0:n}NAME):({0:M\b}NAME)[({0:n}NAME)+0
.EQN 6 -18 16468 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\b}NAME)[({0:n}NAME))
.EQN 0 33 16469 0
({0:S\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 3 -33 16475 0
({0:S\e}NAME)[({0:n}NAME):({0:S\m}NAME)[({0:n}NAME)
.EQN 0 12 16476 0
({0:T\e}NAME)[({0:n}NAME):({0:T\m}NAME)[({0:n}NAME)
.EQN 0 17 16477 0
({0:M\e}NAME)[({0:n}NAME):({0:M\m}NAME)[({0:n}NAME)
.EQN 4 -29 16659 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 16660 0
({0:TV\e}NAME)[({0:n}NAME):({0:TV\m}NAME)[({0:n}NAME)
.EQN 4 -28 16714 0
({0:H\m}NAME)[({0:n}NAME):{0:fHT3}NAME(({0:P\b}NAME)[({0:n}NAME),({0:T\m}NAME)[({0:n}NAME),({0:M\b}NAME)[({0:n}NAME))
.EQN 0 29 16715 0
({0:H\e}NAME)[({0:n}NAME):({0:H\m}NAME)[({0:n}NAME)
.EQN 7 -30 16474 0
{0:n}NAME:{0:n}NAME+1
.EQN 4 1 16470 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 16472 0
({0:T\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -57 16490 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 16491 0
({0:H\m}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -57 16479 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 56 16480 0
({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 6 -56 16481 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 0 57 16483 0
({0:e}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 4 -57 16488 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 1 58 16489 0
({0:f}NAME)[({0:n}NAME)*100={0}?_n_u_l_l_
.EQN 6 -58 16495 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 16496 0
({0:M\e}NAME)[({0:n}NAME)*1000={0}?_n_u_l_l_
.EQN 4 -57 16497 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 16498 0
({0:H\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 5 -57 16499 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 58 16500 0
({0:T\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -58 16501 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 1 57 16502 0
({0:S\e}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 2 -57 16522 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 2 55 16523 0
({0:TV\e}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -57 16797 0
C x1,1,0,0
.TXT 3 1 16751 0
Cg a31.375000,83.625000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Repeat entrainment calculation 
at 2 kPa interval}}
}
.EQN 3 1 16503 0
{0:n}NAME:{0:n}NAME+1
.EQN 4 0 16504 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 4 0 16505 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 4 0 16506 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 4 0 16507 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16508 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16509 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 4 0 16510 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 4 0 16511 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 4 0 16512 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 4 0 16524 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 6 0 16526 0
{0:n}NAME:{0:n}NAME+1
.EQN 4 0 16527 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 4 0 16528 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 4 0 16529 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 4 0 16530 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16531 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16532 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 4 0 16533 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 4 0 16534 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 4 0 16535 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 4 0 16536 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))
.TXT 2 -2 16798 0
C x1,1,0,0
.EQN 4 2 16537 0
{0:n}NAME:{0:n}NAME+1
.EQN 4 0 16538 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 4 0 16539 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 4 0 16540 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 4 0 16541 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16542 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16543 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 4 0 16544 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 4 0 16545 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 4 0 16546 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 4 0 16547 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 6 0 16548 0
{0:n}NAME:{0:n}NAME+1
.EQN 4 0 16549 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 4 0 16550 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 4 0 16551 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 4 0 16552 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16553 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16554 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 4 0 16555 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 4 0 16556 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 4 0 16557 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 4 0 16558 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 5 0 16559 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16570 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16560 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 4 0 16561 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 4 0 16562 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 4 0 16563 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16564 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16565 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 4 0 16566 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 4 0 16567 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 4 0 16568 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 4 0 16569 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 7 0 16571 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16572 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16573 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 4 0 16574 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 4 0 16575 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 4 0 16576 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16577 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16578 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 4 0 16579 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 4 0 16580 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 4 0 16581 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 4 0 16582 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 6 0 16583 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16584 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16585 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 4 0 16586 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 4 0 16587 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 4 0 16588 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16589 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16590 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 4 0 16591 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 4 0 16592 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 4 0 16593 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 4 0 16594 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 5 0 16595 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16596 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16597 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 4 0 16598 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 4 0 16599 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 4 0 16600 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16601 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16602 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 4 0 16603 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 4 0 16604 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 4 0 16605 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 4 0 16606 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 7 0 16607 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16608 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16609 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 4 0 16610 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 4 0 16611 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 4 0 16612 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16613 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16614 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 4 0 16615 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 4 0 16616 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 4 0 16617 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 4 0 16618 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 7 0 16619 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16620 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16621 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 4 0 16622 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 4 0 16623 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 4 0 16624 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16625 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16626 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 4 0 16627 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 4 0 16628 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 4 0 16629 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 4 0 16630 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 6 0 16631 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16632 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16633 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 4 0 16634 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 4 0 16635 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 4 0 16636 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16637 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16638 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 4 0 16639 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 4 0 16640 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 4 0 16641 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 4 0 16642 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))
.TXT 3 -2 16799 0
C x1,1,0,0
.EQN 3 2 16643 0
{0:n}NAME:{0:n}NAME+1
.EQN 0 28 16644 0
({0:P\b}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 4 -28 16645 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 4 0 16646 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 4 0 16647 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 4 0 16648 0
({0:e}NAME)[({0:n}NAME):{0:A}NAME*{0:pdel}NAME*((({0:TV\m}NAME)[({0:n}NAME)-({0:TV\b}NAME)[({0:n}NAME)))^({0:B}NAME)
.EQN 5 0 16649 0
({0:f}NAME)[({0:n}NAME):(({0:e}NAME)[({0:n}NAME))/(1+({0:e}NAME)[({0:n}NAME))
.EQN 5 0 16650 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 4 0 16651 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 4 0 16652 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 4 0 16653 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 4 0 16654 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))
.TXT 6 -2 16753 0
Cg b84.000000,84.000000,72
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {END OF ENTRAINMENT CALCULATION\par 
\par NOW TABULATE THE UPDRAFT PROPERTIES}}
}
.EQN 14 1 16655 0
({0:TV\mdel}NAME)[({0:k}NAME):((({0:TV\m}NAME)[({0:k}NAME)-({0:TV\b}NAME)[({0:k}NAME))){49}
.EQN 6 0 16657 0
({0:TV\edel}NAME)[({0:k}NAME):((({0:TV\e}NAME)[({0:k}NAME)-({0:TV\b}NAME)[({0:k}NAME))){49}
.EQN 4 1 16675 0
{0:qm}NAME:{0:km}NAME-1
.EQN 3 0 16676 0
{0:q}NAME:1;{0:qm}NAME
.EQN 3 1 16677 0
({0:M\m}NAME)[(({0:q}NAME+1)):({0:M\e}NAME)[({0:q}NAME)
.EQN 3 0 16678 0
({0:S\m}NAME)[(({0:q}NAME+1)):({0:S\e}NAME)[({0:q}NAME)
.TXT 5 -3 16763 0
Cg a26.625000,84.625000,41
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Condensed water content of the 
updraft}}
}
.EQN 5 3 16681 0
{0:MC\m}NAME:({0:fMC3}NAME({0:P\b}NAME,{0:T\m}NAME,{0:M\m}NAME)){49}
.EQN 4 0 16682 0
{0:MC\e}NAME:({0:fMC3}NAME({0:P\b}NAME,{0:T\e}NAME,{0:M\e}NAME)){49}
.TXT 20 -3 16754 0
Cg a29.125000,84.625000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Properties of the updraft before
 entrainment}}
}
.EQN 18 0 16663 0
{0:P\b}NAME={0}?_n_u_l_l_
.EQN 0 24 16680 0
{0:T\m}NAME={0}?_n_u_l_l_
.EQN 0 24 16664 0
{0:M\m}NAME*1000={0}?_n_u_l_l_
.EQN 48 -46 16666 0
{0:S\m}NAME={0}?_n_u_l_l_
.EQN 0 23 16679 0
{0:H\m}NAME={0}?_n_u_l_l_
.EQN 0 18 16656 0
{0:TV\mdel}NAME={0}?_n_u_l_l_
.EQN 0 20 16683 0
{0:MC\m}NAME*1000={0}?_n_u_l_l_
.TXT 44 -63 16756 0
Cg b84.000000,84.000000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Properties of  the updraft after
 entrainment}}
}
.EQN 24 0 16668 0
{0:P\b}NAME={0}?_n_u_l_l_
.EQN 0 26 16672 0
{0:T\e}NAME={0}?_n_u_l_l_
.EQN 0 25 16669 0
{0:M\e}NAME*1000={0}?_n_u_l_l_
.EQN 46 -48 16670 0
{0:S\e}NAME={0}?_n_u_l_l_
.EQN 0 18 16671 0
{0:H\e}NAME={0}?_n_u_l_l_
.EQN 0 21 16658 0
{0:TV\edel}NAME={0}?_n_u_l_l_
.EQN 0 17 16684 0
{0:MC\e}NAME*1000={0}?_n_u_l_l_
.TXT 46 -33 16757 0
Cg a39.375000,65.625000,48
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {VIRTUAL TEMPERATURE EXCESS OF UPDRAFT
 (FIG 2)}}
}
.EQN 1 -20 16736 0
70&100&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:k}NAME),({0:P\b}NAME)[({0:k}NAME)@3&-1&(_n_u_l_l_&_n_u_l_l_)&({0:TV\mdel}NAME)[({0:k}NAME),({0:TV\edel}NAME)[({0:k}NAME)
0 1 1 0 4 0 1 
0 1 1 0 6 0 1 
1 1 6 0 NO-TRACE-STRING
2 1 6 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 61 33 0 3 
.TXT 48 -6 16758 0
Cg b84.000000,84.000000,224
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\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 19 5 16707 0
({0:M\l}NAME)[({0:k}NAME):(((0.99)*({0:M\e}NAME)[({0:k}NAME)+0.01*({0:M\b}NAME)[({0:k}NAME))){49}
.EQN 4 0 16708 0
({0:H\l}NAME)[({0:k}NAME):((((0.99*{0:H\e}NAME))[({0:k}NAME)+0.01*({0:H\b}NAME)[({0:k}NAME))){49}
.EQN 4 0 16709 0
({0:T\l}NAME)[({0:k}NAME):({0:fTHOL}NAME(({0:H\l}NAME)[({0:k}NAME),({0:P\b}NAME)[({0:k}NAME),({0:M\l}NAME)[({0:k}NAME))){49}
.EQN 4 0 16713 0
{0:TV\l}NAME:({0:fTV3}NAME({0:P\b}NAME,{0:T\l}NAME,{0:M\l}NAME)){49}
.EQN 4 0 16719 0
{0:TV\ldd}NAME:{0:TV\e}NAME-{0:TV\l}NAME
.EQN 6 0 16716 0
{0:\g}NAME:(((-100*(({0:TV\ldd}NAME)/({0:TV\edel}NAME))+1)*{0:C}NAME*{0:pdel}NAME)){49}
.TXT 22 -5 16765 0
Cg b84.000000,84.000000,172
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {If the above equation yields positive
 detrainment or detrainment greater than
 100% set detrainment at -100%.\par For 
the base sounding the bound only affects
 the top level.}}
}
.EQN 6 3 16721 0
({0:\g\g}NAME)[({0:k}NAME):{0:if}NAME(({0:\g}NAME)[({0:k}NAME)<-1,-1,({0:\g}NAME)[({0:k}NAME))
.EQN 5 0 16764 0
({0:\g\g}NAME)[({0:k}NAME):{0:if}NAME(({0:\g\g}NAME)[({0:k}NAME)>0.01,-1,({0:\g\g}NAME)[({0:k}NAME))
.EQN 26 -3 16720 0
{0:TV\ldd}NAME={0}?_n_u_l_l_
.EQN 0 17 16759 0
{0:\g}NAME*100={0}?_n_u_l_l_
.EQN 0 21 16717 0
{0:\g\g}NAME*100={0}?_n_u_l_l_
.EQN 0 20 16711 0
{0:TV\e}NAME={0}?_n_u_l_l_
.EQN 0 13 16712 0
{0:TV\l}NAME={0}?_n_u_l_l_
.EQN 31 -63 16723 0
{0:m}NAME:2;14
.EQN 4 0 16724 0
{0:fac}NAME:(({0:e}NAME+1)){49}
.EQN 2 0 16725 0
({0:fcum}NAME)[(1):1
.EQN 5 0 16726 0
({0:fcum}NAME)[(({0:m}NAME)):({0:fcum}NAME)[(({0:m}NAME-1))*({0:fac}NAME)[(({0:m}NAME))
.EQN 5 0 16730 0
{0:\g\gac}NAME:(1+{0:\g\g}NAME)
.EQN 3 0 16731 0
({0:cumd}NAME)[(1):1
.EQN 3 0 16733 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 24 15 16761 0
Cg a39.000000,60.625000,46
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {PERCENT ENTRAINMENT AND DETRAINMENT
 (FIG 6)}}
}
.EQN 2 -21 16760 0
70&100&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:k}NAME),({0:P\b}NAME)[({0:k}NAME)@100&0&(_n_u_l_l_&_n_u_l_l_)&({0:e}NAME)[({0:k}NAME)*100,((-{0:\g\g}NAME))[({0:k}NAME)*100
0 1 1 0 5 0 1 
0 1 1 0 6 0 1 
1 1 6 0 NO-TRACE-STRING
2 1 6 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 16762 0
Cg a29.125000,59.625000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {CUMMULATIVE UPDRAFT MASS (FIG 7)}}
}
.EQN 1 -24 16729 0
70&100&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:k}NAME),({0:P\b}NAME)[({0:k}NAME)@6&0&(_n_u_l_l_&_n_u_l_l_)&({0:fcum}NAME)[({0:k}NAME),({0:cumd}NAME)[({0:k}NAME)
0 1 1 0 6 0 1 
0 1 1 0 6 0 1 
1 1 6 0 NO-TRACE-STRING
2 1 6 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 
.EQN 69 -1 16727 0
{0:fac}NAME={0}?_n_u_l_l_
.EQN 0 13 16728 0
{0:fcum}NAME={0}?_n_u_l_l_
.EQN 0 15 16734 0
{0:cumd}NAME={0}?_n_u_l_l_
.EQN 0 15 16735 0
{0:\g\gac}NAME={0}?_n_u_l_l_
.TXT 27 -43 16800 0
C x1,1,0,0
.TXT 4 0 16774 0
Cg b84.000000,84.000000,34
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {Calculate the terminal velocity}}
}
.EQN 6 0 16775 0
({0:DEN}NAME)[({0:q}NAME):(({0:P\b}NAME)[({0:q}NAME)*1000)/({0:RA}NAME*({0:T\m}NAME)[({0:q}NAME))
.EQN 6 0 16779 0
({0:DIA}NAME)[(1):100
.EQN 5 0 16777 0
({0:MASS}NAME)[(1):{0:\p}NAME*(((({0:DIA}NAME)[(1)))^(3))/(6)*({0:DEN}NAME)[(1)
.EQN 0 35 16778 0
({0:MASS}NAME)[(1)={0}?_n_u_l_l_
.EQN 5 -35 16780 0
({0:MASS}NAME)[({0:q}NAME):({0:MASS}NAME)[(1)*({0:cumd}NAME)[({0:q}NAME)
.EQN 10 0 16782 0
({0:DIA}NAME)[({0:q}NAME):(((({0:MASS}NAME)[({0:q}NAME))/({0:\p}NAME)*(6)/(({0:DEN}NAME)[({0:q}NAME))))^((1)/(3))
.EQN 7 0 16785 0
{0:CD}NAME:0.5
.EQN 7 0 16784 0
({0:VTER}NAME)[({0:q}NAME):(((4)/(3)*({0:G}NAME)/({0:CD}NAME)*({0:DIA}NAME)[({0:q}NAME)*(({0:TV\edel}NAME)[({0:q}NAME))/(({0:TV\b}NAME)[({0:q}NAME))))^(0.5)
.EQN 23 0 16776 0
{0:DEN}NAME={0}?_n_u_l_l_
.EQN 0 20 16781 0
{0:MASS}NAME={150128}?_n_u_l_l_
.EQN 0 24 16783 0
{0:DIA}NAME={0}?_n_u_l_l_
.EQN 0 19 16786 0
{0:VTER}NAME={0}?_n_u_l_l_
.TXT 25 -63 16801 0
C x1,1,0,0
.TXT 6 42 16790 0
Cg a8.125000,56.625000,11
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {DIAMETER}}
}
.EQN 1 -36 16787 0
70&100&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:q}NAME)@160&&(_n_u_l_l_&_n_u_l_l_)&({0:DIA}NAME)[({0:q}NAME)
0 1 1 0 6 0 1 
0 1 1 0 6 0 1 
1 1 6 0 NO-TRACE-STRING
2 2 6 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 33 0 3 
.TXT 50 24 16789 0
Cg a15.875000,47.625000,20
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Times New Roman;}
{\f1\fnil Symbol;}
{\f2\fnil Arial;}
}
{\plain {TERMINAL VELOCITY}}
}
.EQN 1 -30 16788 0
70&100&(_n_u_l_l_&_n_u_l_l_)&({0:P\b}NAME)[({0:q}NAME)@3&0&(_n_u_l_l_&_n_u_l_l_)&({0:VTER}NAME)[({0:q}NAME)
0 1 1 0 6 0 1 
0 1 1 0 6 0 1 
1 1 6 0 NO-TRACE-STRING
2 2 6 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 33 0 3