Changeset 791 for branches/gui


Ignore:
Timestamp:
Jul 13, 2009, 6:34:28 PM (13 years ago)
Author:
gerson bicca
Message:

updated (fixed bug)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gui/eml/stage_separators/column.mso

    r787 r791  
    821821";
    822822
    823 PARAMETERS
    824         FeedTrayIndex(NumberOfTrays)            as Integer                      (Brief="Feed Tray Index", Default=0,Hidden=true);
    825 
    826823SET
    827824        NumberOfFeeds = 1;
    828         FeedTrayIndex(FeedTrayLocation(1)) =1;
    829825
    830826VARIABLES
     
    836832# Equating Feed Tray Variables to Trays Variables
    837833#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    838 "Feed Tray Inlet Flow" 
    839         FeedTray.F*FeedTrayIndex= TRAYS.Inlet.F;
    840 
    841 "Feed Tray Inlet Temperature"
    842         FeedTray.T = TRAYS.Inlet.T;
    843 
    844 "Feed Tray Inlet Pressure"
    845         FeedTray.P = TRAYS.Inlet.P;
    846 
    847 "Feed Tray Inlet Composition"
    848         FeedTray.z = TRAYS.Inlet.z;
    849 
    850 "Feed Tray Inlet Vapour Fraction"
    851         FeedTray.v = TRAYS.Inlet.v;
    852 
    853 "Feed Tray Inlet Enthalpy"
    854         FeedTray.h = TRAYS.Inlet.h;
     834for i in 1:NumberOfTrays do
     835
     836if   i equal FeedTrayLocation(1) then   
     837
     838"FeedTrayTop Inlet Flow"       
     839        FeedTray.F= TRAYS(i).Inlet.F;
     840
     841"FeedTrayTop Inlet Temperature"
     842        FeedTray.T = TRAYS(i).Inlet.T;
     843
     844"FeedTrayTop Inlet Pressure"
     845        FeedTray.P = TRAYS(i).Inlet.P;
     846
     847"FeedTrayTop Inlet Composition"
     848        FeedTray.z = TRAYS(i).Inlet.z;
     849
     850"FeedTrayTop Inlet Vapour Fraction"
     851        FeedTray.v = TRAYS(i).Inlet.v;
     852
     853"FeedTrayTop Inlet Enthalpy"
     854        FeedTray.h = TRAYS(i).Inlet.h;
     855
     856else
     857
     858"Inlet Tray - Flow Sealed"     
     859        0*'mol/h'= TRAYS(i).Inlet.F;
     860
     861"Inlet Tray -  Temperature"
     862        FeedTray.T = TRAYS(i).Inlet.T;
     863
     864"Inlet Tray -  Pressure"
     865        FeedTray.P = TRAYS(i).Inlet.P;
     866
     867"Inlet Tray -  Composition"
     868        FeedTray.z = TRAYS(i).Inlet.z;
     869
     870"Inlet Tray -  Vapour Fraction"
     871        FeedTray.v = TRAYS(i).Inlet.v;
     872
     873"Inlet Tray -  Enthalpy"
     874        FeedTray.h = TRAYS(i).Inlet.h;
     875
     876end
     877
     878end
    855879
    856880end
Note: See TracChangeset for help on using the changeset viewer.