PROG	AQUA					urs:1
	HEAD						
	CTRL	FACE	POS
	UNIT	5	DIG	3	SET	OUT	
	ECHO 	MAT	YES				
	ECHO 	SECT 	EXTR				
	NORM	GB 50010-2010					
	CONC	NO	TYPE	FCN	EC	GAM	
		1	C	50	3.45E4[MPa]	-	
		2	C	50	3.45E4[MPa]	0	
	STEE	NO	TYPE	CLAS			
		3	Y	1860S			
							
		TVAR	H	2.0[m]	
		TVAR	Bt	2.4[m]	
		TVAR	Ttf	0.16[m]	
		TVAR	Be	0.5[m]	
		TVAR	Bw	0.2[m]
		TVAR	Bwm	0.2[m]	
		TVAR	T1	0.25[m]		
		TVAR	B1	0.6[m]	
		TVAR	H2	0.2[m]	
		TVAR	B2	0.14[m]	
		TVAR	Bb	0.48[m]	
		TVAR	Tbf	0.2[m]	

	SECT	NO	MNO	TITL			
		1	1	T_Beam	    		
							
		POLY	TYPE	MNO			
			OPZ	1			
		VERT	NO	Y	Z	REFP	REFD
			10	0	0		
			20	'=#Bt/2'	0		
			30	0	'=#Ttf'	20	
			40	'=-#Be'	0	30	
			50	'=#Bw/2'	'=#T1-(#Bw-#Bwm)/2*(#T1-#Ttf)/#B1'		
			60	'=#Bw/2'	'=#H-#Tbf-(#H2-(#Bw-#Bwm)/2*#H2/#B2)'		
			70	'=#Bb/2'	'=#H-#Tbf'		
			80	0	'=#Tbf'	70	
							

							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
							
	END