Программы расчета по определению площади сечения арматуры внецентренно-сжатых элементов. Степанова Д.С - 3 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

k3:=alfa*Is;
Ncr:=kl*(k2+k3)/10;
if Ncr<N then
begin
clrscr;
write (‘Ncr<N – сечение следует увеличить’);
readln;
goto 2
end;
t:=l/ (l-N/Ncr)
end;
e:=e0*t+0.5*h-al;
omega:=alfal-0.008*Rb;
if gb>= then dzr:= omega/ (1+Rs/400*(l-omega/1.1))
else dzr:=omega/ (l+Rs/500*(l-omega/1.1));
d:=al/h0;
an:=N*10/(Rb*b*h0);
if an <= dzr then As:= N*(e-h0+N) / (2*Rb*b*Rs(h0-a)) else
begin
als:=an* (e/h0-1+an/2) / (1-d);
ds:= (an* (1-dsr)+2*als*dsr) / (1-dsr+2*als);
as:= (N*e/h0-ds*(1-ds)/an/(1-d))*10
end;
mu2:=2*mu1 then As:=mu1*b*h0
else
begin
if abs (mu2-mu1)>0.0001 then
begin
mu1:= (mu2+mu1)/2;
goto 1
end;
Write (‘Требуемая площадь сечения арматуры
As=As1=’);
Write (As:6:2);
Writeln (‘кв. ст’);
Write (‘коэффициент армирования’, mu1:4:3);
readln
END. 
             k3:=alfa*Is;
             Ncr:=kl*(k2+k3)/10;
             if Ncr= then dzr:= omega/ (1+Rs/400*(l-omega/1.1))
                     else dzr:=omega/ (l+Rs/500*(l-omega/1.1));
           d:=al/h0;
    an:=N*10/(Rb*b*h0);
    if an <= dzr then As:= N*(e-h0+N) / (2*Rb*b*Rs(h0-a)) else
    begin
           als:=an* (e/h0-1+an/2) / (1-d);
           ds:= (an* (1-dsr)+2*als*dsr) / (1-dsr+2*als);
           as:= (N*e/h0-ds*(1-ds)/an/(1-d))*10
    end;
    mu2:=2*mu1 then As:=mu1*b*h0
           else
    begin
           if abs (mu2-mu1)>0.0001 then
                  begin
                          mu1:= (mu2+mu1)/2;
                          goto 1
                  end;
                          Write   (‘Требуемая     площадь     сечения     арматуры
As=As1=’);
                  Write (As:6:2);
                  Writeln (‘кв. ст’);
                  Write (‘коэффициент армирования’, mu1:4:3);
                   readln
                   END.

Страницы