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

UptoLike

ВУЗ: 

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

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

Рубрика: 

A:=b*h; pp2:=1/h; mu1:=0.01; y:=0;
If pp2>20 then writln (‘расчет ведется как для внецентренно сжатого элемента’)
else
begin
pp1:=N1/N;
vibor (pp1, pp2, b1, fb);
2: if y=0 then vibor (pp1, pp2, b2, fr)
else
vibor (pp1, pp2, b3, fr);
1: alfa:=Rsc/(Rb*gb)*mu1;
ff:=fb+2*(fr-fb)*alfa;
As:=N*1000/(t*ff*Rsc)-A*gb*Rb/Rsc;
mu2:=As/A;
begin
mu1 :=abs (mu2+mu1)/2;
goto 1;
end;
writeln;
writln (‘Требуемая площадь сечения арматуры As+As’, As:6:2);
writeln;
writeln (‘Введите выбранную вами по сортаменту площадь сечения арматуры’);
readln (As);
write (‘Введите Asm+Asm= ’)
readln (As1);
writeln;
if As1<As/3 then writeln (‘Принятые размеры сечения достаточны’)
else
begin
y:=1; 
A:=b*h; pp2:=1/h; mu1:=0.01; y:=0;
If pp2>20 then writln (‘расчет ведется как для внецентренно сжатого элемента’)
else
begin
      pp1:=N1/N;
      vibor (pp1, pp2, b1, fb);
2:    if y=0 then vibor (pp1, pp2, b2, fr)
      else
      vibor (pp1, pp2, b3, fr);
1:    alfa:=Rsc/(Rb*gb)*mu1;
      ff:=fb+2*(fr-fb)*alfa;
      As:=N*1000/(t*ff*Rsc)-A*gb*Rb/Rsc;
      mu2:=As/A;
      begin
             mu1 :=abs (mu2+mu1)/2;
             goto 1;
      end;
      writeln;
      writln (‘Требуемая площадь сечения арматуры As+As’, As:6:2);
      writeln;
      writeln (‘Введите выбранную вами по сортаменту площадь сечения арматуры’);
      readln (As);
      write (‘Введите Asm+Asm= ’)
      readln (As1);
      writeln;
      if As1

Страницы