#*
 * Exercise 1: Fluid book - Hernan D. Alvarez
 * Example 6.2
 * 
 * Jenny L . Diaz - 27/08/2014
 *#

using "ModelList";


FlowSheet Exercise1V2
	
	DEVICES
	elbow_90 		as 	ElbowModel90;
	elbow_901 		as 	ElbowModel90;
	Line_PipeE 		as 	StraightLineEqual;
	Line_PipeE1 	as 	StraightLineEqual;
	Line_PipeE2 	as 	StraightLineEqual;
	Line_PipeE3 	as 	StraightLineEqual;
	Line_PipeE4 	as 	StraightLineEqual;
	Line_PipeE5 	as 	StraightLineEqual;
	Line_PipeE6 	as 	StraightLineEqual;
	Line_PipeE7 	as 	StraightLineEqual;
	Line_PipeE8 	as 	StraightLineEqual;
	Line_PipeE9 	as 	StraightLineEqual;
	Line_PipeE10 	as 	StraightLineEqual;
	Line_PipeE11 	as 	StraightLineEqual;
	Line_PipeE12 	as 	StraightLineEqual;
	FlowTeeThrough 	as 	TeeModelThrough;
	FlowTeeThrough1 as 	TeeModelThrough;
	FlowTeeThrough2 as 	TeeModelThrough;
	FlowTeeThrough3 as 	TeeModelThrough;
	FlowTeeThrough4 as 	TeeModelThrough;
	FlowTeeThrough5 as 	TeeModelThrough;
	FlowValveGate 	as 	ValveModelGate;
	Pump_Flow 		as 	ModelPump;
	OutTank 		as 	Tank1LModel;
	FlowSudden_Change  as SuddenChange;
	FlowValveCheck as ValveModelCheck;
	FlowValveGlobe as ValveModelGlobe;
	
	
	CONNECTIONS	
	OutTank.FlowTank_outlet			to  Line_PipeE.FlowLine_inlet;
	Line_PipeE.FlowLine_outlet		to	FlowValveGate.FlowGate_inlet;
	FlowValveGate.FlowGate_outlet	to	Line_PipeE1.FlowLine_inlet;
	Line_PipeE1.FlowLine_outlet		to	FlowTeeThrough.FlowTee_inlet;
	FlowTeeThrough.FlowTee_outlet	to	Line_PipeE2.FlowLine_inlet;	
	Line_PipeE2.FlowLine_outlet		to	Pump_Flow.FlowPump_inlet;
	Pump_Flow.FlowPump_outlet		to	FlowSudden_Change.FlowSudden_inlet;
	FlowSudden_Change.FlowSudden_outlet	to	Line_PipeE3.FlowLine_inlet;
	Line_PipeE3.FlowLine_outlet		to	FlowTeeThrough1.FlowTee_inlet;
	FlowTeeThrough1.FlowTee_outlet	to	Line_PipeE4.FlowLine_inlet;
	Line_PipeE4.FlowLine_outlet		to	elbow_90.FlowElbow_inlet;
	elbow_90.FlowElbow_outlet		to	Line_PipeE5.FlowLine_inlet;
	Line_PipeE5.FlowLine_outlet		to	FlowTeeThrough2.FlowTee_inlet;
	FlowTeeThrough2.FlowTee_outlet	to	Line_PipeE6.FlowLine_inlet;
	Line_PipeE6.FlowLine_outlet		to	FlowValveCheck.FlowCheck_inlet;
	FlowValveCheck.FlowCheck_outlet	to	Line_PipeE7.FlowLine_inlet;
	Line_PipeE7.FlowLine_outlet		to	FlowTeeThrough3.FlowTee_inlet;
	FlowTeeThrough3.FlowTee_outlet	to	Line_PipeE8.FlowLine_inlet;
	Line_PipeE8.FlowLine_outlet		to	elbow_901.FlowElbow_inlet;
	elbow_901.FlowElbow_outlet		to	Line_PipeE9.FlowLine_inlet;
	Line_PipeE9.FlowLine_outlet		to	FlowTeeThrough4.FlowTee_inlet;
	FlowTeeThrough4.FlowTee_outlet	to	Line_PipeE10.FlowLine_inlet;
	Line_PipeE10.FlowLine_outlet	to	FlowValveGlobe.FlowGlobe_inlet;
	FlowValveGlobe.FlowGlobe_outlet    to	Line_PipeE11.FlowLine_inlet;
	Line_PipeE11.FlowLine_outlet	to	FlowTeeThrough5.FlowTee_inlet;
	FlowTeeThrough5.FlowTee_outlet	to	Line_PipeE12.FlowLine_inlet;

	
	SET
	OutTank.Dtank 			=1.2*'m';
	OutTank.Pi 				=3.1416;
	OutTank.g 				=9.8*'m/s^2';
	OutTank.DLine			=0.03246*'m'; 
	OutTank.H_Tank			=1.3*'m'; 
	Line_PipeE.Epsilon	 	=0.000045*'m';
	Line_PipeE.D_Line		=0.03246*'m';
	Line_PipeE.L			=0.5*'m';
	Line_PipeE.Z1			=0.5*'m';
	Line_PipeE.Z2			=0.5*'m';
	FlowValveGate.Pi		=3.1416;
	FlowValveGate.Beta 		=0.9;
	FlowValveGate.Aperture 	=100;	
	Line_PipeE1.Epsilon	 	=0.000045*'m';
	Line_PipeE1.D_Line		=0.03246*'m';
	Line_PipeE1.L			=0.5*'m';
	Line_PipeE1.Z1			=0.5*'m';
	Line_PipeE1.Z2			=0.5*'m';
	FlowTeeThrough.Pi       =3.1416;
	FlowTeeThrough.Screwed  =1;
	FlowTeeThrough.Welded   =0;
	Line_PipeE2.Epsilon	 	=0.000045*'m';
	Line_PipeE2.D_Line		=0.03246*'m';
	Line_PipeE2.L			=0.1*'m';
	Line_PipeE2.Z1			=0.5*'m';
	Line_PipeE2.Z2			=0.5*'m';
	FlowSudden_Change.D2_out	=0.01884*'m'; 
	FlowSudden_Change.D1_in 	=0.03246*'m';
	FlowSudden_Change.Z1 		=0.5*'m';
	FlowSudden_Change.Z2 		=0.5*'m';
	Line_PipeE3.Epsilon	 	=0.000045*'m';
	Line_PipeE3.D_Line		=0.01884*'m';
	Line_PipeE3.L			=0.1*'m';
	Line_PipeE3.Z1			=0.5*'m';
	Line_PipeE3.Z2			=0.5*'m';
	FlowTeeThrough1.Pi 		= 3.1416;
	FlowTeeThrough1.Screwed =1;
	FlowTeeThrough1.Welded 	= 0;
	Line_PipeE4.Epsilon	 	=0.000045*'m';
	Line_PipeE4.D_Line		=0.01884*'m';
	Line_PipeE4.L			=0.5*'m';
	Line_PipeE4.Z1			=0.5*'m';
	Line_PipeE4.Z2			=0.5*'m';
	elbow_90.Pi 			=3.1416;
	elbow_90.Standard 		=1;
	elbow_90.Screwed 		=1;
	elbow_90.Long_R 		=0;
	elbow_90.Weld 			=0;
	Line_PipeE5.Epsilon	 	=0.000045*'m';
	Line_PipeE5.D_Line		=0.01884*'m';
	Line_PipeE5.L			=1.0*'m';
	Line_PipeE5.Z1			=0.5*'m';
	Line_PipeE5.Z2			=1.5*'m';
	FlowTeeThrough2.Pi 		= 3.1416;
	FlowTeeThrough2.Screwed = 1;
	FlowTeeThrough2.Welded	= 0;
	Line_PipeE6.Epsilon	 	=0.000045*'m';
	Line_PipeE6.D_Line		=0.01884*'m';
	Line_PipeE6.L			=0.1*'m';
	Line_PipeE6.Z1			=1.5*'m';
	Line_PipeE6.Z2			=1.6*'m';
	FlowValveCheck.Pi 		=3.1416;
	FlowValveCheck.Swing	=1;
	FlowValveCheck.Lift 	=0;
	Line_PipeE7.Epsilon	 	=0.000045*'m';
	Line_PipeE7.D_Line		=0.01884*'m';
	Line_PipeE7.L			=0.1*'m';
	Line_PipeE7.Z1			=1.6*'m';
	Line_PipeE7.Z2			=1.7*'m';
	FlowTeeThrough3.Pi 		= 3.1416;
	FlowTeeThrough3.Screwed = 1;
	FlowTeeThrough3.Welded	= 0;
	Line_PipeE8.Epsilon	 	=0.000045*'m';
	Line_PipeE8.D_Line		=0.01884*'m';
	Line_PipeE8.L			=2.7*'m';
	Line_PipeE8.Z1			=1.7*'m';
	Line_PipeE8.Z2			=4.4*'m';
	elbow_901.Pi 			=3.1416;
	elbow_901.Standard 		=1;
	elbow_901.Screwed 		=1;
	elbow_901.Long_R 		=0;
	elbow_901.Weld 			=0;
	Line_PipeE9.Epsilon	 	=0.000045*'m';
	Line_PipeE9.D_Line		=0.01884*'m';
	Line_PipeE9.L			=6.0*'m';
	Line_PipeE9.Z1			=4.4*'m';
	Line_PipeE9.Z2			=4.4*'m';
	FlowTeeThrough4.Pi		= 3.1416;
	FlowTeeThrough4.Screwed = 1;
	FlowTeeThrough4.Welded 	= 0;
	Line_PipeE10.Epsilon	=0.000045*'m';
	Line_PipeE10.D_Line		=0.01884*'m';
	Line_PipeE10.L			=0.1*'m';
	Line_PipeE10.Z1			=4.4*'m';
	Line_PipeE10.Z2			=4.4*'m';
	FlowValveGlobe.Pi 		=3.1416;
	FlowValveGlobe.Standard =1;
	FlowValveGlobe.Butterfly =0;
	FlowValveGlobe.Y_type 	=0;
	FlowValveGlobe.Aperture =50;
	Line_PipeE11.Epsilon	=0.000045*'m';
	Line_PipeE11.D_Line		=0.01884*'m';
	Line_PipeE11.L			=0.1*'m';
	Line_PipeE11.Z1			=4.4*'m';
	Line_PipeE11.Z2			=4.4*'m';
	FlowTeeThrough5.Pi		= 3.1416;
	FlowTeeThrough5.Screwed = 1;
	FlowTeeThrough5.Welded 	= 0;
	Line_PipeE12.Epsilon	=0.000045*'m';
	Line_PipeE12.D_Line		=0.01884*'m';
	Line_PipeE12.L			=5.2*'m';
	Line_PipeE12.Z1			=4.4*'m';
	Line_PipeE12.Z2			=4.4*'m';
	Pump_Flow.Pump_Eff 		=0.65;
	Pump_Flow.Pump_Pow 		=1.12*'kW';
	
	
	SPECIFY
	OutTank.P1_in 	= 0.84*'atm';
	OutTank.incoming = 0;
	OutTank.straight = 1;
	OutTank.Rho_Sln = 935*'kg/m^3';
	OutTank.M_point = 1.028*'kg/s';
	OutTank.Mu_Sln 	= 1.95*'cP';	
	OutTank.Z2  	=0.0*'m';
	OutTank.Z1		=1.3*'m';
	elbow_90.ID		= 0.75; #in
	elbow_901.ID	= 0.75; #in
	FlowTeeThrough.ID  = 1.25; #in
	FlowTeeThrough1.ID = 0.75; #in
	FlowTeeThrough2.ID = 0.75; #in
	FlowTeeThrough3.ID = 0.75; #in
	FlowTeeThrough4.ID = 0.75; #in
	FlowTeeThrough5.ID = 0.75; #in
	FlowValveGate.ID	= 1.25; #in
	FlowValveGlobe.ID	= 0.75; #in
	FlowValveCheck.ID	= 0.75; #in
	
	
	OPTIONS	
	TimeUnit='s';
	TimeStart=0;
	TimeStep=10;
	TimeEnd=6000;
	
end