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

UptoLike

ВУЗ: 

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

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

Рубрика: 

program kolonna 2; {Программа расчета площади сечения продольной арматуры
внецентренно-сжатых элементов несимметричного
армирования}
user ctr ;
const beta=1;
mum=0.002;
label 1,2;
var
b, h, Rs, Rb, gb, N, Nl, M, Ml, l0, AA, t, Eb, Es: real;
omega, alfa, alfal, ppl, kl, e0, el0, e, el: real;
M1, Mll, Yl, deltae, deltaem, al, h0, k2, k3: real;
mul, mu2, Ncr, dzr, d, aml, an, als, As, ds, Rsc: real;
Ms1, Mb, A0,As1,Asb,ir,I,Is: real;
BEGIN
2: clrscr;
Writeln (‘введите размеры поперечного сечения колонны b и h (см)’);
readln (b, h);
Writeln (‘расчетную прочность арматуры на растяжение (МПа) Rs= ’);
readln (Rs);
Writeln (‘расчетная прочность арматуры на сжатие (МПа) Rsc= ’); readln (Rsc);
Write (‘расчетная прочность бетона (МПа) Rb= ’); readln (Rb);
Writeln (‘модуль упругости арматуры Es и бетона Eb (МПа
)’);
readln (Es, Eb);
Writeln (‘коэффициент условия работы бетона ’); readln (gb);
Writeln (‘введите характеристику бетона’);
Write (‘(1-тяжелый бетон, 2-легкий бетон) ’);
readln (pp1);
if pp1=1 then alfa1:= 0.85 else alfa1:=0.8;
Writeln (‘полные наибольшие расчетные нагрузки М (kН*м) и N (kH)’);
readln (M, N);
Writeln (‘длительнодействующие нагрузки Мl (kН*м) и Nl (kH)’);
readln (Ml, Nl);
Write (‘расчетная длина колонны в метрах l= ’); readln (10);
Write (‘величина защитного слоя бетона (в см) а= ’);
Write (‘в сжатой зоне al=’); readln (al);
Write (‘задайте начальный коэффициент армирования ’); readln (mul);
AA:=b*h; ir := sqrt (h*h/ l2); ppl:=10*100/ ir; h0 :=h-a;
If ppl<=10 then t:=l else
begin
kl:=6.4*Eb*100/ (sqr (10)*100);
e0:=M*100/N; el0:=Ml*100/Nl;
e:=e0+h/2-a; el:=el0+h/2-a;
Ml:=N*e/100; Mll:=Nl*el/100;
Yl:=l+beta*Mll/Ml;
deltae:=e0/h; deltam:= 0.5-0.01*10*100/h-0.01*Rb;
if deltae<deltam then deltae:=deltam;
I:=b*h*h*h/12; 
program kolonna 2; {Программа расчета площади сечения продольной арматуры
                           внецентренно-сжатых элементов несимметричного
                                                        армирования}
user ctr ;
const beta=1;
       mum=0.002;
label 1,2;
var
       b, h, Rs, Rb, gb, N, Nl, M, Ml, l0, AA, t, Eb, Es: real;
       omega, alfa, alfal, ppl, kl, e0, el0, e, el: real;
       M1, Mll, Yl, deltae, deltaem, al, h0, k2, k3: real;
       mul, mu2, Ncr, dzr, d, aml, an, als, As, ds, Rsc: real;
       Ms1, Mb, A0,As1,Asb,ir,I,Is: real;
BEGIN
2: clrscr;
Writeln (‘введите размеры поперечного сечения колонны b и h (см)’);
readln (b, h);
Writeln (‘расчетную прочность арматуры на растяжение (МПа) Rs= ’);
readln (Rs);
Writeln (‘расчетная прочность арматуры на сжатие (МПа) Rsc= ’); readln (Rsc);
Write (‘расчетная прочность бетона (МПа) Rb= ’); readln (Rb);
Writeln (‘модуль упругости арматуры Es и бетона Eb (МПа)’);
readln (Es, Eb);
Writeln (‘коэффициент условия работы бетона ’); readln (gb);
Writeln (‘введите характеристику бетона’);
Write (‘(1-тяжелый бетон, 2-легкий бетон) ’);
readln (pp1);
if pp1=1 then alfa1:= 0.85 else alfa1:=0.8;
Writeln (‘полные наибольшие расчетные нагрузки М (kН*м) и N (kH)’);
readln (M, N);
Writeln (‘длительнодействующие нагрузки Мl (kН*м) и Nl (kH)’);
readln (Ml, Nl);
Write (‘расчетная длина колонны в метрах l= ’); readln (10);
Write (‘величина защитного слоя бетона (в см) а= ’);
Write (‘в сжатой зоне al=’); readln (al);
Write (‘задайте начальный коэффициент армирования ’); readln (mul);
AA:=b*h; ir := sqrt (h*h/ l2); ppl:=10*100/ ir; h0 :=h-a;
If ppl<=10 then t:=l else
       begin
              kl:=6.4*Eb*100/ (sqr (10)*100);
              e0:=M*100/N; el0:=Ml*100/Nl;
              e:=e0+h/2-a; el:=el0+h/2-a;
              Ml:=N*e/100; Mll:=Nl*el/100;
              Yl:=l+beta*Mll/Ml;
              deltae:=e0/h; deltam:= 0.5-0.01*10*100/h-0.01*Rb;
              if deltae

Страницы