CAAD és építészinformatika (BMEEPAG0202)

Parametrikus modellezés (GDL)

 Kiss Zsolt 
 egyetemi adjunktus 

Zárthelyi

12. gyakorlat

Zárthelyi feladat (A) csoport

ív felosztása: n

ív magassága: h

tokvastagság: tv

tokszélesség: tv

tok anyaga: mt

üveg anyaga: mu

! -------------------------------------------------
!              előkészítő számítás
! -------------------------------------------------
IF h > a/2 THEN h=a/2   
r= (a^2/4 + h^2)/2/h     ! az ív sugara
alfa = ASN(a/2/r)        ! az ív középponti szöge
tsy=ts/tan((90+alfa)/2)  ! az üveg iv kezdőpont y 
                         !     koordinata eltérés 
! -------------------------------------------------
!                    falluk
! -------------------------------------------------
WALLHOLE 6,1,
	-a/2, 0,    15,
	-a/2, b-h, 15,
	 0,   b-r, 900,
	 a/2, b-h, 3015,
	 a/2, b-h, 15,
	 a/2, 0,    15
! -------------------------------------------------
!                tok veremfeltöltés
! -------------------------------------------------
PUT    1, 0, 0,0  
PUT   -a/2, 0, 0, 0
FOR i=0 TO n 
   PUT r*COS(90+alfa-2*alfa/n*i) 
   PUT r*SIN(90+alfa-2*alfa/n*i) + b-r
   PUT 0, 0
NEXT i
PUT      a/2, 0,0,0
PUT     -a/2, 0, 0,0  
PUT     -a/2, 1, 0,0  
! -------------------------------------------------
!                        tok
! -------------------------------------------------
MATERIAL mt
TUBE 4, NSP/4,  1+2+16+32,
	   0, 0,     0,
	  -ts,  0,     0,
	  -ts,  tv,   0,
	   0,   tv,   0,
	  USE(NSP)

ADDZ (tv-0.02)/2
! -------------------------------------------------
!                      üvegezés 
! -------------------------------------------------
CPRISM_ mu,mu,mu,6,0.02,
	-a/2+ts,   ts,   15,
	-a/2+ts, b-h-tsy,   15,
	 0,      b-r,  915,
	 a/2-ts, b-h-tsy, 3015,
	 a/2-ts,   ts,   15,
	-a/2+ts,   ts,   -1