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

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

FlowSheet Heater_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
	heater_1 as heater;

	SET
	heater_1.Kvalues = "no";

	SPECIFY
	heater_1.Outlet.T = 330 * 'K';
	heater_1.Outlet.P = 2.5 * 'atm';

	INITIAL

	GUESS

	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.F = 10 * 'kmol/h';
	source_1.T_Cdeg = 29.85 * 'K';
	source_1.P = 3 * 'atm';

	INITIAL

	GUESS

	DEVICES
	sink_1 as sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	energy_source_1 as energy_source;

	SET

	SPECIFY

	INITIAL

	GUESS

	CONNECTIONS
	heater_1.Outlet to sink_1.Inlet;
	energy_source_1.OutletQ to heater_1.Heat;
	source_1.Outlet to heater_1.Inlet;

	OPTIONS
	Dynamic = false;
	Integration = "original";
	NLASolver(
		File = "sundials",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		MaxIterations = 100
	);
	DAESolver(
		File = "",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		EventAccuracy = 1e-2
	);
end