REVO5500 Untitled 1@e9Steam checker cREVGeometryCachestackID1016 cREVGeneralscripteditorvscroll0breakpointconditionsscripteditorselection0 breakpointsbreakpointstatesstackfileversion5.5AlreadyHiddenfalse @:cREVGeometryCacheIDs13865810406591006138658108688210081386583261067101613865810969121012138658109119210101386580975021100413865821113791014cREVGeometrycachetotal7order  Temperature_lab fdz cREVTable currentview

Temperature (°C):

 cREVGeneral revUniqueID 1386580975021 Temperature (C):  Label Field dx cREVTable currentviewPressure (bar): cREVGeneral revUniqueID 1386581040659 Pressure (bar):  temperaturai`zed cREVGeneral revUniqueID 1386581086882  105  pressionei`zd cREVGeneral revUniqueID 1386581091192  0.5Checkp'function clacla temperatura put 6.11 * (10 ^ ( ( 7.5 * temperatura) / (237.7 + temperatura))) into pressione_vap #result is in millibar, so we need to change to bar put pressione_vap / 1000 into pressione_vap put round(pressione_vap,2) into pressione_vap return pressione_vap end clacla on mouseUp put the text of field temperatura into temp put clacla(temp) into pressione_vap put the text of field pressione into pressione put "The vapor pressure is " & pressione_vap & " bar" & return into mytext if pressione < pressione_vap then put round(24 * sqrt( pressione / 2.5 ) ,2) into flow put "The fluid is STEAM, flow is " & flow & " kg/h" & return after mytext else repeat while ( pressione >= pressione_vap) add 1 to temp put clacla(temp) into pressione_vap end repeat put "The fluid is WATER, in order to obtain steam you need to raise temperature up to " & temp & " C" & return after mytext end if set the text of field "risultato" to mytext end mouseUp zR cREVGeneralscripteditorvscroll190 revUniqueID 1386581096912  risultato D@x cREVGeneral revUniqueID 1386582111379 The vapor pressure is 1.21 bar 'The fluid is STEAM, flow is 10.73 kg/h  Label Field |X~ cREVTable currentviewPut your fluid data below and the program will check if it's steam or water. If it's steam, it calculates also fluid flow. If it's water, it calculates the tempurarture needed to obtain steam. Calculus are performed using Clausiuis-Clapeyron equations.  cREVGeneral revUniqueID 1386583261067 NPut your fluid data below and the program will check if it's steam or water. /If it's steam, it calculates also fluid flow. FIf it's water, it calculates the tempurarture needed to obtain steam. revOnline | RunRev