.MCAD 303010000 1 0 16503 0
.CMD PLOTFORMAT
0 0 1 1 0 0 1 
0 0 1 1 0 0 1 
0 1 0 0 NO-TRACE-STRING
0 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 1 21 15 0 3 
.CMD FORMAT  rd=d ct=10 im=i et=5 zt=15 pr=0 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=Arial 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=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=4 family=Arial points=10 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 16167 0
Cg a36.125000,85.375000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {ATMOSPHERIC THERMODYNAMIC FUNCTIONS}}
}
.TXT 3 0 16170 0
Cg b84.375000,84.375000,163
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {This section contains the standard
 thermodynamic functions\par that can be
 used with a specific procedure.\par Go 
to page 6 for the start of any specific 
calculations}}
}
.TXT 9 0 16168 0
Cg a33.000000,85.375000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Enter Freezing temperature and 
freezing band}}
}
.EQN 4 0 13 0
{0:TFC}NAME~-10
.EQN 0 14 17 0
{0:FB}NAME~20
.TXT 5 -14 1 0
Cg a17.500000,20.250000,23
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {1.0 Define CONSTANTS}}
}
.EQN 2 40 2 0
{0:KA}NAME~(2)/(7)
.EQN 2 -40 3 0
{0:CPA}NAME~1004.675
.EQN 0 19 4 0
{0:RA}NAME~{0:CPA}NAME*{0:KA}NAME
.EQN 6 21 5 0
{0:KV}NAME~(1)/(4)
.EQN 2 -40 6 0
{0:CPV}NAME~1846.04
.EQN 0 19 7 0
{0:RV}NAME~{0:CPV}NAME*{0:KV}NAME
.EQN 3 21 8 0
{0:\e}NAME~({0:RA}NAME)/({0:RV}NAME)
.EQN 5 -40 16330 0
{0:fCPA}NAME({0:M}NAME):{0:CPA}NAME+{0:CPV}NAME*{0:M}NAME
.EQN 0 28 16331 0
{0:fRA}NAME({0:M}NAME):{0:RA}NAME+{0:RV}NAME*{0:M}NAME
.EQN 0 25 16334 0
{0:fKA}NAME({0:M}NAME):({0:fRA}NAME({0:M}NAME))/({0:fCPA}NAME({0:M}NAME))
.EQN 9 -53 9 0
{0:P0}NAME~100
.EQN 0 19 10 0
{0:PV0}NAME~0.61068
.EQN 3 -19 12 0
{0:T0}NAME~273.15
.EQN 0 19 14 0
{0:TF}NAME~{0:T0}NAME+{0:TFC}NAME
.EQN 0 20 18 0
{0:G}NAME~9.8
.EQN 4 -39 11 0
{0:PG}NAME~70
.EQN 0 19 15 0
{0:TG}NAME~280
.EQN 0 18 16 0
{0:MG}NAME~0.01
.EQN 4 -37 19 0
{0:LV0}NAME~2500840
.EQN 0 19 20 0
{0:LF0}NAME~333660
.EQN 4 -19 21 0
{0:CW}NAME~4190
.EQN 0 19 22 0
{0:CI}NAME~2090
.EQN 4 -19 23 0
{0:\aL}NAME~52.91688
.EQN 0 19 24 0
{0:\aI}NAME~25.48597
.EQN 3 -19 25 0
{0:\bL}NAME~6806.171
.EQN 0 19 26 0
{0:\bI}NAME~6286.1912
.EQN 3 -19 27 0
{0:\GL}NAME~5.078893
.EQN 0 19 28 0
{0:\GI}NAME~0.528613
.TXT 10 -19 16180 0
C x1,1,0,0
.TXT 5 0 29 0
Cg a48.000000,65.250000,68
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {2.0  FUNCTIONS: Vapor pressure,
 mixing ratio, virtual temperature}}
}
.EQN 5 0 30 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 31 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 32 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 33 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 16129 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 34 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 35 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 36 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 7 0 37 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)))
.EQN 8 0 38 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 39 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 40 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 41 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 42 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 43 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 44 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 2 0 16179 0
C x1,1,0,0
.TXT 4 0 45 0
Cg a10.500000,11.250000,14
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {3.0 ENTROPY}}
}
.EQN 4 0 46 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 47 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 48 0
{0:fSL}NAME({0:T}NAME)~{0:CW}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))
.EQN 8 0 49 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 50 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 51 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 52 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 53 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 54 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 16130 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 55 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 56 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 6 0 57 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 16173 0
C x1,1,0,0
.TXT 5 0 58 0
Cg a11.250000,12.250000,15
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {4.0 ENTHALPY}}
}
.EQN 4 0 59 0
{0:fHA}NAME({0:T}NAME)~{0:CPA}NAME*({0:T}NAME-{0:T0}NAME)
.EQN 3 0 60 0
{0:fHV}NAME({0:T}NAME)~({0:CPV}NAME*({0:T}NAME-{0:T0}NAME)+{0:LV0}NAME)
.EQN 3 0 61 0
{0:fHL}NAME({0:T}NAME)~({0:CW}NAME*({0:T}NAME-{0:T0}NAME))
.EQN 3 0 62 0
{0:fHI}NAME({0:T}NAME)~({0:CI}NAME*({0:T}NAME-{0:T0}NAME)-{0:LF0}NAME)
.EQN 4 0 63 0
{0:fHA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA}NAME({0:T}NAME)
.EQN 3 0 64 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 65 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 66 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 67 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 68 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 69 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 70 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 71 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 72 0
Cg a32.250000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {5.0 VIRTUAL TEMPERATURE AND HEIGHT}}
}
.EQN 6 0 73 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 74 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 75 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 76 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 16172 0
C x1,1,0,0
.TXT 8 0 16163 0
Cg a13.750000,85.375000,16
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {SOLVER BLOCKS}}
}
.TXT 3 0 16131 0
Cg a32.000000,32.250000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {ISENTROPIC EXPANSION TEMPERATURE}}
}
.EQN 4 0 16132 0
{0:GIVEN}NAME
.EQN 3 0 16133 0
{0:fST3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16134 0
{0:fTSOL}NAME({0:S}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16135 0
Cg a28.875000,29.250000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {ISENTROPIC EXPANSION PRESSURE}}
}
.EQN 4 0 16136 0
{0:GIVEN}NAME
.EQN 3 0 16137 0
{0:fST3}NAME({0:PG}NAME,{0:T}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16138 0
{0:fPSOL}NAME({0:S}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:PG}NAME)
.TXT 4 0 16139 0
Cg a33.500000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {ISENTROPIC DESSICATION TEMPERATURE}}
}
.EQN 4 0 16140 0
{0:GIVEN}NAME
.EQN 3 0 16141 0
{0:fAA3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16142 0
{0:fASOL}NAME({0:S}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16143 0
Cg a58.000000,59.250000,62
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {ISENTHALPIC DESSICATION TEMPERATURE,
 EQUIVALENT TEMPERATURE}}
}
.EQN 4 0 16144 0
{0:GIVEN}NAME
.EQN 3 0 16145 0
{0:fEE3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:H}NAME
.EQN 3 0 16146 0
{0:fESOL}NAME({0:H}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16147 0
Cg a24.750000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {MIXING RATIO FROM WET BULB}}
}
.EQN 4 0 16148 0
{0:GIVEN}NAME
.EQN 3 0 16149 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 16150 0
{0:fMSOL}NAME({0:P}NAME,{0:T}NAME,{0:W}NAME):{0:FIND}NAME({0:MG}NAME)
.TXT 4 0 16151 0
Cg a24.750000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {WET BULB FROM MIXING RATIO}}
}
.EQN 4 0 16152 0
{0:GIVEN}NAME
.EQN 3 0 16153 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 16154 0
{0:fWSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16155 0
Cg a24.750000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {LIFTING CONDENSATION LEVEL}}
}
.EQN 4 0 16156 0
{0:GIVEN}NAME
.EQN 3 0 16157 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 16158 0
{0:fCSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:PG}NAME)
.TXT 4 0 16159 0
Cg a9.125000,9.250000,12
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {DEW POINT}}
}
.EQN 4 0 16160 0
{0:GIVEN}NAME
.EQN 3 0 16161 0
{0:fPV2}NAME({0:P}NAME,{0:M}NAME)÷{0:fPV}NAME({0:TG}NAME)
.EQN 3 0 16162 0
{0:fDSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 9 0 16503 0
C x1,1,0,0
.TXT 7 3 16416 0
Cg a73.750000,80.000000,165
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {MathCad c}{alculations for article:\par 
"Vortex Process for Capturing the Mechanical
 Energy Produced during Upward Heat-convection
 in the atmosphere". by L. Michaud}}
}
.TXT 8 -2 16477 0
Cg a19.500000,82.000000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Enter pressures and height}}
}
.EQN 5 -1 16418 0
{0:P1}NAME:101
.EQN 0 27 16426 0
{0:P2}NAME:20
.EQN 3 -27 16445 0
{0:Z2}NAME:12400
.TXT 5 0 16478 0
Cg a41.250000,83.000000,61
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Enter temperature and relative 
humidity for the four cases}}
}
.EQN 3 1 16437 0
{0:n}NAME:1;4
.EQN 10 -1 16421 0
{0:C1}NAME:({4,1}ö28.0ö27.0ö28.0ö27.0)
.EQN 0 32 16427 0
{0:UP1}NAME:({4,1}ö80ö85ö75ö80)
.TXT 9 -31 16479 0
Cg a36.125000,82.000000,53
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Convert temperature to K, and Humidity
 to fraction}}
}
.EQN 6 0 16422 0
{0:T1}NAME:(({0:C1}NAME+{0:T0}NAME)){49}
.EQN 8 2 16428 0
{0:U1}NAME:(({0:UP1}NAME)/(100)){49}
.TXT 5 -1 16480 0
Cg a16.250000,81.000000,25
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate Mixing Ratio}}
}
.EQN 5 2 16431 0
{0:M1}NAME:(({0:fMVS}NAME({0:P1}NAME,{0:T1}NAME)*{0:U1}NAME)){49}
.TXT 6 -2 16482 0
Cg a36.625000,81.000000,52
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Make mixing ratio in case 2 the
 same as in case 1}}
}
.EQN 5 3 16433 0
({0:M1}NAME)[(2):({0:M1}NAME)[(1)
.EQN 6 0 16434 0
({0:U1}NAME)[(2):(({0:M1}NAME)[(2))/({0:fMVS}NAME({0:P1}NAME,({0:T1}NAME)[(2)))
.TXT 7 -3 16483 0
Cg a22.875000,81.000000,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate Enthalpy and Entropy}}
}
.EQN 7 2 16441 0
{0:H1}NAME:({0:fHT3}NAME({0:P1}NAME,{0:T1}NAME,{0:M1}NAME)){49}
.EQN 6 0 16442 0
{0:S1}NAME:({0:fST3}NAME({0:P1}NAME,{0:T1}NAME,{0:M1}NAME)){49}
.TXT 5 -1 16484 0
Cg a32.000000,80.000000,48
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Display State 1 conditions for 
the four cases}}
}
.EQN 5 -1 16436 0
({0:C1}NAME)[({0:n}NAME){150098}=
.EQN 0 6 16438 0
({0:T1}NAME)[({0:n}NAME){19027}=
.EQN 0 10 16439 0
({0:U1}NAME)[({0:n}NAME)*100{150098}=
.EQN 0 9 16440 0
({0:M1}NAME)[({0:n}NAME)*1000{19027}=
.EQN 0 11 16443 0
({0:H1}NAME)[({0:n}NAME)=
.EQN 0 10 16444 0
({0:S1}NAME)[({0:n}NAME){19026}=
.TXT 17 -46 16487 0
Cg a20.125000,81.000000,31
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate state 2 conditions}}
}
.TXT 3 0 16485 0
Cg a41.625000,81.000000,60
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate isentropic expansion 
temperature using a solver}}
}
.EQN 6 0 16447 0
{0:T2}NAME:({0:fTSOL}NAME({0:S1}NAME,{0:P2}NAME,{0:M1}NAME)){49}
.TXT 4 1 16488 0
Cg a13.625000,80.000000,21
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate Enthalpy}}
}
.EQN 5 0 16449 0
{0:H2}NAME:({0:fHT3}NAME({0:P2}NAME,{0:T2}NAME,{0:M1}NAME)){49}
.TXT 4 0 16489 0
Cg a17.125000,80.000000,26
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate Static Energy}}
}
.EQN 5 0 16451 0
{0:\m2}NAME:(({0:H2}NAME+{0:G}NAME*{0:Z2}NAME*(1+{0:M1}NAME))){49}
.TXT 5 -3 16490 0
Cg a28.625000,83.000000,40
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate the work of buoyance 
(CAPE)}}
}
.EQN 5 3 16453 0
{0:W12}NAME:(({0:H1}NAME-{0:\m2}NAME)){49}
.TXT 4 -3 16492 0
Cg a40.125000,83.000000,54
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate Base Pressure and Base
 Pressure Reduction}}
}
.EQN 10 2 16473 0
{0:PX}NAME:(({0:P1}NAME*((1-({0:W12}NAME)/({0:fCPA}NAME({0:M1}NAME)*{0:T1}NAME)))^((1)/({0:fKA}NAME({0:M1}NAME))))){49}
.EQN 9 0 16474 0
{0:\DP}NAME:(({0:P1}NAME-{0:PX}NAME)){49}
.EQN 7 0 16448 0
({0:T2}NAME)[({0:n}NAME){19026}=
.EQN 0 9 16450 0
({0:H2}NAME)[({0:n}NAME)=
.EQN 0 9 16452 0
({0:\m2}NAME)[({0:n}NAME)=
.EQN 0 8 16454 0
({0:W12}NAME)[({0:n}NAME)=
.EQN 0 12 16475 0
({0:PX}NAME)[({0:n}NAME){19027}=
.EQN 0 13 16476 0
({0:\DP}NAME)[({0:n}NAME){19026}=
.TXT 17 -52 16494 0
Cg a34.750000,82.000000,48
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate work increment beyond
 the base case}}
}
.EQN 5 1 16456 0
{0:\DW2}NAME:({0:W12}NAME)[(2)-({0:W12}NAME)[(1)
.EQN 0 34 16461 0
{0:\DW2}NAME={0}?_n_u_l_l_
.EQN 5 -34 16462 0
{0:\DW3}NAME:({0:W12}NAME)[(3)-({0:W12}NAME)[(1)
.EQN 0 34 16463 0
{0:\DW3}NAME={0}?_n_u_l_l_
.EQN 5 -34 16464 0
{0:\DW4}NAME:({0:W12}NAME)[(4)-({0:W12}NAME)[(1)
.EQN 0 34 16465 0
{0:\DW4}NAME={0}?_n_u_l_l_
.TXT 5 -35 16502 0
Cg a33.000000,82.000000,49
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
}
{\plain {Calculate the effeciency of the
 heat increment}}
}
.EQN 7 1 16495 0
{0:EFF2}NAME:({0:\DW2}NAME*100)/(({0:H1}NAME)[(2)-({0:H1}NAME)[(1))
.EQN 0 35 16496 0
{0:EFF2}NAME={19025}?_n_u_l_l_
.EQN 8 -34 16497 0
{0:EFF3}NAME:({0:\DW3}NAME*100)/(({0:H1}NAME)[(3)-({0:H1}NAME)[(1))
.EQN 0 35 16498 0
{0:EFF3}NAME={19025}?_n_u_l_l_
.EQN 7 -35 16499 0
{0:EFF4}NAME:({0:\DW4}NAME*100)/(({0:H1}NAME)[(4)-({0:H1}NAME)[(1))
.EQN 0 35 16500 0
{0:EFF4}NAME={19025}?_n_u_l_l_