#*----------------------------------------------
* FlowSheet generated automaticaly by EMSO-GUI
*----------------------------------------------*#

using "streams";
using "stage_separators/column";

FlowSheet Column_Reboiled_Kettle_Diagram
	PARAMETERS
	PP as Plugin(Brief="Physical Properties",
		Type="PP",
		Components = ["isobutane","n-pentane","propylene","benzene","isobutene"],
		LiquidModel = "PR",
		VapourModel = "PR"
	);
	NComp as Integer;
	SET
	NComp = PP.NumberOfComponents;

	DEVICES
	feed as simple_source;

	SET

	SPECIFY
	feed.MolarComposition(1) = 0.20;
	feed.MolarComposition(2) = 0.20;
	feed.MolarComposition(3) = 0.20;
	feed.MolarComposition(4) = 0.20;
	feed.MolarComposition(5) = 0.20;
	feed.F = 113.4 * 'kmol/h';
	feed.T = 291 * 'K';
	feed.P = 168.30 * 'kPa';

	INITIAL

	GUESS

	DEVICES
	vapour_Outlet as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	liquid_inlet as source;

	SET
	liquid_inlet.CompositionBasis = "Molar";
	liquid_inlet.ValidPhases = "Liquid-Only";

	SPECIFY
	liquid_inlet.Composition(1) = 0.20;
	liquid_inlet.Composition(2) = 0.20;
	liquid_inlet.Composition(3) = 0.20;
	liquid_inlet.Composition(4) = 0.20;
	liquid_inlet.Composition(5) = 0.20;
	liquid_inlet.F = 68 * 'kmol/h';
	liquid_inlet.T = 281.75 * 'K';
	liquid_inlet.P = 150 * 'kPa';

	INITIAL

	GUESS

	DEVICES
	vapour_drawoff as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	liquid_drawoff as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	column_Reboiled_Stripping_kettle as Reboiled_Stripping_kettle;

	SET
	column_Reboiled_Stripping_kettle.NumberOfTrays = 8;
	column_Reboiled_Stripping_kettle.FeedTrayLocation = 5;
	column_Reboiled_Stripping_kettle.VolumeOfTray = 4 * 'ft^3';
	column_Reboiled_Stripping_kettle.HeatSupply = 0 * 'kW';
	column_Reboiled_Stripping_kettle.PlateArea = 3.94 * 'ft^2';
	column_Reboiled_Stripping_kettle.HolesArea = 0.394 * 'ft^2';
	column_Reboiled_Stripping_kettle.WeirLength = 20.94 * 'in';
	column_Reboiled_Stripping_kettle.WeirHeight = 0.125 * 'ft';
	column_Reboiled_Stripping_kettle.beta = 0.6;
	column_Reboiled_Stripping_kettle.alfa = 4;
	column_Reboiled_Stripping_kettle.REBOILER.Across = 1 * 'm^2';
	column_Reboiled_Stripping_kettle.REBOILER.V = 2 * 'm^3';

	SPECIFY
	column_Reboiled_Stripping_kettle.VapourDrawOffFlow = 0 * 'kmol/h';
	column_Reboiled_Stripping_kettle.LiquidDrawOffFlow = 0 * 'kmol/h';
	column_Reboiled_Stripping_kettle.MurphreeEff = 1;
	column_Reboiled_Stripping_kettle.REBOILER.OutletLiquid.F = 28.4 * 'kmol/h';
	column_Reboiled_Stripping_kettle.VapourOutlet.F = 5 * 'kmol/h';

	INITIAL

	GUESS

	DEVICES
	bottom_product as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	Heat_to_Reboiler as energy_source;

	SET

	SPECIFY
	Heat_to_Reboiler.OutletQ = 1047.22 * 'kW';

	INITIAL

	GUESS

	CONNECTIONS
	column_Reboiled_Stripping_kettle.VapourOutlet to vapour_Outlet.Inlet;
	liquid_inlet.Outlet to column_Reboiled_Stripping_kettle.LiquidInlet;
	feed.Outlet to column_Reboiled_Stripping_kettle.FeedTray;
	column_Reboiled_Stripping_kettle.VapourDrawOff to vapour_drawoff.Inlet;
	column_Reboiled_Stripping_kettle.LiquidDrawOff to liquid_drawoff.Inlet;
	column_Reboiled_Stripping_kettle.BottomProduct to bottom_product.Inlet;
	Heat_to_Reboiler.OutletQ to column_Reboiled_Stripping_kettle.HeatToReboiler;

	OPTIONS
	Dynamic = true;
	TimeStep = 0.1;
	TimeEnd = 10;
	TimeUnit = 's';
	Integration = "original";
	NLASolver(
		File = "sundials",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		MaxIterations = 100
	);
	DAESolver(
		File = "sundials",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		EventAccuracy = 1e-2
	);
end