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

using "streams";
using "heat_exchangers/heater";

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

	DEVICES
	source_1 as source;

	SET
	source_1.ValidPhases = "Vapour-Liquid";

	SPECIFY
	source_1.Composition(1) = 0.5;
	source_1.Composition(2) = 0.3;
	source_1.Composition(3) = 0.2;
	source_1.Fw = 749.552 * 'kg/h';
	source_1.T_Cdeg = 65.85 * 'K';
	source_1.P = 3 * 'atm';

	INITIAL

	GUESS

	DEVICES
	heater_1 as heater;

	SET
	heater_1.Kvalues = "no";

	SPECIFY
	heater_1.Outlet.P = 1 * 'atm';

	INITIAL

	GUESS

	DEVICES
	simple_source_1 as simple_source;

	SET

	SPECIFY
	simple_source_1.MolarComposition(1) = 1;
	simple_source_1.MolarComposition(2) = 0;
	simple_source_1.MolarComposition(3) = 0;
	simple_source_1.F = 1 * 'kmol/h';
	simple_source_1.T = 300 * 'K';
	simple_source_1.P = 1 * 'atm';

	INITIAL

	GUESS

	DEVICES
	simple_sink_1 as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	cooler_1 as cooler;

	SET
	cooler_1.Kvalues = "no";

	SPECIFY
	cooler_1.Pdrop = 15 * 'kPa';
	cooler_1.Outlet.T = 303 * 'K';

	INITIAL

	GUESS

	DEVICES
	simple_sink_1_1 as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	CONNECTIONS
	simple_source_1.Outlet to heater_1.Inlet;
	heater_1.Outlet to simple_sink_1.Inlet;
	source_1.Outlet to cooler_1.Inlet;
	cooler_1.Heat to heater_1.Heat;
	cooler_1.Outlet to simple_sink_1_1.Inlet;

	OPTIONS
	Dynamic = false;
	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