sexta-feira, 10 de agosto de 2012

Perfis I laminados

As propriedades geométricas dos perfis tipo I laminado foram revisadas, passando a considerar o setores circulares conforme indicado na figura abaixo. Na sequencia é apresentado o procedimento de cálculo em linguagem Pascal.



PROCEDURE pgw (d,bf,tf,tw,da: real);
var h,r,ixr,iyr:double;

BEGIN

  d := d / 10;
 bf := bf / 10;
 tf := tf / 10;
 tw := tw / 10;
 da := da / 10;
 h:= d-(2*tf);
 r:= (h-da)/2;


area:= 2 * tf * bf + tw*h + ((power(r,2) - (PI * power(r,2))/4)*4);
massa:= area * 0.785;
u := ((PI * r * 2) + 2 * (da+bf+(tf*2)+(bf-(tw+r+r))))/100;

ixr:=   ((power (r,4) / 3) - (PI * (power(r,4)) / 8)) + (power(r,2) - (PI * (power(r,2)) / 4)) * power(da/2,2);
iyr:=   ((power (r,4) / 3) - (PI * (power(r,4)) / 8)) + (power(r,2) - (PI * (power(r,2)) / 4)) * power(tw/2,2);


Ix:= (((tw*power(h,3))+bf*(power(d,3)-power(h,3)))/12) + (ixr * 4);
Iy:= (((2*tf*power(bf,3))+ (power(tw,3)*h))/12) + (iyr * 4);

It:= ((2*bf*power(tf,3)) + (power(tw,3)*(d-tf)))/3;

Cw:= ((power(bf,3) * tf /12) * (power((d-tf),2))/2);

rx := Sqrt(Ix / area);
ry := Sqrt(Iy / area);
ro := Sqrt(power(rx,2) + power(ry,2));
rt := sqrt(Iy / ( 2 * (tf*bf+tw*(h/6))));
Wx := Ix / (d / 2);
Wy := Iy / (bf / 2);

Zx:= ( bf * (power(d,2)-power(h,2)) + (tw * power(h,2)))/4;
Zy:= ( tf * power(bf,2))/2 + (h * power(tw,2))/4;

END;

Nenhum comentário:

Postar um comentário