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

UptoLike

ВУЗ: 

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

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

Рубрика: 

k2:= I/Yl*(0.11/(0.1+deltae)+0.1);
alfa:=Es/Eb;
l: Is:=mul*b*h0*sqr(0.5*h-al);
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-a;
As1:=(N*e-0.04*Rb*b*h0*h0)*10/ (Rsc*(h0-al));
If As1>0 then As:= (0.055*Rb*b*h0-N)*10/Rs+As1*Rsc/Rs else
begin
As1:=mum*b*h0;
Ms1:=Rsc*As1*(h0-al)/10;
Mb:=N*e-Ms1;
A0:=Mb*10/(Rb*b*h0*h0);
dz:=1-sqrt(1-2*A0);
Asb:=dz*Rb*b*h0/Rs;
As:=Asb+As1-N*10/Rs
end;
if As<=0 then As:=mum*b*h0;
mu2:=(As+As1)/(b*h0);
if abs(mu2-mu1)>0.001 then
begin
mu1:= (mu2+mu1)/2;
goto 1
end;
Write (‘Требуемая площадь сечения арматуры’);
Write (растянутой зоны As=); writeln (‘As:6;2’);
Write (‘сжатой зоны As1= ’); writeln (As1:6:2)
Write (‘коэффициент армирования mu1:4:3’);
readln
END. 
            k2:= I/Yl*(0.11/(0.1+deltae)+0.1);
            alfa:=Es/Eb;
l: Is:=mul*b*h0*sqr(0.5*h-al);
            k3:=alfa*Is;
            Ncr:=kl*(k2+k3)/10;
            if Ncr0 then As:= (0.055*Rb*b*h0-N)*10/Rs+As1*Rsc/Rs else
                    begin
                          As1:=mum*b*h0;
                          Ms1:=Rsc*As1*(h0-al)/10;
                          Mb:=N*e-Ms1;
                          A0:=Mb*10/(Rb*b*h0*h0);
                          dz:=1-sqrt(1-2*A0);
                          Asb:=dz*Rb*b*h0/Rs;
                          As:=Asb+As1-N*10/Rs
                    end;
            if As<=0 then As:=mum*b*h0;
            mu2:=(As+As1)/(b*h0);
            if abs(mu2-mu1)>0.001 then
                    begin
                          mu1:= (mu2+mu1)/2;
                          goto 1
                    end;
                          Write (‘Требуемая площадь сечения арматуры’);
                    Write (растянутой зоны As=); writeln (‘As:6;2’);
                    Write (‘сжатой зоны As1= ’); writeln (As1:6:2)
                    Write (‘коэффициент армирования mu1:4:3’);
                    readln
END.

Страницы