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

tokvastagság: tv

tokszélesség: tv

tok anyaga: mt

üveg anyaga: mu

h = SQR(2)/2*a
! -------------------------------------------------
!                    falluk
! -------------------------------------------------
WALLHOLE 9,1,
    -a/2, 0,    15,
    -a/2, b-h, 15,
     0,   b-h, 900,
    -h/2, b-h/2, 3015,
     0,b,15,
     h/2, b-h/2, 15,
     0,    b-h,   900,
     a/2,  b-h, 3015,
     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 a/2*COS(180-45/n*i) 
   PUT a/2*SIN(180-45/n*i) + b-h
   PUT 0, 0
NEXT i
PUT 0,b,0,0
FOR i=0 TO n 
   PUT a/2*COS(45-45/n*i)
   PUT a/2*SIN(45-45/n*i) + b-h
   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 5, NSP/4, 0,
       0,   0, 0,
      -ts,  0, 0,
      -ts, tv, 0,
      -0,  tv, 0,
       0,   0, 0,
       GET(NSP)
! -------------------------------------------------
!                      üvegezés 
! -------------------------------------------------
ADDZ (tv-.02)/2
CPRISM_ mu,mu,mu,10,0.02,
    -a/2+ts, ts,      15,
    -a/2+ts, b-h,  15,
     0,      b-h,  915,
    -(a/2-ts)/SQR(2), b-h+(a/2-ts)/SQR(2), 3015,
     0,     b-ts*SQR(2),  15,
     (a/2-ts)/SQR(2), b-h+(a/2-ts)/SQR(2), 15,
     0,    b-h,  915,
     a/2-ts, b-h,  3015,
     a/2-ts,   ts,   15,
    -a/2+ts,   ts,   -1